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" #include "cg1300.h"
PAGE "Aggiornamento codice attivita'" -1 -1 72 12 PAGE "Aggiornamento codice attivita'" -1 -1 72 12
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_CODDITTA CODDITTA OUTPUT F_CODDITTA CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 1 2 "Ragione sociale " PROMPT 1 2 "Ragione sociale "
FLAGS "D" FLAGS "D"
END END
BOOLEAN F_PASS BOOLEAN F_PASS
BEGIN BEGIN
PROMPT 1 4 "Passaggio dati iva a nuova attivita' " PROMPT 1 4 "Passaggio dati iva a nuova attivita' "
HELP "Indicare se richiedere o no il passaggio dati dalla vecchia alla 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 ENABLE,F_DA|ENABLE,F_A|REQUIRED,F_ANNO
MESSAGE TRUE SHOW,1@ MESSAGE TRUE SHOW,1@
//MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO //MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO
MESSAGE FALSE HIDE,1@|RESET,1@ MESSAGE FALSE HIDE,1@|RESET,1@
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 1 5 "Anno liquidazione iva " PROMPT 1 5 "Anno liquidazione iva "
HELP "Introdurre l'anno di liquidazione iva" HELP "Introdurre l'anno di liquidazione iva"
GROUP 1 GROUP 1
FLAGS "A" FLAGS "A"
VALIDATE FIXLEN_FUNC 4 VALIDATE FIXLEN_FUNC 4
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
//VALIDATE REQIF_FUNC 1 F_PASS //VALIDATE REQIF_FUNC 1 F_PASS
END END
STRING F_DA 5 STRING F_DA 5
BEGIN BEGIN
PROMPT 1 7 "DA " PROMPT 1 7 "DA "
HELP "Introdurre il codice della vecchia attivita'" HELP "Introdurre il codice della vecchia attivita'"
GROUP 1 GROUP 1
FLAGS "RZ" FLAGS "RZ"
USE LF_ATTIV USE LF_ATTIV
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA SELECT INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_DA INPUT CODATT F_DA
DISPLAY "Codice attivita'" LF_ATTIV->CODATT DISPLAY "Codice attivita'" LF_ATTIV->CODATT
DISPLAY "Descrizione @40" LF_ATTIV->DESCR DISPLAY "Descrizione @40" LF_ATTIV->DESCR
OUTPUT F_DA LF_ATTIV->CODATT OUTPUT F_DA LF_ATTIV->CODATT
OUTPUT F_DENATTV LF_ATTIV->DESCR OUTPUT F_DENATTV LF_ATTIV->DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Attivita' assente" WARNING "Attivita' assente"
END END
STRING F_DENATTV 40 STRING F_DENATTV 40
BEGIN BEGIN
PROMPT 12 7 "" PROMPT 12 7 ""
GROUP 1 GROUP 1
FLAGS "D" FLAGS "D"
END END
STRING F_A 5 STRING F_A 5
BEGIN BEGIN
PROMPT 1 8 "A " PROMPT 1 8 "A "
HELP "Introdurre il codice della nuova attivita'" HELP "Introdurre il codice della nuova attivita'"
GROUP 1 GROUP 1
FLAGS "RZ" FLAGS "RZ"
USE LF_ATTIV USE LF_ATTIV
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
INPUT CODDITTA F_CODDITTA SELECT INPUT CODDITTA F_CODDITTA SELECT
INPUT CODATT F_A INPUT CODATT F_A
DISPLAY "Codice attivita'" LF_ATTIV->CODATT DISPLAY "Codice attivita'" LF_ATTIV->CODATT
DISPLAY "Descrizione @40" LF_ATTIV->DESCR DISPLAY "Descrizione @40" LF_ATTIV->DESCR
OUTPUT F_A LF_ATTIV->CODATT OUTPUT F_A LF_ATTIV->CODATT
OUTPUT F_DENATTN LF_ATTIV->DESCR OUTPUT F_DENATTN LF_ATTIV->DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Attivita' assente" WARNING "Attivita' assente"
//VALIDATE REQIF_FUNC 1 F_PASS //VALIDATE REQIF_FUNC 1 F_PASS
END END
STRING F_DENATTN 40 STRING F_DENATTN 40
BEGIN BEGIN
PROMPT 12 8 "" PROMPT 12 8 ""
GROUP 1 GROUP 1
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

4
cg/cg4800a.h
View File

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

82
cg/cg4800a.uml
View File

