Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
hardate varie


git-svn-id: svn://10.65.10.50/branches/R_10_00@21504 c028cbd2-c16b-5b4b-a496-9718f37d4682

ha/ha1200.cpp

@@ -26,11 +26,34 @@ public:
 
 bool TFile2Txt_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 {
-  /*switch (o.dlg())
+  switch (o.dlg())
 	{
+  case F_CARICO:
+    if (e == fe_modify && o.get().full())
+    {
+      //in base alla configurazione Hardyca completa i campi chiave sulla maschera così che, in caso..
+      //..l'utonto decida di fare una ricerca sui documenti, gli appaiano solo quelli buoni per il trasferimento!
+      TConfig config(CONFIG_DITTA, "ha");
+      const TString& codnum = config.get("CarDocNum");
+      const TString& stato = config.get("CarDocSta");
+      set(F_CODNUM, codnum);
+      set(F_STATO, stato);
+
+      TBrowse& dacardoc = *efield(F_DA_CARDOC).browse();
+      TCursor& cur = *dacardoc.cursor();
+      dacardoc.do_input(true);
+      const TRecnotype tot = cur.items();
+      if (tot > 0)
+      {
+        cur = tot - 1;
+        dacardoc.do_output();
+        set(F_A_CARDOC, get(F_DA_CARDOC));
+      }
+    }
+    break;
   default:
     break;
-  }*/
+  }
   return true;
 }
 
@@ -62,7 +85,7 @@ protected:
   void genera_decodart_txt();
   void genera_attrezzature_txt();
   void genera_tabpag_txt();
-  void genera_carico_txt();
+  void genera_carico_txt(const TMask& mask);
 
   void fill_anagrafica_cliente(const TISAM_recordset& archivio_clienti, 
                                TEsporta_clienti_recordset& clienti, const bool is_fatt = false);
@@ -566,7 +589,7 @@ void TFile2Txt::genera_tabpag_txt()
   tabpag.save_as(output_path, fmt_text);
 }
 
-void TFile2Txt::genera_carico_txt()
+void TFile2Txt::genera_carico_txt(const TMask& mask)
 {
   TEsporta_carico_recordset carico;
 
@@ -575,11 +598,12 @@ void TFile2Txt::genera_carico_txt()
   query << "\nSELECT (DOC.TIPODOC=#TIPODOC)&&(DOC.STATO=#STATO)";
   query << "\nJOIN DOC INTO PROVV=PROVV ANNO=ANNO CODNUM=CODNUM NDOC=NDOC";
   query << "\nBY DOC.CODAG";
-  query << "\nFROM CODNUM=#CODNUM";
+  query << "\nFROM CODNUM=#CODNUM ANNO=#ANNO PROVV=D NDOC=#DA_NDOC";
-  query << "\nTO CODNUM=#CODNUM";
+  query << "\nTO CODNUM=#CODNUM ANNO=#ANNO PROVV=D NDOC=#A_NDOC";
 
   TISAM_recordset archivio_rdoc(query);
 
+  //parametri dalla configurazione
   TConfig config(CONFIG_DITTA, "ha");
   const TString& tipodoc = config.get("CarDocTip");
   archivio_rdoc.set_var("#TIPODOC", tipodoc);
@@ -588,6 +612,14 @@ void TFile2Txt::genera_carico_txt()
   const TString& codnum = config.get("CarDocNum");
   archivio_rdoc.set_var("#CODNUM", codnum);
 
+  //parametri dalla maschera
+  const long anno = mask.get_long(F_ANNO);
+  archivio_rdoc.set_var("#ANNO", anno);
+  const long da_ndoc = mask.get_long(F_DA_CARDOC);
+  archivio_rdoc.set_var("#DA_NDOC", da_ndoc);
+  const long a_ndoc = mask.get_long(F_A_CARDOC);
+  archivio_rdoc.set_var("#A_NDOC", a_ndoc);
+
   const long archivio_rdoc_items = archivio_rdoc.items();
 
   TProgind progind(archivio_rdoc_items, "Documenti carico...", false, true);
@@ -652,7 +684,7 @@ void TFile2Txt::elabora(const TMask& mask)
     genera_tabpag_txt();
 
   if (mask.get_bool(F_CARICO))
-    genera_carico_txt();
+    genera_carico_txt(mask);
 }
 
 

ha/ha1200a.h

@@ -14,3 +14,9 @@
 #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

ha/ha1200a.uml

@@ -8,7 +8,7 @@ BEGIN
   FLAGS "D"
 END
 
-GROUPBOX DLG_NULL 76 8
+GROUPBOX DLG_NULL 76 9
 BEGIN
   PROMPT 1 2 "@bArchivi da trasferire"
 END
@@ -62,6 +62,12 @@ BEGIN
   GROUP 1
 END
 
+BOOLEAN F_DECODART
+BEGIN
+  PROMPT 2 9 "Codici articolo alternativi"
+  GROUP 1
+END
+
 BOOLEAN F_PRODOTTI
 BEGIN
   PROMPT 28 3 "Prodotti"
@@ -80,12 +86,6 @@ BEGIN
   GROUP 1
 END
 
-BOOLEAN F_DECODART
-BEGIN
-  PROMPT 28 6 "Codici articolo alternativi"
-  GROUP 1
-END
-
 BOOLEAN F_ATTREZZA
 BEGIN
   PROMPT 53 3 "Attrezzature"
