campo-sirio/lv/lvtbmps.uml

#include "lvtbmps.h"

TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE

PAGE "Modalit<69> di Passaggio" -1 -1 78 10

GROUPBOX DLG_NULL 80 7
BEGIN
  PROMPT 1 1 "@b Modalit<69> di Passaggio"
END

LIST F_COD 3
BEGIN
  PROMPT 2 2 ""
  ITEM "MPS|MPS"
  FLAGS "H"
  FIELD COD
  KEY 1
END

STRING F_COD_MPS 1
BEGIN
  PROMPT 2 3 "Codice     "
  HELP "Inserire il codice modalit<69> di passaggio"
  FLAGS "BU"
  FIELD CODTAB
  KEY 1
    
  USE &MPS KEY 1 SELECT COD = "MPS"
  INPUT CODTAB F_COD_MPS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  DISPLAY "Consegna" B0
  DISPLAY "Ritiro" B1
  OUTPUT F_COD_MPS CODTAB
  OUTPUT F_DES_MPS S0
  
  CHECKTYPE REQUIRED
END

STRING F_DES_MPS 50
BEGIN
  PROMPT 2 5 "Descrizione"
  FIELD S0
  KEY 2
  
  USE &MPS KEY 2 SELECT COD = "MPS"
  INPUT S0 F_DES_MPS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  DISPLAY "Consegna" B0
  DISPLAY "Ritiro" B1
  COPY OUTPUT F_COD_MPS
  
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 80 6
BEGIN
  PROMPT 1 9 "@b Dettaglio Modalit<69> di Passaggio"
END

BOOLEAN F_CONSEGNA
BEGIN
  FIELD B0
  PROMPT 2 11 "Consegna"
END

BOOLEAN F_RITIRO
BEGIN
  FIELD B1
  PROMPT 2 13 "Ritiro"
END  

ENDPAGE

ENDMASK