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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Corretto errore refresh variabili TCurrency


git-svn-id: svn://10.65.10.50/trunk@20100 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2010-02-11 11:25:42 +00:00
parent 4e0643d066
commit 4d606778c7
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ps/pd5317100.cpp
View File

@ -227,8 +227,6 @@ void TCarrelli_app:: elabora(const TMask& mask)const
TString ragsoc;
TString indir;
TDate dataDoc;
TCurrency importob;
TCurrency prezzoAcq;
TDate data_gara;
TString descr_conto;
TString conto;
@ -237,6 +235,9 @@ void TCarrelli_app:: elabora(const TMask& mask)const
int gruppo1;
int conto1;
int sottoGruppo1;
TCurrency importob;
TCurrency prezzoAcq;
TString venduto_a;
TCurrency prezzoVend;
TCurrency prezzo_p1;
@ -244,11 +245,13 @@ void TCarrelli_app:: elabora(const TMask& mask)const
TCurrency manutenzione;
TCurrency prezzo_autom;
TCurrency prezzo_recup;
TCurrency prezzo_null;
TString commessa;
TString commessaOld;
for(bool ok = riep.move_first();ok;ok=riep.move_next())
{
{
commessa = riep.get("SALDANA.COMMESSA").as_string();
articolo = riep.get("ANAMAG.CODART").as_string();//A
@ -278,7 +281,7 @@ void TCarrelli_app:: elabora(const TMask& mask)const
TISAM_recordset bolle(get_query(1,""));
bolle.set_var("#COMM",TVariant(articolo));
for(bool ok2 = bolle.move_last();ok2;ok2=bolle.move_next())
{
{
ragsoc = bolle.get("CLIFO.RAGSOC").as_string();
indir = bolle.get("INDSPED.LOCALITA").as_string();
dataDoc= bolle.get("DATADOC").as_date();
@ -304,6 +307,7 @@ void TCarrelli_app:: elabora(const TMask& mask)const
modello = riep.get("COMMESSE.DESCRIZ").as_string();//T
prezzoAcq.set_price(0);//R
conto="";
descr_conto="";//S
TISAM_recordset saldana(get_query(2,""));
@ -418,6 +422,15 @@ void TCarrelli_app:: elabora(const TMask& mask)const
noleggio,manutenzione,venduto_a,prezzoVend,
prezzo_p1, prezzo_autom,prezzo_recup);
//TString pippo1 = prezzo_p1.string();
prezzo_p1 = prezzo_null;
prezzoAcq = prezzo_null;
manutenzione = prezzo_null;
prezzo_autom = prezzo_null;
prezzo_recup = prezzo_null;
noleggio = prezzo_null;
prezzoVend = prezzo_null;
}
}