Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
caffe' Ardi riportato dalla 11


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

ha/ha0200a.h

@@ -34,3 +34,5 @@
 #define F_CARDOC_TIP         252
 #define F_CARDOC_STA         253
 #define F_BARCODE_TIP        254
+
+#define F_INPUT_PATH         255

ha/ha0200a.uml

@@ -322,9 +322,14 @@ ENDPAGE
 
 PAGE "Trasferimenti" -1 -1 78 23
 
-STRING F_OUTPUT_PATH 255 40
+GROUPBOX DLG_NULL 76 7
 BEGIN
-  PROMPT 1 1 "Percorso files .txt da esportare "
+  PROMPT 1 1 "@bEsportazione"
+END
+
+STRING F_OUTPUT_PATH 255 38
+BEGIN
+  PROMPT 2 2 "Percorso files .txt da esportare "
   DSELECT
   FLAGS "M"
   CHECKTYPE REQUIRED
@@ -332,14 +337,14 @@ BEGIN
   FIELD OutputPath
 END
 
-GROUPBOX DLG_NULL 76 3
+GROUPBOX DLG_NULL 74 3
 BEGIN
-  PROMPT 1 2 "@bDocumenti di carico"
+  PROMPT 2 3 "@bDocumenti di carico"
 END
 
 STRING F_CARDOC_NUM 4
 BEGIN
-  PROMPT 2 3 "Numerazione "
+  PROMPT 3 4 "Numerazione "
   USE %NUM
   INPUT CODTAB F_CARDOC_NUM
   DISPLAY "Codice@8" CODTAB
@@ -351,7 +356,7 @@ END
 
 STRING F_CARDOC_TIP 4
 BEGIN
-  PROMPT 22 3 "Tipo "
+  PROMPT 23 4 "Tipo "
   USE %TIP
   INPUT CODTAB F_CARDOC_TIP
   DISPLAY "Codice" CODTAB
@@ -364,7 +369,7 @@ END
 
 STRING F_CARDOC_STA 1
 BEGIN
-  PROMPT 35 3 "Stato "
+  PROMPT 36 4 "Stato "
   USE %STD
   INPUT CODTAB F_CARDOC_STA
   DISPLAY "Codice" CODTAB
@@ -377,7 +382,7 @@ END
 
 LISTBOX F_BARCODE_TIP 10
 BEGIN
-  PROMPT 1 5 "Tipo di barcode "
+  PROMPT 2 6 "Tipo di barcode "
   ITEM "N|Normale"
   ITEM "8|EAN8   "
   ITEM "1|EA13   "
@@ -386,6 +391,21 @@ BEGIN
   FIELD "TipoBarcode"
 END
 
+GROUPBOX DLG_NULL 76 9
+BEGIN
+  PROMPT 1 8 "@bImportazione"
+END
+
+STRING F_INPUT_PATH 255 38
+BEGIN
+  PROMPT 2 9 "Percorso files da importare "
+  DSELECT
+  FLAGS "M"
+  CHECKTYPE REQUIRED
+  WARNING "Selezionare una cartella valida!"
+  FIELD InputPath
+END
+
 ENDPAGE
 
 ENDMASK

ha/ha1.cpp

@@ -3,7 +3,7 @@
 
 #include "ha1.h"
 
-#define usage   "Error - usage : %s -{0|1}"
+#define usage   "Error - usage : %s -{0|1|2}"
 
 int main(int argc,char** argv)
 {
@@ -18,6 +18,9 @@ int main(int argc,char** argv)
   case 1:
     rt = ha1200(argc, argv) ; break;    //generazione .txt da anagrafica campo (file tipo XXX.txt)
     break;
+  case 2:
+    rt = ha1300(argc, argv) ; break;    //importazione file da terminalini (file tipo upload.d)
+    break;
   default:
     error_box(usage, argv[0]) ; break;
   }

ha/ha1.h

@@ -1,2 +1,3 @@
 int ha1100(int argc, char* argv[]);
 int ha1200(int argc, char* argv[]);
+int ha1300(int argc, char* argv[]);

ha/ha1200.cpp

@@ -397,7 +397,7 @@ void TFile2Txt::genera_decodart_txt()
 
   TString query;
   query << "USE CODCORR";
