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)
|
||||
|
||||
|
||||
155
cg/cg0400.cpp
155
cg/cg0400.cpp
@ -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,92 +519,92 @@ 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:
|
||||
{
|
||||
_sospmsk = _tipo_aliq = _tipo_attiv = 0;
|
||||
_codditta = msk.get_long(F_CODDITTA);
|
||||
_annoiva = msk.get_int(F_ANNO);
|
||||
_tipoprog = msk.get_int(F_TIPO); // 1 <=> vendite; 2 <=> acquisti
|
||||
_livelloprog = msk.get_int(F_LIVELLO); // 1 <=> aliquota; 2 <=> attivita'
|
||||
_codivamsk = msk.get(F_CODIVA);
|
||||
_codattmsk = msk.get(F_ATTIVITA);
|
||||
if (_livelloprog == 1 && _tipoprog == 2)
|
||||
_tipo_aliq = msk.get_int(F_TIPOTABE);
|
||||
if (_livelloprog == 2 && _tipoprog == 2)
|
||||
_tipo_attiv = msk.get_int(F_TIPOTABEL);
|
||||
if (_tipoprog == 1 && _livelloprog == 1)
|
||||
_sospmsk = msk.get_int(F_TIPOTAB); //vendite in genere; vendite in sospensione d'imposta
|
||||
|
||||
setta_intestazione();
|
||||
azzera_mesi();
|
||||
cerca_i_pim();
|
||||
case visualizza:
|
||||
{
|
||||
_sospmsk = _tipo_aliq = _tipo_attiv = 0;
|
||||
_codditta = msk.get_long(F_CODDITTA);
|
||||
_annoiva = msk.get_int(F_ANNO);
|
||||
_tipoprog = msk.get_int(F_TIPO); // 1 <=> vendite; 2 <=> acquisti
|
||||
_livelloprog = msk.get_int(F_LIVELLO); // 1 <=> aliquota; 2 <=> attivita'
|
||||
_codivamsk = msk.get(F_CODIVA);
|
||||
_codattmsk = msk.get(F_ATTIVITA);
|
||||
if (_livelloprog == 1 && _tipoprog == 2)
|
||||
_tipo_aliq = msk.get_int(F_TIPOTABE);
|
||||
if (_livelloprog == 2 && _tipoprog == 2)
|
||||
_tipo_attiv = msk.get_int(F_TIPOTABEL);
|
||||
if (_tipoprog == 1 && _livelloprog == 1)
|
||||
_sospmsk = msk.get_int(F_TIPOTAB); //vendite in genere; vendite in sospensione d'imposta
|
||||
|
||||
setta_intestazione();
|
||||
azzera_mesi();
|
||||
cerca_i_pim();
|
||||
}
|
||||
break;
|
||||
case stampa:
|
||||
{
|
||||
_codditta = msk.get_long(F_CODDITTA);
|
||||
_anno = msk.get_int(F_ANNO);
|
||||
_datast = msk.get(F_DATASTAMPA);
|
||||
_mese = msk.get_int(F_MESE);
|
||||
_st_inizio_anno = msk.get_bool(F_STAMPA);
|
||||
|
||||
TLocalisamfile attiv(LF_ATTIV);
|
||||
attiv.zero();
|
||||
attiv.put(ATT_CODDITTA, _codditta);
|
||||
TRectype r(attiv.curr());
|
||||
//prospetto per ogni codice attivita' della ditta
|
||||
for(attiv.read(_isgteq); !attiv.eof(); attiv.next())
|
||||
{
|
||||
if (attiv.curr() != r) break;
|
||||
|
||||
_cod_att = attiv.get("CODATT");
|
||||
_prima_pagina = TRUE;
|
||||
|
||||
_iva_array.destroy();
|
||||
_iva1_array.destroy();
|
||||
_gen_array.destroy();
|
||||
_gen1_array.destroy();
|
||||
|
||||
look_pim();
|
||||
|
||||
print();
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
break;
|
||||
case stampa:
|
||||
{
|
||||
_codditta = msk.get_long(F_CODDITTA);
|
||||
_anno = msk.get_int(F_ANNO);
|
||||
_datast = msk.get(F_DATASTAMPA);
|
||||
_mese = msk.get_int(F_MESE);
|
||||
_st_inizio_anno = msk.get_bool(F_STAMPA);
|
||||
|
||||
TLocalisamfile attiv(LF_ATTIV);
|
||||
attiv.zero();
|
||||
attiv.put(ATT_CODDITTA, _codditta);
|
||||
TRectype r(attiv.curr());
|
||||
//prospetto per ogni codice attivita' della ditta
|
||||
for(attiv.read(_isgteq); !attiv.eof(); attiv.next())
|
||||
{
|
||||
if (attiv.curr() != r) break;
|
||||
|
||||
_cod_att = attiv.get("CODATT");
|
||||
_prima_pagina = TRUE;
|
||||
|
||||
_iva_array.destroy();
|
||||
_iva1_array.destroy();
|
||||
_gen_array.destroy();
|
||||
_gen1_array.destroy();
|
||||
|
||||
look_pim();
|
||||
|
||||
print();
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
|
||||
//set_real_picture("###.###.###.###");
|
||||
//set_print_zero(FALSE);
|
||||
|
||||
@ -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 "
|
||||
HELP "Tipo di riepilogo da effettuare"
|
||||
ITEM "1|Vendite"
|
||||
ITEM "2|Acquisti"
|
||||
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