- MI6134 stampa bilancio IV dir. CEE.

- MI6127 stampa bilancio.


git-svn-id: svn://10.65.10.50/trunk@3863 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-11-05 08:11:31 +00:00
parent 4779f273e5
commit 1050a335fc
3 changed files with 94 additions and 31 deletions

View File

@ -38,7 +38,8 @@ BEGIN
DISPLAY "Data inizio esercizio" D0 DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1 DISPLAY "Data fine esercizio" D1
OUTPUT F_ANNO CODTAB OUTPUT F_ANNO CODTAB
FLAGS "Z" FLAGS "Z"
CHECKTYPE REQUIRED
ADD RUN cg0 -5 esc ADD RUN cg0 -5 esc
END END

View File

@ -706,22 +706,32 @@ bool tipo_bilancio (TMask_field& f, KEY key)
} }
else else
if (tipo_bil == 2) if (tipo_bil == 2)
{ {
if (anno != 0) if (tipo_stampa == 1)
{ {
f.mask().show (96); if (anno != 0)
f.mask().show (97); {
f.mask().hide (98); f.mask().show (96);
f.mask().hide (99); f.mask().show (97);
f.mask().hide (98);
f.mask().hide (99);
}
else
if (anno == 0)
{
f.mask().show(98);
f.mask().show(99);
f.mask().hide(96);
f.mask().hide(97);
}
} }
else else
if (anno == 0) {
{ f.mask().hide (98);
f.mask().show(98); f.mask().hide (99);
f.mask().show(99); f.mask().hide(96);
f.mask().hide(96); f.mask().hide(97);
f.mask().hide(97); }
}
} }
if (tipo_bil == 2 && tipo_stampa == 1 && f.mask().get_int(F_ANNOESE) == 0) if (tipo_bil == 2 && tipo_stampa == 1 && f.mask().get_int(F_ANNOESE) == 0)
f.mask().show(F_QUADRATURA); f.mask().show(F_QUADRATURA);
@ -737,8 +747,14 @@ bool anno_esercizio (TMask_field& f, KEY key)
if (key == K_TAB || f.focusdirty()) if (key == K_TAB || f.focusdirty())
{ {
int tipo_stp;
tipo_bil = f.mask().get_int(F_TIPOBIL); tipo_bil = f.mask().get_int(F_TIPOBIL);
anno = f.mask().get_int(F_ANNOESE); anno = f.mask().get_int(F_ANNOESE);
if (tipo_bil == 1)
tipo_stp = f.mask().get_int(F_TIPOSTAMPA);
else
tipo_stp = f.mask().get_int(F_TIPOSTAMPA1);
if (tipo_bil == 1) if (tipo_bil == 1)
{ {
f.mask().hide (98); f.mask().hide (98);
@ -749,21 +765,31 @@ bool anno_esercizio (TMask_field& f, KEY key)
else else
if (tipo_bil == 2) if (tipo_bil == 2)
{ {
if (anno != 0) if (tipo_stp == 1)
{ {
f.mask().show (96); if (anno != 0)
f.mask().show (97); {
f.mask().hide (98); f.mask().show (96);
f.mask().hide (99); f.mask().show (97);
f.mask().hide (98);
f.mask().hide (99);
}
else
if (anno == 0)
{
f.mask().show(98);
f.mask().show(99);
f.mask().hide(96);
f.mask().hide(97);
}
} }
else else
if (anno == 0) {
{ f.mask().hide (98);
f.mask().show(98); f.mask().hide (99);
f.mask().show(99); f.mask().hide(96);
f.mask().hide(96); f.mask().hide(97);
f.mask().hide(97); }
}
} }
} }
@ -803,17 +829,53 @@ bool tipo_stampa(TMask_field& f,KEY k)
error_box("Nella stampa all' ultima immissione l' anno esercizio e' obbligatorio"); error_box("Nella stampa all' ultima immissione l' anno esercizio e' obbligatorio");
return FALSE; return FALSE;
} }
} }
if (k == K_SPACE) if (k == K_SPACE)
{ {
int anno = f.mask().get_int(F_ANNOESE);
tipo_bil = f.mask().get_int(F_TIPOBIL); tipo_bil = f.mask().get_int(F_TIPOBIL);
if (tipo_bil == 1) if (tipo_bil == 1)
tipo_stampa = f.mask().get_int(F_TIPOSTAMPA); tipo_stampa = f.mask().get_int(F_TIPOSTAMPA);
else else
tipo_stampa = f.mask().get_int(F_TIPOSTAMPA1); tipo_stampa = f.mask().get_int(F_TIPOSTAMPA1);
if (tipo_bil == 1)
{
f.mask().hide (98);
f.mask().hide (99);
f.mask().hide(96);
f.mask().hide(97);
}
else
if (tipo_bil == 2)
{
if (tipo_stampa == 1)
{
if (anno != 0)
{
f.mask().show (96);
f.mask().show (97);
f.mask().hide (98);
f.mask().hide (99);
}
else
if (anno == 0)
{
f.mask().show(98);
f.mask().show(99);
f.mask().hide(96);
f.mask().hide(97);
}
}
else
{
f.mask().hide (98);
f.mask().hide (99);
f.mask().hide(96);
f.mask().hide(97);
}
}
if (tipo_bil == 2 && tipo_stampa == 1 && f.mask().get_int(F_ANNOESE) == 0) if (tipo_bil == 2 && tipo_stampa == 1 && f.mask().get_int(F_ANNOESE) == 0)
f.mask().show(F_QUADRATURA); f.mask().show(F_QUADRATURA);
else else

View File

@ -89,7 +89,7 @@ BEGIN
MESSAGE HIDE,F_DATALIM MESSAGE HIDE,F_DATALIM
MESSAGE RESET,F_DATALIM MESSAGE RESET,F_DATALIM
MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV MESSAGE SHOW,F_STAMPAINT|SHOW,F_STAMPACOD|SHOW,F_STAMPAMOV
MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_STAMPAMODULO MESSAGE SHOW,F_DATAINI|SHOW,F_DATAFINE|SHOW,F_STAMPAMODULO
ITEM "2|All'ultima immissione" ITEM "2|All'ultima immissione"
MESSAGE HIDE,F_DATALIM|HIDE,F_DATAINI|HIDE,F_DATAFINE MESSAGE HIDE,F_DATALIM|HIDE,F_DATAINI|HIDE,F_DATAFINE
MESSAGE RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE MESSAGE RESET,F_DATAINI|RESET,F_DATALIM|RESET,F_DATAFINE