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

Patch level : 2..0 448

Browse Source 
Files correlati     : cg5.exe
Ricompilazione Demo : [ ]
Commento            :
Aggiunto il supporto delle lingue a cg6


git-svn-id: svn://10.65.10.50/trunk@10992 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2003-04-08 12:57:12 +00:00
parent 8c03efc283
commit f65f6c05f3
2 changed files with 18 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cg/cglib01.cpp
View File

@ -325,14 +325,8 @@ real* TRegistro::read_prorata(int anno) const
chiave << anno << attivita() << "1";
real* prorata = NULL;
/*
TTable pla("%PLA");
pla.put("CODTAB", chiave);
const int err = pla.read();
if (err == NOERR)
prorata = new real(pla.get("R8"));
*/
const TRectype& pla = cache().get("%PLA", chiave);
if (!pla.empty())
prorata = new real(pla.get("R8"));
@ -774,12 +768,10 @@ bool TBill::find()
if ((_tipo == 'C' || _tipo == 'F') && _sottoconto != 0L)
{
TLocalisamfile clifo(LF_CLIFO);
clifo.setkey(1);
clifo.put("TIPOCF", _tipo);
clifo.put("CODCF", _sottoconto);
ok = clifo.read() == NOERR;
if (ok)
TString16 key;
key.format("%c|%ld", _tipo, _sottoconto);
const TRectype & clifo = cache().get(LF_CLIFO, key);
if (!clifo.empty())
{
set_description(clifo.get("RAGSOC"));
if (_tipo_cr < 0)

38
cg/cglib04.cpp
View File

@ -1,7 +1,7 @@
// cglib04.cpp
#include <codeb.h>
#include <diction.h>
#include <extcdecl.h>
#include <prefix.h>
#include <progind.h>
@ -231,7 +231,7 @@ HIDDEN void __putfieldbuff(int l, int d, int t, const char* s, char* recout)
if (len > l)
{
yesnofatal_box("Impossibile scrivere %d caratteri su di un campo di %d", (int)len, (int)l);
yesnofatal_box(FR("Impossibile scrivere %d caratteri su di un campo di %d"), (int)len, (int)l);
return;
}
@ -283,7 +283,7 @@ void TRic_recfield::set(int from, int to)
_len = 0;
_dec = 0;
_type = _nullfld;
yesnofatal_box("File n. %d unknown field %s", _rec->num(), _name);
yesnofatal_box(FR("File n. %d unknown field %s"), _rec->num(), _name);
}
else
{
@ -291,12 +291,6 @@ void TRic_recfield::set(int from, int to)
_p = _rec->string() + rd->Fd[nf].RecOff + from;
_dec = rd->Fd[nf].Dec;
_type = rd->Fd[nf].TypeF;
/* if (to >= 0)
{
CHECK(from <= to && to <= rd->Fd[nf].Len, "Invalid Range");
_len = to - from + 1;
}
else _len = rd->Fd[nf].Len - from;*/
}
}
@ -3107,7 +3101,7 @@ bool TTransfer_file::ordina_trasfer(const char* orig)
FILE* i = fopen(orig, "rb");
if (i == NULL)
return error_box("Impossibile leggere il file %s", orig);
return error_box(FR("Impossibile leggere il file %s"), orig);
const long dim_t = determina_dimensione(i); //Determina la dimensione del trasfer
@ -3122,7 +3116,7 @@ bool TTransfer_file::ordina_trasfer(const char* orig)
_ttab = new TIsamtempfile(LF_TAB, tmptab, TRUE);
long cicli = dim_t / sizeT;
TProgind prog (cicli,"Ordinamento file TRASFER in corso\nPrego attendere",FALSE, TRUE);
TProgind prog (cicli,TR("Ordinamento file TRASFER in corso\nPrego attendere"),FALSE, TRUE);
bool ok = TRUE;
@ -3166,12 +3160,6 @@ bool TTransfer_file::ordina_trasfer(const char* orig)
recf = buffer;
int rc = _ttab->write();
/*
#ifdef DBG
if (rc != NOERR)
error_box("ERRORE. Per qualche motivo la write e' fallita!!! Errore n. %d",rc );
#endif
*/
}
fclose(i);
@ -3435,7 +3423,7 @@ void TTransfer_file::scrivi_causali(long nrec)
TString buffer(sizeT);
bool create = TRUE;
_prog = new TProgind (nrec,"Trasferimento Tabella Causali in corso\nPrego attendere",FALSE, TRUE, 1);
_prog = new TProgind (nrec,TR("Trasferimento Tabella Causali in corso\nPrego attendere"),FALSE, TRUE, 1);
TRic_recfield recf (_ttab->curr(), "S0", 0, sizeT);
@ -3460,7 +3448,7 @@ void TTransfer_file::scrivi_clifo(long nrec)
TString buffer(sizeT);
bool create = TRUE;
_prog = new TProgind (nrec,"Trasferimento Anagrafica Clienti/Fornitori in corso\nPrego attendere",FALSE, TRUE, 1);
_prog = new TProgind (nrec,TR("Trasferimento Anagrafica Clienti/Fornitori in corso\nPrego attendere"),FALSE, TRUE, 1);
TRic_recfield recf (_ttab->curr(), "S0", 0, sizeT);
@ -3485,7 +3473,7 @@ void TTransfer_file::scrivi_pcon(long nrec)
TString buffer(sizeT);
bool create = TRUE;
_prog = new TProgind (nrec,"Trasferimento Anagrafica Piano dei Conti in corso\nPrego attendere",FALSE, TRUE, 1);
_prog = new TProgind (nrec,TR("Trasferimento Anagrafica Piano dei Conti in corso\nPrego attendere"),FALSE, TRUE, 1);
TRic_recfield recf (_ttab->curr(), "S0", 0, sizeT);
@ -3508,7 +3496,7 @@ void TTransfer_file::scrivi_PN(long nrec)
{
TString buffer(sizeT);
_prog = new TProgind (nrec,"Trasferimento Movimenti di Prima nota in corso\nPrego attendere",FALSE, TRUE, 1);
_prog = new TProgind (nrec,TR("Trasferimento Movimenti di Prima nota in corso\nPrego attendere"),FALSE, TRUE, 1);
TRic_recfield recf (_ttab->curr(), "S0", 0, sizeT);
@ -3532,7 +3520,7 @@ void TTransfer_file::scrivi_IVA(long nrec)
TString buffer(sizeT);
TString16 trec;
_prog = new TProgind (nrec,"Trasferimento Movimenti Iva in corso\nPrego attendere",FALSE, TRUE, 1);
_prog = new TProgind (nrec,TR("Trasferimento Movimenti Iva in corso\nPrego attendere"),FALSE, TRUE, 1);
TRic_recfield recf (_ttab->curr(), "S0", 0, sizeT);
@ -3561,7 +3549,7 @@ void TTransfer_file::scrivi_SC(long nrec)
_annoSC_p = -1;
_numpartSC_p = "-1";
_prog = new TProgind (nrec,"Trasferimento Movimenti saldaconto in corso\nPrego attendere",FALSE, TRUE, 1);
_prog = new TProgind (nrec,TR("Trasferimento Movimenti saldaconto in corso\nPrego attendere"),FALSE, TRUE, 1);
TRic_recfield recf (_ttab->curr(), "S0", 0, sizeT);
@ -3602,10 +3590,10 @@ bool TTransfer_file::fcopytemp_PC(const char* orig, const char* dest)
sigle = sigle_file();
FILE* i = fopen(orig, rflag);
if (!i) return error_box("Impossibile leggere il file %s", orig);
if (!i) return error_box(FR("Impossibile leggere il file %s"), orig);
FILE* o = fopen(dest, wflag);
CHECKS(o, "Impossibile scrivere il file ", dest);
CHECKS(o, FR("Impossibile scrivere il file "), dest);
const word size = 1024;
TString buffer(size);