Prima versione 770 2013

git-svn-id: svn://10.65.10.50/branches/R_10_00@22863 c028cbd2-c16b-5b4b-a496-9718f37d4682

m770/770100.cpp

@@ -1,7 +1,7 @@
 // 770100.cpp - Scheda percipienti
-#include <tabutil.h>
-#include <mailbox.h>
 #include <defmask.h>
+#include <mailbox.h>
+#include <recarray.h>
 
 #include "scperc.h"
 #include "rver.h"
@@ -152,13 +152,14 @@ TMask* TSchedaPercipienti::load_mask(int n)
 ////////////////////////////////////////////////////////////////////////
       TSheet_field& vers = m->sfield(F_VERSAMENTI);  
       vers.set_notify(vers_notify);
-      vers.sheet_mask().set_handler(F_VERS_1015, vers1015_handler);
+      TMask& sm = vers.sheet_mask();
-      vers.sheet_mask().set_handler(DLG_SELPAG, pag_select);
+      sm.set_handler(F_VERS_1015, vers1015_handler);
-      vers.sheet_mask().set_handler(DLG_AZZERA, ver_azzera);
+      sm.set_handler(DLG_SELPAG, pag_select);
-      vers.sheet_mask().set_handler(F_TIPOVERS, tipo_hndl);
+      sm.set_handler(DLG_AZZERA, ver_azzera);
-      vers.sheet_mask().set_handler(F_LUOVERS,  luo_hndl);
+      sm.set_handler(F_TIPOVERS, tipo_hndl);
-      vers.sheet_mask().set_handler(F_ABI,  abicab_hndl);
+      sm.set_handler(F_LUOVERS,  luo_hndl);
-      vers.sheet_mask().set_handler(F_CAB,  abicab_hndl);
+      sm.set_handler(F_ABI,  abicab_hndl);
+      sm.set_handler(F_CAB,  abicab_hndl);
     }
     break;
   default:
@@ -320,7 +321,7 @@ void TSchedaPercipienti::calcola_riga_pag(TRectype & rec,
 	rec.put(PAG_COMNETTO, comnetto);
 }
 
