#include "ca1700a.h"

PAGE "Stampa fasi" -1 -1 80 8

STRING F_DAFASE 10
BEGIN
	PROMPT 2 1 "Da Fase         "
	FIELD DA_FASE
	USE LF_FASI
	INPUT CODFASE F_DAFASE
	DISPLAY "Codice@10" CODFASE
	DISPLAY "Descrizione@50" DESCRIZ
	OUTPUT F_DAFASE CODFASE
	CHECKTYPE SEARCH
END

STRING F_AFASE 10
BEGIN
	PROMPT 2 3 "A Fase          "
	FIELD A_FASE
	COPY USE F_DAFASE
	INPUT CODFASE F_AFASE
	COPY DISPLAY  F_DAFASE
	OUTPUT F_AFASE CODFASE
	CHECKTYPE SEARCH
END

STRING F_REPORT 20
BEGIN
  PROMPT 2 5 "Tipo di stampa  "
	RSELECT "ca1700"
	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