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

Patch level : 10.0

Browse Source 
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
This commit is contained in:
luca83 2008-12-11 16:13:45 +00:00
parent 4affe7a9dd
commit 612f8c17e9
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lv/lv2400.cpp
View File

@ -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 //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 //...e riporta in stato iniziale i documenti di ritiro e di anticipo che concorrono
//...a calcolare le quantità da riportare sulla bolla //...a calcolare le quantità da riportare sulla bolla
cambia_stato(codcli, codind,'R'); cambia_stato(codcli, codind, 'R');
cambia_stato(codcli, codind,'A'); cambia_stato(codcli, codind, 'A');
elimina_bolle(codcli, codind); elimina_bolle(codcli, codind);
//calcola tutte le quantità riportate sui documenti di ritiro, sui documenti di anticipo e sulle bolle di consegna //calcola tutte le quantità riportate sui documenti di ritiro, sui documenti di anticipo e sulle bolle di consegna
//...eventualmente modificate a mano //...eventualmente modificate a mano
scansione_ritiri_anticipi(codcli,codind,'R'); 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_CODCONT, codcont);
doc.put(DOC_CODINDSP, codind); doc.put(DOC_CODINDSP, codind);
const long ndoc = doc.get_long(DOC_NDOC);
//preparo la chiave per la tabella righe contratti //preparo la chiave per la tabella righe contratti
TToken_string keyrcont; TToken_string keyrcont;
keycont.add(codcli); keycont.add(codcli);
@ -178,7 +179,19 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan)
crea_riga(rcont, modpas, true, doc);*/ 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 //CREA_RIGA: questa funzione crea una riga merce per una bolla di consegna