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

Patch level :10.0 966

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
aggiunta la trattazione degli occasionali


git-svn-id: svn://10.65.10.50/branches/R_10_00@21856 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2011-03-30 13:16:41 +00:00
parent ec46a6feac
commit 4ad5200f4c
2 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cg/cg7200.cpp
View File

@ -8,6 +8,7 @@
#include <clifo.h>
#include <mov.h>
#include <occas.h>
#include <rmoviva.h>
#include "../ba/ba8500.h"
@ -39,6 +40,7 @@ TPrint_x_imponibile_recordset::TPrint_x_imponibile_recordset()
create_field("Protiva", -1, 6, _longfld, true);
create_field("Tipo", -1, 1, _alfafld, true);
create_field("Codcf", -1, 6, _longfld, true);
create_field("Ragsoc", -1, 50, _alfafld, true);
create_field("Totdoc", -1, 18, _realfld, true);
//campi da LF_RMOVIVA
create_field("Imponibile", -1, 18, _realfld, true);
@ -196,6 +198,20 @@ bool TPrint_x_imponibile_mask::aggiungi_movimento(const TRectype& rec, TPrint_x_
output_recordset.set("Protiva", rec.get_long(MOV_PROTIVA));
output_recordset.set("Tipo", rec.get(MOV_TIPO));
output_recordset.set("Codcf", codcf);
TString80 ragsoc;
const TString16 ocfpi = rec.get(MOV_OCFPI); //è uno stupido cliente occasionale?
if (ocfpi.full())
{
ragsoc = cache().get(LF_OCCAS, ocfpi, OCC_RAGSOC);
}
else
{
TToken_string key_clifo;
key_clifo.add(rec.get(MOV_TIPO));
key_clifo.add(codcf);
ragsoc = cache().get(LF_CLIFO, key_clifo, CLI_RAGSOC);
}
output_recordset.set("Ragsoc", ragsoc);
output_recordset.set("Totdoc", rec.get_real(MOV_TOTDOC));
output_recordset.set("Imponibile", tot_imponibile);
output_recordset.set("Imposta", tot_imposta);

8
cg/cg7200a.rep
View File

@ -110,8 +110,11 @@ THEN</prescript>
<groupby>Codcf</groupby>
<font face="Arial" bold="1" size="8" />
<prescript description="H2 PRESCRIPT">MESSAGE RESET,F2</prescript>
<field x="1" y="0.75" type="Numero" align="right" width="6" pattern="1">
<source>Codcf</source>
</field>
<field x="8" y="0.75" type="Stringa" width="50" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,RAGSOC</prescript>
<source>Ragsoc</source>
</field>
<field x="60" y="0.75" type="Stringa" width="11" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,PAIV</prescript>
@ -119,9 +122,6 @@ THEN</prescript>
<field x="73" y="0.75" type="Stringa" width="16" pattern="1">
<prescript description="H2.0 PRESCRIPT">MESSAGE ISAMREAD,20,TIPOCF=#H1.101!CODCF=#151,COFI</prescript>
</field>
<field x="1" y="0.75" type="Numero" align="right" width="6" id="151" pattern="1">
<source>Codcf</source>
</field>
</section>
<section type="Body" pattern="1" />
<section type="Body" level="1" pattern="1">