campo-sirio/mr/mr0500a.uml

#include "mr0500a.h"

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

TOOLBAR "" 0 -2 0 2
BUTTON 99 10 2
BEGIN
  PROMPT -12 -1 "~Aperti"
	MESSAGE K_F9,H_PROG
END

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -23 -1 "E~labora"
END

BUTTON F_DATALOG 10 2
BEGIN
  PROMPT -33 -1 ""
  PICTURE 20001
END
ENDPAGE

PAGE "Rilevazione Produzione" -1 -1 72 6

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 ""
END

STRING F_CODART 20
BEGIN
  PROMPT 2 1 "Articolo        "  
  USE LF_ANAMAG
  INPUT CODART F_CODART
  DISPLAY "Codice articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODART CODART 
  OUTPUT F_DESCRCOD DESCR 
  CHECKTYPE REQUIRED
  FLAGS "U"
  KEY 1
  FIELD CODART
  MESSAGE COPY,11@
END

STRING F_DESCRCOD 50
BEGIN
  PROMPT 2 2 "Descrizione     "
  USE LF_ANAMAG KEY 2
  FLAGS "UG"
  INPUT DESCR F_DESCRCOD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice articolo@20" CODART
  COPY OUTPUT F_CODART  
  CHECKTYPE NORMAL
  KEY 1
  MESSAGE EMPTY ENABLE,F_PROD
  MESSAGE COPY,12@|CLEAR,F_PROD
END

DATE F_DATA
BEGIN
  PROMPT 2 3 "Data ordine     "
  CHECKTYPE REQUIRED
  KEY 1
  FIELD DATA
  MESSAGE COPY,13@
END

NUMBER F_PROG 3
BEGIN
  PROMPT 42 3 "Progressivo del giorno "
  USE LF_RILPROD KEY 6
  JOIN LF_ANAMAG INTO CODART==CODART
  FLAGS "U"
  INPUT PROVV F_PROVV
  INPUT ANNO F_ANNO
  INPUT CODNUM F_CODNUM
  INPUT NDOC F_NDOC
  INPUT NRIGA F_NRIGA
  INPUT DATA F_DATA
  DISPLAY "Ordine@10" NDOC
  DISPLAY "Riga@7" NRIGA
  DISPLAY "Data ordine" DATA
  DISPLAY "Codice articolo@20" CODART
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Prog." PROG
  OUTPUT F_CODART CODART 
  OUTPUT F_DATA DATA
  OUTPUT F_PROG PROG
  CHECKTYPE REQUIRED
  KEY 1
  FIELD PROG
  MESSAGE COPY,14@
END

NUMBER H_PROG 3
BEGIN
  PROMPT 42 3 ""
  USE LF_RILPROD KEY 6 SELECT QTA==0
	JOIN LF_ANAMAG INTO CODART==CODART
  FLAGS "UHG"
  INPUT PROVV F_PROVV
  INPUT ANNO F_ANNO
  INPUT CODNUM F_CODNUM
  INPUT NDOC F_NDOC
  INPUT NRIGA F_NRIGA
	DISPLAY "Ordine@10" NDOC
	DISPLAY "Riga@7" NRIGA
  DISPLAY "Codice articolo@20" CODART
	DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Data ordine" DATA
  DISPLAY "Prog." PROG
  OUTPUT F_CODART CODART 
  OUTPUT F_DATA DATA
  OUTPUT F_PROG PROG
  CHECKTYPE NORMAL
END

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

STRING F_DESCRIMP 50
BEGIN
  PROMPT 20 5 ""
  USE IMP KEY 2
  INPUT S0 F_DESCRIMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_IMPIANTO
  CHECKTYPE NORMAL
END

STRING F_LINEA 5
BEGIN
  PROMPT 1 6 "Linea     "
  USE LNP SELECT S6==#F_IMPIANTO
  INPUT CODTAB F_LINEA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_LINEA CODTAB
  OUTPUT F_DESCRLIN S0
  CHECKTYPE NORMAL
  FIELD LINEA
END

