#include "cg1700.h"

PAGE "" -1 -1 70 10

NUMBER F_CODDITTA 5
BEGIN
	PROMPT 1 1 "Ditta             "
        FLAGS "FRD"
        USE LF_NDITTE KEY 1  
        CHECKTYPE REQUIRED
        INPUT CODDITTA F_CODDITTA
        DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale @50" RAGSOC
	OUTPUT F_CODDITTA CODDITTA
        OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale   "
  FLAGS "D"
END

DATE F_DATASTAMPA 
BEGIN
  PROMPT 1 4 "Data stampa       "
  FLAGS "A"
END

BUTTON DLG_OK 9 2
BEGIN 
  PROMPT 30 8 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT 46 8 ""
END

ENDPAGE

ENDMASK