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

Modificati i nomi A36 in A13: nessuna modifica funzionale.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3978 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-12-09 08:33:02 +00:00
parent 0cbabdabf2
commit a78c93c88b
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
cg/cg0400.cpp
View File

@ -183,7 +183,7 @@ const char* TProgressivi_iva::desc_iva(const TString& cod)
if (cod == "{AF")
TMP = "Artt.17c3/74c1";
else if (cod == "{A36")
else if (cod == "{A13")
TMP = "Art.40c5/6/8 a.i.";
else
{
@ -263,12 +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;
TToken_string a13("",'!');
real imponibile, imposta,afi,afv,a13i,a13v;
for (pim.first(); !pim.eof(); pim.next())
{
imponibile = imposta = afi = afv = a36i = a36v = ZERO;
imponibile = imposta = afi = afv = a13i = a13v = ZERO;
tiporec tipo;
codtab = pim.get("CODTAB");
@ -319,16 +319,16 @@ void TProgressivi_iva::look_pim()
imposta += pim.get_real("R6");
}
if (_mese == 13)
{ // Separa le autofatture non residenti(AF) e gli importi A36
{ // Separa le autofatture non residenti(AF) e gli importi A13
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;
a13 = pim.get("S0");
a13i = a13.get(0);
a13v = a13.get(1);
imponibile -= afi + a13i;
imposta -= afv + a13v;
_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);
_gen1_array.add_riga("{A13",a13i,a13v,ZERO,ZERO,ZERO,ZERO);
}
if (_mese != 13)