STRING F_DESCRLIN 50
BEGIN
  PROMPT 20 6 ""
  USE LNP KEY 2
  INPUT S0 F_DESCRLIN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_LINEA
  CHECKTYPE NORMAL
END

STRING F_OPERATORE 16
BEGIN
  PROMPT 1 7 "Operatore "
  USE DIP
  INPUT CODTAB F_OPERATORE
  DISPLAY "Codice" CODTAB
  DISPLAY "Cognome@40" S0[1,40]
  DISPLAY "Nome@30" S0[41,70]
  OUTPUT F_OPERATORE CODTAB
  OUTPUT F_COGNOME S0[1,40]
  OUTPUT F_NOME S0[41,70]
  CHECKTYPE NORMAL
  FIELD OPERATORE
END

STRING F_COGNOME 40 25
BEGIN
  PROMPT 30 7 ""
  USE DIP KEY 2
  INPUT S0[1,40] F_COGNOME
  INPUT S0[41,70] F_NOME
  DISPLAY "Cognome@40" S0[1,40]
  DISPLAY "Nome@30" S0[41,70]
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_OPERATORE
  CHECKTYPE SEARCH
END

STRING F_NOME 30 18
BEGIN
  PROMPT 59 7 ""
  COPY ALL F_COGNOME
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bOrdine"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 9 "Numerazione "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESCRNUM S0
  CHECKTYPE NORMAL
  FLAGS "U"
  FIELD CODNUM
END

STRING F_DESCRNUM 50
BEGIN
  PROMPT 24 9 ""
  USE %NUM KEY 2
  INPUT S0 F_DESCRNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 10 "Anno        "
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD ANNO
END

LISTBOX F_PROVV 11
BEGIN
  PROMPT 24 10 ""
  ITEM "D|Definitivo "
  ITEM "P|Provvisorio"
  FIELD PROVV
END

NUMBER F_NDOC 7
BEGIN
  PROMPT 43 10 "Numero "
  USE LF_RIGHEDOC SELECT CODART==#F_CODART
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC
  INPUT NRIGA F_NRIGA
  DISPLAY "N.Doc.@7" NDOC
  DISPLAY "Riga" NRIGA
  DISPLAY "Descrizione@50" DESCR
	DISPLAY "Articolo@20" CODARTMAG
  OUTPUT F_NDOC NDOC
  OUTPUT F_NRIGA NRIGA
  FIELD NDOC
END

NUMBER F_NRIGA 3
BEGIN
  PROMPT 66 10 "Riga "
	COPY ALL F_NDOC
  CHECKTYPE SEARCH
  FIELD NRIGA
END

NUMBER F_QTA 15 5
BEGIN
  PROMPT 1 13 "Quantita' prodotta "
  FIELD QTA
END

BOOLEAN F_CHIUSO
BEGIN
  PROMPT 38 13 "Lotto chiuso"
  FIELD CHIUSO
END

NUMBER F_SCARTO 15 5
BEGIN
  PROMPT 1 14 "Scarto di produz.  "
  FIELD SCARTO
END

NUMBER F_PROD 8 3
BEGIN
	PROMPT 38 14 "Produttivita' teorica "
	FI PROD
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 15 "@bBolla di produzione"
END

STRING F_CODNUMP 4
BEGIN
  PROMPT 2 16 "Numerazione "
  USE %NUM
  INPUT CODTAB F_CODNUMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUMP CODTAB
  OUTPUT F_DESCRNUMP S0
  CHECKTYPE NORMAL
  FLAGS "UD"
  FIELD CODNUMP
  GROUP GR_BOLPROD
END

STRING F_DESCRNUMP 50
BEGIN
  PROMPT 24 16 ""
  USE %NUM KEY 2
  INPUT S0 F_DESCRNUMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUMP
  FLAGS "D"
  GROUP GR_BOLPROD
END

NUMBER F_ANNOP 4
BEGIN
  PROMPT 2 17 "Anno        "
  FLAGS "UD"
  FIELD ANNOP
  GROUP GR_BOLPROD
END

LISTBOX F_PROVVP 11
BEGIN
  PROMPT 24 17 ""
  ITEM "D|Definitivo "
  ITEM "P|Provvisorio"
  FLAGS "D"
  FIELD PROVVP
  GROUP GR_BOLPROD
