---
title: "Sąrašas pirkimo operacijų, kuriose yra prisegti dokumentai, arba kurios neturi dokumentų"
url: "https://gidas.rivile.lt/sistemos_programavimas/papildomi_funkcionalumai/pirkimai/pirkimai_001"
updated: "2021-01-30"
parent: "https://gidas.rivile.lt/sistemos_programavimas/papildomi_funkcionalumai/pirkimai.md"
---
# Sąrašas pirkimo operacijų, kuriose yra prisegti dokumentai, arba kurios neturi dokumentų
> **Patarimas:** Servisas -> Pirkimai -> Pirkimo operacijos
> **Informacija:** Galima užprogramuoti klavišus, kuriuos paspaudus, nuskaitytame pirkimo operacijų sąraše paliktų tik operacijas, kuriose yra prisegti dokumentai, arba atvirkščiai - operacijas, 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 :
