Patch level : 12.0 430

Files correlati     : tf
Commento            : Corretta logica FLAG_FORZATO e FLAG_ERRORE

git-svn-id: svn://10.65.10.50/branches/R_10_00@24037 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-08-22 10:54:07 +00:00
parent 028b14c0df
commit cd683ff589
2 changed files with 11 additions and 8 deletions

View File

@ -185,7 +185,7 @@ BEGIN
ITEM "Forzata@10"
ITEM "N.\nRegistraz.@10"
ITEM "Codici Errori@10"
DEFAULT "*" // Impedisce il salvataggio su profilo .ini
END
ENDPAGE
@ -204,10 +204,10 @@ END
LIST A_INVIO 1 15
BEGIN
PROMPT 1 10 "Da inviare"
ITEM "X|Da Inviare"
ITEM "N|Disabilitato"
ITEM "F|Forzato"
ITEM "E|Errato"
ITEM "X|X, Da Inviare"
ITEM "N|N, Disabilitato"
ITEM "F|F, Forzato"
ITEM "E|E, Errato"
FIELD INVIO
END

View File

@ -305,7 +305,9 @@ bool TTrFa_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
o.mask().set(A_FORZATA, true);
else
{
changeInvio(o.mask().get(A_TIPOCF), o.mask().get(A_CODCF), o.mask().get(A_NUMDOC), o.mask().get(A_INVIO));
TString invio = o.mask().get(A_INVIO);
if(invio != FLAG_FORZATO || invio != FLAG_ERRORE)
changeInvio(o.mask().get(A_TIPOCF), o.mask().get(A_CODCF), o.mask().get(A_NUMDOC), invio);
}
}
}
@ -580,14 +582,15 @@ TRecnotype TTrFa_mask::nuovo_progr() const
void TTrFa_mask::changeInvio(TString tipocf, TString codcf, TString numdoc, TString invio) const
{
TSheet_field& sheet = sfield(F_RIGHE);
TString rtipo, rcod, rnum;
TString rtipo, rcod, rnum, rinvio;
FOR_EACH_SHEET_ROW(sheet, r, strarr)
{
// Ricevo i parametri della riga
rtipo.cut(0); rtipo << strarr->get_char(_tipocf);
rcod.cut(0); rcod << strarr->get_int(_codcf);
rnum.cut(0); rnum << strarr->get(_numdoc);
if(tipocf == rtipo && codcf == rcod && rnum == numdoc)
rinvio.cut(0); rinvio << strarr->get(_invio);
if(rinvio != FLAG_FORZATO && invio != FLAG_ERRORE && tipocf == rtipo && codcf == rcod && rnum == numdoc)
{
strarr->add(invio, _invio);
// Aggiorno la riga