Corretto errore MI4318
git-svn-id: svn://10.65.10.50/trunk@3577 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
6334698eef
commit
5b7bd85e60
@ -20,9 +20,6 @@ MENUBAR MENU_BAR(3)
|
||||
|
||||
MENU MENU_BAR(3)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
ITEM BAR_ITEM(1) "~Riepilogo"
|
||||
ITEM BAR_ITEM(2) "~Stampa"
|
||||
|
||||
|
||||
MENUBAR MENU_BAR(4)
|
||||
|
||||
|
||||
@ -131,6 +131,7 @@ class TProgressivi_iva : public TPrintapp
|
||||
|
||||
protected:
|
||||
static bool tipo_handler(TMask_field& f, KEY k);
|
||||
static bool selection_handler(TMask_field& f, KEY k);
|
||||
|
||||
public:
|
||||
|
||||
@ -518,34 +519,34 @@ bool TProgressivi_iva::tipo_handler(TMask_field& f, KEY k)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TProgressivi_iva::selection_handler(TMask_field& f, KEY k)
|
||||
{
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
const int sel = atoi(f.get());
|
||||
if (sel == 1)
|
||||
{
|
||||
const bool b = atoi(m.field(F_LIVELLO).get()) == 1 ? TRUE : FALSE;
|
||||
m.show(F_CODIVA,b);
|
||||
m.show(F_ATTIVITA,!b);
|
||||
tipo_handler(m.field(F_TIPO),K_SPACE);
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool TProgressivi_iva::set_print(int m)
|
||||
{
|
||||
TString16 masc = "";
|
||||
TMask msk("cg0400a");
|
||||
|
||||
switch(m)
|
||||
{
|
||||
case 1:
|
||||
masc = "cg0400a";
|
||||
_tipo_lista = visualizza;
|
||||
break;
|
||||
case 2:
|
||||
masc = "cg0400b";
|
||||
_tipo_lista = stampa;
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
|
||||
TMask msk(masc);
|
||||
|
||||
switch(m)
|
||||
{
|
||||
case 1 :msk.set_handler(F_TIPO, tipo_handler);
|
||||
default:break;
|
||||
}
|
||||
msk.set_handler(F_TIPO, tipo_handler);
|
||||
msk.set_handler(F_SELECTION, selection_handler);
|
||||
|
||||
if (msk.run() != K_ENTER) return FALSE;
|
||||
|
||||
_tipo_lista = msk.get_int(F_SELECTION) == 1 ? visualizza : stampa;
|
||||
|
||||
switch (_tipo_lista)
|
||||
{
|
||||
case visualizza:
|
||||
|
||||
@ -17,6 +17,7 @@
|
||||
#define F_DATASTAMPA 112
|
||||
#define F_MESE 113
|
||||
#define F_STAMPA 114
|
||||
#define F_SELECTION 115
|
||||
|
||||
#endif // __CG0400_H
|
||||
|
||||
|
||||
@ -2,6 +2,7 @@
|
||||
|
||||
PAGE "Riepilogo progressivi IVA" -1 -1 76 19
|
||||
|
||||
|
||||
GROUPBOX DLG_NULL 74 3
|
||||
BEGIN
|
||||
PROMPT 1 0 ""
|
||||
@ -41,27 +42,38 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
RADIOBUTTON F_SELECTION 40
|
||||
BEGIN
|
||||
PROMPT 2 5 "Tipo di stampa "
|
||||
ITEM "1|Riepilogo progressivi per aliquota"
|
||||
MESSAGE HIDE,2@|SHOW,3@
|
||||
ITEM "2|Riepilogo progressivi per mese"
|
||||
MESSAGE SHOW,2@|HIDE,1@
|
||||
END
|
||||
|
||||
RADIOBUTTON F_LIVELLO 24
|
||||
BEGIN
|
||||
PROMPT 2 5 "Livello progressivi"
|
||||
PROMPT 2 9 "Livello progressivi"
|
||||
HELP "Tipo di raggruppamento dei riepiloghi"
|
||||
ITEM "1|Per aliquota"
|
||||
MESSAGE HIDE,F_ATTIVITA|SHOW,F_CODIVA|K_SPACE,F_TIPO
|
||||
ITEM "2|Per attivita'"
|
||||
MESSAGE SHOW,F_ATTIVITA|HIDE,F_CODIVA|K_SPACE,F_TIPO
|
||||
GROUP 1 3
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPO 24
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo progressivi "
|
||||
PROMPT 40 9 "Tipo progressivi "
|
||||
HELP "Tipo di riepilogo da effettuare"
|
||||
ITEM "1|Vendite"
|
||||
ITEM "2|Acquisti"
|
||||
GROUP 1 3
|
||||
END
|
||||
|
||||
STRING F_CODIVA 4
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice IVA "
|
||||
PROMPT 2 13 "Codice IVA "
|
||||
HELP "Aliquota IVA da riepilogare"
|
||||
FLAGS "U"
|
||||
USE %IVA
|
||||
@ -74,19 +86,21 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
VALIDATE ZEROFILL_FUNC 2
|
||||
WARNING "Codice IVA assente"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOTAB 38
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo tabella "
|
||||
PROMPT 2 14 "Tipo tabella "
|
||||
HELP "Tipo di tabella da visualizzare"
|
||||
ITEM "1|Vendite in genere"
|
||||
ITEM "2|Vendite in sospensione d'imposta"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_ATTIVITA 5
|
||||
BEGIN
|
||||
PROMPT 2 10 "Codice attivita' "
|
||||
PROMPT 2 13 "Codice attivita' "
|
||||
HELP "Codice dell'attivita' di cui si vuole il riepilogo"
|
||||
USE LF_ATTIV
|
||||
JOIN %AIS TO LF_ATTIV INTO CODTAB=CODATT
|
||||
@ -97,11 +111,12 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" LF_TABCOM->S0
|
||||
OUTPUT F_ATTIVITA CODATT
|
||||
WARNING "Codice attivita' non presente"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_TIPOTABEL 1
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo tabella "
|
||||
PROMPT 2 14 "Tipo tabella "
|
||||
HELP "Tipo di tabella da visualizzare"
|
||||
SHEET "Tipo|Descrizione@50"
|
||||
ITEM "1|Acquisti beni per rivendita"
|
||||
@ -111,11 +126,12 @@ BEGIN
|
||||
ITEM "5|Acquisti beni da ammortizzare ult.detr. 6%"
|
||||
INPUT F_TIPOTABEL
|
||||
OUTPUT F_TIPOTABEL
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
NUMBER F_TIPOTABE 1
|
||||
BEGIN
|
||||
PROMPT 2 12 "Tipo tabella "
|
||||
PROMPT 2 14 "Tipo tabella "
|
||||
HELP "Tipo di tabella da visualizzare"
|
||||
SHEET "Tipo|Descrizione@50"
|
||||
ITEM "1|Acquisti in genere"
|
||||
@ -127,15 +143,41 @@ BEGIN
|
||||
ITEM "7|Acquisti in sospensione d'imposta"
|
||||
INPUT F_TIPOTABE
|
||||
OUTPUT F_TIPOTABE
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
/*
|
||||
BUTTON DLG_PRINT 10 2
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
PROMPT 2 9 "Data stampa "
|
||||
HELP "Data in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
LISTBOX F_MESE 11
|
||||
BEGIN
|
||||
PROMPT 2 11 "Mese riepilogo "
|
||||
ITEM "1|Gennaio" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "2|Febbraio" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "3|Marzo" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "4|Aprile" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "5|Maggio" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "6|Giugno" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "7|Luglio" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "8|Agosto" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "9|Settembre" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "10|Ottobre" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "11|Novembre" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "12|Dicembre" MESSAGE ENABLE,F_STAMPA
|
||||
ITEM "13|Annuale" MESSAGE "X", F_STAMPA|DISABLE,F_STAMPA
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPA
|
||||
BEGIN
|
||||
PROMPT 2 13 "Stampa progressivi da inizio anno "
|
||||
GROUP 2
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
@ -150,3 +192,4 @@ END
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user