#include "ba3200.h"

PAGE "Stampa vecchi codici attivita'" -1 -1 60 8

STRING F_INIZIO1 4
BEGIN
	PROMPT 2 1 "DA codice "
	FLAGS "RZ"
	HELP "Inserire il codice d'inizio "
	FIELD LF_TABCOM->CODTAB[1,4]
	USE %OIS
	INPUT CODTAB[1,4] F_INIZIO1
	INPUT CODTAB[5,] F_INIZIO1
  DISPLAY "Codice" CODTAB[1,4]
  DISPLAY "Subcodice" CODTAB[5,]
	DISPLAY "Descrizione@50" S0
	OUTPUT F_INIZIO1 CODTAB[1,4]
	OUTPUT F_INIZIO1 CODTAB[5,]
	GROUP 1
END

STRING F_INIZIO2 1
BEGIN
	PROMPT 28 1 "subcodice "
	FLAGS "U"
	HELP "Inserire il subcodice d'inizio "
	FIELD LF_TABCOM->CODTAB[5,]
	COPY ALL F_INIZIO1
	GROUP 1
END


STRING F_FINE1 4
BEGIN
	PROMPT 2 3 "A codice "
	FLAGS "RZ"
	HELP "Inserire il codice di fine  "
  FIELD LF_TABCOM->CODTAB[1,4]
	COPY USE F_INIZIO1
	INPUT CODTAB[1,4] F_FINE1
	INPUT CODTAB[5,] F_FINE1
	COPY DISPLAY F_INIZIO1
	GROUP 2
END


STRING F_FINE2 1
BEGIN
	PROMPT 28 3 "subcodice "
	FLAGS "U"
	HELP "Inserire il subcodice di fine  "
  FIELD LF_TABCOM->CODTAB[5,]
	COPY ALL F_FINE1
	GROUP 2
END

BUTTON DLG_OK 8 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 8 2
BEGIN
	PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK