campo-sirio/mr/mr1100a.uml

#include "mr1100a.h" 

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -15 -1 "~Elabora"
  PICTURE BMP_ELABORA
END

#include <printbar.h>

ENDPAGE

TOOLBAR "Toolbar" 0 -3 -1 -1

STRING DLG_PROFILE 50
BEGIN
  PROMPT 1 0 "Profilo "
  PSELECT
  MESSAGE K_SPACE,F_ORDINAMENTO|K_SPACE,F_VAL2PRINT
END

ENDPAGE

PAGE "MRP report"  -1 -1 80 20 

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 2 "@bParametri dell'elaborazione" 
END

DATE F_DADATA
BEGIN
  PROMPT 2 3 "Dalla data       "
  CHECKTYPE REQUIRED
END

DATE F_ADATA
BEGIN
  PROMPT 45 3 "Alla data "
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC > F_DADATA
  WARNING "La data finale deve essere maggiore di quella iniziale"
END

LIST F_BUCKETS 1 15
BEGIN
  PROMPT 2 4 "Bucket temporale "
  ITEM "1|1 Settimana" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "2|2 Settimane" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "4|1 Mese" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "8|2 Mese" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "13|3 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "17|4 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "26|6 Mesi" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
  ITEM "52|1 Anno" 
    MESSAGE SHOW,F_BUCKET|DISABLE,F_BUCKET|COPY,F_BUCKET|"7",F_DAYXBUCK
 ITEM " |Personalizzato"
    MESSAGE ENABLE,F_BUCKET|"7",F_DAYXBUCK
  ITEM "G|1 Giorno" 
    MESSAGE HIDE,F_BUCKET|"1",F_BUCKET|"1",F_DAYXBUCK
  ITEM "M|Mese solare" 
    MESSAGE HIDE,F_BUCKET|"31",F_BUCKET|"1",F_DAYXBUCK
END

NUMBER F_BUCKET 2
BEGIN
  PROMPT 45 4 "Settimane "
  FLAGS "U"
  CHECKTYPE REQUIRED
END

LIST F_DAYXBUCK 1 9
BEGIN
  PROMPT 65 4  ""
  ITEM "7|settimane"
  ITEM "1|giorni"
  FLAGS "D"
END

LIST F_RAGGRUM 1 53
BEGIN
  PROMPT 2 5 "Raggruppa        "
  ITEM "0|Nessun raggruppamento"
  ITEM "3|Raggruppa all'unita' di misura principale"
  ITEM "5|Raggruppa all'unita' di misura di distinta"
END

BOOLEAN F_GENREPORT
BEGIN
  PROMPT 2 6 "Genera report"
  MESSAGE TRUE ENABLE,F_FILENAME|ENABLE,DLG_ELABORA|CLEAR,F_USAFILE
  MESSAGE FALSE CLEAR,F_FILENAME|DISABLE,DLG_ELABORA|ENABLE,F_USAFILE
END

BOOLEAN F_USAFILE
BEGIN
  PROMPT 19 6 "Utilizza report esistente"
  MESSAGE TRUE ENABLE,F_FILENAME
  MESSAGE FALSE CLEAR,F_FILENAME
END

STRING F_FILENAME 80 55
BEGIN
  PROMPT 2 7 "File DBF         "
  FSELECT "*.dbf"
  CHECKTYPE REQUIRED
END

RADIOBUTTON F_ORDINAMENTO 45
BEGIN
  PROMPT 1 9 "Ordinamento"
  ITEM "0|Articolo, Liv.giacenza, Impianto e Linea"
    MESSAGE HIDE,6@|SHOW,5@|CLEAR,F_LIVDET
  ITEM "1|Impianto, Linea, Articolo e Liv.giacenza"
    MESSAGE HIDE,5@|SHOW,6@|CLEAR,F_LIVDET
END

RADIOBUTTON F_VAL2PRINT 29
BEGIN
  PROMPT 50 9 "Valore in stampa"
  ITEM "0|Quantita'"
    MESSAGE CLEAR,F_MANLOAD|CLEAR,F_CAPACITA
  ITEM "1|Carico"
    MESSAGE ENABLE,F_MANLOAD|ENABLE,F_CAPACITA
END

RADIOBUTTON F_DETTAGLIO1 30
BEGIN
  PROMPT 1 13 "Dettaglio"
  ITEM "0|Articolo"
    MESSAGE CLEAR, F_LIVDET
  ITEM "1|Giacenza"
    MESSAGE ENABLE, F_LIVDET
  ITEM "2|Impianto"
    MESSAGE ENABLE, F_LIVDET
  ITEM "3|Linea"
    MESSAGE ENABLE, F_LIVDET
  GROUP 5
END

RADIOBUTTON F_DETTAGLIO2 30
BEGIN
  PROMPT 1 13 "Dettaglio"
  ITEM "2|Impianto"
    MESSAGE CLEAR, F_LIVDET
  ITEM "3|Linea"
    MESSAGE CLEAR, F_LIVDET
  ITEM "0|Articolo"
    MESSAGE CLEAR, F_LIVDET
  ITEM "1|Giacenza"
    MESSAGE ENABLE, F_LIVDET
  GROUP 6
