Patch level : 10.0

Files correlati     : 777.exe 77qla.frm 77qst.frm
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@20403 c028cbd2-c16b-5b4b-a496-9718f37d4682

m770/777.cpp

@@ -7,9 +7,8 @@ int main(int argc,char** argv)
   const int n = (argc > 1) ? atoi(argv[1]+1) : -1;
   switch(n)
   {
-  case  0: m777100(argc, argv); break;
+  case  0: 
-  default: m777200(argc, argv); break;
+  default: m777100(argc, argv); break;
   }
-  exit(0);
   return 0;
 }

m770/777.h

@@ -1,2 +1 @@
 int m777100(int argc, char* argv[]);
-int m777200(int argc, char* argv[]);

m770/777100a.h

@@ -7,4 +7,5 @@
 #define F_ADITTA   107
 #define F_ADESC    108
 #define F_HEADERS  109
+#define F_CENT     110
 

m770/777100a.uml

@@ -73,6 +73,12 @@ BEGIN
   PROMPT 1 8 "Genera record di testata (tipo A, B, Z)"
 END
 
+BOOLEAN F_CENT
+BEGIN
+  PROMPT 1 9 "Salva importi in centesimi (default in Euro)"
+END
+
+
 ENDPAGE
 
 TOOLBAR "" 0 0 0 2

m770/77qla.frm

@@ -40,8 +40,7 @@ BEGIN
   KEY "COD.FIS"
   PROMPT 10 1 ""
   FIELD 216@->COFI
-  SPECIAL STRING TRASFER "AU001001" ""
+  SPECIAL STRING TRASFER "AU001001" "AN"
-  SPECIAL STRING DYLOG "AN,0,16" ""
 END
 
 STRINGA 2
@@ -49,8 +48,7 @@ BEGIN
   KEY "COGNOME"
   PROMPT 42 1 ""
   FIELD 216@->RAGSOC[1,30]
-  SPECIAL STRING TRASFER "AU001002" ""
+  SPECIAL STRING TRASFER "AU001002" "AN"
-  SPECIAL STRING DYLOG "AN,16,24" ""
 END          
 
 STRINGA 3
@@ -58,8 +56,7 @@ BEGIN
   KEY "NOME"
   PROMPT 22 3 ""
   FIELD 216@->RAGSOC[31,50]
-  SPECIAL STRING TRASFER "AU001003" ""
+  SPECIAL STRING TRASFER "AU001003" "AN"
-  SPECIAL STRING DYLOG "AN,40,20" ""
 END
 
 STRINGA 4
@@ -67,8 +64,7 @@ BEGIN
   KEY "SESSO"
   PROMPT 57 3 ""
   FIELD 218@->SESSO
-  SPECIAL STRING TRASFER "AU001004" ""
+  SPECIAL STRING TRASFER "AU001004" "AN"
-  SPECIAL STRING DYLOG "AN,60,1" ""
 END
 
 STRINGA 5
@@ -77,8 +73,7 @@ BEGIN
   PROMPT 63 3 ""
   FIELD 218@->DATANASC
   PICTURE "##^ ##^ ####"
-  SPECIAL STRING TRASFER "AU001005" ""
+  SPECIAL STRING TRASFER "AU001005" "DT"
-  SPECIAL STRING DYLOG "NU,61,8" ""
 END
 
 STRINGA 6
@@ -86,8 +81,7 @@ BEGIN
   KEY "COMUNE DI NASCITA"
   PROMPT 79 3 ""
   FIELD 313@->DENCOM
-  SPECIAL STRING TRASFER "AU001006" ""
+  SPECIAL STRING TRASFER "AU001006" "AN"
-  SPECIAL STRING DYLOG "AN,69,25" ""
 END
 
 STRINGA 7
@@ -95,8 +89,7 @@ BEGIN
   KEY "PROV DI NASCITA"
   PROMPT 126 3 ""
   FIELD 313@->PROVCOM