END

NUMBER F_NDOCP 7
BEGIN
  PROMPT 43 17 "Numero "
  FLAGS "D"
  FIELD NDOCP
END

NUMBER F_NRIGAP 3
BEGIN
  PROMPT 66 17 "Riga "
  USE LF_RIGHEDOC SELECT CODART==#F_CODART
  INPUT PROVV F_PROVVP SELECT
  INPUT ANNO F_ANNOP SELECT
  INPUT CODNUM F_CODNUMP SELECT
  INPUT NDOC F_NDOCP SELECT
  INPUT NRIGA F_NRIGAP
  DISPLAY "Riga" NRIGA
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NDOCP NDOC
  OUTPUT F_NRIGAP NRIGA
  CHECKTYPE NORMAL
  FLAGS "D"
  FIELD NRIGAP
  GROUP GR_BOLPROD
END


ENDPAGE

PAGE "Tempi" -1 -1 72 6

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 ""
END

STRING DLG_NULL 20
BEGIN
  PROMPT 2 1 "Articolo        "  
  FLAGS "UD"
  GROUP 11
END

STRING DLG_NULL 50
BEGIN
  PROMPT 2 2 "Descrizione     "
  FLAGS "UD"
  GROUP 12
END

DATE DLG_NULL
BEGIN
  PROMPT 2 3 "Data consegna   "
  FLAGS "D"
  GROUP 13
END

NUMBER DLG_NULL 3
BEGIN
  PROMPT 42 3 "Progressivo del giorno "
  FLAGS "UD"
  GROUP 14
END

SPREADSHEET F_TEMPI 78
BEGIN
  PROMPT 1 5 "Tempi"
  ITEM "Data inizio"
  ITEM "Ora"
  ITEM "Minuto"
  ITEM "Secondo"
  ITEM "Data fine@10"
  ITEM "Ora"
  ITEM "Minuto"
  ITEM "Secondo"
  ITEM "Quantit<69> prodotta"
  ITEM "Scarto@15"
END

ENDPAGE

ENDMASK

PAGE "Tempi" -1 -1 80 11

GROUPBOX DLG_NULL 38 3
BEGIN
  PROMPT 1 2 "@bInizio produzione"
END

DATA FR_DATAINI
BEGIN
  PROMPT 2 3 "Data "
  CHECKTYPE REQUIRED
END

STRING FR_ORAINI 2
BEGIN
  PROMPT 22 3 "Ora "
  FLAGS "U"
  NUM_EXPR #F_ORAINI<24
  FIELD ORAPROD[1,2]
END

STRING FR_MININI 2
BEGIN
  PROMPT 29 3 ":"
  NUM_EXPR #F_MININI<60
  FIELD ORAPROD[3,4]
END

STRING FR_SECINI 2
BEGIN
  PROMPT 33 3 ":"
  NUM_EXPR #F_SECINI<60
  FIELD ORAPROD[5,6]
END

GROUPBOX DLG_NULL 38 3
BEGIN
  PROMPT 41 2 "@bFine produzione"
END

DATA FR_DATAFIN
BEGIN
  PROMPT 42 3 "Data "
  FIELD DATAFINE
END

STRING FR_ORAFIN 2
BEGIN
  PROMPT 62 3 "Ora "
  NUM_EXPR #F_ORAFIN<24
  FIELD ORAFINE[1,2]
END

STRING FR_MINFIN 2
BEGIN
  PROMPT 69 3 ":"
  NUM_EXPR #F_MINFIN<60
  FIELD ORAFINE[3,4]
END

STRING FR_SECFIN 2
BEGIN
  PROMPT 73 3 ":"
  NUM_EXPR #F_SECFIN<60
  FIELD ORAFINE[5,6]
END

NUMBER FR_QTA 15 5
BEGIN
  PROMPT 1 5 "Quantita' prodotta "
  FIELD QTA
END

NUMBER FR_SCARTO 15 5
BEGIN
  PROMPT 1 7 "Scarto di produz.  "
  FIELD SCARTO
END

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

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE

ENDMASK