Rinominate applicazioni
git-svn-id: svn://10.65.10.50/trunk@635 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
35da5cc118
commit
e738fe49c0
@ -20,7 +20,7 @@
|
||||
#include "cg0201.h"
|
||||
|
||||
|
||||
class CG0200_application : public TRelation_application
|
||||
class TClifo_application : public TRelation_application
|
||||
{
|
||||
TMask* _msk;
|
||||
TClifoVI *_rel;
|
||||
@ -64,12 +64,12 @@ protected:
|
||||
|
||||
public:
|
||||
virtual TRelation* get_relation() const {return (TRelation*)_rel;}
|
||||
CG0200_application(){}
|
||||
TClifo_application(){}
|
||||
};
|
||||
|
||||
inline CG0200_application& app() { return (CG0200_application&)main_app(); }
|
||||
inline TClifo_application& app() { return (TClifo_application&)main_app(); }
|
||||
|
||||
bool CG0200_application::protected_record(TRectype &rec)
|
||||
bool TClifo_application::protected_record(TRectype &rec)
|
||||
|
||||
{
|
||||
TMask* m = get_mask(MODE_MOD);
|
||||
@ -85,7 +85,7 @@ bool CG0200_application::protected_record(TRectype &rec)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
const char* CG0200_application::get_next_key()
|
||||
const char* TClifo_application::get_next_key()
|
||||
|
||||
{
|
||||
TLocalisamfile& clifo = _rel->lfile() ;
|
||||
@ -223,7 +223,7 @@ HIDDEN bool autoexit_handler(TMask_field& f, KEY key)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG0200_application::tipo_handler(TMask_field& f, KEY key)
|
||||
bool TClifo_application::tipo_handler(TMask_field& f, KEY key)
|
||||
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
@ -234,7 +234,7 @@ bool CG0200_application::tipo_handler(TMask_field& f, KEY key)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG0200_application::percip_handler(TMask_field& f, KEY key)
|
||||
bool TClifo_application::percip_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
TMask& m = f.mask();
|
||||
|
||||
@ -353,7 +353,7 @@ HIDDEN bool codalleg_handler(TMask_field& f, KEY key)
|
||||
}
|
||||
|
||||
|
||||
void CG0200_application::init_pages(TMask& m)
|
||||
void TClifo_application::init_pages(TMask& m)
|
||||
{
|
||||
TConfig conf(CONFIG_DITTA, "cg");
|
||||
_lbcn = conf.get_bool("GsLbCn");
|
||||
@ -374,7 +374,7 @@ void CG0200_application::init_pages(TMask& m)
|
||||
}
|
||||
}
|
||||
|
||||
void CG0200_application::init_query_mode(TMask& m)
|
||||
void TClifo_application::init_query_mode(TMask& m)
|
||||
|
||||
{
|
||||
init_pages(m);
|
||||
@ -385,7 +385,7 @@ void CG0200_application::init_query_mode(TMask& m)
|
||||
m.set(F_TIPOCF, "F");
|
||||
}
|
||||
|
||||
int CG0200_application::read(TMask& m)
|
||||
int TClifo_application::read(TMask& m)
|
||||
{
|
||||
TToken_string riga(240);
|
||||
|
||||
@ -424,32 +424,32 @@ int CG0200_application::read(TMask& m)
|
||||
return _rel->status();
|
||||
}
|
||||
|
||||
int CG0200_application::rewrite(const TMask& m)
|
||||
int TClifo_application::rewrite(const TMask& m)
|
||||
{
|
||||
common_f(m);
|
||||
return _rel->rewrite(TRUE);
|
||||
}
|
||||
|
||||
int CG0200_application::write(const TMask& m)
|
||||
int TClifo_application::write(const TMask& m)
|
||||
{
|
||||
common_f(m);
|
||||
return _rel->write(TRUE);
|
||||
}
|
||||
|
||||
TArray_sheet* CG0200_application::field_sheet(const int n) const
|
||||
TArray_sheet* TClifo_application::field_sheet(const int n) const
|
||||
{
|
||||
TEdit_field& f=(TEdit_field&) _msk->field(n);
|
||||
TArray_sheet* S=(TArray_sheet*) f.sheet()->sheet();
|
||||
return S;
|
||||
}
|
||||
|
||||
TSheet_field& CG0200_application::indsp_sheet() const
|
||||
TSheet_field& TClifo_application::indsp_sheet() const
|
||||
{
|
||||
TSheet_field& o_sheet=(TSheet_field&) _msk->field(F_SHEET_G_VEN);
|
||||
return o_sheet;
|
||||
}
|
||||
|
||||
void CG0200_application::reset_sheet()
|
||||
void TClifo_application::reset_sheet()
|
||||
{
|
||||
const TToken_string nulla("|**Nessuno**||||");
|
||||
|
||||
@ -461,7 +461,7 @@ void CG0200_application::reset_sheet()
|
||||
app().field_sheet(F_CODINDEFF)->add(nulla);
|
||||
}
|
||||
|
||||
void CG0200_application::indsp_pack()
|
||||
void TClifo_application::indsp_pack()
|
||||
{
|
||||
TArray& rows = indsp_sheet().rows_array();
|
||||
int nr=rows.items();
|
||||
@ -475,7 +475,7 @@ void CG0200_application::indsp_pack()
|
||||
rows.pack();
|
||||
}
|
||||
|
||||
void CG0200_application::common_f(const TMask& m)
|
||||
void TClifo_application::common_f(const TMask& m)
|
||||
{
|
||||
char tipocf = m.get(F_TIPOCF)[0];
|
||||
long codcf = m.get_long(F_CODCF);
|
||||
@ -509,7 +509,7 @@ void CG0200_application::common_f(const TMask& m)
|
||||
}
|
||||
}
|
||||
|
||||
bool CG0200_application::indsp_handler(TMask_field& f, KEY key)
|
||||
bool TClifo_application::indsp_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
static int first_time=1;
|
||||
|
||||
@ -540,7 +540,7 @@ bool CG0200_application::indsp_handler(TMask_field& f, KEY key)
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG0200_application::indsp_notify(int r, KEY key)
|
||||
bool TClifo_application::indsp_notify(int r, KEY key)
|
||||
{
|
||||
TSheet_field& indsp=app().indsp_sheet();
|
||||
|
||||
@ -578,7 +578,7 @@ default:
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG0200_application::user_create() // initvar e arrmask
|
||||
bool TClifo_application::user_create() // initvar e arrmask
|
||||
{
|
||||
_rel = new TClifoVI;
|
||||
|
||||
@ -612,7 +612,7 @@ bool CG0200_application::user_create() // initvar e arrmask
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG0200_application::user_destroy() // releasev e arrmask
|
||||
bool TClifo_application::user_destroy() // releasev e arrmask
|
||||
{
|
||||
delete _msk;
|
||||
delete _rel;
|
||||
@ -626,7 +626,7 @@ bool CG0200_application::user_destroy() // releasev e arrmask
|
||||
|
||||
int cg0200(int argc, char* argv[])
|
||||
{
|
||||
CG0200_application a;
|
||||
TClifo_application a;
|
||||
|
||||
a.run(argc, argv, "Clienti/Fornitori");
|
||||
return 0;
|
||||
|
||||
@ -17,6 +17,7 @@ END
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 1 "Anno "
|
||||
HELP "Anno di cui si vogliono visualizzare i saldi"
|
||||
FIELD LF_ALLEG->ANNO
|
||||
FLAGS "PRZA"
|
||||
KEY 1
|
||||
@ -45,6 +46,7 @@ END
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ditta "
|
||||
HELP "Ditta di cui si vogliono visualizzare i saldi"
|
||||
FLAGS "RPDG"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
@ -63,6 +65,7 @@ END
|
||||
STRING F_CODATT 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "Cod.attivita' "
|
||||
HELP "Codice dell'attivita' della ditta"
|
||||
FIELD LF_ALLEG->CODATT
|
||||
FLAGS "PRZ"
|
||||
KEY 1
|
||||
@ -108,7 +111,7 @@ BEGIN
|
||||
PROMPT 2 4 "Tipo "
|
||||
FIELD LF_ALLEG->TIPOCF
|
||||
KEY 1
|
||||
HELP "Indicare se cliente oppure se fornitore"
|
||||
HELP "Indicare se cliente, fornitore oppure bolletta doganale"
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE "Op. non imp. ed esenti ",99
|
||||
MESSAGE "Operazioni non imponibili (mod 101) ",F_PROMPT
|
||||
@ -130,7 +133,7 @@ BEGIN
|
||||
FLAGS "R"
|
||||
KEY 1
|
||||
COPY ALL F_ANNO
|
||||
HELP "Indicare il codice relativo al cliente o fornitore"
|
||||
HELP "Codice relativo al cliente o fornitore"
|
||||
ADD RUN cg0 -1
|
||||
WARNING "Registrazione assente"
|
||||
GROUP 1
|
||||
@ -154,7 +157,7 @@ BEGIN
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
OUTPUT F_COFI COFI
|
||||
OUTPUT F_PAIV PAIV
|
||||
HELP "Indicare il codice relativo al cliente o fornitore"
|
||||
HELP "Codice relativo al cliente o fornitore"
|
||||
ADD RUN cg0 -1
|
||||
WARNING "Cliente assente"
|
||||
GROUP 2
|
||||
@ -164,6 +167,7 @@ END
|
||||
BOOLEAN F_IMMESSO
|
||||
BEGIN
|
||||
PROMPT 64 4 "Immesso"
|
||||
HELP "Indicare se il saldo e' stato immesso da utente"
|
||||
FIELD LF_ALLEG->IMMESSO
|
||||
KEY 1
|
||||
END
|
||||
@ -180,7 +184,7 @@ BEGIN
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CODCFH
|
||||
HELP "Indicare se si tratta di una persona fisica o di una societa'"
|
||||
HELP "Ragione sociale del cliente o fornitore"
|
||||
WARNING "Ragione sociale assente"
|
||||
END
|
||||
|
||||
@ -196,7 +200,7 @@ BEGIN
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
COPY OUTPUT F_CODCFH
|
||||
HELP "Indicare il codice fiscale"
|
||||
HELP "Codice fiscale del cliente o fornitore"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Codice fiscale assente"
|
||||
END
|
||||
@ -214,7 +218,7 @@ BEGIN
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice fiscale " COFI
|
||||
COPY OUTPUT F_CODCFH
|
||||
HELP "Inserire la partita IVA"
|
||||
HELP "Partita IVA del cliente o fornitore"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Partita IVA assente"
|
||||
END
|
||||
@ -242,6 +246,7 @@ END
|
||||
NUMBER F_IMPESC 15
|
||||
BEGIN
|
||||
PROMPT 25 9 ""
|
||||
HELP "Totale operazioni imponibili anno corrente"
|
||||
FIELD LF_ALLEG->IMPESC
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -251,6 +256,7 @@ END
|
||||
NUMBER F_IMPESP 15
|
||||
BEGIN
|
||||
PROMPT 42 9 ""
|
||||
HELP "Totale operazioni imponibili anno corrente"
|
||||
FIELD LF_ALLEG->IMPESP
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -273,6 +279,7 @@ END
|
||||
NUMBER F_IVAESC 15
|
||||
BEGIN
|
||||
PROMPT 25 10 ""
|
||||
HELP "Totale imposte addebitate dell'anno corrente"
|
||||
FIELD LF_ALLEG->IVAESC
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -282,6 +289,7 @@ END
|
||||
NUMBER F_IVAESP 15
|
||||
BEGIN
|
||||
PROMPT 42 10 ""
|
||||
HELP "Totale imposte addebitate dell'anno precedente"
|
||||
FIELD LF_ALLEG->IVAESP
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
@ -307,7 +315,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->NIESC
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
HELP "Operazioni non imponibili ed esenti dell'anno corrente"
|
||||
HELP "Totale operazioni non imponibili ed esenti dell'anno corrente"
|
||||
MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5
|
||||
END
|
||||
|
||||
@ -317,7 +325,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->NIESP
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
HELP "Operazioni non imponibili ed esenti dell'anno precedente"
|
||||
HELP "Totale operazioni non imponibili ed esenti dell'anno precedente"
|
||||
MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6
|
||||
END
|
||||
|
||||
@ -342,7 +350,7 @@ BEGIN
|
||||
FLAGS "R"
|
||||
GROUP 6
|
||||
PICTURE "."
|
||||
HELP "Operazioni non imponibili (Art. 8 2^c) dell'anno corrente"
|
||||
HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno corrente"
|
||||
MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5
|
||||
END
|
||||
|
||||
@ -353,7 +361,7 @@ BEGIN
|
||||
FLAGS "R"
|
||||
GROUP 6
|
||||
PICTURE "."
|
||||
HELP "Operazioni non imponibili (Art. 8 2^c) dell'anno precedente"
|
||||
HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno precedente"
|
||||
MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6
|
||||
END
|
||||
|
||||
@ -396,6 +404,7 @@ END
|
||||
NUMBER F_NDOCESC 4
|
||||
BEGIN
|
||||
PROMPT 25 15 ""
|
||||
HELP "Numero di fatture ricevute nell'anno in corso dal fornitore"
|
||||
FIELD LF_ALLEG->NDOCESC
|
||||
FLAGS "R"
|
||||
GROUP 6
|
||||
@ -405,6 +414,7 @@ END
|
||||
NUMBER F_NDOCESP 4
|
||||
BEGIN
|
||||
PROMPT 42 15 ""
|
||||
HELP "Numero di fatture ricevute nell'anno precedente dal fornitore"
|
||||
FIELD LF_ALLEG->NDOCESP
|
||||
FLAGS "R"
|
||||
GROUP 6
|
||||
@ -430,7 +440,7 @@ BEGIN
|
||||
FIELD LF_ALLEG->PROG101102
|
||||
FLAGS "R"
|
||||
PICTURE "."
|
||||
HELP "Indicare le operazioni non imponibili Art. 8 1^c, Artt. 8 bis, 9 e 72"
|
||||
HELP "Totale operazioni non imponibili Art. 8 1^c, Artt. 8 bis, 9 e 72"
|
||||
END
|
||||
ENDPAGE
|
||||
ENDMASK
|
||||
|
||||
482
cg/cg1500a.uml
482
cg/cg1500a.uml
@ -1,241 +1,241 @@
|
||||
#include "cg1500.h"
|
||||
|
||||
PAGE "Stampa bilancio" -1 -1 74 16
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 48 1 "Data stampa "
|
||||
HELP "Data che verra' stampata sul bilancio"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
HELP "Anno di cui si vuole ottenere il bilancio"
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
//CHECKTYPE NORMAL
|
||||
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 //se il campo e' vuoto manda questi messaggi
|
||||
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99 //se invece e' pieno manda questi
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_BILANCIO 33
|
||||
BEGIN
|
||||
PROMPT 2 5 "Tipo bilancio "
|
||||
HELP "Indicare il tipo di bilancio da stampare"
|
||||
ITEM "1|Bilancio a sezioni contrapposte"
|
||||
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
|
||||
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
|
||||
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
|
||||
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
|
||||
MESSAGE HIDE,F_MODULO|RESET,F_MODULO
|
||||
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
|
||||
MESSAGE HIDE,DLG_PAGE
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
|
||||
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
|
||||
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
|
||||
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
|
||||
MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
|
||||
MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
|
||||
MESSAGE SHOW,DLG_PAGE
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 28
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_STAMPAMPROV
|
||||
ITEM "2|All' ultima immissione"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_STAMPAMPROV
|
||||
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA1 28
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo stampa "
|
||||
//FLAGS "G"
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
ITEM "2|All' ultima immissione"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
MESSAGE COPY,F_STAMPA
|
||||
END
|
||||
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 2 9 "Data limite "
|
||||
HELP "Data fino alla quale si vuole la stampa"
|
||||
END
|
||||
|
||||
BOOLEAN F_TOTALI
|
||||
BEGIN
|
||||
PROMPT 33 9 "Non stampare totali per gruppo "
|
||||
HELP "Indicare se non si devono stampare i totali dei gruppi"
|
||||
END
|
||||
|
||||
BOOLEAN F_CODICI
|
||||
BEGIN
|
||||
PROMPT 2 10 "Non stampare codici conti "
|
||||
HELP "Indicare se non si devono stampare i codici dei conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_SALDO
|
||||
BEGIN
|
||||
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
|
||||
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data competenza "
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 38 10 "Alla data competenza "
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data operazione "
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 38 10 "Alla data operazione "
|
||||
END
|
||||
|
||||
DATE F_DATADA
|
||||
BEGIN
|
||||
PROMPT 24 10 ""
|
||||
HELP "Data dalla quale iniziare la stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAA
|
||||
BEGIN
|
||||
PROMPT 60 10 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMPROV
|
||||
BEGIN
|
||||
PROMPT 2 11 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Stampa bilancio di verifica" -1 -1 74 20
|
||||
|
||||
RADIOBUTTON F_VERIFICA 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Stampa bilancio di verifica "
|
||||
HELP "Tipo di bilancio di verifica"
|
||||
ITEM "1|Bilancio"
|
||||
ITEM "2|Saldi di mastro"
|
||||
ITEM "3|Situazione C/F"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
HELP "Help tipo di stampa del bilancio"
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAV 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
HELP "Help tipo di stampa del bilancio"
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
ITEM "3|Tutti i conti"
|
||||
END
|
||||
|
||||
LIST F_MODULO 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa su modulo stretto "
|
||||
HELP "Indicare il numero di caratteri del foglio (larghezza)"
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
LIST F_SITUAZIONE 11
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo situazione "
|
||||
HELP "Indicare il tipo di situazione che si vuole ottenere"
|
||||
ITEM " |Entrambi"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
END
|
||||
|
||||
/*
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 37 10 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
*/
|
||||
|
||||
LIST F_ORDINAMENTO 11
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo ordinamento "
|
||||
HELP "Indicare il tipo di ordinamento da effettuare"
|
||||
ITEM "1|Per codice"
|
||||
ITEM "2|Alfabetico"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg1500.h"
|
||||
|
||||
PAGE "Stampa bilancio" -1 -1 74 16
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 1 "Ditta "
|
||||
FLAGS "FRD"
|
||||
USE LF_NDITTE KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
DISPLAY "Codice" CODDITTA
|
||||
DISPLAY "Ragione sociale @50" RAGSOC
|
||||
OUTPUT F_CODDITTA CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 48 1 "Data stampa "
|
||||
HELP "Data che verra' stampata sul bilancio"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Anno esercizio "
|
||||
HELP "Anno di cui si vuole ottenere il bilancio"
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
//CHECKTYPE NORMAL
|
||||
//MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97 //se il campo e' vuoto manda questi messaggi
|
||||
//MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99 //se invece e' pieno manda questi
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_BILANCIO 33
|
||||
BEGIN
|
||||
PROMPT 2 5 "Tipo bilancio "
|
||||
HELP "Indicare il tipo di bilancio da stampare"
|
||||
ITEM "1|Bilancio a sezioni contrapposte"
|
||||
MESSAGE HIDE,F_STAMPA1|RESET,F_STAMPA1|HIDE,F_VERIFICA|RESET,F_VERIFICA
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
|
||||
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
|
||||
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
|
||||
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
|
||||
MESSAGE HIDE,F_MODULO|RESET,F_MODULO
|
||||
MESSAGE SHOW,F_STAMPA|K_SPACE,F_STAMPA
|
||||
MESSAGE HIDE,DLG_PAGE
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_STAMPA|RESET,F_STAMPA
|
||||
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
|
||||
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
|
||||
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA|SHOW,F_STAMPA1|K_SPACE,F_STAMPA1
|
||||
MESSAGE SHOW,F_MODULO|K_SPACE,F_MODULO
|
||||
MESSAGE SHOW,96|SHOW,97|SHOW,98|SHOW,99
|
||||
MESSAGE SHOW,DLG_PAGE
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA 28
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo stampa "
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO|SHOW,F_STAMPAMPROV
|
||||
ITEM "2|All' ultima immissione"
|
||||
MESSAGE HIDE,F_DATALIM|HIDE,F_STAMPAMPROV|RESET,F_DATALIM|RESET,F_STAMPAMPROV
|
||||
MESSAGE SHOW,F_TOTALI|SHOW,F_CODICI|SHOW,F_SALDO
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPA1 28
|
||||
BEGIN
|
||||
PROMPT 40 5 "Tipo stampa "
|
||||
//FLAGS "G"
|
||||
HELP "Indicare il tipo di stampa"
|
||||
ITEM "1|Per date limite"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
ITEM "2|All' ultima immissione"
|
||||
MESSAGE SHOW,F_VERIFICA|SHOW,F_MODULO
|
||||
MESSAGE COPY,F_STAMPA
|
||||
END
|
||||
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 2 9 "Data limite "
|
||||
HELP "Data fino alla quale si vuole la stampa"
|
||||
END
|
||||
|
||||
BOOLEAN F_TOTALI
|
||||
BEGIN
|
||||
PROMPT 33 9 "Non stampare totali per gruppo "
|
||||
HELP "Indicare se non si devono stampare i totali dei gruppi"
|
||||
END
|
||||
|
||||
BOOLEAN F_CODICI
|
||||
BEGIN
|
||||
PROMPT 2 10 "Non stampare codici conti "
|
||||
HELP "Indicare se non si devono stampare i codici dei conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_SALDO
|
||||
BEGIN
|
||||
PROMPT 33 10 "Non stampare movimenti con saldo a zero "
|
||||
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data competenza "
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 38 10 "Alla data competenza "
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data operazione "
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 38 10 "Alla data operazione "
|
||||
END
|
||||
|
||||
DATE F_DATADA
|
||||
BEGIN
|
||||
PROMPT 24 10 ""
|
||||
HELP "Data dalla quale iniziare la stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAA
|
||||
BEGIN
|
||||
PROMPT 60 10 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMPROV
|
||||
BEGIN
|
||||
PROMPT 2 11 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Stampa bilancio di verifica" -1 -1 74 20
|
||||
|
||||
RADIOBUTTON F_VERIFICA 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Stampa bilancio di verifica "
|
||||
HELP "Tipo di bilancio di verifica"
|
||||
ITEM "1|Bilancio"
|
||||
ITEM "2|Saldi di mastro"
|
||||
ITEM "3|Situazione C/F"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
HELP "Help tipo di stampa del bilancio"
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAV 35
|
||||
BEGIN
|
||||
PROMPT 35 1 "Tipo stampa "
|
||||
HELP "Help tipo di stampa del bilancio"
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
ITEM "3|Tutti i conti"
|
||||
END
|
||||
|
||||
LIST F_MODULO 10
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa su modulo stretto "
|
||||
HELP "Indicare il numero di caratteri del foglio (larghezza)"
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
LIST F_SITUAZIONE 11
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo situazione "
|
||||
HELP "Indicare il tipo di situazione che si vuole ottenere"
|
||||
ITEM " |Entrambi"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
END
|
||||
|
||||
/*
|
||||
RADIOBUTTON F_STAMPAC 35
|
||||
BEGIN
|
||||
PROMPT 37 10 "Tipo stampa "
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
*/
|
||||
|
||||
LIST F_ORDINAMENTO 11
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo ordinamento "
|
||||
HELP "Indicare il tipo di ordinamento da effettuare"
|
||||
ITEM "1|Per codice"
|
||||
ITEM "2|Alfabetico"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -2,18 +2,17 @@
|
||||
|
||||
#include <mask.h>
|
||||
#include <printapp.h>
|
||||
#include <scanner.h>
|
||||
#include <relation.h>
|
||||
#include <tabutil.h>
|
||||
#include <utility.h>
|
||||
#include <lffiles.h>
|
||||
|
||||
#include <nditte.h>
|
||||
#include <comuni.h>
|
||||
#include <anagr.h>
|
||||
#include <causali.h>
|
||||
#include <rcausali.h>
|
||||
#include <conto.h>
|
||||
|
||||
#include "conto.h"
|
||||
#include "cg1.h"
|
||||
#include "cg1700.h"
|
||||
|
||||
|
||||
@ -4,17 +4,32 @@
|
||||
// fv 21-1-94
|
||||
// ------------------------------------------------------------
|
||||
|
||||
#include <defmask.h>
|
||||
#include <progind.h>
|
||||
#include <sheet.h>
|
||||
|
||||
#include "cg4300.h"
|
||||
#include "cg4300a.h"
|
||||
|
||||
#include <mov.h>
|
||||
#include <mailbox.h>
|
||||
|
||||
real CG4300_App::CENTO(100.0);
|
||||
real TLiquidazione_app::CENTO(100.0);
|
||||
|
||||
inline CG4300_App& app()
|
||||
{ return (CG4300_App&)main_app(); }
|
||||
inline TLiquidazione_app& app()
|
||||
{ return (TLiquidazione_app&)main_app(); }
|
||||
|
||||
bool CG4300_App::user_create()
|
||||
TLiquidazione_app::TLiquidazione_app()
|
||||
: _ditte(NULL), _selected(10000), _year(4), _nomiditte(100)
|
||||
{
|
||||
_isprint = TRUE; _recalc = needed;
|
||||
_isplafond = FALSE; _isfinal = FALSE;
|
||||
_isvent = _isagricolo = _isbenzinaro = _isviaggio = FALSE;
|
||||
_row = 1; _what = all; _comp_acconto = FALSE;
|
||||
_isriepilogo = FALSE; _calcall = FALSE;
|
||||
}
|
||||
|
||||
bool TLiquidazione_app::user_create()
|
||||
{
|
||||
// vediamo se c'e' il messaggio per calcolare in batch
|
||||
TMailbox m;
|
||||
@ -187,7 +202,7 @@ bool CG4300_App::user_create()
|
||||
return is_interactive;
|
||||
}
|
||||
|
||||
bool CG4300_App::user_destroy()
|
||||
bool TLiquidazione_app::user_destroy()
|
||||
{
|
||||
delete _ditte;
|
||||
|
||||
@ -231,7 +246,7 @@ bool CG4300_App::user_destroy()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG4300_App::set_print(int n)
|
||||
bool TLiquidazione_app::set_print(int n)
|
||||
{
|
||||
_descr_arr.destroy();
|
||||
|
||||
@ -304,7 +319,7 @@ bool CG4300_App::set_print(int n)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
long CG4300_App::select_firm_range(long from, long to, wht freq)
|
||||
long TLiquidazione_app::select_firm_range(long from, long to, wht freq)
|
||||
{
|
||||
if (to == 0) to = 99999L;
|
||||
|
||||
@ -323,7 +338,7 @@ long CG4300_App::select_firm_range(long from, long to, wht freq)
|
||||
}
|
||||
|
||||
|
||||
bool CG4300_App::to_ditta_handler(TMask_field& f, KEY key)
|
||||
bool TLiquidazione_app::to_ditta_handler(TMask_field& f, KEY key)
|
||||
{
|
||||
if (key == K_TAB && f.focusdirty() || key == K_ENTER)
|
||||
{
|
||||
@ -343,7 +358,7 @@ bool CG4300_App::to_ditta_handler(TMask_field& f, KEY key)
|
||||
}
|
||||
|
||||
|
||||
bool CG4300_App::set_liquidazione()
|
||||
bool TLiquidazione_app::set_liquidazione()
|
||||
{
|
||||
TMask m("cg4300a.msk");
|
||||
m.set_handler(CG43_FLD_DTO, to_ditta_handler);
|
||||
@ -445,7 +460,7 @@ bool CG4300_App::set_liquidazione()
|
||||
|
||||
int cg4300(int argc, char* argv[])
|
||||
{
|
||||
CG4300_App main_app;
|
||||
TLiquidazione_app main_app;
|
||||
main_app.run(argc, argv, "Liquidazione IVA");
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
33
cg/cg4300.h
33
cg/cg4300.h
@ -1,16 +1,17 @@
|
||||
// of course this is -*-C++-*-
|
||||
// Questa e' la famosa palla della liquidazione IVA
|
||||
|
||||
#include <printapp.h>
|
||||
#include <isam.h>
|
||||
#include <lffiles.h>
|
||||
#include <urldefid.h>
|
||||
#include <stdlib.h>
|
||||
#include <utility.h>
|
||||
#include <sheet.h>
|
||||
#include <progind.h>
|
||||
#include <tabutil.h>
|
||||
#ifndef __MASK_H
|
||||
#include <mask.h>
|
||||
#endif
|
||||
|
||||
#ifndef __PRINTAPP_H
|
||||
#include <printapp.h>
|
||||
#endif
|
||||
|
||||
#ifndef __TABUTIL_H
|
||||
#include <tabutil.h>
|
||||
#endif
|
||||
|
||||
// ------------------------------------------------------------------
|
||||
// Parametri modificabili
|
||||
@ -148,7 +149,7 @@ public:
|
||||
// Application
|
||||
// ------------------------------------------------------------------------
|
||||
|
||||
class CG4300_App : public TPrinter_application
|
||||
class TLiquidazione_app : public TPrint_application
|
||||
{
|
||||
TArray_sheet* _ditte;
|
||||
wht _what;
|
||||
@ -376,16 +377,8 @@ public:
|
||||
void set_acchead_p(_DescrItem& d);
|
||||
|
||||
// cippiuppiu'
|
||||
CG4300_App() : TPrintapp(), _ditte(NULL), _selected(10000), _year(4),
|
||||
_nomiditte(100)
|
||||
{
|
||||
_isprint = TRUE; _recalc = needed;
|
||||
_isplafond = FALSE; _isfinal = FALSE;
|
||||
_isvent = _isagricolo = _isbenzinaro = _isviaggio = FALSE;
|
||||
_row = 1; _what = all; _comp_acconto = FALSE;
|
||||
_isriepilogo = FALSE; _calcall = FALSE;
|
||||
}
|
||||
virtual ~CG4300_App() {}
|
||||
TLiquidazione_app();
|
||||
virtual ~TLiquidazione_app() {}
|
||||
};
|
||||
|
||||
|
||||
|
||||
@ -4,13 +4,13 @@
|
||||
// fv 21-1-94
|
||||
// ------------------------------------------------------------
|
||||
|
||||
#include "cg4300.h"
|
||||
#include <progind.h>
|
||||
|
||||
char buf[256];
|
||||
#include "cg4300.h"
|
||||
|
||||
// -------------------- QUI comincia l'avventura --------------------------
|
||||
|
||||
bool CG4300_App::recalc_all()
|
||||
bool TLiquidazione_app::recalc_all()
|
||||
{
|
||||
long l;
|
||||
|
||||
@ -74,7 +74,7 @@ bool CG4300_App::recalc_all()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG4300_App::update_firm(int month, bool recalc)
|
||||
bool TLiquidazione_app::update_firm(int month, bool recalc)
|
||||
{
|
||||
// Se recalc e' TRUE considera la necessita' di ricalcolare e le
|
||||
// opzioni utente. Se FALSE se ne impipa dell'utente e ricalcola
|
||||
@ -105,6 +105,7 @@ bool CG4300_App::update_firm(int month, bool recalc)
|
||||
_nditte->save_status();
|
||||
if (_nditte->is_first_match(LF_ATTIV))
|
||||
{
|
||||
char buf[256];
|
||||
do
|
||||
{
|
||||
TString16 codatt = _nditte->curr(LF_ATTIV).get("CODATT");
|
||||
@ -214,7 +215,7 @@ bool CG4300_App::update_firm(int month, bool recalc)
|
||||
return ok || calc;
|
||||
}
|
||||
|
||||
bool CG4300_App::update_att(int month, const char* codatt, bool recalc)
|
||||
bool TLiquidazione_app::update_att(int month, const char* codatt, bool recalc)
|
||||
// viene passato un codice attivita' con codatt+tipoatt
|
||||
// vedi update_firm per il burdel dei calc e recalc
|
||||
|
||||
@ -241,7 +242,7 @@ bool CG4300_App::update_att(int month, const char* codatt, bool recalc)
|
||||
return ok || calc;
|
||||
}
|
||||
|
||||
void CG4300_App::zero_att(int month, const char* codatt)
|
||||
void TLiquidazione_app::zero_att(int month, const char* codatt)
|
||||
{
|
||||
for (_pim->first(); !_pim->eof(); _pim->next())
|
||||
{
|
||||
@ -259,7 +260,7 @@ void CG4300_App::zero_att(int month, const char* codatt)
|
||||
zero_plafond(month,codatt);
|
||||
}
|
||||
|
||||
void CG4300_App::recalc_att(int month, const char* codatt)
|
||||
void TLiquidazione_app::recalc_att(int month, const char* codatt)
|
||||
// il codatt passato e' codice att + tipo att ( IN {1|2} )
|
||||
{
|
||||
real totintra = 0.0;
|
||||
@ -666,7 +667,7 @@ void CG4300_App::recalc_att(int month, const char* codatt)
|
||||
_lim->rewrite();
|
||||
}
|
||||
|
||||
void CG4300_App::write_liq(int month, const char* codatts)
|
||||
void TLiquidazione_app::write_liq(int month, const char* codatts)
|
||||
// Calcolo liq. mensili e progr. liq. annuali
|
||||
{
|
||||
TToken_string atts(codatts);
|
||||
@ -738,7 +739,7 @@ void CG4300_App::write_liq(int month, const char* codatts)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::recalc_annual(const char* att)
|
||||
void TLiquidazione_app::recalc_annual(const char* att)
|
||||
{
|
||||
// calcolo volume d'affari e altro
|
||||
real es_b1 = 0.0;
|
||||
@ -832,7 +833,7 @@ void CG4300_App::recalc_annual(const char* att)
|
||||
_pla->rewrite();
|
||||
}
|
||||
|
||||
_DescrItem* CG4300_App::recalc_rimborso(int month, const char* codatts)
|
||||
_DescrItem* TLiquidazione_app::recalc_rimborso(int month, const char* codatts)
|
||||
{
|
||||
bool rimborsami = FALSE;
|
||||
_DescrItem* d = NULL;
|
||||
|
||||
@ -5,13 +5,15 @@
|
||||
// --------------------------------------------------------------
|
||||
|
||||
#include <config.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "cg4300.h"
|
||||
|
||||
bool CG4300_App::is_trim(int x)
|
||||
bool TLiquidazione_app::is_trim(int x)
|
||||
// TRUE se il mese passato e' un trimestre
|
||||
{ return x == 3 || x == 6 || x == 9 || x == 12; }
|
||||
|
||||
bool CG4300_App::is_month_ok(int x, int month)
|
||||
bool TLiquidazione_app::is_month_ok(int x, int month)
|
||||
// TRUE se il mese passato e' compatibile con il regime
|
||||
// di liquidazione e (opz) non e' maggiore di quello scelto
|
||||
{
|
||||
@ -21,13 +23,13 @@ bool CG4300_App::is_month_ok(int x, int month)
|
||||
( x <= month && is_trim(x));
|
||||
}
|
||||
|
||||
bool CG4300_App::is_first_month(int m)
|
||||
bool TLiquidazione_app::is_first_month(int m)
|
||||
{
|
||||
return _freqviva == "M" ?
|
||||
m == 1 : m == 3;
|
||||
}
|
||||
|
||||
int CG4300_App::previous_month(int m)
|
||||
int TLiquidazione_app::previous_month(int m)
|
||||
{
|
||||
if (m == 13) m = 12;
|
||||
if (_freqviva == "M")
|
||||
@ -35,7 +37,7 @@ int CG4300_App::previous_month(int m)
|
||||
else return m == 3 ? 3 : m - 3;
|
||||
}
|
||||
|
||||
bool CG4300_App::check_month(int m, int m2)
|
||||
bool TLiquidazione_app::check_month(int m, int m2)
|
||||
// se si sta ricalcolando una liquidazione
|
||||
// annuale di check, ritorna TRUE per tutti i
|
||||
// mesi, altrimenti solo per quello in corso
|
||||
@ -44,7 +46,7 @@ bool CG4300_App::check_month(int m, int m2)
|
||||
return (_isannual || _isriepilogo) ? m < 13 : m == m2;
|
||||
}
|
||||
|
||||
bool CG4300_App::is_date_ok(TDate& d, int month)
|
||||
bool TLiquidazione_app::is_date_ok(TDate& d, int month)
|
||||
// TRUE se la data passata va considerata nel
|
||||
// ricalcolo dei progressivi per il mese e anno
|
||||
// selezionati
|
||||
@ -58,7 +60,7 @@ bool CG4300_App::is_date_ok(TDate& d, int month)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::add_ventilation(real iva, real howmuch, const char* codiva)
|
||||
void TLiquidazione_app::add_ventilation(real iva, real howmuch, const char* codiva)
|
||||
{
|
||||
_VentItem* vi = NULL;
|
||||
for (int i = 0; i < _vent_arr.items(); i++)
|
||||
@ -76,7 +78,7 @@ void CG4300_App::add_ventilation(real iva, real howmuch, const char* codiva)
|
||||
vi->_totale += howmuch;
|
||||
}
|
||||
|
||||
void CG4300_App::add_vendite(int month, const char* codreg, real& r)
|
||||
void TLiquidazione_app::add_vendite(int month, const char* codreg, real& r)
|
||||
{
|
||||
_VendItem* vi = NULL;
|
||||
|
||||
@ -95,7 +97,7 @@ void CG4300_App::add_vendite(int month, const char* codreg, real& r)
|
||||
vi->_totale += r;
|
||||
}
|
||||
|
||||
void CG4300_App::add_corrisp(int month, const char* codreg, real& r,
|
||||
void TLiquidazione_app::add_corrisp(int month, const char* codreg, real& r,
|
||||
real& p, const char * codiva)
|
||||
{
|
||||
_CorrItem* ci = NULL;
|
||||
@ -120,7 +122,7 @@ void CG4300_App::add_corrisp(int month, const char* codreg, real& r,
|
||||
}
|
||||
|
||||
|
||||
bool CG4300_App::look_pim(int month, const char* codatt, const char* codreg,
|
||||
bool TLiquidazione_app::look_pim(int month, const char* codatt, const char* codreg,
|
||||
const char* tipocr, const char* codiva,
|
||||
bool create)
|
||||
// ritorna il PIM corrispondente alla chiave passata; se
|
||||
@ -149,7 +151,7 @@ bool CG4300_App::look_pim(int month, const char* codatt, const char* codreg,
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_plm(int m, const char* a, bool create)
|
||||
bool TLiquidazione_app::look_plm(int m, const char* a, bool create)
|
||||
{
|
||||
bool ok = FALSE;
|
||||
|
||||
@ -171,7 +173,7 @@ bool CG4300_App::look_plm(int m, const char* a, bool create)
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_ptm(int m, const char* a, bool create)
|
||||
bool TLiquidazione_app::look_ptm(int m, const char* a, bool create)
|
||||
{
|
||||
bool ok = FALSE;
|
||||
|
||||
@ -193,7 +195,7 @@ bool CG4300_App::look_ptm(int m, const char* a, bool create)
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_lim(int m, bool create)
|
||||
bool TLiquidazione_app::look_lim(int m, bool create)
|
||||
{
|
||||
bool ok = FALSE;
|
||||
|
||||
@ -214,7 +216,7 @@ bool CG4300_App::look_lim(int m, bool create)
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_pla(const char* a, bool create)
|
||||
bool TLiquidazione_app::look_pla(const char* a, bool create)
|
||||
{
|
||||
bool ok = FALSE;
|
||||
_pla_r->zero();
|
||||
@ -258,7 +260,7 @@ bool CG4300_App::look_pla(const char* a, bool create)
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_reg(const char* reg)
|
||||
bool TLiquidazione_app::look_reg(const char* reg)
|
||||
{
|
||||
_reg_r->zero();
|
||||
TString s(12); s << _year; s << format("%-3s",reg);
|
||||
@ -267,7 +269,7 @@ bool CG4300_App::look_reg(const char* reg)
|
||||
return _reg->good();
|
||||
}
|
||||
|
||||
bool CG4300_App::look_iva(const char* cod)
|
||||
bool TLiquidazione_app::look_iva(const char* cod)
|
||||
{
|
||||
_iva->zero();
|
||||
_iva->put("CODTAB",cod);
|
||||
@ -275,7 +277,7 @@ bool CG4300_App::look_iva(const char* cod)
|
||||
return _iva->good();
|
||||
}
|
||||
|
||||
bool CG4300_App::look_ppa(int month, const char* codatt, int type, bool create)
|
||||
bool TLiquidazione_app::look_ppa(int month, const char* codatt, int type, bool create)
|
||||
{
|
||||
_ppa->zero();
|
||||
(*_ppa_year) = _year;
|
||||
@ -296,7 +298,7 @@ bool CG4300_App::look_ppa(int month, const char* codatt, int type, bool create)
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_del(int month, int type, bool create)
|
||||
bool TLiquidazione_app::look_del(int month, int type, bool create)
|
||||
{
|
||||
TString ditta = _nditte->curr().get("CODDITTA");
|
||||
_del->zero();
|
||||
@ -318,7 +320,7 @@ bool CG4300_App::look_del(int month, int type, bool create)
|
||||
return ok;
|
||||
}
|
||||
|
||||
bool CG4300_App::look_lia(bool create, int year)
|
||||
bool TLiquidazione_app::look_lia(bool create, int year)
|
||||
{
|
||||
if (year == 0) year = atoi(_year);
|
||||
TString16 y; y << year;
|
||||
@ -338,7 +340,7 @@ bool CG4300_App::look_lia(bool create, int year)
|
||||
}
|
||||
|
||||
|
||||
real CG4300_App::credito_prec(int month)
|
||||
real TLiquidazione_app::credito_prec(int month)
|
||||
// ritorna l'appropriato credito precedente al mese in corso
|
||||
// lascia PLM posizionata sul mese passato
|
||||
{
|
||||
@ -393,7 +395,7 @@ real CG4300_App::credito_prec(int month)
|
||||
return c;
|
||||
}
|
||||
|
||||
real CG4300_App::credito_costo_prec(int month, const char* codatt)
|
||||
real TLiquidazione_app::credito_costo_prec(int month, const char* codatt)
|
||||
// ritorna l'appropriato credito di costo precedente al mese in corso
|
||||
// (travel agency only)
|
||||
{
|
||||
@ -423,7 +425,7 @@ real CG4300_App::credito_costo_prec(int month, const char* codatt)
|
||||
}
|
||||
|
||||
|
||||
real CG4300_App::aliquota_agvia()
|
||||
real TLiquidazione_app::aliquota_agvia()
|
||||
{
|
||||
TConfig cnf(CONFIG_STUDIO);
|
||||
look_iva(cnf.get("CodAgv"));
|
||||
@ -432,7 +434,7 @@ real CG4300_App::aliquota_agvia()
|
||||
}
|
||||
|
||||
|
||||
real CG4300_App::interesse_trimestrale(int month)
|
||||
real TLiquidazione_app::interesse_trimestrale(int month)
|
||||
{
|
||||
month /= 3; month--;
|
||||
TConfig cnf(CONFIG_STUDIO);
|
||||
|
||||
@ -6,8 +6,8 @@
|
||||
|
||||
#include "cg4300.h"
|
||||
|
||||
void CG4300_App::add_plafond(int month, const char* codatt, int type,
|
||||
real& howmuch, bool intra)
|
||||
void TLiquidazione_app::add_plafond(int month, const char* codatt, int type,
|
||||
real& howmuch, bool intra)
|
||||
{
|
||||
look_ppa(month,codatt,type);
|
||||
|
||||
@ -31,7 +31,7 @@ void CG4300_App::add_plafond(int month, const char* codatt, int type,
|
||||
_ppa->rewrite();
|
||||
}
|
||||
|
||||
void CG4300_App::zero_plafond (int month, const char* codatt)
|
||||
void TLiquidazione_app::zero_plafond (int month, const char* codatt)
|
||||
{
|
||||
for (int jj = 1; jj <= 3; jj++) // three types of plafond
|
||||
{
|
||||
@ -66,7 +66,7 @@ void CG4300_App::zero_plafond (int month, const char* codatt)
|
||||
} // for tipo esenzione plafond
|
||||
}
|
||||
// ricalcolo dei corrispettivi
|
||||
void CG4300_App::recalc_corrispettivi(int month, const char* codatt)
|
||||
void TLiquidazione_app::recalc_corrispettivi(int month, const char* codatt)
|
||||
{
|
||||
if (_corr_arr.items() == 0) return;
|
||||
// ricalcola (solo per il mese in corso!) operando sull'array
|
||||
@ -102,7 +102,7 @@ void CG4300_App::recalc_corrispettivi(int month, const char* codatt)
|
||||
}
|
||||
|
||||
// ricalcolo della malefica ventilazione
|
||||
void CG4300_App::recalc_ventilation(int month, const char* codatt)
|
||||
void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
|
||||
{
|
||||
if (_vend_arr.items() == 0) return;
|
||||
|
||||
|
||||
@ -4,6 +4,8 @@
|
||||
// fv 21-1-94
|
||||
// ------------------------------------------------------------
|
||||
|
||||
#include <utility.h>
|
||||
|
||||
#include "cg4300.h"
|
||||
|
||||
// flags per annuale
|
||||
@ -25,7 +27,7 @@ static char sep[] =
|
||||
"------------------------------------------------------------------"
|
||||
"------------------------------------------------------------------";
|
||||
|
||||
void CG4300_App::set_page(int file, int cnt)
|
||||
void TLiquidazione_app::set_page(int file, int cnt)
|
||||
{
|
||||
_DescrItem& d = (_DescrItem&)_descr_arr[cnt];
|
||||
|
||||
@ -49,14 +51,14 @@ void CG4300_App::set_page(int file, int cnt)
|
||||
}
|
||||
}
|
||||
|
||||
print_action CG4300_App::postprocess_page(int file, int cnt)
|
||||
print_action TLiquidazione_app::postprocess_page(int file, int cnt)
|
||||
{
|
||||
if (_descr_arr.items() == 0 || cnt == _descr_arr.items()-1)
|
||||
return NEXT_PAGE;
|
||||
return REPEAT_PAGE;
|
||||
}
|
||||
|
||||
bool CG4300_App::preprocess_page(int file, int cnt)
|
||||
bool TLiquidazione_app::preprocess_page(int file, int cnt)
|
||||
{
|
||||
return _descr_arr.items() != 0;
|
||||
}
|
||||
@ -65,7 +67,7 @@ bool CG4300_App::preprocess_page(int file, int cnt)
|
||||
// Print description
|
||||
// ----------------------------------------------------------------
|
||||
|
||||
void CG4300_App::describe_att(int month, const char* codatt)
|
||||
void TLiquidazione_app::describe_att(int month, const char* codatt)
|
||||
{
|
||||
TToken_string atts(codatt);
|
||||
|
||||
@ -86,7 +88,7 @@ void CG4300_App::describe_att(int month, const char* codatt)
|
||||
}
|
||||
}
|
||||
|
||||
void CG4300_App::describe_name(int month, TToken_string& codatts)
|
||||
void TLiquidazione_app::describe_name(int month, TToken_string& codatts)
|
||||
{
|
||||
_DescrItem* d = new _DescrItem(CHG_PARMS);
|
||||
|
||||
@ -105,7 +107,7 @@ void CG4300_App::describe_name(int month, TToken_string& codatts)
|
||||
_descr_arr.add(d);
|
||||
}
|
||||
|
||||
void CG4300_App::describe_firm(int month)
|
||||
void TLiquidazione_app::describe_firm(int month)
|
||||
{
|
||||
if (!_isprint) return;
|
||||
|
||||
@ -119,7 +121,7 @@ void CG4300_App::describe_firm(int month)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::describe_plafond(int month, const char* codatt)
|
||||
void TLiquidazione_app::describe_plafond(int month, const char* codatt)
|
||||
{
|
||||
if (month == 13) month = 12;
|
||||
// prepara la descrizione del riepilogo da stampare e lo accoda
|
||||
@ -151,7 +153,7 @@ void CG4300_App::describe_plafond(int month, const char* codatt)
|
||||
_descr_arr.add(d);
|
||||
}
|
||||
|
||||
void CG4300_App::describe_ventilation(int month, const char* codatt)
|
||||
void TLiquidazione_app::describe_ventilation(int month, const char* codatt)
|
||||
{
|
||||
if (_isriepilogo || _isannual) month = 12;
|
||||
|
||||
@ -231,7 +233,7 @@ void CG4300_App::describe_ventilation(int month, const char* codatt)
|
||||
_descr_arr.add(d);
|
||||
}
|
||||
|
||||
void CG4300_App::describe_agricolo(int month, const char* codatt)
|
||||
void TLiquidazione_app::describe_agricolo(int month, const char* codatt)
|
||||
{
|
||||
if (month != 13)
|
||||
if (!(look_plm(month, codatt) && look_ptm(month,codatt)))
|
||||
@ -261,7 +263,7 @@ void CG4300_App::describe_agricolo(int month, const char* codatt)
|
||||
_descr_arr.add(d);
|
||||
}
|
||||
|
||||
void CG4300_App::describe_viaggio(int month, const char* codatt)
|
||||
void TLiquidazione_app::describe_viaggio(int month, const char* codatt)
|
||||
{
|
||||
if (month != 13)
|
||||
if (!(look_plm(month, codatt) && look_lim(month)))
|
||||
@ -297,7 +299,7 @@ void CG4300_App::describe_viaggio(int month, const char* codatt)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::describe_pims(int month, const char* codatt)
|
||||
void TLiquidazione_app::describe_pims(int month, const char* codatt)
|
||||
// le si passa una tokenstring (o un codatt) e lei, da brava, calcola
|
||||
// cumulando per tutte le attivita' nominatele
|
||||
// ogni riga riguarda un codiva ma tutti i registri
|
||||
@ -488,8 +490,8 @@ void CG4300_App::describe_pims(int month, const char* codatt)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::describe_liq(int month, const char* codatts,
|
||||
_DescrItem* di)
|
||||
void TLiquidazione_app::describe_liq(int month, const char* codatts,
|
||||
_DescrItem* di)
|
||||
{
|
||||
if (!_isprint) return;
|
||||
if (_isannual || _isriepilogo) month = 12;
|
||||
@ -567,7 +569,7 @@ void CG4300_App::describe_liq(int month, const char* codatts,
|
||||
_descr_arr.add(d);
|
||||
}
|
||||
|
||||
void CG4300_App::describe_consistence(const char* codatt)
|
||||
void TLiquidazione_app::describe_consistence(const char* codatt)
|
||||
{
|
||||
// controlla eventuali condizioni di conflitto con le normative
|
||||
// per la ditta e crea i messaggi appropriati
|
||||
@ -601,7 +603,7 @@ void CG4300_App::describe_consistence(const char* codatt)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::describe_error(const char* err, const char* codatt)
|
||||
void TLiquidazione_app::describe_error(const char* err, const char* codatt)
|
||||
{
|
||||
_errors.add(new _ErrItem(err,codatt,_nditte->curr().get("CODDITTA")));
|
||||
}
|
||||
@ -610,7 +612,7 @@ void CG4300_App::describe_error(const char* err, const char* codatt)
|
||||
// Setrows
|
||||
// ----------------------------------------------------------------
|
||||
|
||||
void CG4300_App::set_firm(_DescrItem& d)
|
||||
void TLiquidazione_app::set_firm(_DescrItem& d)
|
||||
{
|
||||
TString tim_title(80);
|
||||
tim_title << "Liquidazione IVA";
|
||||
@ -649,7 +651,7 @@ void CG4300_App::set_firm(_DescrItem& d)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::set_att(_DescrItem& d)
|
||||
void TLiquidazione_app::set_att(_DescrItem& d)
|
||||
{
|
||||
// set header
|
||||
TString tim_title(78);
|
||||
@ -710,7 +712,7 @@ void CG4300_App::set_att(_DescrItem& d)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::set_plafond(_DescrItem& d)
|
||||
void TLiquidazione_app::set_plafond(_DescrItem& d)
|
||||
{
|
||||
real r1 = d._r0 + d._r1 + d._r2;
|
||||
real r2 = d._r3 + d._r4 + d._r5;
|
||||
@ -746,7 +748,7 @@ void CG4300_App::set_plafond(_DescrItem& d)
|
||||
set_auto_ff();
|
||||
}
|
||||
|
||||
void CG4300_App::set_pim(_DescrItem& d)
|
||||
void TLiquidazione_app::set_pim(_DescrItem& d)
|
||||
{
|
||||
look_iva(d._s1);
|
||||
d._s2 = _iva->get("S0");
|
||||
@ -770,7 +772,7 @@ void CG4300_App::set_pim(_DescrItem& d)
|
||||
&(d._r5));
|
||||
}
|
||||
|
||||
void CG4300_App::set_plm(_DescrItem& d)
|
||||
void TLiquidazione_app::set_plm(_DescrItem& d)
|
||||
{
|
||||
set_row(1,""); set_row(2,"");
|
||||
set_row(3,"Totale@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r",
|
||||
@ -824,7 +826,7 @@ void CG4300_App::set_plm(_DescrItem& d)
|
||||
&tot2);
|
||||
}
|
||||
|
||||
void CG4300_App::set_ptm(_DescrItem& d)
|
||||
void TLiquidazione_app::set_ptm(_DescrItem& d)
|
||||
{
|
||||
if (d._r0.is_zero() && // acq. ammortizz.
|
||||
d._r1.is_zero() && // IVA acq. ammort.
|
||||
@ -896,7 +898,7 @@ void CG4300_App::set_ptm(_DescrItem& d)
|
||||
set_auto_ff(TRUE);
|
||||
}
|
||||
|
||||
void CG4300_App::set_grand(_DescrItem& d)
|
||||
void TLiquidazione_app::set_grand(_DescrItem& d)
|
||||
{
|
||||
set_row(1,""); set_row(2,""); set_row(3,""); set_row(4,"");
|
||||
set_row(5,"@11g@bCALCOLO LIQUIDAZIONE D'IMPOSTA@r");
|
||||
@ -1037,7 +1039,7 @@ void CG4300_App::set_grand(_DescrItem& d)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::set_annual(_DescrItem& d)
|
||||
void TLiquidazione_app::set_annual(_DescrItem& d)
|
||||
{
|
||||
// chiamata internamente a set_pims
|
||||
int row = get_maxrow()+1;
|
||||
@ -1063,7 +1065,7 @@ void CG4300_App::set_annual(_DescrItem& d)
|
||||
}
|
||||
|
||||
|
||||
void CG4300_App::set_ventila(_DescrItem& d)
|
||||
void TLiquidazione_app::set_ventila(_DescrItem& d)
|
||||
{
|
||||
if (d._arr.items() == 0 || d._r0.is_zero())
|
||||
return;
|
||||
@ -1105,7 +1107,7 @@ void CG4300_App::set_ventila(_DescrItem& d)
|
||||
set_auto_ff(TRUE);
|
||||
}
|
||||
|
||||
void CG4300_App::set_regagr(_DescrItem& d)
|
||||
void TLiquidazione_app::set_regagr(_DescrItem& d)
|
||||
{
|
||||
set_print_zero(TRUE);
|
||||
|
||||
@ -1128,7 +1130,7 @@ void CG4300_App::set_regagr(_DescrItem& d)
|
||||
set_print_zero(FALSE);
|
||||
}
|
||||
|
||||
void CG4300_App::set_viaggio(_DescrItem& d)
|
||||
void TLiquidazione_app::set_viaggio(_DescrItem& d)
|
||||
{
|
||||
// the longest & stronzest
|
||||
|
||||
@ -1292,7 +1294,7 @@ void CG4300_App::set_viaggio(_DescrItem& d)
|
||||
set_auto_ff(TRUE);
|
||||
}
|
||||
|
||||
void CG4300_App::set_acconto_p(_DescrItem& d)
|
||||
void TLiquidazione_app::set_acconto_p(_DescrItem& d)
|
||||
{
|
||||
set_print_zero(TRUE);
|
||||
|
||||
@ -1338,7 +1340,7 @@ void CG4300_App::set_acconto_p(_DescrItem& d)
|
||||
set_print_zero(FALSE);
|
||||
}
|
||||
|
||||
void CG4300_App::set_acchead_p(_DescrItem& d)
|
||||
void TLiquidazione_app::set_acchead_p(_DescrItem& d)
|
||||
{
|
||||
reset_header();
|
||||
set_header(1,"Gestione IVA@109gData @<@125gPag. @#");
|
||||
|
||||
@ -1,14 +1,16 @@
|
||||
// cg4306: liquidazione IVA
|
||||
// funzionalita' accessorie (calcolo acconto, estrazione deleghe)
|
||||
|
||||
#include <defmask.h>
|
||||
#include <progind.h>
|
||||
#include <sheet.h>
|
||||
|
||||
#include "cg4300.h"
|
||||
#include "cg4300b.h"
|
||||
#include "cg4300c.h"
|
||||
|
||||
static char buf[256];
|
||||
|
||||
// -------------------------------------------------- estrazione deleghe
|
||||
bool CG4300_App::set_deleghe()
|
||||
bool TLiquidazione_app::set_deleghe()
|
||||
{
|
||||
TMask m("cg4300b.msk");
|
||||
int k = 0;
|
||||
@ -72,8 +74,10 @@ bool CG4300_App::set_deleghe()
|
||||
return k == K_ENTER;
|
||||
}
|
||||
|
||||
bool CG4300_App::extract_deleghe()
|
||||
{
|
||||
bool TLiquidazione_app::extract_deleghe()
|
||||
{
|
||||
char buf[256];
|
||||
|
||||
long firm = TApplication::get_firm();
|
||||
_prind = new TProgind(_n_ditte,
|
||||
" Estrazione deleghe "
|
||||
@ -113,7 +117,7 @@ bool CG4300_App::extract_deleghe()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG4300_App::extract_delega(int month)
|
||||
bool TLiquidazione_app::extract_delega(int month)
|
||||
{
|
||||
if (_isriepilogo && !_isannual)
|
||||
return FALSE;
|
||||
@ -145,7 +149,7 @@ bool CG4300_App::extract_delega(int month)
|
||||
}
|
||||
|
||||
// -------------------------------------------- calcolo acconto dicembre
|
||||
bool CG4300_App::set_acconto()
|
||||
bool TLiquidazione_app::set_acconto()
|
||||
{
|
||||
TMask m("cg4300c.msk");
|
||||
m.set(CHK_CGC_PRINT,"X");
|
||||
@ -207,8 +211,10 @@ bool CG4300_App::set_acconto()
|
||||
}
|
||||
|
||||
|
||||
bool CG4300_App::recalc_acconti()
|
||||
{
|
||||
bool TLiquidazione_app::recalc_acconti()
|
||||
{
|
||||
char buf[256];
|
||||
|
||||
long l; bool onemade = FALSE;
|
||||
|
||||
long firm = TApplication::get_firm();
|
||||
@ -246,7 +252,7 @@ bool CG4300_App::recalc_acconti()
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
bool CG4300_App::recalc_acconto()
|
||||
bool TLiquidazione_app::recalc_acconto()
|
||||
{
|
||||
real basecalcolo, acconto;
|
||||
bool isdifferita = FALSE;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user