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

Užprogramuojami klavišai.

Spaudžiama mygtukų kombinacija Ctrl+Q. Atsidaro langas "Vartotojo funkcijų sąrašas".
Spaudžiamas mygtukas "Naujas". Jei to negalima atlikti, reiškia, vartotojui trūksta teisių - tada jungiamasi vardu MASTER.
Uždedamas "v" ant lauko "Programa po informacijos nuskaitymo".
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 :

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