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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21651 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-02-16 12:13:57 +00:00
parent 9da797d43f
commit 7e9848fc44
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ps/pl0002100.cpp
View File

@ -302,6 +302,12 @@ bool TLif_articoli::trasferisci()
anamag.open(_lock);
TRectype& rec = anamag.curr();
TSystemisamfile umart(LF_UMART);
umart.open(_lock);
TRectype& umrec = umart.curr();
TAssoc_array articoli;
TLif_iterator hi(this);
while (++hi)
{
@ -318,11 +324,21 @@ bool TLif_articoli::trasferisci()
rec.put(ANAMAG_PESO, plordo);
rec.put(ANAMAG_TARA, plordo - pnetto);
rec.put(ANAMAG_PPCONF, ppconf);
rec.put(ANAMAG_CODIVA, "20");
aggiorna_record(rec, lista_campi);
if (test_write(anamag))
{
TString msg;
if(!articoli.is_key(codart))
{
umrec.put(UMART_CODART, codart);
umrec.put(UMART_NRIGA, 1);
umrec.put(UMART_UM, "NR");
test_write(umart);
articoli.add(codart, codart);
}
TString msg;
msg << TR("Inserito articolo ") << " '" << codart << "\' -> " << descr;
log(msg);
}