Patch level : 10.0 patch 767

Files correlati     :  tp0.exe
Ricompilazione Demo : [ ]
Commento            :

0001323: Trasferimento Pack:
aggiornare anche la data del documento (DATADOC) in Campo nel caso di ritrasferimento di una bolla
Nel caso in Pack venga modificata una bolla tra cui la data del documento quando viene effettuato il ritrasferimento delle bolle il programma
deve aggiornare anche la data del documento (DATADOC) della bolla in CAMPO

Dalla versione 3.2


git-svn-id: svn://10.65.10.50/trunk@20608 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-06-21 14:56:26 +00:00
parent df82a78495
commit eb10459f10

View File

@ -596,7 +596,33 @@ bool TPack_ddt::trasferisci()
doc->put(DOC_DATADOC, datadoc);
}
else
{
doc->body().destroy_rows();
// Aggiunto a malincuore supporto per cambio data documento ID=00011323
if (doc->get_date(DOC_DATADOC) != datadoc)
{
doc->put(DOC_DATADOC, datadoc); // Aggiorno la data documento
TToken_string key; // Cerco il documento precedente
key.add(doc->get(DOC_PROVV));
key.add(doc->get(DOC_ANNO));
key.add(doc->get(DOC_CODNUM));
key.add(ndoc-1);
const TRectype& prev = cache().get(LF_DOC, key);
if (!prev.empty()) // Se lo trovo ...
{
const TDate prevdate = prev.get_date(DOC_DATADOC);
if (datadoc < prevdate) // ... controllo la congruenza delle date
{
TString msg;
msg.format("La data del documento %ld del %s precede quella del documento %ld del %s",
ndoc, datadoc.string(), ndoc-1, prevdate.string());
log(msg, 1); // Segnalo un warning se non congruente
}
}
}
}
char tipocf = ' ';
long codcf = 0;
@ -710,7 +736,7 @@ bool TPack_ddt::trasferisci()
rdoc.put(RDOC_CHECKED, "X");
rdoc.put(RDOC_UMQTA, um);
rdoc.put(RDOC_QTA, qta);
rdoc.put(RDOC_CODIVA, get_codice_iva(doc->get_date(DOC_DATADOC)));
rdoc.put(RDOC_CODIVA, get_codice_iva(datadoc));
rdoc.put(RDOC_PREZZO, get_real_str("Price"));
TString sconto = get_real_str("DiscountRowDesc");