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@14903 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2007-02-12 17:10:59 +00:00
parent 3236b1ab66
commit 551f046811
1 changed files with 5 additions and 1 deletions

6
ve/ve7701.cpp

@ -373,16 +373,20 @@ bool TGalileo_articoli::trasferisci_costi(const TString & ditta, const TString &
TLocalisamfile anamag(LF_ANAMAG);
TRectype& rec_anamag = anamag.curr();
TGalileo_iterator pi(this);
TString80 codart;
while (++pi)
{
const TString& codart = get_str("M2RIS");
codart = get_str("M2RIS");
codart.trim();
codart.upper();
// rec_anamag.zero();
rec_anamag.put(ANAMAG_CODART, codart);
bool good = anamag.read() == NOERR;
if (good)
{
message_box("Aggiorno codice $s - costo %s", (const char *) codart, (const char *) get_str("M2CMD"));
anamag.put(ANAMAG_ULTCOS1, get_str("M2CMD"));
return test_rewrite(anamag);
}