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@10991 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2003-04-08 12:45:26 +00:00
parent 08f2bf3004
commit 8c03efc283
11 changed files with 371 additions and 435 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
cg/cg6100.cpp
View File

@ -119,15 +119,15 @@ void TRic_auto::main_loop()
::remove(trasf); ::remove(trasf);
TConfig conf (CONFIG_DITTA); // Inizializzo stato trasferimento TConfig conf (CONFIG_DITTA); // Inizializzo stato trasferimento
conf.set("FlStTra"," "); // dei parametri ditta conf.set("FlStTra"," "); // dei parametri ditta
message_box("Il trasferimento e' stato INTERAMENTE COMPLETATO"); message_box(TR("Il trasferimento e' stato INTERAMENTE COMPLETATO"));
} }
} }
bool TRic_auto::controlli_preliminari() bool TRic_auto::controlli_preliminari()
{ {
if (!prefix().exist(_ditta)) // Controllo esistenza ditta if (!prefix().exist(_ditta)) // Controllo esistenza ditta
return error_box("Rilevati ERRORI GRAVI nel trasferimento:\n" return error_box(FR("Rilevati ERRORI GRAVI nel trasferimento:\n"
"non esiste la ditta %05ld", _ditta); "non esiste la ditta %05ld"), _ditta);
set_firm(_ditta); set_firm(_ditta);
@ -137,7 +137,7 @@ bool TRic_auto::controlli_preliminari()
if (std.empty()) if (std.empty())
{ {
if (!leggi_trasfer()) // Controllo se esiste il file trasfer if (!leggi_trasfer()) // Controllo se esiste il file trasfer
return error_box("Il file di trasferimento non e' presente nella directory %s",_tras_file->path(_ditta)); return error_box(FR("Il file di trasferimento non e' presente nella directory %s"),_tras_file->path(_ditta));
TString appname = "cg6 -3 "; // Lancio il programma che trasferisce TString appname = "cg6 -3 "; // Lancio il programma che trasferisce
appname << _trasfer << " A"; // i dati dal trasfer agli archivi temporanei appname << _trasfer << " A"; // i dati dal trasfer agli archivi temporanei
@ -148,13 +148,13 @@ bool TRic_auto::controlli_preliminari()
} }
if (!leggi_header()) // Controllo l'esistenza del record if (!leggi_header()) // Controllo l'esistenza del record
return error_box("Rilevati ERRORI GRAVI nel trasferimento"); // di controllo nel file header return error_box(TR("Rilevati ERRORI GRAVI nel trasferimento")); // di controllo nel file header
TString ult_file = _tras_file->ult_file(); TString ult_file = _tras_file->ult_file();
TString key = _tras_file->key(); TString key = _tras_file->key();
if ( (std != "*" && std != "") || (ult_file != "" || key != "") ) if ( (std != "*" && std != "") || (ult_file != "" || key != "") )
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo"); return error_box(TR("Ultimo trasferimento NON COMPLETATO: completarlo"));
if (std == "*") if (std == "*")
{ {
@ -383,7 +383,7 @@ int cg6100 (int argc, char* argv[])
p4 = *argv[4]; p4 = *argv[4];
TRic_auto* main_app = new TRic_auto(argv[2],*argv[3],p4); TRic_auto* main_app = new TRic_auto(argv[2],*argv[3],p4);
main_app->run(argc, argv,"Ricezione automatica"); main_app->run(argc, argv,TR("Ricezione automatica"));
delete main_app; delete main_app;
return TRUE; return TRUE;
} }

5
cg/cg6300.cpp
View File

@ -52,7 +52,7 @@ HIDDEN bool ditta_handler(TMask_field& f, KEY k)
return TRUE; return TRUE;
else else
{ {
f.error_box("La ditta selezionata non e' abilitata per la contabilita' "); f.error_box(TR("La ditta selezionata non e' abilitata per la contabilita' "));
return FALSE; return FALSE;
} }
} }
@ -82,6 +82,7 @@ bool Tabtra_application::user_create()
{ {
Tab_application::user_create(); Tab_application::user_create();
open_files(LF_TABCOM, LF_TAB, 0);
_msk = get_mask(); _msk = get_mask();
_tabname = get_tabname(); _tabname = get_tabname();
@ -98,7 +99,7 @@ cg6300(int argc, char* argv[])
{ {
Tabtra_application* a= new Tabtra_application; Tabtra_application* a= new Tabtra_application;
a->run(argc,argv, "Tabelle"); a->run(argc,argv, TR("Tabelle"));
delete a; delete a;
return 0; return 0;
} }

54
cg/cg6400.cpp
View File

@ -78,11 +78,11 @@ TRic_archivi::TRic_archivi(char ric_trasfer,char ric_auto) :
_scelta(toupper(ric_trasfer)), _ric_auto(toupper(ric_auto)) _scelta(toupper(ric_trasfer)), _ric_auto(toupper(ric_auto))
{ {
if (_scelta == 'S') if (_scelta == 'S')
_titolo = "Ricezione archivi da sistema"; _titolo = TR("Ricezione archivi da sistema");
else else
{ {
_scelta = 'P'; _scelta = 'P';
_titolo = "Ricezione archivi da PC"; _titolo = TR("Ricezione archivi da PC");
} }
} }
@ -168,9 +168,9 @@ bool TRic_archivi::leggi_marker()
if (!fexist(_marker)) if (!fexist(_marker))
{ {
if (_disketto) if (_disketto)
return error_box("File marker non presente sul dischetto %d: impossibile proseguire", _numdisk); return error_box(FR("File marker non presente sul dischetto %d: impossibile proseguire"), _numdisk);
else else
return error_box("File marker non presente in %s: impossibile proseguire", (const char*)_pathname); return error_box(FR("File marker non presente in %s: impossibile proseguire"), (const char*)_pathname);
} }
FILE* i; FILE* i;
@ -187,14 +187,14 @@ bool TRic_archivi::leggi_marker()
if (_numtotdisk == 0) if (_numtotdisk == 0)
{ {
message_box("Il numero totale dischi su marker non e' significativo: impossibile proseguire"); message_box(TR("Il numero totale dischi su marker non e' significativo: impossibile proseguire"));
fclose(i); fclose(i);
return FALSE; return FALSE;
} }
if (_progdisk != _numdisk) if (_progdisk != _numdisk)
{ {
message_box("Il dischetto inserito (%d) non rispecchia la giusta sequenza (%d)", _numdisk, _progdisk); message_box(FR("Il dischetto inserito (%d) non rispecchia la giusta sequenza (%d)"), _numdisk, _progdisk);
_sequenza = FALSE; _sequenza = FALSE;
fclose(i); fclose(i);
return TRUE; return TRUE;
@ -205,7 +205,7 @@ bool TRic_archivi::leggi_marker()
if (letti == 0) if (letti == 0)
{ {
fclose(i); fclose(i);
return error_box("Rilevati ERRORI nel file MARKER: impossibile proseguire"); return error_box(TR("Rilevati ERRORI nel file MARKER: impossibile proseguire"));
} }
_nomeid = buffer.sub(0,10); _nomeid = buffer.sub(0,10);
@ -219,7 +219,7 @@ bool TRic_archivi::leggi_marker()
if (_numdisk > 1) //Va fatto solo dal disco 2 in poi if (_numdisk > 1) //Va fatto solo dal disco 2 in poi
if (_nomeid != _nomeidp || _dittainv != _dittainvp || _totrectras != _totrectrasp if (_nomeid != _nomeidp || _dittainv != _dittainvp || _totrectras != _totrectrasp
|| _numinv != _numinvp || _datatras != _datatrasp) || _numinv != _numinvp || _datatras != _datatrasp)
return error_box("I dati del marker del disco %d, non corrispondono ai dati del marker del disco 1", _numdisk); return error_box(FR("I dati del marker del disco %d, non corrispondono ai dati del marker del disco 1"), _numdisk);
_nomeidp = _nomeid; _nomeidp = _nomeid;
_dittainvp = _dittainv; _dittainvp = _dittainv;
@ -236,10 +236,10 @@ bool TRic_archivi::leggi_marker()
if (_dittaric != 0) if (_dittaric != 0)
{ {
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Libreria archivi ditta %s non presente su disco", (const char*)_dittaric); return error_box(FR("Libreria archivi ditta %s non presente su disco"), (const char*)_dittaric);
} }
else else
return error_box("Codici NON PRESENTI in tabella ricezione: caricarli e riprovare"); return error_box(TR("Codici NON PRESENTI in tabella ricezione: caricarli e riprovare"));
} }
return TRUE; return TRUE;
@ -255,9 +255,9 @@ bool TRic_archivi::leggi_marker_rep()
if (!fexist(_marker)) if (!fexist(_marker))
{ {
if (_disketto) if (_disketto)
return error_box("File marker non presente sul dischetto %d: impossibile proseguire", _numdisk); return error_box(FR("File marker non presente sul dischetto %d: impossibile proseguire"), _numdisk);
else else
return error_box("File marker non presente in %s: impossibile proseguire", (const char*)_pathname); return error_box(FR("File marker non presente in %s: impossibile proseguire"), (const char*)_pathname);
} }
const word size = 64; const word size = 64;
@ -274,7 +274,7 @@ bool TRic_archivi::leggi_marker_rep()
if (_progdisk != _numdisk) if (_progdisk != _numdisk)
{ {
message_box("Il dischetto inserito (%d) non rispecchia la giusta sequenza (%d)", _numdisk, _progdisk); message_box(FR("Il dischetto inserito (%d) non rispecchia la giusta sequenza (%d)"), _numdisk, _progdisk);
_sequenza = FALSE; _sequenza = FALSE;
return TRUE; return TRUE;
} }
@ -282,7 +282,7 @@ bool TRic_archivi::leggi_marker_rep()
_sequenza = TRUE; _sequenza = TRUE;
if (letti == 0) if (letti == 0)
return error_box("Rilevati ERRORI nel file MARKER: impossibile proseguire"); return error_box(TR("Rilevati ERRORI nel file MARKER: impossibile proseguire"));
_nomeid = buffer.sub(0,10); _nomeid = buffer.sub(0,10);
_dittainv = atol(buffer.sub(10,15)); _dittainv = atol(buffer.sub(10,15));
@ -294,7 +294,7 @@ bool TRic_archivi::leggi_marker_rep()
if (_numdisk > 1) //Va fatto solo dal disco 2 in poi if (_numdisk > 1) //Va fatto solo dal disco 2 in poi
if (_nomeid != _nomeidp || _dittainv != _dittainvp || _totrectras != _totrectrasp if (_nomeid != _nomeidp || _dittainv != _dittainvp || _totrectras != _totrectrasp
|| _numinv != _numinvp || _datatras != _datatrasp) || _numinv != _numinvp || _datatras != _datatrasp)
return error_box("I dati del marker del disco %d, non corrispondono ai dati del marker del disco 1", _numdisk); return error_box(FR("I dati del marker del disco %d, non corrispondono ai dati del marker del disco 1"), _numdisk);
_nomeidp = _nomeid; _nomeidp = _nomeid;
_dittainvp = _dittainv; _dittainvp = _dittainv;
@ -309,16 +309,16 @@ bool TRic_archivi::leggi_marker_rep()
if (_dittaric != 0) if (_dittaric != 0)
{ {
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Gli archivi della ditta %ld non sono presenti su disco", _dittaric); return error_box(FR("Gli archivi della ditta %ld non sono presenti su disco"), _dittaric);
} }
else else
return error_box("Codici NON PRESENTI in tabella ricezione: caricarli e riprovare"); return error_box(TR("Codici NON PRESENTI in tabella ricezione: caricarli e riprovare"));
} }
return TRUE; return TRUE;
} }
return error_box("Impossibile accedere al file %s", (const char*)_marker); return error_box(FR("Impossibile accedere al file %s"), (const char*)_marker);
} }
void TRic_archivi::main_loop() void TRic_archivi::main_loop()
@ -368,7 +368,7 @@ void TRic_archivi::main_loop()
if (_disketto) if (_disketto)
{ {
char drive = msk->get(F_DRIVE)[0]; char drive = msk->get(F_DRIVE)[0];
if (yesno_box("Inserire il dischetto %d nell' unita' %c", _numdisk,drive)) if (yesno_box(FR("Inserire il dischetto %d nell' unita' %c"), _numdisk,drive))
{ {
if (!leggi_marker()) if (!leggi_marker())
return; return;
@ -435,7 +435,7 @@ void TRic_archivi::main_loop()
if (_disketto) if (_disketto)
{ {
char drive = msk->get(F_DRIVE)[0]; char drive = msk->get(F_DRIVE)[0];
if (yesno_box("Inserire il dischetto %d nell' unita' %c", _numdisk,drive)) if (yesno_box(FR("Inserire il dischetto %d nell' unita' %c"), _numdisk,drive))
{ {
if (!leggi_marker_rep()) if (!leggi_marker_rep())
return; return;
@ -560,10 +560,10 @@ int TRic_archivi::controllo_ripartenza()
bool TRic_archivi::ripartenza() bool TRic_archivi::ripartenza()
{ {
if (_stato_ripartenza == 1) if (_stato_ripartenza == 1)
return error_box("Rilevato stato di RIPARTENZA CON DATI CONTRADDITORI: procedura interrotta"); return error_box(TR("Rilevato stato di RIPARTENZA CON DATI CONTRADDITORI: procedura interrotta"));
if (_stato_ripartenza == 2) if (_stato_ripartenza == 2)
return error_box("Trasferimento precedente NON COMPLETATO: completarlo prima di questo"); return error_box(TR("Trasferimento precedente NON COMPLETATO: completarlo prima di questo"));
return TRUE; return TRUE;
} }
@ -630,12 +630,12 @@ bool TRic_archivi::video_ripartenza()
return FALSE; return FALSE;
if (_numinv > (_nultras_tab + 1)) if (_numinv > (_nultras_tab + 1))
warning_box("Trasferimento FUORI SEQUENZA: manca un trasferimento intermedio.\n" warning_box(FR("Trasferimento FUORI SEQUENZA: manca un trasferimento intermedio.\n"
"Numero invio n. %d, ultimo trasferimento n. %d.", _numinv, _nultras_tab); "Numero invio n. %d, ultimo trasferimento n. %d."), _numinv, _nultras_tab);
else else
if (_numinv < (_nultras_tab +1)) if (_numinv < (_nultras_tab +1))
warning_box("I dischetti risultano GIA' TRASFERITI.\n" warning_box(FR("I dischetti risultano GIA' TRASFERITI.\n"
"Numero invio n. %d, ultimo trasferimento n. %d.", _numinv, _nultras_tab); "Numero invio n. %d, ultimo trasferimento n. %d."), _numinv, _nultras_tab);
else else
return TRUE; return TRUE;
} }
@ -656,7 +656,7 @@ bool TRic_archivi::baipassa(TMask& m,KEY k)
void TRic_archivi::ripristina_trasfer() void TRic_archivi::ripristina_trasfer()
{ {
TProgind prg (1,"Trasferimento archivi in corso\nPrego attendere",FALSE, FALSE); TProgind prg (1,TR("Trasferimento archivi in corso\nPrego attendere"),FALSE, FALSE);
if (_numdisk == 1) if (_numdisk == 1)
{ {

54
cg/cg6500.cpp
View File

@ -113,10 +113,10 @@ bool Tabinv_application::stato_invio(TMask_field& f, KEY k)
TString sigla = f.mask().get(F_USELAB); TString sigla = f.mask().get(F_USELAB);
if (num == 0 && stato != "") if (num == 0 && stato != "")
return error_box("Numero ultimo invio NON INDICATO: impossibile indicare lo stato ultimo invio"); return error_box(TR("Numero ultimo invio NON INDICATO: impossibile indicare lo stato ultimo invio"));
if ( (stato == "F" && sigla == "") || (stato == "D" && sigla != "") ) if ( (stato == "F" && sigla == "") || (stato == "D" && sigla != "") )
return error_box("La sigla ultimo file elaborato deve essere indicata se lo stato ultimo invio e' uguale a F"); return error_box(TR("La sigla ultimo file elaborato deve essere indicata se lo stato ultimo invio e' uguale a F"));
} }
if (k == K_TAB && app()._messaggio) if (k == K_TAB && app()._messaggio)
@ -128,7 +128,7 @@ bool Tabinv_application::stato_invio(TMask_field& f, KEY k)
if (stato != '\0' && app()._disable) if (stato != '\0' && app()._disable)
{ {
app()._messaggio = FALSE; app()._messaggio = FALSE;
return message_box("Rilevato STATO DI RIPARTENZA: prima concludere il trasferimento"); return message_box(TR("Rilevato STATO DI RIPARTENZA: prima concludere il trasferimento"));
} }
} }
} }
@ -146,7 +146,7 @@ bool Tabinv_application::ditta_handler(TMask_field& f, KEY k)
{ {
if (!prefix().exist(codditta)) if (!prefix().exist(codditta))
{ {
f.error_box("La ditta selezionata non e' abilitata per la contabilita' "); f.error_box(TR("La ditta selezionata non e' abilitata per la contabilita' "));
return FALSE; return FALSE;
} }
} }
@ -217,7 +217,7 @@ bool Tabinv_application::almeno_un_flag(TMask_field& f, KEY k)
bool fat = f.mask().get_bool(F_FATT); bool fat = f.mask().get_bool(F_FATT);
if (!cau && !clifo && !pcon && !pn && !iva && !fat) if (!cau && !clifo && !pcon && !pn && !iva && !fat)
return error_box("E' necessario indicare almeno una sigla file da trasferire"); return error_box(TR("E' necessario indicare almeno una sigla file da trasferire"));
long ditta = f.mask().get_long(F_DITTAINV); long ditta = f.mask().get_long(F_DITTAINV);
@ -230,7 +230,7 @@ bool Tabinv_application::almeno_un_flag(TMask_field& f, KEY k)
bool causali = f.mask().get_bool(F_CAUSALI); bool causali = f.mask().get_bool(F_CAUSALI);
if (causali && pcon_cau != "") if (causali && pcon_cau != "")
return error_box("Tabella causali in comune: impossibile trasferirla"); return error_box(TR("Tabella causali in comune: impossibile trasferirla"));
} }
return TRUE; return TRUE;
@ -251,7 +251,7 @@ bool Tabinv_application::clifo_comune(TMask_field& f, KEY k)
bool clifo = f.mask().get_bool(F_CLIFO); bool clifo = f.mask().get_bool(F_CLIFO);
if (clifo && ana_com != "") if (clifo && ana_com != "")
return error_box("Anagrafica clienti / fornitori in comune: impossibile trasferirla"); return error_box(TR("Anagrafica clienti / fornitori in comune: impossibile trasferirla"));
} }
return TRUE; return TRUE;
@ -272,7 +272,7 @@ bool Tabinv_application::pcon_comune(TMask_field& f, KEY k)
bool pcon = f.mask().get_bool(F_PCON); bool pcon = f.mask().get_bool(F_PCON);
if (pcon && pcon_cau != "") if (pcon && pcon_cau != "")
return error_box("Anagrafica Piano dei conti in comune: impossibile trasferirla"); return error_box(TR("Anagrafica Piano dei conti in comune: impossibile trasferirla"));
} }
return TRUE; return TRUE;
@ -287,12 +287,12 @@ bool Tabinv_application::prima_nota(TMask_field& f, KEY k)
if (!pn && f.mask().get_bool(F_IVA) ) if (!pn && f.mask().get_bool(F_IVA) )
{ {
f.mask().set(F_MOV, "X"); f.mask().set(F_MOV, "X");
return f.error_box("Se si vuole inviare l' iva e' obbligatorio inviare anche la primanota"); return f.error_box(TR("Se si vuole inviare l' iva e' obbligatorio inviare anche la primanota"));
} }
if (!pn && f.mask().get_bool(F_FATT) ) if (!pn && f.mask().get_bool(F_FATT) )
{ {
f.mask().set(F_MOV, "X"); f.mask().set(F_MOV, "X");
return f.error_box("Se si vuole inviare il saldaconto e' obbligatorio inviare anche la primanota"); return f.error_box(TR("Se si vuole inviare il saldaconto e' obbligatorio inviare anche la primanota"));
} }
} }
@ -335,10 +335,10 @@ bool Tabinv_application::data_invio (TMask_field& f, KEY k)
TDate data (f.get()); TDate data (f.get());
if (num != 0 && !data.ok()) if (num != 0 && !data.ok())
return error_box("Se indicato il numero deve essere indicata anche la data di invio"); return error_box(TR("Se indicato il numero deve essere indicata anche la data di invio"));
if (num == 0 && data.ok()) if (num == 0 && data.ok())
return error_box("Se non indicato il numero non puo' essere indicata la data di invio"); return error_box(TR("Se non indicato il numero non puo' essere indicata la data di invio"));
} }
return TRUE; return TRUE;
@ -352,12 +352,8 @@ bool Tabinv_application::sigla_file(TMask_field& f, KEY k)
TString sigla = f.get(); TString sigla = f.get();
if (num == 0 && sigla != "") if (num == 0 && sigla != "")
return error_box("Numero ultimo invio NON INDICATO: impossibile indicare la sigla ultimo file elaborato"); return error_box(TR("Numero ultimo invio NON INDICATO: impossibile indicare la sigla ultimo file elaborato"));
// TString stato = f.mask().get(F_STATO);
// if ( (stato == "F" && sigla == "") || (stato == "D" && sigla != "") )
// return error_box("La sigla ultimo file elaborato deve essere indicata se lo stato ultimo invio e' uguale a F");
} }
@ -372,12 +368,12 @@ bool Tabinv_application::chiave_file(TMask_field& f, KEY k)
TString chiave = f.get(); TString chiave = f.get();
if (sigla == "" && chiave != "") if (sigla == "" && chiave != "")
return error_box("Sigla ultimo file elaborato NON INDICATA: impossibile indicare la chiave ultimo record elaborato"); return error_box(TR("Sigla ultimo file elaborato NON INDICATA: impossibile indicare la chiave ultimo record elaborato"));
TString stato = f.mask().get(F_STATO); TString stato = f.mask().get(F_STATO);
if (stato != "F" && chiave == "" && sigla != "") if (stato != "F" && chiave == "" && sigla != "")
return error_box("La chiave ultimo record elaborato deve essere indicata obbligatoriamente"); return error_box(TR("La chiave ultimo record elaborato deve essere indicata obbligatoriamente"));
} }
return TRUE; return TRUE;
@ -400,7 +396,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
{ {
if (!prefix().exist(ditta)) if (!prefix().exist(ditta))
{ {
f.error_box("La ditta selezionata non e' abilitata per la contabilita' "); f.error_box(TR("La ditta selezionata non e' abilitata per la contabilita' "));
return FALSE; return FALSE;
} }
} }
@ -440,7 +436,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
f.mask().set(F_STATO, ""); f.mask().set(F_STATO, "");
f.mask().set(F_NUMULINV, ""); f.mask().set(F_NUMULINV, "");
f.mask().set(F_DATAULIN, ""); f.mask().set(F_DATAULIN, "");
f.error_box("Codice ditta NON PRESENTE in tabella trasferimenti"); f.error_box(TR("Codice ditta NON PRESENTE in tabella trasferimenti"));
} }
} }
else else
@ -473,7 +469,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
long codditta = f.mask().get_long(F_DITTAINV); long codditta = f.mask().get_long(F_DITTAINV);
if (codditta != 0) if (codditta != 0)
return message_box("Rilevato STATO DI RIPARTENZA: prima concludere il trasferimento"); return message_box(TR("Rilevato STATO DI RIPARTENZA: prima concludere il trasferimento"));
} }
return TRUE; return TRUE;
@ -488,28 +484,28 @@ bool Tabinv_application::controlli_hnd(TMask_field& f, KEY k)
TDate data (f.mask().get(F_DATAULIN)); TDate data (f.mask().get(F_DATAULIN));
if (num != 0 && !data.ok()) if (num != 0 && !data.ok())
return error_box("Se indicato il numero deve essere indicata anche la data di invio"); return error_box(TR("Se indicato il numero deve essere indicata anche la data di invio"));
if (num == 0 && data.ok()) if (num == 0 && data.ok())
return error_box("Se non indicato il numero non puo' essere indicata la data di invio"); return error_box(TR("Se non indicato il numero non puo' essere indicata la data di invio"));
TString sigla = f.mask().get(F_USELAB); TString sigla = f.mask().get(F_USELAB);
if (num == 0 && sigla != "") if (num == 0 && sigla != "")
return error_box("Numero ultimo invio NON INDICATO: impossibile indicare la sigla ultimo file elaborato"); return error_box(TR("Numero ultimo invio NON INDICATO: impossibile indicare la sigla ultimo file elaborato"));
TString stato = f.mask().get(F_STATO); TString stato = f.mask().get(F_STATO);
if (stato != "F" && sigla != "") if (stato != "F" && sigla != "")
return error_box("La sigla ultimo file elaborato puo' essere indicata solo se lo stato ultimo invio e' F"); return error_box(TR("La sigla ultimo file elaborato puo' essere indicata solo se lo stato ultimo invio e' F"));
TString chiave = f.mask().get(F_CHIAVE); TString chiave = f.mask().get(F_CHIAVE);
if (sigla == "" && chiave != "") if (sigla == "" && chiave != "")
return error_box("Sigla ultimo file elaborato NON INDICATA: impossibile indicare la chiave ultimo record elaborato"); return error_box(TR("Sigla ultimo file elaborato NON INDICATA: impossibile indicare la chiave ultimo record elaborato"));
if (stato != "F" && chiave == "" && sigla != "") if (stato != "F" && chiave == "" && sigla != "")
return error_box("La chiave ultimo record elaborato deve essere indicata obbligatoriamente"); return error_box(TR("La chiave ultimo record elaborato deve essere indicata obbligatoriamente"));
} }
return TRUE; return TRUE;
} }
@ -770,7 +766,7 @@ cg6500(int argc, char* argv[])
{ {
Tabinv_application* a = new Tabinv_application; Tabinv_application* a = new Tabinv_application;
a->run(argc,argv, "Tabelle"); a->run(argc,argv, TR("Tabelle"));
delete a; delete a;
return 0; return 0;
} }