@ -1,41 +1,41 @@
#include "cg4800a.h" #include "cg4800a.h"
PAGE "Creazione versamenti acconti dicembre" -1 -1 45 10 PAGE "Creazione versamenti acconti dicembre" -1 -1 45 10
NUMBER FLD_CGB_YEAR 4 NUMBER FLD_CGB_YEAR 4
BEGIN BEGIN
PROMPT 2 1 "Anno iva da elaborare " PROMPT 2 1 "Anno iva da elaborare "
FLAGS "A" FLAGS "A"
VALIDATE FIXLEN_FUNC 4 VALIDATE FIXLEN_FUNC 4
END END
GROUPBOX DLG_NULL 41 4 GROUPBOX DLG_NULL 41 4
BEGIN BEGIN
PROMPT 2 3 "Scelta ditte" PROMPT 2 3 "Scelta ditte"
END END
BUTTON DLG_SELECT 10 2 BUTTON DLG_SELECT 10 2
BEGIN BEGIN
PROMPT -12 4 "Scegli" PROMPT -12 4 "Scegli"
MESSAGE EXIT,DLG_SELECT MESSAGE EXIT,DLG_SELECT
END END
BUTTON BUT_CGB_ALL 10 2 BUTTON BUT_CGB_ALL 10 2
BEGIN BEGIN
PROMPT -22 4 "Tutte" PROMPT -22 4 "Tutte"
MESSAGE EXIT,BUT_CGB_ALL MESSAGE EXIT,BUT_CGB_ALL
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

10
cg/cg4900a.h
View File

@ -1,5 +1,5 @@
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_RAGSOC 102 #define F_RAGSOC 102
#define F_YEAR 103 #define F_YEAR 103
#define F_SELECT 104 #define F_SELECT 104

116
cg/cg4900d.uml
View File

@ -1,60 +1,60 @@
#include "cg4900.h" #include "cg4900.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -13 -1 "~Registra" PROMPT -13 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -33 -1 "" PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "Acconto su operazioni effettuate" -1 -1 77 20 PAGE "Acconto su operazioni effettuate" -1 -1 77 20
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "@bDitta corrente" PROMPT 1 0 "@bDitta corrente"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
FLAGS "DFR" FLAGS "DFR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Rag. Soc. " PROMPT 17 1 "Rag. Soc. "
FLAGS "D" FLAGS "D"
END END
RADIOBUTTON F_TIPO 24 RADIOBUTTON F_TIPO 24
BEGIN BEGIN
PROMPT 3 4 "Tipo calcolo acconto" PROMPT 3 4 "Tipo calcolo acconto"
ITEM "A|Analitico" ITEM "A|Analitico"
ITEM "S|Storico" ITEM "S|Storico"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

53
cg/cg6900.cpp
View File

