Detali informacija apie klientą

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

Pavadinimo lauke įrašoma "Detali informacija apie klientą".
Komandos lauke įrašoma:

m.kodas_ks=titi_pagr.ad.lapas.Page1.kodas_ks.VALUE
m.pp_suma_o=wi06k.i06_suma+wi06k.i06_suma_pvm
m.kodas_po=wi06k.i06_kodas_po
m.kodas_kt=''
m.pp_suma_kt=0

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

local ss_suma_db,ss_suma_cr,srv

ss_suma_db=0.00
ss_suma_cr=0.00
if empty(kodas_ks)
    =l_window("Įveskite kliento kodą!")
    return .t.
endif
ala=alias()
if used("SS_kur")
    use in SS_kur
endif

if type("n08.n08_kodas_ks")="U" or n08.n08_kodas_ks#kodas_ks
    if !F_SEEK("n08",kodas_ks)
        =l_window("Sąraše nėra tokio kliento!")
        return .t.
    endif
endif

srv=l_tek("Klientas")+" "+alltrim(kodas_ks)+" "+alltrim(n08.n08_pav)+chr(13)

ss_suma_db=0.00
ss_suma_cr=0.00

*- randame skolą
    IF !trig_ex()
        titi_pagr.sak_sel="SELECT sum(i44_suma_db) as suma_db,sum(i44_suma_cr) as suma_cr "+;
                "FROM i44_skol WHERE i44_skol.i44_kodas_ks=?kodas_ks"
    ELSE
        titi_pagr.sak_sel="SELECT sum(t03_suma_db) as suma_db,sum(t03_suma_cr) as suma_cr "+;
                "FROM t03_sdok WHERE t03_sdok.t03_kodas_ks=?kodas_ks"
    ENDIF
    if !f_select(titi_pagr.sak_sel,"DS44",.t.,0)
        return.f.
    endif
    srv=srv+chr(13)+l_tek("Bendra skola klientui : ")+alltrim(str(-iif(!ISNULL(DS44.suma_db),DS44.suma_db,0.00)+iif(!ISNULL(DS44.suma_cr),DS44.suma_cr,0.00),12,2))+chr(13)
    if used("DS44")
        use in DS44
    endif
*-

*-randame vėluojančias sumas
v_data=DATE()

titi_pagr.sak_sel="SELECT sum(i44_suma_db) as suma_db,sum(i44_suma_cr) as suma_cr "+;
"FROM i44_skol WHERE i44_skol.i44_kodas_ks=?kodas_ks and i44_data_mok<?v_data"
if !f_select(titi_pagr.sak_sel,"DV44",.t.,0)
        return.f.
    endif
srv=srv+chr(13)+l_tek("Vėluojanti suma : ")+alltrim(str(-iif(!ISNULL(DV44.suma_db),DV44.suma_db,0.00)+iif(!ISNULL(DV44.suma_cr),DV44.suma_cr,0.00),12,2))+chr(13)
    if used("DV44")
        use in DV44
    endif
*-

*titi_pagr.sak_sel="SELECT sum(i44_suma_db) as suma_db,sum(i44_suma_cr) as suma_cr,i44_dok_nr,i44_data_mok,MIN(i44_data_dok) as i44_data_dok "+;
"FROM i44_skol WHERE i44_skol.i44_kodas_ks=?kodas_ks and i44_data_mok<?v_data group by i44_dok_nr,i44_data_mok order by i44_data_mok,i44_dok_nr"

titi_pagr.sak_sel="SELECT sum(i44_suma_db) as suma_db,sum(i44_suma_cr) as suma_cr,i44_dok_nr,i44_data_mok,MIN(i44_data_dok) as i44_data_dok "+;
"FROM i44_skol WHERE i44_skol.i44_kodas_ks=?kodas_ks  group by i44_dok_nr,i44_data_mok order by i44_data_mok,i44_dok_nr"

if !f_select(titi_pagr.sak_sel,"DV44",.t.,0)
        return.f.
endif

srv=srv+chr(13)+"Dokumentas          "+"Dok. data    "+"Mok. data             "+"Suma"

select DV44
SCAN
srv=srv+IIF(-iif(!ISNULL(DV44.suma_db),DV44.suma_db,0.00)+iif(!ISNULL(DV44.suma_cr),DV44.suma_cr,0.00)#0,;
chr(13)+DV44.i44_dok_nr+DTOC(DV44.i44_data_dok)+'   '+DTOC(DV44.i44_data_mok)+'    '+;
(str(-iif(!ISNULL(DV44.suma_db),DV44.suma_db,0.00)+iif(!ISNULL(DV44.suma_cr),DV44.suma_cr,0.00),12,2)),'')
ENDSCAN

    if used("DV44")
        use in DV44
    endif

if used("SS_kur")
    use in SS_kur
endif

=f_info(srv,.T.,,'Courier New',9)

if !empty(ala) and used(ala)
    select (ala)
endif

Viskas išsaugoma.

Pirkimo operacijoje paspaudus užprogramuotą klavišą, pasimatys detali informacija apie klientą: