Patch level : 12.0 no-patch

Files correlati     : ps6362.exe ps6362100a.msk
Commento            :
- Corretta importazione righe ordine. Andava a leggere nuovamente il 'figlio' datarow come se fosse una riga.
- Sistemata maschera.

src/ps/flexform_xml.cpp

@@ -319,16 +319,19 @@ bool TFlexform_xml_ordini::create_doc()
   vector<TXML_element*> childs_ordinit = or_ordinit->get_childs();
   CHECK_CONDXML_OR_RETURNFALSE(!childs_ordinit.empty(), "non e' presente alcun ordine.");
 
-  for (auto child : childs_ordinit)
+  auto it_child = childs_ordinit.begin();
+  if (childs_ordinit.size() > 1)  // Ci sono effettivamente dei OR_ORDINIR (almeno 1) oltre al datarow (informazioni di testata ordine).
+    ++it_child;
+  for (; it_child != childs_ordinit.end(); ++it_child)
   {
-    const TXML_element& row       = *child;
+    const TXML_element& row       = *(*it_child);
     const TXML_element& datarow_r = *row.get_childs()[0];
 
     const TString& ind_tiporiga       = datarow_r.get_val_child("ind_tiporiga");
     const TString& cod_art            = datarow_r.get_val_child("cod_art");
     const TString& des_articolo_riga  = datarow_r.get_val_child("des_articolo_riga");
     const TString& qta_merce          = datarow_r.get_val_child("qta_merce");
-    const TString& dat_evas_riga      = datarow_r.get_val_child("dat_evas_riga");
+    const TDate    dat_evas_riga      = TDate(datarow_r.get_val_child("dat_evas_riga"));
     const TString& des_campo_libero6  = datarow_r.get_val_child("des_campo_libero6");
 
     TString cod_art_major = flexart2codart(cod_art);

src/ps/ps6362100a.uml

@@ -12,14 +12,22 @@ ENDPAGE
 
 PAGE "Configurazione Esportazione Major-Flexform" 0 2 0 0
 
+RADIOBUTTON F_TIPODOC 64
+BEGIN
+  PROMPT 6 1 "@bSelezionare la funzione"
+  ITEM "O|Importazione Ordini"
+  ITEM "D|Esportazione Bolle"
+  FLAG ""
+END
+
 GROUPBOX DLG_NULL 78 5
 BEGIN
-  PROMPT 1 0 "@bPercorso salvataggio file"
+  PROMPT 1 5 "@bPercorso salvataggio file"
 END
 
 STRING F_FLDDEST 250 50
 BEGIN
-  PROMPT 2 1 "Cartella di destinazione"
+  PROMPT 2 6 "Cartella di destinazione"
   DSELECT
   FLAGS ""
   CHECKTYPE REQUIRED
@@ -27,39 +35,31 @@ END
 
 BOOLEAN F_SUBFLD
 BEGIN
-  PROMPT 2 2 "Crea sottocartella con data odierna"
+  PROMPT 2 7 "Crea sottocartella con data odierna"
   FLAGS ""
 END
 
 STRING F_FLDSOURCE 250 50
 BEGIN
-  PROMPT 2 3 "Cartella caricamento    "
+  PROMPT 2 8 "Cartella caricamento    "
   DSELECT
   FLAGS ""
   CHECKTYPE REQUIRED
 END
 
-GROUPBOX DLG_NULL 66 12
+GROUPBOX DLG_NULL 66 6
 BEGIN
-   PROMPT 5 5 "@bEstremi dei documenti da elaborare:"
+   PROMPT 5 10 "@bEstremi dei documenti da elaborare:"
-END
-
-RADIOBUTTON F_TIPODOC 64
-BEGIN
-  PROMPT 6 6 "@bSelezionare tipo documento da esportare/importare"
-  ITEM "D|DDT"
-  ITEM "O|Ordini"
-  FLAG "Z"
 END
 
 GROUPBOX DLG_NULL 25 4
 BEGIN
-  PROMPT 6 9 "@bSelezionare cod. numerazione"
+  PROMPT 6 11 "@bSelezionare cod. numerazione"
 END
 
 STRING F_NUMDDT 4
 BEGIN
-  PROMPT 7 10 "DDT   "
+  PROMPT 7 12 "DDT   "
   FLAG "UZ"
   USE %NUM
   INPUT CODTAB F_NUMDDT
@@ -71,7 +71,7 @@ END
 
 STRING F_NUMORD 4
 BEGIN
-  PROMPT 7 11 "ORDINI"
+  PROMPT 7 13 "ORDINI"
   FLAG "UZD"
   USE %NUM
   INPUT CODTAB F_NUMORD
@@ -83,12 +83,12 @@ END
 
 STRING F_ANNO_ELAB 4
 BEGIN
-  PROMPT 32 9 "Anno elaborazione"
+  PROMPT 32 11 "Anno elaborazione"
 END
 
 NUMBER F_CODCF 6
 BEGIN
-  PROMPT 32 10 "cod. cliente  "
+  PROMPT 32 12 "cod. cliente  "
   USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_CODCF
@@ -100,7 +100,7 @@ END
 
 NUMBER F_NUMDDT_DA 7
 BEGIN
-  PROMPT 32 11 "da num. doc. "
+  PROMPT 32 13 "da num. doc. "
   USE LF_DOC
     JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC
     JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF
@@ -117,7 +117,7 @@ END
 
 NUMBER F_NUMDDT_A 7
 BEGIN
-  PROMPT 57 11 "a "
+  PROMPT 57 13 "a "
   COPY USE F_NUMDDT_DA
   INPUT PROVV "D"
   INPUT ANNO F_ANNO_ELAB SELECT

src/ps/xml_element.h

@@ -89,8 +89,8 @@ class TXML_tag
 public:
   TString                         _name;
   bool                            _opener;
-  bool                            _closed;
+  bool                            _closed;      // Tag singoli (<xxxxx />).
-  vector<pair<TString, TString>>  _attributes;  // Vector perche' ho bisogno di mantenere l'ordine
+  vector<pair<TString, TString>>  _attributes;  // Vector perche' ho bisogno di mantenere l'ordine.
   TString                         _val;         // Tutto cio' che c'e' all'interno del tag.
   bool                            _info = false;