campo-sirio/mr/mrtblnp.uml

#include "mrtblnp.h" 

// gruppi turni "Minori o uguali a X"
#define GL1 10
#define GL2 11
#define GL3 12
#define GL4 13
#define GL5 14
#define GL6 15
#define GL7 16
#define GL8 17
// gruppi turni "Maggiori di X"
#define GM1 20
#define GM2 21
#define GM3 22
#define GM4 23
#define GM5 24
#define GM6 25
#define GM7 26
#define GM8 27
#define GPERS 30

TOOLBAR "Relapbar" 0 0 0 2
#include <relapbar.h> 
ENDPAGE 

PAGE "Linee di produzione"  0 0 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "" 
END 

STRING F_CODICE 5
BEGIN 
  PROMPT 2 2 "Linea        " 
  FLAGS "UZ" 
  FIELD CODTAB 
  KEY 1 
  USE LNP
  INPUT CODTAB F_CODICE 
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@60" S0 
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESC S0 
  CHECKTYPE REQUIRED 
END 

STRING F_DESC 50 
BEGIN 
  PROMPT 25 2 ""
  FIELD S0 
  KEY 2 
  USE LNP KEY 2 
  INPUT S0 F_DESC 
  DISPLAY "Descrizione@60" S0 
  DISPLAY "Codice" CODTAB 
  OUTPUT F_DESC S0 
  OUTPUT F_CODICE CODTAB 
  CHECKTYPE REQUIRED 
END 

STRING F_IMPIANTO 5
BEGIN
  PROMPT 2 4 "Impianto     "
  FLAGS "UZ" 
  USE IMP
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  OUTPUT F_DESCIMPIANTO S0
  CHECKTYPE REQUIRED
  FIELD S6
  WARNING "E' necessario specificare un impianto"
END

STRING F_DESCIMPIANTO 50
BEGIN
  PROMPT 25 4 ""
  USE IMP KEY 2
  INPUT S0 F_DESCIMPIANTO
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_IMPIANTO
  CHECKTYPE NORMAL
  WARNING "Impianto assente"
END

BOOL F_NO_CRP 
BEGIN
  PROMPT 2 6 "Escludi dal Capacity Review "
  FIELD B9
  MESSAGE FALSE HIDE,F_CRP_LEVEL
  MESSAGE TRUE  SHOW,F_CRP_LEVEL
END

LIST F_CRP_LEVEL 25
BEGIN
  PROMPT 40 6 "Livello "
  ITEM "0|Master Schedule"
  FIELD I2
END

LISTBOX F_TURNI 3
BEGIN
  PROMPT 2 7 "Numero turni      "
  ITEM "0|"
    MESSAGE CLEAR,GL1@|CLEAR,GM1@
  ITEM "1|1"
    MESSAGE CLEAR,GM1@|ENABLE,GL1@
  ITEM "2|2"
    MESSAGE CLEAR,GM2@|ENABLE,GL2@
  ITEM "3|3"
    MESSAGE CLEAR,GM3@|ENABLE,GL3@
  ITEM "4|4"
    MESSAGE CLEAR,GM4@|ENABLE,GL4@
  ITEM "5|5"
    MESSAGE CLEAR,GM5@|ENABLE,GL5@
  ITEM "6|6"
    MESSAGE CLEAR,GM6@|ENABLE,GL6@
  ITEM "7|7"
    MESSAGE CLEAR,GM7@|ENABLE,GL7@
  ITEM "8|8"
    MESSAGE CLEAR,GM8@|ENABLE,GL8@
  FIELD I0
END

BOOL F_PERSONESPEC 
BEGIN
  PROMPT 30 7  "Utilizza personale specializzato"
  FIELD B0
  MESSAGE TRUE SHOW,GPERS@|ENABLE,F_PERSONE
  MESSAGE FALSE HIDE,GPERS@
END

NUMBER F_TMIN 6 2
BEGIN
  PROMPT 60 7  "Tempo minimo "
  FIELD R8
END

NUMBER F_PRI 6
BEGIN
  PROMPT 60 8 "Priorita'    "
  FIELD I3
END

NUMBER F_PERSONE 3
BEGIN
  PROMPT 26 8  "Persone su un turno "
  FIELD I1
  GROUP GPERS
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Ora inizio"
END

TEXT DLG_NULL
BEGIN
  PROMPT 16 8 "Durata  "
END

NUMBER F_T1HINIZIO 2
BEGIN
  GROUP GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 3 9 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

NUMBER F_T1MINIZIO 2
BEGIN
  GROUP GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 6 9 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T1HDURATA 2
BEGIN
  GROUP GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 16 9 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

NUMBER F_T1MDURATA 2
BEGIN
  GROUP GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 19 9 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T1NUMPERS 3
BEGIN
  GROUP GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8 GPERS
  PROMPT 46 9 ""
END

NUMBER F_T2HINIZIO 2
BEGIN
  GROUP GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 3 10 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

NUMBER F_T2MINIZIO 2
BEGIN
  GROUP GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 6 10 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T2HDURATA 2
BEGIN
  GROUP GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 16 10 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

NUMBER F_T2MDURATA 2
BEGIN
  GROUP GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 19 10 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T2NUMPERS 3
BEGIN
  GROUP GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8 GPERS
  PROMPT 46 10 ""
END

NUMBER F_T3HINIZIO 2
BEGIN
  GROUP GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 3 11 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

NUMBER F_T3MINIZIO 2
BEGIN
  GROUP GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 6 11 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T3HDURATA 2
BEGIN
  GROUP GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 16 11 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
  CHECKTYPE REQUIRED
END

NUMBER F_T3MDURATA 2
BEGIN
  GROUP GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  PROMPT 19 11 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T3NUMPERS 3
