campo-sirio/lv/lv0400c.uml

#include "lv0400c.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_CODCF 6
BEGIN
  PROMPT 2 2 "Cliente        " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED 
  FIELD #F_CODCF_TO
END

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

NUMBER F_CODCONT_DA 6
BEGIN
  PROMPT 2 4 "Da Contratto N."
  USE LF_LVCONDV 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=F_CODCF
  INPUT CODCF F_CODCF SELECT
  INPUT CODCONT F_CODCONT_DA
  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_DA CODCONT
  FLAGS "U"
  MESSAGE COPY,F_CODCONT_A
  FIELD #F_CODCONT_FROM
  CHECKTYPE SEARCH
END

NUMBER F_CODCONT_A 6
BEGIN
  PROMPT 30 4 "A Contratto N. "
  USE LF_LVCONDV 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=F_CODCF
  INPUT CODCF F_CODCF SELECT
  INPUT CODCONT F_CODCONT_A 
  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_A CODCONT
  FLAGS "U"
  FIELD #F_CODCONT_TO
  CHECKTYPE SEARCH
END

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

STRING F_REPORT 20
BEGIN
  PROMPT 2 -2 "Tipo di stampa  "
  RSELECT "lv0400c"
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK