Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@20434 c028cbd2-c16b-5b4b-a496-9718f37d4682

ps/ps0398100.cpp

@@ -3,6 +3,7 @@
 #include <config.h>
 #include <defmask.h>
 #include <dongle.h>
+#include <execp.h>
 #include <lffiles.h>
 #include <modaut.h>
 #include <progind.h>
@@ -69,21 +70,21 @@ class TTrasferimento_ordini : public TSkeleton_application
 {
   TTrasferimento_ordini_mask*  _mask;
 
-  virtual bool check_autorization() const {return false;}
-  
 protected:
+  virtual bool check_autorization() const {return false;}
   virtual const char * extra_modules() const {return "ve";}
   virtual bool create();
-
+  virtual void main_loop();
-  bool ordine_gf(TTrasferimento_ordini_recordset& recset);
-  void elab_hd_ht(const TString& riga_txt, const int curr_nriga, TString& str);
-  void elab_hf(const TString& riga_txt, TConfig& curr_ini, const int curr_nriga, TLog_report& log, TString& ragsoc);
-  void elab_ro(const TString& riga_txt, TConfig& curr_ini, const int curr_nriga, TLog_report& log, TString& ho_note_generali);
-  void elab_ra(const TString& riga_txt, TConfig& curr_ini, const int curr_nriga, TLog_report& log);
-  bool elabora();
 
 public:
-  virtual void main_loop();
+  bool ordine_gf(TTrasferimento_ordini_recordset& recset);
+  void elab_hd_ht(const TString& riga_txt, const int curr_nriga, TString& str);
+  void elab_hf(const TString& riga_txt, const int curr_nriga, TConfig& curr_ini, TLog_report& log, TString& ragsoc);
+  void elab_ho(const TString& riga_txt, const int curr_nriga, TConfig& curr_ini, TLog_report& log, TString& ho_note_generali);
+  void elab_ra(const TString& riga_txt, const int curr_nriga, TConfig& curr_ini, TLog_report& log);
+  bool elabora_file_txt(TTrasferimento_ordini_recordset& recset, const TFilename& ini_fname, TLog_report& log);
+  bool sposta_file_elaborato(const TFilename& dst_file, const TFilename& curr_fname, TLog_report& log);
+  bool elabora();
 };
 
 
@@ -113,7 +114,8 @@ bool TTrasferimento_ordini::ordine_gf(TTrasferimento_ordini_recordset& recset)
   return is_ordine_gf;
 }
 
