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.exe
Ricompilazione Demo : [ ]
Commento            :
Riportati dati contratto premio originale su NAC


git-svn-id: svn://10.65.10.50/branches/R_10_00@22559 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-01-23 16:34:23 +00:00
parent deb2d098cb
commit 6c4ce55e07
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ha/ha0500.cpp
View File

@ -519,11 +519,11 @@ bool THardy_elab_docs::genera_nac(const TMask& mask, TArray& contratti_cliente,
break; 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 if (codage.full()) // Controlla se esiste una spesa su misura per l'agente
{ {
TString8 codspesa = cod_riga; TString8 codspesa = cod_riga;
codspesa << codage; codspesa << codage.right(3);
const TRectype& rec_spp = cache().get("SPP", codspesa); const TRectype& rec_spp = cache().get("SPP", codspesa);
if (!rec_spp.empty()) if (!rec_spp.empty())
cod_riga = codspesa; 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_DATADOC, mask.get(F_DATAELAB));
nac.put(DOC_TIPOCF, 'C'); nac.put(DOC_TIPOCF, 'C');
nac.put(DOC_CODCF, codcf); 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 // RIGHE