Errore MI3188

git-svn-id: svn://10.65.10.50/trunk@1564 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-07-05 16:55:25 +00:00
parent 719901b5c4
commit 5cf8928b91
2 changed files with 21 additions and 20 deletions

View File

@ -214,7 +214,7 @@ void TDitte_application::set_att_prev(const TMask& m)
_attiv->zero() ;
_attiv->put(CODDITTA, codditta) ;
_attiv->put(CODATT, _oldattprev);
if (_attiv->read() == NOERR)
if (_attiv->read(_isequal, _lock) == NOERR)
{
_attiv->put("ATTPREV", FALSE);
if (_attiv->rewrite() != NOERR)
@ -225,7 +225,7 @@ void TDitte_application::set_att_prev(const TMask& m)
_attiv->put(CODDITTA, codditta) ;
_attiv->put(CODATT, attprev) ;
const bool itwas = _attiv->read() == NOERR;
const bool itwas = _attiv->read(_isequal, _lock) == NOERR;
if (!itwas)
{
_attiv->zero() ;

View File

@ -6,12 +6,6 @@ ENDPAGE
PAGE "Attivita' 1/2" -1 -1 77 20
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
STRING FLD_AT1_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
@ -101,7 +95,8 @@ BEGIN
PROMPT 55 3 "Prevalente"
FIELD LF_ATTIV->ATTPREV
FLAGS "DG"
MESSAGE COPY,5@
MESSAGE TRUE COPY,5@
MESSAGE FALSE COPY,5@
END
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
@ -109,10 +104,16 @@ BEGIN
PROMPT 1 4 "Nome Attivita' "
FIELD LF_ATTIV->DESCR
MESSAGE COPY,4@
KEY 1
KEY 2
HELP "Nome dell'attivita'"
END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
STRING FLD_AT1_OLDCODATT 4
BEGIN
PROMPT 1 6 "Vecchio codice "
@ -295,27 +296,21 @@ ENDPAGE
PAGE "Attivita' 2/2" -1 -1 77 20
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
STRING FLD_AT1_CODDITTA 5
STRING DLG_NULL 5
BEGIN
PROMPT 1 1 "Ditta "
FLAGS "RD"
GROUP 1
END
STRING FLD_AT1_PROGD_NDITTE_RAGSOC 50
STRING DLG_NULL 50
BEGIN
PROMPT 1 2 "Ragione sociale "
FLAGS "D"
GROUP 2
END
STRING FLD_AT1_CODATTH 5
STRING DLG_NULL 5
BEGIN
PROMPT 1 3 "Codice Attivita'"
FLAGS "URZD"
@ -329,13 +324,19 @@ BEGIN
GROUP 5
END
STRING FLD_AT1_ATTCODATT_TABATT_DESCR 50
STRING DLG_NULL 50
BEGIN
PROMPT 1 4 "Nome Attivita' "
FLAGS "D"
GROUP 4
END
GROUPBOX DLG_NULL 76 6
BEGIN
PROMPT 0 0 ""
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 11 "Indirizzo (Solo se diverso)"