Informacija, ką klientas pirko per paskutinius metus

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 "Ką klientas pirko per paskutinius metus".
Komandos lauke įrašoma:

v_klientas=titi_pagr.adf.KOR.lapas.Page1.kodas_ks.VALUE
v_kodas_ak=titi_pagr.adf.KOR.lapas.Page1.kodas_ak.VALUE
v1_data=titi_pagr.adf.KOR.op_data.VALUE
v2_data=gomonth(v1_data,-12)
v_op_nr=titi_pagr.adf.KOR.kodas_po.VALUE

vv=" i06_kodas_po=i07_kodas_po and (i06_op_tip=51 or i06_op_tip=52 or i06_op_tip=53) and i06_kodas_po<>?v_op_nr  and i06_kodas_ks=?v_klientas   and (i06_op_data between  ?v2_data and ?v1_data) "

=f_select("select i06_op_tip,i07_kodas,i07_pav,i07_alt_frak,SUM(i07_alt_kiekis) as kiekis,SUM(i07_suma) as suma,i07_kodas_us_p,i07_kaina_be from i06_parh,i07_pard where"+vv+"  group by i06_op_tip,i07_kodas,i07_pav,i07_alt_frak,i07_kodas_us_p,i07_kaina_be","v1_rep")

select i07_kodas as kodas,i07_pav as pavadinimas,SUM(ROUND(IIF(i06_op_tip=52,-kiekis/i07_alt_frak,kiekis/i07_alt_frak),3)) as kiekis, i07_kodas_us_p as mato_vnt,SUM(IIF(i06_op_tip=52,-suma,suma)) as suma_be_PVM, i07_kaina_be as kaina_be_PVM from v1_rep group by i07_kodas ,i07_kaina_be into cursor v1_rep  
select v1_rep  
do perziura 

Viskas išsaugoma.

Pardavimo operacijoje paspaudus užprogramuotą klavišą, pasimatys sąrašas prekių ir paslaugų, kurias klientas pirko per paskutinius metus: