Sąrašas pirkimo operacijų, kuriose yra prisegti dokumentai, arba kurios neturi dokumentų

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.
Spaudžiamas klavišas, kurį norima užsiprogramuoti, pavyzdžiui F5. Kiekvienam funkcionalumui užprogramuojami skirtingi klavišai.
Jei programuojama tik konkrečiam vartotojui, jis nurodomas vartotojo lauke.

1. Klavišas, kurį paspaudus, sąraše paliks tik operacijos, kuriose yra prisegtas dokumentas ar dokumentai (arba nuorodos)

Pavadinimo lauke įrašoma "Tik su dokumentais ".
Komandos lauke įrašoma:

select min(i06_kodas_po) as v1, max(i06_kodas_po) as v2 from Wi06 into cursor v1_rep
v_nuo=v1_rep.v1
v_iki=v1_rep.v2

=f_select("select i39_modul_nr  from b00_imp,I39_IMPO where B00_KODAS_IM=I39_KODAS_IM and B00_MODUL='PO' and I39_MODUL='PO' and I39_TIPAS=3 and  i39_modul_nr>=?v_nuo and  i39_modul_nr<=?v_iki and b00_op_nr<>'            ' ","v1_rep")
=f_select("select k00_modul_nr  from K00_DOKF where K00_MODUL='PO' and  k00_modul_nr>=?v_nuo and  k00_modul_nr<=?v_iki  ","v2_rep")

select v1_rep
index on i39_modul_nr tag kodas
select v2_rep
index on k00_modul_nr tag kodas

dele all for seek(i06_kodas_po,"v1_rep")=.f. and seek(i06_kodas_po,"v2_rep")=.f. in Wi06
sele Wi06
goto top
=f_info("Nuskaityta",.t.)   

Viskas išsaugoma.

2. Klavišas, kurį paspaudus, sąraše paliks tik operacijos, kurios neturi jokių prisegtų dokumentų

Pavadinimo lauke įrašoma "Tik be dokumentų ".
Komandos lauke įrašoma:

select min(i06_kodas_po) as v1, max(i06_kodas_po) as v2 from Wi06 into cursor v1_rep
v_nuo=v1_rep.v1
v_iki=v1_rep.v2

=f_select("select i39_modul_nr  from b00_imp,I39_IMPO where B00_KODAS_IM=I39_KODAS_IM and B00_MODUL='PO' and I39_MODUL='PO' and I39_TIPAS=3 and  i39_modul_nr>=?v_nuo and  i39_modul_nr<=?v_iki and b00_op_nr<>'            ' ","v1_rep")
=f_select("select k00_modul_nr  from K00_DOKF where K00_MODUL='PO' and  k00_modul_nr>=?v_nuo and  k00_modul_nr<=?v_iki  ","v2_rep")

select v1_rep
index on i39_modul_nr tag kodas
select v2_rep
index on k00_modul_nr tag kodas

dele all for seek(i06_kodas_po,"v1_rep")=.t. or seek(i06_kodas_po,"v2_rep")=.t. in Wi06
sele Wi06
goto top
=f_info("Nuskaityta",.t.)      

Viskas išsaugoma.

Pavyzdys :