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            :
hardy: modifiche hardiche


git-svn-id: svn://10.65.10.50/branches/R_10_00@21293 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-12-14 09:26:40 +00:00
parent f3cd2f1a7f
commit 43d0de5ee9
2 changed files with 85 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ha/ha1100.cpp
View File

@ -252,6 +252,13 @@ void TIni2Txt::genera_riga_listino_var_txt(TConfig& ini)
const TString4 segno = ricava_segno(ini);
TISAM_recordset agenti("USE AGENTI");
const long agenti_items = agenti.items();
for (bool ok = agenti.move_first(); ok; ok = agenti.move_next())
{
TString8 codage = agenti.get(AGE_CODAGE).as_string();
codage = codage.right(3);
//campi da condv (52)
//-------------------
//ini.set_paragraph("52");
@ -268,7 +275,7 @@ void TIni2Txt::genera_riga_listino_var_txt(TConfig& ini)
riga_listino.new_rec("");
riga_listino.set("CodiceTerminale", 0L); //nel caso del listino non ci va l'agente/terminale
riga_listino.set("CodiceTerminale", codage);
riga_listino.set("Segno", segno);
riga_listino.set(RCONDV_COD, ini.get(RCONDV_COD));
@ -295,6 +302,7 @@ void TIni2Txt::genera_riga_listino_var_txt(TConfig& ini)
} //for(int r=1;;...
}
//prepara il nome corretto del file .txt e lo genera
//--------------------------------------------------
const TString prefisso = "listvar";

15
ha/ha1200.cpp
View File

@ -312,6 +312,13 @@ void TFile2Txt::genera_righelistini_txt()
{
TEsporta_listini_recordset righe_listini;
TISAM_recordset agenti("USE AGENTI");
const long agenti_items = agenti.items();
for (bool ok = agenti.move_first(); ok; ok = agenti.move_next())
{
TString8 codage = agenti.get(AGE_CODAGE).as_string();
codage = codage.right(3);
TString query;
query << "USE RCONDV";
query << "\nFROM TIPO=L";
@ -327,7 +334,7 @@ void TFile2Txt::genera_righelistini_txt()
righe_listini.new_rec("");
righe_listini.set("CodiceTerminale", 0L);
righe_listini.set("CodiceTerminale", codage);
righe_listini.set(RCONDV_COD, archivio_rcondv.get(RCONDV_COD));
TString80 codart = archivio_rcondv.get(RCONDV_CODRIGA).as_string();
righe_listini.set(RCONDV_CODRIGA, codart);
@ -348,6 +355,7 @@ void TFile2Txt::genera_righelistini_txt()
const TString& str_sconto = archivio_rcondv.get(RCONDV_SCONTO).as_string();
righe_listini.set(RCONDV_SCONTO, hd_find_sconto(str_sconto));
}
}
TFilename output_path = genera_path("listini");
righe_listini.save_as(output_path, fmt_text);
@ -588,12 +596,15 @@ void TFile2Txt::genera_carico_txt()
carico.new_rec("");
carico.set("CodiceTerminale", archivio_rdoc.get(DOC_CODAG));
TString8 codage = archivio_rdoc.get("DOC.CODAG").as_string();
codage = codage.right(3);
carico.set("CodiceTerminale", codage);
carico.set(RDOC_CODART, archivio_rdoc.get(RDOC_CODART));
real qta = archivio_rdoc.get(RDOC_QTA).as_real();
qta *= CENTO;
qta.round();
carico.set(RDOC_QTA, qta);
carico.set(RDOC_LIVELLO, archivio_rdoc.get(RDOC_LIVELLO));
}
TFilename output_path = genera_path("carico");