From 1f7ef4ae4834660c546fe0f3bcf01f88e7c079c7 Mon Sep 17 00:00:00 2001 From: Alessandro Bonazzi Date: Mon, 17 May 2021 21:13:37 +0200 Subject: [PATCH] Patch level : 12.0 1059 Files correlati : f135.dir f135.trr in0.exe in0200a.msk in0600a.msk in0700a.msk intbird.msk Commento : Aggiornamento intra fase 3 Interno : Inserimento rettifiche e riepiloghi e invii Mancano stampe di controllo --- src/in/f135.dir | 2 +- src/in/f135.trr | 36 +++++----- src/in/in0200.cpp | 22 ++++--- src/in/in0200a.h | 1 + src/in/in0200a.uml | 12 +++- src/in/in0600a.uml | 2 +- src/in/in0700.cpp | 52 +++++++++------ src/in/in0700a.h | 21 ++++-- src/in/in0700a.uml | 161 ++++++++++++++++++++++++++++++++------------- src/in/inlib01.h | 1 + src/in/intbird.h | 1 + src/in/intbird.uml | 2 +- 12 files changed, 209 insertions(+), 104 deletions(-) diff --git a/src/in/f135.dir b/src/in/f135.dir index be7a7478a..fd25308b9 100755 --- a/src/in/f135.dir +++ b/src/in/f135.dir @@ -1,3 +1,3 @@ 135 0 -$rieprett|1|1|174|0|Riepiloghi e rettifiche INTRA||| +$rieprett|0|0|185|0|Riepiloghi e rettifiche INTRA||| diff --git a/src/in/f135.trr b/src/in/f135.trr index 84ecf98a2..cdb52e920 100755 --- a/src/in/f135.trr +++ b/src/in/f135.trr @@ -1,5 +1,5 @@ 135 -30 +32 SEZIONE|2|1|0|<1> Beni, <2> Rettifiche beni, <3> Servizi, <4> Rettifiche servizi TIPO|1|1|0|cquisti o essioni , rettifiche acquisti o cessioni ANNO|2|4|0|Anno @@ -7,29 +7,31 @@ PERIODO|9|2|0|Periodo (Mese[1,12] / Trimestre[1,4] / Anno [1.,1]) NUMRIG|3|7|0|Numero riga STATO|1|2|0|Codice ISO dello Stato CEE PIVA|1|13|0|Partita IVA Cliente/Fornitore -NATURA|1|1|0|Natura della transazione -NOMENCL|1|8|0|Nomenclatura combinata -CONSEGNA|1|3|0|Condizioni di consegna -TRASPORTO|2|1|0|Tipo di trasporto [1,9] -PAESE|1|2|0|Paese di destinazione/provenienza -PAESEORIG|1|2|0|Paese d'origine (solo Acquisti) -PROV|1|2|0|Provincia d'origine/destinazione +NATURA|1|1|0|Natura della transazione (Benii) +NOMENCL|1|8|0|Nomenclatura combinata (Benii) +CONSEGNA|1|3|0|Condizioni di consegna (Benii) +TRASPORTO|2|1|0|Tipo di trasporto [1,9] (Benii) +PAESE|1|2|0|Paese di destinazione/provenienza (Benii) +PAESEORIG|1|2|0|Paese d'origine (solo Acquisti) (Benii) +PROV|1|2|0|Provincia d'origine/destinazione (Benii) AMMLIRE|4|18|2|Ammontare in lire -AMMVALUTA|4|18|3|Ammontare in valuta -CODVAL|1|3|0|Codice Valuta -VALSTAT|4|18|2|Valore statistico -MASSAKG|4|18|5|Massa in Kilogrammi -MASSAUMS|4|18|5|Massa in unita' supplementare +AMMVALUTA|4|18|3|Ammontare in valuta (Benii) +CODVAL|1|3|0|Codice Valuta (Benii) +VALSTAT|4|18|2|Valore statistico (Benii) +MASSAKG|4|18|5|Massa in Kilogrammi (Benii) +MASSAUMS|4|18|5|Massa in unita' supplementare (Benii) ANNORETT|6|4|0|Anno rettificato PERETT|9|2|0|Periodo rettificato NUMRETT|3|7|0|Riga rettificata SEGNORETT|1|1|0|Segno della rettifica FREQUENZA|1|1|0|Frequenza (ensile, rimestrale, nnuale) NUMREG|3|7|0|Eventuale movimento di prima nota collegato -CODSERV|1|5|0|Codice prestazione di servizio -MODEROG|1|1|0|Modalità di erogazione mmediata o a più riprese -MODINCPAG|1|1|0|Modalità di incasso onifico, ccredito o Altro -ISOINCPAG|1|2|0|Codice Iso Paese di pagamento +PROTEL|3|6|0|Protocollo elenco da rettificare (Servizi) +NUMRIGEL|3|5|0|NUmero riga elenco da rettificare (Servizi) +CODSERV|1|5|0|Codice prestazione di servizi (Servizi) +MODEROG|1|1|0|Modalità di erogazione mmediata o a più riprese (Servizi) +MODINCPAG|1|1|0|Modalità di incasso onifico, ccredito o Altro (Servizi) +ISOINCPAG|1|2|0|Codice Iso Paese di pagamento (Servizi) 2 ANNO+PERIODO+NUMRIG| ANNO+PERIODO+TIPO+SEZIONE+NUMRIG|X diff --git a/src/in/in0200.cpp b/src/in/in0200.cpp index f2dc6bc22..bfc19cb9a 100755 --- a/src/in/in0200.cpp +++ b/src/in/in0200.cpp @@ -239,12 +239,10 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic) break; case 4: { - const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm()); - - put(ditta.get(NDT_UFFDOG), 29, 6); + put(ic._uffdog, 29, 6); put(rec.get(RIEPINTRA_ANNORETT).right(2), 35, 2, "RZ"); - // put(protocollo rettifica, 37, 6, "RZ"); - // put(progressivo rettifica, 43, 5, "RZ"); + put(rec.get(RIEPINTRA_PROTEL), 37, 6, "RZ"); + put(rec.get(RIEPINTRA_NUMRIGEL), 43, 5, "RZ"); put(rec.get(RIEPINTRA_STATO), 48, 2); put(rec.get(RIEPINTRA_PIVA), 50, 12); @@ -327,12 +325,10 @@ void TRecord_intra::put(const TRectype& rec, TIntra_context& ic) break; case 4: { - const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm()); - - put(ditta.get(NDT_UFFDOG), 29, 6); + put(ic._uffdog, 29, 6); put(rec.get(RIEPINTRA_ANNORETT).right(2), 35, 2, "RZ"); - // put(protocollo rettifica, 37, 6, "RZ"); - // put(progressivo rettifica, 43, 5, "RZ"); + put(rec.get(RIEPINTRA_PROTEL), 37, 6, "RZ"); + put(rec.get(RIEPINTRA_NUMRIGEL), 43, 5, "RZ"); put(rec.get(RIEPINTRA_STATO), 48, 2); put(rec.get(RIEPINTRA_PIVA), 50, 12); @@ -487,6 +483,7 @@ void TInvioIntra1_2_mask::genera(char tipointra, char tipo, bool reset) ic._freq = frequenza(ic._anno); ic._periodo = periodo(); ic._progr = get_long(F_NUMERO); + ic._uffdog = get(F_UFFDOG); TString8 codtab; codtab.format("%c%04d%02d", ic._tipo, ic._anno, ic._periodo); @@ -617,10 +614,15 @@ void TInvioIntra1_2_app::main_loop() open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_INTRA, LF_RINTRA, LF_RIEPRETT, 0); m.load(); m.set(F_PROGGIORN, 1); + + const TRectype& ditta = cache().get(LF_NDITTE, main_app().get_firm()); + + m.set(F_UFFDOG, ditta.get(NDT_UFFDOG)); while (m.run() == K_ENTER) { const char tip = m.tipo(); + if (tip == 'T') { m.genera('B', 'C', true); diff --git a/src/in/in0200a.h b/src/in/in0200a.h index 051e0145b..9b40e3f90 100755 --- a/src/in/in0200a.h +++ b/src/in/in0200a.h @@ -8,4 +8,5 @@ #define F_NUMERO 107 #define F_PROGGIORN 108 #define F_PATH 109 +#define F_UFFDOG 110 diff --git a/src/in/in0200a.uml b/src/in/in0200a.uml index 590a1c0e2..f4bd8679b 100755 --- a/src/in/in0200a.uml +++ b/src/in/in0200a.uml @@ -79,9 +79,19 @@ BEGIN CHECKTYPE REQUIRED END +STRING F_UFFDOG 6 +BEGIN + PROMPT 1 11 "Uff.doganale " + USE %UDD + INPUT CODTAB F_UFFDOG + DISPLAY "Ufficio" CODTAB + DISPLAY "Denominazione@50" S0 + OUTPUT F_UFFDOG CODTAB +END + STRING F_PATH 50 29 BEGIN - PROMPT 1 11 "Cartella " + PROMPT 1 13 "Cartella " DSELECT CHECKTYPE REQUIRED END diff --git a/src/in/in0600a.uml b/src/in/in0600a.uml index 334fdae40..e86ef0029 100755 --- a/src/in/in0600a.uml +++ b/src/in/in0600a.uml @@ -430,7 +430,7 @@ END STRING F_CODSERV 5 BEGIN - PROMPT 1 18 + PROMPT 1 18 "Codice servizio " FIELD CODSERV USE %CPA INPUT CODTAB F_CODSERV diff --git a/src/in/in0700.cpp b/src/in/in0700.cpp index af748b8f6..29141cd1d 100755 --- a/src/in/in0700.cpp +++ b/src/in/in0700.cpp @@ -79,17 +79,18 @@ bool TRettifiche_mask::on_field_event(TOperable_field& o, TField_event e, long j bool ok = cur.ok(); if (e == fe_modify && insert_mode()) { - for (short dlg = O_STATO; dlg <= O_NOMENCLATURA; dlg++) + for (short dlg = O_STATO; dlg <= O_STATOINCPAG; dlg++) { switch (dlg) { case O_NUM_RIG: // Non riportare il numero riga! + case O_SEZIONE: // Non riportare la sezione! break; default: - const int pos = id2pos(dlg); + const int pos = id2pos(dlg); - if (pos >= 0) - set(dlg + F_STATO - O_STATO, fld(pos).get()); + if (pos >= 0) + set(dlg + SPLIT, fld(pos).get()); break; } } @@ -150,7 +151,8 @@ protected: virtual TMask* get_mask(int) { return _msk; } virtual bool changing_mask(int mode) { return FALSE; } virtual bool user_destroy(); - virtual const char* get_next_key(); + virtual bool get_next_key(TToken_string& k); + virtual void init_query_mode(TMask& m); virtual void init_insert_mode(TMask& m); @@ -186,40 +188,48 @@ void TRettifiche_intra::init_mask(TMask& m, bool keyon) void TRettifiche_intra::init_query_mode(TMask& m) { - init_mask(m, FALSE); + init_mask(m, false); } void TRettifiche_intra::init_insert_mode(TMask& m) { - init_mask(m, TRUE); + init_mask(m, true); } void TRettifiche_intra::init_modify_mode(TMask& m) { - init_mask(m, TRUE); + init_mask(m, true); } -const char* TRettifiche_intra::get_next_key() -{ +bool TRettifiche_intra::get_next_key(TToken_string& k) +{ + if (_msk->get(F_ANNO).empty()) // || _msk->get(F_PARTITA_IVA).empty()) + return false; + + _msk->autosave(*_rel); + TRectype& curr = _rel->curr(); - curr.put("ANNO", _msk->anno()); + + curr.put("ANNO", _msk->anno()); curr.put("PERIODO", _msk->periodo_str()); + TCursor cur(_rel, "", 1, &curr, &curr); const long items = cur.items(); int last_row = 0; + if (items > 0) { - cur = items-1; + cur = items - 1; last_row = curr.get_int("NUMRIG"); - } - _str.cut(0); - _str.add(F_ANNO); - _str.add(curr.get("ANNO")); - _str.add(F_PERIODO_M); - _str.add(curr.get("PERIODO")); - _str.add(F_NUM_RIG); - _str.add(last_row+1); - return _str; + } + k.cut(0); + k.add(F_ANNO); + k.add(curr.get("ANNO")); + k.add(F_PERIODO_M); + k.add(curr.get("PERIODO")); + k.add(F_NUM_RIG); + k.add(last_row + 1); + return true; } int in0700(int argc, char* argv[]) diff --git a/src/in/in0700a.h b/src/in/in0700a.h index 2daa27a31..04d006e45 100755 --- a/src/in/in0700a.h +++ b/src/in/in0700a.h @@ -19,6 +19,10 @@ #define O_AMM_VALUTA 124 #define O_VALUTA 125 #define O_VALORE_STAT 126 +#define O_CODSERV 130 +#define O_MODEROG 131 +#define O_MODINCPAG 132 +#define O_STATOINCPAG 133 #define F_TIPO 203 #define F_ANNO 204 @@ -30,6 +34,7 @@ #define F_PARTITA_IVA 210 #define F_PARTITA_DESC 211 #define F_NUM_RIG 212 +#define F_SEZIONE 213 #define F_SEGNO 220 #define F_NATURA_TRANS 221 #define F_NOMENCLATURA 222 @@ -37,14 +42,18 @@ #define F_AMM_VALUTA 224 #define F_VALUTA 225 #define F_VALORE_STAT 226 -#define F_NUMREG 229 -#define F_SEZIONE 230 -#define F_CODSERV 231 -#define F_MODEROG 232 -#define F_MODINCPAG 233 -#define F_STATOINCPAG 234 +//#define F_NUMREG 229 + +#define F_CODSERV 230 +#define F_MODEROG 231 +#define F_MODINCPAG 232 +#define F_STATOINCPAG 233 +#define F_PROTEL 234 +#define F_NUMRIGEL 235 #define GR_CESSIONI 1 #define GR_ACQUISTI 2 #define GR_BENI 3 #define GR_SERVIZI 4 + +#define SPLIT (F_STATO - O_STATO) diff --git a/src/in/in0700a.uml b/src/in/in0700a.uml index 4b3d06b5c..0ccb2de1b 100755 --- a/src/in/in0700a.uml +++ b/src/in/in0700a.uml @@ -27,7 +27,7 @@ BEGIN FLAGS "D" END -GROUPBOX DLG_NULL 78 8 +GROUPBOX DLG_NULL 78 10 BEGIN PROMPT 1 3 "@bRiepilogo originale" END @@ -81,17 +81,17 @@ END LIST O_SEZIONE 1 7 BEGIN - PROMPT 46 4 "Sezione " + PROMPT 61 4 "Sezione " ITEM "1|Beni" MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@ ITEM "3|Servizi" MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@ KEY 1 - FLAGS "D" + FLAGS "DG" END NUMBER O_NUM_RIG 7 BEGIN - PROMPT 63 4 "Riga " - USE LF_RIEPRETT SELECT (SEZIONE==#OSEZIONE)&&(TIPO==#O_TIPO) + PROMPT 2 5 "Riga " + USE LF_RIEPRETT SELECT (SEZIONE==#O_SEZIONE)&&(TIPO==#O_TIPO) INPUT ANNO O_ANNO SELECT INPUT PERIODO O_PERIODO_M INPUT NUMRIG O_NUM_RIG @@ -111,8 +111,7 @@ BEGIN OUTPUT O_PERIODO_T PERIODO OUTPUT O_NUM_RIG NUMRIG OUTPUT O_STATO STATO - // OUTPUT O_TIPO TIPO - OUTPUT O_SEZIONE SEZIONE + OUTPUT O_ANNO ANNO OUTPUT O_PARTITA_IVA PIVA OUTPUT O_NATURA_TRANS NATURA OUTPUT O_NOMENCLATURA NOMENCL @@ -121,6 +120,7 @@ BEGIN OUTPUT F_VALUTA CODVAL OUTPUT O_AMM_VALUTA AMMVALUTA OUTPUT O_VALORE_STAT VALSTAT + OUTPUT O_CODSERV CODSERV CHECKTYPE SEARCH FIELD NUMRETT ADD RUN IN0 -5 @@ -128,7 +128,7 @@ END STRING O_STATO 2 BEGIN - PROMPT 2 5 "Stato CEE " + PROMPT 18 5 "Stato CEE " FLAGS "DU" END @@ -142,7 +142,7 @@ END STRING O_PARTITA_IVA 12 BEGIN - PROMPT 51 5 "Partita IVA " + PROMPT 54 5 "Partita IVA " FLAGS "D" USE LF_CLIFO KEY 5 INPUT TIPOCF O_TIPO_CF SELECT @@ -185,7 +185,7 @@ END STRING O_VALUTA 3 BEGIN - PROMPT 43 8 "in valuta " + PROMPT 42 8 "in valuta " FLAGS "D" END @@ -202,22 +202,77 @@ BEGIN FLAGS "D" END -GROUPBOX DLG_NULL 78 8 +STRING O_CODSERV 5 BEGIN - PROMPT 1 11 "@bRettifica" + PROMPT 2 10 "Codice servizio " + FLAGS "D" +END + +LIST O_MODEROG 1 15 +BEGIN + PROMPT 42 10 "Modalità Erogazione" + ITEM "I|Unica soluzione" + ITEM "R|Più soluzioni" + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 11 "Modalità di incasso " + GROUP GR_CESSIONI + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 2 11 "Modalità di pagamento" + GROUP GR_ACQUISTI + FLAGS "D" +END + +LIST O_MODINCPAG 1 9 +BEGIN + PROMPT 21 11 "" + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 42 11 "Stato di incasso " + GROUP GR_CESSIONI + FLAGS "D" +END + +TEXT DLG_NULL +BEGIN + PROMPT 42 11 "Stato di pagamento " + GROUP GR_ACQUISTI + FLAGS "D" +END + +STRING O_STATOINCPAG 2 +BEGIN + PROMPT 61 11 "" + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 11 +BEGIN + PROMPT 1 13 "@bRettifica" END LIST F_TIPO 1 10 BEGIN - PROMPT 2 12 "Tipo " + PROMPT 2 14 "Tipo " ITEM "A|Cessioni" MESSAGE "C",F_TIPO_CF|"C",O_TIPO|SHOW,GR_CESSIONI@|HIDE,GR_ACQUISTI@ ITEM "C|Acquisti" MESSAGE "F",F_TIPO_CF|"A",O_TIPO|HIDE,GR_CESSIONI@|SHOW,GR_ACQUISTI@ + KEY 1 FIELD TIPO END NUMBER F_ANNO 4 BEGIN - PROMPT 21 12 "Anno " + PROMPT 21 14 "Anno " FLAGS "AU" KEY 1 FIELD ANNO @@ -225,7 +280,7 @@ END LIST F_PERIODO_M 2 16 BEGIN - PROMPT 33 12 "Periodo " + PROMPT 33 14 "Periodo " FLAGS "M" FIELD PERIODO KEY 1 @@ -233,7 +288,7 @@ END LIST F_PERIODO_T 2 16 BEGIN - PROMPT 33 12 "Periodo " + PROMPT 33 14 "Periodo " ITEM "01|Gennaio-Marzo" ITEM "02|Aprile-Giugno" ITEM "03|Luglio-Settembre" @@ -244,7 +299,7 @@ END LIST F_PERIODO_A 2 16 BEGIN - PROMPT 33 12 "Periodo " + PROMPT 33 14 "Periodo " ITEM "01|Annuale" FIELD PERIODO KEY 1 @@ -252,19 +307,19 @@ END LIST F_SEZIONE 1 7 BEGIN - PROMPT 46 12 "Sezione" - ITEM "2|Beni" MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"2",O_SEZIONE - ITEM "4|Servizi" MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@|"4",O_SEZIONE + PROMPT 61 14 "Sezione " + ITEM "2|Beni" MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"1",O_SEZIONE + ITEM "4|Servizi" MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@|"3",O_SEZIONE KEY 1 FIELD SEZIONE END NUBER F_NUM_RIG 7 BEGIN - PROMPT 63 12 "Riga " - USE LF_RIEPRETT (SEZIONE=="2")||(SEZIONE=="4") - INPUT TIPO F_TIPO SELECT - INPUT ANNO F_ANNO SELECT + PROMPT 2 15 "Riga " + USE LF_RIEPRETT SELECT (TIPO==#F_TIPO)&&(ANNO==#F_ANNO)&&((SEZIONE=="2")||(SEZIONE=="4")) + INPUT TIPO F_TIPO + INPUT ANNO F_ANNO INPUT PERIODO F_PERIODO_M INPUT NUMRIG F_NUM_RIG DISPLAY "Tipo" TIPO @@ -284,7 +339,7 @@ END STRING F_STATO 2 BEGIN - PROMPT 2 13 "Stato CEE " + PROMPT 17 15 "Stato CEE " FLAGS "U" USE %SCE INPUT CODTAB F_STATO @@ -297,7 +352,7 @@ END LIST F_TIPO_CF 1 10 BEGIN - PROMPT 33 13 "" + PROMPT 33 15 "" ITEM "C|Cliente" ITEM "F|Fornitore" FLAGS "D" @@ -305,7 +360,7 @@ END STRING F_PARTITA_IVA 12 BEGIN - PROMPT 51 13 "Partita IVA " + PROMPT 53 15 "Partita IVA" USE LF_CLIFO KEY 5 INPUT TIPOCF F_TIPO_CF SELECT INPUT STATOPAIV F_STATO @@ -325,13 +380,13 @@ END STRING F_PARTITA_DESC 50 BEGIN - PROMPT 2 14 "Ragione sociale " + PROMPT 2 16 "Ragione sociale " FLAGS "D" END STRING F_NATURA_TRANS 1 BEGIN - PROMPT 2 15 "Natura transazione " + PROMPT 2 17 "Natura transazione " FLAGS "U" USE %INT INPUT CODTAB F_NATURA_TRANS @@ -344,7 +399,7 @@ END NUMBER F_NOMENCLATURA 8 BEGIN - PROMPT 28 15 "Nomenclatura combinata " + PROMPT 28 17 "Nomenclatura combinata " USE %NOC INPUT CODTAB F_NOMENCLATURA DISPLAY "Codice" CODTAB @@ -357,7 +412,7 @@ END LIST F_SEGNO 1 BEGIN - PROMPT 68 15 "Segno " + PROMPT 68 17 "Segno " ITEM "+|+" ITEM "-|-" FIELD SEGNORETT @@ -365,13 +420,13 @@ END CURRENCY F_AMMONTARE 18 BEGIN - PROMPT 2 16 "Ammontare " + PROMPT 2 18 "Ammontare " FIELD AMMLIRE END STRING F_VALUTA 3 BEGIN - PROMPT 43 16 "in valuta " + PROMPT 42 18 "in valuta " FLAGS "U" USE %VAL INPUT CODTAB F_VALUTA @@ -385,7 +440,7 @@ END CURRENCY F_AMM_VALUTA 18 BEGIN - PROMPT 59 16 "" + PROMPT 59 18 "" DRIVENBY F_VALUTA FIELD AMMVALUTA GROUP GR_BENI @@ -393,14 +448,14 @@ END CURRENCY F_VALORE_STAT 18 BEGIN - PROMPT 2 17 "Valore statistico " + PROMPT 2 19 "Valore statistico " FIELD VALSTAT GROUP GR_BENI END STRING F_CODSERV 5 BEGIN - PROMPT 1 18 + PROMPT 2 20 "Codice servizio " FIELD CODSERV USE %CPA INPUT CODTAB F_CODSERV @@ -412,7 +467,7 @@ END LIST F_MODEROG 1 15 BEGIN - PROMPT 1 19 "Modalità Erogazione" + PROMPT 42 20 "Modalità Erogazione" ITEM "I|Unica soluzione" ITEM "R|Più soluzioni" FIELD MODEROG @@ -421,21 +476,21 @@ END TEXT DLG_NULL BEGIN - PROMPT 1 20 "Modalità di incasso " + PROMPT 2 21 "Modalità di incasso " GROUP GR_CESSIONI GR_SERVIZI FLAGS "G" END TEXT DLG_NULL BEGIN - PROMPT 1 20 "Modalità di pagamento" + PROMPT 2 21 "Modalità di pagamento" GROUP GR_ACQUISTI GR_BENI FLAGS "G" END LIST F_MODINCPAG 1 9 BEGIN - PROMPT 20 20 "" + PROMPT 21 21 "" ITEM "B|Bonifico" ITEM "A|Accredito" ITEM "X|Altro" @@ -445,19 +500,19 @@ END TEXT DLG_NULL BEGIN - PROMPT 1 21 "Stato di incasso " + PROMPT 42 21 "Stato di incasso " GROUP GR_CESSIONI GR_SERVIZI END TEXT DLG_NULL BEGIN - PROMPT 1 21 "Stato di pagamento " + PROMPT 42 21 "Stato di pagamento " GROUP GR_ACQUISTI GR_BENI END STRING F_STATOINCPAG 2 BEGIN - PROMPT 20 21 "" + PROMPT 61 21 "" USE %SCE INPUT CODTAB F_STATOINCPAG DISPLAY "Codice" CODTAB @@ -467,12 +522,26 @@ BEGIN GROUP GR_SERVIZI END -NUMBER F_NUMREG 7 +NUMBER F_PROTEL 6 BEGIN - PROMPT 2 22 "Numero movimento " + PROMPT 2 22 "Prot.elenco da rettificare" + FIELD PROTEL + GROUP GR_SERVIZI +END + +NUMBER F_NUMRIGEL 6 +BEGIN + PROMPT 43 22 "Numero riga" + FIELD NUMRIGEL + GROUP GR_SERVIZI +END + +/*NUMBER F_NUMREG 7 +BEGIN + PROMPT 2 22 "Numero movimento " FIELD NUMREG FLAGS "D" -END +END */ ENDPAGE diff --git a/src/in/inlib01.h b/src/in/inlib01.h index d55046728..0a379ebeb 100755 --- a/src/in/inlib01.h +++ b/src/in/inlib01.h @@ -14,6 +14,7 @@ struct TIntra_context char _freq; int _anno; int _periodo; + TString _uffdog; // Intra 12/13 Intratype _tInvioIntra; int _nb; diff --git a/src/in/intbird.h b/src/in/intbird.h index 15b3d27be..12ce5fd34 100755 --- a/src/in/intbird.h +++ b/src/in/intbird.h @@ -7,4 +7,5 @@ #define F_RETT 107 #define F_AMM_COMP 108 #define F_AMM_RETT 109 +#define F_INV1213 110 diff --git a/src/in/intbird.uml b/src/in/intbird.uml index a90b92149..76c0800ce 100755 --- a/src/in/intbird.uml +++ b/src/in/intbird.uml @@ -81,7 +81,7 @@ BEGIN FIELD R1 END -NUMBER F_NDKT 4 +NUMBER F_INV1213 4 BEGIN PROMPT 2 8 "N.Inv. Intra12/13" FIELD I4