campo-sirio/ce/cetbclm.uml
alex 7d1b49c6f2 Patch level : 10.0 0032
Files correlati     : ba7.exe
Ricompilazione Demo : [ ]
Commento           :

Aggiornamento maschere all 10.0  nuove toolbar modulo cespiti


git-svn-id: svn://10.65.10.50/trunk@16501 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-04-11 09:08:03 +00:00

86 lines
1.3 KiB
Plaintext
Executable File

#include "cetbclm.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Limiti " 0 2 0 0
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
NUMBER F_GIORNO 2
BEGIN
PROMPT 2 1 "Giorno "
FLAGS "Z"
FIELD CODTAB[7,8]
KEY 1
USE %CLM
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,6] F_MESE
INPUT CODTAB[7,8] F_GIORNO
DISPLAY "Giorno" CODTAB[7,8]
DISPLAY "Mese" CODTAB[5,6]
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Limite autovetture 1@20 " R1
DISPLAY "Limite autovetture 2@20 " R2
DISPLAY "Limite motocicli@20 " R3
DISPLAY "Limite ciclomotori@20 " R4
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_MESE CODTAB[5,6]
OUTPUT F_GIORNO CODTAB[7,8]
KEY 1
CHECKTYPE REQUIRED
END
NUMBER F_MESE 2
BEGIN
PROMPT 2 2 "Mese "
FLAGS "Z"
FIELD CODTAB[5,6]
COPY ALL F_GIORNO
KEY 1
CHECKTYPE REQUIRED
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 3 "Anno "
FLAGS "Z"
FIELD CODTAB[1,4]
COPY ALL F_GIORNO
KEY 1
CHECKTYPE REQUIRED
END
CURRENCY F_AUTO1 15
BEGIN
PROMPT 2 6 "Limite autovetture 1 "
FIELD R0
END
CURRENCY F_AUTO2 15
BEGIN
PROMPT 2 7 "Limite autovetture 2 "
FIELD R1
END
CURRENCY F_MOTO 15
BEGIN
PROMPT 2 8 "Limite motocicli "
FIELD R2
END
CURRENCY F_CICLO 15
BEGIN
PROMPT 2 9 "Limite ciclomotori "
FIELD R3
END
ENDPAGE
ENDMASK