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 60 7
BEGIN
  PROMPT 1 1 "@b Modalit<69> di Passaggio"
  FLAGS "R"
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     "
  FLAGS "BU"
  KEY 1
  FIELD CODTAB
    
  USE &MPS SELECT COD = "MPS"
  INPUT CODTAB F_COD_MPS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @35" S0
  
  OUTPUT F_COD_MPS CODTAB
  OUTPUT F_DES_MPS S0
  
  CHECKTYPE REQUIRED
END

STRING F_DES_MPS 35
BEGIN
  PROMPT 2 5 "Descrizione"
  FIELD S0
  KEY 2
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 60 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