#include "lv0400b.h"

TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE

PAGE "Stampa Contratti in scadenza Da/A" -1 -1 40 5

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 2 "@b Parametri Cliente"
END

NUMBER F_CODCF_DA 6
BEGIN
  PROMPT 2 3 "Da Cliente " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO   
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_DA
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
  FIELD #F_CODCF_FROM
END

STRING F_RAGSOC_DA 50 
BEGIN
  PROMPT 25 3 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_DA
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
END

NUMBER F_CODCF_A 6 
BEGIN
  PROMPT 2 4 "A Cliente  " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_A
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
  FIELD #F_CODCF_TO
END

STRING F_RAGSOC_A 50 
BEGIN
  PROMPT 25 4 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_A
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 6 "@b Parametri Data Scadenza"
END

DATE F_DATA_DA
BEGIN
  PROMPT 2 7 "Da Data  "
  FIELD #F_DATA_FROM
END

DATE F_DATA_A
BEGIN
  PROMPT 40 7 "A Data"
  FIELD #F_DATA_TO
  VALIDATE DATE_CMP_FUNC >= F_DATA_DA
  WARNING "La data finale deve essere successiva a quella iniziale"
END

ENDPAGE
ENDMASK