50
cg/cg6600.cpp
View File

@ -110,10 +110,10 @@ TRic_tab::TRic_tab(char ric_tab_mov, char ric_auto) :
_scelta(toupper(ric_tab_mov)), _ric_auto(toupper(ric_auto)) _scelta(toupper(ric_tab_mov)), _ric_auto(toupper(ric_auto))
{ {
if (_scelta == 'T') if (_scelta == 'T')
_titolo = "Ricezione tabelle"; _titolo = TR("Ricezione tabelle");
if (_scelta == 'M') if (_scelta == 'M')
_titolo = "Ricezione movimenti"; _titolo = TR("Ricezione movimenti");
} }
void TRic_tab::on_config_change() void TRic_tab::on_config_change()
@ -257,7 +257,7 @@ void TRic_tab::main_loop()
if (posiz >= 0) if (posiz >= 0)
{ {
setta_parametri_record(" ","C"); setta_parametri_record(" ","C");
message_box("Aggiornamento tabelle terminato: proseguire con controllo movimenti"); message_box(TR("Aggiornamento tabelle terminato: proseguire con controllo movimenti"));
leggi_record_controllo(); leggi_record_controllo();
TString str; TString str;
str.spaces(60); str.spaces(60);
@ -267,7 +267,7 @@ void TRic_tab::main_loop()
else else
{ {
chiudi_file_temp(); chiudi_file_temp();
message_box("Trasferimento interamente completato: proseguire per cancellare il file"); message_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
setta_parametri_record(" ","*"); setta_parametri_record(" ","*");
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(" "," "); setta_parametri_record(" "," ");
@ -284,7 +284,7 @@ void TRic_tab::main_loop()
trasferimento(); trasferimento();
chiudi_file_temp(); chiudi_file_temp();
message_box("Trasferimento interamente completato: proseguire per cancellare il file"); message_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
setta_parametri_record(" ","*"); setta_parametri_record(" ","*");
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(" "," "); setta_parametri_record(" "," ");
@ -327,27 +327,27 @@ void TRic_tab::trasferimento()
switch (sigla) switch (sigla)
{ {
case 'W': case 'W':
message = "Ricezione tabella causali in corso... Prego attendere."; message = TR("Ricezione tabella causali in corso... Prego attendere.");
cicli = _tcaus->items(); cicli = _tcaus->items();
break; break;
case 'A': case 'A':
message = "Ricezione anagrafica Clienti / Fornitori in corso... Prego attendere."; message = TR("Ricezione anagrafica Clienti / Fornitori in corso... Prego attendere.");
cicli = _tclifo->items(); cicli = _tclifo->items();
break; break;
case 'P': case 'P':
message = "Ricezione anagrafica Piano dei Conti in corso... Prego attendere."; message = TR("Ricezione anagrafica Piano dei Conti in corso... Prego attendere.");
cicli = _tpcon->items(); cicli = _tpcon->items();
break; break;
case 'Z': case 'Z':
message = "Ricezione Movimenti di primanota in corso... Prego attendere."; message = TR("Ricezione Movimenti di primanota in corso... Prego attendere.");
cicli = _tmov->items(); cicli = _tmov->items();
break; break;
case 'U': case 'U':
message = "Ricezione Movimenti iva in corso... Prego attendere."; message = TR("Ricezione Movimenti iva in corso... Prego attendere.");
cicli = _tmov->items(); cicli = _tmov->items();
break; break;
case 'B': case 'B':
message = "Ricezione Movimenti saldaconto in corso... Prego attendere."; message = TR("Ricezione Movimenti saldaconto in corso... Prego attendere.");
cicli = _tpart->items(); cicli = _tpart->items();
break; break;
default: break; default: break;
@ -1592,10 +1592,10 @@ bool TRic_tab::leggi_trasfer()
_record = _tras_file.record(); _record = _tras_file.record();
} }
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non presenti trasferimenti attivi sulla ditta selezionata"));
return TRUE; return TRUE;
} }
@ -1630,7 +1630,7 @@ bool TRic_tab::video()
return FALSE; return FALSE;
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Rilevati gravi errori negli archivi: procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi: procedura interrotta"));
if (!controlli()) if (!controlli())
return FALSE; return FALSE;
@ -1670,7 +1670,7 @@ bool TRic_tab::controllo_pre_ricezione()
{ {
flag = "C"; flag = "C";
setta_parametri_record(sigla,flag); setta_parametri_record(sigla,flag);
return error_box("Aggiornamento tabelle terminato: proseguire con controllo movimenti"); return error_box(TR("Aggiornamento tabelle terminato: proseguire con controllo movimenti"));
} }
if (sigla != "Z") if (sigla != "Z")
@ -1699,43 +1699,43 @@ bool TRic_tab::controlli()
if (_scelta == 'T') if (_scelta == 'T')
{ {
if (_std == "C") if (_std == "C")
return error_box("Aggiornamento tabelle gia' effettuato: richiamare Controllo movimenti"); return error_box(TR("Aggiornamento tabelle gia' effettuato: richiamare Controllo movimenti"));
if (_std == "M") if (_std == "M")
return error_box("Aggiornamento tabelle gia' effettuato: richiamare Trasferimento movimenti"); return error_box(TR("Aggiornamento tabelle gia' effettuato: richiamare Trasferimento movimenti"));
if (_std == "*") if (_std == "*")
{ {
warning_box("Trasferimento interamente completato: proseguire per cancellare il file"); warning_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(" "," "); setta_parametri_record(" "," ");
return FALSE; return FALSE;
} }
if (_std != "" && _std != "T") if (_std != "" && _std != "T")
return error_box("Rilevati gravi errori negli archivi: procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi: procedura interrotta"));
if ( (_std == "" || _std == "T") && (_uselab == "Z" || _uselab == "U") ) if ( (_std == "" || _std == "T") && (_uselab == "Z" || _uselab == "U") )
return error_box("Rilevati gravi errori negli archivi: procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi: procedura interrotta"));
} }
else else
if (_scelta == 'M') if (_scelta == 'M')
{ {
if (_std == "" || _std == "T") if (_std == "" || _std == "T")
return error_box("Aggiornamento tabelle NON EFFETTUATO: richiamare il programma relativo"); return error_box(TR("Aggiornamento tabelle NON EFFETTUATO: richiamare il programma relativo"));
if (_std == "C") if (_std == "C")
return error_box("Controllo movimenti non effettuato o rilevati errori gravi"); return error_box(TR("Controllo movimenti non effettuato o rilevati errori gravi"));
if (_std == "M" && (_uselab != "Z" && _uselab != "U" && _uselab != "B") ) if (_std == "M" && (_uselab != "Z" && _uselab != "U" && _uselab != "B") )
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"); return error_box(TR("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"));
if (_std != "*" && _std != "M") if (_std != "*" && _std != "M")
error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"); error_box(TR("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"));
if (_std == "*") if (_std == "*")
{ {
warning_box("Trasferimento interamente completato: proseguire per cancellare il file"); warning_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(" "," "); setta_parametri_record(" "," ");
return FALSE; return FALSE;

266
cg/cg6700.cpp
View File

@ -27,47 +27,47 @@
#include "cglib04.h" #include "cglib04.h"
#include "cg6700.h" #include "cg6700.h"
HIDDEN const char* err_msg[] = {"*** Data operazione non valida", // 0 HIDDEN const char* err_msg[] = {TR("*** Data operazione non valida"), // 0
"*** Data operazione non compresa in alcun esercizio", TR("*** Data operazione non compresa in alcun esercizio"),
"*** Data competenza non valida", TR("*** Data competenza non valida"),
"*** Data competenza non compresa in alcun esercizio", TR("*** Data competenza non compresa in alcun esercizio"),
"--- Data competenza incompatibile con data operazione", TR("--- Data competenza incompatibile con data operazione"),
"*** Data operazione antecedente ad ultima stampa giornale", // 5 TR("*** Data operazione antecedente ad ultima stampa giornale"), // 5
"--- Data documento non valida", TR("--- Data documento non valida"),
"*** Codice causale non valido o non presente in archivio", TR("*** Codice causale non valido o non presente in archivio"),
"--- Codice pagamento non valido o non presente in tabella", TR("--- Codice pagamento non valido o non presente in tabella"),
"*** Codice registro IVA non valido o non presente in tabella", TR("*** Codice registro IVA non valido o non presente in tabella"),
"*** Codice cliente/fornitore non valido o non presente in anagrafica", // 10 TR("*** Codice cliente/fornitore non valido o non presente in anagrafica"), // 10
"--- Data 74 ter non valida", TR("--- Data 74 ter non valida"),
"*** Data operazione antecedente ad ultima stampa registro IVA", TR("*** Data operazione antecedente ad ultima stampa registro IVA"),
"*** Tipo anagrafico C/F errato", TR("*** Tipo anagrafico C/F errato"),
"*** Codice anagrafico C/F/Piano Conti errato", TR("*** Codice anagrafico C/F/Piano Conti errato"),
"*** Rif. partite saldaconto errato", // 15 TR("*** Rif. partite saldaconto errato"), // 15
"--- Codice valuta errato", TR("--- Codice valuta errato"),
"*** Data cambio non valida", TR("*** Data cambio non valida"),
"*** Data pagamento/incasso non valida", TR("*** Data pagamento/incasso non valida"),
"*** Tipo pagamento errato", TR("*** Tipo pagamento errato"),
"*** Segno D/A errato", // 20 TR("*** Segno D/A errato"), // 20
"*** Cambio mancante", TR("*** Cambio mancante"),
"*** Gruppo/Conto errato", TR("*** Gruppo/Conto errato"),
"*** Rif. rata partite saldaconto errato", TR("*** Rif. rata partite saldaconto errato"),
"*** Data scadenza non valida", TR("*** Data scadenza non valida"),
"--- Ulteriore classificazione non valida o non presente in archivio", // 25 TR("--- Ulteriore classificazione non valida o non presente in archivio"), // 25
"*** Importo rata in lire mancante", TR("*** Importo rata in lire mancante"),
"*** Importo rata in valuta mancante", TR("*** Importo rata in valuta mancante"),
"--- Codice Nostra banca non valido o non presente in archivio", TR("--- Codice Nostra banca non valido o non presente in archivio"),
"--- Codice Vostra banca non valido o non presente in archivio", TR("--- Codice Vostra banca non valido o non presente in archivio"),
"--- Codice agente non valido o non presente in archivio", // 30 TR("--- Codice agente non valido o non presente in archivio"), // 30
"--- Data sollecito non valida", TR("--- Data sollecito non valida"),
"*** Rif. fattura errato", TR("*** Rif. fattura errato"),
"*** Rif. rata fattura errato", TR("*** Rif. rata fattura errato"),
"*** In acconto/a saldo errato", TR("*** In acconto/a saldo errato"),
"*** Importo inc./pag. in lire mancante", // 35 TR("*** Importo inc./pag. in lire mancante"), // 35
"*** Importo inc./pag. in valuta mancante", TR("*** Importo inc./pag. in valuta mancante"),
"*** Flag abbuono attivo/passivo errato", TR("*** Flag abbuono attivo/passivo errato"),
"*** Codice valuta errato", TR("*** Codice valuta errato"),
"*** Tipo movimento causale non congruo con tipo movimento saldaconto", TR("*** Tipo movimento causale non congruo con tipo movimento saldaconto"),
"--- Tipo pagamento del codice di pagamento non congruo con tipo pagamento del saldaconto"}; TR("--- Tipo pagamento del codice di pagamento non congruo con tipo pagamento del saldaconto")};
class TRic_ListaMov : public TPrintapp class TRic_ListaMov : public TPrintapp
{ {
@ -308,7 +308,7 @@ bool TRic_ListaMov::user_create()
if (_ric_auto != 'A') if (_ric_auto != 'A')
{ {
TProgind* pnd = NULL; TProgind* pnd = NULL;
pnd = new TProgind (3,"Controllo archivi\nPrego attendere",FALSE, TRUE, 30); pnd = new TProgind (3,TR("Controllo archivi\nPrego attendere"),FALSE, TRUE, 30);
if (pnd) pnd->addstatus(1); if (pnd) pnd->addstatus(1);
@ -357,45 +357,13 @@ bool TRic_ListaMov::user_create()
TString80 tmppart = "%"; TString80 tmppart = "%";
tmppart << get_firm_dir(); tmppart << get_firm_dir();
tmppart << "\\" << TEMP_PART; tmppart << "\\" << TEMP_PART;
/* TString80 tmpscad = "%";
tmpscad << get_firm_dir();
tmpscad << "\\" << TEMP_SCAD;
TString80 tmppagsca = "%";
tmppagsca << get_firm_dir();
tmppagsca << "\\" << TEMP_PAGSCA;
*/
_is_salda = FALSE; _is_salda = FALSE;
tmp = tmppart.mid(1); tmp = tmppart.mid(1);
tmp << ".dbf"; tmp << ".dbf";
if (fexist(tmp)) if (fexist(tmp))
{ {
/* _part = new TLocalisamfile (LF_PARTITE);
_scad = new TLocalisamfile (LF_SCADENZE);
_pagsca = new TLocalisamfile (LF_PAGSCA);
_tpart = new TIsamtempfile(LF_PARTITE, tmppart, 0);
_tscad = new TIsamtempfile(LF_SCADENZE, tmpscad, 0);
_tpagsca = new TIsamtempfile(LF_PAGSCA,tmppagsca, 0); */
_is_salda = TRUE; _is_salda = TRUE;
/*
_relSC = new TRelation(_tpart);
exp.add("TIPOC=TIPOC");
exp.add("GRUPPO=GRUPPO");
exp.add("CONTO=CONTO");
exp.add("SOTTOCONTO=SOTTOCONTO");
exp.add("ANNO=ANNO");
exp.add("NUMPART=NUMPART");
exp.add("NRIGA=NRIGA");
_relSC->add(_tscad,exp,1,0,0,FALSE);
exp1.add("TIPOC=TIPOC");
exp1.add("GRUPPO=GRUPPO");
exp1.add("CONTO=CONTO");
exp1.add("SOTTOCONTO=SOTTOCONTO");
exp1.add("ANNO=ANNO");
exp1.add("NUMPART=NUMPART");
_relSC->add(_tpagsca,exp1,1,0,0,FALSE);
_curSC = add_cursor(new TCursor (_relSC, "", 1)); // Cursore definito sui movimenti del saldaconto
*/
} }
_giornale = new TLibro_giornale(); _giornale = new TLibro_giornale();
@ -478,7 +446,7 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
long ditta_ric = get_firm(); long ditta_ric = get_firm();
if (!prefix().exist(ditta_ric)) if (!prefix().exist(ditta_ric))
return error_box("Non esistono gli archivi della ditta %05ld: procedura interrotta", ditta_ric); return error_box(FR("Non esistono gli archivi della ditta %05ld: procedura interrotta"), ditta_ric);
TTransfer_file& tr = trasfer(); TTransfer_file& tr = trasfer();
@ -487,10 +455,10 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
_pathfile = _pathfile << HEADER; _pathfile = _pathfile << HEADER;
if (!tr.open(_pathfile)) if (!tr.open(_pathfile))
return error_box("Al momento non ci sono trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non ci sono trasferimenti attivi sulla ditta selezionata"));
if (!tr.read_control_rec()) if (!tr.read_control_rec())
return error_box("Rilevati errori gravi negli archivi: procedura interrotta"); return error_box(TR("Rilevati errori gravi negli archivi: procedura interrotta"));
else else
_record = tr.record(); _record = tr.record();
@ -498,16 +466,16 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
if (sd.not_empty()) if (sd.not_empty())
_sdt = sd[0]; _sdt = sd[0];
else return error_box("Ricezione tabelle non effettuata: richiamare il programma relativo"); else return error_box(TR("Ricezione tabelle non effettuata: richiamare il programma relativo"));
if (_sdt == 'T') if (_sdt == 'T')
return error_box("Ricezione tabelle non effettuata: richiamare il programma relativo"); return error_box(TR("Ricezione tabelle non effettuata: richiamare il programma relativo"));
if (_sdt == 'M') if (_sdt == 'M')
return yesno_box("Controllo gia' effettuato: si desidera ripeterlo ?"); return yesno_box(TR("Controllo gia' effettuato: si desidera ripeterlo ?"));
if (_sdt != '*' && _sdt != 'C') if (_sdt != '*' && _sdt != 'C')
return error_box("Rilevati errori gravi negli archivi: procedura interrotta"); return error_box(TR("Rilevati errori gravi negli archivi: procedura interrotta"));
TString16 ult = tr.ult_file(); TString16 ult = tr.ult_file();
TString16 key = tr.key(); TString16 key = tr.key();
@ -517,12 +485,12 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
if (_sdt == 'C') if (_sdt == 'C')
if ( ult.not_empty() || key.not_empty() ) if ( ult.not_empty() || key.not_empty() )
return error_box("Rilevati errori gravi negli archivi: procedura interrotta"); return error_box(TR("Rilevati errori gravi negli archivi: procedura interrotta"));
if (_sdt == '*') if (_sdt == '*')
{ {
tr.remove_all(); tr.remove_all();
return warning_box("Trasferimento interamente completato: proseguire per cancellare i file"); return warning_box(TR("Trasferimento interamente completato: proseguire per cancellare i file"));
} }
if (pnd) pnd->addstatus(1); if (pnd) pnd->addstatus(1);
@ -939,14 +907,14 @@ void TRic_ListaMov::stampa_errori_rmov(int riga)
if (_gruppo == 0 || _conto == 0 || _sottoconto == 0l) if (_gruppo == 0 || _conto == 0 || _sottoconto == 0l)
{ {
_errore_grave = TRUE; _errore_grave = TRUE;
set_row(++riga, "@8g*** Sottoconto partita non valido o non presente in archivio"); set_row(++riga, FR("@8g*** Sottoconto partita non valido o non presente in archivio"));
} }
else else
{ {
if (!_esiste_conto) if (!_esiste_conto)
{ {
_errore_grave = TRUE; _errore_grave = TRUE;
set_row(++riga, "@8g*** Sottoconto partita non valido o non presente in archivio"); set_row(++riga, FR("@8g*** Sottoconto partita non valido o non presente in archivio"));
} }
} }
@ -954,7 +922,7 @@ void TRic_ListaMov::stampa_errori_rmov(int riga)
(_sezione != 'D' && _sezione != 'A' && _sezione != '\0') ) (_sezione != 'D' && _sezione != 'A' && _sezione != '\0') )
{ {
_errore_grave = TRUE; _errore_grave = TRUE;
set_row(++riga, "@8g*** Segnale dare/avere non valido"); set_row(++riga, FR("@8g*** Segnale dare/avere non valido"));
} }
if (_sezione == 'D') if (_sezione == 'D')
@ -963,16 +931,14 @@ void TRic_ListaMov::stampa_errori_rmov(int riga)
_tot_avere += _importo; _tot_avere += _importo;
if (_gruppoc != 0 || _contoc != 0 || _sottocontoc != 0l) if (_gruppoc != 0 || _contoc != 0 || _sottocontoc != 0l)
// set_row(++riga, "@8g*** Sottoconto contropartita non valido o non presente in archivio");
// else
{ {
bool ok = errori_partita(_gruppoc,_contoc,_sottocontoc); bool ok = errori_partita(_gruppoc,_contoc,_sottocontoc);
if (!ok) if (!ok)
set_row(++riga, "@8g--- Sottoconto contropartita non valido o non presente in archivio"); set_row(++riga, FR("@8g--- Sottoconto contropartita non valido o non presente in archivio"));
} }
if (!_mov_sez && _importo == ZERO) if (!_mov_sez && _importo == ZERO)
set_row(++riga, "@8g--- Importo riga uguale a zero"); set_row(++riga, FR("@8g--- Importo riga uguale a zero"));
} }
bool TRic_ListaMov::controlla_riva() bool TRic_ListaMov::controlla_riva()
@ -1096,22 +1062,16 @@ bool TRic_ListaMov::controlla_riva()
if (iva.read() != NOERR) if (iva.read() != NOERR)
{ {
no_grave = TRUE; no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
} }
if ( tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 && if ( tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 &&
tipocr != 4 && tipocr != 5 && tipocr != 8 && tipocr != 9 ) tipocr != 4 && tipocr != 5 && tipocr != 8 && tipocr != 9 )
{ {
no_grave = TRUE; no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
} }
if (gruppocr == 0 || contocr == 0 || sottocontocr == 0l) if (gruppocr == 0 || contocr == 0 || sottocontocr == 0l)
{ {
no_grave = TRUE; no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
} }
else if (gruppocr != 0 && contocr != 0 && sottocontocr != 0l) else if (gruppocr != 0 && contocr != 0 && sottocontocr != 0l)
{ {
@ -1119,15 +1079,11 @@ bool TRic_ListaMov::controlla_riva()
if (!ok) if (!ok)
{ {
no_grave = TRUE; no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
} }
} }
if (tipodet != 0 && tipodet != 1 && tipodet != 3 && tipodet != 9) if (tipodet != 0 && tipodet != 1 && tipodet != 3 && tipodet != 9)
{ {
no_grave = TRUE; no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
} }
} }
if (no_grave) if (no_grave)
@ -1147,23 +1103,23 @@ void TRic_ListaMov::stampa_errori_riva(int riga)
iva.zero(); iva.zero();
iva.put("CODTAB", _codiva); iva.put("CODTAB", _codiva);
if (iva.read() != NOERR) if (iva.read() != NOERR)
set_row(++riga, "@8g--- Codice IVA non valido o non presente in tabella"); set_row(++riga, FR("@8g--- Codice IVA non valido o non presente in tabella"));
if ( _tipocr != 0 && _tipocr != 1 && _tipocr != 2 && _tipocr != 3 && if ( _tipocr != 0 && _tipocr != 1 && _tipocr != 2 && _tipocr != 3 &&
_tipocr != 4 && _tipocr != 5 && _tipocr != 8 && _tipocr != 9 ) _tipocr != 4 && _tipocr != 5 && _tipocr != 8 && _tipocr != 9 )
set_row(++riga, "@8g--- Tipo costo/ricavo non valido"); set_row(++riga, FR("@8g--- Tipo costo/ricavo non valido"));
if (_gruppocr == 0 || _contocr == 0 || _sottocontocr == 0l) if (_gruppocr == 0 || _contocr == 0 || _sottocontocr == 0l)
set_row(++riga, "@8g--- Sottoconto costo/ricavo non valido o non presente in archivio"); set_row(++riga, FR("@8g--- Sottoconto costo/ricavo non valido o non presente in archivio"));
else if (_gruppocr != 0 && _contocr != 0 && _sottocontocr != 0l) else if (_gruppocr != 0 && _contocr != 0 && _sottocontocr != 0l)
{ {
bool ok = errori_partita(_gruppocr,_contocr,_sottocontocr); bool ok = errori_partita(_gruppocr,_contocr,_sottocontocr);
if (!ok) if (!ok)
set_row(++riga, "@8g--- Sottoconto costo/ricavo non valido o non presente in archivio"); set_row(++riga, FR("@8g--- Sottoconto costo/ricavo non valido o non presente in archivio"));
} }
if (_tipod != 0 && _tipod != 1 && _tipod != 3 && _tipod != 9) if (_tipod != 0 && _tipod != 1 && _tipod != 3 && _tipod != 9)
set_row(++riga, "@8g--- Tipo indetraibilita' non valido"); set_row(++riga, FR("@8g--- Tipo indetraibilita' non valido"));
} }
bool TRic_ListaMov::controlla_anaCF_Pcon(char tipocf,int gruppo,int conto,long codcf) bool TRic_ListaMov::controlla_anaCF_Pcon(char tipocf,int gruppo,int conto,long codcf)
@ -1652,25 +1608,25 @@ void TRic_ListaMov::descrizione_pagamento(TString& descr,int tipopag,TString& ul
{ {
switch(tipo) switch(tipo)
{ {
case 1: descr = "Rimessa diretta"; case 1: descr = TR("Rimessa diretta");
break; break;
case 2: descr = "Tratta"; case 2: descr = TR("Tratta");
break; break;
case 3: descr = "Ricevuta bancaria"; case 3: descr = TR("Ricevuta bancaria");
break; break;
case 4: descr = "Cessione"; case 4: descr = TR("Cessione");
break; break;
case 5: descr = "Paghero'"; case 5: descr = TR("Paghero'");
break; break;
case 6: descr = "Lettera di credito"; case 6: descr = TR("Lettera di credito");
break; break;
case 7: descr = "Tratta accettata"; case 7: descr = TR("Tratta accettata");
break; break;
case 8: descr = "Rapporti interbancari diretti"; case 8: descr = TR("Rapporti interbancari diretti");
break; break;
case 9: descr = "Bonifico"; case 9: descr = TR("Bonifico");
break; break;
case 10: descr = "Altro"; case 10: descr = TR("Altro");
break; break;
default: break; default: break;
}; };
@ -1711,8 +1667,8 @@ void TRic_ListaMov::stampa_errori_scadenze(int riga)
if (_prima_rata_pag) if (_prima_rata_pag)
{ {
set_row(riga,"@26gN.rata Data scad. Sez Importo Importo valuta"); set_row(riga,FR("@26gN.rata Data scad. Sez Importo Importo valuta"));
set_row(riga++,"@88gCond.pagamento Nostra banca Vostra banca Agente"); set_row(riga++,FR("@88gCond.pagamento Nostra banca Vostra banca Agente"));
_prima_rata_pag = FALSE; _prima_rata_pag = FALSE;
} }
set_row(riga,"@27g%4d", nrata); set_row(riga,"@27g%4d", nrata);
@ -1980,8 +1936,8 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
if (_prima_rata_pag) if (_prima_rata_pag)
{ {
set_row(riga,"@22gRif. rata acc./saldo Sez Importo Importo valuta Contropartita"); set_row(riga,FR("@22gRif. rata acc./saldo Sez Importo Importo valuta Contropartita"));
set_row(riga++,"@158gNostra banca Vostra banca Agente"); set_row(riga++,FR("@158gNostra banca Vostra banca Agente"));
_prima_rata_pag = FALSE; _prima_rata_pag = FALSE;
} }
else else
@ -2018,7 +1974,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
riga++; riga++;
set_row(riga,"@51g%c", _sez); set_row(riga,"@51g%c", _sez);
set_row(riga,"@55g%r", &ritenute); set_row(riga,"@55g%r", &ritenute);
set_row(riga,"@88gRitenute professionali"); set_row(riga,FR("@88gRitenute professionali"));
} }
if (abbuoni != ZERO) if (abbuoni != ZERO)
{ {
@ -2042,7 +1998,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
set_row(riga,"@88gAbbuoni attivi"); set_row(riga,"@88gAbbuoni attivi");
else else
if (passat == 'P') if (passat == 'P')
set_row(riga,"@88gAbbuoni passivi"); set_row(riga,FR("@88gAbbuoni passivi"));
} }
if (diffcam != ZERO) if (diffcam != ZERO)
{ {
@ -2059,7 +2015,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
} }
set_row(riga,"@51g%c", sezione); set_row(riga,"@51g%c", sezione);
set_row(riga,"@55g%r", &diffcam); set_row(riga,"@55g%r", &diffcam);
set_row(riga,"@88gDifferenza cambio"); set_row(riga,FR("@88gDifferenza cambio"));
} }
if (nriga != 9999) if (nriga != 9999)
@ -2108,7 +2064,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
set_row(++riga, "@30g%s", (const char*) err_msg[30]); set_row(++riga, "@30g%s", (const char*) err_msg[30]);
if (!controlla_anaCF_Pcon(tipoc,gruppoc,contoc,sottocc)) if (!controlla_anaCF_Pcon(tipoc,gruppoc,contoc,sottocc))
set_row(++riga, "@30g--- Codice contropartita errato"); set_row(++riga, FR("@30g--- Codice contropartita errato"));
} }
} }
@ -2200,21 +2156,21 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
datadoc_str = " - - "; datadoc_str = " - - ";
int r = 1; int r = 1;
set_row(r++, ""); set_row(r++, "");
set_row(r,"Operazione n. %-7ld", _numero); set_row(r,FR("Operazione n. %-7ld"), _numero);
set_row(r," del %s", (const char*)datareg_str); set_row(r,FR(" del %s"), (const char*)datareg_str);
set_row(r," doc. n. %-7s", (const char*)_numdoc); set_row(r,FR(" doc. n. %-7s"), (const char*)_numdoc);
set_row(r," del %s", (const char*)datadoc_str); set_row(r,FR(" del %s"), (const char*)datadoc_str);
if (!_registro.blank()) //e' una fattura if (!_registro.blank()) //e' una fattura
{ {
set_row(r," registro IVA %-3s", (const char*)_registro); set_row(r,FR(" registro IVA %-3s"), (const char*)_registro);
set_row(r," protocollo n. %-5ld", _protiva); set_row(r,FR(" protocollo n. %-5ld"), _protiva);
} }
set_row(r, " comp. %d", _anno); set_row(r, FR(" comp. %d"), _anno);
// Guy: Aggiunta stampa mese di liquidazione se presente // Guy: Aggiunta stampa mese di liquidazione se presente
const int meseliq = cur->curr(LF_MOV).get_int(MOV_MESELIQ); const int meseliq = cur->curr(LF_MOV).get_int(MOV_MESELIQ);
if (meseliq > 0) if (meseliq > 0)
set_row(r, " mese liq. %d", meseliq); set_row(r, FR(" mese liq. %d"), meseliq);
stampa_errori_mov(r); stampa_errori_mov(r);
@ -2312,9 +2268,9 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
} }
set_row(r, "I%d", numrig); set_row(r, "I%d", numrig);
set_row(r, "@5gImponibile@16g%r",&_impo_print); set_row(r, FR("@5gImponibile@16g%r"),&_impo_print);
set_row(r, "@32gImposta@40g%r", &_impos_print); set_row(r, FR("@32gImposta@40g%r"), &_impos_print);
set_row(r, "@56gCodice@63g%4s", (const char*) _codiva); set_row(r, FR("@56gCodice@63g%4s"), (const char*) _codiva);
set_row(r, "@68g%s", (const char*) codiva_des); set_row(r, "@68g%s", (const char*) codiva_des);
if (_tipod != 0) if (_tipod != 0)
@ -2376,12 +2332,12 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
TString ccf; TString ccf;
if (_tipocf == 'C') if (_tipocf == 'C')
ccf = "Cliente: "; ccf = TR("Cliente: ");
else else
if (_tipocf == 'F') if (_tipocf == 'F')
ccf = "Fornitore:"; ccf = TR("Fornitore:");
else else
ccf = "Conto: "; ccf = TR("Conto: ");
// I riga di testata // I riga di testata
int r = 1; int r = 1;
@ -2400,9 +2356,9 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
// II riga di testata (L'intestazione viene stampata solo a rottura di partita) // II riga di testata (L'intestazione viene stampata solo a rottura di partita)
if (_tipocf != _tipocf_p || _gruppo != _gruppo_p || _conto != _conto_p || if (_tipocf != _tipocf_p || _gruppo != _gruppo_p || _conto != _conto_p ||
_codcf != _codcf_p || _numpart != _numpart_prec || _anno != _anno_prec) _codcf != _codcf_p || _numpart != _numpart_prec || _anno != _anno_prec)
set_row(r,"@0g@rRif. partita"); set_row(r,FR("@0g@rRif. partita"));
set_row(r,"@14gN.riga@22gN.operaz./riga Data oper. Data doc. N.doc. Reg Prot. Causale"); set_row(r,FR("@14gN.riga@22gN.operaz./riga Data oper. Data doc. N.doc. Reg Prot. Causale"));
set_row(r++,"@142gTipo/Data pag. Cod.val Cambio Data cambio Sez"); set_row(r++,FR("@142gTipo/Data pag. Cod.val Cambio Data cambio Sez"));
if (_tipocf != _tipocf_p || _gruppo != _gruppo_p || _conto != _conto_p || if (_tipocf != _tipocf_p || _gruppo != _gruppo_p || _conto != _conto_p ||
_codcf != _codcf_p || _numpart != _numpart_prec || _anno != _anno_prec) _codcf != _codcf_p || _numpart != _numpart_prec || _anno != _anno_prec)
{ {
@ -2480,7 +2436,7 @@ print_action TRic_ListaMov::postprocess_page(int file,int count)
if (_tot_dare != _tot_avere) if (_tot_dare != _tot_avere)
{ {
_errore_grave = TRUE; _errore_grave = TRUE;
set_row(n++, "@8g*** Il movimento risulta sbilanciato. Totali rilevati:@99g%r@116g%r", set_row(n++, FR("@8g*** Il movimento risulta sbilanciato. Totali rilevati:@99g%r@116g%r"),
&_tot_dare, &_tot_avere); &_tot_dare, &_tot_avere);
return REPEAT_PAGE; return REPEAT_PAGE;
} }
@ -2527,7 +2483,7 @@ void TRic_ListaMov::postclose_print()
if (_ric_auto == 'A') if (_ric_auto == 'A')
{ {
_risposta = TRUE; _risposta = TRUE;
_continua = yesno_box("Rilevati ERRORI GRAVI durante il controllo movimenti: \n Controllare gli errori sulla lista dei movimenti stampata per eseguire le correzioni. \n Continuare ugualmente?"); _continua = yesno_box(TR("Rilevati ERRORI GRAVI durante il controllo movimenti: \n Controllare gli errori sulla lista dei movimenti stampata per eseguire le correzioni. \n Continuare ugualmente?"));
TTransfer_file& tr = trasfer(); TTransfer_file& tr = trasfer();
if (!_continua) if (!_continua)
_record.overwrite(" ",240); //_record e' letto nella read_control_rec() _record.overwrite(" ",240); //_record e' letto nella read_control_rec()
@ -2543,7 +2499,7 @@ void TRic_ListaMov::postclose_print()
} }
else else
{ {
message_box("Rilevati errori gravi durante il controllo movimenti: \n trasferimento interrotto"); message_box(TR("Rilevati errori gravi durante il controllo movimenti: \n trasferimento interrotto"));
TTransfer_file& tr = trasfer(); TTransfer_file& tr = trasfer();
_record.overwrite(" ",240); //_record e' letto nella read_control_rec() _record.overwrite(" ",240); //_record e' letto nella read_control_rec()
const int size = 1024; const int size = 1024;
@ -2557,7 +2513,7 @@ void TRic_ListaMov::postclose_print()
if (_ric_auto == 'A') if (_ric_auto == 'A')
_risposta = TRUE; _risposta = TRUE;
else else
message_box("CONTROLLO MOVIMENTI terminato: \n proseguire con RICEZIONE movimenti"); message_box(TR("CONTROLLO MOVIMENTI terminato: \n proseguire con RICEZIONE movimenti"));
TConfig conf (CONFIG_DITTA); TConfig conf (CONFIG_DITTA);
conf.set("FlStTra", "M"); conf.set("FlStTra", "M");
@ -3171,10 +3127,10 @@ bool TRic_ListaMov::set_print(int m)
_pathfile = _pathfile << HEADER; _pathfile = _pathfile << HEADER;
if (!tr.open(_pathfile)) if (!tr.open(_pathfile))
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non presenti trasferimenti attivi sulla ditta selezionata"));
if (!tr.read_control_rec()) if (!tr.read_control_rec())
return error_box("Rilevati errori gravi negli archivi: procedura interrotta"); return error_box(TR("Rilevati errori gravi negli archivi: procedura interrotta"));
else _record = tr.record(); else _record = tr.record();
if (_tipo_lista == 'A') if (_tipo_lista == 'A')
@ -3290,38 +3246,38 @@ void TRic_ListaMov::setta_intestazione()
if (_intestaSC) if (_intestaSC)
{ {
sep1 << "Ditta " << get_firm(); sep1 << TR("Ditta ") << get_firm();
sep1 << " " << ragsoc; sep1 << " " << ragsoc;
sep1.left_just(198); sep1.left_just(198);
set_header (soh++, (const char*) sep1); set_header (soh++, (const char*) sep1);
sep1 = ""; sep1 = "";
sep1 << "Data @< Pag. @#"; sep1 << FR("Data @< Pag. @#");
sep1.right_just(193); sep1.right_just(193);
sep1.overwrite ("LISTA DI CONTROLLO MOVIMENTI DI SALDACONTO"); sep1.overwrite (TR("LISTA DI CONTROLLO MOVIMENTI DI SALDACONTO"));
set_header (soh++, (const char*)sep1); set_header (soh++, (const char*)sep1);
sep1.fill('-'); sep1.fill('-');
set_header (soh++, (const char *) sep1); set_header (soh++, (const char *) sep1);
} }
else else
{ {
sep << "Ditta " << get_firm(); sep << TR("Ditta ") << get_firm();
sep << " " << ragsoc; sep << " " << ragsoc;
sep.left_just(132); sep.left_just(132);
set_header (soh++, (const char*) sep); set_header (soh++, (const char*) sep);
sep = ""; sep = "";
sep << "Data @< Pag. @#"; sep << FR("Data @< Pag. @#");
sep.right_just(127); sep.right_just(127);
sep.overwrite ("LISTA DI CONTROLLO MOVIMENTI IN TRASFERIMENTO"); sep.overwrite (TR("LISTA DI CONTROLLO MOVIMENTI IN TRASFERIMENTO"));
set_header (soh++, (const char*)sep); set_header (soh++, (const char*)sep);
sep.fill('-'); sep.fill('-');
set_header (soh++, (const char *) sep); set_header (soh++, (const char *) sep);
set_header (soh++, "Rig Cod.causale @30gDescriz.aggiuntiva @56gCod.conto @71gDescriz.conto @99gDare @116gAvere"); set_header (soh++, FR("Rig Cod.causale @30gDescriz.aggiuntiva @56gCod.conto @71gDescriz.conto @99gDare @116gAvere"));
set_header (soh, (const char *) sep); set_header (soh, (const char *) sep);
} }
} }
@ -3351,7 +3307,7 @@ int cg6700 (int argc, char* argv[])
p2 = *argv[3]; p2 = *argv[3];
TRic_ListaMov* a = new TRic_ListaMov(p1,p2); TRic_ListaMov* a = new TRic_ListaMov(p1,p2);
a->run(argc, argv,"Lista controllo movimenti"); a->run(argc, argv,TR("Lista controllo movimenti"));
delete a; delete a;
return TRUE; return TRUE;
} }

