From f65f6c05f3eb29a3e9fce65f0d89aad8df01de7c Mon Sep 17 00:00:00 2001 From: alex Date: Tue, 8 Apr 2003 12:57:12 +0000 Subject: [PATCH] Patch level : 2..0 448 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 --- cg/cglib01.cpp | 18 +++++------------- cg/cglib04.cpp | 38 +++++++++++++------------------------- 2 files changed, 18 insertions(+), 38 deletions(-) diff --git a/cg/cglib01.cpp b/cg/cglib01.cpp index 0a2e37f9e..dfa2d8e26 100755 --- a/cg/cglib01.cpp +++ b/cg/cglib01.cpp @@ -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) diff --git a/cg/cglib04.cpp b/cg/cglib04.cpp index 81af67eac..34ac371e0 100755 --- a/cg/cglib04.cpp +++ b/cg/cglib04.cpp @@ -1,7 +1,7 @@ // cglib04.cpp #include - +#include #include #include #include @@ -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);