#include "lv0500d.h"

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

PAGE "Stampa Periodi di Sospensione" -1 -1 40 5

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 2 "@bParametri Cliente"
END

NUMBER F_CODCF_FROM 6
BEGIN
  PROMPT 2 3 "Da Cliente   "
  FLAGS "U"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_FROM
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF_FROM CODCF
  OUTPUT F_RAGSOCCF_FROM RAGSOC
  CHECKTYPE SEARCH
  FIELD #FROM_CODCF
END

STRING F_RAGSOCCF_FROM 50
BEGIN
  PROMPT 25 3 ""
  FLAGS "D"
END

NUMBER F_CODCF_TO 6
BEGIN
  PROMPT 2 4 "A Cliente    "
  FLAGS "U"
  USE LF_CLIFO KEY 1
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_TO
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF_TO CODCF
  OUTPUT F_RAGSOCCF_TO RAGSOC
  CHECKTYPE SEARCH
  FIELD #TO_CODCF
END

STRING F_RAGSOCCF_TO 50
BEGIN
  PROMPT 25 4 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 6 "@bParametri Contratto"
END

LIST F_STATUSCONT 10
BEGIN
  PROMPT 2 7 "Stato        "
  ITEM "|"
  ITEM "CH|Chiuso"
  ITEM "CO|Confermato"
  ITEM "DC|Da Confer."  
  FIELD S2[1,1]
  FIELD #STATUSCONT
END

NUMBER F_CODCONT_FROM 6
BEGIN
  PROMPT 2 8 "Da Contratto "
  USE LF_LVCONDV 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
  INPUT CODCF F_CODCF_FROM SELECT
  INPUT CODCONT F_CODCONT_FROM 
  DISPLAY "Cliente" CODCF
  DISPLAY "Contratto" CODCONT
  DISPLAY "Dalla data" DATAIN
  DISPLAY "alla data" DATASC
  DISPLAY "Stato" STATUS
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_CODCF_FROM CODCF
  OUTPUT F_CODCONT_FROM CODCONT
  FLAGS "U"
  CHECKTYPE SEARCH
  FIELD #FROM_CODCONT
END

NUMBER F_CODCONT_TO 6
BEGIN
  PROMPT 2 9 "A Contratto  "
  USE LF_LVCONDV 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
  INPUT CODCF F_CODCF_TO SELECT
  INPUT CODCONT F_CODCONT_TO 
  DISPLAY "Cliente" CODCF
  DISPLAY "Contratto" CODCONT
  DISPLAY "Dalla data" DATAIN
  DISPLAY "alla data" DATASC
  DISPLAY "Stato" STATUS
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_CODCF_TO CODCF
  OUTPUT F_CODCONT_TO CODCONT
  FLAGS "U"
  CHECKTYPE SEARCH
  FIELD #TO_CODCONT
END

ENDPAGE

ENDMASK