diff --git a/ha/ha0500.cpp b/ha/ha0500.cpp
index 5216bebf9..05c35c56d 100755
--- a/ha/ha0500.cpp
+++ b/ha/ha0500.cpp
@@ -519,11 +519,11 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
       break;
     }
 
-    const TString4 codage = contratto.get(DOC_CODAG).right(3);
+    const TString8 codage = contratto.get(DOC_CODAG);
     if (codage.full()) // Controlla se esiste una spesa su misura per l'agente
     {
       TString8 codspesa = cod_riga;
-      codspesa << codage;
+      codspesa << codage.right(3);
       const TRectype& rec_spp = cache().get("SPP", codspesa);
       if (!rec_spp.empty())
         cod_riga = codspesa;
@@ -542,6 +542,10 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
     nac.put(DOC_DATADOC, mask.get(F_DATAELAB));
     nac.put(DOC_TIPOCF, 'C');
     nac.put(DOC_CODCF, codcf);
+    nac.put(DOC_CODAG, codage);
+    nac.put(DOC_CODPAG, contratto.get(DOC_CODPAG));
+    nac.put(DOC_NUMDOCRIF, contratto.get(DOC_NUMDOCRIF));
+    nac.put(DOC_DATADOCRIF, contratto.get(DOC_DATADOCRIF));
 
     //  RIGHE