From 065406728e95eb3176796d8491f0cde6cb9610b3 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 30 May 1995 15:59:16 +0000
Subject: [PATCH] Aggiornati form deleghe irpef

git-svn-id: svn://10.65.10.50/trunk@1415 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba0.cpp     |  10 +-
 ba/ba1102.cpp  |   2 +-
 ba/ba2100f.uml |  12 +-
 ba/delsdi.frm  |  87 ++++----
 ba/dissdi.frm  | 575 ++++++++++++++++++++++++++-----------------------
 5 files changed, 355 insertions(+), 331 deletions(-)

diff --git a/ba/ba0.cpp b/ba/ba0.cpp
index f6c0a29bf..515343162 100755
--- a/ba/ba0.cpp
+++ b/ba/ba0.cpp
@@ -17,7 +17,7 @@
 
 class TPicture_mask : public TMask
 {
-  TImage & _image;
+  TImage& _image;
 
 protected:
   virtual void handler(WINDOW win, EVENT* ep);
@@ -74,7 +74,6 @@ class TMenu_application : public TApplication
   TArray _modules, _images;
 
   int _level, _max;
-  /*  bool _ditta_asked; */
 
   static int _last_button;
   static bool _find_button;
@@ -188,11 +187,6 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     }
     else
     {
-      //     if (!flagcom)
-      //     {
-      //       dir.len() = 0;
-      //       rec.zero();
-      //     }
       dir.put(i, _nordir, _sysdirop);
       rec.put(i);
     }
