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

Corretto MI2260.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3962 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-12-06 08:16:43 +00:00
parent b4724c22ba
commit 450a28c044
1 changed files with 36 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
cg/cg0400.cpp
View File

@ -151,7 +151,7 @@ public:
void prospetto_pagina(TGen_array&, TIva_array&);
int stampa_intestazione_ditta();
const char* desc_attivita(const char*);
const char* desc_iva(const char*);
const char* desc_iva(const TString&);
char look_lia(long ditta = 0l);
void look_pim();
@ -178,18 +178,26 @@ const char* TProgressivi_iva::desc_attivita(const char* codatt)
return TMP;
}
const char* TProgressivi_iva::desc_iva(const char* cod)
const char* TProgressivi_iva::desc_iva(const TString& cod)
{
TTable tab_iva("%IVA");
TString codtab(format("%-4s", cod));
tab_iva.zero();
tab_iva.put("CODTAB", codtab);
if (tab_iva.read()==NOERR)
TMP = tab_iva.get("S0");
if (cod == "{AF")
TMP = "Artt.17c3/74c1";
else if (cod == "{A36")
TMP = "Art.40c5/6/8 a.i.";
else
TMP = "";
{
TTable tab_iva("%IVA");
TString codtab(format("%-4s", (const char*)cod));
tab_iva.zero();
tab_iva.put("CODTAB", codtab);
if (tab_iva.read()==NOERR)
TMP = tab_iva.get("S0");
else
TMP = "";
}
return TMP;
}
@ -255,10 +263,12 @@ void TProgressivi_iva::look_pim()
TTable reg("REG");
TString80 codtab;
TString16 codatt,codiva,tipoiva,codreg;
TToken_string a36("",'!');
real imponibile, imposta,afi,afv,a36i,a36v;
for (pim.first(); !pim.eof(); pim.next())
{
real imponibile, imposta;
imponibile = imposta = afi = afv = a36i = a36v = ZERO;
tiporec tipo;
codtab = pim.get("CODTAB");
@ -311,6 +321,19 @@ void TProgressivi_iva::look_pim()
imponibile += ifs;
imposta += vfs;
}
if (_mese == 13)
{ // Separa le autofatture non residenti(AF) e gli importi A36
afi = pim.get_real("R7");
afv = pim.get_real("R8");
a36 = pim.get("S0");
a36i = a36.get(0);
a36v = a36.get(1);
imponibile -= afi + a36i;
imposta -= afv + a36v;
_gen1_array.add_riga("{AF",afi,afv,ZERO,ZERO,ZERO,ZERO); // Mette '{' cosi' vengono stampati per ultimi
_gen1_array.add_riga("{A36",a36i,a36v,ZERO,ZERO,ZERO,ZERO);
}
if (_mese != 13)
_gen_array.add_riga(codiva,imponibile,imposta,ZERO,ZERO,ZERO,ZERO);
if ((_st_inizio_anno && mese == _mese) || _mese == 13) //lo metto in un array a parte
@ -738,6 +761,7 @@ void TProgressivi_iva::prospetto_pagina(TGen_array& gen, TIva_array& iva)
real t_impov,t_imposv,t_impoa,t_imposa,t_impobd,t_imposbd;
t_impov = t_imposv = t_impoa = t_imposa = t_impobd = t_imposbd = ZERO;
int r = 1;
TString80 descr;
set_row(++r, "Cod.@40gVENDITE@77gACQUISTI@113gIMPORTAZIONI");
set_row(++r, "IVA Descrizione@29gImponibile@48gImposta@67gImponibile@86gImposta@105gImponibile@124gImposta");
@ -746,7 +770,8 @@ void TProgressivi_iva::prospetto_pagina(TGen_array& gen, TIva_array& iva)
for (int k = 0; k < gen.items(); k++)
{
TRiga_gen& riga = (TRiga_gen&)gen[k];
TString80 descr = desc_iva(riga._codiva);
descr = desc_iva(riga._codiva);
if (riga._codiva[0] == '{') riga._codiva.ltrim(1);
if (riga._impoven != ZERO)
set_row(r, "@24g%r", &riga._impoven);
if (riga._imposven != ZERO)