#include "BATBIMB.h"

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Gestione imballi" 11 60 14


STRING F_CODICE 5 
BEGIN
  PROMPT 4 4 "Codice dell'imballaggio     "
  FIELD IMB->CODTAB 
  KEY 1
  
  USE IMB
  FLAG "U"
  FLAG "R"
  INPUT CODTAB  F_CODICE
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@30 " 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 30
BEGIN
  PROMPT 4 6 "Descrizione  "
  FIELD IMB->S0
  KEY 2
  
  USE IMB KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@20 " 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 4 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 45 8 "Spessore  "
  FIELD IMB->R2
END

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

GROUPBOX DLG_NULL 68 10
BEGIN
  PROMPT 1 2 ""
  FLAG "R"
END



ENDPAGE

ENDMASK