-void TTrasferimento_ordini::elab_hf(const TString& riga_txt, TConfig& curr_ini, const int curr_nriga, TLog_report& log, TString& ragsoc)
+void TTrasferimento_ordini::elab_hf(const TString& riga_txt, const int curr_nriga, 
+                                    TConfig& curr_ini, TLog_report& log, TString& ragsoc)
 {
   switch (curr_nriga)
   {
@@ -137,8 +139,10 @@ void TTrasferimento_ordini::elab_hf(const TString& riga_txt, TConfig& curr_ini,
       }
       else
       {
-        curr_ini.set(DOC_TIPOCF, "C");
+        TString4 head_paragrafo;
-        curr_ini.set(DOC_CODCF, codcf);
+        head_paragrafo << LF_DOC;
+        curr_ini.set(DOC_TIPOCF, "C", head_paragrafo);
+        curr_ini.set(DOC_CODCF, codcf, head_paragrafo);
       }
     }
     break;
@@ -148,26 +152,17 @@ void TTrasferimento_ordini::elab_hf(const TString& riga_txt, TConfig& curr_ini,
 }
 
 
-void TTrasferimento_ordini::elab_hd_ht(const TString& riga_txt, const int curr_nriga, TString& str)
+void TTrasferimento_ordini::elab_hd_ht(const TString& riga_txt, const int curr_nriga, 
+                                       TString& str)
 {
   if (riga_txt.full())
   {
     switch (curr_nriga)
     {
     case 3:
-      str << riga_txt; //indirizzo
-      str.trim();
-      str << "\\n";
-      break;
     case 4:
-      str << " " << riga_txt.mid(5, 10);  //cap
+      str << riga_txt;
-      str.trim();
+      str.strip_double_spaces();
-      str << " " << riga_txt.mid(15, 30); //città
-      str.trim();
-      str << " " << riga_txt.mid(45, 30); //provincia
-      str.trim();
-      str << " " << riga_txt.mid(75, 30); //nazione
-      str.trim();
       str << "\\n";
       break;
 
@@ -178,7 +173,8 @@ void TTrasferimento_ordini::elab_hd_ht(const TString& riga_txt, const int curr_n
 }
 
 
-void TTrasferimento_ordini::elab_ro(const TString& riga_txt, TConfig& curr_ini, const int curr_nriga, TLog_report& log, TString& ho_note_generali)
+void TTrasferimento_ordini::elab_ho(const TString& riga_txt, const int curr_nriga,
+                                    TConfig& curr_ini, TLog_report& log, TString& ho_note_generali)
 {
   switch (curr_nriga)
   {
@@ -197,12 +193,14 @@ void TTrasferimento_ordini::elab_ro(const TString& riga_txt, TConfig& curr_ini,
         msg.format("Data documento non valida: %s", (const char*)str_data);
         log.log(2, msg);
       }
-      curr_ini.set(DOC_DATADOC, datadoc);
+      TString4 head_paragrafo;
+      head_paragrafo << LF_DOC;
+      curr_ini.set(DOC_DATADOC, datadoc, head_paragrafo);
     }
     break;
   case 4: //altre note ordine (da mettere in DOC_NOTE)
     {
-      ho_note_generali = riga_txt.mid(5);
+      ho_note_generali << riga_txt.mid(5);
       ho_note_generali.trim();
     }
     break;
@@ -217,7 +215,8 @@ void TTrasferimento_ordini::elab_ro(const TString& riga_txt, TConfig& curr_ini,
 }
 
 
-void TTrasferimento_ordini::elab_ra(const TString& riga_txt, TConfig& curr_ini, const int curr_nriga, TLog_report& log)
+void TTrasferimento_ordini::elab_ra(const TString& riga_txt, const int curr_nriga,
+                                    TConfig& curr_ini, TLog_report& log)
 {
   TToken_string riga_ord(riga_txt.mid(5), ';');
   const TString codart = riga_ord.get();
@@ -230,6 +229,7 @@ void TTrasferimento_ordini::elab_ra(const TString& riga_txt, TConfig& curr_ini,
   row_paragrafo << LF_RIGHEDOC << ',' << curr_nriga;
   curr_ini.set_paragraph(row_paragrafo);
   
+  curr_ini.set(RDOC_TIPORIGA, "01");
   //l'articolo deve esistere per stare in codartmag e codart;
   //se non esiste in anagrafica -> solo in codart con segnalazione
   //la desc riga sarà la desc articolo
@@ -260,7 +260,6 @@ void TTrasferimento_ordini::elab_ra(const TString& riga_txt, TConfig& curr_ini,
   curr_ini.set(RDOC_CODART, codart);
   curr_ini.set(RDOC_QTA, str_qta);
 
-
   const real prezzo = riga_ord.get();   //per adesso non ci va?
   //e per ultime le eventuali note
   const TString nota = riga_ord.get();
@@ -271,6 +270,144 @@ void TTrasferimento_ordini::elab_ra(const TString& riga_txt, TConfig& curr_ini,
   }
 }
 
+
+bool TTrasferimento_ordini::elabora_file_txt(TTrasferimento_ordini_recordset& recset, const TFilename& ini_fname,
+                                             TLog_report& log)
+{
+  //variabili da riempire ad ogni giro
+  TString4 curr_tiporiga;         //tipo riga in esame (HT...RA), ovvero sezione del file
+  int curr_nriga = 0;             //n riga della sezione in esame
+  TString ragsoc, piva;
+  TString hd_spedizione;          //questi stanno qui perchè valgono una volta per file .txt
+  TString ht_fatturazione;
+  TString ho_note_generali;
+
+  //creazione del file .ini di transazione
+  TConfig curr_ini(ini_fname);
+
+  curr_ini.set_paragraph("Transaction"); //setto il paragrafo [Transaction] del file ini
+  curr_ini.set("Action","INSERT");
+  curr_ini.set("Mode","");
+
+  //set_paragraph sulle testate (file 33, doc)
+  TString4 head_paragrafo;
+  head_paragrafo << LF_DOC;
+  curr_ini.set_paragraph(head_paragrafo);
+
+  TToken_string tipi_record("HF|HD|HT|HS|HO|RA");
+
+  //comincia il giro sulle righe del recordset
+  //va al contrario perchè se le righe non hanno articoli di GF -> salta il tutto
+  for (bool ok = recset.move_first(); ok; ok = recset.move_next())
+  {
+    //riga corrente del file di input
+    const TString& riga_txt = recset.get(0L).as_string();
+
+    //gestione cambio riga e cambio sezione
+    const TString& tr = riga_txt.left(2);
+    if (tipi_record.get_pos(tr) < 0)
+    {
+      if (curr_tiporiga == "HO")
+      {
+        //righe del cazzo senza capo; in teoria possono appartenere solo al campo NOTE di HO (in teoria, ovviamente)
+        TString riga_del_cazzo = riga_txt;
+        riga_del_cazzo.trim();
+        ho_note_generali << " " << riga_del_cazzo;
+      }
+      continue;
+    }
+
+    if (tr != curr_tiporiga)
+    {
+      curr_tiporiga = tr;
+      curr_nriga = 1;
+    }
+    else
+      curr_nriga ++;
+
+    //trattazione delle varie sezioni
+    // HS (va saltata)
+    if (curr_tiporiga == "HS")
+      continue;
+
+    // HF
+    if (curr_tiporiga == "HF")
+      elab_hf(riga_txt, curr_nriga, curr_ini, log, ragsoc);
+
+    // HD
+    if (curr_tiporiga == "HD")
+      elab_hd_ht(riga_txt.mid(5, 100), curr_nriga, hd_spedizione);  //(note spedizione)
+
+    // HT
+    if (curr_tiporiga == "HT")
+      elab_hd_ht(riga_txt.mid(5, 100), curr_nriga, ht_fatturazione);  //(note fatturazione)
+
+    // HO
+    if (curr_tiporiga == "HO")
+      elab_ho(riga_txt, curr_nriga, curr_ini, log, ho_note_generali);
+
+    // RA
+    //gestione delle righe ordine
+    if (curr_tiporiga == "RA")
+      elab_ra(riga_txt, curr_nriga, curr_ini, log);
+
+  } //for(bool ok=recset.move.frst...
+
+  //scrive sul campo NOTE della testata quello che sa delle note spedizione e fatturazione
+  TString note;
+  note << '"';
+
+  if (hd_spedizione.full())
+    note << "Note Spedizione: " << hd_spedizione << "\\n";
+  if (ht_fatturazione.full())
+    note << "Note Fatturazione: " << ht_fatturazione << "\\n";
+  if (ho_note_generali.full())
+    note << "Note generali: " << ho_note_generali;
+
+  note << '"';
+  curr_ini.set(DOC_NOTE, note, head_paragrafo);
+
+  //qui ci va il lancio di ve0 con l'ini generato
+  curr_ini.set(DOC_PROVV, "D");
+  curr_ini.set(DOC_CODNUM, _mask->get(F_CODNUM));
+  const TDate datadoc = curr_ini.get(DOC_DATADOC);
+  curr_ini.set(DOC_ANNO, datadoc.year());
+  curr_ini.set(DOC_TIPODOC, _mask->get(F_TIPODOC));
+  curr_ini.set(DOC_STATO, 1);
+
+  return true;
+}
+
+bool TTrasferimento_ordini::sposta_file_elaborato(const TFilename& dst_file, const TFilename& curr_fname, 
+                                                  TLog_report& log)
+{
+  bool copia_riuscita = fcopy(curr_fname, dst_file);
+  if (copia_riuscita)
+  {
+    const long src_size = fsize(curr_fname);
+    const long dst_size = fsize(dst_file);
+    copia_riuscita = src_size == dst_size;
+  }
+  if (!copia_riuscita)
+  {
+    TString msg;
+    msg.format("Impossibile copiare il file %s !", curr_fname.name());
+    log.log(2, msg);
+  }
+  else  //se va tutto bene elimina il file dalla directory di origine
+  {
+    const bool src_file_removed = remove_file(curr_fname);
+    if (!src_file_removed)
+    {
+      TString msg;
+      msg.format("Impossibile eliminare il file origine %s ", curr_fname.name());
+      log.log(1, msg);
+    }
+  }
+  return copia_riuscita;
+}
+
+
 bool TTrasferimento_ordini::elabora()
 {
   TFilename src_files = _mask->get(F_PATH_SRC);
@@ -307,8 +444,10 @@ bool TTrasferimento_ordini::elabora()
 
     //file in formato filename (è l'ordine corrente da elaborare)
     const TFilename curr_fname = src_files_list.row(i);
+
     //creazione del recordset associato al file
     TTrasferimento_ordini_recordset recset(curr_fname);
+
     //se il file non è di GF (si vede dal codart) viene saltato! ohp!
     if (!ordine_gf(recset))
     {
@@ -323,87 +462,29 @@ bool TTrasferimento_ordini::elabora()
     msg.format("Elaborazione file: %s", (const char*)curr_fname.name());
     log.log(0, msg);
 
-    //variabili da riempire ad ogni giro
-    TString4 curr_tiporiga;         //tipo riga in esame (HT...RA), ovvero sezione del file
-    int curr_nriga = 0;             //n riga della sezione in esame
-    TString ragsoc, piva;
-    TString hd_spedizione;          //questi stanno qui perchè valgono una volta per file .txt
-    TString ht_fatturazione;
-    TString ho_note_generali;
-
     //per ogni ordine in formato .txt genera un file.ini che andrà poi documentizzato
+    //file .ini
     TFilename ini_fname = tmp;
     ini_fname.add(format("ORD%05ld.ini", i));
-    TConfig curr_ini(ini_fname);
+    //elaborazione del file .txt per riempireil .ini della successiva elaborazione differita
+    bool elaborazione_ok = elabora_file_txt(recset, ini_fname, log);
 
-    curr_ini.set_paragraph("Transaction"); //setto il paragrafo [Transaction] del file ini
+    //elaborazione interattiva dell'ordine dal .ini
-  
+    if (elaborazione_ok)
-    curr_ini.set("Action","INSERT");
-    curr_ini.set("Mode","");
-
-    //set_paragraph sulle testate (file 33, doc)
-    TString8 head_paragrafo;
-    head_paragrafo << LF_DOC;
-    curr_ini.set_paragraph(head_paragrafo);
-
-    //comincia il giro sulle righe del recordset
-    //va al contrario perchè se le righe non hanno articoli di GF -> salta il tutto
-    for (bool ok = recset.move_first(); ok; ok = recset.move_next())
     {
-      //riga corrente del file di input
+		  TString commandline;
-      const TString& riga_txt = recset.get(0L).as_string();
+		  commandline.format("ve0 -0 /i%s",(const char*)ini_fname);
-      //gestione cambio riga e cambio sezione
+		  TExternal_app ve(commandline);
-      const TString& tr = riga_txt.left(2);
+		  ve.run();
-      if (tr != curr_tiporiga)
-      {
-        curr_tiporiga = tr;
-        curr_nriga = 1;
     }
-      else
-        curr_nriga ++;
-
-      //trattazione delle varie sezioni
-      // HF
-      if (curr_tiporiga == "HF")
-        elab_hf(riga_txt, curr_ini, curr_nriga, log, ragsoc);
-
-      // HD
-      if (curr_tiporiga == "HD")
-        elab_hd_ht(riga_txt.mid(5, 100), curr_nriga, hd_spedizione);  //(note spedizione)
-
-      // HT
-      if (curr_tiporiga == "HT")
-        elab_hd_ht(riga_txt.mid(5, 100), curr_nriga, ht_fatturazione);  //(note fatturazione)
-
-      // HO
-      if (curr_tiporiga == "HO")
-        elab_ro(riga_txt, curr_ini, curr_nriga, log, ho_note_generali);
-
-      // RA
-      //gestione delle righe ordine
-      if (curr_tiporiga == "RA")
-        elab_ra(riga_txt, curr_ini, curr_nriga, log);
-
-
-    } //for(bool ok=recset.move.frst...
-
-    //scrive sul campo NOTE della testata quello che sa delle note spedizione e fatturazione
-    TString note;
-    note << '"';
-
-    if (hd_spedizione.full())
-      note << "Note Spedizione: " << hd_spedizione << "\\n";
-    if (ht_fatturazione.full())
-      note << "Note Fatturazione: " << ht_fatturazione << "\\n";
-    if (ho_note_generali.full())
-      note << "Note generali: " << ho_note_generali;
-
-    note << '"';
-    curr_ini.set(DOC_NOTE, note, head_paragrafo);
-
-    //qui ci va il lancio di ve0 con l'ini generato
 
     //qui ci va lo spostamento del file elaborato se ve0 ha funzionato correttamente
+    TFilename dst_file = dst_path;
+    dst_file.add(curr_fname.name());
+    const bool copia_riuscita = sposta_file_elaborato(dst_file, curr_fname, log);
+
+
+
   } //for(int i...
 
   message_box(TR("Acquisizione ordini completata"));

ps/ps0398100a.h

@@ -1,2 +1,6 @@
 #define F_PATH_SRC    101
 #define F_PATH_DST    102
+#define F_CODNUM      104
+#define F_DESNUM      105
+#define F_TIPODOC     106
+#define F_DESTIPODOC  107

ps/ps0398100a.uml

@@ -1,10 +1,15 @@
 #include "ps0398100a.h"
 
-PAGE "Trasferimento Ordini Web->Campo" -1 -1 78 5
+PAGE "Trasferimento Ordini Web->Campo" -1 -1 78 10
+
+GROUPBOX DLG_NULL 76 4
+BEGIN
+  PROMPT 1 1 "@bPath"
+END
 
 STRING F_PATH_SRC 255 50
 BEGIN
-  PROMPT 1 1 "Cartella origine      "
+  PROMPT 2 2 "Cartella origine      "
   DSELECT
   FLAGS "M"
   CHECKTYPE REQUIRED
@@ -13,13 +18,68 @@ END
 
 STRING F_PATH_DST 255 50
 BEGIN
-  PROMPT 1 2 "Cartella destinazione "
+  PROMPT 2 3 "Cartella destinazione "
   DSELECT
   FLAGS "M"
   CHECKTYPE REQUIRED
   WARNING "Selezionare una cartella valida!"
 END
 
+GROUPBOX DLG_NULL 76 4
+BEGIN
+  PROMPT 1 5 "@bParametri documenti da generare"
+END
+
+STRING F_CODNUM 4
+BEGIN
+  PROMPT 2 6 "Numerazione "
+  HELP "Codice numerazione"
+  USE %NUM
+  INPUT CODTAB F_CODNUM
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODNUM CODTAB
+  OUTPUT F_DESNUM S0
+  CHECKTYPE REQUIRED
+  FLAG "UPA"
+  WARNING "Numerazione assente"
+END
+
+STRING F_DESNUM 50
+BEGIN
+  PROMPT 24 6 ""
+  HELP "Descrizione numerazione"
+  USE %NUM KEY 2
+  INPUT S0 F_DESNUM
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODNUM
+END
+
+STRING F_TIPODOC 4
+BEGIN
+  PROMPT 2 7 "Tipo        "
+  HELP "Codice tipo documento"
+  USE %TIP
+  INPUT CODTAB F_TIPODOC
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_TIPODOC CODTAB
+  OUTPUT F_DESTIPODOC S0
+  CHECKTYPE REQUIRED
+  FLAG "UP"
+END
+
+STRING F_DESTIPODOC 50
+BEGIN
+  PROMPT 24 7 ""
+  HELP "Descrizione tipo documento"
+  USE %TIP KEY 2
+  INPUT S0 F_DESTIPODOC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_TIPODOC
+END
 
 STRING DLG_PROFILE 50
 BEGIN