Informacija apie sutarties priedo išpirkimą

Servisas -> Pirkimai -> Pirkimo operacijos -> Pirkimo koregavimas -> Detalaus pirkimo koregavimas

Vedant pirkimo detalias eilutes ir paspaudus užprogramuotą klavišą, galima greitai pasižiūrėti informaciją apie sutarties priedo išpirkimą.

Užprogramuojamas klavišas.

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.
Jei programuojama tik konkrečiam vartotojui, jis nurodomas vartotojo lauke.

Pavadinimo lauke įrašoma "Informacija apie sutartį (sutarties priedą) ".
Komandos lauke įrašoma:

EXECSCRIPT(SUBSTR(komanda_v,ATC(CHR(13),komanda_v,ij_k+1)))
EXIT

v_kodas_ks=Wi06k.i06_kodas_ks
v_kodas_po=Wi06k.i06_kodas_po
v_kodas_kt=titi_pagr.adf.KOR.kodas_kt.VALUE
v_kodas_k0=titi_pagr.adf.KOR.kodas_k0.VALUE
v_ispirkta=0
v_uzsakyta=0

v_kiekis_sutartyje=IIF(F_SELECT("select n52_kiekis,n52_frakcija from n52_sutd where n52_kodas_kt=?v_kodas_kt and n52_kodas_k0=?v_kodas_k0","v1_rep"),IIF(.not.isnull(v1_rep.n52_kiekis) and v1_rep.n52_kiekis<>0,round(v1_rep.n52_kiekis/v1_rep.n52_frakcija,3),0),0)

wsel="select i06_op_tip,sum(i07_alt_kiekis) as i07_alt_kiekis,i07_alt_frak from i06_parh,i07_pard where i06_kodas_po=i07_kodas_po and i06_op_tip<=4  and i06_kodas_po<>?v_kodas_po "
wsel=wsel+" and  i06_kodas_ks=?v_kodas_ks and i07_kodas_kt=?v_kodas_kt and i07_kodas_k0=?v_kodas_k0 group by i06_op_tip,i07_alt_frak "
=f_select(wsel,"v2_rep")
goto top

if .not.eof()
select sum(IIF(i06_op_tip=1,i07_alt_kiekis/ i07_alt_frak,0000.00)) as pirkimai, sum(IIF(i06_op_tip=2,i07_alt_kiekis/ i07_alt_frak,0000.00)) as grazinimai,sum(IIF(i06_op_tip>2,i07_alt_kiekis/ i07_alt_frak,0000.00)) as uzsakymai from v2_rep into cursor v2_rep 
v_ispirkta=round(v2_rep.pirkimai-v2_rep.grazinimai,3)
v_uzsakyta=round(v2_rep.uzsakymai,3) 
endif

=f_info("Kiekis sutartyje: "+str(v_kiekis_sutartyje,12,3)+CHR(10)+CHR(10)+"Iššpirkta: "+str(v_ispirkta,12,3)+CHR(10)+CHR(10)+"Užsakyta: "+str(v_uzsakyta,12,3)+CHR(10)+CHR(10)+"Likutis: "+str(v_kiekis_sutartyje-v_ispirkta-v_uzsakyta,12,3)+;
CHR(10)+CHR(10)+CHR(10)+"(Informacija be šio dokumento)",.t.) 

Viskas išsaugoma.

Pirkimo detalioje eilutėte paspaudus užprogramuotą klavišą, gaunama informacija:

pirk_05