campo-sirio/mr/mr0400a.uml

#include "mr0400.h" 

TOOLBAR "" 0 0 0 2

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

BUTTON DLG_INFO 10 2
BEGIN
  PROMPT -24 -11 ""
END

BUTTON DLG_HELP 10 2
BEGIN
  PROMPT -34 -11 ""
END

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

ENDPAGE

PAGE "Parametri ditta"  0 0 0 0 

BOOLEAN F_GESTIMPIANTI
BEGIN 
  PROMPT 2 1 "Gestione impianti "
  FIELD GESTIMPIANTI
  MESSAGE TRUE SHOW,F_DEFAULT_IMP
  MESSAGE FALSE HIDE,F_DEFAULT_IMP
END 

STRING F_DEFAULT_LNP 5
BEGIN 
  PROMPT 2 2 "Linea di default "
  FIELD DEFAULT_CODLIN
  USE LNP
  INPUT CODTAB F_DEFAULT_LNP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DEFAULT_LNP CODTAB
  OUTPUT F_DEFAULT_IMP S6
END 

BOOL F_WEEKCOMPLETE
BEGIN
  PROMPT 2 3 "Numera settimane a partire dalla prima completa"
  FIELD WEEKCOMPLETE
END

STRING F_DEFAULT_IMP 5
BEGIN 
  PROMPT 42 2 "Impianto di default "
  FIELD DEFAULT_CODIMP
  USE IMP
  INPUT CODTAB F_DEFAULT_IMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DEFAULT_IMP CODTAB
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"
  CHECKTYPE REQUIRED
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"
  CHECKTYPE REQUIRED
END

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

NUMBER F_T1NUMPERS 3
BEGIN
  PROMPT 52 5 "Persone impiegate "
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_T2NUMPERS 3
BEGIN
  PROMPT 52 6 "Persone impiegate "
  GROUP 2 12 13 14 15 16 17 18  28
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_T3NUMPERS 3
BEGIN
  PROMPT 52 7 "Persone impiegate "
  GROUP 3 13 14 15 16 17 18 28 38
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_T4NUMPERS 3
BEGIN
  PROMPT 52 8 "Persone impiegate "
  GROUP 4 14 15 16 17 18 28 38 48
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_T5NUMPERS 3
BEGIN
  PROMPT 52 9 "Persone impiegate "
  GROUP 5 15 16 17 18 28 38 48 58
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_T6NUMPERS 3
BEGIN
  PROMPT 52 10 "Persone impiegate "
  GROUP 6 16 17 18 28 38 48 58 68
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_T7NUMPERS 3
BEGIN
  PROMPT 52 11 "Persone impiegate "
  GROUP 7 17 18 28 38 48 58 68 78
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

NUMBER F_T8NUMPERS 3
BEGIN
  PROMPT 52 12 "Persone impiegate "
  GROUP 8 18 28 38 48 58 68 78
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 2 14 "Fornitore di default "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_RAGSOC RAGSOC
  FIELD CODFOR
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50 30
BEGIN
  PROMPT 33 14 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@16" CODCF
  COPY OUTPUT F_FORNITORE
  CHECKTYPE SEARCH
END

ENDPAGE

PAGE "Calendario"  -1 -1 65 15 

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

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

ENDPAGE

PAGE "Rilevazione produzione" -1 -1 65 15

TEXT DLG_NULL
BEGIN
  PROMPT 2 1 "@bOrdini di produzione"
END

SPREADSHEET F_TIPONUM 72 6
BEGIN
  PROMPT 1 3 ""
  ITEM "Numerazione"
  ITEM "Descrizione@50"
END

SPREADSHEET F_TIPOTIP 82 6
BEGIN
  PROMPT 1 12 ""
  ITEM "Tipo@4"
  ITEM "Descrizione@50"
  ITEM "Da stato"
  ITEM "A stato"
END

ENDPAGE

ENDMASK

//-----------Pagina di riga dello sheet numerazione----------------------//

PAGE "Codice numerazione" -1 -1 66 10

STRING F_SN_NUM 4
BEGIN
  PROMPT 1 1 "Numerazione "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_SN_NUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_SN_NUM  CODTAB
  OUTPUT F_SN_DES S0
  CHECKTYPE REQUIRED
END

STRING F_SN_DES 50
BEGIN
  PROMPT 1 2 "Descrizione "
  USE %NUM KEY 2
  INPUT S0 F_SN_DES
  DISPLAY "Descrizione@70" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_SN_NUM
  CHECKTYPE REQUIRED
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK

//-----------Pagina di riga dello sheet descrizione----------------------//
PAGE "Tipi documento" -1 -1 66 10

STRING F_ST_TIP 4
BEGIN
  PROMPT 2 1 "Codice "
  USE %TIP
  INPUT CODTAB F_ST_TIP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ST_TIP CODTAB
  OUTPUT F_ST_DES S0
  CHECKTYPE REQUIRED
END

STRING F_ST_DES 50
BEGIN
  PROMPT 1 2 "Descrizione "
  USE %TIP KEY 2
  INPUT S0 F_ST_DES
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_ST_TIP
  CHECKTYPE REQUIRED
END

STRING F_ST_DAST 1
BEGIN
  PROMPT 1 3 "Da stato    "
  USE %STD
  INPUT CODTAB F_ST_DAST 
  DISPLAY "Stato" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ST_DAST CODTAB
  CHECKTYPE REQUIRED
END


STRING F_ST_AST 1
BEGIN
  PROMPT 1 4 "A stato     "
  COPY USE F_ST_DAST 
  INPUT CODTAB F_ST_AST 
  COPY DISPLAY F_ST_DAST 
  OUTPUT F_ST_AST CODTAB
  CHECKTYPE REQUIRED
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK