Dokumento datos prilyginimas operacijos datai

Servisas -> Pirkimai -> Pirkimo operacijos -> Pirkimo koregavimas

Galima užprogramuoti, kad vedant pirkimo 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()

op_0022

Viskas išsaugoma.