root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 946

Browse Source 
Files correlati     : tp0.exe tp0100a.msk
Commento            :

Aggiornato trasferimento Pack
This commit is contained in:
Alessandro Bonazzi 2020-02-18 10:52:18 +01:00
parent 6dd5b943e4
commit 721523e796
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/tp/tp0102.cpp
View File

@ -606,13 +606,14 @@ bool TPack_ddt::trasferisci()
TString str; // jolly
TString last_custref;
TDate last_datadoc;
TPack_iterator ri(this);
while (++ri)
{
const long code = get_long("DocCode");
const long ndoc = get_long("DocRefNumber");
const TDate datadoc = recset.get("DocDate").as_date();
TDate datadoc = recset.get("DocDate").as_date();
if (_data_limite.ok() && datadoc > _data_limite)
continue;
@ -631,6 +632,11 @@ bool TPack_ddt::trasferisci()
TString4 codnum, tipodoc;
get_tipodoc(codnum, tipodoc);
if (!datadoc.ok())
datadoc = last_datadoc;
else
last_datadoc = datadoc;
doc = new TDocumento('D', datadoc.year(), codnum, ndoc);
const bool isnew = doc->rows() == 0;
if (isnew)