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

Patch level : 4.0 620

Browse Source 
Files :  ve7.exe
Ricompilazione Demo : [ ]
Commento            :

Trasferimento Galileo


git-svn-id: svn://10.65.10.50/trunk@14911 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2007-02-13 15:16:35 +00:00
parent 434059220d
commit 52bf679ad7
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ve/ve7701.cpp
View File

@ -381,30 +381,17 @@ bool TGalileo_articoli::trasferisci_costi(const TString & ditta, const TString &
TRectype& rec_anamag = anamag.curr(); TRectype& rec_anamag = anamag.curr();
TGalileo_iterator pi(this); TGalileo_iterator pi(this);
TString80 codart; TString80 codart;
TString msg; msg.format("%ld", recordset().items());
query << " " << msg;
message_box(query);
anamag.open_ex(_excllock); anamag.open_ex(_excllock);
while (++pi) while (++pi)
{ {
codart = get_str("M2RIS"); codart = get_str("M2RIS");
codart.trim(); rec_anamag.zero();
codart.upper();
rec_anamag.put(ANAMAG_CODART, codart); rec_anamag.put(ANAMAG_CODART, codart);
bool good = anamag.read() == NOERR; bool good = anamag.read() == NOERR;
TString msg; msg.format("Codice $s", (const char *) codart);
message_box(msg);
if (good) if (good)
{ {
TString msg; msg.format("Aggiorno al costo %s", (const char *) get_str("M2CMD"));
message_box(msg);
anamag.put(ANAMAG_ULTCOS1, get_str("M2CMD")); anamag.put(ANAMAG_ULTCOS1, get_str("M2CMD"));
return test_rewrite(anamag); test_rewrite(anamag);
} }
} }
anamag.close(); anamag.close();