94
cg/cg6800.cpp
View File

@ -139,11 +139,11 @@ TVar_mov::TVar_mov(char mov) : _scelta(toupper(mov))
switch (_scelta) switch (_scelta)
{ {
case 'P': case 'P':
_titolo = "Variazione movimenti prima nota"; _titolo = TR("Variazione movimenti prima nota");
break; break;
case 'I': case 'I':
_titolo = "Variazione movimenti iva"; _titolo = TR("Variazione movimenti iva");
break; break;
default: default:
@ -247,7 +247,7 @@ bool TVar_mov::main_loop()
apri_temp_file(); apri_temp_file();
if (_scelta == 'I' && !_is_exist) if (_scelta == 'I' && !_is_exist)
return error_box("I movimenti iva non sono stati ricevuti: impossibile variarli"); return error_box(TR("I movimenti iva non sono stati ricevuti: impossibile variarli"));
if (_scelta == 'P') if (_scelta == 'P')
{ {
@ -486,7 +486,7 @@ bool TVar_mov::esiste_testata_mov(TMask& m)
_trmov->read(); _trmov->read();
long nr = _trmov->get_long(RMV_NUMREG); long nr = _trmov->get_long(RMV_NUMREG);
if (_numreg != nr) if (_numreg != nr)
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box(TR("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"));
} }
else else
if (_scelta == 'I') if (_scelta == 'I')
@ -497,13 +497,13 @@ bool TVar_mov::esiste_testata_mov(TMask& m)
_tiva->read(); _tiva->read();
long nr = _tiva->get_long(RMI_NUMREG); long nr = _tiva->get_long(RMI_NUMREG);
if (_numreg != nr) if (_numreg != nr)
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box(TR("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"));
} }
*_rec_mov = _tmov->curr(); *_rec_mov = _tmov->curr();
} }
else else
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box(TR("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"));
return TRUE; return TRUE;
} }
@ -521,7 +521,7 @@ bool TVar_mov::esiste_riga_mov(TMask& m)
if (_trmov->read() == NOERR) if (_trmov->read() == NOERR)
*_rec_rmov = _trmov->curr(); *_rec_rmov = _trmov->curr();
else else
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box(TR("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"));
return TRUE; return TRUE;
} }
@ -539,7 +539,7 @@ bool TVar_mov::esiste_riga_iva(TMask& m)
if (_tiva->read() == NOERR) if (_tiva->read() == NOERR)
*_rec_riva = _tiva->curr(); *_rec_riva = _tiva->curr();
else else
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box(TR("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"));
return TRUE; return TRUE;
} }
@ -702,10 +702,10 @@ bool TVar_mov::setta_campi_maschera_iva(TMask& m)
if (regiva.not_empty()) if (regiva.not_empty())
{ {
if (!rg.ok()) if (!rg.ok())
return error_box("Registrazione presente ma con PRIMANOTA ERRATA: correggerla prima"); return error_box(TR("Registrazione presente ma con PRIMANOTA ERRATA: correggerla prima"));
} }
else else
return error_box("Campo NON VALIDO o codice NON PRESENTE in archivio"); return error_box(TR("Campo NON VALIDO o codice NON PRESENTE in archivio"));
m.set(F_NUMREG, _numreg); m.set(F_NUMREG, _numreg);
m.set(F_NUMRIG, _numrig); m.set(F_NUMRIG, _numrig);
@ -821,7 +821,7 @@ bool TVar_mov::codice_registro_hnd(TMask_field& f, KEY k)
{ {
descr = ""; descr = "";
f.mask().set(F_DESCRREG, descr); f.mask().set(F_DESCRREG, descr);
return warning_box("Codice registro IVA non presente in tabella"); return warning_box(TR("Codice registro IVA non presente in tabella"));
} }
} }
@ -840,7 +840,7 @@ bool TVar_mov::codice_causale_hnd(TMask_field& f, KEY k)
if (codreg.not_empty()) if (codreg.not_empty())
if (codcau.empty()) if (codcau.empty())
return warning_box("Il codice registro IVA e' significativo: deve essere significativo anche il codice causale"); return warning_box(TR("Il codice registro IVA e' significativo: deve essere significativo anche il codice causale"));
} }
TLocalisamfile& cau = *app()._causali; TLocalisamfile& cau = *app()._causali;
@ -857,7 +857,7 @@ bool TVar_mov::codice_causale_hnd(TMask_field& f, KEY k)
{ {
const TString& descr = ""; const TString& descr = "";
f.mask().set(F_DESCRCAU, descr); f.mask().set(F_DESCRCAU, descr);
return warning_box("Codice causale non presente in tabella"); return warning_box(TR("Codice causale non presente in tabella"));
} }
} }
return TRUE; return TRUE;
@ -873,7 +873,7 @@ bool TVar_mov::numero_protocollo_hnd(TMask_field& f, KEY k)
if (codreg.empty()) if (codreg.empty())
if (protiva != 0) if (protiva != 0)
return warning_box("Il codice registro IVA non e' significativo: non e' possibile compilare il numero protocollo IVA"); return warning_box(TR("Il codice registro IVA non e' significativo: non e' possibile compilare il numero protocollo IVA"));
return TRUE; return TRUE;
} }
@ -888,11 +888,11 @@ bool TVar_mov::ultimo_protocollo_hnd(TMask_field& f, KEY k)
if (codreg.empty()) if (codreg.empty())
if (uprotiva != 0) if (uprotiva != 0)
return warning_box("Il codice registro IVA non e' significativo: non e' possibile compilare l' ultimo numero protocollo IVA"); return warning_box(TR("Il codice registro IVA non e' significativo: non e' possibile compilare l' ultimo numero protocollo IVA"));
if (protiva == 0) if (protiva == 0)
if (uprotiva != 0) if (uprotiva != 0)
return warning_box("Numero protocollo IVA non significativo: non e' possibile compilare il numero protocollo IVA riepilogato"); return warning_box(TR("Numero protocollo IVA non significativo: non e' possibile compilare il numero protocollo IVA riepilogato"));
return TRUE; return TRUE;
} }
@ -919,7 +919,7 @@ bool TVar_mov::codice_pagamento_hnd(TMask_field& f, KEY k)
{ {
descr = ""; descr = "";
f.mask().set(F_DESCRPAG, descr); f.mask().set(F_DESCRPAG, descr);
return warning_box("Codice pagamento non presente in tabella"); return warning_box(TR("Codice pagamento non presente in tabella"));
} }
} }
@ -934,7 +934,7 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
if (f.mask().is_running()) if (f.mask().is_running())
if ( !(TDate::isdate(f.get())) ) if ( !(TDate::isdate(f.get())) )
return warning_box("Data errata o formato non valido"); return warning_box(TR("Data errata o formato non valido"));
TString16 datacomp = f.get(); TString16 datacomp = f.get();
if (datacomp.empty()) if (datacomp.empty())
@ -956,8 +956,8 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
if (ae != ar && ae != pr) if (ae != ar && ae != pr)
{ {
TString80 e; TString80 e;
e << "La data di competenza deve appartenere all'esercizio " << ar; e << TR("La data di competenza deve appartenere all'esercizio ") << ar;
if (pr > 0) e << " o al " << pr; if (pr > 0) e << TR(" o al ") << pr;
return f.error_box(e); return f.error_box(e);
} }
f.mask().set(F_ANNO, ae); f.mask().set(F_ANNO, ae);
@ -965,7 +965,7 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
else else
{ {
if (f.mask().is_running()) if (f.mask().is_running())
return f.error_box("La data non appartiene a nessun esercizio"); return f.error_box(TR("La data non appartiene a nessun esercizio"));
} }
} }
@ -978,7 +978,7 @@ bool TVar_mov::data_stampa(TMask_field& f, KEY k)
{ {
if (f.mask().is_running()) if (f.mask().is_running())
if ( !(TDate::isdate(f.get())) ) if ( !(TDate::isdate(f.get())) )
return warning_box("Data errata o formato non valido"); return warning_box(TR("Data errata o formato non valido"));
TDate datareg (f.mask().get(F_DATAREG)); TDate datareg (f.mask().get(F_DATAREG));
const int ae = datareg.year(); const int ae = datareg.year();
@ -987,7 +987,7 @@ bool TVar_mov::data_stampa(TMask_field& f, KEY k)
gio.read(ae); //se _ae e' zero la read considera come anno quello corrente gio.read(ae); //se _ae e' zero la read considera come anno quello corrente
if (datareg < gio.last_print()) if (datareg < gio.last_print())
return warning_box("La data di registrazione e' minore della data di stampa del Libro Giornale"); return warning_box(TR("La data di registrazione e' minore della data di stampa del Libro Giornale"));
TString codreg = f.mask().get(F_REGIVA); TString codreg = f.mask().get(F_REGIVA);
@ -996,7 +996,7 @@ bool TVar_mov::data_stampa(TMask_field& f, KEY k)
TRegistro rg (codreg, ae); TRegistro rg (codreg, ae);
if (datareg < rg.last_print()) if (datareg < rg.last_print())
return error_box("La data di registrazione e' minore della data stampa del registro IVA"); return error_box(TR("La data di registrazione e' minore della data stampa del registro IVA"));
} }
} }
return TRUE; return TRUE;
@ -1019,7 +1019,7 @@ bool TVar_mov::controllo_partita(TMask_field& f, KEY k)
if (k == K_ENTER) if (k == K_ENTER)
if (!tc.find()) if (!tc.find())
return warning_box("Sottoconto partita non presente in anagrafica Piano dei Conti oppure anagrafica Clienti / Fornitori"); return warning_box(TR("Sottoconto partita non presente in anagrafica Piano dei Conti oppure anagrafica Clienti / Fornitori"));
} }
return TRUE; return TRUE;
@ -1043,7 +1043,7 @@ bool TVar_mov::controllo_contropartita(TMask_field& f, KEY k)
if (k == K_ENTER) if (k == K_ENTER)
if (gruppo != 0 && conto != 0 && sottoc != 0) if (gruppo != 0 && conto != 0 && sottoc != 0)
if (!tc.find()) if (!tc.find())
return warning_box("Sottoconto contropartita non presente in anagrafica Piano dei Conti oppure anagrafica Clienti / Fornitori"); return warning_box(TR("Sottoconto contropartita non presente in anagrafica Piano dei Conti oppure anagrafica Clienti / Fornitori"));
} }
return TRUE; return TRUE;
@ -1057,9 +1057,9 @@ bool TVar_mov::controllo_importo(TMask_field& f, KEY k)
char sezione = f.mask().get(F_SEZIONE)[0]; char sezione = f.mask().get(F_SEZIONE)[0];
if (importo == ZERO && (sezione == 'A' || sezione == 'D') ) if (importo == ZERO && (sezione == 'A' || sezione == 'D') )
return warning_box("L' importo deve essere significativo"); return warning_box(TR("L' importo deve essere significativo"));
if (sezione == '\0' && importo != ZERO) if (sezione == '\0' && importo != ZERO)
return warning_box("La sezione e' nulla: l'importo non puo' essere significativo"); return warning_box(TR("La sezione e' nulla: l'importo non puo' essere significativo"));
} }
return TRUE; return TRUE;
@ -1090,7 +1090,7 @@ bool TVar_mov::codice_clifo_hnd(TMask_field& f, KEY k)
{ {
TString descr = ""; TString descr = "";
f.mask().set(F_RAGSOCCF, descr); f.mask().set(F_RAGSOCCF, descr);
return warning_box("Campo NON VALIDO o codice non presente in archivio"); return warning_box(TR("Campo NON VALIDO o codice non presente in archivio"));
} }
} }
@ -1168,11 +1168,11 @@ bool TVar_mov::codice_iva_hnd(TMask_field& f, KEY k)
real imposta (f.mask().get(F_IMPOSTA)); real imposta (f.mask().get(F_IMPOSTA));
if ( (imponibile != ZERO || imposta != ZERO) && codiva.empty() ) if ( (imponibile != ZERO || imposta != ZERO) && codiva.empty() )
return warning_box("Il codice IVA deve essere indicato obbligatoriamente"); return warning_box(TR("Il codice IVA deve essere indicato obbligatoriamente"));
if (codiva.not_empty()) if (codiva.not_empty())
if (!ok) if (!ok)
return warning_box("Codice non presente in tabella"); return warning_box(TR("Codice non presente in tabella"));
} }
} }
@ -1209,7 +1209,7 @@ bool TVar_mov::imposta_hnd(TMask_field& f, KEY k)
real imposta (f.mask().get(F_IMPOSTA)); real imposta (f.mask().get(F_IMPOSTA));
if (app()._corrisp && imposta != ZERO) if (app()._corrisp && imposta != ZERO)
return warning_box("Il movimento e' relativo ad un corrispettivo: l'imposta deve essere uguale a 0"); return warning_box(TR("Il movimento e' relativo ad un corrispettivo: l'imposta deve essere uguale a 0"));
} }
return TRUE; return TRUE;
@ -1222,7 +1222,7 @@ bool TVar_mov::detraibilita_hnd(TMask_field& f, KEY k)
int det = atoi(f.get()); int det = atoi(f.get());
if (det != 0 && det != 1 && det != 3 && det != 9) if (det != 0 && det != 1 && det != 3 && det != 9)
return warning_box("Valore non ammesso per il tipo detraibilita'"); return warning_box(TR("Valore non ammesso per il tipo detraibilita'"));
} }
return TRUE; return TRUE;
@ -1236,7 +1236,7 @@ bool TVar_mov::tipocr_hnd(TMask_field& f, KEY k)
if (tcr != 0 && tcr != 1 && tcr != 2 && tcr != 3 if (tcr != 0 && tcr != 1 && tcr != 2 && tcr != 3
&& tcr != 4 && tcr != 5 && tcr != 8 && tcr != 9) && tcr != 4 && tcr != 5 && tcr != 8 && tcr != 9)
return warning_box("Valore non ammesso per il tipo costo/ricavo"); return warning_box(TR("Valore non ammesso per il tipo costo/ricavo"));
} }
return TRUE; return TRUE;
@ -1247,7 +1247,7 @@ bool TVar_mov::data(TMask_field& f, KEY k)
if (k == K_ENTER) if (k == K_ENTER)
{ {
if ( !(TDate::isdate(f.get())) ) if ( !(TDate::isdate(f.get())) )
return warning_box("Data errata o formato non valido"); return warning_box(TR("Data errata o formato non valido"));
} }
return TRUE; return TRUE;
@ -1585,10 +1585,10 @@ bool TVar_mov::leggi_trasfer()
if (_tras_file.read_control_rec()) if (_tras_file.read_control_rec())
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non presenti trasferimenti attivi sulla ditta selezionata"));
return TRUE; return TRUE;
} }
@ -1600,7 +1600,7 @@ bool TVar_mov::esegui_controlli()
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Rilevati gravi errori negli archivi: procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi: procedura interrotta"));
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
@ -1635,21 +1635,21 @@ bool TVar_mov::controlli()
sigla.trim(); sigla.trim();
if (_std == "M" && sigla == "Z" && chiave != "") if (_std == "M" && sigla == "Z" && chiave != "")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "M" && sigla == "U") if (_std == "M" && sigla == "U")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "*") if (_std == TR("*"))
{ {
warning_box("Trasferimento interamente completato: proseguire per cancellare il file"); warning_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(" "," "); setta_parametri_record(" "," ");
return FALSE; return FALSE;
} }
if (_std == "T") if (_std == "T")
return error_box("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"); return error_box(TR("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"));
return TRUE; return TRUE;
} }
@ -1682,28 +1682,28 @@ int cg6800 (int argc, char* argv[])
case 'B': case 'B':
{ {
TVar_sc* a = new TVar_sc; TVar_sc* a = new TVar_sc;
a->run(argc, argv,"Variazione movimenti Saldaconto"); a->run(argc, argv,TR("Variazione movimenti Saldaconto"));
delete a; delete a;
} }
break; break;
case 'S': case 'S':
{ {
TDitta_ric* a = new TDitta_ric; TDitta_ric* a = new TDitta_ric;
a->run(argc, argv,"Scelta ditta per ricezione"); a->run(argc, argv,TR("Scelta ditta per ricezione"));
delete a; delete a;
} }
break; break;
case 'A': case 'A':
{ {
TAnn_mov* a = new TAnn_mov; TAnn_mov* a = new TAnn_mov;
a->run(argc, argv,"Annullamento movimenti da ricevere"); a->run(argc, argv,TR("Annullamento movimenti da ricevere"));
delete a; delete a;
} }
break; break;
case 'V': case 'V':
{ {
TVis_ric* a = new TVis_ric; TVis_ric* a = new TVis_ric;
a->run(argc, argv,"Visualizzazione stato ricezione"); a->run(argc, argv,TR("Visualizzazione stato ricezione"));
delete a; delete a;
} }
break; break;