-  SPECIAL STRING TRASFER "AU001007" ""
+  SPECIAL STRING TRASFER "AU001007" "AN"
-  SPECIAL STRING DYLOG "AN,94,2" ""
 END
 
 STRINGA 8
@@ -105,8 +98,7 @@ BEGIN
   PROMPT 25 5 ""
   FIELD 513@->DENCOM
   FIELD 413@->DENCOM
-  SPECIAL STRING TRASFER "AU001008" ""
+  SPECIAL STRING TRASFER "AU001008" "AN"
-  SPECIAL STRING DYLOG "AN,96,25" ""
   GROUP 1
 END
 
@@ -117,8 +109,7 @@ BEGIN
   FIELD 513@->PROVCOM
   FIELD 413@->PROVCOM
   GROUP 1
-  SPECIAL STRING TRASFER "AU001009" ""
+  SPECIAL STRING TRASFER "AU001009" "AN"
-  SPECIAL STRING DYLOG "AN,121,2" ""
 END
 
 NUMBER 10
@@ -126,8 +117,7 @@ BEGIN
   KEY "CODICE REGIONE"
   PROMPT 78 5 ""
   FIELD 218@->CODREG96
-  SPECIAL STRING TRASFER "AU001010" ""
+  SPECIAL STRING TRASFER "AU001010" "NU"
-  SPECIAL STRING DYLOG "NU,123,2" ""
   GROUP 1
 END
 
@@ -153,8 +143,7 @@ STRINGA 11
 BEGIN
   KEY "VIA RF + NUMCIVRF"
   PROMPT 78 5 ""
-  SPECIAL STRING TRASFER "AU001011" ""
+  SPECIAL STRING TRASFER "AU001011" "AN"
-  SPECIAL STRING DYLOG "AN,125,25" ""
   MESSAGE COPY,14
 END
 
@@ -163,36 +152,29 @@ BEGIN
   KEY "CODICE FISCALE ESTERO"
   PROMPT 90 7 ""      
   FIELD 216@->COFIEST
-  SPECIAL STRING TRASFER "AU001014" ""
+  SPECIAL STRING TRASFER "AU001014" "AN"
-  SPECIAL STRING DYLOG "AN,150,20" ""
 END
 
 STRINGA 15
 BEGIN
   KEY "COMUNE ESTERO DI RES."
   PROMPT 75 7 "" 
-  FIELD 513@->DENCOM
+  SPECIAL STRING TRASFER "AU001015" "AN"
-  FIELD 413@->DENCOM
-  SPECIAL STRING TRASFER "AU001015" ""
-  SPECIAL STRING DYLOG "AN,170,25" ""
 END
 
 STRINGA 16
 BEGIN
   KEY "INDIRIZZO DI RES. ESTERO"
   PROMPT 75 7 ""   
-  // FIELD Copiato da 11
+  SPECIAL STRING TRASFER "AU001016" "AN"
-  SPECIAL STRING TRASFER "AU001016" ""
-  SPECIAL STRING DYLOG "AN,195,25" ""
 END
 
-STRINGA 17
+NUMERO 17
 BEGIN
   KEY "STATO ESTERO"
   PROMPT 75 7 "" 
   FIELD 216@->STATORES
-  SPECIAL STRING TRASFER "AU001017" ""
+  SPECIAL STRING TRASFER "AU001017" "NU"
-  SPECIAL STRING DYLOG "NU,220,3" ""
 END
 
 STRINGA 18
@@ -200,8 +182,7 @@ BEGIN
   KEY "CAUSALE"
   PROMPT 13 9 ""
   FIELD CAUSALE
-  SPECIAL STRING TRASFER "AU001018" ""
+  SPECIAL STRING TRASFER "AU001018" "AN"
-  SPECIAL STRING DYLOG "AN,223,1" ""
 END
 
 NUMERO 19
@@ -209,8 +190,7 @@ BEGIN
   KEY "ANNO"
   PROMPT 16 9 ""
   FIELD ANNO
