Kintamųjų reikšmių atfiltravimas
Servisas -> Alga -> Kintamųjų reikšmės
Galima užprogramuoti klavišus, kuriuos paspaudus, nuskaitytame kintamųjų reikšmių sąraše paliktų tik tam tikrų darbuotojų kintamųjų reikšmės.
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 paliks tik nenulinės, nurodytą datą dirbančių darbuotojų kintamųjų reikšmės
Pavadinimo lauke įrašoma "Tik dirbantys ir reikšmės nelygios 0 ".
Komandos lauke įrašoma:
v_data=IIF(type('titi_pagr.ad.DATA.VALUE')='D',titi_pagr.ad.DATA.VALUE,DATE())
=F_SELECT("SELECT a06_kodas_tb FROM a06_tab WHERE a06_zml_iki>?v_data","v2_rep")
select v2_rep
f_macro("index on a06_kodas_tb tag kodas")
delete all in Wa02 for seek(a02_kodas_tb,"v2_rep")=.f. or a02_suma=0
sele wa02
goto top
=f_info("Nuskaityta",.t.)Viskas išsaugoma.
2. Klavišas, kurį paspaudus paliks tik tam tikros grupės nurodytą datą dirbančių darbuotojų kintamųjų reikšmės
Pavadinimo lauke įrašoma "Tik tam tikros grupės ir dirbantys ".
Komandos lauke įrašoma:
v_kodas_gs=PS_KOD("GS","Darbuotojų grupė")
v_data=IIF(type('titi_pagr.ad.DATA.VALUE')='D',titi_pagr.ad.DATA.VALUE,DATE())
=F_SELECT("SELECT a06_kodas_tb FROM a06_tab WHERE a06_zml_iki>?v_data and a06_kodas_gs=?v_kodas_gs","v2_rep")
select v2_rep
f_macro("index on a06_kodas_tb tag kodas")
delete all in Wa02 for seek(a02_kodas_tb,"v2_rep")=.f.
sele wa02
goto top
=f_info("Nuskaityta",.t.)Viskas išsaugoma.
3. Klavišas, kurį paspaudus paliks tik tam tikrose pareigose dirbančių darbuotojų kintamųjų reikšmės
Pavadinimo lauke įrašoma "Tik dirbantys tam tikrose pareigose ".
Komandos lauke įrašoma:
v_pareigos=PS_KOD("LE","Pareigos")
=f_select("select a07_kodas_tb,a07_kodas_is,a07_kodas_le from a07_tabp,a26_etat where a07_kodas_le=a26_kodas_le and a26_kodas_le=?v_pareigos","v3_rep")
select v3_rep
f_macro("index on a07_kodas_tb+a07_kodas_is tag kodas")
delete all in Wa02 for seek(a02_kodas_tb+a02_kodas_is,"v3_rep")=.f.
sele wa02
goto top
=f_info("Nuskaityta",.t.)Viskas išsaugoma.
Pavyzdys :
