---
title: "Dokumento datos prilyginimas operacijos datai"
url: "https://gidas.rivile.lt/sistemos_programavimas/papildomi_funkcionalumai/pardavimai/pardavimai_op_002"
updated: "2021-05-07"
parent: "https://gidas.rivile.lt/sistemos_programavimas/papildomi_funkcionalumai/pardavimai.md"
---

# Dokumento datos prilyginimas operacijos datai

> **Patarimas:** Servisas -> Pardavimai -> Pardavimo operacijos -> Pardavimo koregavimas

> **Informacija:** Galima užprogramuoti, kad vedant pardavimo operacijos datą, automatiškai keistųsi ir dokumento data.<br/>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".<br/>Spaudžiamas mygtukas "Naujas". Jei to negalima atlikti, reiškia, vartotojui trūksta teisių - tada jungiamasi vardu MASTER.<br/>Uždedamas "v" ant lauko "**Formos INIT-as**".<br/>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](https://gidas.rivile.lt/user/pages/145.sistemos_programavimas/10.Papildomi_funkcionalumai/05.Pardavimai/pardavimai_op_002/op_0022.png)



Viskas išsaugoma.