10
cg/cg6801.cpp
View File

@ -67,10 +67,10 @@ bool TDitta_ric::leggi_trasfer()
_nrec_file = _tras_file.nrec_file(); _nrec_file = _tras_file.nrec_file();
} }
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non presenti trasferimenti attivi sulla ditta selezionata"));
return TRUE; return TRUE;
} }
@ -82,7 +82,7 @@ bool TDitta_ric::esegui_controlli()
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale"); return error_box(TR("Codice ditta NON PRESENTE in archivio oppure NON ATTIVATO in contabilita' generale"));
if (_std == "") if (_std == "")
{ {
@ -90,7 +90,7 @@ bool TDitta_ric::esegui_controlli()
return FALSE; return FALSE;
if (_uselab != "") if (_uselab != "")
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo"); return error_box(TR("Ultimo trasferimento NON COMPLETATO: completarlo"));
if (!controlli()) if (!controlli())
return FALSE; return FALSE;
@ -100,7 +100,7 @@ bool TDitta_ric::esegui_controlli()
TString std = cfd.get("FlStTra"); TString std = cfd.get("FlStTra");
if (std == "") if (std == "")
return error_box ("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta"); return error_box (TR("Non risultano TRASFERIMENTI ATTIVI sulla ditta richiesta"));
return TRUE; return TRUE;
} }