-  SPECIAL STRING TRASFER "AU001019" ""
+  SPECIAL STRING TRASFER "AU001019" "NP"
-  SPECIAL STRING DYLOG "NU,224,4" ""
 END
 
 STRINGA 20
@@ -218,120 +198,102 @@ BEGIN
   KEY "ANTICIPAZIONI"
   PROMPT 27 9 ""
   FIELD ANTICIPAZ
-  SPECIAL STRING TRASFER "AU001020" ""
+  SPECIAL STRING TRASFER "AU001020" "CB"
-  SPECIAL STRING DYLOG "AN,228,1" ""
 END
  
-NUMERO 21
+VALUTA 21
 BEGIN
   KEY "AMMONTARE LORDO"
   PROMPT 27 9 ""
   FIELD TOTALE
-  PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "AU001021" "NP"
-  SPECIAL STRING TRASFER "AU001021" ""
-  SPECIAL STRING DYLOG "NU,229,11" ""
 END
 
-NUMBER 22
+VALUTA 22
 BEGIN
   KEY "SOMREGCONV"
   PROMPT 47 9 ""
   FIELD SOMREGCONV    
-  PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "AU001022" "NP"
-  SPECIAL STRING TRASFER "AU001022" ""
-  SPECIAL STRING DYLOG "NU,240,11" ""
 END
 
-NUMBER 23
+VALUTA 23
 BEGIN
   KEY "SOMME NON SOGGETTE A RITENUTA"
   PROMPT 66 9 ""
   FIELD SOMME
-  PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "AU001023" "NP"
-  SPECIAL STRING TRASFER "AU001023" ""
-  SPECIAL STRING DYLOG "NU,251,11" ""
 END
 
-NUMBER 24
+VALUTA 24
 BEGIN
-  KEY "IMPONIBILE"
+  KEY "IMPONIBILE = 21-22-23"
   PROMPT 88 9 ""
   FIELD IMPONIBILE    
-  PICTURE "###.###.###^^^" 
+  SPECIAL STRING TRASFER "AU001024" "NP"
-  SPECIAL STRING TRASFER "AU001024" ""
-  SPECIAL STRING DYLOG "NU,262,11" ""
 END
 
-NUMBER 25
+VALUTA 25
 BEGIN
   KEY "Ritenute operate a titolo di acconto"
   PROMPT 109 9 ""
   FIELD IMPORTO       
-  PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "AU001025" "NP"
-  SPECIAL STRING TRASFER "AU001025" ""
 END
 
 
-NUMBER 26
+VALUTA 26
 BEGIN
   KEY "Ritenute operate a titolo di imposta"
   PROMPT 109 9 ""
-  PICTURE "###.###.###^^^"  
+  SPECIAL STRING TRASFER "AU001026" "NP"
-  SPECIAL STRING TRASFER "AU001026" ""
-  SPECIAL STRING DYLOG "NU,273,11" ""
 END
 
-NUMBER 27
+VALUTA 27
 BEGIN
   KEY "RITENUTE SOSPESE"
   PROMPT 109 9 ""
   FIELD RITSOSPESE
   SPECIAL STRING TRASFER "AU001027" ""
-  SPECIAL STRING DYLOG "NU,284,11" ""
 END
 
-NUMBER 28
+VALUTA 28
 BEGIN
   KEY "ADDIZIONALE REGIONALE a titolo di acconto"
   PROMPT 109 9 ""
   FIELD ADDREG                    
-  SPECIAL STRING TRASFER "AU001028" ""
+  SPECIAL STRING TRASFER "AU001028" "NP"
-  SPECIAL STRING DYLOG "NU,295,11" ""
 END
 
-NUMBER 29
+VALUTA 29
 BEGIN
   KEY "ADDIZIONALE REGIONALE a titolo di imposta"
   PROMPT 109 9 ""
