campo-sirio/lv/lv0400a.uml

#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_CLI RAGSOC
  CHECKTYPE REQUIRED  
END

STRING F_RAGSOC_CLI 50
BEGIN
  PROMPT 20 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
  FLAGS "U"
  FIELD CODCONT
  KEY 1
  
  CHECKTYPE REQUIRED
END

STRING F_DES_CODCONT 50
BEGIN
  PROMPT 20 6 ""
END

ENDPAGE	

ENDMASK