29
cg/cg6802.cpp
View File

@ -112,17 +112,6 @@ bool TAnn_mov::set()
{ {
setta_parametri_record(" ","C"); setta_parametri_record(" ","C");
chiudi_tempfile(); chiudi_tempfile();
/*
TString80 tpmov = get_firm_dir();
tpmov << "\\" << TEMP_MOV;
TString80 tprmov = get_firm_dir();
tprmov << "\\" << TEMP_RMOV;
TString80 tprmoviva = get_firm_dir();
tprmoviva << "\\" << TEMP_RMOVIVA;
pack(TRUE,LF_MOV,tpmov);
pack(TRUE,LF_RMOV,tprmov);
pack(TRUE,LF_RMOVIVA,tprmoviva);*/
} }
chiudi_tempfile(); chiudi_tempfile();
@ -198,7 +187,7 @@ bool TAnn_mov::esiste_testata_mov(TMask& m)
if (_tmov->read() == NOERR) if (_tmov->read() == NOERR)
*_rec_mov = _tmov->curr(); *_rec_mov = _tmov->curr();
else else
return error_box("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"); return error_box(TR("Registrazione richiesta NON PRESENTE tra i movimenti in trasferimento"));
return TRUE; return TRUE;
} }
@ -470,10 +459,10 @@ bool TAnn_mov::leggi_trasfer()
if (_tras_file.read_control_rec()) if (_tras_file.read_control_rec())
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non presenti trasferimenti attivi sulla ditta selezionata"));
return TRUE; return TRUE;
} }
@ -530,7 +519,7 @@ bool TAnn_mov::esegui_controlli()
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"); return error_box(TR("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"));
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
@ -551,24 +540,24 @@ bool TAnn_mov::controlli()
sigla.trim(); sigla.trim();
if (_std == "M" && sigla == "Z" && chiave != "") if (_std == "M" && sigla == "Z" && chiave != "")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "M" && sigla == "U") if (_std == "M" && sigla == "U")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "M" && sigla == "B") if (_std == "M" && sigla == "B")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "*") if (_std == "*")
{ {
warning_box("Trasferimento interamente completato: proseguire per cancellare il file"); warning_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(""," "); setta_parametri_record(""," ");
return FALSE; return FALSE;
} }
if (_std == "T") if (_std == "T")
return error_box("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"); return error_box(TR("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"));
return TRUE; return TRUE;
} }

