#include "batbiva.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Tipo IVA CEE" -1 -1 78 19

NUMBER FLD_TABIVA_CODTAB 4
BEGIN
  PROMPT 1 1 "Codice      "
  KEY 1
  USE %TIC
  FLAGS "UZ"
  INPUT CODTAB FLD_TABIVA_CODTAB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Sospeso@C" B2
  OUTPUT FLD_TABIVA_CODTAB CODTAB
  OUTPUT FLD_TABIVA_S0 S0
  CHECKTYPE REQUIRED
  FIELD CODTAB
END

STRING FLD_TABIVA_S0 50
BEGIN
  PROMPT 1 2 "Descrizione "
  FIELD S0
  KEY 2
  USE %TIC KEY 2
  INPUT S0 102
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Sospeso@C" B2
  COPY OUTPUT FLD_TABIVA_CODTAB
  CHECKTYPE REQUIRED
END

BOOLEAN FLD_SOSPESO_B2
BEGIN
  PROMPT 1 -2 "Codice sospeso non pił utilizzabile"
  FIELD B2
END


ENDPAGE

ENDMASK