#include "ca1600a.h"

PAGE "Stampa commesse" -1 -1 80 8

STRING F_DACMS 20
BEGIN
	PROMPT 2 1 "Da Commessa     "
	FIELD DA_CMS
	USE LF_COMMESSE
	INPUT CODCMS F_DACMS
	DISPLAY "Codice@20" CODCMS
	DISPLAY "Descrizione@50" DESCRIZ
	OUTPUT F_DACMS CODCMS
	CHECKTYPE SEARCH
END

STRING F_ACMS 20
BEGIN
	PROMPT 2 3 "A Commessa      "
	FIELD A_CMS
	COPY USE F_DACMS
	INPUT CODCMS F_ACMS
	COPY DISPLAY  F_DACMS
	OUTPUT F_ACMS CODCMS
	CHECKTYPE SEARCH
END

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