From 4bc55364054aeb750e3657c6dff841fb8c578b85 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 18 Jan 2012 17:19:53 +0000
Subject: [PATCH] Patch level         : 10.0 Files correlati     : ha0
 Ricompilazione Demo : [ ] Commento            : Aggiunta gestione codice
 spesa per agente in generazione NAC

git-svn-id: svn://10.65.10.50/branches/R_10_00@22552 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ha/ha0500.cpp | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/ha/ha0500.cpp b/ha/ha0500.cpp
index 5bcd443f5..5216bebf9 100755
--- a/ha/ha0500.cpp
+++ b/ha/ha0500.cpp
@@ -519,6 +519,16 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
       break;
     }
 
+    const TString4 codage = contratto.get(DOC_CODAG).right(3);
+    if (codage.full()) // Controlla se esiste una spesa su misura per l'agente
+    {
+      TString8 codspesa = cod_riga;
+      codspesa << codage;
+      const TRectype& rec_spp = cache().get("SPP", codspesa);
+      if (!rec_spp.empty())
+        cod_riga = codspesa;
+    }
+
     const int anno = mask.get_date(F_ADATA).year();
     //solo in caso di elaborazione definitiva si scrivono NAC di tipo D; sennò di tipo P, che sono uccidibili..
     //..all'inizio di ogni nuova elaborazione
@@ -533,7 +543,6 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
     nac.put(DOC_TIPOCF, 'C');
     nac.put(DOC_CODCF, codcf);
 
-
     //  RIGHE
 
     //ogni riga di tipo merce (verigh01) del contratto origina una riga della NAC
@@ -713,7 +722,6 @@ void THardy_elab_docs::elabora_documenti(const TMask& mask, TISAM_recordset& fat
       if (old_codcf > 0)
         genera_nac(mask, contratti_cliente, documenti_cliente, log);
 
-
       CHECK(codcf > old_codcf, "Ordinamento clienti errato!");
       //aggiorna old_codcf in modo da poter controllare i contratti solo al cambio codcf
       old_codcf = codcf;