campo-sirio/mr/mr2100b.uml

#include "mr2100a.h" 
#include "mr2url.h" 
PAGE "Risalita su MRP"  -1 -1 80 20

STRING F_ARTICOLO 20
BEGIN
  PROMPT 1 0 "Articolo     "
  FLAGS "D"
END

STRING F_DESCART 70 36
BEGIN
  PROMPT 36 0 ""
  FLAGS "D"
END

STRING F_LIV1 10
BEGIN
  PROMPT 1 1 "Giacenza     "
  USE GCG
  INPUT CODTAB[1,1] "1"
  INPUT CODTAB[2,20] F_LIV1
  OUTPUT F_LIV1 CODTAB[2,20] 
  DISPLAY "Codice" CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV2
  MESSAGE ENABLE, F_LIV2
  FLAGS "D"
END

STRING F_LIV2 10
BEGIN
  PROMPT 27 1 "Giacenza     "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "2"
  INPUT CODTAB[2,20] F_LIV2
  OUTPUT F_LIV2 CODTAB[2,20] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV3
  MESSAGE ENABLE, F_LIV3
  FLAGS "D"
END

STRING F_LIV3 10
BEGIN
  PROMPT 1 2 "Giacenza     "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "3"
  INPUT CODTAB[2,20] F_LIV3
  OUTPUT F_LIV3 CODTAB[2,20] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV4
  MESSAGE ENABLE, F_LIV4
  FLAGS "D"
END

STRING F_LIV4 10
BEGIN
  PROMPT 27 2 "Giacenza     "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "4"
  INPUT CODTAB[2,20] F_LIV4
  OUTPUT F_LIV4 CODTAB[2,20] 
  CHECKTYPE NORMAL
  FLAGS "D"
END


DATE F_FABB_DADATA
BEGIN
  PROMPT 1 3 "Dal            "
  PICTURE ".5"
  FLAGS "D"
END

DATE F_FABB_ADATA
BEGIN
  PROMPT 28 3 "al "
  PICTURE ".5"
  FLAGS "D"
END

STRING F_UM 2
BEGIN
  PROMPT 53 3 "Unita' di misura "
  FLAGS "D"
END

NUMBER F_TOPLAN      18 5
BEGIN
  PROMPT 1 4 "Da pianificare "   
  PICTURE ".5"
  FLAGS "D"
END

NUMBER F_FABB_NETTO  18 5
BEGIN
  PROMPT 1 5 "Fabbis. netto  "   
  PICTURE ".5"
  FLAGS "D"
END

NUMBER F_FABB_LORDO  18 5
BEGIN
  PROMPT 1 6 "Fabbis. lordo  "
  PICTURE ".5"
  FLAGS "D"
  CHECKTYPE REQUIRED
END


NUMBER F_FABB_PIAN  18 5
BEGIN
  PROMPT 41 5 " pianificato "
  PICTURE ".5"
  FLAGS "D"
END

NUMBER F_FABB_SCHED  18 5
BEGIN
  PROMPT 41 6 " confermato  "
  PICTURE ".5"
  FLAGS "D"
END

NUMBER F_FABB_GIAC  18 5
BEGIN
  PROMPT 35 4 " giacenza iniziale "
  PICTURE ".5"
  FLAGS "D"
END

SPREADSHEET F_ORDINI  79 -2
BEGIN
  FLAGS "D"
  PROMPT 0 7 ""
  ITEM "Fabbisogno@F18"
  ITEM "UM"
  ITEM "Documento@10"
  ITEM "Consegna@10"
  ITEM "Cli/For"
  ITEM "Codice Articolo@20"
  ITEM "Liv.1@10"
  ITEM "Liv.2@10"
  ITEM "Liv.3@10"
  ITEM "Liv.4@10"
  ITEM "Mag@3"
  ITEM "Dep@2"
  ITEM "Imp.@5"
  ITEM "Linea@5"
  ITEM "Quantita'@18"
  ITEM "UM."
  ITEM "Prezzo@18"
  ITEM "Descrizione@50"
  ITEM "Anno"
  ITEM "Cod.Num."
  ITEM "Num.Doc."
  ITEM "Num.Riga."
  ITEM "Da Anno"
  ITEM "Da Cod.Num."
  ITEM "Da Num.Doc."
END

ENDPAGE

TOOLBAR "top" 0 0 0 2

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

ENDPAGE

ENDMASK

PAGE "Righe ordini" -1 -1 70 16

NUMBER F_FABBISOGNO 18 5
BEGIN
  PROMPT 1 0 "Fabbisogno "
  PICTURE ".5"
END

STRING F_UMFABB 2
BEGIN
  FLAGS ""
  PROMPT 1 30 ""
END

STRING F_DOCANNODOC 4
BEGIN
  PROMPT 1 2 "Anno        "
END

STRING F_DOCCODNUM 4
BEGIN
  PROMPT 19 2 "Documento "
END

NUMBER F_DOCNUM 9
BEGIN
  PROMPT 35 2 "N. "
END

NUMBER F_DOCNRIGA 4
BEGIN
  PROMPT 50 2 "Riga "
END

DATE F_DATADOC
BEGIN
  PROMPT 1 3 "Data doc.   "
  CHECKTYPE REQUIRED
  FIELD DATADOC
END