END

NUMBER F_LIVDET 1
BEGIN
  PROMPT 34 14 "Livello dettaglio "
  FLAGS "D"
  USE FCG
  INPUT CODTAB F_LIVDET
  DISPLAY "Num." CODTAB 
  DISPLAY "Descr@50" S0
  OUTPUT F_LIVDET CODTAB 
  CHECKTYPE NORMAL
  WARNING "Livello finale non ammissibile"
END

BOOLEAN F_MANLOAD
BEGIN
  PROMPT 34 15 "Carico ore per addetto"
END

BOOLEAN F_CAPACITA
BEGIN
  PROMPT 34 16 "Calcola capacita linee"
END

STRING F_ARTFROM 20
BEGIN
  PROMPT 34 17 "Da articolo "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_ARTFROM
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARTFROM CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3
  GROUP 5
END

STRING F_ARTTO 20
BEGIN
  PROMPT 34 18 "Ad articolo "
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART F_ARTTO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARTTO CODART
  CHECKTYPE NORMAL
  ADD RUN ve2 -3 
  GROUP 5
END

STRING F_IMPIANTOFROM 5
BEGIN 
  PROMPT 34 17 "Da impianto "
  FLAGS "UZ" 
  USE IMP
  INPUT CODTAB F_IMPIANTOFROM
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_IMPIANTOFROM CODTAB 
  CHECKTYPE NORMAL
  GROUP 6 
END 

STRING F_IMPIANTOTO 5
BEGIN 
  PROMPT 56 17 "Ad impianto " 
  FLAGS "UZ" 
  USE IMP
  INPUT CODTAB F_IMPIANTOTO
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_IMPIANTOTO CODTAB 
  CHECKTYPE NORMAL
  GROUP 6 
END 

STRING F_LINEAFROM 5
BEGIN 
  PROMPT 34 18 "Da linea    "
  FLAGS "UZ" 
  USE LNP
  INPUT CODTAB F_LINEAFROM
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_LINEAFROM CODTAB 
  CHECKTYPE NORMAL
  GROUP 6 7
END 

STRING F_LINEATO 5
BEGIN 
  PROMPT 56 18 "A  linea    " 
  FLAGS "UZ" 
  USE LNP
  INPUT CODTAB F_LINEATO
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_LINEATO CODTAB 
  CHECKTYPE NORMAL
  GROUP 6 7
END 

STRING F_REPORT 70 50
BEGIN
	PROMPT 1 19 "Report "
	RSELECT "mr1100"
	GROUP 1
END
ENDPAGE

PAGE "Selezione"  -1 -1 78 20

SPREADSHEET F_NUMERAZIONI 18 8
BEGIN
  PROMPT 1 1 ""
  ITEM "Numerazione"
END

SPREADSHEET F_TIPI 56 8
BEGIN
  PROMPT 20 1 ""
  ITEM "Tipo@4"
  ITEM "Descrizione@50"
  ITEM "Da stato"
  ITEM "A stato"
END

ENDPAGE

PAGE "Calendario"  -1 -1 78 20

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

STRING F_LINEA 5
BEGIN 
  PROMPT 25 1 "Linea " 
  FLAGS "UZ" 
  USE LNP
  INPUT CODTAB F_LINEA
  DISPLAY "Codice" CODTAB 
  DISPLAY "Descrizione@50" S0 
  OUTPUT F_LINEA CODTAB 
  CHECKTYPE NORMAL
END 

STRING F_IMPIANTO 5
BEGIN
  PROMPT 50 1 "Impianto "
  FLAGS "UZ" 
  USE IMP
  INPUT CODTAB F_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_IMPIANTO CODTAB
  CHECKTYPE NORMAL
END

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

ENDPAGE

ENDMASK

PAGE "Numerazioni" -1 -1 60 6

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

STRING F_DESCTIPO 50
BEGIN
  PROMPT 16 1 ""
  USE %NUM KEY 2
  INPUT S0 F_DESCTIPO
  DISPLAY "Descrizione@70" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPO
  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

PAGE "Tipi documento" -1 -1 70 10

STRING F_TIPO 4
BEGIN
  PROMPT 1 2 "Tipo     "
  FLAGS "U"
  USE %TIP
  INPUT CODTAB F_TIPO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPO CODTAB
  OUTPUT F_DESCTIPO S0
  CHECKTYPE REQUIRED
END

STRING F_DESCTIPO 50
BEGIN
  PROMPT 26 2 ""
  USE %TIP KEY 2
  INPUT S0 F_DESCTIPO
  DISPLAY "Descrizione@70" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPO
  CHECKTYPE REQUIRED
END

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

STRING F_ASTATO 1
BEGIN
  PROMPT 16 3 "A stato "
  COPY USE F_DASTATO 
  INPUT CODTAB F_ASTATO 
  COPY DISPLAY F_DASTATO 
  OUTPUT F_ASTATO 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