#include "vetbscc.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Sottocategorie CONAI" 0 0 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

LIST SCC_CATEGORIA 2 10
BEGIN
  PROMPT 2 1 "Categoria   " 
  FIELD CODTAB[1,2]
  KEY 1
  ITEM "AC|Acciaio"
  ITEM "AL|Alluminio"
  ITEM "CA|Carta"
  ITEM "PL|Plastica"
  ITEM "LE|Legno"
  ITEM "VE|Vetro"
END

NUMBER SCC_CODICE 2
BEGIN
  PROMPT 2 3 "Codice      " 
  FIELD CODTAB[3,4]
  KEY 1
  USE &SCC
  FLAGS "Z"
  INPUT CODTAB[1,2]  SCC_CATEGORIA SELECT
  INPUT CODTAB[3,4]  SCC_CODICE
  DISPLAY "Categoria" CODTAB[1,2]
  DISPLAY "Codice@8" CODTAB[3,4]
  DISPLAY "Descrizione@50" S0
  OUTPUT SCC_CODICE CODTAB[3,4]
  CHECKTYPE REQUIRED
END

STRING SCC_DESCR 50
BEGIN
  PROMPT 2 5 "Descrizione "
  FIELD S0
  KEY 2
  USE &SCC KEY 2
  INPUT S0  SCC_DESCR
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Categoria" CODTAB[1,2]
  DISPLAY "Codice@8" CODTAB[3,4]
  COPY OUTPUT SCC_CODICE
  CHECKTYPE REQUIRED
END

ENDPAGE
ENDMASK