-  query << "\nSELECT (TIPOCF=C)";
+  query << "\nSELECT (TIPOCF='C')";
   query << "\nBY CODCF";
 
   TISAM_recordset archivio_codcorr(query);
@@ -432,7 +432,6 @@ void TFile2Txt::genera_tabpag_txt()
 
   TString query;
   query << "USE %RPG";
-  query << "\nJOIN %CPG INTO CODTAB=CODTAB";
 
   TISAM_recordset archivio_pagamenti(query);
   const long archivio_pagamenti_items = archivio_pagamenti.items();
@@ -443,9 +442,10 @@ void TFile2Txt::genera_tabpag_txt()
     progind.addstatus(1);
 
     tabpag.new_rec("");
-
+    const TString& codtab = archivio_pagamenti.get("CODTAB").as_string();
-    tabpag.set("CodicePagamento", archivio_pagamenti.get("CODTAB[1,2]"));
+    tabpag.set("CodicePagamento", codtab.left(2));
-    tabpag.set("DescrPagamento", archivio_pagamenti.get("%CPG.S0"));
+    const TString& cpg_s0 = cache().get("%CPG", codtab.left(4), "S0");
+    tabpag.set("DescrPagamento", cpg_s0);
     tabpag.set("GiorniScadenza", archivio_pagamenti.get("I0"));
   }
 
@@ -459,7 +459,7 @@ void TFile2Txt::genera_carico_txt()
 
   TString query;
   query << "USE RDOC";
-  query << "\nSELECT (TIPODOC=#TIPODOC)&&(STATO=#STATO)";
+  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";

ha/halib.cpp

@@ -43,7 +43,7 @@ TContratto_premi::TContratto_premi(const TRectype& rec_doc)
 
 
 /////////////////////////////////////////////////////////////
-//	Recordset specifici per i dati da trasferire
+//	Recordset specifici per i dati da trasferire OUTPUT
 /////////////////////////////////////////////////////////////
 //questo è il metodo magico che vale per tutti
 void THardy_recordset::add_field(const char* name, const char* tipo, int pos, int len)
@@ -57,6 +57,16 @@ void THardy_recordset::add_field(const char* name, const char* tipo, int pos, in
   create_field(name, pos-1, len, _alfafld);
 }
 
