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

14
cg/cg6100.cpp

@ -119,15 +119,15 @@ void TRic_auto::main_loop()
::remove(trasf);
TConfig conf (CONFIG_DITTA); // Inizializzo stato trasferimento
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()
{
if (!prefix().exist(_ditta)) // Controllo esistenza ditta
return error_box("Rilevati ERRORI GRAVI nel trasferimento:\n"
"non esiste la ditta %05ld", _ditta);
return error_box(FR("Rilevati ERRORI GRAVI nel trasferimento:\n"
"non esiste la ditta %05ld"), _ditta);
set_firm(_ditta);
@ -137,7 +137,7 @@ bool TRic_auto::controlli_preliminari()
if (std.empty())
{
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
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
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 key = _tras_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 == "*")
{
@ -383,7 +383,7 @@ int cg6100 (int argc, char* argv[])
p4 = *argv[4];
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;
return TRUE;
}

7
cg/cg6300.cpp

@ -52,7 +52,7 @@ HIDDEN bool ditta_handler(TMask_field& f, KEY k)
return TRUE;
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;
}
}
@ -82,7 +82,8 @@ bool Tabtra_application::user_create()
{
Tab_application::user_create();
_msk = get_mask();
open_files(LF_TABCOM, LF_TAB, 0);
_msk = get_mask();
_tabname = get_tabname();
if (_tabname == "%TRA")
@ -98,7 +99,7 @@ cg6300(int argc, char* argv[])
{
Tabtra_application* a= new Tabtra_application;
a->run(argc,argv, "Tabelle");
a->run(argc,argv, TR("Tabelle"));
delete a;
return 0;
}

54
cg/cg6400.cpp

@ -78,11 +78,11 @@ TRic_archivi::TRic_archivi(char ric_trasfer,char ric_auto) :
_scelta(toupper(ric_trasfer)), _ric_auto(toupper(ric_auto))
{
if (_scelta == 'S')
_titolo = "Ricezione archivi da sistema";
_titolo = TR("Ricezione archivi da sistema");
else
{
_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 (_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
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;
@ -187,14 +187,14 @@ bool TRic_archivi::leggi_marker()
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);
return FALSE;
}
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;
fclose(i);
return TRUE;
@ -205,7 +205,7 @@ bool TRic_archivi::leggi_marker()
if (letti == 0)
{
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);
@ -219,7 +219,7 @@ bool TRic_archivi::leggi_marker()
if (_numdisk > 1) //Va fatto solo dal disco 2 in poi
if (_nomeid != _nomeidp || _dittainv != _dittainvp || _totrectras != _totrectrasp
|| _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;
_dittainvp = _dittainv;
@ -236,10 +236,10 @@ bool TRic_archivi::leggi_marker()
if (_dittaric != 0)
{
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
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;
@ -255,9 +255,9 @@ bool TRic_archivi::leggi_marker_rep()
if (!fexist(_marker))
{
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
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;
@ -274,7 +274,7 @@ bool TRic_archivi::leggi_marker_rep()
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;
return TRUE;
}
@ -282,7 +282,7 @@ bool TRic_archivi::leggi_marker_rep()
_sequenza = TRUE;
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);
_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 (_nomeid != _nomeidp || _dittainv != _dittainvp || _totrectras != _totrectrasp
|| _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;
_dittainvp = _dittainv;
@ -309,16 +309,16 @@ bool TRic_archivi::leggi_marker_rep()
if (_dittaric != 0)
{
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
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 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()
@ -368,7 +368,7 @@ void TRic_archivi::main_loop()
if (_disketto)
{
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())
return;
@ -435,7 +435,7 @@ void TRic_archivi::main_loop()
if (_disketto)
{
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())
return;
@ -560,10 +560,10 @@ int TRic_archivi::controllo_ripartenza()
bool TRic_archivi::ripartenza()
{
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)
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;
}
@ -630,12 +630,12 @@ bool TRic_archivi::video_ripartenza()
return FALSE;
if (_numinv > (_nultras_tab + 1))
warning_box("Trasferimento FUORI SEQUENZA: manca un trasferimento intermedio.\n"
"Numero invio n. %d, ultimo trasferimento n. %d.", _numinv, _nultras_tab);
warning_box(FR("Trasferimento FUORI SEQUENZA: manca un trasferimento intermedio.\n"
"Numero invio n. %d, ultimo trasferimento n. %d."), _numinv, _nultras_tab);
else
if (_numinv < (_nultras_tab +1))
warning_box("I dischetti risultano GIA' TRASFERITI.\n"
"Numero invio n. %d, ultimo trasferimento n. %d.", _numinv, _nultras_tab);
warning_box(FR("I dischetti risultano GIA' TRASFERITI.\n"
"Numero invio n. %d, ultimo trasferimento n. %d."), _numinv, _nultras_tab);
else
return TRUE;
}
@ -656,7 +656,7 @@ bool TRic_archivi::baipassa(TMask& m,KEY k)
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)
{

54
cg/cg6500.cpp

@ -113,10 +113,10 @@ bool Tabinv_application::stato_invio(TMask_field& f, KEY k)
TString sigla = f.mask().get(F_USELAB);
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 != "") )
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)
@ -128,7 +128,7 @@ bool Tabinv_application::stato_invio(TMask_field& f, KEY k)
if (stato != '\0' && app()._disable)
{
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))
{
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;
}
}
@ -217,7 +217,7 @@ bool Tabinv_application::almeno_un_flag(TMask_field& f, KEY k)
bool fat = f.mask().get_bool(F_FATT);
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);
@ -230,7 +230,7 @@ bool Tabinv_application::almeno_un_flag(TMask_field& f, KEY k)
bool causali = f.mask().get_bool(F_CAUSALI);
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;
@ -251,7 +251,7 @@ bool Tabinv_application::clifo_comune(TMask_field& f, KEY k)
bool clifo = f.mask().get_bool(F_CLIFO);
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;
@ -272,7 +272,7 @@ bool Tabinv_application::pcon_comune(TMask_field& f, KEY k)
bool pcon = f.mask().get_bool(F_PCON);
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;
@ -287,12 +287,12 @@ bool Tabinv_application::prima_nota(TMask_field& f, KEY k)
if (!pn && f.mask().get_bool(F_IVA) )
{
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) )
{
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());
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())
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;
@ -352,12 +352,8 @@ bool Tabinv_application::sigla_file(TMask_field& f, KEY k)
TString sigla = f.get();
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();
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);
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;
@ -400,7 +396,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
{
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;
}
}
@ -440,7 +436,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
f.mask().set(F_STATO, "");
f.mask().set(F_NUMULINV, "");
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
@ -473,7 +469,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
long codditta = f.mask().get_long(F_DITTAINV);
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;
@ -488,28 +484,28 @@ bool Tabinv_application::controlli_hnd(TMask_field& f, KEY k)
TDate data (f.mask().get(F_DATAULIN));
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())
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);
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 != "")
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);
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 != "")
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;
}
@ -770,7 +766,7 @@ cg6500(int argc, char* argv[])
{
Tabinv_application* a = new Tabinv_application;
a->run(argc,argv, "Tabelle");
a->run(argc,argv, TR("Tabelle"));
delete a;
return 0;
}

