itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
 Posted: 13 Dec 2005 14:04 Post subject: Вниманию пользователей "Книга-продаж" от "ИСЖ |
 |
|
При эксплуатации выявлена небольшая ошибка при создании сторнировочной записи. В счете на отгрузку дата оплаты проставляется равной дате записи, а не оплаты.
предлагаю следующий код для корректировки, который следует скомпиллировать и запускать из реестра книги продаж.
Есть один нюанс, правда .gif) заодно может подскажите другое решение?
| Code: |
Function Main()
Private dDate, nNom,nS
dbpush("book","Tag_Storno","Type='3'",{})
Do While !Eof()
nNom:=book->Oper_St
dDate:=sh_fact->Tek_Data
nS:=book->summa_fact
dbpush("book","Tag_Fact","Type='1'",{'oper_fact',Padl(Str(nNom),7,""),Padl(Str(nNom),7,"")})
Do While !Eof()
If book->summa_fact=nS
reclock()
Replace book->data_opl With dDate
Unlock
Endif
dbskip()
Enddo
dbpop()
dbskip()
Enddo
dbpop()
Return
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
