Informacija apie paskutinius pardavimus ir ankstesnes pardavimo kainas

Servisas -> Pardavimai -> Pardavimo operacijos -> Pardavimo koregavimas -> Detalaus pardavimo koregavimas

Galima užprogramuoti klavišus, kad vedant pardavimo detalią eilutę, būtų galima greitai pasižiūrėti kaip paskutinį kartą prekė buvo parduota šiam klientui ar bendrai visiems klientams, kokiomis skirtingomis pardavimo kainomis ji buvo pardavinėjama.

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 bus galima pamatyti detalioje eilutėje įvestos prekės ar paslaugos paskutinio pardavimo informaciją šiam klientui

Pavadinimo lauke įrašoma "Paskutinio pardavimo informacija šiam klientui ".
Komandos lauke įrašoma:

v_kodas_po=Wi06k.i06_kodas_po
v_kodas_ks=Wi06k.i06_kodas_ks
v_op_data=Wi06k.i06_op_data
v_kodas=titi_pagr.adf.KOR.KODAS.VALUE
v_pav=titi_pagr.adf.KOR.pav.VALUE
v1=IIF(f_select("select i06_op_data,i07_kaina_be,i07_nuolaida from i06_parh,i07_pard where i06_kodas_po=i07_kodas_po and i06_op_tip=51 and i06_kodas_ks=?v_kodas_ks and i06_kodas_po<>?v_kodas_po and i06_op_data<=?v_op_data and i07_kodas=?v_kodas order by i06_op_data DESC","v1_rep"),IIF(.not.isnull(v1_rep.i07_kaina_be),1,0),0)
select v1_rep
=f_info(" Paskutinį kartą parduota šiam klientui"+CHR(10)+CHR(10)+v_kodas+'  '+v_pav+CHR(10)+CHR(10)+IIF(v1=0,"Ankstesnių pardavimų nėra.","Paskutinio pardavimo kaina be PVM "+STR(v1_rep.i07_kaina_be,12,4)+IIF(v1_rep.i07_nuolaida=0,"",CHR(10)+CHR(10)+"Nuolaidos % "+STR(v1_rep.i07_nuolaida,6,2))+CHR(10)+CHR(10)+"Paskutinio pardavimo data   "+DTOC(v1_rep.i06_op_data)),.t.)  

Viskas išsaugoma.

Pavyzdys, kokia informacija matysis paspaudus užprogramuotą klavišą:

pard_det_02

2. Klavišas, kurį paspaudus bus galima pamatyti detalioje eilutėje įvestos prekės ar paslaugos paskutinio pardavimo informaciją

Pavadinimo lauke įrašoma "Paskutinio pardavimo informacija".
Komandos lauke įrašoma:

v_kodas_po=Wi06k.i06_kodas_po
v_kodas_ks=Wi06k.i06_kodas_ks
v_op_data=Wi06k.i06_op_data
v_kodas=titi_pagr.adf.KOR.KODAS.VALUE
v_pav=titi_pagr.adf.KOR.pav.VALUE
v1=IIF(f_select("select i06_op_data,i07_kaina_be,i07_nuolaida from i06_parh,i07_pard where i06_kodas_po=i07_kodas_po and i06_op_tip=51 and i06_kodas_po<>?v_kodas_po and i06_op_data<=?v_op_data and i07_kodas=?v_kodas order by i06_op_data DESC","v1_rep"),IIF(.not.isnull(v1_rep.i07_kaina_be),1,0),0)
select v1_rep
=f_info(" Paskutinį kartą parduota"+CHR(10)+CHR(10)+v_kodas+'  '+v_pav+CHR(10)+CHR(10)+IIF(v1=0,"Ankstesnių pardavimų nėra.","Paskutinio pardavimo kaina be PVM "+STR(v1_rep.i07_kaina_be,12,4)+IIF(v1_rep.i07_nuolaida=0,"",CHR(10)+CHR(10)+"Nuolaidos % "+STR(v1_rep.i07_nuolaida,6,2))+CHR(10)+CHR(10)+"Paskutinio pardavimo data   "+DTOC(v1_rep.i06_op_data)),.t.)