@ -418,7 +418,6 @@ bool TInv_cont::create()
_part = new TLocalisamfile (LF_PARTITE); _part = new TLocalisamfile (LF_PARTITE);
_scad = new TLocalisamfile (LF_SCADENZE); _scad = new TLocalisamfile (LF_SCADENZE);
_pagsca = new TLocalisamfile (LF_PAGSCA); _pagsca = new TLocalisamfile (LF_PAGSCA);
_comuni = new TLocalisamfile (LF_COMUNI);
return TSkeleton_application::create(); return TSkeleton_application::create();
} }
@ -436,7 +435,6 @@ bool TInv_cont::destroy()
delete _part; delete _part;
delete _scad; delete _scad;
delete _pagsca; delete _pagsca;
delete _comuni;
return TApplication::destroy(); return TApplication::destroy();
} }
@ -921,27 +919,23 @@ void TInv_cont::crea_marker(TMask& m)
void TInv_cont::aggiorna_marker(TString& token, int pos) void TInv_cont::aggiorna_marker(TString& token, int pos)
{ {
TString str;
_marker = ""; _marker = "";
_marker = firm2dir(0); _marker = firm2dir(0);
_marker << "\\marker"; _marker << "\\marker";
FILE* i; FILE* i = fopen(_marker,"r+t");
const word size = 64; if (i != NULL)
TString buffer(size);
//buffer.spaces();
if ( (i = fopen(_marker,"r+t")) != 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.overwrite(token,pos);
buffer.cut(64); //Sicurezza: le stringhe dimensionate in realta' sono buffer.cut(size); //Sicurezza: le stringhe dimensionate in realta' sono
//leggermente piu' lunghe della dimensione specificata //leggermente piu' lunghe della dimensione specificata
fseek(i, 0L, SEEK_SET); 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); fclose(i);
} }
@ -1076,21 +1070,10 @@ void TInv_cont::crea_record_controllo(TMask& m)
_tras_file.close(); _tras_file.close();
} }
const char* TInv_cont::cerca_provincia(const TString& comcf) const char* TInv_cont::cerca_provincia(const TString& comcf) const
{ {
HIDDEN TString16 TEMP; TString8 k; k << " |" << comcf;
return cache().get(LF_COMUNI, k, COM_PROVCOM);
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;
} }
bool TInv_cont::invio_tempfile(TMask& m) bool TInv_cont::invio_tempfile(TMask& m)
@ -1179,7 +1162,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m)
_caus->first(); _caus->first();
else else
{ {
TString causale (key.mid(0,3)); const TString& causale = key.mid(0,3);
_caus->zero(); _caus->zero();
_caus->put(CAU_CODCAUS, causale); _caus->put(CAU_CODCAUS, causale);
_caus->read(); _caus->read();
@ -1189,7 +1172,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m)
{ {
_prog->addstatus(1); _prog->addstatus(1);
TString codcaus = _caus->get(CAU_CODCAUS); const TString4 codcaus = _caus->get(CAU_CODCAUS);
_tcaus->curr() = _caus->curr(); _tcaus->curr() = _caus->curr();
@ -1211,7 +1194,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m)
} }
leggi_record_controllo(); leggi_record_controllo();
TString chiave; TString4 chiave;
chiave.format("%3s",(const char*) codcaus); chiave.format("%3s",(const char*) codcaus);
_control_rec.overwrite("W",240); _control_rec.overwrite("W",240);
_control_rec.overwrite(chiave,241); _control_rec.overwrite(chiave,241);
@ -1243,7 +1226,7 @@ void TInv_cont::causali2tempfile(TString& key, TMask& m)
// setta_parametri_record(m,"D"); // 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->setkey(1);
_trcaus->zero(); _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); cancella_righe_causali(codcaus);
@ -1368,7 +1351,7 @@ void TInv_cont::clifo2tempfile(TString& key, TMask& m)
void TInv_cont::pcon2tempfile(TString& key, TMask& m) void TInv_cont::pcon2tempfile(TString& key, TMask& m)
{ {
int size = 1024; const int size = 1024;
_tras_file.open(_header); _tras_file.open(_header);

8
cg/cg6900.h
View File

@ -92,8 +92,8 @@ public:
bool invio_tempfile(TMask& m); bool invio_tempfile(TMask& m);
void causali2tempfile(TString& key,TMask& m); void causali2tempfile(TString& key,TMask& m);
void cancella_righe_causali(TString& codcaus); void cancella_righe_causali(const TString& codcaus);
void scrivi_righe_causali(TString& codcaus, char uselab); void scrivi_righe_causali(const TString& codcaus, char uselab);
void clifo2tempfile(TString& key,TMask& m); void clifo2tempfile(TString& key,TMask& m);
void pcon2tempfile(TString& key,TMask& m); void pcon2tempfile(TString& key,TMask& m);
@ -136,8 +136,8 @@ public:
void calcola_totale_record(); void calcola_totale_record();
void scrivi_telefono(TString& app); void scrivi_telefono(TString& app);
const char* cerca_provincia(const TString& comcf); const char* cerca_provincia(const TString& comcf) const;
void cerca_dencom(TString& comcf,TString& dencom); void cerca_dencom(const TString& comcf, TString& dencom) const;
static bool setta_maschera_hnd(TMask_field& f, KEY k); static bool setta_maschera_hnd(TMask_field& f, KEY k);
static bool messaggio_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; 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); TString8 k; k << " |" << comcf;
dencom = cache().get(LF_COMUNI, k, COM_DENCOM);
comuni.setkey(1);
comuni.zero();
comuni.put(COM_COM, comcf);
if (comuni.read() == NOERR)
dencom = comuni.get(COM_DENCOM);
else
dencom = "";
} }
bool TInv_cont::invio_clifo() bool TInv_cont::invio_clifo()
@ -706,11 +699,11 @@ bool TInv_cont::invio_clifo()
str.format("%-35s", (const char*) indcf); str.format("%-35s", (const char*) indcf);
record.overwrite(str,93); //Indirizzo record.overwrite(str,93); //Indirizzo
TString capcf = _tclifo->get(CLI_CAPCF); const TString8 capcf = _tclifo->get(CLI_CAPCF);
str.format("%05s", (const char*) capcf); str.format("%05s", (const char*) capcf);
record.overwrite(str,128); //Codice di avviamento postale record.overwrite(str,128); //Codice di avviamento postale
TString comcf = _tclifo->get(CLI_COMCF); const TString4 comcf = _tclifo->get(CLI_COMCF);
TString localita; TString localita;
if (comcf.not_empty()) if (comcf.not_empty())
cerca_dencom(comcf,localita); cerca_dencom(comcf,localita);
@ -719,10 +712,7 @@ bool TInv_cont::invio_clifo()
str.format("%-.20s", (const char*) localita); str.format("%-.20s", (const char*) localita);
record.overwrite(str,133); //Localita' record.overwrite(str,133); //Localita'
// TString comcf = _tclifo->get(CLI_COMCF); const TString4 provincia = cerca_provincia(comcf);
TString provincia = "";
if (comcf.not_empty())
provincia = cerca_provincia(comcf);
str.format("%-2s", (const char*) provincia); str.format("%-2s", (const char*) provincia);
record.overwrite(str,153); //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) void TInv_cont::sola_iva(TString& record, long nreg)
{ {
TString str;
TLocalisamfile cau (LF_CAUSALI);
TString tipodoc = "";
bool cor = FALSE;
int gruppo = 0; int gruppo = 0;
int conto = 0; int conto = 0;
long sottoc = 0; long sottoc = 0;
cau.setkey(1); const TString4 tipodoc = cache().get(LF_CAUSALI, _codcausm, CAU_TIPODOC);
cau.zero();
cau.put(CAU_CODCAUS, _codcausm);
if (cau.read() == NOERR)
tipodoc = cau.get(CAU_TIPODOC);
const TRectype& tabtpd = cache().get("%TPD", tipodoc); const TRectype& tabtpd = cache().get("%TPD", tipodoc);
cor = tabtpd.get_bool("B0"); const bool cor = tabtpd.get_bool("B0");
if (!cor) if (!cor)
{ {
TLocalisamfile rcaus (LF_RCAUSALI); TLocalisamfile rcaus (LF_RCAUSALI);
rcaus.setkey(1);
rcaus.zero();
rcaus.put(RCA_CODCAUS, _codcausm); rcaus.put(RCA_CODCAUS, _codcausm);
rcaus.read(); rcaus.read();
TString codcau = rcaus.get(RCA_CODCAUS);
const TString& codcau = rcaus.get(RCA_CODCAUS);
if (codcau == _codcausm) if (codcau == _codcausm)
{ {
gruppo = rcaus.get_int (RCA_GRUPPO); gruppo = rcaus.get_int (RCA_GRUPPO);
@ -1076,10 +1056,7 @@ void TInv_cont::sola_iva(TString& record, long nreg)
} }
else else
{ {
TLocalisamfile riva (LF_RMOVIVA); TLocalisamfile riva (LF_RMOVIVA);
riva.setkey(1);
riva.zero();
riva.put(RMI_NUMREG, nreg); riva.put(RMI_NUMREG, nreg);
riva.read(); riva.read();
long nr = riva.get_long(RMI_NUMREG); 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); str.format("%02d", gruppo);
record.overwrite(str,74); //Gruppo di partita record.overwrite(str,74); //Gruppo di partita
str.format("%02d", conto); str.format("%02d", conto);
@ -1114,10 +1092,9 @@ bool TInv_cont::invio_mov_PN()
_tras_file.open(_trasf,TRUE); _tras_file.open(_trasf,TRUE);
TString80 str;
for (_tmov->first(); !_tmov->eof(); _tmov->next()) for (_tmov->first(); !_tmov->eof(); _tmov->next())
{ {
TString str;
_prog->addstatus(1); _prog->addstatus(1);
record.spaces(); record.spaces();
@ -1146,7 +1123,7 @@ bool TInv_cont::invio_mov_PN()
testata_trasfer(nreg,nrig,record); testata_trasfer(nreg,nrig,record);
TString descr = _trmov->get(RMV_DESCR); TString80 descr = _trmov->get(RMV_DESCR);
if (descr.empty()) if (descr.empty())
descr = head_descr; // Se non esiste la descrizione della riga ci mette quella della testata descr = head_descr; // Se non esiste la descrizione della riga ci mette quella della testata
str.format("%-.30s", (const char*) descr); str.format("%-.30s", (const char*) descr);
@ -1164,8 +1141,7 @@ bool TInv_cont::invio_mov_PN()
str.format("%06ld", sottoc); str.format("%06ld", sottoc);
record.overwrite(str,78); //Sottoconto di partita record.overwrite(str,78); //Sottoconto di partita
TString sez = _trmov->get(RMV_SEZIONE); str = _trmov->get(RMV_SEZIONE);
str.format("%s", (const char*) sez);
record.overwrite(str,84); //Sezione importo record.overwrite(str,84); //Sezione importo
int gruppoc = _trmov->get_int(RMV_GRUPPOC); int gruppoc = _trmov->get_int(RMV_GRUPPOC);
@ -1249,7 +1225,7 @@ void TInv_cont::cerca_occasionale()
_ragsococc = _toccas->get(OCC_RAGSOC); _ragsococc = _toccas->get(OCC_RAGSOC);
_indocc = _toccas->get(OCC_INDIR); _indocc = _toccas->get(OCC_INDIR);
_capocc = _toccas->get(OCC_CAP); _capocc = _toccas->get(OCC_CAP);
TString com = _toccas->get(OCC_COM); const TString8 com = _toccas->get(OCC_COM);
cerca_comune_occas(com); cerca_comune_occas(com);
} }
else else