#include "lv0400.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Contratti" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
	PROMPT 0 4 "@bContratti"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 5 "Cliente     " 
  FIELD CODCF
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED  
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 5 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED  
END

NUMBER F_CODCONT 6
BEGIN
  PROMPT 2 6 "Contratto N."
  USE LF_LVCONDV 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
  INPUT CODCF F_CODCF  
  INPUT CODCONT F_CODCONT 
  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 CODCF
  OUTPUT F_CODCONT CODCONT
  FLAGS "U"
  FIELD CODCONT
  KEY 1
  CHECKTYPE REQUIRED
END

ENDPAGE	

ENDMASK