From e3ecd94380021d45c5e36a99cad1e9fe3b95da34 Mon Sep 17 00:00:00 2001 From: luca Date: Wed, 24 Nov 2010 16:40:47 +0000 Subject: [PATCH] Patch level : Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21190 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ha/ha1200.cpp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/ha/ha1200.cpp b/ha/ha1200.cpp index 8027db58b..70c1531df 100755 --- a/ha/ha1200.cpp +++ b/ha/ha1200.cpp @@ -161,6 +161,7 @@ void TFile2Txt::genera_clienti_txt(const long da_codcli) TString query; query << "USE CLIFO"; + query << "\nSELECT (SOSPESO!=\"X\")"; query << "\nJOIN CFVEN INTO TIPOCF=TIPOCF CODCF=CODCF"; query << "\nFROM TIPOCF=C"; if (da_codcli > 0L) @@ -530,7 +531,8 @@ void TFile2Txt::genera_tabpag_txt() TEsporta_pagamenti_recordset tabpag; TString query; - query << "USE %RPG"; + query << "USE %CPG"; + query << "\nJOIN %RPG ALIAS 401 INTO CODTAB=CODTAB"; TISAM_recordset archivio_pagamenti(query); const long archivio_pagamenti_items = archivio_pagamenti.items(); @@ -542,10 +544,13 @@ void TFile2Txt::genera_tabpag_txt() tabpag.new_rec(""); const TString& codtab = archivio_pagamenti.get("CODTAB").as_string(); - tabpag.set("CodicePagamento", codtab.left(2)); - const TString& cpg_s0 = cache().get("%CPG", codtab.left(4), "S0"); + tabpag.set("CodicePagamento", codtab.right(2)); + const TString& cpg_s0 = archivio_pagamenti.get("S0").as_string(); tabpag.set("DescrPagamento", cpg_s0); - tabpag.set("GiorniScadenza", archivio_pagamenti.get("I0")); + long giorni = archivio_pagamenti.get("401@.I0").as_int(); + if (giorni <= 0) + giorni = archivio_pagamenti.get("I3").as_int(); + tabpag.set("GiorniScadenza", giorni); } TFilename output_path = genera_path("tabpag");