#include "batb%ois.h"

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

PAGE "Vecchi codici attivita'" -1 -1 78 7

STRING FLD_TABOIS_CODTAB 4
BEGIN
	PROMPT 2 1 "Codice      "
	FIELD %OIS->CODTAB[1,4]
	HELP "Inserire il codice del vecchio codice attivit…"
	USE %OIS
	CHECKTYPE REQUIRED
	INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
	INPUT CODTAB[5,] FLD_TABOIS_ADD
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "Subcodice" CODTAB[5,]
	DISPLAY "Descrizione@40" S0
	OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
	OUTPUT FLD_TABOIS_ADD CODTAB[5,]
	OUTPUT FLD_TABOIS_S0 S0
	KEY 1
	FLAGS "RZ"
END

STRING FLD_TABOIS_ADD 1
BEGIN
	PROMPT 22 1 "Subcodice   "
	FIELD %OIS->CODTAB[5,]
	COPY ALL FLD_TABOIS_CODTAB
	CHECKTYPE REQUIRED
	KEY 1
	FLAGS "U"
END

STRING FLD_TABOIS_S0 40
BEGIN
	PROMPT 2 3 "Descrizione "
	FIELD %OIS->S0
	HELP "Inserire la descrizione del vecchio codice attivit… "
	USE %OIS KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 FLD_TABOIS_S0
	DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "Subcodice" CODTAB[5,]
	OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
	OUTPUT FLD_TABOIS_ADD CODTAB[5,]
	OUTPUT FLD_TABOIS_S0 S0
	KEY 2
END

ENDPAGE
ENDMASK