diff --git a/cg/cg1300c.uml b/cg/cg1300c.uml index 5abde98db..1cff2761d 100755 --- a/cg/cg1300c.uml +++ b/cg/cg1300c.uml @@ -1,113 +1,113 @@ -#include "cg1300.h" - -PAGE "Aggiornamento codice attivita'" -1 -1 72 12 - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 1 1 "Ditta " - FLAGS "FRD" - USE LF_NDITTE KEY 1 - CHECKTYPE REQUIRED - INPUT CODDITTA F_CODDITTA - OUTPUT F_CODDITTA CODDITTA - OUTPUT F_RAGSOC RAGSOC -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 1 2 "Ragione sociale " - FLAGS "D" -END - -BOOLEAN F_PASS -BEGIN - PROMPT 1 4 "Passaggio dati iva a nuova attivita' " - HELP "Indicare se richiedere o no il passaggio dati dalla vecchia alla nuova attivita'" - //MESSAGE TRUE ENABLE,F_DA|ENABLE,F_A|REQUIRED,F_ANNO - MESSAGE TRUE SHOW,1@ - //MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO - MESSAGE FALSE HIDE,1@|RESET,1@ -END - -NUMBER F_ANNO 4 -BEGIN - PROMPT 1 5 "Anno liquidazione iva " - HELP "Introdurre l'anno di liquidazione iva" - GROUP 1 - FLAGS "A" - VALIDATE FIXLEN_FUNC 4 - CHECKTYPE REQUIRED -//VALIDATE REQIF_FUNC 1 F_PASS -END - -STRING F_DA 5 -BEGIN - PROMPT 1 7 "DA " - HELP "Introdurre il codice della vecchia attivita'" - GROUP 1 - FLAGS "RZ" - USE LF_ATTIV - JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA - INPUT CODDITTA F_CODDITTA SELECT - INPUT CODATT F_DA - DISPLAY "Codice attivita'" LF_ATTIV->CODATT - DISPLAY "Descrizione @40" LF_ATTIV->DESCR - OUTPUT F_DA LF_ATTIV->CODATT - OUTPUT F_DENATTV LF_ATTIV->DESCR - CHECKTYPE REQUIRED - WARNING "Attivita' assente" -END - -STRING F_DENATTV 40 -BEGIN - PROMPT 12 7 "" - GROUP 1 - FLAGS "D" -END - -STRING F_A 5 -BEGIN - PROMPT 1 8 "A " - HELP "Introdurre il codice della nuova attivita'" - GROUP 1 - FLAGS "RZ" - USE LF_ATTIV - JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA - INPUT CODDITTA F_CODDITTA SELECT - INPUT CODATT F_A - DISPLAY "Codice attivita'" LF_ATTIV->CODATT - DISPLAY "Descrizione @40" LF_ATTIV->DESCR - OUTPUT F_A LF_ATTIV->CODATT - OUTPUT F_DENATTN LF_ATTIV->DESCR - CHECKTYPE REQUIRED - WARNING "Attivita' assente" -//VALIDATE REQIF_FUNC 1 F_PASS -END - -STRING F_DENATTN 40 -BEGIN - PROMPT 12 8 "" - GROUP 1 - FLAGS "D" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK - - - - - - - +#include "cg1300.h" + +PAGE "Aggiornamento codice attivita'" -1 -1 72 12 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "D" +END + +BOOLEAN F_PASS +BEGIN + PROMPT 1 4 "Passaggio dati iva a nuova attivita' " + HELP "Indicare se richiedere o no il passaggio dati dalla vecchia alla nuova attivita'" + //MESSAGE TRUE ENABLE,F_DA|ENABLE,F_A|REQUIRED,F_ANNO + MESSAGE TRUE SHOW,1@ + //MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO + MESSAGE FALSE HIDE,1@|RESET,1@ +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 1 5 "Anno liquidazione iva " + HELP "Introdurre l'anno di liquidazione iva" + GROUP 1 + FLAGS "A" + VALIDATE FIXLEN_FUNC 4 + CHECKTYPE REQUIRED +//VALIDATE REQIF_FUNC 1 F_PASS +END + +STRING F_DA 5 +BEGIN + PROMPT 1 7 "DA " + HELP "Introdurre il codice della vecchia attivita'" + GROUP 1 + FLAGS "RZ" + USE LF_ATTIV + JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA + INPUT CODDITTA F_CODDITTA SELECT + INPUT CODATT F_DA + DISPLAY "Codice attivita'" LF_ATTIV->CODATT + DISPLAY "Descrizione @40" LF_ATTIV->DESCR + OUTPUT F_DA LF_ATTIV->CODATT + OUTPUT F_DENATTV LF_ATTIV->DESCR + CHECKTYPE REQUIRED + WARNING "Attivita' assente" +END + +STRING F_DENATTV 40 +BEGIN + PROMPT 12 7 "" + GROUP 1 + FLAGS "D" +END + +STRING F_A 5 +BEGIN + PROMPT 1 8 "A " + HELP "Introdurre il codice della nuova attivita'" + GROUP 1 + FLAGS "RZ" + USE LF_ATTIV + JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA + INPUT CODDITTA F_CODDITTA SELECT + INPUT CODATT F_A + DISPLAY "Codice attivita'" LF_ATTIV->CODATT + DISPLAY "Descrizione @40" LF_ATTIV->DESCR + OUTPUT F_A LF_ATTIV->CODATT + OUTPUT F_DENATTN LF_ATTIV->DESCR + CHECKTYPE REQUIRED + WARNING "Attivita' assente" +//VALIDATE REQIF_FUNC 1 F_PASS +END + +STRING F_DENATTN 40 +BEGIN + PROMPT 12 8 "" + GROUP 1 + FLAGS "D" +END + +BUTTON DLG_OK 9 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_CANCEL 9 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK + + + + + + + diff --git a/cg/cg4800a.h b/cg/cg4800a.h index d52be1817..108b2716b 100755 --- a/cg/cg4800a.h +++ b/cg/cg4800a.h @@ -1,2 +1,2 @@ -#define FLD_CGB_YEAR 101 -#define BUT_CGB_ALL 102 +#define FLD_CGB_YEAR 101 +#define BUT_CGB_ALL 102 diff --git a/cg/cg4800a.uml b/cg/cg4800a.uml index ccadbd8a5..5e455f49c 100755 --- a/cg/cg4800a.uml +++ b/cg/cg4800a.uml @@ -1,41 +1,41 @@ -#include "cg4800a.h" - -PAGE "Creazione versamenti acconti dicembre" -1 -1 45 10 - -NUMBER FLD_CGB_YEAR 4 -BEGIN - PROMPT 2 1 "Anno iva da elaborare " - FLAGS "A" - VALIDATE FIXLEN_FUNC 4 -END - -GROUPBOX DLG_NULL 41 4 -BEGIN - PROMPT 2 3 "Scelta ditte" -END - -BUTTON DLG_SELECT 10 2 -BEGIN - PROMPT -12 4 "Scegli" - MESSAGE EXIT,DLG_SELECT -END - -BUTTON BUT_CGB_ALL 10 2 -BEGIN - PROMPT -22 4 "Tutte" - MESSAGE EXIT,BUT_CGB_ALL -END - -BUTTON DLG_OK 10 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_CANCEL 10 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +#include "cg4800a.h" + +PAGE "Creazione versamenti acconti dicembre" -1 -1 45 10 + +NUMBER FLD_CGB_YEAR 4 +BEGIN + PROMPT 2 1 "Anno iva da elaborare " + FLAGS "A" + VALIDATE FIXLEN_FUNC 4 +END + +GROUPBOX DLG_NULL 41 4 +BEGIN + PROMPT 2 3 "Scelta ditte" +END + +BUTTON DLG_SELECT 10 2 +BEGIN + PROMPT -12 4 "Scegli" + MESSAGE EXIT,DLG_SELECT +END + +BUTTON BUT_CGB_ALL 10 2 +BEGIN + PROMPT -22 4 "Tutte" + MESSAGE EXIT,BUT_CGB_ALL +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_CANCEL 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cg4900a.h b/cg/cg4900a.h index 2ddfd9ee1..0331f5d61 100755 --- a/cg/cg4900a.h +++ b/cg/cg4900a.h @@ -1,5 +1,5 @@ -#define F_CODDITTA 101 -#define F_RAGSOC 102 -#define F_YEAR 103 -#define F_SELECT 104 - +#define F_CODDITTA 101 +#define F_RAGSOC 102 +#define F_YEAR 103 +#define F_SELECT 104 + diff --git a/cg/cg4900d.uml b/cg/cg4900d.uml index 8e5fc15b9..0fe79929e 100755 --- a/cg/cg4900d.uml +++ b/cg/cg4900d.uml @@ -1,60 +1,60 @@ -#include "cg4900.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_SAVEREC 10 2 -BEGIN -PROMPT -13 -1 "~Registra" -MESSAGE EXIT,K_SAVE +#include "cg4900.h" + +TOOLBAR "" 0 20 0 2 + +BUTTON DLG_SAVEREC 10 2 +BEGIN +PROMPT -13 -1 "~Registra" +MESSAGE EXIT,K_SAVE PICTURE BMP_SAVEREC PICTURE BMP_SAVERECDN -END - -BUTTON DLG_CANCEL 10 2 -BEGIN -PROMPT -23 -1 "" -MESSAGE EXIT,K_ESC -END - -BUTTON DLG_QUIT 10 2 -BEGIN -PROMPT -33 -1 "" -MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Acconto su operazioni effettuate" -1 -1 77 20 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 0 "@bDitta corrente" -END - -NUMBER F_CODDITTA 5 -BEGIN - PROMPT 3 1 "Codice " - FLAGS "DFR" - USE LF_NDITTE KEY 1 - INPUT CODDITTA F_CODDITTA - OUTPUT F_RAGSOC RAGSOC - CHECKTYPE REQUIRED -END - -STRING F_RAGSOC 50 -BEGIN - PROMPT 17 1 "Rag. Soc. " - FLAGS "D" -END - -RADIOBUTTON F_TIPO 24 -BEGIN - PROMPT 3 4 "Tipo calcolo acconto" - ITEM "A|Analitico" - ITEM "S|Storico" -END - -ENDPAGE - -ENDMASK - +END + +BUTTON DLG_CANCEL 10 2 +BEGIN +PROMPT -23 -1 "" +MESSAGE EXIT,K_ESC +END + +BUTTON DLG_QUIT 10 2 +BEGIN +PROMPT -33 -1 "" +MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Acconto su operazioni effettuate" -1 -1 77 20 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 0 "@bDitta corrente" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 3 1 "Codice " + FLAGS "DFR" + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE REQUIRED +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 17 1 "Rag. Soc. " + FLAGS "D" +END + +RADIOBUTTON F_TIPO 24 +BEGIN + PROMPT 3 4 "Tipo calcolo acconto" + ITEM "A|Analitico" + ITEM "S|Storico" +END + +ENDPAGE + +ENDMASK + diff --git a/cg/cg6900.cpp b/cg/cg6900.cpp index 73fa98bba..4cea30bd8 100755 --- a/cg/cg6900.cpp +++ b/cg/cg6900.cpp @@ -418,7 +418,6 @@ bool TInv_cont::create() _part = new TLocalisamfile (LF_PARTITE); _scad = new TLocalisamfile (LF_SCADENZE); _pagsca = new TLocalisamfile (LF_PAGSCA); - _comuni = new TLocalisamfile (LF_COMUNI); return TSkeleton_application::create(); } @@ -436,7 +435,6 @@ bool TInv_cont::destroy() delete _part; delete _scad; delete _pagsca; - delete _comuni; return TApplication::destroy(); } @@ -921,27 +919,23 @@ void TInv_cont::crea_marker(TMask& m) void TInv_cont::aggiorna_marker(TString& token, int pos) { - TString str; - _marker = ""; _marker = firm2dir(0); _marker << "\\marker"; - FILE* i; + FILE* i = fopen(_marker,"r+t"); - const word size = 64; - TString buffer(size); - //buffer.spaces(); - - if ( (i = fopen(_marker,"r+t")) != NULL) + if (i != NULL) { - const word letti = fread((char*)(const char*)buffer,sizeof(char),size,i); + const int size = 64; + TString80 buffer; + const word letti = fread(buffer.get_buffer(),sizeof(char),size,i); buffer.overwrite(token,pos); - buffer.cut(64); //Sicurezza: le stringhe dimensionate in realta' sono - //leggermente piu' lunghe della dimensione specificata + buffer.cut(size); //Sicurezza: le stringhe dimensionate in realta' sono + //leggermente piu' lunghe della dimensione specificata fseek(i, 0L, SEEK_SET); - const word scritti = fwrite((char*)(const char*)buffer,sizeof(char),size,i); + const word scritti = fwrite(buffer,sizeof(char),size,i); fclose(i); } @@ -1076,21 +1070,10 @@ void TInv_cont::crea_record_controllo(TMask& m) _tras_file.close(); } -const char* TInv_cont::cerca_provincia(const TString& comcf) -{ - HIDDEN TString16 TEMP; - - TLocalisamfile comuni(LF_COMUNI); - - comuni.setkey(1); - comuni.zero(); - comuni.put(COM_COM, comcf); - if (comuni.read() == NOERR) - TEMP = comuni.get(COM_PROVCOM); - else - TEMP = ""; - - return TEMP; +const char* TInv_cont::cerca_provincia(const TString& comcf) const +{ + TString8 k; k << " |" << comcf; + return cache().get(LF_COMUNI, k, COM_PROVCOM); } bool TInv_cont::invio_tempfile(TMask& m) @@ -1179,7 +1162,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m) _caus->first(); else { - TString causale (key.mid(0,3)); + const TString& causale = key.mid(0,3); _caus->zero(); _caus->put(CAU_CODCAUS, causale); _caus->read(); @@ -1189,7 +1172,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m) { _prog->addstatus(1); - TString codcaus = _caus->get(CAU_CODCAUS); + const TString4 codcaus = _caus->get(CAU_CODCAUS); _tcaus->curr() = _caus->curr(); @@ -1211,7 +1194,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m) } leggi_record_controllo(); - TString chiave; + TString4 chiave; chiave.format("%3s",(const char*) codcaus); _control_rec.overwrite("W",240); _control_rec.overwrite(chiave,241); @@ -1243,7 +1226,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m) // setta_parametri_record(m,"D"); } -void TInv_cont::cancella_righe_causali(TString& codcaus) +void TInv_cont::cancella_righe_causali(const TString& codcaus) { _trcaus->setkey(1); _trcaus->zero(); @@ -1258,7 +1241,7 @@ void TInv_cont::cancella_righe_causali(TString& codcaus) } } -void TInv_cont::scrivi_righe_causali(TString& codcaus, char uselab) +void TInv_cont::scrivi_righe_causali(const TString& codcaus, char uselab) { cancella_righe_causali(codcaus); @@ -1368,7 +1351,7 @@ void TInv_cont::clifo2tempfile(TString& key, TMask& m) void TInv_cont::pcon2tempfile(TString& key, TMask& m) { - int size = 1024; + const int size = 1024; _tras_file.open(_header); diff --git a/cg/cg6900.h b/cg/cg6900.h index 4f9804222..603fb7745 100755 --- a/cg/cg6900.h +++ b/cg/cg6900.h @@ -92,8 +92,8 @@ public: bool invio_tempfile(TMask& m); void causali2tempfile(TString& key,TMask& m); - void cancella_righe_causali(TString& codcaus); - void scrivi_righe_causali(TString& codcaus, char uselab); + void cancella_righe_causali(const TString& codcaus); + void scrivi_righe_causali(const TString& codcaus, char uselab); void clifo2tempfile(TString& key,TMask& m); void pcon2tempfile(TString& key,TMask& m); @@ -136,8 +136,8 @@ public: void calcola_totale_record(); void scrivi_telefono(TString& app); - const char* cerca_provincia(const TString& comcf); - void cerca_dencom(TString& comcf,TString& dencom); + const char* cerca_provincia(const TString& comcf) const; + void cerca_dencom(const TString& comcf, TString& dencom) const; static bool setta_maschera_hnd(TMask_field& f, KEY k); static bool messaggio_hnd (TMask_field& f, KEY k); diff --git a/cg/cg6902.cpp b/cg/cg6902.cpp index 3eec79fc2..c2ab5bd78 100755 --- a/cg/cg6902.cpp +++ b/cg/cg6902.cpp @@ -617,17 +617,10 @@ void TInv_cont::scrivi_telefono(TString& appoggio) appoggio << tel; } -void TInv_cont::cerca_dencom(TString& comcf,TString& dencom) +void TInv_cont::cerca_dencom(const TString& comcf,TString& dencom) const { - TLocalisamfile comuni(LF_COMUNI); - - comuni.setkey(1); - comuni.zero(); - comuni.put(COM_COM, comcf); - if (comuni.read() == NOERR) - dencom = comuni.get(COM_DENCOM); - else - dencom = ""; + TString8 k; k << " |" << comcf; + dencom = cache().get(LF_COMUNI, k, COM_DENCOM); } bool TInv_cont::invio_clifo() @@ -706,11 +699,11 @@ bool TInv_cont::invio_clifo() str.format("%-35s", (const char*) indcf); record.overwrite(str,93); //Indirizzo - TString capcf = _tclifo->get(CLI_CAPCF); + const TString8 capcf = _tclifo->get(CLI_CAPCF); str.format("%05s", (const char*) capcf); record.overwrite(str,128); //Codice di avviamento postale - TString comcf = _tclifo->get(CLI_COMCF); + const TString4 comcf = _tclifo->get(CLI_COMCF); TString localita; if (comcf.not_empty()) cerca_dencom(comcf,localita); @@ -719,10 +712,7 @@ bool TInv_cont::invio_clifo() str.format("%-.20s", (const char*) localita); record.overwrite(str,133); //Localita' -// TString comcf = _tclifo->get(CLI_COMCF); - TString provincia = ""; - if (comcf.not_empty()) - provincia = cerca_provincia(comcf); + const TString4 provincia = cerca_provincia(comcf); str.format("%-2s", (const char*) provincia); record.overwrite(str,153); //Provincia @@ -1041,32 +1031,22 @@ void TInv_cont::testata_trasfer(long nreg, int nrig, TString& record) void TInv_cont::sola_iva(TString& record, long nreg) { - TString str; - TLocalisamfile cau (LF_CAUSALI); - TString tipodoc = ""; - bool cor = FALSE; int gruppo = 0; int conto = 0; long sottoc = 0; - cau.setkey(1); - cau.zero(); - cau.put(CAU_CODCAUS, _codcausm); - if (cau.read() == NOERR) - tipodoc = cau.get(CAU_TIPODOC); + const TString4 tipodoc = cache().get(LF_CAUSALI, _codcausm, CAU_TIPODOC); const TRectype& tabtpd = cache().get("%TPD", tipodoc); - cor = tabtpd.get_bool("B0"); + const bool cor = tabtpd.get_bool("B0"); if (!cor) { TLocalisamfile rcaus (LF_RCAUSALI); - - rcaus.setkey(1); - rcaus.zero(); rcaus.put(RCA_CODCAUS, _codcausm); rcaus.read(); - TString codcau = rcaus.get(RCA_CODCAUS); + + const TString& codcau = rcaus.get(RCA_CODCAUS); if (codcau == _codcausm) { gruppo = rcaus.get_int (RCA_GRUPPO); @@ -1076,10 +1056,7 @@ void TInv_cont::sola_iva(TString& record, long nreg) } else { - TLocalisamfile riva (LF_RMOVIVA); - - riva.setkey(1); - riva.zero(); + TLocalisamfile riva (LF_RMOVIVA); riva.put(RMI_NUMREG, nreg); riva.read(); long nr = riva.get_long(RMI_NUMREG); @@ -1091,6 +1068,7 @@ void TInv_cont::sola_iva(TString& record, long nreg) } } + TString8 str; str.format("%02d", gruppo); record.overwrite(str,74); //Gruppo di partita str.format("%02d", conto); @@ -1114,10 +1092,9 @@ bool TInv_cont::invio_mov_PN() _tras_file.open(_trasf,TRUE); + TString80 str; for (_tmov->first(); !_tmov->eof(); _tmov->next()) { - TString str; - _prog->addstatus(1); record.spaces(); @@ -1146,7 +1123,7 @@ bool TInv_cont::invio_mov_PN() testata_trasfer(nreg,nrig,record); - TString descr = _trmov->get(RMV_DESCR); + TString80 descr = _trmov->get(RMV_DESCR); if (descr.empty()) descr = head_descr; // Se non esiste la descrizione della riga ci mette quella della testata str.format("%-.30s", (const char*) descr); @@ -1164,8 +1141,7 @@ bool TInv_cont::invio_mov_PN() str.format("%06ld", sottoc); record.overwrite(str,78); //Sottoconto di partita - TString sez = _trmov->get(RMV_SEZIONE); - str.format("%s", (const char*) sez); + str = _trmov->get(RMV_SEZIONE); record.overwrite(str,84); //Sezione importo int gruppoc = _trmov->get_int(RMV_GRUPPOC); @@ -1249,7 +1225,7 @@ void TInv_cont::cerca_occasionale() _ragsococc = _toccas->get(OCC_RAGSOC); _indocc = _toccas->get(OCC_INDIR); _capocc = _toccas->get(OCC_CAP); - TString com = _toccas->get(OCC_COM); + const TString8 com = _toccas->get(OCC_COM); cerca_comune_occas(com); } else