campo-sirio/mr/mr0400a.uml

#include "mr0400.h" 

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Parametri ditta"  -1 -1 65 15 

BOOLEAN F_GESTIMPIANTI
BEGIN 
  PROMPT 2 2 "Gestione impianti "
  FIELD GESTIMPIANTI 
END 

LISTBOX F_NTURNI 3
BEGIN
  PROMPT 2 4 "Numero turni      "
  ITEM "1|1"
    MESSAGE CLEAR, 28@
  ITEM "2|2"
    MESSAGE CLEAR, 38@|ENABLE,12@
  ITEM "3|3"
    MESSAGE CLEAR, 48@|ENABLE,13@
  ITEM "4|4"
    MESSAGE CLEAR, 58@|ENABLE,14@
  ITEM "5|5"
    MESSAGE CLEAR, 68@|ENABLE,15@
  ITEM "6|6"
    MESSAGE CLEAR, 78@|ENABLE,16@
  ITEM "7|7"
    MESSAGE CLEAR, 8@|ENABLE,17@
  ITEM "8|8"
    MESSAGE ENABLE,18@
  FIELD NTURNI
END

NUMBER F_T1HINIZIO 2
BEGIN
  PROMPT 2 5 "Ora inizio primo turno   "
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T1MINIZIO 2
BEGIN
  PROMPT 30 5 ""
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T1HDURATA 2
BEGIN
  PROMPT 36 5 "Durata  "
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T1MDURATA 2
BEGIN
  PROMPT 47 5 ""
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T2HINIZIO 2
BEGIN
  PROMPT 2 6 "Ora inizio secondo turno "
  GROUP 2 12 13 14 15 16 17 18 28
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T2MINIZIO 2
BEGIN
  PROMPT 30 6 ""
  GROUP 2 12 13 14 15 16 17 18  28
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T2HDURATA 2
BEGIN
  PROMPT 36 6 "Durata  "
  GROUP 2 12 13 14 15 16 17 18  28
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T2MDURATA 2
BEGIN
  PROMPT 47 6 ""
  GROUP 2 12 13 14 15 16 17 18  28
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T3HINIZIO 2
BEGIN
  PROMPT 2 7 "Ora inizio terzo turno   "
  GROUP 3 13 14 15 16 17 18 28 38
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T3MINIZIO 2
BEGIN
  PROMPT 30 7 ""
  GROUP 3 13 14 15 16 17 18 28 38
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T3HDURATA 2
BEGIN
  PROMPT 36 7 "Durata  "
  GROUP 3 13 14 15 16 17 18 28 38
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T3MDURATA 2
BEGIN
  PROMPT 47 7 ""
  GROUP 3 13 14 15 16 17 18 28 38
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END


NUMBER F_T4HINIZIO 2
BEGIN
  PROMPT 2 8 "Ora inizio quarto turno  "
  GROUP 4 14 15 16 17 18 28 38 48
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4MINIZIO 2
BEGIN
  PROMPT 30 8 ""
  GROUP 4 14 15 16 17 18 28 38 48
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4HDURATA 2
BEGIN
  PROMPT 36 8 "Durata  "
  GROUP 4 14 15 16 17 18 28 38 48
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4MDURATA 2
BEGIN
  PROMPT 47 8 ""
  GROUP 4 14 15 16 17 18 28 38 48
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5HINIZIO 2
BEGIN
  PROMPT 2 9 "Ora inizio quinto turno  "
  GROUP 5 15 16 17 18 28 38 48 58
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5MINIZIO 2
BEGIN
  PROMPT 30 9 ""
  GROUP 5 15 16 17 18 28 38 48 58
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5HDURATA 2
BEGIN
  PROMPT 36 9 "Durata  "
  GROUP 5 15 16 17 18 28 38 48 58
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5MDURATA 2
BEGIN
  PROMPT 47 9 ""
  GROUP 5 15 16 17 18 28 38 48 58
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6HINIZIO 2
BEGIN
  PROMPT 2 10 "Ora inizio sesto turno   "
  GROUP 6 16 17 18 28 38 48 58 68
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6MINIZIO 2
BEGIN
  PROMPT 30 10 ""
  GROUP 6 16 17 18  28 38 48 58 68
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6HDURATA 2
BEGIN
  PROMPT 36 10 "Durata  "
  GROUP 6 16 17 18 28 38 48 58 68
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6MDURATA 2
BEGIN
  PROMPT 47 10 ""
  GROUP 6 16 17 18 28 38 48 58 68
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7HINIZIO 2
BEGIN
  PROMPT 2 11 "Ora inizio settimo turno "
  GROUP 7 17 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7MINIZIO 2
BEGIN
  PROMPT 30 11 ""
  GROUP 7 17 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7HDURATA 2
BEGIN
  PROMPT 36 11 "Durata  "
  GROUP 7 17 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7MDURATA 2
BEGIN
  PROMPT 47 11 ""
  GROUP 7 17 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END


NUMBER F_T8HINIZIO 2
BEGIN
  PROMPT 2 12 "Ora inizio ottavo turno  "
  GROUP 8 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8MINIZIO 2
BEGIN
  PROMPT 30 12 ""
  GROUP 8 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8HDURATA 2
BEGIN
  PROMPT 36 12 "Durata  "
  GROUP 8 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8MDURATA 2
BEGIN
  PROMPT 47 12 ""
  GROUP 8 18 28 38 48 58 68 78
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

ENDPAGE

PAGE "Calendario"  -1 -1 65 15 

NUMBER F_YEAR 4
BEGIN
  PROMPT 1 1 "Anno "
  FLAGS "AD"
END

CALENDAR F_CALENDAR -3 -1
BEGIN
  PROMPT 0 2 ""
END

ENDPAGE

ENDMASK