campo-sirio/lv/lv0400g.uml

#include "lv0400g.h"

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

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

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bParametri 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" PAIV
  OUTPUT F_DACODCF CODCF
  OUTPUT F_DARAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD #F_CODCF_FROM
END

STRING F_DARAGSOC 50 
BEGIN
  PROMPT 24 2 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DACODCF
  CHECKTYPE NORMAL
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" PAIV
  OUTPUT F_ACODCF CODCF
  OUTPUT F_ARAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD #F_CODCF_TO
END

STRING F_ARAGSOC 50 
BEGIN
  PROMPT 24 3 ""
  KEY 2
  COPY USE F_DARAGSOC
  INPUT TIPOCF "C"
  INPUT RAGSOC F_ARAGSOC
  COPY DISPLAY F_DARAGSOC
  COPY OUTPUT F_ACODCF
  CHECKTYPE NORMAL
END

DATE F_DASCAD
BEGIN
  PROMPT 2 4 "Dalla scadenza contratto "
  FIELD #DASCAD
END

DATE F_ASCAD
BEGIN
  PROMPT 2 5 "Alla scadenza contratto  "
  FIELD #ASCAD
END

ENDPAGE
ENDMASK