@@ -570,7 +564,7 @@ bool TMenu_application::menu(MENU_TAG)
         {
           const TString16 flags(row.get());
           if (flags.find('F') >= 0) 
-            /*_ditta_asked = */ ok = set_firm();
+            ok = set_firm();
           if (ok)
           {
             refarray[i++] = _level;
diff --git a/ba/ba1102.cpp b/ba/ba1102.cpp
index 4e897cf1a..086885d56 100755
--- a/ba/ba1102.cpp
+++ b/ba/ba1102.cpp
@@ -113,7 +113,7 @@ bool TEdit_file::browse(int logicnum, const char* name)
       if (yesno_box("Confermare la cancellazione del record"))
         cursor.file().remove();
       break;
-    case K_INS:    // insert new record
+    case K_CTRL+'N':    // insert new record
       curr.zero();
       if (edit_record(curr,FALSE) == K_ENTER)
         cursor.file().write();
diff --git a/ba/ba2100f.uml b/ba/ba2100f.uml
index 51ec2ac2b..27f81bbaf 100755
--- a/ba/ba2100f.uml
+++ b/ba/ba2100f.uml
@@ -20,9 +20,9 @@ LIST F_CLASS 10
 BEGIN
   PROMPT 1 1 "Tipo          "
   FLAGS "G"
-  ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
-  ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
-  ITEM "DATA|Data"     MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS|SHOW,8@
+  ITEM "STRINGA|Testo" MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|SHOW,F_ITEMS|HIDE,8@
+  ITEM "NUMERO|Numero" MESSAGE SHOW,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS|HIDE,8@
+  ITEM "DATA|Data"     MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS|SHOW,8@
   ITEM "LISTA|Lista"   MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|SHOW,F_ITEMS|HIDE,8@
   ITEM "GRUPPO|Gruppo" MESSAGE HIDE,F_DECIMALS|HIDE,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
   ITEM "LINEA|Linea"   MESSAGE HIDE,F_DECIMALS|SHOW,F_HEIGHT|HIDE,F_ITEMS|HIDE,8@
@@ -170,7 +170,6 @@ BEGIN
   PROMPT 2 12 "Archivio "
   HELP "Nome dell'archivio relativo al campo"
   FLAGS "D"
-  GROUP 7   
 END
 	   
 BUTTON F_BUT_FILE1 2 1
@@ -185,7 +184,6 @@ BEGIN
   PROMPT 2 13 "Campo 1  "
   HELP "Nome del campo su file"
   FLAGS "D"
-  GROUP 7  
 END
 
 BUTTON F_BUT_FIELD1 2 1
@@ -199,7 +197,6 @@ STRING F_FIELDREF1 16
 BEGIN
   PROMPT 60 14 ""
   FLAGS "D"
-  GROUP 7  
 END
 
 NUMBER F_FROM1 2
@@ -222,7 +219,6 @@ BEGIN
   PROMPT 2 15 "Archivio "
   HELP "Nome dell'archivio relativo al campo"
   FLAGS "D"
-  GROUP 7   
 END
 	   
 BUTTON F_BUT_FILE2 2 1
@@ -237,7 +233,6 @@ BEGIN
   PROMPT 2 16 "Campo 2  "
   HELP "Nome del campo su file"
   FLAGS "D"
-  GROUP 7  
 END
 
 BUTTON F_BUT_FIELD2 2 1
@@ -251,7 +246,6 @@ STRING F_FIELDREF2 16
 BEGIN
   PROMPT 60 17 ""
   FLAGS "D"
-  GROUP 7  
 END
 
 NUMBER F_FROM2 2
diff --git a/ba/delsdi.frm b/ba/delsdi.frm
index 8fddd5ed5..452a54d58 100755
--- a/ba/delsdi.frm
+++ b/ba/delsdi.frm
@@ -80,7 +80,7 @@ BEGIN
  KEY "DATA DI NASCITA"
  PROMPT 5 18 ""
  GROUP  1
- PICTURE "# #~# #~~# # #"
+ PICTURE "# #^# #^^# # #"
  FIELD 8->DATANASC
  FORMAT "1444-"
 END
@@ -177,7 +177,7 @@ BEGIN
  PROMPT 32 26 ""
  GROUP  6
  MESSAGE COPY,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R0
 END
 
@@ -187,7 +187,7 @@ BEGIN
  PROMPT 46 26 ""
  GROUP  6
  MESSAGE ADD,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R7
 END
 
@@ -197,8 +197,7 @@ BEGIN
  PROMPT 64 26 ""
  GROUP  6 10
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
- FIELD R0
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 25
@@ -223,7 +222,7 @@ BEGIN
  PROMPT 32 28 ""
  GROUP  6
  MESSAGE COPY,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R1
 END
 
@@ -233,7 +232,7 @@ BEGIN
  PROMPT 46 28 ""
  GROUP  6
  MESSAGE ADD,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R8
 END
 
@@ -243,8 +242,7 @@ BEGIN
  PROMPT 64 28 ""
  GROUP  6 11
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
- FIELD R1
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 30
@@ -269,7 +267,7 @@ BEGIN
  PROMPT 32 30 ""
  GROUP  6
  MESSAGE COPY,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R2
 END
 
@@ -279,7 +277,7 @@ BEGIN
  PROMPT 46 30 ""
  GROUP  6
  MESSAGE ADD,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R9
 END
 
@@ -289,8 +287,7 @@ BEGIN
  PROMPT 64 30 ""
  GROUP  6 12
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
- FIELD R2
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 35
@@ -315,7 +312,7 @@ BEGIN
  PROMPT 32 32 ""
  GROUP  6
  MESSAGE COPY,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R3
 END
 
@@ -325,7 +322,7 @@ BEGIN
  PROMPT 46 32 ""
  GROUP  6
  MESSAGE ADD,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R10
 END
 
@@ -335,7 +332,7 @@ BEGIN
  PROMPT 64 32 ""
  GROUP  6 13
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 GRUPPO -1
@@ -371,7 +368,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE COPY,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R0
 END
 
@@ -382,7 +379,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE ADD,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R7
 END
 
@@ -393,7 +390,7 @@ BEGIN
  GROUP  7 10
  FLAGS "DH"
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 46
@@ -421,7 +418,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE COPY,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R1
 END
 
@@ -432,7 +429,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE ADD,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R8
 END
 
@@ -443,7 +440,7 @@ BEGIN
  GROUP  7 11
  FLAGS "DH"
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 51
@@ -471,7 +468,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE COPY,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R2
 END
 
@@ -482,7 +479,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE ADD,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R9
 END
 
@@ -493,7 +490,7 @@ BEGIN
  GROUP  7 12
  FLAGS "DH"
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 56
@@ -521,7 +518,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE COPY,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R3
 END
 
@@ -532,7 +529,7 @@ BEGIN
  GROUP  7
  FLAGS "DH"
  MESSAGE ADD,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R10
 END
 
@@ -543,7 +540,7 @@ BEGIN
  GROUP  7 13
  FLAGS "DH"
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 GRUPPO -1
@@ -579,7 +576,7 @@ BEGIN
  GROUP  8
  FLAGS "DH"
  MESSAGE COPY,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R2
 END
 
@@ -590,7 +587,7 @@ BEGIN
  GROUP  8
  FLAGS "DH"
  MESSAGE ADD,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R9
 END
 
@@ -601,7 +598,7 @@ BEGIN
  GROUP  8 12
  FLAGS "DH"
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 67
@@ -629,7 +626,7 @@ BEGIN
  GROUP  8
  FLAGS "DH"
  MESSAGE COPY,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R3
 END
 
@@ -640,7 +637,7 @@ BEGIN
  GROUP  8
  FLAGS "DH"
  MESSAGE ADD,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R10
 END
 
@@ -651,7 +648,7 @@ BEGIN
  GROUP  8 13
  FLAGS "DH"
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 GRUPPO -1
@@ -679,7 +676,7 @@ BEGIN
  KEY "TRIBUTO 1: IMPORTO"
  PROMPT 32 50 ""
  MESSAGE COPY,14@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R4
 END
 
@@ -688,7 +685,7 @@ BEGIN
  KEY "TRIBUTO 1: INTERESSI"
  PROMPT 46 50 ""
  MESSAGE ADD,14@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R11
 END
 
@@ -698,7 +695,7 @@ BEGIN
  PROMPT 64 50 ""
  GROUP  14
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 78
@@ -720,7 +717,7 @@ BEGIN
  KEY "TRIBUTO 2: IMPORTO"
  PROMPT 32 52 ""
  MESSAGE COPY,15@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R5
 END
 
@@ -729,7 +726,7 @@ BEGIN
  KEY "TRIBUTO 2: INTERESSI"
  PROMPT 46 52 ""
  MESSAGE ADD,15@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R12
 END
 
@@ -739,7 +736,7 @@ BEGIN
  PROMPT 64 52 ""
  GROUP  15
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 83
@@ -761,7 +758,7 @@ BEGIN
  KEY "TRIBUTO 3: IMPORTO"
  PROMPT 32 54 ""
  MESSAGE COPY,16@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R6
 END
 
@@ -770,7 +767,7 @@ BEGIN
  KEY "TRIBUTO 3: INTERESSI"
  PROMPT 46 54 ""
  MESSAGE ADD,16@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R13
 END
 
@@ -780,7 +777,7 @@ BEGIN
  PROMPT 64 54 ""
  GROUP  16
  MESSAGE ADD,9@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 NUMERO 88
@@ -796,14 +793,14 @@ BEGIN
  KEY "TOTALE (in cifre)"
  PROMPT 64 57 ""
  GROUP  9
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
 DATA 90
 BEGIN
  KEY "DATA: giorno - mese - anno"
  PROMPT 49 62 ""
- PICTURE "@ @~@ @~@ @"
+ PICTURE "@ @^@ @^@ @"
  FIELD D0
  FORMAT "1442-"
 END
diff --git a/ba/dissdi.frm b/ba/dissdi.frm
index 4f72af71b..49c1088e4 100755
--- a/ba/dissdi.frm
+++ b/ba/dissdi.frm
@@ -1,52 +1,59 @@
-// Distinta di versamento: IRPEF, IRPEG e altri codici tributo
-
 USE %SDI
 JOIN %UCC ALIAS 14 INTO CODTAB=S9
 JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
 JOIN 8 TO 6 INTO CODANAGR=CODANAGR
 JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
 JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
+END
 
-END     
-     
-SECTION BODY 0 66 0 0
+DESCRIPTION
+BEGIN
+  %SDI->* "Tabella deleghe IRPEF"
+  14@->* "Tabella Centro Servizi"
+  6->* "Anagrafica persone fisiche e giuridiche"
+  8->* "Anagrafica persone fisiche"
+  113@->* "Comune di nascita"
+  213@->* "Comune di residenza fiscale"
+END
 
-STRINGA
+SECTION BODY ODD 63 0 0
+
+STRINGA 1
 BEGIN
  KEY "CONCESSIONE DI"
- PROMPT 28 7 ""
+ PROMPT 32 6 ""
  FIELD 14@->S0
 END
 
-STRINGA
+STRINGA 4
 BEGIN
  KEY "COD. CONCESS."
- PROMPT 9 13 ""
+ PROMPT 13 12 ""
  FIELD S9
 END
 
-STRINGA
+STRINGA 5
 BEGIN
  KEY "CODICE FISCALE"
- PROMPT 15 13 ""
+ PROMPT 19 12 ""
  FIELD 6->COFI
 END
 
-STRINGA
+STRINGA 6
 BEGIN
  KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
- PROMPT 2 17 ""
+ PROMPT 5 16 ""
  FIELD 6->RAGSOC[1,30]
 END
 
-STRINGA
+STRINGA 7
 BEGIN
  KEY "NOME"
- PROMPT 54 17 ""
+ PROMPT 57 16 ""
  FIELD 6->RAGSOC[31,-1]
 END
 
-LISTA
+LISTA 8
 BEGIN
  KEY "Tipo anagrafica"
  FIELD 6->TIPOA
@@ -54,77 +61,78 @@ BEGIN
  ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
 END
 
-GRUPPO
+GRUPPO -1
 BEGIN
  KEY "Persone fisiche"
  PROMPT 0 0 ""
- GROUP 1
+ GROUP  1
 END
 
-DATA
+DATA 10
 BEGIN
  KEY "DATA DI NASCITA"
- PROMPT 2 19 ""
- GROUP 1
- PICTURE "# #~# #~~ # # #"
+ PROMPT 5 18 ""
+ GROUP  1
+ PICTURE "# #^# #^^# # #"
  FIELD 8->DATANASC
+ FORMAT "1444-"
 END
 
-STRINGA
+STRINGA 11
 BEGIN
  KEY "SESSO (M o F)"
- PROMPT 19 19 ""
- GROUP 1
+ PROMPT 23 18 ""
+ GROUP  1
  FIELD 8->SESSO
 END
 
-STRINGA
+STRINGA 12
 BEGIN
  KEY "COMUNE (o Stato estero) DI NASCITA"
- PROMPT 24 19 ""
- GROUP 1
+ PROMPT 28 18 ""
+ GROUP  1
  FIELD 113@->DENCOM
 END
 
-STRINGA
+STRINGA 13
 BEGIN
  KEY "PROV. DI NASCITA (sigla)"
- PROMPT 68 19 ""
+ PROMPT 74 18 ""
  GROUP  1
  FIELD 113@->PROVCOM
 END
 
-STRINGA
+STRINGA 14
 BEGIN
  KEY "DOMICILIO FISCALE: COMUNE"
- PROMPT 8 21 ""
+ PROMPT 12 20 ""
  FIELD 213@->DENCOM
 END
 
-STRINGA
+STRINGA 15
 BEGIN
  KEY "DOMICILIO FISCALE: PROV. (sigla)"
- PROMPT 36 21 ""
+ PROMPT 40 20 ""
  FIELD 213@->PROVCOM
 END
 
-STRINGA
+STRINGA 16
 BEGIN
  KEY "DOMICILIO FISCALE: VIA"
- PROMPT 41 21 ""
+ PROMPT 45 20 ""
  FIELD 6->INDRF
  FIELD 6->INDRES
 END
 
-STRINGA
+STRINGA 17
 BEGIN
  KEY "DOMICILIO FISCALE: NUMERO CIVICO"
- PROMPT 70 21 ""
+ PROMPT 74 20 ""
  FIELD 6->CIVRF
  FIELD 6->CIVRES
-END   
+END
 
-LISTA
+LISTA 18
 BEGIN
  KEY "Righe da compilare "
  FIELD S6
@@ -133,630 +141,661 @@ BEGIN
  ITEM "S| " MESSAGE ENABLE,8@|DISABLE,6@|DISABLE,7@
 END
 
-GRUPPO
+GRUPPO -1
 BEGIN
  KEY "Righe Persone Fisiche"
  PROMPT 0 0 ""
- GROUP 6
+ GROUP  6
 END
 
-NUMERO
+NUMERO 20
 BEGIN
  KEY "IRPEF 4007: PERIODO AA (1)"
- PROMPT 20 26 ""
+ PROMPT 24 26 ""
+ GROUP  6
  FIELD I0
- GROUP 6
 END
 
-NUMERO
+NUMERO 21
 BEGIN
  KEY "IRPEF 4007: PERIODO AA (2)"
- PROMPT 23 26 ""
+ PROMPT 27 26 ""
+ GROUP  6
  FIELD I1
- GROUP 6
 END
 
-NUMERO
+NUMERO 22
 BEGIN
  KEY "IRPEF 4007: IMPOSTA"
- PROMPT 28 26 ""
+ PROMPT 32 26 ""
+ GROUP  6
  MESSAGE COPY,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R0
- GROUP 6
 END
 
-NUMERO
+NUMERO 23
 BEGIN
  KEY "IRPEF 4007: INTERESSI"
  PROMPT 46 26 ""
+ GROUP  6
  MESSAGE ADD,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R7
- GROUP 6
 END
 
-NUMERO
+NUMERO 24
 BEGIN
  KEY "IRPEF 4007: TOTALE"
- PROMPT 60 26 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 26 ""
+ GROUP  6 10
  MESSAGE ADD,9@
- GROUP 6 10
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 25
 BEGIN
  KEY "IRPEF 4001: PERIODO AA (1)"
- PROMPT 20 28 ""
+ PROMPT 24 28 ""
+ GROUP  6
  FIELD I2
- GROUP 6
 END
 
-NUMERO
+NUMERO 26
 BEGIN
  KEY "IRPEF 4001: PERIODO AA (2)"
- PROMPT 23 28 ""
+ PROMPT 27 28 ""
+ GROUP  6
  FIELD I3
- GROUP 6
 END
 
-NUMERO
+NUMERO 27
 BEGIN
  KEY "IRPEF 4001: IMPOSTA"
- PROMPT 28 28 ""
+ PROMPT 32 28 ""
+ GROUP  6
  MESSAGE COPY,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R1
- GROUP 6
 END
 
-NUMERO
+NUMERO 28
 BEGIN
  KEY "IRPEF 4001: INTERESSI"
  PROMPT 46 28 ""
+ GROUP  6
  MESSAGE ADD,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R8
- GROUP 6
 END
 
-NUMERO
+NUMERO 29
 BEGIN
  KEY "IRPEF 4001: TOTALE"
- PROMPT 60 28 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 28 ""
+ GROUP  6 11
  MESSAGE ADD,9@
- GROUP 6 11
-END      
+ PICTURE "###.###.###^^^"
+END
 
-NUMERO
+NUMERO 30
 BEGIN
  KEY "ILOR 3353: PERIODO AA (1)"
- PROMPT 20 30 ""
+ PROMPT 24 30 ""
+ GROUP  6
  FIELD I2
- GROUP 6
 END
 
-NUMERO
+NUMERO 31
 BEGIN
  KEY "ILOR 3353: PERIODO AA (2)"
- PROMPT 23 30 ""
+ PROMPT 27 30 ""
+ GROUP  6
  FIELD I3
- GROUP 6
 END
 
-NUMERO
+NUMERO 32
 BEGIN
  KEY "ILOR 3353: IMPOSTA"
- PROMPT 28 30 ""
+ PROMPT 32 30 ""
+ GROUP  6
  MESSAGE COPY,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R2
- GROUP 6
 END
 
-NUMERO
+NUMERO 33
 BEGIN
  KEY "ILOR 3353: INTERESSI"
  PROMPT 46 30 ""
+ GROUP  6
  MESSAGE ADD,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R9
- GROUP 6
 END
 
-NUMERO
+NUMERO 34
 BEGIN
  KEY "IRPEF 3353: TOTALE"
- PROMPT 60 30 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 30 ""
+ GROUP  6 12
  MESSAGE ADD,9@
- GROUP 6 12
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 35
 BEGIN
  KEY "ILOR 3350: PERIODO AA (1)"
- PROMPT 20 32 ""
+ PROMPT 24 32 ""
+ GROUP  6
  FIELD I6
- GROUP 6
 END
 
-NUMERO
+NUMERO 36
 BEGIN
  KEY "ILOR 3350: PERIODO AA (2)"
- PROMPT 23 32 ""
+ PROMPT 27 32 ""
+ GROUP  6
  FIELD I7
- GROUP 6
 END
 
-NUMERO
+NUMERO 37
 BEGIN
  KEY "ILOR 3350: IMPOSTA"
- PROMPT 28 32 ""
+ PROMPT 32 32 ""
+ GROUP  6
  MESSAGE COPY,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R3
- GROUP 6
 END
 
-NUMERO
+NUMERO 38
 BEGIN
  KEY "ILOR 3350: INTERESSI"
  PROMPT 46 32 ""
+ GROUP  6
  MESSAGE ADD,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R10
- GROUP 6
 END
 
-NUMERO
+NUMERO 39
 BEGIN
  KEY "ILOR 3350: TOTALE"
- PROMPT 60 32 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 32 ""
+ GROUP  6 13
  MESSAGE ADD,9@
- GROUP 6 13
+ PICTURE "###.###.###^^^"
 END
 
-
-GRUPPO
+GRUPPO -1
 BEGIN
  KEY "Righe Persone Giuridiche"
  PROMPT 0 0 ""
- GROUP 7
+ GROUP  7
+ FLAGS "DH"
 END
 
-NUMERO
+NUMERO 41
 BEGIN
  KEY "IRPEG 2110: PERIODO AA (1)"
- PROMPT 20 34 ""
+ PROMPT 24 34 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I0
- GROUP 7
 END
 
-NUMERO
+NUMERO 42
 BEGIN
  KEY "IRPEG 2110: PERIODO AA (2)"
- PROMPT 23 34 ""
+ PROMPT 27 34 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I1
- GROUP 7
 END
 
-NUMERO
+NUMERO 43
 BEGIN
  KEY "IRPEG 2110: IMPOSTA"
- PROMPT 28 34 ""
+ PROMPT 32 34 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE COPY,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R0
- GROUP 7
 END
 
-NUMERO
+NUMERO 44
 BEGIN
  KEY "IRPEG 2110: INTERESSI"
  PROMPT 46 34 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE ADD,10@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R7
- GROUP 7
 END
 
-NUMERO
+NUMERO 45
 BEGIN
  KEY "IRPEG 2110: TOTALE"
- PROMPT 60 34 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 34 ""
+ GROUP  7 10
+ FLAGS "DH"
  MESSAGE ADD,9@
- GROUP 7 10
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 46
 BEGIN
  KEY "IRPEG 2100: PERIODO AA (1)"
- PROMPT 20 36 ""
+ PROMPT 24 36 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I2
- GROUP 7
 END
 
-NUMERO
+NUMERO 47
 BEGIN
  KEY "IRPEG 2100: PERIODO AA (2)"
- PROMPT 23 36 ""
+ PROMPT 27 36 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I3
- GROUP 7
 END
 
-NUMERO
+NUMERO 48
 BEGIN
  KEY "IRPEG 2100: IMPOSTA"
- PROMPT 28 36 ""
+ PROMPT 32 36 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE COPY,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R1
- GROUP 7
 END
 
-NUMERO
+NUMERO 49
 BEGIN
  KEY "IRPEG 2100: INTERESSI"
  PROMPT 46 36 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE ADD,11@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R8
- GROUP 7
 END
 
-NUMERO
+NUMERO 50
 BEGIN
  KEY "IRPEG 2100: TOTALE"
- PROMPT 60 36 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 36 ""
+ GROUP  7 11
+ FLAGS "DH"
  MESSAGE ADD,9@
- GROUP 7 11
-END      
+ PICTURE "###.###.###^^^"
+END
 
-NUMERO
+NUMERO 51
 BEGIN
  KEY "ILOR 3110: PERIODO AA (1)"
- PROMPT 20 38 ""
+ PROMPT 24 38 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I2
- GROUP 7
 END
 
-NUMERO
+NUMERO 52
 BEGIN
  KEY "ILOR 3110: PERIODO AA (2)"
- PROMPT 23 38 ""
+ PROMPT 27 38 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I3
- GROUP 7
 END
 
-NUMERO
+NUMERO 53
 BEGIN
  KEY "ILOR 3110: IMPOSTA"
- PROMPT 28 38 ""
+ PROMPT 32 38 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE COPY,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R2
- GROUP 7
 END
 
-NUMERO
+NUMERO 54
 BEGIN
  KEY "ILOR 3110: INTERESSI"
  PROMPT 46 38 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE ADD,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R9
- GROUP 7
 END
 
-NUMERO
+NUMERO 55
 BEGIN
  KEY "IRPEF 3110: TOTALE"
- PROMPT 60 38 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 38 ""
+ GROUP  7 12
+ FLAGS "DH"
  MESSAGE ADD,9@
- GROUP 7 12
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 56
 BEGIN
  KEY "ILOR 3000: PERIODO AA (1)"
- PROMPT 20 40 ""
+ PROMPT 24 40 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I6
- GROUP 7
 END
 
-NUMERO
+NUMERO 57
 BEGIN
  KEY "ILOR 3000: PERIODO AA (2)"
- PROMPT 23 40 ""
+ PROMPT 27 40 ""
+ GROUP  7
+ FLAGS "DH"
  FIELD I7
- GROUP 7
 END
 
-NUMERO
+NUMERO 58
 BEGIN
  KEY "ILOR 3000: IMPOSTA"
- PROMPT 28 40 ""
+ PROMPT 32 40 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE COPY,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R3
- GROUP 7
 END
 
-NUMERO
+NUMERO 59
 BEGIN
  KEY "ILOR 3000: INTERESSI"
  PROMPT 46 40 ""
+ GROUP  7
+ FLAGS "DH"
  MESSAGE ADD,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R10
- GROUP 7
 END
 
-NUMERO
+NUMERO 60
 BEGIN
  KEY "ILOR 3000: TOTALE"
- PROMPT 60 40 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 40 ""
+ GROUP  7 13
+ FLAGS "DH"
  MESSAGE ADD,9@
- GROUP 7 13
+ PICTURE "###.###.###^^^"
 END
 
-
-GRUPPO
+GRUPPO -1
 BEGIN
  KEY "Righe Societa' di Persone"
  PROMPT 0 0 ""
- GROUP 8
+ GROUP  8
+ FLAGS "DH"
 END
 
-NUMERO
+NUMERO 62
 BEGIN
  KEY "ILOR 3303: PERIODO AA (1)"
- PROMPT 20 42 ""
+ PROMPT 24 42 ""
+ GROUP  8
+ FLAGS "DH"
  FIELD I4
- GROUP 8
 END
 
-NUMERO
+NUMERO 63
 BEGIN
  KEY "ILOR 3303: PERIODO AA (2)"
- PROMPT 23 42 ""
+ PROMPT 27 42 ""
+ GROUP  8
+ FLAGS "DH"
  FIELD I5
- GROUP 8
 END
 
-NUMERO
+NUMERO 64
 BEGIN
  KEY "ILOR 3303: IMPOSTA"
- PROMPT 28 42 ""
+ PROMPT 32 42 ""
+ GROUP  8
+ FLAGS "DH"
  MESSAGE COPY,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R2
- GROUP 8
 END
 
-NUMERO
+NUMERO 65
 BEGIN
  KEY "ILOR 3303: INTERESSI"
  PROMPT 46 42 ""
+ GROUP  8
+ FLAGS "DH"
  MESSAGE ADD,12@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R9
- GROUP 8
 END
 
-NUMERO
+NUMERO 66
 BEGIN
  KEY "ILOR 3303: TOTALE"
- PROMPT 60 42 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 42 ""
+ GROUP  8 12
+ FLAGS "DH"
  MESSAGE ADD,9@
- GROUP 8 12
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 67
 BEGIN
  KEY "ILOR 3300: PERIODO AA (1)"
- PROMPT 20 44 ""
+ PROMPT 24 44 ""
+ GROUP  8
+ FLAGS "DH"
  FIELD I6
- GROUP 8
 END
 
-NUMERO
+NUMERO 68
 BEGIN
  KEY "ILOR 3300: PERIODO AA (2)"
- PROMPT 23 44 ""
+ PROMPT 27 44 ""
+ GROUP  8
+ FLAGS "DH"
  FIELD I7
- GROUP 8
 END
 
-NUMERO
+NUMERO 69
 BEGIN
  KEY "ILOR 3300: IMPOSTA"
- PROMPT 28 44 ""
+ PROMPT 32 44 ""
+ GROUP  8
+ FLAGS "DH"
  MESSAGE COPY,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R3
- GROUP 8
 END
 
-NUMERO
+NUMERO 70
 BEGIN
  KEY "ILOR 3300: INTERESSI"
  PROMPT 46 44 ""
+ GROUP  8
+ FLAGS "DH"
  MESSAGE ADD,13@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R10
- GROUP 8
 END
 
-NUMERO
+NUMERO 71
 BEGIN
  KEY "ILOR 3300: TOTALE"
- PROMPT 60 44 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 44 ""
+ GROUP  8 13
+ FLAGS "DH"
  MESSAGE ADD,9@
- GROUP 8 13
+ PICTURE "###.###.###^^^"
 END
 
-GRUPPO
+GRUPPO -1
 BEGIN
  KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
  PROMPT 0 0 ""
 END
 
-NUMERO
+NUMERO 73
 BEGIN
  KEY "TRIBUTO 1: PERIODO AA (1)"
- PROMPT 20 50 ""
+ PROMPT 24 50 ""
  FIELD I8
 END
 
-NUMERO
+NUMERO 74
 BEGIN
  KEY "TRIBUTO 1: PERIODO AA (2)"
- PROMPT 23 50 ""
+ PROMPT 27 50 ""
  FIELD I9
 END
 
-NUMERO
+NUMERO 75
 BEGIN
  KEY "TRIBUTO 1: IMPORTO"
- PROMPT 28 50 ""
+ PROMPT 32 50 ""
  MESSAGE COPY,14@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R4
 END
 
-NUMERO
+NUMERO 76
 BEGIN
  KEY "TRIBUTO 1: INTERESSI"
  PROMPT 46 50 ""
  MESSAGE ADD,14@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R11
 END
 
-NUMERO
+NUMERO 77
 BEGIN
  KEY "TRIBUTO 1: TOTALE"
- PROMPT 60 50 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 50 ""
+ GROUP  14
  MESSAGE ADD,9@
- GROUP 14
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 78
 BEGIN
  KEY "TRIBUTO 2: PERIODO AA (1)"
- PROMPT 20 52 ""
+ PROMPT 24 52 ""
  FIELD I10
 END
 
-NUMERO
+NUMERO 79
 BEGIN
  KEY "TRIBUTO 2: PERIODO AA (2)"
- PROMPT 23 52 ""
+ PROMPT 27 52 ""
  FIELD I11
 END
 
-NUMERO
+NUMERO 80
 BEGIN
  KEY "TRIBUTO 2: IMPORTO"
- PROMPT 28 52 ""
+ PROMPT 32 52 ""
  MESSAGE COPY,15@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R5
 END
 
-NUMERO
+NUMERO 81
 BEGIN
  KEY "TRIBUTO 2: INTERESSI"
  PROMPT 46 52 ""
  MESSAGE ADD,15@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R12
 END
 
-NUMERO
+NUMERO 82
 BEGIN
  KEY "TRIBUTO 2: TOTALE"
- PROMPT 60 52 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 52 ""
+ GROUP  15
  MESSAGE ADD,9@
- GROUP 15
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 83
 BEGIN
  KEY "TRIBUTO 3: PERIODO AA (1)"
- PROMPT 20 54 ""
+ PROMPT 24 54 ""
  FIELD I12
 END
 
-NUMERO
+NUMERO 84
 BEGIN
  KEY "TRIBUTO 3: PERIODO AA (2)"
- PROMPT 23 54 ""
+ PROMPT 27 54 ""
  FIELD I13
 END
 
-NUMERO
+NUMERO 85
 BEGIN
  KEY "TRIBUTO 3: IMPORTO"
- PROMPT 28 54 ""
+ PROMPT 32 54 ""
  MESSAGE COPY,16@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R6
 END
 
-NUMERO
+NUMERO 86
 BEGIN
  KEY "TRIBUTO 3: INTERESSI"
  PROMPT 46 54 ""
  MESSAGE ADD,16@
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
  FIELD R13
 END
 
-NUMERO
+NUMERO 87
 BEGIN
  KEY "TRIBUTO 3: TOTALE"
- PROMPT 60 54 ""
- PICTURE "###.###.###~~~"
+ PROMPT 64 54 ""
+ GROUP  16
  MESSAGE ADD,9@
- GROUP 16
+ PICTURE "###.###.###^^^"
 END
 
-NUMERO
+NUMERO 88
 BEGIN
  KEY "TOTALE (in lettere)"
- PROMPT 5 58 ""
+ PROMPT 7 57 ""
  GROUP  9
  PICTURE "LETTERE"
 END
 
-NUMERO
+NUMERO 89
 BEGIN
  KEY "TOTALE (in cifre)"
- PROMPT 60 58 ""
+ PROMPT 64 57 ""
  GROUP  9
- PICTURE "###.###.###~~~"
+ PICTURE "###.###.###^^^"
 END
 
-DATA
+DATA 90
 BEGIN
  KEY "DATA: giorno - mese - anno"
- PROMPT 12 62 ""
- PICTURE "@@ ~ @@~~~@@"
+ PROMPT 12 61 ""
+ PICTURE "@ @^@ @^@ @"
  FIELD D0
+ FORMAT "1442S"
 END
 
 END