#include "ps0872200a.h"

PAGE "Stampa Produzione RealPlast" -1 -1 78 11

STRING F_NUM 4
BEGIN
   PROMPT 2 2 "Numerazione    "
   USE %NUM
   INPUT CODTAB F_NUM
   DISPLAY "Codice@10" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_NUM CODTAB
   FLAGS "U"
	 CHECKTYPE REQUIRED
END

NUMBER F_DACLI 7
BEGIN
   PROMPT 2 4 "Da Cliente     "
   USE 20
	 INPUT TIPOCF "C"
   INPUT CODCF F_DACLI
   DISPLAY "Codice@10" CODCF
   DISPLAY "Descrizione@50" RAGSOC
   OUTPUT F_DACLI CODCF
END

NUMBER F_ACLI 7
BEGIN
   PROMPT 42 4 "A Cliente      "
   USE 20
	 INPUT TIPOCF "C"
   INPUT CODCF F_ACLI
   DISPLAY "Codice@10" CODCF
   DISPLAY "Descrizione@50" RAGSOC
   OUTPUT F_ACLI CODCF
END

DATE F_DAL
BEGIN
   PROMPT 2 6 "Dal             "
	 FLAGS "R"
END

DATE F_AL
BEGIN
   PROMPT 42 6 "Al             "
	 FLAGS "R"
END

STRING F_REPORT 20
BEGIN
   PROMPT 2 8 "Tipo di stampa "
	 RSELECT "ps08722"
	 CHECKTYPE REQUIRED
END

BUTTON DLG_OK 10 2
BEGIN 
  PROMPT -13 -1 ""
END  

BUTTON DLG_SELECT 10 2
BEGIN 
  PROMPT -23 -1 "~Seleziona"
	FLAGS "D"
END  

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

ENDPAGE
ENDMASK