campo-sirio/mr/mrtbimp.uml

#include "mrtbimp.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 "Impianti"  0 0 0 0

GROUPBOX DLG_NULL 78 5
 BEGIN
  PROMPT 1 1 ""
 END

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

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

LIST  F_TURNI 3
 BEGIN
  PROMPT 2 6 "Numero turni      "
  FIELD I0
  ITEM "|"
  MESSAGE CLEAR,GM1@|CLEAR,GL1@
  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@
 END

BOOLEAN  F_PERSONESPEC
 BEGIN
  PROMPT 40 6 "Utilizza personale proprio"
  MESSAGE TRUE SHOW,GPERS@|ENABLE,F_PERSONE
  MESSAGE FALSE HIDE,GPERS@
  FIELD B0
 END

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

TEXT  DLG_NULL
 BEGIN
  PROMPT 2 7 "Ora inizio     "
 END

TEXT  DLG_NULL
 BEGIN
  PROMPT 16 7 "Durata       "
 END

NUMBER F_T1HINIZIO  2
 BEGIN
  PROMPT 3 8 ""
  FLAGS "Z"
  GROUP  GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  CHECKTYPE REQUIRED
  WARNING "Ora non valida"
 END

NUMBER F_T1MINIZIO  2
 BEGIN
  PROMPT 6 8 ":"
  FLAGS "Z"
  GROUP  GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T1HDURATA  2
 BEGIN
  PROMPT 16 8 ""
  FLAGS "Z"
  GROUP  GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  CHECKTYPE REQUIRED
  WARNING "Ora non valida"
 END

NUMBER F_T1MDURATA  2
 BEGIN
  PROMPT 19 8 ":"
  FLAGS "Z"
  GROUP  GL1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T2HINIZIO  2
 BEGIN
  PROMPT 3 9 ""
  FLAGS "Z"
  GROUP  GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  CHECKTYPE REQUIRED
  WARNING "Ora non valida"
 END

NUMBER F_T2MINIZIO  2
 BEGIN
  PROMPT 6 9 ":"
  FLAGS "Z"
  GROUP  GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T2HDURATA  2
 BEGIN
  PROMPT 16 9 ""
  FLAGS "Z"
  GROUP  GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  CHECKTYPE REQUIRED
  WARNING "Ora non valida"
 END

NUMBER F_T2MDURATA  2
 BEGIN
  PROMPT 19 9 ":"
  FLAGS "Z"
  GROUP  GM1 GL2 GL3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T3HINIZIO  2
 BEGIN
  PROMPT 3 10 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  CHECKTYPE REQUIRED
  WARNING "Ora non valida"
 END

NUMBER F_T3MINIZIO  2
 BEGIN
  PROMPT 6 10 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T3HDURATA  2
 BEGIN
  PROMPT 16 10 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  CHECKTYPE REQUIRED
  WARNING "Ora non valida"
 END

NUMBER F_T3MDURATA  2
 BEGIN
  PROMPT 19 10 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GL3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T4HINIZIO  2
 BEGIN
  PROMPT 3 11 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T4MINIZIO  2
 BEGIN
  PROMPT 6 11 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T4HDURATA  2
 BEGIN
  PROMPT 16 11 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T4MDURATA  2
 BEGIN
  PROMPT 19 11 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GL4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T5HINIZIO  2
 BEGIN
  PROMPT 3 12 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T5MINIZIO  2
 BEGIN
  PROMPT 6 12 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T5HDURATA  2
 BEGIN
  PROMPT 16 12 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T5MDURATA  2
 BEGIN
  PROMPT 19 12 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GL5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T6HINIZIO  2
 BEGIN
  PROMPT 3 13 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T6MINIZIO  2
 BEGIN
  PROMPT 6 13 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T6HDURATA  2
 BEGIN
  PROMPT 16 13 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T6MDURATA  2
 BEGIN
  PROMPT 19 13 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GL6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T7HINIZIO  2
 BEGIN
  PROMPT 3 14 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T7MINIZIO  2
 BEGIN
  PROMPT 6 14 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T7HDURATA  2
 BEGIN
  PROMPT 16 14 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T7MDURATA  2
 BEGIN
  PROMPT 19 14 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GL7 GL8
  WARNING "Ora non valida"
 END

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

NUMBER F_T8HINIZIO  2
 BEGIN
  PROMPT 3 15 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T8MINIZIO  2
 BEGIN
  PROMPT 6 15 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T8HDURATA  2
 BEGIN
  PROMPT 16 15 ""
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  WARNING "Ora non valida"
 END

NUMBER F_T8MDURATA  2
 BEGIN
  PROMPT 19 15 ":"
  FLAGS "Z"
  GROUP  GM1 GM2 GM3 GM4 GM5 GM6 GM7 GL8
  WARNING "Ora non valida"
 END

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

STRING F_CODMAG 3
 BEGIN
  PROMPT 2 16 "Magazzino      "
  FLAGS "U"
  MESSAGE EMPTY RESET,F_CODDEP|RESET,F_DESDEP
  MESSAGE ENABLE,F_CODDEP|ENABLE,F_DESDEP
  FIELD S7[1,3]
  CHECKTYPE NORMAL
  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
  
 END

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

STRING F_CODDEP 2
 BEGIN
  PROMPT 2 17 "Deposito       "
  FLAGS "U"
  MESSAGE EMPTY RESET,F_DESDEP
  FIELD S7[4,5]
  CHECKTYPE NORMAL
  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
  
 END

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

STRING F_CODMAG_C 3
 BEGIN
  PROMPT 2 18 "Mag. collegato "
  FLAGS "U"
  MESSAGE EMPTY RESET,F_CODDEP_C|RESET,F_DESDEP_C
  MESSAGE ENABLE,F_CODDEP_C|ENABLE,F_DESDEP_C
  FIELD S8[1,3]
  CHECKTYPE NORMAL
  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
  
 END

STRING F_DESMAG_C 50
 BEGIN
  PROMPT 24 18 ""
  FLAGS "U"
  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
  PROMPT 2 19 "Dep. collegato "
  FLAGS "U"
  MESSAGE EMPTY RESET,F_DESDEP_C
  FIELD S8[4,5]
  CHECKTYPE NORMAL
  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
  
 END

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

ENDPAGE

PAGE "Calendario"  -1 -1 65 15 

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

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

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

ENDPAGE

ENDMASK