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

@@ -1,3 +1,3 @@
 135
 0
-$rieprett|1|1|174|0|Riepiloghi e rettifiche INTRA|||
+$rieprett|0|0|185|0|Riepiloghi e rettifiche INTRA|||

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|<A>cquisti o <C>essioni , rettifiche <B> acquisti o <D> 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
+NATURA|1|1|0|Natura della transazione (Benii)
-NOMENCL|1|8|0|Nomenclatura combinata
+NOMENCL|1|8|0|Nomenclatura combinata (Benii)
-CONSEGNA|1|3|0|Condizioni di consegna
+CONSEGNA|1|3|0|Condizioni di consegna (Benii)
-TRASPORTO|2|1|0|Tipo di trasporto [1,9]
+TRASPORTO|2|1|0|Tipo di trasporto [1,9] (Benii)
-PAESE|1|2|0|Paese di destinazione/provenienza
+PAESE|1|2|0|Paese di destinazione/provenienza (Benii)
-PAESEORIG|1|2|0|Paese d'origine (solo Acquisti)
+PAESEORIG|1|2|0|Paese d'origine (solo Acquisti) (Benii)
-PROV|1|2|0|Provincia d'origine/destinazione
+PROV|1|2|0|Provincia d'origine/destinazione (Benii)
 AMMLIRE|4|18|2|Ammontare in lire
-AMMVALUTA|4|18|3|Ammontare in valuta
+AMMVALUTA|4|18|3|Ammontare in valuta  (Benii)
-CODVAL|1|3|0|Codice Valuta
+CODVAL|1|3|0|Codice Valuta  (Benii)
-VALSTAT|4|18|2|Valore statistico
+VALSTAT|4|18|2|Valore statistico  (Benii)
-MASSAKG|4|18|5|Massa in Kilogrammi
+MASSAKG|4|18|5|Massa in Kilogrammi  (Benii)
-MASSAUMS|4|18|5|Massa in unita' supplementare
+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 (<M>ensile, <T>rimestrale, <A>nnuale)
 NUMREG|3|7|0|Eventuale movimento di prima nota collegato
-CODSERV|1|5|0|Codice prestazione di servizio
+PROTEL|3|6|0|Protocollo elenco da rettificare (Servizi)
-MODEROG|1|1|0|Modalità di erogazione <I>mmediata o <R> a più riprese
+NUMRIGEL|3|5|0|NUmero riga elenco da rettificare  (Servizi)
-MODINCPAG|1|1|0|Modalità di incasso <B>onifico, <A>ccredito o <X> Altro
+CODSERV|1|5|0|Codice prestazione di servizi (Servizi)
-ISOINCPAG|1|2|0|Codice Iso Paese di pagamento
+MODEROG|1|1|0|Modalità di erogazione <I>mmediata o <R> a più riprese (Servizi)
+MODINCPAG|1|1|0|Modalità di incasso <B>onifico, <A>ccredito o <X> Altro (Servizi)
+ISOINCPAG|1|2|0|Codice Iso Paese di pagamento (Servizi)
 2
 ANNO+PERIODO+NUMRIG| 
 ANNO+PERIODO+TIPO+SEZIONE+NUMRIG|X

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(ic._uffdog, 29, 6);
-        
-        put(ditta.get(NDT_UFFDOG), 29, 6);
         put(rec.get(RIEPINTRA_ANNORETT).right(2), 35, 2, "RZ");
-        // put(protocollo rettifica, 37, 6, "RZ");
+        put(rec.get(RIEPINTRA_PROTEL), 37, 6, "RZ");
-        // put(progressivo rettifica, 43, 5, "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(ic._uffdog, 29, 6);
-
-        put(ditta.get(NDT_UFFDOG), 29, 6);
         put(rec.get(RIEPINTRA_ANNORETT).right(2), 35, 2, "RZ");
-        // put(protocollo rettifica, 37, 6, "RZ");
+        put(rec.get(RIEPINTRA_PROTEL), 37, 6, "RZ");
-        // put(progressivo rettifica, 43, 5, "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);

src/in/in0200a.h

@@ -8,4 +8,5 @@
 #define F_NUMERO     107
 #define F_PROGGIORN  108
 #define F_PATH       109
+#define F_UFFDOG     110
 

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

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

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);
 
               if (pos >= 0)
-              set(dlg + F_STATO - O_STATO, fld(pos).get());
+                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("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;
     last_row = curr.get_int("NUMRIG");
   }
-  _str.cut(0);
+  k.cut(0);
-  _str.add(F_ANNO);
+  k.add(F_ANNO);
-  _str.add(curr.get("ANNO"));
+  k.add(curr.get("ANNO"));
-  _str.add(F_PERIODO_M);
+  k.add(F_PERIODO_M);
-  _str.add(curr.get("PERIODO"));
+  k.add(curr.get("PERIODO"));
-  _str.add(F_NUM_RIG);
+  k.add(F_NUM_RIG);
-  _str.add(last_row+1);
+  k.add(last_row + 1);
-  return _str;
+  return true;
 }
 
 int in0700(int argc, char* argv[])

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_NUMREG        229
-#define F_SEZIONE       230
+
-#define F_CODSERV       231
+#define F_CODSERV       230
-#define F_MODEROG       232
+#define F_MODEROG       231
-#define F_MODINCPAG     233 
+#define F_MODINCPAG     232 
-#define F_STATOINCPAG   234
+#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)

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 "
+  PROMPT 2 5 "Riga "
-  USE LF_RIEPRETT SELECT (SEZIONE==#OSEZIONE)&&(TIPO==#O_TIPO)
+  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_ANNO ANNO
-  OUTPUT O_SEZIONE SEZIONE
   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"
+  PROMPT 61 14 "Sezione "
-  ITEM "2|Beni"          MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"2",O_SEZIONE
+  ITEM "2|Beni"          MESSAGE ENABLE,GR_BENI@|DISABLE,GR_SERVIZI@|"1",O_SEZIONE
-  ITEM "4|Servizi"       MESSAGE DISABLE,GR_BENI@|ENABLE,GR_SERVIZI@|"4",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 "
+  PROMPT 2 15 "Riga "
-  USE LF_RIEPRETT (SEZIONE=="2")||(SEZIONE=="4")
+  USE LF_RIEPRETT SELECT (TIPO==#F_TIPO)&&(ANNO==#F_ANNO)&&((SEZIONE=="2")||(SEZIONE=="4"))
-  INPUT TIPO F_TIPO SELECT
+  INPUT TIPO F_TIPO
-  INPUT ANNO F_ANNO SELECT
+  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 "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
 

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;

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
 

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