campo-sirio/ve/vetbimb.uml

#include "vetbimb.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Gestione imballi" 0 0 0 0

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODICE 5 
BEGIN
  PROMPT 2 2 "Cod. Imballaggio  "
  FIELD IMB->CODTAB 
  KEY 1
  
  USE IMB
  FLAG "U"
  FLAG "R"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  DISPLAY "lunghezza " R0
  DISPLAY "altezza   " R1
  DISPLAY "spessore  " R2
  DISPLAY "peso      " R3 
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR  S0
  OUTPUT F_DIMX   R0
  OUTPUT F_DIMY   R1
  OUTPUT F_DIMZ   R2 
  OUTPUT F_PESO   R3
  CHECKTYPE REQUIRED
END


STRING F_DESCR 50
BEGIN
  PROMPT 2 4 "Descrizione       "
  FIELD IMB->S0
  KEY 2
  
  USE IMB KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  DISPLAY "lunghezza " R0
  DISPLAY "altezza   " R1
  DISPLAY "spessore  " R2
  DISPLAY "peso      " R3 
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR  S0
  OUTPUT F_DIMX   R0
  OUTPUT F_DIMY   R1
  OUTPUT F_DIMZ   R2 
  OUTPUT F_PESO   R3
  CHECKTYPE REQUIRED
END
  
NUMBER F_DIMX 6 2
BEGIN
  PROMPT 2 8 "Lunghezza    "
  FIELD IMB->R0
END

NUMBER F_DIMY 6 2
BEGIN
  PROMPT 26 8 "Altezza  "
  FIELD IMB->R1
END

NUMBER F_DIMZ 6 2
BEGIN
  PROMPT 46 8 "Spessore  "
  FIELD IMB->R2
END

NUMBER F_PESO 6 2
BEGIN
  PROMPT 2 10 "Peso         "
  HELP "Indicare la tara"
  FIELD IMB->R3
END

ENDPAGE

ENDMASK