campo-sirio/ve/velib04e.uml

#include "velib04e.h"

TOOLBAR "Toolbar" 0 -2 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -11 "E~labora"
  PICTURE BMP_ELABORA
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Consuntivazione produzione" -1 -1 78 20

SPREADSHEET F_SHEET
BEGIN
  PROMPT 0 1 ""
  ITEM "@1"
  ITEM "Articolo@20"
  ITEM "Progr."
  ITEM "Data Prod.@10"
  ITEM "Ora@6"
  ITEM "Data Fine@10"
  ITEM "Ora@6"
  ITEM "Impianto"
  ITEM "Linea"
  ITEM "Quantita'@15"
  ITEM "Chiuso"
  ITEM "Provv.@5"
  ITEM "Anno"
  ITEM "Cod.Num."
  ITEM "Numero"
  ITEM "Riga"
END

ENDPAGE

ENDMASK

PAGE "Riga 1" -1 -1 78 13

GROUPBOX DLG_NULL 76 8
BEGIN
  PROMPT 1 0 "@bArticolo"
END

BOOLEAN S_SELECTED
BEGIN
  PROMPT 41 0 "Selezionato"
END

STRING S_CODART 20
BEGIN
  PROMPT 2 1 ""
  FLAGS "D"
END

STRING S_DESCR_ART 40 50
BEGIN
  PROMPT 24 1 ""
  USE LF_ANAMAG
  INPUT CODART S_CODART
  OUTPUT S_DESCR_ART DESCR
  CHECKTYPE NORMAL
  FLAGS "D"
END

NUMBER S_PROG 4
BEGIN
  PROMPT 2 2 "Progressivo "
  FLAGS "DU"
END

DATE S_DATAPROD 
BEGIN
  PROMPT 32 2 "Data produzione "
  FLAGS "D"
END

NUMBER S_ORAPROD 6
BEGIN
  PROMPT 64 2 "Ora "
  FLAGS "DUZ"
END


DATE S_DATAFINE
BEGIN
  PROMPT 32 3 "Fine produzione "
  FLAGS "D"
END

NUMBER S_ORAFINE 6
BEGIN
  PROMPT 64 3 "Ora "
  FLAGS "DUZ"
END

STRINGA S_IMPIANTO 5
BEGIN
  PROMPT 2 4 "Impianto "
  USE IMP
  INPUT CODTAB S_IMPIANTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_IMPIANTO CODTAB
  OUTPUT S_DESCR_IMPIANTO S0
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRINGA S_DESCR_IMPIANTO 50
BEGIN
  PROMPT 22 4 ""
  USE IMP KEY 2
  INPUT S0 S_DESCR_IMPIANTO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_IMPIANTO
  CHECKTYPE NORMAL
END


STRINGA S_LINEA 5
BEGIN
  PROMPT 2 5 "Linea    "
  USE LNP
  INPUT CODTAB S_LINEA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_LINEA CODTAB
  OUTPUT S_DESCR_LINEA S0
  CHECKTYPE NORMAL
  FLAGS "U"
END

STRINGA S_DESCR_LINEA 50
BEGIN
  PROMPT 22 5 ""
  USE LNP KEY 2
  INPUT S0 S_DESCR_LINEA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_LINEA
  CHECKTYPE NORMAL
END


NUMBER S_QTA 15 5
BEGIN
  PROMPT 2 6 "Quantita'"
  FLAGS "U"
  CHECKTYPE REQUIRED
END

BOOLEAN S_CHIUSO
BEGIN
  PROMPT 42 6 "Chiuso"
END

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

RADIOBUTTON S_PROVV 1 36
BEGIN
  PROMPT 2 8 ""
  ITEM "D|Definitivo"
  ITEM "P|Provvisorio"
  FLAGS "DZ"
END

NUMBER S_ANNO 4
BEGIN
  PROMPT 42 9 "Anno "
  FLAGS "DU"
END

STRING S_CODNUM 4
BEGIN
  PROMPT 2 10 "Numerazione "
  FLAGS "DU"
END

NUMBER S_NDOC 7
BEGIN
  PROMPT 22 10 "Numero   "
  FLAGS "DU"
END

NUMBER S_NRIGA 4
BEGIN
  PROMPT 42 10 "Riga "
  FLAGS "DU"
END

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

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

ENDPAGE

ENDMASK