---
title: "Sąraše papildomas stulpelis, kuriame rodoma, ar yra prisegtas dokumentas"
url: "https://gidas.rivile.lt/sistemos_programavimas/papildomi_funkcionalumai/pardavimai/pardavimai_002"
updated: "2021-02-07"
parent: "https://gidas.rivile.lt/sistemos_programavimas/papildomi_funkcionalumai/pardavimai.md"
---

# Sąraše papildomas stulpelis, kuriame rodoma, ar yra prisegtas dokumentas

> **Patarimas:** Servisas -> Pardavimai -> Pardavimo operacijos

> **Informacija:** Galima užprogramuoti, kad nuskaičius pardavimo operacijas, sąraše atsiranda stulpelis, kuriame rodoma, ar yra prisegtas dokumentas.<br/>Jeigu yra prisegtas dokumentas, rodomas dokumento tipas, jeigu nuoroda į dokumentą ar katalogą - rodomas požymis "/".

**Užprogramuojami klavišai.**

Spaudžiama mygtukų kombinacija **Ctrl+Q**. Atsidaro langas "Vartotojo funkcijų sąrašas".<br/>Spaudžiamas mygtukas "Naujas". Jei to negalima atlikti, reiškia, vartotojui trūksta teisių - tada jungiamasi vardu MASTER.<br/>Uždedamas "v" ant lauko "**Programa po informacijos nuskaitymo**".<br/>Jei programuojama tik konkrečiam vartotojui, jis nurodomas vartotojo lauke.

Komandos lauke įrašoma:

```
LOCAL lcCur, lcCurNew, lcSource, lcCurNew, lcKodas_pkey
m.lcCurNew="ro_inf_nus_dok"
m.lcKodas_pkey="i06_kodas_po"

PRIVATE pcModul, ldNuo, ldIki
m.pcModul=thisform.kuri_ft
m.lcCur=thisform.sritis_d
m.lcSource=[IIF(seek(]+lcCur+[.]+lcKodas_pkey+[,']+lcCurNew+[','kodas'),ALLTRIM(]+lcCurNew+[.ext),'   ')] && Sufomuota rodymo sąlyga

select min(&lcKodas_pkey) as v1, max(&lcKodas_pkey) as v2 from (m.lcCur) into cursor (m.lcCurNew)
m.ldNuo= NVL(&lcCurNew..v1,'')
m.ldIki= NVL(&lcCurNew..v2,'')
USE IN (m.lcCurNew)
=f_select([select I39_MODUL_NR as kodas_op, lower(B00_OP_NR) as ext from I39_IMPO, B00_IMP where I39_MODUL=?m.pcModul and B00_KODAS_IM=I39_KODAS_IM and B00_OP_NR<>' ' and I39_TIPAS=3 and i39_modul_nr between ?m.ldNuo and ?m.ldIki],lcCurNew)
select (m.lcCurNew)
index on kodas_op tag kodas

*** Informacijos nuskaitymas:
LOCAL xCol, xGr
xGr=thisform.grid1.GRID2.S_grid1
xCol=xGr.ColumnCount
xGr.visible=.F.
xGr.ColumnCount=xCol+1
xGr.Columns(xCol+1).header1.caption=l_tek("Dokumentas")
xGr.Columns(xCol+1).header1.fontbold=.t.
xGr.Columns(xCol+1).ControlSource=m.lcSource
xGr.Columns(xCol+1).BackColor=xGr.Columns(xCol).BackColor 
xgr.Visible=.T.
xgr.Refresh()
xgr.SetFocus() 
thisform.grid1.grid2.bb_b_grid1.l_grid() &&  Grido rūšiavimo atstatymas   
```

Viskas išsaugoma.

##### Pavyzdys :

![pard_02_01](https://gidas.rivile.lt/user/pages/145.sistemos_programavimas/10.Papildomi_funkcionalumai/05.Pardavimai/pardavimai_002/pard_02_01.png)



Nuskaičius pardavimo operacijų sąrašą, atsiranda papildomas stulpelis "Dokumentas":

![pard_02_03](https://gidas.rivile.lt/user/pages/145.sistemos_programavimas/10.Papildomi_funkcionalumai/05.Pardavimai/pardavimai_002/pard_02_03.png)

> **Informacija:** Analogišką nuskaitymą galima užprogramuoti ne tik pardavimo, bet ir kituose Rivile GAMA programos moduliuose.