BEGIN
  GROUP GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8 GPERS
  PROMPT 46 11 ""
END

NUMBER F_T4HINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  PROMPT 3 12 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4MINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  PROMPT 6 12 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4HDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  PROMPT 16 12 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4MDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  PROMPT 19 12 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T4NUMPERS 3
BEGIN
  GROUP GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8 GPERS
  PROMPT 46 12 ""
END

NUMBER F_T5HINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  PROMPT 3 13 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5MINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  PROMPT 6 13 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5HDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  PROMPT 16 13 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5MDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  PROMPT 19 13 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T5NUMPERS 3
BEGIN
  GROUP GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8 GPERS
  PROMPT 46 13 ""
END

NUMBER F_T6HINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  PROMPT 3 14 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6MINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  PROMPT 6 14 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6HDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  PROMPT 16 14 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6MDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  PROMPT 19 14 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T6NUMPERS 3
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8 GPERS
  PROMPT 46 14 ""
END

NUMBER F_T7HINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  PROMPT 3 15 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7MINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  PROMPT 6 15 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7HDURATA 2
BEGIN
  PROMPT 16 15 ""
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7MDURATA 2
BEGIN
  PROMPT 19 15 ":"
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T7NUMPERS 3
BEGIN
  PROMPT 46 15 ""
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8 GPERS
END

NUMBER F_T8HINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  PROMPT 3 16 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8MINIZIO 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  PROMPT 6 16 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8HDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  PROMPT 16 16 ""
  NUM_EXPR {(#THIS_FIELD <= 23)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8MDURATA 2
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  PROMPT 19 16 ":"
  NUM_EXPR {(#THIS_FIELD <= 59)}
  WARNING "Ora non valida"
  FLAGS "Z"
END

NUMBER F_T8NUMPERS 3
BEGIN
  GROUP GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8 GPERS
  PROMPT 46 16 ""
END



STRING F_CODMAG 3
BEGIN
  FLAGS "U"
  PROMPT 2 18 "Magazzino      "
  FIELD S7[1,3]
  USE MAG SELECT CODTAB[4,5]=""
  INPUT CODTAB F_CODMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  F_CODMAG CODTAB[1,3]
  OUTPUT  F_CODDEP CODTAB[4,5]
  OUTPUT  F_DESMAG S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_CODDEP|RESET,F_DESDEP
  MESSAGE ENABLE,F_CODDEP|ENABLE,F_DESDEP
END

STRING F_DESMAG 50
BEGIN
  FLAGS "U"
  PROMPT 24 18 ""
  USE MAG KEY 2
  INPUT S0 F_DESMAG
  COPY DISPLAY F_CODMAG
  COPY OUTPUT F_CODMAG
END


STRING F_CODDEP 2
BEGIN
  FLAGS "U"
  PROMPT 2 19 "Deposito       "
  FIELD S7[4,5]
  USE MAG // SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_CODMAG
  INPUT CODTAB[4,5] F_CODDEP
  DISPLAY "Cod.Mag." CODTAB[1,3] 
  DISPLAY "Cod.Dep" CODTAB[4,5] 
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODDEP CODTAB[4,5]
  OUTPUT F_DESDEP S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_DESDEP
END

STRING F_DESDEP 50
BEGIN
  FLAGS "U"
  PROMPT 24 19 ""
  USE MAG KEY 2
  INPUT S0 F_DESDEP
  COPY DISPLAY F_CODDEP
  COPY OUTPUT F_CODDEP
  CHECKTYPE NORMAL
END

STRING F_CODMAG_C 3
BEGIN
  FLAGS "U"
  PROMPT 2 20 "Mag. collegato "
  FIELD S8[1,3]
  USE MAG SELECT CODTAB[4,5]=""
  INPUT CODTAB F_CODMAG_C
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  F_CODMAG_C CODTAB[1,3]
  OUTPUT  F_CODDEP_C CODTAB[4,5]
  OUTPUT  F_DESMAG_C S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_CODDEP_C|RESET,F_DESDEP_C
  MESSAGE ENABLE,F_CODDEP_C|ENABLE,F_DESDEP_C
END

STRING F_DESMAG_C 50
BEGIN
  FLAGS "U"
  PROMPT 24 20 ""
  USE MAG KEY 2
  INPUT S0 F_DESMAG_C
  COPY DISPLAY F_CODMAG_C
  COPY OUTPUT F_CODMAG_C
END


STRING F_CODDEP_C 2
BEGIN
  FLAGS "U"
  PROMPT 2 21 "Dep. collegato "
  FIELD S8[4,5]
  USE MAG // SELECT CODTAB[4,5]!=""
  INPUT CODTAB[1,3] F_CODMAG_C
  INPUT CODTAB[4,5] F_CODDEP_C
  DISPLAY "Cod.Mag." CODTAB[1,3] 
  DISPLAY "Cod.Dep" CODTAB[4,5] 
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAG_C CODTAB[1,3]
  OUTPUT F_CODDEP_C CODTAB[4,5]
  OUTPUT F_DESDEP_C S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY RESET,F_DESDEP_C
END

STRING F_DESDEP_C 50
BEGIN
  FLAGS "U"
  PROMPT 24 21 ""
  USE MAG KEY 2
  INPUT S0 F_DESDEP_C
  COPY DISPLAY F_CODDEP_C
  COPY OUTPUT F_CODDEP_C
  CHECKTYPE NORMAL
END


ENDPAGE

PAGE "Calendario"  -1 -1 65 15 

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

RADIOBUTTON F_TYPE 42
BEGIN
  PROMPT 16 0 ""
  ITEM "L|Linea"
  ITEM "I|Impianto"
  ITEM "S|Standard"
  FLAGS "Z"
END

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

ENDPAGE


ENDMASK