16
cg/cg6803.cpp
View File

@ -57,18 +57,18 @@ bool TVis_ric::stato_hnd (TMask_field& f, KEY k)
if (!app()._ftrasfer) //_ftrasfer dice se esiste il file trasfer o il suo record di controllo if (!app()._ftrasfer) //_ftrasfer dice se esiste il file trasfer o il suo record di controllo
{ {
if (std != "" && std != "*") if (std != "" && std != "*")
return warning_box("Valore non valido per stato ultima ricezione"); return warning_box(TR("Valore non valido per stato ultima ricezione"));
} }
else else
{ {
if (std != "" && std != "T" && std != "C" && std != "M" && std != "*") if (std != "" && std != "T" && std != "C" && std != "M" && std != "*")
return warning_box("Valore non valido per stato ultima ricezione"); return warning_box(TR("Valore non valido per stato ultima ricezione"));
if (uselab != "" && (std == "" || std == "C" || std == "*") ) if (uselab != "" && (std == "" || std == "C" || std == "*") )
return warning_box("Valore non valido per stato ultima ricezione"); return warning_box(TR("Valore non valido per stato ultima ricezione"));
if (chiave != "" && (std == "" || std == "C" || std == "*") ) if (chiave != "" && (std == "" || std == "C" || std == "*") )
return warning_box("Valore non valido per stato ultima ricezione"); return warning_box(TR("Valore non valido per stato ultima ricezione"));
} }
} }
@ -83,7 +83,7 @@ bool TVis_ric::uselab_hnd (TMask_field& f, KEY k)
TString uselab = f.get(); TString uselab = f.get();
if (std == "" && uselab != "") if (std == "" && uselab != "")
return warning_box("Lo stato ultima ricezione non e' significativo: la sigla ultimo file elaborato non puo' essere significativa"); return warning_box(TR("Lo stato ultima ricezione non e' significativo: la sigla ultimo file elaborato non puo' essere significativa"));
} }
return TRUE; return TRUE;
} }
@ -97,10 +97,10 @@ bool TVis_ric::chiave_hnd (TMask_field& f, KEY k)
TString chiave = f.get(); TString chiave = f.get();
if (std == "" && chiave != "") if (std == "" && chiave != "")
return warning_box("Lo stato ultima ricezione non e' significativo: la chiave ultimo file elaborato non puo' essere significativa"); return warning_box(TR("Lo stato ultima ricezione non e' significativo: la chiave ultimo file elaborato non puo' essere significativa"));
if (uselab == "" && chiave != "") if (uselab == "" && chiave != "")
return warning_box("La sigla ultimo file elaborato non e' significativa: la chiave ultimo file elaborato non puo' essere significativa"); return warning_box(TR("La sigla ultimo file elaborato non e' significativa: la chiave ultimo file elaborato non puo' essere significativa"));
} }
return TRUE; return TRUE;
} }
@ -308,7 +308,7 @@ bool TVis_ric::esegui_controlli()
_dittaric = get_firm(); _dittaric = get_firm();
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"); return error_box(TR("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"));
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;

212
cg/cg6804.cpp
View File

