#include "vetbctm.h"

PAGE "Tabella Categorie Magic" -1 -1 78 6

STRING F_CATEGORIA1 5
BEGIN
  PROMPT 1 1 "Categoria  " 
  FLAGS "UZ"  
  USE &CTM
  INPUT  CODTAB[1,5] F_CATEGORIA1
  INPUT  CODTAB[6,10] F_CATEGORIA2
  INPUT  CODTAB[11,15] F_CATEGORIA3
  INPUT  CODTAB[16,20] F_CATEGORIA4
  DISPLAY "Categoria 1" CODTAB[1,5]
  DISPLAY "Categoria 2" CODTAB[6,10]
  DISPLAY "Categoria 3" CODTAB[11,15]
  DISPLAY "Categoria 4" CODTAB[16,20]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATEGORIA1  CODTAB[1,5]
  OUTPUT F_CATEGORIA2  CODTAB[6,10]
  OUTPUT F_CATEGORIA3  CODTAB[11,15]
  OUTPUT F_CATEGORIA4  CODTAB[16,20]
  CHECKTYPE REQUIRED
  FIELD CODTAB[1,5]
  KEY 1
END

STRING F_CATEGORIA2 5
BEGIN
  PROMPT 22 1 "" 
  FLAGS "UZ"  
  COPY ALL F_CATEGORIA1
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_CATEGORIA3
  FIELD CODTAB[6,10]
  KEY 1
END

STRING F_CATEGORIA3 5
BEGIN
  PROMPT 31 1 "" 
  FLAGS "UZ"  
  COPY ALL F_CATEGORIA1
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 F_CATEGORIA4
  FIELD CODTAB[11,15]
  KEY 1
END

STRING F_CATEGORIA4 5
BEGIN
  PROMPT 40 1 "" 
  FLAGS "UZ"  
  COPY ALL F_CATEGORIA1
  CHECKTYPE NORMAL
  FIELD CODTAB[16,20]
  KEY 1
END

STRING F_CATEGORIA_DESCR 50
BEGIN
  PROMPT 1 3 ""
  USE &GMC KEY 2
  INPUT S0 F_CATEGORIA_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Categoria 1" CODTAB[1,5]
  DISPLAY "Categoria 2" CODTAB[6,10]
  DISPLAY "Categoria 3" CODTAB[11,15]
  DISPLAY "Categoria 4" CODTAB[16,20]
  COPY OUTPUT F_CATEGORIA1
  CHECKTYPE NORMAL
  KEY 2
  FIELD S0
END

ENDPAGE

TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE

ENDMASK