#include "ps0920400a.h"

PAGE "Selezione Produzione" -1 -1 80 14

TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE

DATE F_DADATA
BEGIN
	PROMPT 2 2 "Dal      "
	FIELD S_DADATA
END

DATE F_ADATA
BEGIN
	PROMPT 2 4 "Al       "
	FIELD S_ADATA
END

STRING F_CODCLI 3
BEGIN
	PROMPT 2 6 "Cliente  "
	WARNING "Cliente assente"
	FLAGS "R"
	FIELD CODCLI
	USE LF_CLIFO
	INPUT TIPOCF "C"
	INPUT CODCF F_CODCLI
	DISPLAY "Codice" CODCF
	DISPLAY "Ragione Sociale@50" RAGSOC
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
	WARNING "Cliente assente"
	PROMPT 26 6 ""
	USE LF_CLIFO KEY 2
	INPUT TIPOCF "C"
	INPUT RAGSOC F_RAGSOC
	DISPLAY "Ragione Sociale@50" RAGSOC
	DISPLAY "Partita IVA@12" PAIV
	DISPLAY "Codice" CODCF
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE SEARCH
END

STRING F_PATH 255 50
BEGIN
  PROMPT 2 8 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED  
  FLAGS "M"
END

STRING F_NAME 50
BEGIN
  PROMPT 2 10 "File     "
  FSELECT ""
  FLAGS "B"
END

STRING F_PROFILO 70 50
BEGIN
	PROMPT 8 -3 "Profilo "
	PSELECT
	GROUP 1
END

ENDPAGE

ENDMASK