diff --git a/cg/cg0200.cpp b/cg/cg0200.cpp index c4cfacd4f..d0fd04e5f 100755 --- a/cg/cg0200.cpp +++ b/cg/cg0200.cpp @@ -452,7 +452,7 @@ TSheet_field& CG0200_application::indsp_sheet() const void CG0200_application::reset_sheet() { - TToken_string nulla("|**Nessuno**||||"); + const TToken_string nulla("|**Nessuno**||||"); app().field_sheet(F_CODINDDOC)->destroy(); app().field_sheet(F_CODINDDOC)->add(nulla); diff --git a/cg/cg1700a.uml b/cg/cg1700a.uml index 02a946fa0..c1c7dfe62 100755 --- a/cg/cg1700a.uml +++ b/cg/cg1700a.uml @@ -1,18 +1,18 @@ #include "cg1700.h" -PAGE "" -1 -1 70 10 +PAGE "" -1 -1 70 8 NUMBER F_CODDITTA 5 BEGIN PROMPT 1 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - DISPLAY "Codice" CODDITTA + 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 + OUTPUT F_RAGSOC RAGSOC END STRING F_RAGSOC 50 @@ -27,14 +27,14 @@ BEGIN FLAGS "A" END -BUTTON DLG_OK 9 2 +BUTTON DLG_OK 10 2 BEGIN - PROMPT 30 8 "" + PROMPT -12 -1 "" END -BUTTON DLG_QUIT 9 2 +BUTTON DLG_QUIT 10 2 BEGIN - PROMPT 46 8 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/cg/cg5000a.uml b/cg/cg5000a.uml index 763e1263d..f46e9bfa9 100755 --- a/cg/cg5000a.uml +++ b/cg/cg5000a.uml @@ -1,151 +1,127 @@ -#include "cg5000a.h" - -PAGE "Parametri contabilita' studio" -1 -1 76 20 - -GROUPBOX DLG_NULL 74 4 -BEGIN - PROMPT 1 1 "Dati Banca di appoggio" -END - -NUMBER FLD_CODABI 5 -BEGIN - PROMPT 3 2 "Codice az. banca " - USE %BAN - INPUT CODTAB[1,5] FLD_CODABI - DISPLAY "Banca" CODTAB[1,5] - DISPLAY "Dipendenza" CODTAB[6,10] - DISPLAY "Descrizione@50" S0 - OUTPUT FLD_CODABI CODTAB[1,5] - OUTPUT FLD_CODCAB CODTAB[6,10] - OUTPUT FLD_RAGSOCB S0 - FIELD CodABI - CHECKTYPE NORMAL - FLAGS "RZ" -END - -NUMBER FLD_CODCAB 5 -BEGIN - PROMPT 37 2 "Codice dipendenza " - COPY ALL FLD_CODABI - INPUT CODTAB[6,10] FLD_CODABI - CHECKTYPE NORMAL - FIELD CodCAB - FLAGS "RZ" -END - -STRING FLD_RAGSOCB 50 -BEGIN - PROMPT 3 3 "Rag. Soc. Banca " - FLAGS "D" -END - -BOOLEAN CHK_SIND11 -BEGIN - PROMPT 2 5 "Somma imposte non detr. ad acq/import. in modello IVA 11" - FIELD Sind11 -END - -BOOLEAN CHK_STIREG -BEGIN - PROMPT 2 6 "Stampa intestazione registri bollati" - FIELD StiReg -END - -BOOLEAN CHK_NODTRG -BEGIN - PROMPT 2 7 "Non stampa data di registrazione sui registri IVA" - FIELD NoDtRg -END - -BOOLEAN CHK_POCUDR -BEGIN - PROMPT 2 8 "Posiz. cursore su data registr. in immissione documenti" - HELP "Determina il posizionamento automatico del cursore sulla data di registrazione o sulla causale in prima nota" - FIELD PoCuDr -END - -NUMBER FLD_CODAGV 5 -BEGIN - PROMPT 2 9 "Codice IVA per ricavi misti agenzie di viaggio " - USE %IVA - INPUT CODTAB FLD_CODAGV - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT FLD_CODAGV CODTAB - CHECKTYPE NORMAL - FIELD CodAgv -END - -GROUPBOX DLG_NULL 74 3 -BEGIN - PROMPT 1 11 "Interessi liquidazioni trimestrali" -END - -NUMBER FLD_INTR0 5 2 -BEGIN - PROMPT 3 12 "I " - FLAGS "R" - FIELD InTr(0) -END - -NUMBER FLD_INTR1 5 2 -BEGIN - PROMPT 20 12 "II " - FLAGS "R" - FIELD InTr(1) -END - -NUMBER FLD_INTR2 5 2 -BEGIN - PROMPT 40 12 "III " - FLAGS "R" - FIELD InTr(2) -END - -NUMBER FLD_INTR3 5 2 -BEGIN - PROMPT 60 12 "IV " - FLAGS "R" - FIELD InTr(3) -END - -BOOLEAN CHK_CODAPN -BEGIN - PROMPT 2 14 "Controllo dare/avere in gestione primanota differita" - FIELD CoDaPn -END - -BOOLEAN CHK_NOVIIP -BEGIN - PROMPT 2 15 "Non visualizza Incasso e Pagamento in automatico" - FIELD NoViIP -END - -BOOLEAN CHK_NOVIPC -BEGIN - PROMPT 2 16 "Non visualizza parte contabile in immissione documenti" - FIELD NoViPC -END - -BOOLEAN CHK_GSACMI -BEGIN - PROMPT 2 17 "Gestione anno di competenza per movimenti IVA" - FIELD GsAcMi -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 7 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK - - - +#include "cg5000a.h" + +PAGE "Parametri contabilita' studio" -1 -1 76 16 + +GROUPBOX DLG_NULL 74 4 +BEGIN + PROMPT 1 1 "Dati Banca di appoggio" +END + +NUMBER FLD_CODABI 5 +BEGIN + PROMPT 3 2 "Codice az. banca " + USE %BAN + INPUT CODTAB[1,5] FLD_CODABI + DISPLAY "Banca" CODTAB[1,5] + DISPLAY "Dipendenza" CODTAB[6,10] + DISPLAY "Descrizione@50" S0 + OUTPUT FLD_CODABI CODTAB[1,5] + OUTPUT FLD_CODCAB CODTAB[6,10] + OUTPUT FLD_RAGSOCB S0 + FIELD CodABI + CHECKTYPE NORMAL + FLAGS "RZ" +END + +NUMBER FLD_CODCAB 5 +BEGIN + PROMPT 37 2 "Codice dipendenza " + COPY ALL FLD_CODABI + INPUT CODTAB[6,10] FLD_CODABI + CHECKTYPE NORMAL + FIELD CodCAB + FLAGS "RZ" +END + +STRING FLD_RAGSOCB 50 +BEGIN + PROMPT 3 3 "Rag. Soc. Banca " + FLAGS "D" +END + +BOOLEAN CHK_SIND11 +BEGIN + PROMPT 2 5 "Somma imposte non detr. ad acq/import. in modello IVA 11" + FIELD Sind11 +END + +BOOLEAN CHK_STIREG +BEGIN + PROMPT 2 6 "Stampa intestazione registri bollati" + FIELD StiReg +END + +BOOLEAN CHK_NODTRG +BEGIN + PROMPT 2 7 "Non stampa data di registrazione sui registri IVA" + FIELD NoDtRg +END + +BOOLEAN CHK_POCUDR +BEGIN + PROMPT 2 8 "Posiz. cursore su data registr. in immissione documenti" + HELP "Determina il posizionamento automatico del cursore sulla data di registrazione o sulla causale in prima nota" + FIELD PoCuDr +END + +NUMBER FLD_CODAGV 5 +BEGIN + PROMPT 2 9 "Codice IVA per ricavi misti agenzie di viaggio " + USE %IVA + INPUT CODTAB FLD_CODAGV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT FLD_CODAGV CODTAB + CHECKTYPE NORMAL + FIELD CodAgv +END + +GROUPBOX DLG_NULL 74 3 +BEGIN + PROMPT 1 11 "Interessi liquidazioni trimestrali" +END + +NUMBER FLD_INTR0 5 2 +BEGIN + PROMPT 3 12 "I " + FLAGS "R" + FIELD InTr(0) +END + +NUMBER FLD_INTR1 5 2 +BEGIN + PROMPT 20 12 "II " + FLAGS "R" + FIELD InTr(1) +END + +NUMBER FLD_INTR2 5 2 +BEGIN + PROMPT 40 12 "III " + FLAGS "R" + FIELD InTr(2) +END + +NUMBER FLD_INTR3 5 2 +BEGIN + PROMPT 60 12 "IV " + FLAGS "R" + FIELD InTr(3) +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK + + + diff --git a/cg/cglib.h b/cg/cglib.h index ee305434e..0e12679d6 100755 --- a/cg/cglib.h +++ b/cg/cglib.h @@ -1,20 +1,13 @@ #ifndef __CGLIB_H #define __CGLIB_H +#ifndef __ASSOC_H +#include +#endif + #ifndef __ISAM_H #include #endif -#ifndef __REAL_H -#include -#endif -#ifndef __DATE_H -#include -#endif - -#include -//#include -//#include -//#include #include "conto.h" @@ -64,10 +57,10 @@ public: bool calcola_clifo(int, int, int, int, int); TRectype& ricerca_progr_prec(int, int, int, long); real saldofin_esprec(int,int,int,long); - real saldo() {return _saldo;} - real saldoini() {return _saldo_iniziale;} - real prgdare() {return _prg_dare;} - real prgavere() {return _prg_avere;} + real saldo() const {return _saldo;} + real saldoini() const {return _saldo_iniziale;} + real prgdare() const {return _prg_dare;} + real prgavere() const {return _prg_avere;} bool calcola(int,int,int,int,long,const TDate&,const TDate&,int,bool, const TDate&,const TDate&,const TDate&,bool); bool prg_attuali(int,TConto&,int,real&,real&); @@ -109,19 +102,19 @@ public: char sezione, bool somma=TRUE); void set_anno_es(int anno) { _anno_es = anno; } - int anno_es() { return _anno_es; } + int anno_es() const { return _anno_es; } void set_movap (bool movap) { _movap = movap; } - bool movap() { return _movap; } + bool movap() const { return _movap; } void set_movprovv (bool p) { _provv = p; } - bool movprovv() { return _provv; } + bool movprovv() const { return _provv; } - void set_data_ulmov (TDate& data) { _data_ulmov = data; } - TDate& data_ulmov() { return _data_ulmov; } + void set_data_ulmov (const TDate& data) { _data_ulmov = data; } + const TDate& data_ulmov() const { return _data_ulmov; } void set_num_ulmov (long num) { _num_ulmov = num; } - long num_ulmov() { return _num_ulmov; } + long num_ulmov() const { return _num_ulmov; } void reset(); // pulisce l'array dei conti TSaldo_agg(); diff --git a/cg/cglib01.cpp b/cg/cglib01.cpp index 568069e7d..d948473b2 100755 --- a/cg/cglib01.cpp +++ b/cg/cglib01.cpp @@ -2,12 +2,10 @@ // calcolo dei saldi #include -#include -#include -#include +#include #include #include -#include + #include #include #include @@ -98,7 +96,7 @@ real Saldo::calcola_saldo_iniziale(int annoes,int g,int c,long s,int indbil) if (saldoini == ZERO) //e il conto e' patrimoniale o d'ordine if ( indbil == 1 || indbil == 2 || indbil == 5 ) - saldoini = saldofin_esprec(annoes, g, c, s); + saldoini = saldofin_esprec(annoes, g, c, s); if (flag == 'D') return saldoini+pdaresca-paveresca; @@ -106,17 +104,17 @@ real Saldo::calcola_saldo_iniziale(int annoes,int g,int c,long s,int indbil) return pdaresca-saldoini-paveresca; } -/* + bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s, - const TDate& data_inf, const TDate& data_sup, - int indbil, bool controllo_competenza, const TDate& inizio_es, - const TDate& fine_es, const TDate& fine_es_prec,bool stp_prov) + const TDate& data_inf, const TDate& data_sup, + int indbil, bool controllo_competenza, const TDate& inizio_es, + const TDate& fine_es, const TDate& fine_es_prec,bool stp_prov) { if (data_sup.ok()) { if (!calcola_data_limite(annoes, g, c, s, data_inf, data_sup, indbil, - controllo_competenza, inizio_es, fine_es, fine_es_prec,stp_prov)) - return FALSE; + controllo_competenza, inizio_es, fine_es, fine_es_prec,stp_prov)) + return FALSE; } else if (!calcola_ultima_immissione(annoes,annoesprec, g, c, s, indbil)) @@ -124,7 +122,7 @@ bool Saldo::calcola(int annoes, int annoesprec,int g, int c, long s, return TRUE; } -*/ + const char* Saldo::causale_chiusura_es() { @@ -196,7 +194,7 @@ bool Saldo::calcola_data_limite(int annoes, int g, int c, long s, const TDate& d if ((!stp_prov) && (provv.trim().not_empty())) //se non e' richiesta stampa continue; //mov. provvisori li scarto - + gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto); if (gcs_corr != gcs_prec) @@ -209,14 +207,14 @@ bool Saldo::calcola_data_limite(int annoes, int g, int c, long s, const TDate& d if (annoe != annoes) if (annoe != annoes-1) continue; - + if (controllo_competenza) if ( (annoe == annoes -1) && (data_sup != fine_es) ) continue; else - if ( (data_rmv <= fine_es) && (data_rmv <= fine_es_prec) || - (data_rmv > fine_es) ) - continue; + if ( (data_rmv <= fine_es) && (data_rmv <= fine_es_prec) || + (data_rmv > fine_es) ) + continue; if ( (data_rmv < data_inf) || (data_rmv > data_sup) ) continue; @@ -256,7 +254,7 @@ void Saldo::InFinEs(int ae) } */ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf, - const TDate& data_sup, int indbil, bool stp_prov) + const TDate& data_sup, int indbil, bool stp_prov) { TString16 gcs_corr, gcs_prec; real importo, dep = ZERO; @@ -291,9 +289,9 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf, else { if (_annoes == 0) - data_mov = _datareg; + data_mov = _datareg; else - data_mov = _datacomp; + data_mov = _datacomp; } if (data_mov < data_inf || data_mov > data_sup) continue; @@ -305,7 +303,7 @@ real Saldo::data_limite_bilancio(int g, int c, long s, const TDate& data_inf, if (!stp_prov && _provv != ' ') //se non e' richiesta stampa continue; //mov. provvisori li scarto - + gcs_corr = format ("%3d%3d%6ld", gruppo, conto, sottoconto); if (gcs_corr != gcs_prec) @@ -341,7 +339,7 @@ long s, int indbil) _saldo_iniziale = ZERO; _prg_dare = ZERO; _prg_avere = ZERO; - _saldo = ZERO; + _saldo = ZERO; saldi.zero(); @@ -366,10 +364,10 @@ long s, int indbil) if (annoesprec == 0) //all'ultima immissione es.in corso { // if (indbil == 3 || indbil == 4) -// return esito; +// return esito; if (indbil == 1 || indbil == 2 || indbil == 5) - if (_saldo_iniziale == ZERO) + if (_saldo_iniziale == ZERO) _saldo_iniziale += saldofin_esprec(annoes,gruppo,conto,sottoconto); // i tre valori precedenti vengono utilizzati per la stampa bilancio @@ -407,7 +405,7 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil) _saldo_iniziale = ZERO; _prg_dare = ZERO; _prg_avere = ZERO; - _saldo = ZERO; + _saldo = ZERO; saldi.zero(); @@ -430,7 +428,7 @@ real Saldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil) if (sezione == 'A') _saldo_iniziale = -_saldo_iniziale; // if (indbil == 3 || indbil == 4) -// return esito; +// return esito; if (indbil == 1 || indbil == 2 || indbil == 5) if (_saldo_iniziale == ZERO) @@ -492,8 +490,8 @@ bool Saldo::prg_attuali(int annoes,TConto& conto,int indbil,real& prgdare,real& saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto()); if (saldoini > 0.00) flagsalini = 'D'; - else flagsalini = 'A'; - } + else flagsalini = 'A'; + } pdare = saldi.get_real(SLD_PDARE); pavere = saldi.get_real(SLD_PAVERE); pdaresca = saldi.get_real(SLD_PDARESCA); @@ -537,8 +535,8 @@ bool Saldo::prg_mov_eliminati(int annoes,TConto& conto,int indbil,real& prgdare, saldoini = saldofin_esprec(annoes,conto.gruppo(),conto.conto(),conto.sottoconto()); if (saldoini > ZERO) flagsalini = 'D'; - else flagsalini = 'A'; - } + else flagsalini = 'A'; + } pdaresca = saldi.get_real(SLD_PDARESCA); paveresca = saldi.get_real(SLD_PAVERESCA); if (flagsalini == 'D')