Dokumento datos prilyginimas operacijos datai
Servisas -> Pardavimai -> Pardavimo operacijos -> Pardavimo koregavimas
Galima užprogramuoti, kad vedant pardavimo operacijos datą, automatiškai keistųsi ir dokumento data.
Jeigu dokumento data turi skirtis nuo operacijos datos, ji pakoreguojama.
Užprogramuojamas Formos INIT-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.
Uždedamas "v" ant lauko "Formos INIT-as".
Jei programuojama tik konkrečiam vartotojui, jis nurodomas vartotojo lauke.
Komandos lauke įrašoma:
***Dokumentų prisegimas
thisform.dokumentas=.t.
thisform.dokumentai=.t.
***Greita paieška
_thisform=thisform
grpaj("_thisform")
***Dokumento data = operacijos datai
bind_command("EXECSCRIPT(thisform.KOR.op_DATA.cCommand,thisform)",thisform.KOR.op_DATA,"InteractiveChange",.T.)
thisform.KOR.op_DATA.AddProperty("cCommand",GETWORDNUM(komanda_v,2,chr(36)))
ij_k=999999 && EXIT
$***** InteractiveChange1 *******
LPARAMETERS _thisform
IF (TYPE("bind_command_par1")="N" AND bind_command_par1<>33)
RETURN .T.
ENDIF
_thisform.KOR.dok_DATA.value=_thisform.KOR.op_DATA.value
_thisform.KOR.dok_DATA.InteractiveChange()
Viskas išsaugoma.