From 184de22239140f340d23b65fc452b99e6defd1bc Mon Sep 17 00:00:00 2001
From: luca <luca@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 11 Feb 2011 11:33:33 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            :

git-svn-id: svn://10.65.10.50/branches/R_10_00@21631 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ha/ha1200.cpp  | 19 ++++++++++++++-----
 ha/ha1200a.h   | 15 ++++++++-------
 ha/ha1200a.uml | 21 +++++++++++++++++----
 3 files changed, 39 insertions(+), 16 deletions(-)

diff --git a/ha/ha1200.cpp b/ha/ha1200.cpp
index 485db8d81..e6606e30f 100755
--- a/ha/ha1200.cpp
+++ b/ha/ha1200.cpp
@@ -76,7 +76,7 @@ protected:
 
   void genera_agenti_txt();
   void genera_clienti_txt(const long da_codcli);
-  void genera_sospesi_txt();
+  void genera_sospesi_txt(const long da_codcli);
   void genera_righelistini_txt();
   void genera_contratti_txt();
   void genera_promozioni_txt();
@@ -284,17 +284,18 @@ void TFile2Txt::genera_clienti_txt(const long da_codcli)
 }
 
 
-void TFile2Txt::genera_sospesi_txt()
+void TFile2Txt::genera_sospesi_txt(const long da_codcli)
 {
   TEsporta_sospesi_recordset sospesi;
 
   TString query;
   query << "USE PART";
   query << "\nSELECT (CHIUSA!=\"X\")&&(TIPOMOV=1)";
-  query << "\nFROM TIPOC=C";
+  query << "\nFROM TIPOC=C SOTTOCONTO=#DACODC";
   query << "\nTO TIPOC=C";
 
   TISAM_recordset archivio_part(query);
+  archivio_part.set_var("#DACODC", da_codcli);
   const long archivio_part_items = archivio_part.items();
 
   TProgind progind(archivio_part_items, "Sospesi...", false, true);
@@ -333,8 +334,13 @@ void TFile2Txt::genera_sospesi_txt()
       sospesi.set("ImportoResiduo", residuo);
       sospesi.set("ImpOriginalDoc", doc.valore());
       sospesi.set("DataScadenza", hd_format_date6(datascad));
+
+      //partita: il codice sul terminalino deve avere il seguente formato (alla cazzo!)
+      //anno[4]-numpart[7, allineato a dx]
       TString16 cod_partita;
-      cod_partita << rec_part.get_int(PART_ANNO) << "-" << rec_part.get(PART_NUMPART);
+      const int anno = rec_part.get_int(PART_ANNO);
+      const TString& numpart = rec_part.get(PART_NUMPART);  //lo si prende così perchè Hardy allinea a destra il saldaconto
+      cod_partita << anno << "-" << numpart;
       sospesi.set("Partita", cod_partita);
       sospesi.set("TipoDocumento", "F");
     }
@@ -671,7 +677,10 @@ void TFile2Txt::elabora(const TMask& mask)
   }
 
   if (mask.get_bool(F_SOSPESI))
-    genera_sospesi_txt();
+  {
+    const long da_codcli = mask.get_long(F_DA_SOSP_CODCLI);
+    genera_sospesi_txt(da_codcli);
+  }
 
   if (mask.get_bool(F_LISTINI))
     genera_righelistini_txt();
diff --git a/ha/ha1200a.h b/ha/ha1200a.h
index e08c3d7b4..077fc6ba4 100755
--- a/ha/ha1200a.h
+++ b/ha/ha1200a.h
@@ -13,10 +13,11 @@
 #define F_TABPAG      212
 #define F_CARICO      213
 
-#define F_DA_CODCLI   220
-#define F_CODNUM      221
-#define F_ANNO        222
-#define F_PROVV       223
-#define F_STATO       224
-#define F_DA_CARDOC   225
-#define F_A_CARDOC    226
\ No newline at end of file
+#define F_DA_CODCLI       220
+#define F_DA_SOSP_CODCLI  221
+#define F_CODNUM          222
+#define F_ANNO            223
+#define F_PROVV           224
+#define F_STATO           225
+#define F_DA_CARDOC       226
+#define F_A_CARDOC        227
\ No newline at end of file
diff --git a/ha/ha1200a.uml b/ha/ha1200a.uml
index a8991a2f2..0b475e56f 100755
--- a/ha/ha1200a.uml
+++ b/ha/ha1200a.uml
@@ -27,7 +27,7 @@ END
 
 NUMBER F_DA_CODCLI 6
 BEGIN
-  PROMPT 12 4 "Dal: "
+  PROMPT 12 4 "Dal cli: "
   USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_DA_CODCLI
@@ -44,6 +44,19 @@ BEGIN
   GROUP 1
 END
 
+NUMBER F_DA_SOSP_CODCLI 6
+BEGIN
+  PROMPT 12 5 "Dal cli: "
+  USE LF_CLIFO
+  INPUT TIPOCF "C"
+  INPUT CODCF F_DA_SOSP_CODCLI
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  OUTPUT F_DA_SOSP_CODCLI CODCF
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
 BOOLEAN F_LISTINI
 BEGIN
   PROMPT 2 6 "Listini"
@@ -70,19 +83,19 @@ END
 
 BOOLEAN F_PRODOTTI
 BEGIN
-  PROMPT 28 3 "Prodotti"
+  PROMPT 32 3 "Prodotti"
   GROUP 1
 END
 
 BOOLEAN F_LINEE
 BEGIN
-  PROMPT 28 4 "Linee"
+  PROMPT 32 4 "Linee"
   GROUP 1
 END
 
 BOOLEAN F_BARCODE
 BEGIN
-  PROMPT 28 5 "Barcode"
+  PROMPT 32 5 "Barcode"
   GROUP 1
 END