root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 no-patch

Browse Source 
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.
This commit is contained in:
Simone Palacino 2020-09-02 18:00:43 +02:00
parent 75581829aa
commit 1119474767
3 changed files with 29 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ps/flexform_xml.cpp
View File

@ -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);

42
src/ps/ps6362100a.uml
View File

@ -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:"
END
RADIOBUTTON F_TIPODOC 64
BEGIN
PROMPT 6 6 "@bSelezionare tipo documento da esportare/importare"
ITEM "D|DDT"
ITEM "O|Ordini"
FLAG "Z"
PROMPT 5 10 "@bEstremi dei documenti da elaborare:"
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

4
src/ps/xml_element.h
View File

@ -89,8 +89,8 @@ class TXML_tag
public:
TString _name;
bool _opener;
bool _closed;
vector<pair<TString, TString>> _attributes; // Vector perche' ho bisogno di mantenere l'ordine
bool _closed; // Tag singoli (<xxxxx />).
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;