@ -339,25 +339,25 @@ void TVar_sc::descr_condpag(const TString& codpag,int tipopag,const TString& ult
{ {
switch(tipo) switch(tipo)
{ {
case 1: d_condpag = "Rimessa diretta"; case 1: d_condpag = TR("Rimessa diretta");
break; break;
case 2: d_condpag = "Tratta"; case 2: d_condpag = TR("Tratta");
break; break;
case 3: d_condpag = "Ricevuta bancaria"; case 3: d_condpag = TR("Ricevuta bancaria");
break; break;
case 4: d_condpag = "Cessione"; case 4: d_condpag = TR("Cessione");
break; break;
case 5: d_condpag = "Paghero'"; case 5: d_condpag = TR("Paghero'");
break; break;
case 6: d_condpag = "Lettera di credito"; case 6: d_condpag = TR("Lettera di credito");
break; break;
case 7: d_condpag = "Tratta accettata"; case 7: d_condpag = TR("Tratta accettata");
break; break;
case 8: d_condpag = "Rapporti interbancari diretti"; case 8: d_condpag = TR("Rapporti interbancari diretti");
break; break;
case 9: d_condpag = "Bonifico"; case 9: d_condpag = TR("Bonifico");
break; break;
case 10: d_condpag = "Altro"; case 10: d_condpag = TR("Altro");
break; break;
default: break; default: break;
}; };
@ -976,7 +976,7 @@ bool TVar_sc::tipocf_handler(TMask_field& f, KEY k)
{ {
TString16 tipocf(f.get()); TString16 tipocf(f.get());
if (tipocf != "" && tipocf != "C" && tipocf != "F") if (tipocf != "" && tipocf != "C" && tipocf != "F")
return f.warning_box("Tipo anagrafica errato"); return f.warning_box(TR("Tipo anagrafica errato"));
} }
return TRUE; return TRUE;
} }
@ -992,7 +992,7 @@ bool TVar_sc::codcf_handler(TMask_field& f, KEY k)
TString desc; TString desc;
if (!app().descr_conto(tipocf,gruppo,conto,sottoc,desc)) if (!app().descr_conto(tipocf,gruppo,conto,sottoc,desc))
return f.warning_box("Codice anagrafica errato"); return f.warning_box(TR("Codice anagrafica errato"));
} }
return TRUE; return TRUE;
} }
@ -1006,7 +1006,7 @@ bool TVar_sc::rifpart_handler(TMask_field& f, KEY k)
int nriga = atoi(f.get()); int nriga = atoi(f.get());
if (anno == 0 || numpart.empty() || nriga == 0) if (anno == 0 || numpart.empty() || nriga == 0)
return f.warning_box("Riferimento partita errato"); return f.warning_box(TR("Riferimento partita errato"));
} }
return TRUE; return TRUE;
} }
@ -1016,7 +1016,7 @@ bool TVar_sc::datareg_handler(TMask_field& f, KEY k)
if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running()) if ( (k == K_TAB || k == K_ENTER) && f.mask().is_running())
{ {
if ( !(TDate::isdate(f.get())) ) if ( !(TDate::isdate(f.get())) )
return warning_box("Data errata o formato non valido"); return warning_box(TR("Data errata o formato non valido"));
} }
return TRUE; return TRUE;
} }
@ -1031,11 +1031,11 @@ bool TVar_sc::codcaus_handler(TMask_field& f, KEY k)
if (codcaus.not_empty()) if (codcaus.not_empty())
if (!app().descr_caus(codcaus,appoggio)) if (!app().descr_caus(codcaus,appoggio))
return f.warning_box("Valore non valido per codice causale"); return f.warning_box(TR("Valore non valido per codice causale"));
long nreg = f.mask().get_long(113); long nreg = f.mask().get_long(113);
if (nreg != 0 && codcaus.empty()) if (nreg != 0 && codcaus.empty())
return f.warning_box("Se e' indicato il numero di operazione la causale deve essere significativa"); return f.warning_box(TR("Se e' indicato il numero di operazione la causale deve essere significativa"));
if (tipomov == 0) if (tipomov == 0)
f.mask().set(119,app()._tm_caus); f.mask().set(119,app()._tm_caus);
@ -1043,7 +1043,7 @@ bool TVar_sc::codcaus_handler(TMask_field& f, KEY k)
{ {
if (codcaus.not_empty()) if (codcaus.not_empty())
if (tipomov != app()._tm_caus) if (tipomov != app()._tm_caus)
return f.warning_box("Tipo movimento partita non congruo con tipo movimento indicato sulla causale"); return f.warning_box(TR("Tipo movimento partita non congruo con tipo movimento indicato sulla causale"));
} }
} }
return TRUE; return TRUE;
@ -1059,7 +1059,7 @@ bool TVar_sc::datadoc_handler(TMask_field& f, KEY k)
datadoc.trim(); datadoc.trim();
app().descr_caus(codcaus,appoggio); app().descr_caus(codcaus,appoggio);
if (datadoc.empty() && app()._dd_caus) if (datadoc.empty() && app()._dd_caus)
return f.warning_box("Data documento obbligatoria"); return f.warning_box(TR("Data documento obbligatoria"));
} }
return TRUE; return TRUE;
} }
@ -1073,7 +1073,7 @@ bool TVar_sc::numdoc_handler(TMask_field& f, KEY k)
TString numdoc = f.get(); TString numdoc = f.get();
app().descr_caus(codcaus,appoggio); app().descr_caus(codcaus,appoggio);
if (numdoc.empty() && app()._nd_caus) if (numdoc.empty() && app()._nd_caus)
return f.warning_box("Numero documento obbligatorio"); return f.warning_box(TR("Numero documento obbligatorio"));
} }
return TRUE; return TRUE;
} }
@ -1089,11 +1089,11 @@ bool TVar_sc::contocl_handler(TMask_field& f, KEY k)
if (gruppo == 0 && conto == 0) return TRUE; if (gruppo == 0 && conto == 0) return TRUE;
if (!app().tipo_contocl(gruppo,conto,tmcf)) if (!app().tipo_contocl(gruppo,conto,tmcf))
return f.warning_box("Codice conto non esistente su piano dei conti"); return f.warning_box(TR("Codice conto non esistente su piano dei conti"));
TString tipo = f.mask().get(101); TString tipo = f.mask().get(101);
if (tipo != tmcf) if (tipo != tmcf)
return f.warning_box("Tipo conto C/F non congruo con tipo anagrafica"); return f.warning_box(TR("Tipo conto C/F non congruo con tipo anagrafica"));
} }
return TRUE; return TRUE;
} }
@ -1104,12 +1104,12 @@ bool TVar_sc::tipomov_handler(TMask_field& f, KEY k)
{ {
int tipomov = atoi(f.get()); int tipomov = atoi(f.get());
if (tipomov != 1 && tipomov != 2 && tipomov != 3 && tipomov != 5 && tipomov != 6) if (tipomov != 1 && tipomov != 2 && tipomov != 3 && tipomov != 5 && tipomov != 6)
return f.warning_box("Tipo movimento errato"); return f.warning_box(TR("Tipo movimento errato"));
TString appoggio = "";
TString codcaus = f.mask().get(111); TString codcaus = f.mask().get(111);
if (codcaus.not_empty()) if (codcaus.not_empty())
{ {
TString appoggio;
app().descr_caus(codcaus,appoggio); app().descr_caus(codcaus,appoggio);
if (tipomov != app()._tm_caus) if (tipomov != app()._tm_caus)
return f.warning_box("Tipo movimento partita non congruo con tipo movimento indicato sulla causale"); return f.warning_box("Tipo movimento partita non congruo con tipo movimento indicato sulla causale");
@ -1124,7 +1124,7 @@ bool TVar_sc::sezione_handler(TMask_field& f, KEY k)
{ {
TString sezione = f.get(); TString sezione = f.get();
if (sezione != "D" && sezione != "A") if (sezione != "D" && sezione != "A")
return f.warning_box("Sezione dare/avere errata"); return f.warning_box(TR("Sezione dare/avere errata"));
} }
return TRUE; return TRUE;
} }
@ -1137,11 +1137,11 @@ bool TVar_sc::tipopag_handler(TMask_field& f, KEY k)
int tipopag = atoi(f.get()); int tipopag = atoi(f.get());
if (tipomov == 1 && tipopag != 0) if (tipomov == 1 && tipopag != 0)
return f.warning_box("In caso di fattura non e' possibile indicare il tipo pagamento"); return f.warning_box(TR("In caso di fattura non e' possibile indicare il tipo pagamento"));
if (tipomov != 1 && tipomov != 2) if (tipomov != 1 && tipomov != 2)
if (tipopag < 1 || tipopag > 9) if (tipopag < 1 || tipopag > 9)
return f.warning_box("Tipo pagamento errato"); return f.warning_box(TR("Tipo pagamento errato"));
} }
return TRUE; return TRUE;
} }
@ -1155,11 +1155,11 @@ bool TVar_sc::datapag_handler(TMask_field& f, KEY k)
datapag.trim(); datapag.trim();
if (tipomov == 1 && datapag.not_empty()) if (tipomov == 1 && datapag.not_empty())
return f.warning_box("In caso di fattura non e' possibile indicare la data del pagamento"); return f.warning_box(TR("In caso di fattura non e' possibile indicare la data del pagamento"));
if (tipomov != 1) if (tipomov != 1)
if (datapag.empty() || !(TDate::isdate(datapag))) if (datapag.empty() || !(TDate::isdate(datapag)))
return f.warning_box("Se il movimento non e' una fattura la data di pagamento deve essere indicata"); return f.warning_box(TR("Se il movimento non e' una fattura la data di pagamento deve essere indicata"));
} }
return TRUE; return TRUE;
} }
@ -1173,14 +1173,14 @@ bool TVar_sc::codval_handler(TMask_field& f, KEY k)
if (codval.not_empty()) if (codval.not_empty())
{ {
if (!app().codvaluta(codval)) if (!app().codvaluta(codval))
return f.warning_box("Codice valuta non presente in tabella"); return f.warning_box(TR("Codice valuta non presente in tabella"));
TConfig conf (CONFIG_DITTA); TConfig conf (CONFIG_DITTA);
TString valuta = conf.get("GesVal"); TString valuta = conf.get("GesVal");
if (codval.not_empty() && valuta.empty()) if (codval.not_empty() && valuta.empty())
return f.warning_box("Non e' possibile indicare il codice valuta se non indicata la gestione valuta sui parametri ditta"); return f.warning_box(TR("Non e' possibile indicare il codice valuta se non indicata la gestione valuta sui parametri ditta"));
if (codval.empty() && valuta.not_empty()) if (codval.empty() && valuta.not_empty())
return f.warning_box("Il codice valuta deve essere indicato in quanto indicata la gestione in valuta sui parametri ditta"); return f.warning_box(TR("Il codice valuta deve essere indicato in quanto indicata la gestione in valuta sui parametri ditta"));
TString codcaus (f.mask().get(111)); TString codcaus (f.mask().get(111));
if (codcaus.not_empty()) if (codcaus.not_empty())
{ {
@ -1188,9 +1188,9 @@ bool TVar_sc::codval_handler(TMask_field& f, KEY k)
if (app().descr_caus(codcaus,appoggio)) if (app().descr_caus(codcaus,appoggio))
{ {
if (app()._movval && codval.empty()) if (app()._movval && codval.empty())
return f.warning_box("Il codice valuta deve essere indicato in quanto indicata la gestione in valuta sulla causale"); return f.warning_box(TR("Il codice valuta deve essere indicato in quanto indicata la gestione in valuta sulla causale"));
if (!app()._movval && codval.not_empty()) if (!app()._movval && codval.not_empty())
return f.warning_box("Non e' possibile indicare il codice in valuta se non indicato il flag gestione valuta sulla causale"); return f.warning_box(TR("Non e' possibile indicare il codice in valuta se non indicato il flag gestione valuta sulla causale"));
} }
} }
} }
@ -1200,9 +1200,9 @@ bool TVar_sc::codval_handler(TMask_field& f, KEY k)
real cambio (f.mask().get_real(126)); real cambio (f.mask().get_real(126));
if (datacam.ok()) if (datacam.ok())
return f.warning_box("Non e' possibile indicare la data cambio se non e' indicato il codice valuta"); return f.warning_box(TR("Non e' possibile indicare la data cambio se non e' indicato il codice valuta"));
if (cambio != ZERO) if (cambio != ZERO)
return f.warning_box("Non e' possibile indicare il cambio se non e' indicato il codice valuta"); return f.warning_box(TR("Non e' possibile indicare il cambio se non e' indicato il codice valuta"));
} }
} }
return TRUE; return TRUE;
@ -1218,7 +1218,7 @@ bool TVar_sc::datacam_handler(TMask_field& f, KEY k)
if (codval.not_empty()) if (codval.not_empty())
if (datacam.empty() || !(TDate::isdate(datacam))) if (datacam.empty() || !(TDate::isdate(datacam)))
return f.warning_box("Se il codice valuta e' indicato la data cambio deve essere significativa"); return f.warning_box(TR("Se il codice valuta e' indicato la data cambio deve essere significativa"));
} }
return TRUE; return TRUE;
} }
@ -1232,7 +1232,7 @@ bool TVar_sc::cambio_handler(TMask_field& f, KEY k)
if (codval.not_empty()) if (codval.not_empty())
if (cambio == ZERO) if (cambio == ZERO)
return f.warning_box("Se il codice valuta e' indicato il cambio deve essere significativo"); return f.warning_box(TR("Se il codice valuta e' indicato il cambio deve essere significativo"));
} }
return TRUE; return TRUE;
} }
@ -1246,7 +1246,7 @@ bool TVar_sc::nrata_handler(TMask_field& f, KEY k)
int nrata = atoi(f.get()); int nrata = atoi(f.get());
if (nrata == 0) if (nrata == 0)
return f.warning_box("Il numero di rata deve essere significativo"); return f.warning_box(TR("Il numero di rata deve essere significativo"));
} }
return TRUE; return TRUE;
} }
@ -1269,7 +1269,7 @@ bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
cpg.zero(); cpg.zero();
cpg.put("CODTAB", dep); cpg.put("CODTAB", dep);
if (cpg.read() != NOERR) if (cpg.read() != NOERR)
return f.warning_box("Codice di pagamento errato o non presente in tabella"); return f.warning_box(TR("Codice di pagamento errato o non presente in tabella"));
} }
TTable rpg ("%RPG"); TTable rpg ("%RPG");
int tipo; int tipo;
@ -1290,25 +1290,25 @@ bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
{ {
switch(tipo) switch(tipo)
{ {
case 1: descr = "Rimessa diretta"; case 1: descr = TR("Rimessa diretta");
break; break;
case 2: descr = "Tratta"; case 2: descr = TR("Tratta");
break; break;
case 3: descr = "Ricevuta bancaria"; case 3: descr = TR("Ricevuta bancaria");
break; break;
case 4: descr = "Cessione"; case 4: descr = TR("Cessione");
break; break;
case 5: descr = "Paghero'"; case 5: descr = TR("Paghero'");
break; break;
case 6: descr = "Lettera di credito"; case 6: descr = TR("Lettera di credito");
break; break;
case 7: descr = "Tratta accettata"; case 7: descr = TR("Tratta accettata");
break; break;
case 8: descr = "Rapporti interbancari diretti"; case 8: descr = TR("Rapporti interbancari diretti");
break; break;
case 9: descr = "Bonifico"; case 9: descr = TR("Bonifico");
break; break;
case 10: descr = "Altro"; case 10: descr = TR("Altro");
break; break;
default: break; default: break;
}; };
@ -1326,7 +1326,7 @@ bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
if (tipopag != 0) if (tipopag != 0)
{ {
if (tipopag != tipo) if (tipopag != tipo)
return f.warning_box("Il tipo pagamento della scadenza non e' congruo con il tipo pagamento del codice di pagamento"); return f.warning_box(TR("Il tipo pagamento della scadenza non e' congruo con il tipo pagamento del codice di pagamento"));
} }
else else
f.mask().set(112,tipo); f.mask().set(112,tipo);
@ -1350,7 +1350,7 @@ bool TVar_sc::tpscad_handler(TMask_field& f, KEY k)
int tipopag = atoi(f.get()); int tipopag = atoi(f.get());
if (tipopag < 1 || tipopag > 9) if (tipopag < 1 || tipopag > 9)
return f.warning_box("Tipo pagamento errato"); return f.warning_box(TR("Tipo pagamento errato"));
TTable cpg ("%CPG"); TTable cpg ("%CPG");
TString dep (format("%-4s", (const char*) codpag)); TString dep (format("%-4s", (const char*) codpag));
@ -1363,7 +1363,7 @@ bool TVar_sc::tpscad_handler(TMask_field& f, KEY k)
tipo = atoi(cpg.get("S4")); tipo = atoi(cpg.get("S4"));
if (tipopag != tipo) if (tipopag != tipo)
return f.warning_box("Il tipo pagamento della scadenza non e' congruo con il tipo pagamento del codice di pagamento"); return f.warning_box(TR("Il tipo pagamento della scadenza non e' congruo con il tipo pagamento del codice di pagamento"));
} }
return TRUE; return TRUE;
} }
@ -1398,25 +1398,25 @@ bool TVar_sc::ultclass_handler(TMask_field& f, KEY k)
{ {
switch(tipo) switch(tipo)
{ {
case 1: descr = "Rimessa diretta"; case 1: descr = TR("Rimessa diretta");
break; break;
case 2: descr = "Tratta"; case 2: descr = TR("Tratta");
break; break;
case 3: descr = "Ricevuta bancaria"; case 3: descr = TR("Ricevuta bancaria");
break; break;
case 4: descr = "Cessione"; case 4: descr = TR("Cessione");
break; break;
case 5: descr = "Paghero'"; case 5: descr = TR("Paghero'");
break; break;
case 6: descr = "Lettera di credito"; case 6: descr = TR("Lettera di credito");
break; break;
case 7: descr = "Tratta accettata"; case 7: descr = TR("Tratta accettata");
break; break;
case 8: descr = "Rapporti interbancari diretti"; case 8: descr = TR("Rapporti interbancari diretti");
break; break;
case 9: descr = "Bonifico"; case 9: descr = TR("Bonifico");
break; break;
case 10: descr = "Altro"; case 10: descr = TR("Altro");
break; break;
default: break; default: break;
}; };
@ -1441,7 +1441,7 @@ bool TVar_sc::ultclass_handler(TMask_field& f, KEY k)
if (clr.read() == NOERR) if (clr.read() == NOERR)
descr = clr.get("S0"); descr = clr.get("S0");
else else
return f.warning_box("Ulteriore classificazione errata o non presente in tabella"); return f.warning_box(TR("Ulteriore classificazione errata o non presente in tabella"));
f.mask().set(114, descr); f.mask().set(114, descr);
} }
@ -1456,7 +1456,7 @@ bool TVar_sc::datascad_handler(TMask_field& f, KEY k)
datascad.trim(); datascad.trim();
if (datascad.empty() || !(TDate::isdate(datascad))) if (datascad.empty() || !(TDate::isdate(datascad)))
return f.warning_box("Data scadenza errata"); return f.warning_box(TR("Data scadenza errata"));
} }
return TRUE; return TRUE;
} }
@ -1472,25 +1472,25 @@ bool TVar_sc::banca_handler(TMask_field& f, KEY k)
if (id == 120) if (id == 120)
{ {
abi = f.mask().get_long(119); abi = f.mask().get_long(119);
mess = "Codice nostra banca errato o non presente in tabella"; mess = TR("Codice nostra banca errato o non presente in tabella");
} }
else else
if (id == 122) if (id == 122)
{ {
abi = f.mask().get_long(121); abi = f.mask().get_long(121);
mess = "Codice vostra banca errato o non presente in tabella"; mess = TR("Codice vostra banca errato o non presente in tabella");
} }
else else
if (id == 127) if (id == 127)
{ {
abi = f.mask().get_long(126); abi = f.mask().get_long(126);
mess = "Codice nostra banca errato o non presente in tabella"; mess = TR("Codice nostra banca errato o non presente in tabella");
} }
else else
if (id == 129) if (id == 129)
{ {
abi = f.mask().get_long(128); abi = f.mask().get_long(128);
mess = "Codice vostra banca errato o non presente in tabella"; mess = TR("Codice vostra banca errato o non presente in tabella");
} }
if (abi == 0 && cab == 0) return TRUE; if (abi == 0 && cab == 0) return TRUE;
@ -1521,7 +1521,7 @@ bool TVar_sc::datasoll_handler(TMask_field& f, KEY k)
return TRUE; return TRUE;
if (!(TDate::isdate(datasoll))) if (!(TDate::isdate(datasoll)))
return f.warning_box("Data sollecito errata"); return f.warning_box(TR("Data sollecito errata"));
} }
return TRUE; return TRUE;
} }
@ -1533,7 +1533,7 @@ bool TVar_sc::importo_handler(TMask_field& f, KEY k)
real importo (f.get()); real importo (f.get());
if (importo == ZERO) if (importo == ZERO)
return f.warning_box("L'importo del pagamento deve essere significativo"); return f.warning_box(TR("L'importo del pagamento deve essere significativo"));
} }
return TRUE; return TRUE;
} }
@ -1556,10 +1556,10 @@ bool TVar_sc::impval_handler(TMask_field& f, KEY k)
app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask)); app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
if (codval.empty() && importo != ZERO) if (codval.empty() && importo != ZERO)
return f.warning_box("L'importo in valuta della scadenza non puo' essere indicato se non indicato il codice valuta"); return f.warning_box(TR("L'importo in valuta della scadenza non puo' essere indicato se non indicato il codice valuta"));
if (codval.not_empty() && importo == ZERO) if (codval.not_empty() && importo == ZERO)
return f.warning_box("L'importo in valuta della scadenza deve essere significativo"); return f.warning_box(TR("L'importo in valuta della scadenza deve essere significativo"));
} }
return TRUE; return TRUE;
} }
@ -1631,9 +1631,9 @@ bool TVar_sc::rifpartita_handler(TMask_field& f, KEY k)
TString npart = f.mask().get (107); TString npart = f.mask().get (107);
if (!app().record_partite(t,g,c,s,anno,npart,nriga)) if (!app().record_partite(t,g,c,s,anno,npart,nriga))
return f.warning_box("Non esiste la riga partita corrispondente"); return f.warning_box(TR("Non esiste la riga partita corrispondente"));
if (!app().record_scadenze(t,g,c,s,anno,npart,nriga,nrata)) if (!app().record_scadenze(t,g,c,s,anno,npart,nriga,nrata))
return f.warning_box("Non esiste la rata di scadenza corrispondente"); return f.warning_box(TR("Non esiste la rata di scadenza corrispondente"));
} }
return TRUE; return TRUE;
} }
@ -1654,10 +1654,10 @@ bool TVar_sc::accsal_handler(TMask_field& f, KEY k)
int tipo = app().tipo_movimento(t,g,c,s,anno,npart,nriga,*(app()._mask)); int tipo = app().tipo_movimento(t,g,c,s,anno,npart,nriga,*(app()._mask));
if ( (tipo == 2 || tipo == 5) && accsal == "S") if ( (tipo == 2 || tipo == 5) && accsal == "S")
return f.warning_box("Il flag in acconto / a saldo non puo' essere indicato in caso di Nota credito e Insoluto"); return f.warning_box(TR("Il flag in acconto / a saldo non puo' essere indicato in caso di Nota credito e Insoluto"));
if (accsal != "S" && accsal != "A") if (accsal != "S" && accsal != "A")
return f.warning_box("Flag in acconto / a saldo errato"); return f.warning_box(TR("Flag in acconto / a saldo errato"));
} }
return TRUE; return TRUE;
} }
@ -1671,7 +1671,7 @@ bool TVar_sc::passat_handler(TMask_field& f, KEY k)
if (abbuoni != ZERO) if (abbuoni != ZERO)
if (passat != "P" && passat != "A") if (passat != "P" && passat != "A")
return f.warning_box("Flag attivo / passivo errato"); return f.warning_box(TR("Flag attivo / passivo errato"));
} }
return TRUE; return TRUE;
} }
@ -1694,10 +1694,10 @@ bool TVar_sc::impvalp_handler(TMask_field& f, KEY k)
app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask)); app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
if (codval.empty() && importo != ZERO) if (codval.empty() && importo != ZERO)
return f.warning_box("L'importo in valuta del pagamento non puo' essere indicato se non indicato il codice valuta"); return f.warning_box(TR("L'importo in valuta del pagamento non puo' essere indicato se non indicato il codice valuta"));
if (codval.not_empty() && importo == ZERO) if (codval.not_empty() && importo == ZERO)
return f.warning_box("L'importo in valuta del pagamento deve essere significativo"); return f.warning_box(TR("L'importo in valuta del pagamento deve essere significativo"));
} }
return TRUE; return TRUE;
} }
@ -1710,10 +1710,10 @@ bool TVar_sc::sezione_abb_handler(TMask_field& f, KEY k)
real abbuoni (f.mask().get(117)); real abbuoni (f.mask().get(117));
if (sez != "D" && sez != "A" && sez != "") if (sez != "D" && sez != "A" && sez != "")
return f.warning_box("Valore non valido per sezione"); return f.warning_box(TR("Valore non valido per sezione"));
if (abbuoni != ZERO && sez.empty()) if (abbuoni != ZERO && sez.empty())
return f.warning_box("Se gli abbuoni sono significativi la sezione deve essere indicata"); return f.warning_box(TR("Se gli abbuoni sono significativi la sezione deve essere indicata"));
if (sez == "D") if (sez == "D")
f.mask().set(131,"A"); f.mask().set(131,"A");
@ -1744,7 +1744,7 @@ bool TVar_sc::ritenute_handler(TMask_field& f, KEY k)
real ritenute (f.get()); real ritenute (f.get());
int tipomov = app().tipo_movimento(tipo,g,c,s,anno,npart,nriga,*(app()._mask)); int tipomov = app().tipo_movimento(tipo,g,c,s,anno,npart,nriga,*(app()._mask));
if ( (tipomov == 2 || tipomov == 5) && ritenute != ZERO) if ( (tipomov == 2 || tipomov == 5) && ritenute != ZERO)
return f.warning_box("La ritenuta non puo' essere indicata in caso di Nota credito e Insoluto"); return f.warning_box(TR("La ritenuta non puo' essere indicata in caso di Nota credito e Insoluto"));
char sez = app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask)); char sez = app().sezione(tipo,g,c,s,anno,npart,nriga,codval,*(app()._mask));
@ -1783,7 +1783,7 @@ bool TVar_sc::abbuoni_handler(TMask_field& f, KEY k)
TString accsal (f.mask().get(111)); TString accsal (f.mask().get(111));
real abbuoni (f.get()); real abbuoni (f.get());
if (accsal == "A" && abbuoni != ZERO) if (accsal == "A" && abbuoni != ZERO)
return f.warning_box("Gli abbuoni possono essere indicati solo se a SALDO"); return f.warning_box(TR("Gli abbuoni possono essere indicati solo se a SALDO"));
} }
return TRUE; return TRUE;
} }
@ -1796,10 +1796,10 @@ bool TVar_sc::sezione_dc_handler(TMask_field& f, KEY k)
real diffcam (f.mask().get(119)); real diffcam (f.mask().get(119));
if (sez != "D" && sez != "A" && sez != "") if (sez != "D" && sez != "A" && sez != "")
return f.warning_box("Valore non valido per sezione"); return f.warning_box(TR("Valore non valido per sezione"));
if (diffcam != ZERO && sez.empty()) if (diffcam != ZERO && sez.empty())
return f.warning_box("Se la differenza cambio e' significativa la sezione deve essere indicata"); return f.warning_box(TR("Se la differenza cambio e' significativa la sezione deve essere indicata"));
} }
return TRUE; return TRUE;
} }
@ -1823,9 +1823,9 @@ bool TVar_sc::diffcambio_handler(TMask_field& f, KEY k)
TString accsal (f.mask().get(111)); TString accsal (f.mask().get(111));
real diffcam (f.get()); real diffcam (f.get());
if (accsal == "A" && diffcam != ZERO) if (accsal == "A" && diffcam != ZERO)
return f.warning_box("La differenza cambio puo' essere indicata solo se a SALDO"); return f.warning_box(TR("La differenza cambio puo' essere indicata solo se a SALDO"));
if (codval.empty() && diffcam != ZERO) if (codval.empty() && diffcam != ZERO)
return f.warning_box("La differenza cambio puo' essere indicata solo in caso di valuta"); return f.warning_box(TR("La differenza cambio puo' essere indicata solo in caso di valuta"));
} }
return TRUE; return TRUE;
} }
@ -1841,11 +1841,6 @@ bool TVar_sc::contropartita_handler(TMask_field& f, KEY k)
int anno = f.mask().get_int (106); int anno = f.mask().get_int (106);
TString npart = f.mask().get (107); TString npart = f.mask().get (107);
int nriga = f.mask().get_int (110); int nriga = f.mask().get_int (110);
// int tipomov = app().tipo_movimento(tipo,g,c,s,anno,npart,nriga,*(app()._mask));
// if ( (tipomov == 2 || tipomov == 5) && (g != 0 || c != 0 || s != 0) )
// return f.warning_box("La contropartita non puo' essere indicata in caso di Nota credito e Insoluto");
TString tipocf = f.mask().get(121); TString tipocf = f.mask().get(121);
if (tipocf == "C" || tipocf == "F") if (tipocf == "C" || tipocf == "F")
@ -1861,7 +1856,7 @@ bool TVar_sc::contropartita_handler(TMask_field& f, KEY k)
clifo.put(CLI_TIPOCF, tipocf); clifo.put(CLI_TIPOCF, tipocf);
clifo.put(CLI_CODCF, codcf); clifo.put(CLI_CODCF, codcf);
if (clifo.read() != NOERR) if (clifo.read() != NOERR)
return f.warning_box("Codice di contropartita errato o non presente in anagrafica clienti/fornitori"); return f.warning_box(TR("Codice di contropartita errato o non presente in anagrafica clienti/fornitori"));
} }
else else
{ {
@ -1879,7 +1874,7 @@ bool TVar_sc::contropartita_handler(TMask_field& f, KEY k)
pcon.put(PCN_CONTO, conto); pcon.put(PCN_CONTO, conto);
pcon.put(PCN_SOTTOCONTO, sottoc); pcon.put(PCN_SOTTOCONTO, sottoc);
if (pcon.read() != NOERR) if (pcon.read() != NOERR)
return f.warning_box("Codice contropartita errato o non presente in piano conti"); return f.warning_box(TR("Codice contropartita errato o non presente in piano conti"));
} }
} }
@ -1943,7 +1938,7 @@ bool TVar_sc::cancella_partita(TMask_field& f)
int tipomov = f.mask().get_int (119); int tipomov = f.mask().get_int (119);
if (!controlla_abbuoni_diffcam(tipo,gruppo,conto,sottoc,anno,numpart,nriga,0)) if (!controlla_abbuoni_diffcam(tipo,gruppo,conto,sottoc,anno,numpart,nriga,0))
return f.message_box("Impossibile eliminare questa partita in quanto esistono uno o piu' pagamenti riferiti ad essa contenenti abbuoni o differenze cambio"); return f.message_box(TR("Impossibile eliminare questa partita in quanto esistono uno o piu' pagamenti riferiti ad essa contenenti abbuoni o differenze cambio"));
part.setkey(1); part.setkey(1);
part.zero(); part.zero();
@ -2019,7 +2014,7 @@ bool TVar_sc::cancella_partita(TMask_field& f)
} }
} }
else else
return f.warning_box("Non esiste la riga di partita richiesta sull'archivio delle partite"); return f.warning_box(TR("Non esiste la riga di partita richiesta sull'archivio delle partite"));
return TRUE; return TRUE;
} }
@ -2141,7 +2136,7 @@ bool TVar_sc::cancella_scadenza(TMask_field& f)
int nrata = f.mask().get_int (109); int nrata = f.mask().get_int (109);
if (!controlla_abbuoni_diffcam(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata)) if (!controlla_abbuoni_diffcam(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata))
return f.message_box("Impossibile eliminare questa scadenza in quanto esistono uno o piu' pagamenti riferiti ad essa contenenti abbuoni o differenze cambio"); return f.message_box(TR("Impossibile eliminare questa scadenza in quanto esistono uno o piu' pagamenti riferiti ad essa contenenti abbuoni o differenze cambio"));
scad.setkey(1); scad.setkey(1);
scad.zero(); scad.zero();
@ -2161,7 +2156,7 @@ bool TVar_sc::cancella_scadenza(TMask_field& f)
sgancia_pagamenti(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata); sgancia_pagamenti(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata);
} }
else else
return f.warning_box("Non esiste la scadenza richiesta sull'archivio delle scadenze"); return f.warning_box(TR("Non esiste la scadenza richiesta sull'archivio delle scadenze"));
return TRUE; return TRUE;
} }
@ -2206,7 +2201,7 @@ bool TVar_sc::cancella_pagamenti(TMask_field& f)
pagsca.remove(); pagsca.remove();
} }
else else
return f.warning_box("Non esiste il pagamento richiesto sull'archivio dei pagamenti"); return f.warning_box(TR("Non esiste il pagamento richiesto sull'archivio dei pagamenti"));
return TRUE; return TRUE;
} }
@ -2555,10 +2550,10 @@ bool TVar_sc::leggi_trasfer()
if (_tras_file.read_control_rec()) if (_tras_file.read_control_rec())
_control_rec = _tras_file.record(); _control_rec = _tras_file.record();
else else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta"); return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
} }
else else
return error_box("Al momento non presenti trasferimenti attivi sulla ditta selezionata"); return error_box(TR("Al momento non presenti trasferimenti attivi sulla ditta selezionata"));
return TRUE; return TRUE;
} }
@ -2570,8 +2565,7 @@ bool TVar_sc::esegui_controlli()
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
//return error_box("Rilevati gravi errori negli archivi: procedura interrotta"); return error_box(TR("Gli archivi della ditta %05ld non esistono."), _dittaric);
return error_box("Gli archivi della ditta %05ld non esistono.", _dittaric);
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
@ -2606,28 +2600,28 @@ bool TVar_sc::controlli()
sigla.trim(); sigla.trim();
if (_std == "M" && sigla == "Z" && chiave != "") if (_std == "M" && sigla == "Z" && chiave != "")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "M" && sigla == "U") if (_std == "M" && sigla == "U")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
if (_std == "M" && sigla == "B") if (_std == "M" && sigla == "B")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti saldaconto gia' iniziato"); return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti saldaconto gia' iniziato"));
if (_std == "*") if (_std == "*")
{ {
warning_box("Trasferimento interamente completato: proseguire per cancellare il file"); warning_box(TR("Trasferimento interamente completato: proseguire per cancellare il file"));
_tras_file.remove_all(); _tras_file.remove_all();
setta_parametri_record(" "," "); setta_parametri_record(" "," ");
return FALSE; return FALSE;
} }
if (_std == "T") if (_std == "T")
return error_box("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"); return error_box(TR("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"));
const bool is_sc = _control_rec.sub(86,95).find('B') >= 0; const bool is_sc = _control_rec.sub(86,95).find('B') >= 0;
if (!is_sc) if (!is_sc)
return error_box("Variazione NON POSSIBILE: non esistono movimenti saldaconto."); return error_box(TR("Variazione NON POSSIBILE: non esistono movimenti saldaconto."));
return TRUE; return TRUE;
} }