Viskas išsaugoma.

Pavyzdys, kokia informacija matysis paspaudus užprogramuotą klavišą:

pard_det_03

3. Klavišas, kurį paspaudus bus galima pamatyti kokiomis skirtingomis kainomis prekė ar paslauga buvo parduodama šiam klientui

Pavadinimo lauke įrašoma "Ankstesnės pardavimo kainos šiam klientui".
Komandos lauke įrašoma:

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

v_kodas_po=Wi06k.i06_kodas_po
v_op_data=Wi06k.i06_op_data
v_kodas_ks=Wi06k.i06_kodas_ks
v_kodas=titi_pagr.adf.KOR.KODAS.VALUE
v_kodas_us_p=titi_pagr.adf.KOR.kodas_us_p.VALUE
=f_select("select i06_op_data,i07_kaina_be from i06_parh,i07_pard where i06_kodas_po=i07_kodas_po and i06_op_tip=51 and i06_kodas_po<>?v_kodas_po and i06_kodas_ks=?v_kodas_ks and i07_kodas=?v_kodas and i07_kodas_us_p=?v_kodas_us_p ","v1_rep")

select v1_rep
select i07_kaina_be as kaina_be,max(i06_op_data) as op_data from v1_rep into cursor vart_rep group by i07_kaina_be order by op_data

vv=" Ankstesnės pardavimo kainos be PVM šiam klientui "+CHR(10)+CHR(10)
vv=vv+titi_pagr.adf.KOR.KODAS.VALUE+' '+titi_pagr.adf.KOR.kodas_us_p.VALUE+alltrim(titi_pagr.adf.KOR.PAV.VALUE)+CHR(10)+CHR(10)

select vart_rep

goto top
scan
vv=vv+DTOC(vart_rep.op_data)+str(vart_rep.kaina_be,14,4)+CHR(10)
select vart_rep
endscan
use in vart_rep

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

Viskas išsaugoma.

Pavyzdys, kokia informacija matysis paspaudus užprogramuotą klavišą:

pard_det_04

4. Klavišas, kurį paspaudus bus galima pamatyti kokiomis skirtingomis kainomis prekė ar paslauga buvo parduodama anksčiau

Pavadinimo lauke įrašoma "Ankstesnės pardavimo kainos".
Komandos lauke įrašoma:

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

v_kodas_po=Wi06k.i06_kodas_po
v_op_data=Wi06k.i06_op_data
v_kodas_ks=Wi06k.i06_kodas_ks
v_kodas=titi_pagr.adf.KOR.KODAS.VALUE
v_kodas_us_p=titi_pagr.adf.KOR.kodas_us_p.VALUE
=f_select("select i06_op_data,i07_kaina_be from i06_parh,i07_pard where i06_kodas_po=i07_kodas_po and i06_op_tip=51 and i06_kodas_po<>?v_kodas_po and i07_kodas=?v_kodas and i07_kodas_us_p=?v_kodas_us_p ","v1_rep")

select v1_rep
select i07_kaina_be as kaina_be,max(i06_op_data) as op_data from v1_rep into cursor vart_rep group by i07_kaina_be order by op_data

vv=" Ankstesnės pardavimo kainos be PVM "+CHR(10)+CHR(10)
vv=vv+titi_pagr.adf.KOR.KODAS.VALUE+' '+titi_pagr.adf.KOR.kodas_us_p.VALUE+alltrim(titi_pagr.adf.KOR.PAV.VALUE)+CHR(10)+CHR(10)

select vart_rep

goto top
scan
vv=vv+DTOC(vart_rep.op_data)+str(vart_rep.kaina_be,14,4)+CHR(10)
select vart_rep
endscan
use in vart_rep

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

Viskas išsaugoma.

Pavyzdys, kokia informacija matysis paspaudus užprogramuotą klavišą:

pard_det_05

Klavišo užprogramavimo pavyzdys :

pard_det_01