#include "ca1400a.h"

PAGE "Stampa piano dei conti analitica" -1 -1 80 8

STRING F_DACONTO 20
BEGIN
	PROMPT 2 1 "Da conto        "
	FIELD DA_CONTO
	USE LF_PCONANA
	INPUT CODCONTO F_DACONTO
	DISPLAY "Codice@20" CODCONTO
	DISPLAY "Descrizione@50" DESCR
	OUTPUT F_DACONTO CODCONTO 
	CHECKTYPE SEARCH
END

STRING F_ACONTO 20
BEGIN
	PROMPT 2 3 "A conto         "
	FIELD A_CONTO
	COPY USE F_DACONTO
	INPUT CODCONTO F_ACONTO
	COPY DISPLAY  F_DACONTO
	OUTPUT F_ACONTO CODCONTO 
	CHECKTYPE SEARCH
END

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