campo-sirio/lv/lv0400f.uml

#include "lv0400f.h"

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

PAGE "Stampa Contratti per Cliente" -1 -1 40 5

GROUPBOX DLG_NULL 85 5
BEGIN
  PROMPT 1 1 "@b Parametri Estrazione"
END

NUMBER F_DACODCF 6
BEGIN
  PROMPT 2 2 "Da Cliente " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_DACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_DACODCF CODCF
  OUTPUT F_DARAGSOC RAGSOC
  CHECKTYPE REQUIRED 
  FIELD #F_CODCF_FROM
END

STRING F_DARAGSOC 50 
BEGIN
  PROMPT 30 2 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DACODCF
  CHECKTYPE REQUIRED  
END

NUMBER F_ACODCF 6
BEGIN
  PROMPT 2 3 "A Cliente  " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_ACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_ACODCF CODCF
  OUTPUT F_ARAGSOC RAGSOC
  CHECKTYPE REQUIRED 
  FIELD #F_CODCF_TO
END

STRING F_ARAGSOC 50 
BEGIN
  PROMPT 30 3 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_ACODCF
  CHECKTYPE REQUIRED  
END

NUMBER F_ANNOES 4
BEGIN
  PROMPT 2 6 "Anno Es"
  FLAGS "A"
  FIELD #F_ANNO
  FLAGS "H"
END

ENDPAGE
ENDMASK