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

Patch level : 2.0 688

Browse Source 
Files correlati     : cg6.exe
Ricompilazione Demo : [ ]
Commento            :

no comment


git-svn-id: svn://10.65.10.50/trunk@11771 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2004-02-23 14:44:03 +00:00
parent 2401c4a5fc
commit ce1ae20aab
2 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cg/cg6400.cpp
View File

@ -238,7 +238,8 @@ bool TRic_archivi::leggi_marker()
return error_box(FR("Libreria archivi ditta %ld non presente su disco"), _dittaric);
}
else
return error_box(TR("Codici NON PRESENTI in tabella ricezione: caricarli e riprovare"));
return error_box(FR("Codici NON PRESENTI in tabella ricezione:\ncaricare %s %ld e riprovare"),
(const char*)_nomeid, _dittainv);
}
return TRUE;
@ -249,8 +250,6 @@ bool TRic_archivi::leggi_marker()
bool TRic_archivi::leggi_marker_rep()
{
TString16 tmp;
if (!_marker.exist())
{
if (_disketto)
@ -287,7 +286,7 @@ bool TRic_archivi::leggi_marker_rep()
_dittainv = atol(buffer.sub(10,15));
_totrectras = atol(buffer.sub(26,32));
_numinv = atoi(buffer.sub(15,18));
tmp = buffer.sub(18,26);
TString16 tmp = buffer.sub(18,26);
_datatras = converti(tmp,TRUE);
if (_numdisk > 1) //Va fatto solo dal disco 2 in poi
@ -701,7 +700,7 @@ long TRic_archivi::leggi_tabella_tras()
_agg_clifo = tab_tra.get_char("S1");
_agg_pcon = tab_tra.get_char("S2");
_agg_cls = tab_tra.get_char("S3");
bool agg_fatatt = tab_tra.get_bool("B0");
bool agg_fatatt = tab_tra.get_bool("B0");
if (agg_fatatt)
_agg_fatatt = 'X';
else

28
cg/cglib04.cpp
View File

@ -1950,7 +1950,7 @@ void TTransfer_file::write_tmp_movIVA(TString& record)
if (flag == 2)
{
TString f = converti(field,FALSE);
TString80 f = converti(field,FALSE);
dep->put(fname,f);
}
}
@ -1989,9 +1989,9 @@ int TTransfer_file::trasfer_data_moviva(TIsamtempfile& file, TRectype& dep, int
{
if (ln == LF_MOV)
{
TDate data74ter (dep.get_date(MOV_DATA74TER));
TString codval (dep.get (MOV_CODVALI));
TString ocfpi (dep.get (MOV_OCFPI));
TDate data74ter = dep.get_date(MOV_DATA74TER);
TString4 codval (dep.get (MOV_CODVALI));
TString80 ocfpi (dep.get (MOV_OCFPI));
long codcf = dep.get_long(MOV_CODCF);
real cambioi (dep.get_real(MOV_CAMBIOI));
real corrlire (dep.get_real(MOV_CORRLIRE));
@ -2627,14 +2627,15 @@ char TTransfer_file::what_is_this(TString& record,TString& tipo)
{
TRic_recfield recf (ttab.curr(), "S0", 0, sizeT);
long nreg = atol(record.sub(2,8));
int nriga = atoi(record.sub(8,10));
int anno = atoi(record.sub(26,28));
TString numpart = record.sub(28,35);
int nrata = atoi(record.sub(35,37));
int num_rig = atoi(record.sub(10,13));
const long nreg = atol(record.sub(2,8));
const int nriga = atoi(record.sub(8,10));
const int anno = atoi(record.sub(26,28));
const TString8 numpart = record.sub(28,35);
const int nrata = atoi(record.sub(35,37));
const int num_rig = atoi(record.sub(10,13));
TString dep (format("%2s%d%06ld%02d%2d%7s%02d", (const char*)"B1",3,nreg,nriga,anno,(const char*)numpart,nrata));
TString80 dep;
dep.format("%2s%d%06ld%02d%2d%7s%02d", (const char*)"B1",3,nreg,nriga,anno,(const char*)numpart,nrata);
ttab.zero();
ttab.put("CODTAB", dep);
@ -2661,7 +2662,7 @@ char TTransfer_file::what_is_this(TString& record,TString& tipo)
if (_esiste_pagsca)
caso = 'r';
TString codval = record.sub(79,82);
TString4 codval = record.sub(79,82);
codval.trim();
real impv (record.sub(127,140));
@ -5257,7 +5258,8 @@ const char* converti (TString& data_AS400,bool anno_di_quattro)
{
TString& TEMP = get_tmp_string();
if (data_AS400 == "000000" || data_AS400 == "00000000")
// if (data_AS400 == "000000" || data_AS400 == "00000000")
if (real::is_null(data_AS400))
return TEMP;
if (anno_di_quattro)