root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 2.2

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Aggiunta qualche cache al programma di invio dati AS/PC


git-svn-id: svn://10.65.10.50/trunk@13424 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2005-10-14 14:21:31 +00:00
parent d07f26d517
commit 2dedf5f983
8 changed files with 257 additions and 298 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

226
cg/cg1300c.uml
View File

@ -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

4
cg/cg4800a.h
View File

@ -1,2 +1,2 @@
#define FLD_CGB_YEAR 101
#define BUT_CGB_ALL 102
#define FLD_CGB_YEAR 101
#define BUT_CGB_ALL 102

82
cg/cg4800a.uml
View File

@ -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

10
cg/cg4900a.h
View File

@ -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

116
cg/cg4900d.uml
View File

@ -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

53
cg/cg6900.cpp
View File

@ -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);

8
cg/cg6900.h
View File

@ -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);

56
cg/cg6902.cpp
View File

@ -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