50
cg/cg6600.cpp

@ -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))
{
if (_scelta == 'T')
_titolo = "Ricezione tabelle";
_titolo = TR("Ricezione tabelle");
if (_scelta == 'M')
_titolo = "Ricezione movimenti";
_titolo = TR("Ricezione movimenti");
}
void TRic_tab::on_config_change()
@ -257,7 +257,7 @@ void TRic_tab::main_loop()
if (posiz >= 0)
{
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();
TString str;
str.spaces(60);
@ -267,7 +267,7 @@ void TRic_tab::main_loop()
else
{
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(" ","*");
_tras_file.remove_all();
setta_parametri_record(" "," ");
@ -284,7 +284,7 @@ void TRic_tab::main_loop()
trasferimento();
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(" ","*");
_tras_file.remove_all();
setta_parametri_record(" "," ");
@ -327,27 +327,27 @@ void TRic_tab::trasferimento()
switch (sigla)
{
case 'W':
message = "Ricezione tabella causali in corso... Prego attendere.";
message = TR("Ricezione tabella causali in corso... Prego attendere.");
cicli = _tcaus->items();
break;
case 'A':
message = "Ricezione anagrafica Clienti / Fornitori in corso... Prego attendere.";
message = TR("Ricezione anagrafica Clienti / Fornitori in corso... Prego attendere.");
cicli = _tclifo->items();
break;
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();
break;
case 'Z':
message = "Ricezione Movimenti di primanota in corso... Prego attendere.";
message = TR("Ricezione Movimenti di primanota in corso... Prego attendere.");
cicli = _tmov->items();
break;
case 'U':
message = "Ricezione Movimenti iva in corso... Prego attendere.";
message = TR("Ricezione Movimenti iva in corso... Prego attendere.");
cicli = _tmov->items();
break;
case 'B':
message = "Ricezione Movimenti saldaconto in corso... Prego attendere.";
message = TR("Ricezione Movimenti saldaconto in corso... Prego attendere.");
cicli = _tpart->items();
break;
default: break;
@ -1592,10 +1592,10 @@ bool TRic_tab::leggi_trasfer()
_record = _tras_file.record();
}
else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
}
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;
}
@ -1630,7 +1630,7 @@ bool TRic_tab::video()
return FALSE;
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())
return FALSE;
@ -1670,7 +1670,7 @@ bool TRic_tab::controllo_pre_ricezione()
{
flag = "C";
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")
@ -1699,43 +1699,43 @@ bool TRic_tab::controlli()
if (_scelta == 'T')
{
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")
return error_box("Aggiornamento tabelle gia' effettuato: richiamare Trasferimento movimenti");
return error_box(TR("Aggiornamento tabelle gia' effettuato: richiamare Trasferimento movimenti"));
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();
setta_parametri_record(" "," ");
return FALSE;
}
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") )
return error_box("Rilevati gravi errori negli archivi: procedura interrotta");
return error_box(TR("Rilevati gravi errori negli archivi: procedura interrotta"));
}
else
if (_scelta == 'M')
{
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")
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") )
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")
error_box("Rilevati GRAVI ERRORI negli archivi: procedura interrotta");
error_box(TR("Rilevati GRAVI ERRORI negli archivi: procedura interrotta"));
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();
setta_parametri_record(" "," ");
return FALSE;

266
cg/cg6700.cpp

@ -27,47 +27,47 @@
#include "cglib04.h"
#include "cg6700.h"
HIDDEN const char* err_msg[] = {"*** Data operazione non valida", // 0
"*** Data operazione non compresa in alcun esercizio",
"*** Data competenza non valida",
"*** Data competenza non compresa in alcun esercizio",
"--- Data competenza incompatibile con data operazione",
"*** Data operazione antecedente ad ultima stampa giornale", // 5
"--- Data documento non valida",
"*** Codice causale non valido o non presente in archivio",
"--- Codice pagamento non valido o non presente in tabella",
"*** Codice registro IVA non valido o non presente in tabella",
"*** Codice cliente/fornitore non valido o non presente in anagrafica", // 10
"--- Data 74 ter non valida",
"*** Data operazione antecedente ad ultima stampa registro IVA",
"*** Tipo anagrafico C/F errato",
"*** Codice anagrafico C/F/Piano Conti errato",
"*** Rif. partite saldaconto errato", // 15
"--- Codice valuta errato",
"*** Data cambio non valida",
"*** Data pagamento/incasso non valida",
"*** Tipo pagamento errato",
"*** Segno D/A errato", // 20
"*** Cambio mancante",
"*** Gruppo/Conto errato",
"*** Rif. rata partite saldaconto errato",
"*** Data scadenza non valida",
"--- Ulteriore classificazione non valida o non presente in archivio", // 25
"*** Importo rata in lire mancante",
"*** Importo rata in valuta mancante",
"--- Codice Nostra banca non valido o non presente in archivio",
"--- Codice Vostra banca non valido o non presente in archivio",
"--- Codice agente non valido o non presente in archivio", // 30
"--- Data sollecito non valida",
"*** Rif. fattura errato",
"*** Rif. rata fattura errato",
"*** In acconto/a saldo errato",
"*** Importo inc./pag. in lire mancante", // 35
"*** Importo inc./pag. in valuta mancante",
"*** Flag abbuono attivo/passivo errato",
"*** Codice valuta errato",
"*** Tipo movimento causale non congruo con tipo movimento saldaconto",
"--- Tipo pagamento del codice di pagamento non congruo con tipo pagamento del saldaconto"};
HIDDEN const char* err_msg[] = {TR("*** Data operazione non valida"), // 0
TR("*** Data operazione non compresa in alcun esercizio"),
TR("*** Data competenza non valida"),
TR("*** Data competenza non compresa in alcun esercizio"),
TR("--- Data competenza incompatibile con data operazione"),
TR("*** Data operazione antecedente ad ultima stampa giornale"), // 5
TR("--- Data documento non valida"),
TR("*** Codice causale non valido o non presente in archivio"),
TR("--- Codice pagamento non valido o non presente in tabella"),
TR("*** Codice registro IVA non valido o non presente in tabella"),
TR("*** Codice cliente/fornitore non valido o non presente in anagrafica"), // 10
TR("--- Data 74 ter non valida"),
TR("*** Data operazione antecedente ad ultima stampa registro IVA"),
TR("*** Tipo anagrafico C/F errato"),
TR("*** Codice anagrafico C/F/Piano Conti errato"),
TR("*** Rif. partite saldaconto errato"), // 15
TR("--- Codice valuta errato"),
TR("*** Data cambio non valida"),
TR("*** Data pagamento/incasso non valida"),
TR("*** Tipo pagamento errato"),
TR("*** Segno D/A errato"), // 20
TR("*** Cambio mancante"),
TR("*** Gruppo/Conto errato"),
TR("*** Rif. rata partite saldaconto errato"),
TR("*** Data scadenza non valida"),
TR("--- Ulteriore classificazione non valida o non presente in archivio"), // 25
TR("*** Importo rata in lire mancante"),
TR("*** Importo rata in valuta mancante"),
TR("--- Codice Nostra banca non valido o non presente in archivio"),
TR("--- Codice Vostra banca non valido o non presente in archivio"),
TR("--- Codice agente non valido o non presente in archivio"), // 30
TR("--- Data sollecito non valida"),
TR("*** Rif. fattura errato"),
TR("*** Rif. rata fattura errato"),
TR("*** In acconto/a saldo errato"),
TR("*** Importo inc./pag. in lire mancante"), // 35
TR("*** Importo inc./pag. in valuta mancante"),
TR("*** Flag abbuono attivo/passivo errato"),
TR("*** Codice valuta errato"),
TR("*** Tipo movimento causale non congruo con tipo movimento saldaconto"),
TR("--- Tipo pagamento del codice di pagamento non congruo con tipo pagamento del saldaconto")};
class TRic_ListaMov : public TPrintapp
{
@ -308,7 +308,7 @@ bool TRic_ListaMov::user_create()
if (_ric_auto != 'A')
{
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);
@ -357,45 +357,13 @@ bool TRic_ListaMov::user_create()
TString80 tmppart = "%";
tmppart << get_firm_dir();
tmppart << "\\" << TEMP_PART;
/* TString80 tmpscad = "%";
tmpscad << get_firm_dir();
tmpscad << "\\" << TEMP_SCAD;
TString80 tmppagsca = "%";
tmppagsca << get_firm_dir();
tmppagsca << "\\" << TEMP_PAGSCA;
*/
_is_salda = FALSE;
tmp = tmppart.mid(1);
tmp << ".dbf";
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;
/*
_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();
@ -478,7 +446,7 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
long ditta_ric = get_firm();
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();
@ -487,10 +455,10 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
_pathfile = _pathfile << HEADER;
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())
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();
@ -498,16 +466,16 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
if (sd.not_empty())
_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')
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')
return yesno_box("Controllo gia' effettuato: si desidera ripeterlo ?");
return yesno_box(TR("Controllo gia' effettuato: si desidera ripeterlo ?"));
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 key = tr.key();
@ -517,12 +485,12 @@ bool TRic_ListaMov::check_archivi(TProgind* pnd)
if (_sdt == 'C')
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 == '*')
{
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);
@ -939,14 +907,14 @@ void TRic_ListaMov::stampa_errori_rmov(int riga)
if (_gruppo == 0 || _conto == 0 || _sottoconto == 0l)
{
_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
{
if (!_esiste_conto)
{
_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') )
{
_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')
@ -963,16 +931,14 @@ void TRic_ListaMov::stampa_errori_rmov(int riga)
_tot_avere += _importo;
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);
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)
set_row(++riga, "@8g--- Importo riga uguale a zero");
set_row(++riga, FR("@8g--- Importo riga uguale a zero"));
}
bool TRic_ListaMov::controlla_riva()
@ -1096,22 +1062,16 @@ bool TRic_ListaMov::controlla_riva()
if (iva.read() != NOERR)
{
no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
}
if ( tipocr != 0 && tipocr != 1 && tipocr != 2 && tipocr != 3 &&
tipocr != 4 && tipocr != 5 && tipocr != 8 && tipocr != 9 )
{
no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
}
if (gruppocr == 0 || contocr == 0 || sottocontocr == 0l)
{
no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
}
else if (gruppocr != 0 && contocr != 0 && sottocontocr != 0l)
{
@ -1119,15 +1079,11 @@ bool TRic_ListaMov::controlla_riva()
if (!ok)
{
no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
}
}
if (tipodet != 0 && tipodet != 1 && tipodet != 3 && tipodet != 9)
{
no_grave = TRUE;
// rmoviva.readat(nrec);
// return TRUE;
}
}
if (no_grave)
@ -1147,23 +1103,23 @@ void TRic_ListaMov::stampa_errori_riva(int riga)
iva.zero();
iva.put("CODTAB", _codiva);
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 &&
_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)
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)
{
bool ok = errori_partita(_gruppocr,_contocr,_sottocontocr);
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)
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)
@ -1652,25 +1608,25 @@ void TRic_ListaMov::descrizione_pagamento(TString& descr,int tipopag,TString& ul
{
switch(tipo)
{
case 1: descr = "Rimessa diretta";
case 1: descr = TR("Rimessa diretta");
break;
case 2: descr = "Tratta";
case 2: descr = TR("Tratta");
break;
case 3: descr = "Ricevuta bancaria";
case 3: descr = TR("Ricevuta bancaria");
break;
case 4: descr = "Cessione";
case 4: descr = TR("Cessione");
break;
case 5: descr = "Paghero'";
case 5: descr = TR("Paghero'");
break;
case 6: descr = "Lettera di credito";
case 6: descr = TR("Lettera di credito");
break;
case 7: descr = "Tratta accettata";
case 7: descr = TR("Tratta accettata");
break;
case 8: descr = "Rapporti interbancari diretti";
case 8: descr = TR("Rapporti interbancari diretti");
break;
case 9: descr = "Bonifico";
case 9: descr = TR("Bonifico");
break;
case 10: descr = "Altro";
case 10: descr = TR("Altro");
break;
default: break;
};
@ -1711,8 +1667,8 @@ void TRic_ListaMov::stampa_errori_scadenze(int riga)
if (_prima_rata_pag)
{
set_row(riga,"@26gN.rata Data scad. Sez Importo Importo valuta");
set_row(riga++,"@88gCond.pagamento Nostra banca Vostra banca Agente");
set_row(riga,FR("@26gN.rata Data scad. Sez Importo Importo valuta"));
set_row(riga++,FR("@88gCond.pagamento Nostra banca Vostra banca Agente"));
_prima_rata_pag = FALSE;
}
set_row(riga,"@27g%4d", nrata);
@ -1980,8 +1936,8 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
if (_prima_rata_pag)
{
set_row(riga,"@22gRif. rata acc./saldo Sez Importo Importo valuta Contropartita");
set_row(riga++,"@158gNostra banca Vostra banca Agente");
set_row(riga,FR("@22gRif. rata acc./saldo Sez Importo Importo valuta Contropartita"));
set_row(riga++,FR("@158gNostra banca Vostra banca Agente"));
_prima_rata_pag = FALSE;
}
else
@ -2018,7 +1974,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
riga++;
set_row(riga,"@51g%c", _sez);
set_row(riga,"@55g%r", &ritenute);
set_row(riga,"@88gRitenute professionali");
set_row(riga,FR("@88gRitenute professionali"));
}
if (abbuoni != ZERO)
{
@ -2042,7 +1998,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
set_row(riga,"@88gAbbuoni attivi");
else
if (passat == 'P')
set_row(riga,"@88gAbbuoni passivi");
set_row(riga,FR("@88gAbbuoni passivi"));
}
if (diffcam != ZERO)
{
@ -2059,7 +2015,7 @@ void TRic_ListaMov::stampa_errori_pagsca(int riga)
}
set_row(riga,"@51g%c", sezione);
set_row(riga,"@55g%r", &diffcam);
set_row(riga,"@88gDifferenza cambio");
set_row(riga,FR("@88gDifferenza cambio"));
}
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]);
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 = " - - ";
int r = 1;
set_row(r++, "");
set_row(r,"Operazione n. %-7ld", _numero);
set_row(r," del %s", (const char*)datareg_str);
set_row(r," doc. n. %-7s", (const char*)_numdoc);
set_row(r," del %s", (const char*)datadoc_str);
set_row(r,FR("Operazione n. %-7ld"), _numero);
set_row(r,FR(" del %s"), (const char*)datareg_str);
set_row(r,FR(" doc. n. %-7s"), (const char*)_numdoc);
set_row(r,FR(" del %s"), (const char*)datadoc_str);
if (!_registro.blank()) //e' una fattura
{
set_row(r," registro IVA %-3s", (const char*)_registro);
set_row(r," protocollo n. %-5ld", _protiva);
set_row(r,FR(" registro IVA %-3s"), (const char*)_registro);
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
const int meseliq = cur->curr(LF_MOV).get_int(MOV_MESELIQ);
if (meseliq > 0)
set_row(r, " mese liq. %d", meseliq);
set_row(r, FR(" mese liq. %d"), meseliq);
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, "@5gImponibile@16g%r",&_impo_print);
set_row(r, "@32gImposta@40g%r", &_impos_print);
set_row(r, "@56gCodice@63g%4s", (const char*) _codiva);
set_row(r, FR("@5gImponibile@16g%r"),&_impo_print);
set_row(r, FR("@32gImposta@40g%r"), &_impos_print);
set_row(r, FR("@56gCodice@63g%4s"), (const char*) _codiva);
set_row(r, "@68g%s", (const char*) codiva_des);
if (_tipod != 0)
@ -2376,12 +2332,12 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
TString ccf;
if (_tipocf == 'C')
ccf = "Cliente: ";
ccf = TR("Cliente: ");
else
if (_tipocf == 'F')
ccf = "Fornitore:";
ccf = TR("Fornitore:");
else
ccf = "Conto: ";
ccf = TR("Conto: ");
// I riga di testata
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)
if (_tipocf != _tipocf_p || _gruppo != _gruppo_p || _conto != _conto_p ||
_codcf != _codcf_p || _numpart != _numpart_prec || _anno != _anno_prec)
set_row(r,"@0g@rRif. partita");
set_row(r,"@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("@0g@rRif. partita"));
set_row(r,FR("@14gN.riga@22gN.operaz./riga Data oper. Data doc. N.doc. Reg Prot. Causale"));
set_row(r++,FR("@142gTipo/Data pag. Cod.val Cambio Data cambio Sez"));
if (_tipocf != _tipocf_p || _gruppo != _gruppo_p || _conto != _conto_p ||
_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)
{
_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);
return REPEAT_PAGE;
}
@ -2527,7 +2483,7 @@ void TRic_ListaMov::postclose_print()
if (_ric_auto == 'A')
{
_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();
if (!_continua)
_record.overwrite(" ",240); //_record e' letto nella read_control_rec()
@ -2543,7 +2499,7 @@ void TRic_ListaMov::postclose_print()
}
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();
_record.overwrite(" ",240); //_record e' letto nella read_control_rec()
const int size = 1024;
@ -2557,7 +2513,7 @@ void TRic_ListaMov::postclose_print()
if (_ric_auto == 'A')
_risposta = TRUE;
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);
conf.set("FlStTra", "M");
@ -3171,10 +3127,10 @@ bool TRic_ListaMov::set_print(int m)
_pathfile = _pathfile << HEADER;
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())
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();
if (_tipo_lista == 'A')
@ -3290,38 +3246,38 @@ void TRic_ListaMov::setta_intestazione()
if (_intestaSC)
{
sep1 << "Ditta " << get_firm();
sep1 << TR("Ditta ") << get_firm();
sep1 << " " << ragsoc;
sep1.left_just(198);
set_header (soh++, (const char*) sep1);
sep1 = "";
sep1 << "Data @< Pag. @#";
sep1 << FR("Data @< Pag. @#");
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);
sep1.fill('-');
set_header (soh++, (const char *) sep1);
}
else
{
sep << "Ditta " << get_firm();
sep << TR("Ditta ") << get_firm();
sep << " " << ragsoc;
sep.left_just(132);
set_header (soh++, (const char*) sep);
sep = "";
sep << "Data @< Pag. @#";
sep << FR("Data @< Pag. @#");
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);
sep.fill('-');
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);
}
}
@ -3351,7 +3307,7 @@ int cg6700 (int argc, char* argv[])
p2 = *argv[3];
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;
return TRUE;
}

94
cg/cg6800.cpp

@ -139,11 +139,11 @@ TVar_mov::TVar_mov(char mov) : _scelta(toupper(mov))
switch (_scelta)
{
case 'P':
_titolo = "Variazione movimenti prima nota";
_titolo = TR("Variazione movimenti prima nota");
break;
case 'I':
_titolo = "Variazione movimenti iva";
_titolo = TR("Variazione movimenti iva");
break;
default:
@ -247,7 +247,7 @@ bool TVar_mov::main_loop()
apri_temp_file();
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')
{
@ -486,7 +486,7 @@ bool TVar_mov::esiste_testata_mov(TMask& m)
_trmov->read();
long nr = _trmov->get_long(RMV_NUMREG);
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
if (_scelta == 'I')
@ -497,13 +497,13 @@ bool TVar_mov::esiste_testata_mov(TMask& m)
_tiva->read();
long nr = _tiva->get_long(RMI_NUMREG);
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();
}
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;
}
@ -521,7 +521,7 @@ bool TVar_mov::esiste_riga_mov(TMask& m)
if (_trmov->read() == NOERR)
*_rec_rmov = _trmov->curr();
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;
}
@ -539,7 +539,7 @@ bool TVar_mov::esiste_riga_iva(TMask& m)
if (_tiva->read() == NOERR)
*_rec_riva = _tiva->curr();
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;
}
@ -702,10 +702,10 @@ bool TVar_mov::setta_campi_maschera_iva(TMask& m)
if (regiva.not_empty())
{
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
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_NUMRIG, _numrig);
@ -821,7 +821,7 @@ bool TVar_mov::codice_registro_hnd(TMask_field& f, KEY k)
{
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 (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;
@ -857,7 +857,7 @@ bool TVar_mov::codice_causale_hnd(TMask_field& f, KEY k)
{
const TString& 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;
@ -873,7 +873,7 @@ bool TVar_mov::numero_protocollo_hnd(TMask_field& f, KEY k)
if (codreg.empty())
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;
}
@ -888,11 +888,11 @@ bool TVar_mov::ultimo_protocollo_hnd(TMask_field& f, KEY k)
if (codreg.empty())
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 (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;
}
@ -919,7 +919,7 @@ bool TVar_mov::codice_pagamento_hnd(TMask_field& f, KEY k)
{
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 ( !(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();
if (datacomp.empty())
@ -956,8 +956,8 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
if (ae != ar && ae != pr)
{
TString80 e;
e << "La data di competenza deve appartenere all'esercizio " << ar;
if (pr > 0) e << " o al " << pr;
e << TR("La data di competenza deve appartenere all'esercizio ") << ar;
if (pr > 0) e << TR(" o al ") << pr;
return f.error_box(e);
}
f.mask().set(F_ANNO, ae);
@ -965,7 +965,7 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
else
{
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 ( !(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));
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
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);
@ -996,7 +996,7 @@ bool TVar_mov::data_stampa(TMask_field& f, KEY k)
TRegistro rg (codreg, ae);
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;
@ -1019,7 +1019,7 @@ bool TVar_mov::controllo_partita(TMask_field& f, KEY k)
if (k == K_ENTER)
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;
@ -1043,7 +1043,7 @@ bool TVar_mov::controllo_contropartita(TMask_field& f, KEY k)
if (k == K_ENTER)
if (gruppo != 0 && conto != 0 && sottoc != 0)
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;
@ -1057,9 +1057,9 @@ bool TVar_mov::controllo_importo(TMask_field& f, KEY k)
char sezione = f.mask().get(F_SEZIONE)[0];
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)
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;
@ -1090,7 +1090,7 @@ bool TVar_mov::codice_clifo_hnd(TMask_field& f, KEY k)
{
TString 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));
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 (!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));
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;
@ -1222,7 +1222,7 @@ bool TVar_mov::detraibilita_hnd(TMask_field& f, KEY k)
int det = atoi(f.get());
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;
@ -1236,7 +1236,7 @@ bool TVar_mov::tipocr_hnd(TMask_field& f, KEY k)
if (tcr != 0 && tcr != 1 && tcr != 2 && tcr != 3
&& 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;
@ -1247,7 +1247,7 @@ bool TVar_mov::data(TMask_field& f, KEY k)
if (k == K_ENTER)
{
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;
@ -1585,10 +1585,10 @@ bool TVar_mov::leggi_trasfer()
if (_tras_file.read_control_rec())
_control_rec = _tras_file.record();
else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
}
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;
}
@ -1600,7 +1600,7 @@ bool TVar_mov::esegui_controlli()
_std = conf.get("FlStTra");
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())
return FALSE;
@ -1635,21 +1635,21 @@ bool TVar_mov::controlli()
sigla.trim();
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")
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();
setta_parametri_record(" "," ");
return FALSE;
}
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;
}
@ -1682,28 +1682,28 @@ int cg6800 (int argc, char* argv[])
case 'B':
{
TVar_sc* a = new TVar_sc;
a->run(argc, argv,"Variazione movimenti Saldaconto");
a->run(argc, argv,TR("Variazione movimenti Saldaconto"));
delete a;
}
break;
case 'S':
{
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;
}
break;
case 'A':
{
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;
}
break;
case 'V':
{
TVis_ric* a = new TVis_ric;
a->run(argc, argv,"Visualizzazione stato ricezione");
a->run(argc, argv,TR("Visualizzazione stato ricezione"));
delete a;
}
break;

10
cg/cg6801.cpp

@ -67,10 +67,10 @@ bool TDitta_ric::leggi_trasfer()
_nrec_file = _tras_file.nrec_file();
}
else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
}
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;
}
@ -82,7 +82,7 @@ bool TDitta_ric::esegui_controlli()
_std = conf.get("FlStTra");
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 == "")
{
@ -90,7 +90,7 @@ bool TDitta_ric::esegui_controlli()
return FALSE;
if (_uselab != "")
return error_box("Ultimo trasferimento NON COMPLETATO: completarlo");
return error_box(TR("Ultimo trasferimento NON COMPLETATO: completarlo"));
if (!controlli())
return FALSE;
@ -100,7 +100,7 @@ bool TDitta_ric::esegui_controlli()
TString std = cfd.get("FlStTra");
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;
}

29
cg/cg6802.cpp

@ -112,17 +112,6 @@ bool TAnn_mov::set()
{
setta_parametri_record(" ","C");
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();
@ -198,7 +187,7 @@ bool TAnn_mov::esiste_testata_mov(TMask& m)
if (_tmov->read() == NOERR)
*_rec_mov = _tmov->curr();
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;
}
@ -470,10 +459,10 @@ bool TAnn_mov::leggi_trasfer()
if (_tras_file.read_control_rec())
_control_rec = _tras_file.record();
else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
}
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;
}
@ -530,7 +519,7 @@ bool TAnn_mov::esegui_controlli()
_std = conf.get("FlStTra");
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())
return FALSE;
@ -551,24 +540,24 @@ bool TAnn_mov::controlli()
sigla.trim();
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")
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")
return error_box("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato");
return error_box(TR("Variazione NON POSSIBILE: trasferimento movimenti gia' iniziato"));
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();
setta_parametri_record(""," ");
return FALSE;
}
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;
}

16
cg/cg6803.cpp

@ -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 (std != "" && std != "*")
return warning_box("Valore non valido per stato ultima ricezione");
return warning_box(TR("Valore non valido per stato ultima ricezione"));
}
else
{
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 == "*") )
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 == "*") )
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();
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;
}
@ -97,10 +97,10 @@ bool TVis_ric::chiave_hnd (TMask_field& f, KEY k)
TString chiave = f.get();
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 != "")
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;
}
@ -308,7 +308,7 @@ bool TVis_ric::esegui_controlli()
_dittaric = get_firm();
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())
return FALSE;

212
cg/cg6804.cpp

@ -339,25 +339,25 @@ void TVar_sc::descr_condpag(const TString& codpag,int tipopag,const TString& ult
{
switch(tipo)
{
case 1: d_condpag = "Rimessa diretta";
case 1: d_condpag = TR("Rimessa diretta");
break;
case 2: d_condpag = "Tratta";
case 2: d_condpag = TR("Tratta");
break;
case 3: d_condpag = "Ricevuta bancaria";
case 3: d_condpag = TR("Ricevuta bancaria");
break;
case 4: d_condpag = "Cessione";
case 4: d_condpag = TR("Cessione");
break;
case 5: d_condpag = "Paghero'";
case 5: d_condpag = TR("Paghero'");
break;
case 6: d_condpag = "Lettera di credito";
case 6: d_condpag = TR("Lettera di credito");
break;
case 7: d_condpag = "Tratta accettata";
case 7: d_condpag = TR("Tratta accettata");
break;
case 8: d_condpag = "Rapporti interbancari diretti";
case 8: d_condpag = TR("Rapporti interbancari diretti");
break;
case 9: d_condpag = "Bonifico";
case 9: d_condpag = TR("Bonifico");
break;
case 10: d_condpag = "Altro";
case 10: d_condpag = TR("Altro");
break;
default: break;
};
@ -976,7 +976,7 @@ bool TVar_sc::tipocf_handler(TMask_field& f, KEY k)
{
TString16 tipocf(f.get());
if (tipocf != "" && tipocf != "C" && tipocf != "F")
return f.warning_box("Tipo anagrafica errato");
return f.warning_box(TR("Tipo anagrafica errato"));
}
return TRUE;
}
@ -992,7 +992,7 @@ bool TVar_sc::codcf_handler(TMask_field& f, KEY k)
TString 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;
}
@ -1006,7 +1006,7 @@ bool TVar_sc::rifpart_handler(TMask_field& f, KEY k)
int nriga = atoi(f.get());
if (anno == 0 || numpart.empty() || nriga == 0)
return f.warning_box("Riferimento partita errato");
return f.warning_box(TR("Riferimento partita errato"));
}
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 ( !(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;
}
@ -1031,11 +1031,11 @@ bool TVar_sc::codcaus_handler(TMask_field& f, KEY k)
if (codcaus.not_empty())
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);
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)
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 (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;
@ -1059,7 +1059,7 @@ bool TVar_sc::datadoc_handler(TMask_field& f, KEY k)
datadoc.trim();
app().descr_caus(codcaus,appoggio);
if (datadoc.empty() && app()._dd_caus)
return f.warning_box("Data documento obbligatoria");
return f.warning_box(TR("Data documento obbligatoria"));
}
return TRUE;
}
@ -1073,7 +1073,7 @@ bool TVar_sc::numdoc_handler(TMask_field& f, KEY k)
TString numdoc = f.get();
app().descr_caus(codcaus,appoggio);
if (numdoc.empty() && app()._nd_caus)
return f.warning_box("Numero documento obbligatorio");
return f.warning_box(TR("Numero documento obbligatorio"));
}
return TRUE;
}
@ -1089,11 +1089,11 @@ bool TVar_sc::contocl_handler(TMask_field& f, KEY k)
if (gruppo == 0 && conto == 0) return TRUE;
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);
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;
}
@ -1104,12 +1104,12 @@ bool TVar_sc::tipomov_handler(TMask_field& f, KEY k)
{
int tipomov = atoi(f.get());
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);
if (codcaus.not_empty())
{
TString appoggio;
app().descr_caus(codcaus,appoggio);
if (tipomov != app()._tm_caus)
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();
if (sezione != "D" && sezione != "A")
return f.warning_box("Sezione dare/avere errata");
return f.warning_box(TR("Sezione dare/avere errata"));
}
return TRUE;
}
@ -1137,11 +1137,11 @@ bool TVar_sc::tipopag_handler(TMask_field& f, KEY k)
int tipopag = atoi(f.get());
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 (tipopag < 1 || tipopag > 9)
return f.warning_box("Tipo pagamento errato");
return f.warning_box(TR("Tipo pagamento errato"));
}
return TRUE;
}
@ -1155,11 +1155,11 @@ bool TVar_sc::datapag_handler(TMask_field& f, KEY k)
datapag.trim();
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 (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;
}
@ -1173,14 +1173,14 @@ bool TVar_sc::codval_handler(TMask_field& f, KEY k)
if (codval.not_empty())
{
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);
TString valuta = conf.get("GesVal");
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())
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));
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()._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())
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));
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)
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;
@ -1218,7 +1218,7 @@ bool TVar_sc::datacam_handler(TMask_field& f, KEY k)
if (codval.not_empty())
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;
}
@ -1232,7 +1232,7 @@ bool TVar_sc::cambio_handler(TMask_field& f, KEY k)
if (codval.not_empty())
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;
}
@ -1246,7 +1246,7 @@ bool TVar_sc::nrata_handler(TMask_field& f, KEY k)
int nrata = atoi(f.get());
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;
}
@ -1269,7 +1269,7 @@ bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
cpg.zero();
cpg.put("CODTAB", dep);
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");
int tipo;
@ -1290,25 +1290,25 @@ bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
{
switch(tipo)
{
case 1: descr = "Rimessa diretta";
case 1: descr = TR("Rimessa diretta");
break;
case 2: descr = "Tratta";
case 2: descr = TR("Tratta");
break;
case 3: descr = "Ricevuta bancaria";
case 3: descr = TR("Ricevuta bancaria");
break;
case 4: descr = "Cessione";
case 4: descr = TR("Cessione");
break;
case 5: descr = "Paghero'";
case 5: descr = TR("Paghero'");
break;
case 6: descr = "Lettera di credito";
case 6: descr = TR("Lettera di credito");
break;
case 7: descr = "Tratta accettata";
case 7: descr = TR("Tratta accettata");
break;
case 8: descr = "Rapporti interbancari diretti";
case 8: descr = TR("Rapporti interbancari diretti");
break;
case 9: descr = "Bonifico";
case 9: descr = TR("Bonifico");
break;
case 10: descr = "Altro";
case 10: descr = TR("Altro");
break;
default: break;
};
@ -1326,7 +1326,7 @@ bool TVar_sc::codpag_handler(TMask_field& f, KEY k)
if (tipopag != 0)
{
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
f.mask().set(112,tipo);
@ -1350,7 +1350,7 @@ bool TVar_sc::tpscad_handler(TMask_field& f, KEY k)
int tipopag = atoi(f.get());
if (tipopag < 1 || tipopag > 9)
return f.warning_box("Tipo pagamento errato");
return f.warning_box(TR("Tipo pagamento errato"));
TTable cpg ("%CPG");
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"));
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;
}
@ -1398,25 +1398,25 @@ bool TVar_sc::ultclass_handler(TMask_field& f, KEY k)
{
switch(tipo)
{
case 1: descr = "Rimessa diretta";
case 1: descr = TR("Rimessa diretta");
break;
case 2: descr = "Tratta";
case 2: descr = TR("Tratta");
break;
case 3: descr = "Ricevuta bancaria";
case 3: descr = TR("Ricevuta bancaria");
break;
case 4: descr = "Cessione";
case 4: descr = TR("Cessione");
break;
case 5: descr = "Paghero'";
case 5: descr = TR("Paghero'");
break;
case 6: descr = "Lettera di credito";
case 6: descr = TR("Lettera di credito");
break;
case 7: descr = "Tratta accettata";
case 7: descr = TR("Tratta accettata");
break;
case 8: descr = "Rapporti interbancari diretti";
case 8: descr = TR("Rapporti interbancari diretti");
break;
case 9: descr = "Bonifico";
case 9: descr = TR("Bonifico");
break;
case 10: descr = "Altro";
case 10: descr = TR("Altro");
break;
default: break;
};
@ -1441,7 +1441,7 @@ bool TVar_sc::ultclass_handler(TMask_field& f, KEY k)
if (clr.read() == NOERR)
descr = clr.get("S0");
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);
}
@ -1456,7 +1456,7 @@ bool TVar_sc::datascad_handler(TMask_field& f, KEY k)
datascad.trim();
if (datascad.empty() || !(TDate::isdate(datascad)))
return f.warning_box("Data scadenza errata");
return f.warning_box(TR("Data scadenza errata"));
}
return TRUE;
}
@ -1472,25 +1472,25 @@ bool TVar_sc::banca_handler(TMask_field& f, KEY k)
if (id == 120)
{
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
if (id == 122)
{
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
if (id == 127)
{
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
if (id == 129)
{
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;
@ -1521,7 +1521,7 @@ bool TVar_sc::datasoll_handler(TMask_field& f, KEY k)
return TRUE;
if (!(TDate::isdate(datasoll)))
return f.warning_box("Data sollecito errata");
return f.warning_box(TR("Data sollecito errata"));
}
return TRUE;
}
@ -1533,7 +1533,7 @@ bool TVar_sc::importo_handler(TMask_field& f, KEY k)
real importo (f.get());
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;
}
@ -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));
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)
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;
}
@ -1631,9 +1631,9 @@ bool TVar_sc::rifpartita_handler(TMask_field& f, KEY k)
TString npart = f.mask().get (107);
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))
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;
}
@ -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));
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")
return f.warning_box("Flag in acconto / a saldo errato");
return f.warning_box(TR("Flag in acconto / a saldo errato"));
}
return TRUE;
}
@ -1671,7 +1671,7 @@ bool TVar_sc::passat_handler(TMask_field& f, KEY k)
if (abbuoni != ZERO)
if (passat != "P" && passat != "A")
return f.warning_box("Flag attivo / passivo errato");
return f.warning_box(TR("Flag attivo / passivo errato"));
}
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));
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)
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;
}
@ -1710,10 +1710,10 @@ bool TVar_sc::sezione_abb_handler(TMask_field& f, KEY k)
real abbuoni (f.mask().get(117));
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())
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")
f.mask().set(131,"A");
@ -1744,7 +1744,7 @@ bool TVar_sc::ritenute_handler(TMask_field& f, KEY k)
real ritenute (f.get());
int tipomov = app().tipo_movimento(tipo,g,c,s,anno,npart,nriga,*(app()._mask));
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));
@ -1783,7 +1783,7 @@ bool TVar_sc::abbuoni_handler(TMask_field& f, KEY k)
TString accsal (f.mask().get(111));
real abbuoni (f.get());
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;
}
@ -1796,10 +1796,10 @@ bool TVar_sc::sezione_dc_handler(TMask_field& f, KEY k)
real diffcam (f.mask().get(119));
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())
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;
}
@ -1823,9 +1823,9 @@ bool TVar_sc::diffcambio_handler(TMask_field& f, KEY k)
TString accsal (f.mask().get(111));
real diffcam (f.get());
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)
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;
}
@ -1841,11 +1841,6 @@ bool TVar_sc::contropartita_handler(TMask_field& f, KEY k)
int anno = f.mask().get_int (106);
TString npart = f.mask().get (107);
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);
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_CODCF, codcf);
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
{
@ -1879,7 +1874,7 @@ bool TVar_sc::contropartita_handler(TMask_field& f, KEY k)
pcon.put(PCN_CONTO, conto);
pcon.put(PCN_SOTTOCONTO, sottoc);
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);
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.zero();
@ -2019,7 +2014,7 @@ bool TVar_sc::cancella_partita(TMask_field& f)
}
}
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;
}
@ -2141,7 +2136,7 @@ bool TVar_sc::cancella_scadenza(TMask_field& f)
int nrata = f.mask().get_int (109);
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.zero();
@ -2161,7 +2156,7 @@ bool TVar_sc::cancella_scadenza(TMask_field& f)
sgancia_pagamenti(tipo,gruppo,conto,sottoc,anno,numpart,nriga,nrata);
}
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;
}
@ -2206,7 +2201,7 @@ bool TVar_sc::cancella_pagamenti(TMask_field& f)
pagsca.remove();
}
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;
}
@ -2555,10 +2550,10 @@ bool TVar_sc::leggi_trasfer()
if (_tras_file.read_control_rec())
_control_rec = _tras_file.record();
else
return error_box("Rilevati gravi errori negli archivi:procedura interrotta");
return error_box(TR("Rilevati gravi errori negli archivi:procedura interrotta"));
}
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;
}
@ -2570,8 +2565,7 @@ bool TVar_sc::esegui_controlli()
_std = conf.get("FlStTra");
if (!prefix().exist(_dittaric))
//return error_box("Rilevati gravi errori negli archivi: procedura interrotta");
return error_box("Gli archivi della ditta %05ld non esistono.", _dittaric);
return error_box(TR("Gli archivi della ditta %05ld non esistono."), _dittaric);
if (!leggi_trasfer())
return FALSE;
@ -2606,28 +2600,28 @@ bool TVar_sc::controlli()
sigla.trim();
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")
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")
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 == "*")
{
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();
setta_parametri_record(" "," ");
return FALSE;
}
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;
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;
}