diff --git a/cg/cg0400.cpp b/cg/cg0400.cpp
index bc522d15e..f2151456a 100755
--- a/cg/cg0400.cpp
+++ b/cg/cg0400.cpp
@@ -183,7 +183,7 @@ const char* TProgressivi_iva::desc_iva(const TString& cod)
   
   if (cod == "{AF")
     TMP = "Artt.17c3/74c1";
-  else if (cod == "{A36")
+  else if (cod == "{A13")
     TMP = "Art.40c5/6/8 a.i.";
   else
   {
@@ -263,12 +263,12 @@ void TProgressivi_iva::look_pim()
   TTable reg("REG");
   TString80 codtab;
   TString16 codatt,codiva,tipoiva,codreg;
-  TToken_string a36("",'!');
-  real imponibile, imposta,afi,afv,a36i,a36v;
+  TToken_string a13("",'!');
+  real imponibile, imposta,afi,afv,a13i,a13v;
   
   for (pim.first(); !pim.eof(); pim.next())
   {
-    imponibile = imposta = afi = afv = a36i = a36v = ZERO;
+    imponibile = imposta = afi = afv = a13i = a13v = ZERO;
     tiporec tipo;
 
     codtab = pim.get("CODTAB");
@@ -319,16 +319,16 @@ void TProgressivi_iva::look_pim()
           imposta += pim.get_real("R6");
         }
         if (_mese == 13)
-        {     // Separa le autofatture non residenti(AF) e gli importi A36
+        {     // Separa le autofatture non residenti(AF) e gli importi A13
           afi = pim.get_real("R7");
           afv = pim.get_real("R8");
-          a36 = pim.get("S0"); 
-          a36i = a36.get(0);
-          a36v = a36.get(1);
-          imponibile -= afi + a36i;
-          imposta -= afv + a36v;   
+          a13 = pim.get("S0"); 
+          a13i = a13.get(0);
+          a13v = a13.get(1);
+          imponibile -= afi + a13i;
+          imposta -= afv + a13v;   
           _gen1_array.add_riga("{AF",afi,afv,ZERO,ZERO,ZERO,ZERO); // Mette '{' cosi' vengono stampati per ultimi
-          _gen1_array.add_riga("{A36",a36i,a36v,ZERO,ZERO,ZERO,ZERO);
+          _gen1_array.add_riga("{A13",a13i,a13v,ZERO,ZERO,ZERO,ZERO);
         }
         
         if (_mese != 13)