Correzioni MI3580 e MI3581, relativi alla lista controllo sulla

tabella di corrispondenza e sulla lunghezza del codice pagamento.


git-svn-id: svn://10.65.10.50/trunk@4276 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-04-11 15:04:48 +00:00
parent 5eeca38a6d
commit 1d21c9411e

View File

@ -155,15 +155,14 @@ bool TLista_archivi::set()
bool TLista_archivi::controlla_valore(const TString& val,int lim, int len)
{
if (val.len() > len)
return FALSE;
if (real::is_natural(val))
{
int app = atoi(val);
if (app > lim)
return FALSE;
}
else
if (val.len() > len)
return FALSE;
return TRUE;
}
@ -959,6 +958,7 @@ void TLista_archivi::controlla_fatture(char file)
long sottoc = _part->get_long(PART_SOTTOCONTO);
int anno = _part->get_int (PART_ANNO);
TString numpart = _part->get (PART_NUMPART);
TString codcaus = _part->get (PART_CODCAUS);
int nriga = _part->get_int (PART_NRIGA);
long nreg = _part->get_long(PART_NREG);
int numrig = _part->get_int (PART_NUMRIG);
@ -971,7 +971,7 @@ void TLista_archivi::controlla_fatture(char file)
stampa.add(" - Rilevato un numero di registrazione corrispondente a primanota composto da 7 cifre");
}
else
if (nreg == 0) // Allora fa parte del saldaconto extracontabile: si controlli la tabella di corrispondenza relativa al tipo mov.
if (nreg == 0 && codcaus.empty()) // Allora fa parte del saldaconto extracontabile: si controlli la tabella di corrispondenza relativa al tipo mov.
{
if (((TString&) _tab_cau[_part->get_int(PART_TIPOMOV)-1]).trim().empty())
{
@ -1005,13 +1005,11 @@ void TLista_archivi::controlla_fatture(char file)
errore = TRUE;
stampa.add(" - Rilevato un codice registro IVA composto da 2 o piu' cifre");
}
const char* codcaus = _part->get(PART_CODCAUS);
if (codcaus && *codcaus)
if (!real::is_natural(codcaus))
{
errore = TRUE;
stampa.add(" - Rilevato un codice causale alfanumerico");
}
if (codcaus.not_empty() && !real::is_natural(codcaus))
{
errore = TRUE;
stampa.add(" - Rilevato un codice causale alfanumerico");
}
int gruppocl = _part->get_int(PART_GRUPPOCL);
if (gruppocl > 99)
{