Patch level : 2.1 94

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

0000171
Bisogna Aggiornare l'invio ministeriale del 770 secondo le specifiche di quest'anno


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

m770/777100.cpp

@@ -243,7 +243,7 @@ bool TForm770::validate(TForm_item &cf, TToken_string &s)
     TString8 str;
     str.format("%02d%04d", mese, anno);
     cf.set(str);
-    return TRUE;
+    return true;
   }
   return TForm::validate(cf, s);
 }
@@ -357,18 +357,18 @@ void TForm770::transfer_section(TPrint_section& body, int rigo,
 bool TForm770::compatible(const TRectype& r1, const TRectype& r2)
 {
   if (r1.empty() || r2.empty())
-    return TRUE;
+    return true;
 
   if (r1.get_long(QUC_CODDITTA) != r2.get_long(QUC_CODDITTA))
-    return FALSE;
+    return false;
   if (r1.get_char(QUC_TIPOA) != r2.get_char(QUC_TIPOA))
-    return FALSE;
+    return false;
   if (r1.get_long(QUC_CODANAGR) != r2.get_long(QUC_CODANAGR))
-    return FALSE;
+    return false;
   if (r1.get_char(QUC_CAUSALE) != r2.get_char(QUC_CAUSALE))
-    return FALSE;
+    return false;
   if (r1.get_int(QUC_TASSAZIONE) != r2.get_int(QUC_TASSAZIONE))
-    return FALSE;
+    return false;
 
   const real p1 = r1.get_real(QUC_PERC);
   const real p2 = r2.get_real(QUC_PERC);
@@ -403,7 +403,7 @@ long TForm770::raggruppa_c()
   _records.destroy();
   for (cur = 0; cur.ok(); ++cur)
   {
-    bool append = TRUE;
+    bool append = true;
     const int last = _records.items()-1;
     if (last >= 0)
     {
@@ -411,7 +411,7 @@ long TForm770::raggruppa_c()
       if (compatible(sum, rc))
       {
         add_rec(sum, rc);
-        append = FALSE;
+        append = false;
       }
     }
     if (append)
@@ -482,7 +482,7 @@ long TForm770::trasfer(long codditta, TTrasferimento770& file,
   const long items = cur.items();
   if (items > 0)         // Se c'e almeno un record ...
   {
-    cur.freeze(TRUE);    // Per efficienza congela il cursore
+    cur.freeze(true);    // Per efficienza congela il cursore
 
     // Inizializza record col primo modulo
     TRecord770 rec(rectype);
@@ -518,7 +518,7 @@ long TForm770::trasfer(long codditta, TTrasferimento770& file,
     if (rec.ha_campi_non_posizionali_compilati())
       file << rec;
     
-    cur.freeze(FALSE);
+    cur.freeze(false);
   }
 
   return items;
@@ -1002,7 +1002,7 @@ bool TTrasferimento770::open(const char* path, char mode)
   else
     _out_stream = new ofstream(_name, ios::out | ios::binary);
 
-  return TRUE;
+  return true;
 }
 
 bool TTrasferimento770::close()
@@ -1017,7 +1017,7 @@ bool TTrasferimento770::close()
     delete _out_stream;
     _out_stream = NULL;
   }
-  return TRUE;
+  return true;
 }
 
 bool TTrasferimento770::write(const TRecord770& rec)
@@ -1103,14 +1103,14 @@ bool TTrasferimento770::split(const char* path)
     if (!yesno_box("Inserire il primo disco del trasferimento nell'unita' %s\n"
                    "Tutti i dischi devono essere vuoti ed avere la stesso formato.\n"
                    "Si desidera iniziare il trasferimento?", path))
-      return FALSE;
+      return false;
 
     unsigned long disk_size = ::xvt_fsys_get_disk_size(path, 'b') != 0;
     records_per_disk = long(disk_size / TOTAL_SIZE) - 3;  // Tolgo A,B,Z
     volumes = int((records-1)/records_per_disk)+1;
   }
 
-  TProgind pi(records, "Trasferimento records", FALSE, TRUE);
+  TProgind pi(records, "Trasferimento records", false, true);
   
   // Read from start
   open("", 'r');
@@ -1174,7 +1174,7 @@ bool TTrasferimento770::split(const char* path)
     outfile << rec;
 */
   }  
-  return TRUE;
+  return true;
 }
 
 // Cancella il file