-void TSchedaPercipienti::agg_pagamenti(const TRectype & sch)
+void TSchedaPercipienti::agg_pagamenti(const TRectype& sch, const TDate& pag_dal)
 {
 	const long numreg = sch.get_long(SCH_NUMREG);
 
@@ -344,7 +345,7 @@ void TSchedaPercipienti::agg_pagamenti(const TRectype & sch)
 			real spperc = spese / totale; spperc.round(8);
 			real ivaperc = iva / totale; ivaperc.round(8);
 
-			TString16 codcau(sc.lfile().get("CODCAUS"));
+			const TString4 codcau = sc.lfile().get("CODCAUS");
 			const TRectype cau = cache().get("%CA7", codcau);
 
 			// leggo valori tabella causali per calcolo
@@ -355,7 +356,6 @@ void TSchedaPercipienti::agg_pagamenti(const TRectype & sch)
 			const real h_PercAssImpInps = cau.get_real("R2");
 			const real h_PercCommitInps = cau.get_real("R3");
 		
-			
 			for (TPartita* p = partarr.first(); p != NULL; p =partarr.next())
 			{
 				const int row = p->prima_fattura(numreg);
@@ -378,7 +378,12 @@ void TSchedaPercipienti::agg_pagamenti(const TRectype & sch)
 						for (int rowp = ratapart.last(); rowp > 0; rowp = ratapart.pred(rowp))
 						{
 							const TRectype& pag = ratapart.row(rowp);              // Riga pagamento
+              
               const TRiga_partite& sum = p->riga(rowp);              // Riga partite
+              const TDate sum_datapag = pag.get(PART_DATAPAG);
+              if (sum_datapag < pag_dal)
+                continue;			
+
 							const char sez = sum.sezione();
 							TImporto imppag(sez, pag.get_real(PAGSCA_IMPORTO));
 							const long num = sum.get_long(PART_NREG);
@@ -417,7 +422,7 @@ void TSchedaPercipienti::agg_pagamenti(const TRectype & sch)
 										data = sum.get_date(PART_DATAREG);
 									if (!data.ok())
 										data = sum.get_date(PART_DATAPAG);
-									const TDate datasch(pagrec.get(PAG_DATAPAG));
+									const TDate datasch = pagrec.get(PAG_DATAPAG);
 									if (data == datasch)
 									{
 										pagrec.put(PAG_NUMREG, num);
@@ -438,7 +443,6 @@ void TSchedaPercipienti::agg_pagamenti(const TRectype & sch)
 											ivap = iva;
 
 										real compensop = imppag.valore() - spesep - ivap;
-
 										compensop += compensop * h_PercRitenuta;
 										compensop.round(TCurrency::get_firm_dec());
 										if (abs(compensop) > abs(compenso))
@@ -515,8 +519,16 @@ bool schede(const TRelation& rel, void* pJolly)
 {
 	const TRectype& sch = rel.curr();
 	TSchedaPercipienti* schper = (TSchedaPercipienti *) pJolly;
-	schper->agg_pagamenti(sch);
+
-	return true;
+  TMask mp("Aggiorna pagamenti", 1, 20, 4);
+  mp.add_date(101, 0, "Data minimima pagamenti ", 1, 1);
+  const bool ok = mp.run() == K_ENTER;
+  if (ok)
+  {
+    const TDate pag_dal = mp.get(101);
+	  schper->agg_pagamenti(sch, pag_dal);
+  }
+	return ok;
 }
 
 bool TSchedaPercipienti::aggpag_handler(TMask_field& f, KEY k)
@@ -708,12 +720,29 @@ void TSchedaPercipienti::init_modify_mode(TMask& m)
 void TSchedaPercipienti::init_insert_mode(TMask& m)
 {
   init_mask(m);
+
+  // La proposta causale è valida con e senza collegamneto da prima nota
+  TToken_string key; key.format("%c|%ld", m.get(F_TIPOA)[0], m.get_long(F_CODANAGR));
+  TString4 codcaus = cache().get(LF_ANAG, key, "CAUSQUA");
+  if (codcaus.blank())
+  {
+    key.format("%ld|%c|%ld|%d", 
+               m.get_long(F_CODDITTA), m.get(F_TIPOA)[0], 
+               m.get_long(F_CODANAGR), m.get_int(F_NPROG)-1);
+    codcaus = cache().get(LF_SCPERC, key, SPR_CODCAUS);
+  }
+  if (codcaus.full())
+  {
+    const TRectype& caus = cache().get("%CA7", codcaus);
+    build_causqua_items(m, caus.get("S1"));  
+    m.set(F_CODCAUS, codcaus, 0x3);
+    m.set(F_CAUSQUA, caus.get("S2"));
+  }
 }
 
 void TSchedaPercipienti::on_config_change()
 {
-  TConfig conf(CONFIG_STUDIO, "77");
+  _anno_dic = ini_get_int(CONFIG_STUDIO, "77", ANNO_SEL); 
-  _anno_dic = conf.get_int(ANNO_SEL); 
 }
 
 void TSchedaPercipienti::init_query_mode(TMask& m)
@@ -1347,12 +1376,10 @@ TSheet_field& TSchedaPercipienti::pag_sheet_enabled(TMask& m, bool force_enable)
   if (s == NULL)
   {
     // reperisco codice quadro della scheda 
-    TString16 codcau(_rel->lfile().get("CODCAUS"));
+    TString4 qua = "C";
-    TTable cau("%ca7");
+    const TString4 codcau = _rel->lfile().get("CODCAUS");
-    cau.zero();
+    const TRectype& cau = cache().get("%CA7", codcau);
-    cau.put("CODTAB", codcau);
+    if (!cau.empty())
-    TString16 qua = "C";
-    if (cau.read() == NOERR)
       qua = cau.get("S1");  
       
     // abilito sheet  
@@ -1421,12 +1448,12 @@ bool TSchedaPercipienti::activate_pag_sheet(TMask& m)
   for (int r = 0; r < curr_s.items(); r++)   
   {         
     TToken_string& t = curr_s.row(r);
-    if (!my_empty_items(t, FALSE)) 
+    if (!my_empty_items(t, false)) 
     {
       from_sheet_to_struct(t, s);
       calcola_riga_pag(s,
                        c, 
-                       TRUE,  
+                       true,  
                        h_PercAssImp,
                        h_PercCassaPrev,
                        h_PercRitenuta,
@@ -1644,7 +1671,7 @@ Pag_struct& TSchedaPercipienti::from_sheet_to_struct(TToken_string& t, Pag_struc
   return s;
 }    
 
-void TSchedaPercipienti::from_struct_to_sheet(Pag_struct& s, TToken_string& t)
+void TSchedaPercipienti::from_struct_to_sheet(const Pag_struct& s, TToken_string& t)
 {
   // reperisco la Token_string pilota
   TToken_string columns(pilot_sheet());
@@ -2076,6 +2103,7 @@ Pag_struct& TSchedaPercipienti::clear_struct(Pag_struct& s)
   s.quotaprov = ZERO;   
   s.impnetto = ZERO;  
   s.comnetto = ZERO;
+  s.numreg = 0L;
   
   return s;
 }    
@@ -2096,13 +2124,13 @@ Pag_struct& TSchedaPercipienti::calcola_riga_pag(Pag_struct& s,
   clear_struct(c);
     
   // calcolo CPA
-  c.impcpa = (s.compenso * h_PercCassaPrev) / (CENTO + h_PercCassaPrev);
+  c.impcpa = s.compenso * h_PercCassaPrev / (CENTO + h_PercCassaPrev);
   c.impcpa.round(fdec);
   if (s.impcpa == ZERO || force)
     s.impcpa = c.impcpa; 
     
   // calcolo imponibile
-  c.imponibile = ((s.compenso - s.impcpa) * h_PercAssImp) / CENTO;
+  c.imponibile = (s.compenso - s.impcpa) * h_PercAssImp / CENTO;
   c.imponibile.round(fdec);
   if (s.imponibile == ZERO || force)
     s.imponibile = c.imponibile;                                 
@@ -2112,7 +2140,7 @@ Pag_struct& TSchedaPercipienti::calcola_riga_pag(Pag_struct& s,
     s.perc = h_PercRitenuta;                                     
       
   // calcolo ritenuta lorda
-  c.ritlorda = (s.imponibile * s.perc) / CENTO;
+  c.ritlorda = s.imponibile * s.perc / CENTO;
   c.ritlorda.round(fdec);
   s.ritlorda = c.ritlorda; 
     
@@ -2132,7 +2160,7 @@ Pag_struct& TSchedaPercipienti::calcola_riga_pag(Pag_struct& s,
     s.alqimp10 = h_PercAssImpInps;
       
   // calcolo contributo Inps complessivo
-  c.ctssncomp = (((s.compenso * s.alqimp10) / CENTO) * h_PercInps) / CENTO;
+  c.ctssncomp = ((s.compenso * s.alqimp10 / CENTO) * h_PercInps) / CENTO;
   c.ctssncomp.round(fdec);
   if (s.ctssncomp == ZERO || force)
     s.ctssncomp = c.ctssncomp; 
@@ -2182,8 +2210,6 @@ Pag_struct& TSchedaPercipienti::calcola_riga_pag(Pag_struct& s,
   // calcolo compenso al netto delle ritenute
   s.comnetto = s.compenso - s.ritenuta;    
 
-	s.numreg = c.numreg;
-  
   return s;
 }
 

m770/770102.cpp

@@ -43,7 +43,7 @@ void TSchedaPercipienti::init_mask(TMask& m, bool inserimento)
             // Update spreadsheet
             rec2row(pags.row(0), rpag, 0);  
             // ricalcolo riga pagamento
-            TString16 codcau(m.get(F_CODCAUS));
+            const TString& codcau = m.get(F_CODCAUS);
             TTable cau("%ca7");
             cau.zero();
             cau.put("CODTAB", codcau);
@@ -730,16 +730,19 @@ bool TSchedaPercipienti::vers1015_handler(TMask_field& f, KEY k)
 bool TSchedaPercipienti::check_causale(TMask_field& f, KEY k)
 {
   TMask& m = f.mask();
-  TString16 cod_qua(m.get(F_CODQUA));
 
+  if (k == K_TAB)
+  {
+    const TString& cod_qua = m.get(F_CODQUA);
     // creo run-time gli items per la causale quadro  
     app().build_causqua_items(m, cod_qua);  
-    
+  }
   
   if (k == K_TAB && m.is_running())
   {
     // leggo causale indicata
-    TFixed_string cod_caus(f.get(),3);
+    //TFixed_string cod_caus(f.get(),3);
+    const TString& cod_qua = m.get(F_CODQUA);
     
     // cose da fare solo se viene modificato il codice causale
     if (f.to_check(k))

m770/770102.h

@@ -134,7 +134,7 @@ class TSchedaPercipienti : public TRelation_application
     // riempe la struttura pagamento da una riga di sheet 
     Pag_struct& from_sheet_to_struct(TToken_string& t, Pag_struct& s); 
     // riempe una riga di sheet dalla struttura pagamento
-    void from_struct_to_sheet(Pag_struct& s, TToken_string& t);
+    void from_struct_to_sheet(const Pag_struct& s, TToken_string& t);
     // riempe la struttura pagamento dalla maschera di sheet
     Pag_struct& from_mask_to_struct(TMask& m, Pag_struct& s); 
     // riempe la maschera di sheet dalla struttura pagamento
@@ -207,7 +207,7 @@ class TSchedaPercipienti : public TRelation_application
     bool        coll_datanum() const { return _coll._datadoc.not_empty() && _coll._numdoc.not_empty(); }
     long        coll_numreg() const { return _coll._numreg; }
     bool        esiste_perc(const TMask& m, const char* coda=NULL);
-		void				agg_pagamenti(const TRectype & sch);
+		void				agg_pagamenti(const TRectype& sch, const TDate& pag_dal);
 
     TSheet_field& pags() const;
     TSheet_field& vers() const;

m770/777100.cpp

@@ -747,20 +747,13 @@ TTracciato770::TTracciato770(char tipo) : _tipo(tipo)
     add_field("Situazione",                           NU, 674, 1);
     add_field("Dicastero di appartenenza",            CN, 675, 11);
 
-    add_field("Firma del dichiarante",                CB, 746, 1, 54); // 54
-    add_field("Codice fiscale incaricato",            CF, 747,16);
-    add_field("Soggetto",                             NU, 763, 1);
-    add_field("Firma incaricato",                     CB, 764, 1);
-    add_field("Codice fiscale presidente",            CF, 765,16);
-    add_field("Firma presidente",                     CB, 781, 1);     // 59
-
     add_field("Redazione della dichiarazione",        NU, 797, 1, 75); // 75
     add_field("Numero comunicaz. lavoro dipendente",  NU, 798, 8);
     add_field("Numero comunicaz. lavoro autonomo",    NU, 806, 8);
     add_field("Casella prospetto SS",                 CB, 814, 1);     // 78
     add_field("Casella prospetto ST",                 CB, 815, 1);
-    add_field("Casella prospetto SV",                 CB, 816, 1);     // 80
+    add_field("Casella prospetto SV",                 CB, 816, 1);     
-    add_field("Casella prospetto SX",                 CB, 817, 1);     
+    add_field("Casella prospetto SX",                 CB, 817, 1);     // 81
     add_field("Casella prospetto SY",                 CB, 818, 1);     
     add_field("Presenza 770 ordinario 2011",          CB, 819, 1);
     add_field("Codice fiscale parte restante",        CF, 820,16);
@@ -776,7 +769,24 @@ TTracciato770::TTracciato770(char tipo) : _tipo(tipo)
     add_field("Numero comunicaz. lavoro dipendente",  NU, 864, 8);     
     add_field("Numero comunicaz. lavoro autonomo",    NU, 872, 8);      // 93
 
-    add_field("Situazioni particolari",               NU,1180,2, 100);  // 100
+    add_field("Firma del dichiarante",                CB, 880, 1, 94);  // 94
+    add_field("Codice fiscale",                       CF, 881,16);
+    add_field("Soggetto",                             NU, 897, 1);
+    add_field("Firma",                                CB, 898, 1);      // 97
+    add_field("Codice fiscale",                       CF, 899,16);
+    add_field("Soggetto",                             NU, 915, 1);
+    add_field("Firma",                                CB, 916, 1);      // 100
+    add_field("Codice fiscale",                       CF, 917,16);
+    add_field("Soggetto",                             NU, 933, 1);
+    add_field("Firma",                                CB, 934, 1);      // 103
+    add_field("Codice fiscale",                       CF, 935,16);
+    add_field("Soggetto",                             NU, 951, 1);
+    add_field("Firma",                                CB, 952, 1);      // 106
+    add_field("Codice fiscale",                       CF, 953,16);
+    add_field("Soggetto",                             NU, 969, 1);
+    add_field("Firma",                                CB, 970, 1);      // 107
+
+    add_field("Situazioni particolari",               NU,1180,2, 116);  // 116
 
     add_field("Codice fiscale del rappresentante",    CF,1396,16,126);  // 126
     add_field("Codice carica del rappresentante",     NU,1412, 2);
@@ -1352,7 +1362,6 @@ bool TTrasferimento770::append_record_b()
       rec.set(47, rec_anagiu.get(ANG_SITSOC));
     }
 
-    rec.set(54, 1); // Firma del dichiarante
     rec.set(75, 1); // Reazione della dichiarazione (sezione I)
     rec.set(76, 0); // Comunicazioni relative a certificazioni lavoro dipendente
     const int autonomi = conta_certificazioni();
@@ -1364,6 +1373,8 @@ bool TTrasferimento770::append_record_b()
     rec.set(81, prosp_s);      // casella prospetto SX
     rec.set(82, false);        // casella prospetto SY
     
+    rec.set(94, 1);            // Firma del dichiarante
+
     rec.set(100, 0);           // situazioni particolari: vale sempre 0
 
     const TRectype& rec_nditte = _cache770.get(LF_NDITTE, _cod_ditta);
@@ -1412,9 +1423,9 @@ void TTrasferimento770::riepiloga_ss(const TRecord770& rec, TArray& riep_ss) con
   {   
     const TString& key = code.right(3);
     const int num = atoi(key);
-    if (num >= 25 && num <= 30) 
+    if (num >= 26 && num <= 31) 
     {
-      const int idx = num-25;
+      const int idx = num-26;
       real* r = (real*)riep_ss.objptr(idx);
       if (r == NULL)
       {

m770/77lib.h

@@ -401,17 +401,17 @@ struct Pag_struct
 	long numreg;
   
   // overloading operatore di confronto
-  int operator==(Pag_struct& s);        
+  bool operator==(const Pag_struct& s) const;        
   
   // overloading operatore di assegnazione
   // ritorna per riferimento la struttura
   // compilata con i valori del record passato
-  Pag_struct& operator=(TRectype & rec);  
+  Pag_struct& operator=(const TRectype & rec);  
   
   // overloading operatore di assegnazione
   // ritorna per riferimento la struttura
   // incrementata dai valori della struttura passata 
-  Pag_struct& operator+=(Pag_struct& s); 
+  Pag_struct& operator+=(const Pag_struct& s); 
 };  
 
 #endif

m770/77lib01.cpp

@@ -1076,7 +1076,7 @@ bool TVersamento_stampa::find(TVersamento& vers)
 }
 
 // overloading operatore di confronto per la struct dei pagamenti
-int Pag_struct::operator==(Pag_struct& s)
+bool Pag_struct::operator==(const Pag_struct& s) const
 {
   if (this->datapag != s.datapag)
     return 0;
@@ -1145,7 +1145,7 @@ int Pag_struct::operator==(Pag_struct& s)
 
 // overloading operatore di assegnazione per la struct dei pagamenti 
 // partendo da un TRectype
-Pag_struct& Pag_struct::operator=(TRectype& rec)
+Pag_struct& Pag_struct::operator=(const TRectype& rec)
 {
   // compila struttura con valori del record
   this->datapag = rec.get_date("DATAPAG");      
@@ -1177,14 +1177,14 @@ Pag_struct& Pag_struct::operator=(TRectype& rec)
   this->ammlordo = rec.get_real("AMMLORDO");
   this->quotaprov = rec.get_real("QUOTAPROV");
   this->impnetto = rec.get_real("IMPNETTO");
-  this->comnetto = rec.get_real("COMNETTO"); 
+  this->comnetto = rec.get_real(PAG_COMNETTO); 
-  
+  this->numreg = rec.get_long(PAG_NUMREG); 
   return *this; 
 }                                                                    
 
 // overloading operatore di assegnazione per la struct dei pagamenti 
 // aggiunge i valori della struttura passata
-Pag_struct& Pag_struct::operator+=(Pag_struct& s)
+Pag_struct& Pag_struct::operator+=(const Pag_struct& s)
 {
   // aggiunge agli importi i valori della struttura passata
   this->imponibile += s.imponibile;

m770/77qla.frm

@@ -219,100 +219,108 @@ BEGIN
   SPECIAL STRING TRASFER "AU001022" "NP"
 END
 
-VALUTA 23
+NUMERO 23
 BEGIN
-  KEY "SOMME NON SOGGETTE A RITENUTA"
+  KEY "Codice somme non soggette a ritenuta"
-  PROMPT 66 9 ""
+  PROMPT 64 9 ""
-  FIELD SOMME
   SPECIAL STRING TRASFER "AU001023" "NP"
+  MESSAGE _NUMEXPR,IF(SOMME>0,1,0)
 END
 
 VALUTA 24
 BEGIN
-  KEY "IMPONIBILE = 21-22-23"
+  KEY "SOMME NON SOGGETTE A RITENUTA"
-  PROMPT 88 9 ""
+  PROMPT 66 9 ""
-  FIELD IMPONIBILE    
+  FIELD SOMME
   SPECIAL STRING TRASFER "AU001024" "NP"
 END
 
 VALUTA 25
 BEGIN
-  KEY "Ritenute operate a titolo di acconto"
+  KEY "IMPONIBILE = 21-22-23"
-  PROMPT 109 9 ""
+  PROMPT 88 9 ""
-  FIELD IMPORTO       
+  FIELD IMPONIBILE    
   SPECIAL STRING TRASFER "AU001025" "NP"
 END
 
-
 VALUTA 26
 BEGIN
-  KEY "Ritenute operate a titolo di imposta"
+  KEY "Ritenute operate a titolo di acconto"
   PROMPT 109 9 ""
+  FIELD IMPORTO       
   SPECIAL STRING TRASFER "AU001026" "NP"
 END
 
+
 VALUTA 27
 BEGIN
-  KEY "RITENUTE SOSPESE"
+  KEY "Ritenute operate a titolo di imposta"
   PROMPT 109 9 ""
-  FIELD RITSOSPESE
+  SPECIAL STRING TRASFER "AU001027" "NP"
-  SPECIAL STRING TRASFER "AU001027" ""
 END
 
 VALUTA 28
 BEGIN
-  KEY "ADDIZIONALE REGIONALE a titolo di acconto"
+  KEY "RITENUTE SOSPESE"
   PROMPT 109 9 ""
-  FIELD ADDREG                    
+  FIELD RITSOSPESE
-  SPECIAL STRING TRASFER "AU001028" "NP"
+  SPECIAL STRING TRASFER "AU001028" ""
 END
 
 VALUTA 29
 BEGIN
-  KEY "ADDIZIONALE REGIONALE a titolo di imposta"
+  KEY "ADDIZIONALE REGIONALE a titolo di acconto"
   PROMPT 109 9 ""
+  FIELD ADDREG                    
   SPECIAL STRING TRASFER "AU001029" "NP"
 END
 
 VALUTA 30
 BEGIN
-  KEY "ADDIZIONALE REGIONALE SOSPESA"
+  KEY "ADDIZIONALE REGIONALE a titolo di imposta"
   PROMPT 109 9 ""
-  FIELD ADDREGSOSP
   SPECIAL STRING TRASFER "AU001030" "NP"
 END
 
 VALUTA 31
 BEGIN
-  KEY "IMPONIBILE ANNI PRECEDENTI"
+  KEY "ADDIZIONALE REGIONALE SOSPESA"
   PROMPT 109 9 ""
-  FIELD IMPANNIPRE
+  FIELD ADDREGSOSP
   SPECIAL STRING TRASFER "AU001031" "NP"
 END
 
 VALUTA 32
 BEGIN
-  KEY "RITENUTE ANNI PRECEDENTI"
+  KEY "IMPONIBILE ANNI PRECEDENTI"
   PROMPT 109 9 ""
-  FIELD RITANNIPRE
+  FIELD IMPANNIPRE
   SPECIAL STRING TRASFER "AU001032" "NP"
 END
 
 VALUTA 33
 BEGIN
-  KEY "CONTRIBUTI PREVIDENZIALI A CARICO DEL SOGGETTO EROGANTE"
+  KEY "RITENUTE ANNI PRECEDENTI"
   PROMPT 109 9 ""
-  FIELD CTINPSEROG
+  FIELD RITANNIPRE
   SPECIAL STRING TRASFER "AU001033" "NP"
 END
 
 VALUTA 34
 BEGIN
-  KEY "CONTRIBUTI PREVIDENZIALI A CARICO DEL PERCIPIENTE"
+  KEY "CONTRIBUTI PREVIDENZIALI A CARICO DEL SOGGETTO EROGANTE"
   PROMPT 109 9 ""
-  FIELD CTINPSPERC
+  FIELD CTINPSEROG
   SPECIAL STRING TRASFER "AU001034" "NP"
 END
 
+VALUTA 35
+BEGIN
+  KEY "CONTRIBUTI PREVIDENZIALI A CARICO DEL PERCIPIENTE"
+  PROMPT 109 9 ""
+  FIELD CTINPSPERC
+  SPECIAL STRING TRASFER "AU001035" "NP"
+END
+
 END