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@14910 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2007-02-13 15:00:07 +00:00
parent 202aabe5df
commit 434059220d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ve/ve7701.cpp
View File

@ -381,7 +381,11 @@ 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)
{ {
@ -393,12 +397,12 @@ bool TGalileo_articoli::trasferisci_costi(const TString & ditta, const TString &
TString msg; msg.format("Codice $s", (const char *) codart); TString msg; msg.format("Codice $s", (const char *) codart);
log(msg, 0); message_box(msg);
if (good) if (good)
{ {
TString msg; msg.format("Aggiorno al costo %s", (const char *) get_str("M2CMD")); TString msg; msg.format("Aggiorno al costo %s", (const char *) get_str("M2CMD"));
log(msg, 0); message_box(msg);
anamag.put(ANAMAG_ULTCOS1, get_str("M2CMD")); anamag.put(ANAMAG_ULTCOS1, get_str("M2CMD"));
return test_rewrite(anamag); return test_rewrite(anamag);
} }
@ -411,6 +415,7 @@ bool TGalileo_articoli::aggiorna_record(TIsamfile& file, const TString_array& li
{ {
TRectype& rec = file.curr(); TRectype& rec = file.curr();
TString campo_dest, campo_orig, valore, str; TString campo_dest, campo_orig, valore, str;
FOR_EACH_ARRAY_ROW(lista_campi,i,row) FOR_EACH_ARRAY_ROW(lista_campi,i,row)
{ {
row->get(0, campo_dest); row->get(0, campo_dest);