@@ -102,6 +102,65 @@ BOOLEAN F_CARICO
 BEGIN
   PROMPT 53 5 "Documenti di carico"
   GROUP 1
+  MESSAGE FALSE HIDE,2@
+  MESSAGE TRUE SHOW,2@
+END
+
+NUMBER F_DA_CARDOC 7
+BEGIN
+  PROMPT 53 6 "Dal doc. n. "
+  GROUP 2
+  USE DOC SELECT (STATO=#F_STATO)
+  INPUT PROVV "D"
+  INPUT ANNO F_ANNO SELECT
+  INPUT CODNUM F_CODNUM SELECT
+  INPUT NDOC F_DA_CARDOC
+  DISPLAY "N. doc.@7" NDOC
+  DISPLAY "Codnum" CODNUM
+  DISPLAY "Anno" ANNO
+  DISPLAY "Tipo" TIPODOC
+  DISPLAY "Data@10" DATADOC
+  DISPLAY "Stato" STATO
+  DISPLAY "Cliente" CODCF
+  OUTPUT F_DA_CARDOC NDOC
+  CHECKTYPE NORMAL
+END
+
+NUMBER F_A_CARDOC 7
+BEGIN
+  PROMPT 53 7 "Al doc n.   "
+  GROUP 2
+  COPY USE F_DA_CARDOC
+  INPUT PROVV "D"
+  INPUT ANNO F_ANNO SELECT
+  INPUT CODNUM F_CODNUM SELECT
+  INPUT NDOC F_DA_CARDOC
+  COPY DISPLAY F_DA_CARDOC
+  OUTPUT F_A_CARDOC NDOC
+  CHECKTYPE NORMAL
+  NUM_EXPR (#F_A_CARDOC>=#F_DA_CARDOC)||(#F_A_CARDOC==0)
+  WARNING "Il numero documento finale deve essere > di quello iniziale oppure lasciato vuoto"
+END
+
+STRING F_CODNUM 4
+BEGIN
+  PROMPT 53 8 "Num. " 
+  FLAGS "D"
+  GROUP 2
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 63 8 "Anno "
+  FLAGS "A"
+  MESSAGE K_SPACE,F_CARICO
+  GROUP 2
+END
+
+STRING F_STATO 1
+BEGIN
+  PROMPT 77 8 ""
+  FLAGS "H"
 END
 
 STRING DLG_PROFILE 50

ha/ha1300.cpp

@@ -303,7 +303,8 @@ void TUpload2Campo::elabora_SI(THardy_upload_recordset& recset, TLog_report& log
 void TUpload2Campo::elabora_TF(THardy_upload_recordset& recset, TLog_report& log)
 {
   //1)  codice terminale (lungo 3) e codice agente (lungo 5)
-  const TString4 codice_terminale = recset.get("CodiceTerminale").as_string();
+  TString4 codice_terminale = recset.get("CodiceTerminale").as_string();
+  codice_terminale.right_just(3, '0');
   TString8 codice_agente = codice_terminale;
   codice_agente.right_just(5, '0');
   const TString& codage = cache().get(LF_AGENTI, codice_agente, AGE_CODAGE);

ha/hamenu.men

@@ -3,18 +3,39 @@ Caption = "Caffe' Hardy"
 Picture = <ha01>
 Module  = 46
 Flags   = "F"
+Item_01 = "Gestione listini", [HAMENU_002]
+Item_02 = "Gestione contratti premio", [HAMENU_003]
+Item_03 = "Collegamento terminalini", [HAMENU_004]
+Item_04 = "Servizi", [HAMENU_005]
+
+[HAMENU_002]
+Caption = "Listini"
+Picture = <ha01>
+Module  = 46
+Flags   = "F"
+Item_01 = "Listini", "ve2 -4 L", ""
+Item_02 = "Listini cliente", "ve2 -4 C", ""
+Item_03 = "Stampa listini", "ve3 -4 L", ""
+
+[HAMENU_003]
+Caption = "Contratti premio"
+Picture = <ha01>
+Module  = 46
+Flags   = "F"
 Item_01 = "Gestione contratti premio", "ha0 -2", ""
 Item_02 = "Contabilizzazione contratti premio", "ve6 -1", "F"
 Item_03 = "Generazione NAC", "ha0 -4", ""
 Item_04 = "Elaborazione contratti premio pareggiati", "ha0 -3", "F"
-Item_05 = "Listini", "ve2 -4 L", ""
-Item_06 = "Listini cliente", "ve2 -4 C", ""
-Item_07 = "Stampa listini", "ve3 -4 L", ""
-Item_08 = "Esportazione archivi formato txt", "ha1 -1", "F"
-Item_09 = "Importazione dati da file", "ha1 -2", "F"
-Item_10 = "Servizi", [HAMENU_002]
 
-[HAMENU_002]
+[HAMENU_004]
+Caption = "Collegamento terminalini"
+Picture = <ha01>
+Module  = 46
+Flags   = "F"
+Item_01 = "Esportazione archivi formato txt", "ha1 -1", "F"
+Item_02 = "Importazione dati da file", "ha1 -2", "F"
+
+[HAMENU_005]
 Caption = "Servizi"
 Picture = <ha01>
 Module  = 46