+void THardy_recordset::add_trc_field(const char* tr, const char* name, const char* tipo, int pos, int len)
+{
+  CHECK(tr && strlen(tr) == 2, "Lunghezza tipo record errata!!");
+  TString80 trc_name;
+  trc_name << tr << '.' << name;
+  add_field(trc_name, tipo, pos, len);
+}
+
+
+
 void THardy_recordset::insert_field(const char* name, const char* tipo, int pos, int len)
 {
   if (pos >= 1)
@@ -83,6 +93,97 @@ THardy_recordset::THardy_recordset(const int rec_lenght) : TAS400_recordset("AS4
   parse_query(query, cazzone);
 }
 
+
+//questo invece è il metodo magico che vale per il caricamento da file esterno
+THardy_upload_recordset::THardy_upload_recordset(const TFilename& filename)
+  : THardy_recordset(256)
+{
+  //Tipo record SU
+  //--------------
+  add_trc_field("SU", "TipoRecord",       T_X,    1,  2);   //x
+  add_trc_field("SU", "CodiceTerminale",  T_N,    3,  3);   //x
+  add_trc_field("SU", AGE_CODAGE,         T_N,    6,  3);   //x
+  add_trc_field("SU", "NonUsato",         T_X,    9,  6);
+  add_trc_field("SU", "Targa",            T_X,    15, 8);
+  add_trc_field("SU", "nDDT",             T_N,    23, 5);
+  add_trc_field("SU", "nFATT",            T_N,    28, 5);
+  add_trc_field("SU", "nBOLLA",           T_N,    33, 5);
+  add_trc_field("SU", AGE_RAGSOC,         T_X,    38, 30);  //x
+
+  //Tipo record TF
+  //--------------
+  add_trc_field("TF", "TipoRecord",       T_X,    1,  2);   //x
+  add_trc_field("TF", "CodiceTerminale",  T_N,    3,  3);   //x
+  add_trc_field("TF", DOC_NDOC,           T_N,    6,  5);   //x
+  add_trc_field("TF", DOC_DATADOC,        T_X,    11, 6);   //x
+  add_trc_field("TF", DOC_TIPODOC,        T_X,    17, 1);   //x
+  add_trc_field("TF", DOC_CODCF,          T_X,    18, 6);   //x
+  add_trc_field("TF", DOC_CODCFFATT,      T_X,    24, 6);   //x
+  add_trc_field("TF", "ImponibileLordo",  T_Nv2N, 30, 8);   // campi seguenti da righe doc
+  add_trc_field("TF", "ScontoFattura",    T_2Nv2N,38, 4);
+  add_trc_field("TF", "ImponibileDoc",    T_Nv2N, 42, 8);
+  add_trc_field("TF", "TotaleDoc",        T_Nv2N, 50, 8);
+  add_trc_field("TF", "ScontoTotale",     T_Nv2N, 58, 8);
+  add_trc_field("TF", "ImponibileOmaggi", T_Nv2N, 66, 8);
+  add_trc_field("TF", "ImponibileSost",   T_Nv2N, 74, 8);
+  add_trc_field("TF", "Incasso",          T_Nv2N, 82, 8);   //forse IMPPAGATO ?
+  add_trc_field("TF", DOC_CODPAG,         T_X,    90, 2);   //x
+  add_trc_field("TF", DOC_DATAPART,       T_X,    92, 6);   //x
+  add_trc_field("TF", "Iva1",             T_N,    98, 2);   //anche questi da righe doc
+  add_trc_field("TF", "Imponibile1",      T_Nv2N, 100,8);
+  add_trc_field("TF", "Imposta1",         T_Nv2N, 108,7);
+  add_trc_field("TF", "Iva2",             T_N,    115,2);
+  add_trc_field("TF", "Imponibile2",      T_Nv2N, 117,8);
+  add_trc_field("TF", "Imposta2",         T_Nv2N, 125,7);
+  add_trc_field("TF", "Iva3",             T_N,    132,2);
+  add_trc_field("TF", "Imponibile3",      T_Nv2N, 134,8);
+  add_trc_field("TF", "Imposta3",         T_Nv2N, 142,7);
+  add_trc_field("TF", "Iva4",             T_N,    149,2);
+  add_trc_field("TF", "Imponibile4",      T_Nv2N, 151,8);
+  add_trc_field("TF", "Imposta4",         T_Nv2N, 159,7);
+  add_trc_field("TF", "CodcliGiro3",      T_X,    166,6);
+  add_trc_field("TF", "IvaOmag1",         T_N,    172,2);
+  add_trc_field("TF", "ImponibileOmag1",  T_Nv2N, 174,6);
+  add_trc_field("TF", "ImpostaOmag1",     T_Nv2N, 180,5);
+  add_trc_field("TF", "IvaOmag2",         T_N,    185,2);
+  add_trc_field("TF", "ImponibileOmag2",  T_Nv2N, 187,6);
+  add_trc_field("TF", "ImpostaOmag2",     T_Nv2N, 193,5);
+  add_trc_field("TF", "DataEmissione",    T_X,    198,6);
+  add_trc_field("TF", "PagamentoCarta",   T_X,    204,1);
+ 
+  //Tipo record RF
+  //--------------
+  add_trc_field("RF", "TipoRecord",       T_X,    1,  2);   //x
+  add_trc_field("RF", "CodiceTerminale",  T_N,    3,  3);   //x
+  add_trc_field("RF", RDOC_NDOC,          T_N,    6,  5);  //x
+  add_trc_field("RF", DOC_DATADOC,        T_X,    11, 6);   //x testata
+  add_trc_field("RF", DOC_CODCF,          T_X,    17, 6);   //x testata
+  add_trc_field("RF", DOC_CODCFFATT,      T_X,    23, 6);   //x testata
+  add_trc_field("RF", DOC_TIPODOC,        T_X,    29, 1);   //x testata
+  add_trc_field("RF", RDOC_CODART,        T_X,    30, 5);   //x
+  add_trc_field("RF", "TipoCessione",     T_X,    35, 1);
+  add_trc_field("RF", "Qta[int]",         T_N,    36, 5);   //x
+  add_trc_field("RF", "Qta[dec]",         T_N,    41, 2);   //x
+  add_trc_field("RF", "Sconto1",          T_2Nv2N,43, 4);
+  add_trc_field("RF", "Sconto2",          T_2Nv2N,47, 4);
+  add_trc_field("RF", "Sconto3",          T_2Nv2N,51, 4);
+  add_trc_field("RF", "ScontoLibero",     T_2Nv2N,55, 4);
+  add_trc_field("RF", RDOC_PREZZO,        T_Nv3N, 59, 7); //x forse PREZZOL ?
+  add_trc_field("RF", "TotaleRiga",       T_Nv3N, 66, 8);
+  add_trc_field("RF", "TotaleSconto",     T_Nv3N, 74, 8);
+  add_trc_field("RF", "AliquotaIva",      T_N,    82, 2); //noi abbiamo il codice
+  add_trc_field("RF", RDOC_UMQTA,         T_X,    84, 2); //x
+  add_trc_field("RF", "PrezzoScontato",   T_Nv3N, 86, 7);
+  add_trc_field("RF", "Fascia",           T_X,    93, 1);
+  add_trc_field("RF", "ScontoFascia",     T_2N,   94, 2);
+  add_trc_field("RF", "NonUsato",         T_N,    96, 2);
+  add_trc_field("RF", "CodcliGiro3",      T_X,    98, 6);
+  add_trc_field("RF", "CodiceLotto",      T_X,    104,10);  //noi lo leghiamo all'articolo
+
+
+  load_file(filename);
+}
+
 //------------------------------------------------------------------------------------
 //Clienti
 //-------
@@ -264,9 +365,9 @@ TEsporta_carico_recordset::TEsporta_carico_recordset(int rec_length)
 TEsporta_decodart_recordset::TEsporta_decodart_recordset(int rec_length)
 : THardy_recordset(rec_length)
 {
-  add_field("CodiceArticolo",  T_X,    1,  5);  //x
+  add_field(CODCORR_CODART,     T_X,    1,  5);  //x
-  add_field("CodiceCliente",   T_NS,   6,  6);  //x
+  add_field(CODCORR_CODCF,      T_NS,   6,  6);  //x
-  add_field("CodiceArticolo2", T_X,    12, 6);  //x
+  add_field(CODCORR_CODARTALT,  T_X,    12, 6);  //x
 }
 
 
@@ -307,6 +408,12 @@ TEsporta_pagamenti_recordset::TEsporta_pagamenti_recordset(int rec_length)
 
 
 
+/////////////////////////////////////////////////////////////
+//	Recordset specifici per i dati da trasferire INPUT
+/////////////////////////////////////////////////////////////
+
+
+
 /////////////////////////////////////////////////////////////
 //	Metodi di utility
 /////////////////////////////////////////////////////////////

ha/halib.h

@@ -57,11 +57,19 @@ public:
 #define T_X "X"
 #define T_NS "NS"
 
+
+//------------------------------------------------------------
+//  Hardy_recordset: serve per l'OUTPUT
+//------------------------------------------------------------
+
 class THardy_recordset : public TAS400_recordset
 {
 protected:
+  //esportazione
   void add_field(const char* name, const char* tipo, int pos, int len);
   void insert_field(const char* name, const char* tipo, int pos, int len);
+  //importazione
+  void add_trc_field(const char* tr, const char* name, const char* tipo, int pos, int len);
 
 public:
 	THardy_recordset(const int rec_length);
@@ -186,6 +194,21 @@ public:
   TEsporta_pagamenti_recordset(int rec_length = 25);
 };
 
+
+//------------------------------------------------------------
+//  Hardy_upload_recordset: serve per l'INPUT
+//------------------------------------------------------------
+class THardy_upload_recordset : public THardy_recordset
+{
+public:
+  THardy_upload_recordset(const TFilename& filename);
+};
+
+
+
+
+
+
 //----------------------------------------------------------
 //metodi di utility
 //----------------------------------------------------------

ha/hamenu.men

@@ -10,4 +10,5 @@ Item_04 = "Generazione NAC", "ha0 -4", ""
 Item_05 = "Elaborazione contratti premio pareggiati", "ha0 -3", "F"
 Item_06 = "Gestione listini", "ve2 -4", ""
 Item_07 = "Stampa listini", "ve3 -4 L", ""
-Item_08 = "Esportazione archivi formato txt", "ha1 -0", "F"
+Item_08 = "Esportazione archivi formato txt", "ha1 -1", "F"
+Item_09 = "Importazione dati da file", "ha1 -2", "F"