#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 6
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
   CHECKTYPE SEARCH
END

NUMBER F_ACLI 6
BEGIN
   PROMPT 42 4 "A Cliente      "
   COPY USE F_DACLI
	 INPUT TIPOCF "C"
   INPUT CODCF F_ACLI
   COPY DISPLAY F_DACLI
   OUTPUT F_ACLI CODCF
   CHECKTYPE SEARCH
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

ENDPAGE

TOOLBAR "" 0 0 58 2

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

BUTTON DLG_SELECT 10 2
BEGIN 
  PROMPT -23 -1 "~Selezione"
  PICTURE TOOL_MULTISEL
	FLAGS "D"
END  

#include <helpbar.h>

ENDPAGE
ENDMASK