#include "ca1500a.h"

PAGE "Stampa centri di costo" -1 -1 80 8

STRING F_DACDC 20
BEGIN
	PROMPT 2 1 "Da Centro       "
	FIELD DA_CDC
	USE LF_CDC
	INPUT CODCOSTO F_DACDC
	DISPLAY "Codice@20" CODCOSTO
	DISPLAY "Descrizione@50" DESCRIZ
	OUTPUT F_DACDC CODCOSTO
	CHECKTYPE SEARCH
END

STRING F_ACDC 20
BEGIN
	PROMPT 2 3 "A Cento         "
	FIELD A_CDC
	COPY USE F_DACDC
	INPUT CODCOSTO F_ACDC
	COPY DISPLAY  F_DACDC
	OUTPUT F_ACDC CODCOSTO
	CHECKTYPE SEARCH
END

STRING F_REPORT 20
BEGIN
   PROMPT 2 5 "Tipo di stampa  "
	 RSELECT "ca1500"
	 CHECKTYPE NORMAL
END

BUTTON DLG_PRINT 10 2
BEGIN 
  PROMPT -12 -1 ""
END  

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

ENDPAGE

ENDMASK