-  SPECIAL STRING TRASFER "AU001029" ""
+  SPECIAL STRING TRASFER "AU001029" "NP"
-  SPECIAL STRING DYLOG "NU,295,11" ""
 END
 
-NUMBER 30
+VALUTA 30
 BEGIN
   KEY "ADDIZIONALE REGIONALE SOSPESA"
   PROMPT 109 9 ""
   FIELD ADDREGSOSP
-  SPECIAL STRING TRASFER "AU001030" ""
+  SPECIAL STRING TRASFER "AU001030" "NP"
-  SPECIAL STRING DYLOG "NU,306,11" ""
 END
 
-NUMBER 31
+VALUTA 31
 BEGIN
   KEY "IMPONIBILE ANNI PRECEDENTI"
   PROMPT 109 9 ""
   FIELD IMPANNIPRE
-  SPECIAL STRING TRASFER "AU001031" ""
+  SPECIAL STRING TRASFER "AU001031" "NP"
-  SPECIAL STRING DYLOG "NU,317,11" ""
 END
 
-NUMBER 32
+VALUTA 32
 BEGIN
   KEY "RITENUTE ANNI PRECEDENTI"
   PROMPT 109 9 ""
   FIELD RITANNIPRE
-  SPECIAL STRING TRASFER "AU001032" ""
+  SPECIAL STRING TRASFER "AU001032" "NP"
-  SPECIAL STRING DYLOG "NU,328,11" ""
 END
 
 END

m770/77qst.frm

@@ -19,99 +19,87 @@ END
 SECTION BODY ODD 2
 
 NUMERO 1
-BEGIN
-  KEY "MESE RIFERIMENTO"
-  PROMPT 9 2 ""
-  FIELD QLMP
-  SPECIAL STRINGA DYLOG "NU,0,2" "" 
-END
-
-NUMERO 1
-BEGIN   
-  KEY "ANNO RIFERIMENTO"
-  PROMPT 42 2 ""
-  FIELD QLAP
-  SPECIAL STRINGA DYLOG "NU,2,4" "" 
-END
-
-NUMERO 101
 BEGIN
   KEY "PERIODO DI RIFERIMENTO"
   PROMPT 9 2 ""                    
   MESSAGE _PERIODO_RIF
-  SPECIAL STRINGA TRASFER "ST002001" "NU"
+  SPECIAL STRINGA TRASFER "ST002001" "NP"
 END
 
-NUMERO 2
+VALUTA 2
 BEGIN   
-  KEY "RITENUTE"
+  KEY "RITENUTE OPERATE"
   PROMPT 79 2 ""
   FIELD QLRITEFF
-  SPECIAL STRINGA TRASFER "ST002002" "CU" 
+  SPECIAL STRINGA TRASFER "ST002002" "NP" 
-  SPECIAL STRINGA DYLOG "NU,6,11" "" 
 END
 
-NUMERO 3
+VALUTA 3
 BEGIN   
-  KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
+  KEY "CREDITI RECUPERATI"
-  PROMPT 79 2 ""
-  FIELD QLRITVEREC
-  SPECIAL STRINGA TRASFER "ST002003" "CU" 
-  SPECIAL STRINGA DYLOG "NU,17,11" "" 
-END
-
-NUMERO 4
-BEGIN   
-  KEY "RITENUTE COMPENSATE CON CREDITI D'IMPOSTA"
   PROMPT 79 2 ""
   FIELD QLRITCOMP
-  SPECIAL STRINGA TRASFER "ST002004" "CU" 
+  SPECIAL STRINGA TRASFER "ST002003" "NP" 
-  SPECIAL STRINGA DYLOG "NU,28,11" "" 
 END
 
