campo-sirio/m770/774300a.uml
luciano 4c0c8a7e32 New entry!! azzeramento archivi con classe e controclasse
git-svn-id: svn://10.65.10.50/trunk@4224 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-03-21 17:32:13 +00:00

83 lines
1.5 KiB
Plaintext
Executable File

#include "774300a.h"
TOOLBAR "" 0 18 0 4
#include <toolbar.h>
ENDPAGE
PAGE "Storico azzeramenti" -1 -1 78 21
NUMBER F_ANNODIC 4
BEGIN
PROMPT 1 3 "Anno dichiarazione "
FIELD LF_STAZZ->ANNODIC
KEY 1
USE LF_STAZZ KEY 1
INPUT ANNODIC F_ANNODIC
DISPLAY "Anno" ANNODIC
DISPLAY "Azzeramento schede" DATASCH
DISPLAY "Azzeramento quadri" DATAQUA
OUTPUT F_ANNODIC ANNODIC
OUTPUT F_USERSCH USERSCH
OUTPUT F_DATASCH DATASCH
OUTPUT F_USERQUA USERQUA
OUTPUT F_DATAQUA DATAQUA
CHECKTYPE REQUIRED
FLAGS "R"
MESSAGE ENABLE,F_AZZSCH|ENABLE,F_AZZQUA
END
GROUPBOX DLG_NULL -1 3
BEGIN
PROMPT 1 7 "@bAzzeramento schede percipienti"
FLAGS "R"
END
BOOLEAN F_AZZSCH
BEGIN
PROMPT 2 8 ""
END
STRING F_USERSCH 8
BEGIN
PROMPT 6 8 "Utente "
FIELD LF_STAZZ->USERSCH
FLAGS "D"
END
DATE F_DATASCH
BEGIN
PROMPT 25 8 "Data azzeramento "
FIELD LF_STAZZ->DATASCH
FLAGS "D"
END
GROUPBOX DLG_NULL -1 3
BEGIN
PROMPT 1 12 "@bAzzeramento quadri dichiarazione"
FLAGS "R"
END
BOOLEAN F_AZZQUA
BEGIN
PROMPT 2 13 ""
END
STRING F_USERQUA 8
BEGIN
PROMPT 6 13 "Utente "
FIELD LF_STAZZ->USERQUA
FLAGS "D"
END
DATE F_DATAQUA
BEGIN
PROMPT 25 13 "Data azzeramento "
FIELD LF_STAZZ->DATAQUA
FLAGS "D"
END
ENDPAGE
ENDMASK