#include "ve1800a.h"

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

PAGE "Lista documenti" -1 -1 60 21

GROUPBOX DLG_NULL 74 5
BEGIN
  PROMPT 1 2 "@bCliente"
  GROUP 1
END

NUMBER F_CODFR 6
BEGIN
  PROMPT 2 3 "Da codice "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODFR
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODFR CODCF
  OUTPUT F_RAGSOCFR RAGSOC
  CHECKTYPE SEARCH
  FLAGS "GR"
END

STRING F_RAGSOCFR 50
BEGIN
  PROMPT 22 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOCFR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODFR
  CHECKTYPE SEARCH
END


NUMBER F_CODTO 6
BEGIN
  PROMPT 2 5 "A codice  "
  COPY USE F_CODFR
  INPUT TIPOCF "C"
  INPUT CODCF F_CODTO
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODTO CODCF
  OUTPUT F_RAGSOCTO RAGSOC
  CHECKTYPE SEARCH
  NUM_GE_IF_SET(F_CODFR)
  WARNING "Il codice cliente dev'essere maggiore del precedente"
  FLAGS "GR"
END

STRING F_RAGSOCTO 50
BEGIN
  PROMPT 22 5 ""
  COPY USE F_RAGSOCFR 
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOCTO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODTO
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 74 5
BEGIN
  PROMPT 1 7 "@bData Operazione"
  GROUP 2
END

DATE F_DADATA
BEGIN
	PROMPT 2 8 "Da data limite operazione "
	FLAGS "H"
END

DATE F_ADATA
BEGIN
  PROMPT 2 9 "A data limite operazione  "
  MESSAGE COPY,F_DATASCAD 
END

DATE F_DATASCAD
BEGIN
  PROMPT 2 10 "Data limite scaduto       "
END

GROUPBOX DLG_NULL 74 3
BEGIN
  PROMPT 1 12 "@bParametri Configurazione"
  GROUP 3
END

BOOLEAN F_CONFIDO
BEGIN
	PROMPT 44 13 "Includi clienti con fido 0 "
END

NUMBER F_GIORNIRISK 3
BEGIN
  PROMPT 2 13 "Giorni calcolo rischio"
END

STRING F_REPORT 50
BEGIN
  PROMPT 2 -3 "Report  "
  RSELECT "ve1800"
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK