root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Errore MI3188

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ba/ba4300.cpp
View File

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

37
ba/ba4500a.uml
View File

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