From 612f8c17e9b541b6edf9c42d7a93bccfff005c1f Mon Sep 17 00:00:00 2001 From: luca83 Date: Thu, 11 Dec 2008 16:13:45 +0000 Subject: [PATCH] Patch level : 10.0 Files correlati : lv2.exe Ricompilazione Demo : [ ] Commento : Aggiunti riferimenti della bolla generata sul planning di partenza git-svn-id: svn://10.65.10.50/trunk@17869 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv2400.cpp | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/lv/lv2400.cpp b/lv/lv2400.cpp index b298b080e..86b455109 100755 --- a/lv/lv2400.cpp +++ b/lv/lv2400.cpp @@ -130,11 +130,10 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan) //elimina eventuali documenti di consegna che sono ancora in stato iniziale //...e riporta in stato iniziale i documenti di ritiro e di anticipo che concorrono //...a calcolare le quantità da riportare sulla bolla - cambia_stato(codcli, codind,'R'); - cambia_stato(codcli, codind,'A'); + cambia_stato(codcli, codind, 'R'); + cambia_stato(codcli, codind, 'A'); elimina_bolle(codcli, codind); - //calcola tutte le quantità riportate sui documenti di ritiro, sui documenti di anticipo e sulle bolle di consegna //...eventualmente modificate a mano scansione_ritiri_anticipi(codcli,codind,'R'); @@ -163,6 +162,8 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan) doc.put(DOC_CODCONT, codcont); doc.put(DOC_CODINDSP, codind); + const long ndoc = doc.get_long(DOC_NDOC); + //preparo la chiave per la tabella righe contratti TToken_string keyrcont; keycont.add(codcli); @@ -178,7 +179,19 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan) crea_riga(rcont, modpas, true, doc);*/ } - return doc.write() == NOERR; + int err = doc.write(); + + //scrivo sul planning il riferimento alla bolla che lo accompagna + if (err == NOERR) + { + TLocalisamfile& f = plan.cursor()->file(); + f.put(LVRCONSPLAN_ANNO, anno); + f.put(LVRCONSPLAN_CODNUM, codnum); + f.put(LVRCONSPLAN_NDOC, ndoc); + f.rewrite(); + } + + return err == NOERR; } //CREA_RIGA: questa funzione crea una riga merce per una bolla di consegna