-NUMERO 5
+VALUTA 4
+BEGIN   
+  KEY "IMPORTI A SCOMPUTO"
+  PROMPT 79 2 ""
+  SPECIAL STRINGA TRASFER "ST002004" "NP" 
+END
+
+VALUTA 5
+BEGIN   
+  KEY "VERSAMENTI IN ECCESSO"
+  PROMPT 79 2 ""
+  FIELD QLRITVEREC
+  SPECIAL STRINGA TRASFER "ST002005" "NP" 
+END
+
+VALUTA 6
+BEGIN   
+  KEY "CREDITI D'IMPOSTA UTILIZZATI A SCOMPUTO"
+  PROMPT 79 2 ""
+  SPECIAL STRINGA TRASFER "ST002004" "NP" 
+END
+
+VALUTA 7
 BEGIN   
   KEY "IMPORTO VERSATO"
   PROMPT 79 2 ""
-  MESSAGE _NUMEXPR,#2-#3-#4
+  MESSAGE _NUMEXPR,#2-#3-#4-#5-#6
-  SPECIAL STRINGA TRASFER "ST002005" "CU" 
+  SPECIAL STRINGA TRASFER "ST002007" "NP" 
-  SPECIAL STRINGA DYLOG "NU,39,11" "" 
 END
 
-NUMERO 6
+VALUTA 8
 BEGIN   
   KEY "INTERESSI VERSATI"
   PROMPT 79 2 ""
   FIELD QLINTERESS
-  SPECIAL STRINGA TRASFER "ST002006" "CU" 
+  SPECIAL STRINGA TRASFER "ST002008" "NP" 
-  SPECIAL STRINGA DYLOG "NU,50,11" "" 
-END
-
-STRINGA 7
-BEGIN   
-  KEY "NOTE"
-  PROMPT 79 2 ""
-  FIELD QLNOTE
-  SPECIAL STRINGA TRASFER "ST002007" "" 
-  SPECIAL STRINGA DYLOG "AN,61,10" "" 
-END
-
-STRINGA 8
-BEGIN   
-  KEY "Eventi eccezionali"
-  PROMPT 79 2 ""
-  FIELD QLEVENTI
-  SPECIAL STRINGA TRASFER "ST002008" "" 
-  SPECIAL STRINGA DYLOG "AN,71,10" "" 
 END
 
 NUMERO 9
+BEGIN
+  KEY "RAVVEDIMENTO"
+  SPECIAL STRINGA TRASFER "ST002009" "CB" 
+END
+
+STRINGA 10
+BEGIN   
+  KEY "NOTE"
+  PROMPT 79 2 ""
+  FIELD QLNOTE
+  SPECIAL STRINGA TRASFER "ST002010" "AN" 
+END
+
+STRINGA 11
 BEGIN   
   KEY "CODICE TRIBUTO"
   PROMPT 79 2 ""
   FIELD QLCT
-  SPECIAL STRINGA TRASFER "ST002009" "NU" 
+  SPECIAL STRINGA TRASFER "ST002011" "AN" 
-  SPECIAL STRINGA DYLOG "AN,82,4" "" 
 END
 
 LISTA 100
@@ -124,28 +112,25 @@ BEGIN
   ITEM "T|X" MESSAGE "X",10
 END
 
-STRINGA 10
+NUMERO 12
 BEGIN   
   KEY "Tesoreria"
   PROMPT 79 2 ""
-  SPECIAL STRINGA TRASFER "ST002010" "BO" 
+  SPECIAL STRINGA TRASFER "ST002012" "CB" 
-  SPECIAL STRINGA DYLOG "AN,88,1" ""
 END
 
-NUMERO 11
+NUMERO 13
 BEGIN
   KEY "Regione"
   PROMPT 79 2 ""
-  SPECIAL STRINGA TRASFER "ST002011" "NU" 
-  SPECIAL STRINGA DYLOG "NU,89,2" "" 
   FIELD QLREGIONE
 END
 
-STRINGA 12 
+STRINGA 14
 BEGIN
   KEY "Data versamento"
   PROMPT 79 2 ""
-  SPECIAL STRINGA TRASFER "ST002012" "DT" 
+  SPECIAL STRINGA TRASFER "ST002014" "DT" 
   FIELD QLDV
 END