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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21816 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-03-23 11:10:40 +00:00
parent 36cb5a9165
commit 04b1b9d4a6
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ha/ha1200.cpp
View File

@ -201,10 +201,10 @@ void TFile2Txt::genera_clienti_txt(const long da_codcli)
clienti.new_rec("");
//il codice terminale è il codagente legato al cliente
TString8 codage = archivio_clienti.get("CFVEN.CODAG").as_string();
codage = codage.right(3);
clienti.set("CodiceTerminale", codage);
//il codice terminale è il codagente legato al cliente (codice agente lungo 5, codice terminale lungo 3)
const TString8 codage = archivio_clienti.get("CFVEN.CODAG").as_string();
const TString4 codterm = codage.right(3);
clienti.set("CodiceTerminale", codterm);
const long codcf = archivio_clienti.get(CLI_CODCF).as_int();
clienti.set("CodiceCliente", codcf);
@ -257,6 +257,26 @@ void TFile2Txt::genera_clienti_txt(const long da_codcli)
const TString& str_sconto = archivio_clienti.get(CFV_SCONTO).as_string();
clienti.set("ScontoFineFattura", hd_find_sconto(str_sconto));
//gestione giri
//i giri stanno nella tabella di modulo &HGI, con chiave CODTAB=agente-giorno-cliente
TString query;
query << "USE &HGI";
query << "\nSELECT (CODTAB[7,12]=#CODCLI)";
query << "\nFROM CODTAB=#CODAGE";
query << "\nTO CODTAB=#CODAGE";
TISAM_recordset cli_giri_recset(query);
cli_giri_recset.set_var("#CODCLI", codcf);
cli_giri_recset.set_var("#CODAGE", codage);
for (bool ok = cli_giri_recset.move_first(); ok; ok = cli_giri_recset.move_next())
{
const int giorno = cli_giri_recset.get("CODTAB[6,6]").as_int();
TString8 nome_campo = "Giro0";
nome_campo << giorno;
const long ordine = cli_giri_recset.get("I0").as_int();
clienti.set(nome_campo, ordine);
}
TString80 ntel = archivio_clienti.get(CLI_PTEL).as_string();
ntel << archivio_clienti.get(CLI_TEL).as_string();
clienti.set("NumeroTelefono", ntel);