campo-sirio/ce/cetbclm.uml

#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