campo-sirio/mr/mr0500a.uml

#include "mr0500a.h"

TOOLBAR "" 0 -2 0 2
#include <toolbar.h>
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
END

STRING F_DESCRCOD 50
BEGIN
  PROMPT 2 2 "Descrizione     "
  USE LF_ANAMAG KEY 2
  FLAGS "U"
  INPUT DESCR F_DESCRCOD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice articolo@20" CODART
  COPY OUTPUT F_CODART  
  CHECKTYPE NORMAL
  KEY 1
END

DATE F_DATAPROD
BEGIN
  PROMPT 2 3 "Data produzione "
  CHECKTYPE REQUIRED
  KEY 1
  FIELD DATAPROD
  MESSAGE COPY,F_DATAINI
END

NUMBER F_PROG 3
BEGIN
  PROMPT 42 3 "Progressivo del giorno "
  USE LF_RILPROD
  FLAGS "U"
  INPUT CODART F_CODART SELECT
  INPUT DATAPROD F_DATAPROD
  INPUT PROG F_PROG
  DISPLAY "Codice articolo@20" CODART
  DISPLAY "Data prod." DATAPROD
  DISPLAY "Prog." PROG
  OUTPUT F_DATAPROD DATAPROD
  OUTPUT F_PROG PROG
  CHECKTYPE REQUIRED
  KEY 1
  FIELD PROG
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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 7 "@bOrdine di produzione"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 8 "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 8 ""
  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 9 "Anno        "
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD ANNO
END

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

NUMBER F_NDOC 7
BEGIN
  PROMPT 43 9 "Numero "
  USE LF_DOC           
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Stato@R" STATO
  DISPLAY "Data\ndocumento" DATADOC
  OUTPUT F_NDOC NDOC
  OUTPUT F_PROVV PROVV
  CHECKTYPE NORMAL
  FIELD NDOC
END

NUMBER F_NRIGA 3
BEGIN
  PROMPT 66 9 "Riga "
  USE LF_RIGHEDOC
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOC SELECT
  INPUT NRIGA F_NRIGA
  DISPLAY "Riga" NRIGA
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_NRIGA NRIGA
  CHECKTYPE NORMAL
  FIELD NRIGA
END

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

DATA F_DATAINI
BEGIN
  PROMPT 2 12 "Data "
  CHECKTYPE REQUIRED
  FLAGS "D"
END

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

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

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

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

DATA F_DATAFIN
BEGIN
  PROMPT 42 12 "Data "
  FIELD DATAFINE
END

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

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

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

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

BOOLEAN F_CHIUSO
BEGIN
  PROMPT 42 14 "Lotto chiuso"
  FIELD CHIUSO
END


BUTTON F_DATALOG 10 2
BEGIN
  PROMPT 67 14 ""
  PICTURE 20001
END

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

STRING F_CODNUMP 4
BEGIN
  PROMPT 2 17 "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 17 ""
  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 18 "Anno        "
  FLAGS "UD"
  FIELD ANNOP
  GROUP GR_BOLPROD
END

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

NUMBER F_NDOCP 7
BEGIN
  PROMPT 43 18 "Numero "
  USE LF_DOC           
  INPUT PROVV F_PROVVP SELECT
  INPUT ANNO F_ANNOP SELECT
  INPUT CODNUM F_CODNUMP SELECT
  INPUT NDOC F_NDOCP
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Data\ndocumento" DATADOC
  OUTPUT F_NDOCP NDOC
  OUTPUT F_PROVVP PROVV
  CHECKTYPE NORMAL
  FLAGS "D"
  FIELD NDOCP
  GROUP GR_BOLPROD
END

NUMBER F_NRIGAP 3
BEGIN
  PROMPT 66 18 "Riga "
  USE LF_RIGHEDOC
  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_NRIGAP NRIGA
  CHECKTYPE NORMAL
  FLAGS "D"
  FIELD NRIGAP
  GROUP GR_BOLPROD
END

ENDPAGE

ENDMASK