diff --git a/cg/cg0200.cpp b/cg/cg0200.cpp index 50208c16c..6c8d859bc 100755 --- a/cg/cg0200.cpp +++ b/cg/cg0200.cpp @@ -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; diff --git a/cg/cg0300a.uml b/cg/cg0300a.uml index b071459d9..0790a10bd 100755 --- a/cg/cg0300a.uml +++ b/cg/cg0300a.uml @@ -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 diff --git a/cg/cg1500a.uml b/cg/cg1500a.uml index 9a503bf24..21a926dd9 100755 --- a/cg/cg1500a.uml +++ b/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 diff --git a/cg/cg1700.cpp b/cg/cg1700.cpp index 52ee4141f..4049cd488 100755 --- a/cg/cg1700.cpp +++ b/cg/cg1700.cpp @@ -2,18 +2,17 @@ #include #include -#include #include #include #include -#include + #include #include #include #include #include -#include +#include "conto.h" #include "cg1.h" #include "cg1700.h" diff --git a/cg/cg4300.cpp b/cg/cg4300.cpp index 0fe0e4683..196087a60 100755 --- a/cg/cg4300.cpp +++ b/cg/cg4300.cpp @@ -4,17 +4,32 @@ // fv 21-1-94 // ------------------------------------------------------------ +#include +#include +#include + #include "cg4300.h" #include "cg4300a.h" + #include #include -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; } diff --git a/cg/cg4300.h b/cg/cg4300.h index fa54ba54a..ddf08e085 100755 --- a/cg/cg4300.h +++ b/cg/cg4300.h @@ -1,16 +1,17 @@ // of course this is -*-C++-*- // Questa e' la famosa palla della liquidazione IVA -#include -#include -#include -#include -#include -#include -#include -#include -#include +#ifndef __MASK_H #include +#endif + +#ifndef __PRINTAPP_H +#include +#endif + +#ifndef __TABUTIL_H +#include +#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() {} }; diff --git a/cg/cg4301.cpp b/cg/cg4301.cpp index 766c78c2c..2883b7d94 100755 --- a/cg/cg4301.cpp +++ b/cg/cg4301.cpp @@ -4,13 +4,13 @@ // fv 21-1-94 // ------------------------------------------------------------ -#include "cg4300.h" +#include -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; diff --git a/cg/cg4302.cpp b/cg/cg4302.cpp index bb2efeedd..b78f983e9 100755 --- a/cg/cg4302.cpp +++ b/cg/cg4302.cpp @@ -5,13 +5,15 @@ // -------------------------------------------------------------- #include +#include + #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); diff --git a/cg/cg4303.cpp b/cg/cg4303.cpp index f7b179f67..a7210bf7d 100755 --- a/cg/cg4303.cpp +++ b/cg/cg4303.cpp @@ -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; diff --git a/cg/cg4304.cpp b/cg/cg4304.cpp index a42a16052..3687248e5 100755 --- a/cg/cg4304.cpp +++ b/cg/cg4304.cpp @@ -4,6 +4,8 @@ // fv 21-1-94 // ------------------------------------------------------------ +#include + #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. @#"); diff --git a/cg/cg4305.cpp b/cg/cg4305.cpp index 44e25e3bb..f9f514d86 100755 --- a/cg/cg4305.cpp +++ b/cg/cg4305.cpp @@ -1,14 +1,16 @@ // cg4306: liquidazione IVA // funzionalita' accessorie (calcolo acconto, estrazione deleghe) +#include +#include +#include + #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;