root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0

Browse Source 
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
This commit is contained in:
guy 2012-01-18 17:19:53 +00:00
parent aade406255
commit 4bc5536405
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ha/ha0500.cpp
View File

@ -519,6 +519,16 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
break; 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(); 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.. //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 //..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_TIPOCF, 'C');
nac.put(DOC_CODCF, codcf); nac.put(DOC_CODCF, codcf);
// RIGHE // RIGHE
//ogni riga di tipo merce (verigh01) del contratto origina una riga della NAC //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) if (old_codcf > 0)
genera_nac(mask, contratti_cliente, documenti_cliente, log); genera_nac(mask, contratti_cliente, documenti_cliente, log);
CHECK(codcf > old_codcf, "Ordinamento clienti errato!"); CHECK(codcf > old_codcf, "Ordinamento clienti errato!");
//aggiorna old_codcf in modo da poter controllare i contratti solo al cambio codcf //aggiorna old_codcf in modo da poter controllare i contratti solo al cambio codcf
old_codcf = codcf; old_codcf = codcf;