@@ -1224,7 +1224,7 @@ bool TTransfer770_msk::on_field_event(TOperable_field& of, TField_event fe, long
   default:
     break;
   }
-  return TRUE;
+  return true;
 }
 
 TTransfer770_msk::TTransfer770_msk() : TAutomask("777100a") 
@@ -1257,7 +1257,7 @@ void TTransfer770_app::main_loop()
     filter << "ANNODIC=" << anno_dic();
     TCursor cur_base(&rel_base, filter, 1, &da_rec, &a_rec);
     
-    TProgind pi(cur_base.items(), "Generazione file di trasferimento", FALSE, TRUE);
+    TProgind pi(cur_base.items(), "Generazione file di trasferimento", false, true);
     cur_base.freeze();
     for (cur_base = 0; cur_base.ok(); ++cur_base)
     {

m770/77qla.frm

@@ -264,56 +264,73 @@ END
 
 NUMBER 23
 BEGIN
-  KEY "Ritenute operate"
+  KEY "Ritenute operate a titolo di acconto"
   PROMPT 109 9 ""
   FIELD IMPORTO       
   PICTURE "###.###.###^^^"  
   SPECIAL STRING TRASFER "AU001023" ""
-  SPECIAL STRING DYLOG "NU,273,11" ""
 END
 
+
 NUMBER 24
 BEGIN
-  KEY "RITENUTE SOSPESE"
+  KEY "Ritenute operate a titolo di imposta"
   PROMPT 109 9 ""
-  FIELD RITSOSPESE
+  PICTURE "###.###.###^^^"  
   SPECIAL STRING TRASFER "AU001024" ""
-  SPECIAL STRING DYLOG "NU,284,11" ""
+  SPECIAL STRING DYLOG "NU,273,11" ""
 END
 
 NUMBER 25
 BEGIN
-  KEY "ADDIZIONALE REGIONALE"
+  KEY "RITENUTE SOSPESE"
   PROMPT 109 9 ""
-  FIELD ADDREG                    
+  FIELD RITSOSPESE
   SPECIAL STRING TRASFER "AU001025" ""
-  SPECIAL STRING DYLOG "NU,295,11" ""
+  SPECIAL STRING DYLOG "NU,284,11" ""
 END
 
 NUMBER 26
 BEGIN
-  KEY "ADDIZIONALE REGIONALE SOSPESA"
+  KEY "ADDIZIONALE REGIONALE a titolo di acconto"
   PROMPT 109 9 ""
-  FIELD ADDREGSOSP
+  FIELD ADDREG                    
   SPECIAL STRING TRASFER "AU001026" ""
-  SPECIAL STRING DYLOG "NU,306,11" ""
+  SPECIAL STRING DYLOG "NU,295,11" ""
 END
 
 NUMBER 27
 BEGIN
-  KEY "IMPONIBILE ANNI PRECEDENTI"
+  KEY "ADDIZIONALE REGIONALE a titolo di imposta"
   PROMPT 109 9 ""
-  FIELD IMPANNIPRE
   SPECIAL STRING TRASFER "AU001027" ""
-  SPECIAL STRING DYLOG "NU,317,11" ""
+  SPECIAL STRING DYLOG "NU,295,11" ""
 END
 
 NUMBER 28
+BEGIN
+  KEY "ADDIZIONALE REGIONALE SOSPESA"
+  PROMPT 109 9 ""
+  FIELD ADDREGSOSP
+  SPECIAL STRING TRASFER "AU001028" ""
+  SPECIAL STRING DYLOG "NU,306,11" ""
+END
+
+NUMBER 29
+BEGIN
+  KEY "IMPONIBILE ANNI PRECEDENTI"
+  PROMPT 109 9 ""
+  FIELD IMPANNIPRE
+  SPECIAL STRING TRASFER "AU001029" ""
+  SPECIAL STRING DYLOG "NU,317,11" ""
+END
+
+NUMBER 30
 BEGIN
   KEY "RITENUTE ANNI PRECEDENTI"
   PROMPT 109 9 ""
   FIELD RITANNIPRE
-  SPECIAL STRING TRASFER "AU001028" ""
+  SPECIAL STRING TRASFER "AU001030" ""
   SPECIAL STRING DYLOG "NU,328,11" ""
 END
 

m770/77qst.frm

@@ -47,7 +47,7 @@ BEGIN
   KEY "RITENUTE"
   PROMPT 79 2 ""
   FIELD QLRITEFF
-  SPECIAL STRINGA TRASFER "ST002002" "" 
+  SPECIAL STRINGA TRASFER "ST002002" "CU" 
   SPECIAL STRINGA DYLOG "NU,6,11" "" 
 END
 
@@ -56,22 +56,22 @@ BEGIN
   KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
   PROMPT 79 2 ""
   FIELD QLRITVEREC
-  SPECIAL STRINGA TRASFER "ST002003" "" 
+  SPECIAL STRINGA TRASFER "ST002003" "CU" 
   SPECIAL STRINGA DYLOG "NU,17,11" "" 
 END
 
 NUMERO 4
 BEGIN   
-  KEY "RITENUTE NON VERSATE PER CREDITI"
+  KEY "RITENUTE COMPENSATE CON CREDITI D'IMPOSTA"
   PROMPT 79 2 ""
   FIELD QLRITCOMP
-  SPECIAL STRINGA TRASFER "ST002004" "" 
+  SPECIAL STRINGA TRASFER "ST002004" "CU" 
   SPECIAL STRINGA DYLOG "NU,28,11" "" 
 END
 
 NUMERO 5
 BEGIN   
-  KEY "DIFFERENZA"
+  KEY "IMPORTO VERSATO"
   PROMPT 79 2 ""
   MESSAGE _NUMEXPR,#2-#3-#4
   SPECIAL STRINGA TRASFER "ST002005" "CU" 
@@ -83,7 +83,7 @@ BEGIN
   KEY "INTERESSI VERSATI"
   PROMPT 79 2 ""
   FIELD QLINTERESS
-  SPECIAL STRINGA TRASFER "ST002006" "" 
+  SPECIAL STRINGA TRASFER "ST002006" "CU" 
   SPECIAL STRINGA DYLOG "NU,50,11" "" 
 END
 
@@ -106,60 +106,49 @@ BEGIN
 END
 
 STRINGA 9
-BEGIN   
-  KEY "Diversa valuta"
-  PROMPT 79 2 ""
-  FIELD QLVALDIV
-  SPECIAL STRINGA TRASFER "ST002009" ""
-  SPECIAL STRINGA DYLOG "AN,81,1" "" 
-END
-
-STRINGA 10
 BEGIN   
   KEY "CODICE TRIBUTO"
   PROMPT 79 2 ""
   FIELD QLCT
-  SPECIAL STRINGA TRASFER "ST002010" "AN" 
+  SPECIAL STRINGA TRASFER "ST002009" "AN" 
   SPECIAL STRINGA DYLOG "AN,82,4" "" 
 END
 
-STRINGA 11
+LISTA 100
-BEGIN   
-  KEY "ARTICOLO"
-  PROMPT 79 2 ""
-  FIELD QLAB
-  SPECIAL STRINGA TRASFER "ST002011" "" 
-  SPECIAL STRINGA DYLOG "NU,86,2" "" 
-END
-
-LISTA 120
 BEGIN   
   KEY "Tesoreria"
   PROMPT 79 2 "" 
   FIELD QLLV
-  ITEM " | " MESSAGE " ",12
+  ITEM " | " MESSAGE " ",10
-  ITEM "C| " MESSAGE " ",12
+  ITEM "C| " MESSAGE " ",10
-  ITEM "T|X" MESSAGE "X",12
+  ITEM "T|X" MESSAGE "X",10
 END
 
-STRINGA 12
+STRINGA 10
 BEGIN   
   KEY "Tesoreria"
   PROMPT 79 2 ""
-  SPECIAL STRINGA TRASFER "ST002012" "BO" 
+  SPECIAL STRINGA TRASFER "ST002010" "BO" 
   SPECIAL STRINGA DYLOG "AN,88,1" ""
 END
 
-NUMERO 14
+NUMERO 11
-
-END
-
-NUMERO 13
-
 BEGIN
   KEY "Regione"
   PROMPT 79 2 ""
-  SPECIAL STRINGA TRASFER "ST002013" "NU" 
+  SPECIAL STRINGA TRASFER "ST002011" "NU" 
   SPECIAL STRINGA DYLOG "NU,89,2" "" 
   FIELD QLREGIONE
 END
+
+NUMERO 12
+BEGIN
+  KEY "Data versamento"
+  PROMPT 79 2 ""
+  SPECIAL STRINGA TRASFER "ST002012" "NU" 
+  FIELD QLDV
+END
+
+END
+
+END