DATE F_DATACONS
BEGIN
  PROMPT 39 3 "Data consegna "
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATADOC
  FIELD DATACONS
  WARNING "Data di consegna inferiore a quella del documento"
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 1 4 "Fornitore   "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_RAGSOC RAGSOC
  FIELD CODCF
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_RAGSOC 50 37
BEGIN
  FLAGS "D"
  PROMPT 24 4 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice@16" CODCF
  COPY OUTPUT F_FORNITORE
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_ARTICOLO 20
BEGIN
  PROMPT 1 5 "Articolo    "
END

STRING F_DESCART 50
BEGIN
  PROMPT 1 6 "Descrizione "
END

STRING F_LIV1 10
BEGIN
  PROMPT 1 7 "Giacenza    "
  USE GCG
  INPUT CODTAB[1,1] "1"
  INPUT CODTAB[2,20] F_LIV1
  OUTPUT F_LIV1 CODTAB[2,20] 
  DISPLAY "Codice" CODTAB[2,20]
  DISPLAY "Descrizione@50" S0
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV2
  MESSAGE ENABLE, F_LIV2
END

STRING F_LIV2 10
BEGIN
  PROMPT 27 7 "Giacenza    "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "2"
  INPUT CODTAB[2,20] F_LIV2
  OUTPUT F_LIV2 CODTAB[2,20] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV3
  MESSAGE ENABLE, F_LIV3
END

STRING F_LIV3 10
BEGIN
  PROMPT 1 8 "Giacenza    "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "3"
  INPUT CODTAB[2,20] F_LIV3
  OUTPUT F_LIV3 CODTAB[2,20] 
  CHECKTYPE NORMAL
  MESSAGE EMPTY CLEAR, F_LIV4
  MESSAGE ENABLE, F_LIV4
END

STRING F_LIV4 10
BEGIN
  PROMPT 27 8 "Giacenza    "
  COPY USE  F_LIV1
  COPY DISPLAY F_LIV1
  INPUT CODTAB[1,1] "4"
  INPUT CODTAB[2,20] F_LIV4
  OUTPUT F_LIV4 CODTAB[2,20] 
  CHECKTYPE NORMAL
END

STRING F_MAGAZZINO 3
BEGIN
  PROMPT 1 9 "Magazzino   "
  FLAGS "U"
  USE MAG
  INPUT CODTAB[1,3] F_MAGAZZINO
  INPUT CODTAB[4,5] F_DEPOSITO
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_MAGAZZINO CODTAB[1,3]
  OUTPUT F_DEPOSITO CODTAB[4,5]
  OUTPUT F_DESCMAG S0
  CHECKTYPE NORMAL
END

STRING F_DEPOSITO 2
BEGIN
  PROMPT 19 9 ""
  FLAGS "U"
  COPY ALL F_MAGAZZINO
  CHECKTYPE NORMAL
END

STRING F_DESCMAG 50 37
BEGIN
  PROMPT 24 9 ""
  FLAGS "D"
  USE MAG KEY 2
  INPUT S0 F_DESCMAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Magazzino" CODTAB[1,3]
  DISPLAY "Deposito" CODTAB[4,5]
  COPY OUTPUT F_MAGAZZINO
  CHECKTYPE NORMAL
END

STRING H_CODIMP 5
BEGIN
  PROMPT 1 10 "Impianto    "
  FLAGS "UGH"
  MESSAGE EMPTY COPY,H_CODIMP
  MESSAGE  COPY,F_CODIMP|CHECK,F_CODIMP
END

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

STRING F_DESCIMP 50 37
BEGIN
  PROMPT 24 10 ""
  FLAGS "UD"
  USE IMP KEY 2
  INPUT S0 F_DESCIMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODIMP
  CHECKTYPE NORMAL
END

STRING F_CODLIN 5
BEGIN
  PROMPT 1 11 "Linea       "
  FLAGS "UZ"
  USE LNP
  INPUT CODTAB F_CODLIN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLIN CODTAB
  OUTPUT F_DESCLIN S0
  OUTPUT H_CODIMP S6
  CHECKTYPE NORMAL
END

STRING F_DESCLIN 50 37
BEGIN
  FLAGS "D"
  PROMPT 24 11 ""
  USE LNP KEY 2
  INPUT S0 F_DESCLIN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@16" CODTAB
  COPY OUTPUT F_CODLIN
  CHECKTYPE NORMAL
END

NUMBER F_QUANTITA 18 5
BEGIN
  PROMPT 1 12 "Quantita'   "
  PICTURE ".5"
  FLAGS ""
  CHECKTYPE REQUIRED
END

STRING F_UM 2
BEGIN
  PROMPT 36 12 "Unita' di misura "
END

CURRENCY F_PREZZO 18
BEGIN
  PROMPT 1 13 "Prezzo      "
  FLAGS "U"
END

BOOL F_OK
BEGIN
  PROMPT 44 11 "OK"
  FLAGS "H"
END

STRING F_DAANNO  4
BEGIN
  PROMPT 1 14 "Da Anno     "
END

STRING F_DACODNUM 4
BEGIN
  PROMPT 19 14 "Documento "
END

NUMBER F_DANUMDOC 9
BEGIN
  PROMPT 35 14 "N. "
END

ENDPAGE

TOOLBAR "top" 0 0 0 2

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

BUTTON F_RISALITA 10 2
BEGIN
  PROMPT -23 -1 "Risalita"
  PICTURE TOOL_LINK
END

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

ENDPAGE

ENDMASK