campo-sirio/lv/lv0400d.uml

#include "lv0400d.h"

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

PAGE "Stampa Elenco Clienti per Articolo" -1 -1 40 5

GROUPBOX DLG_NULL 80 5
BEGIN
  PROMPT 1 1 "@b Parametri Articolo"
END

STRING F_CODART 20
BEGIN
PROMPT 2 3 "Articolo   "
FLAG "U"
USE 47
INPUT CODART F_CODART
DISPLAY "Codice@20" CODART
DISPAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESART DESCR
CHECKTYPE REQUIRED  
FIELD #F_CODART_TO
END

STRING F_DESART 50 
BE
PR 2 4 "Descrizione"
USE 47 KEY 2
INPUT DESCR F_DESART
DISPLAY "Codice@20" CODART
DISPALY "Descrizione@50" DESCR
OUTPUT F_CODART CODART
OUTPUT F_DESART DESCR
CHECKTYPE REQUIRED  
FIELD #F_DESART_TO
END

GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 7 "@b Parametri Cliente"
END

NUMBER F_CODCF_DA 6
BEGIN
  PROMPT 2 8 "Da Cliente " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO   
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_DA
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
  FIELD #F_CODCF_FROM
END

STRING F_RAGSOC_DA 50 
BEGIN
  PROMPT 25 8 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_DA
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
END

NUMBER F_CODCF_A 6 
BEGIN
  PROMPT 2 9 "A Cliente  " 
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_A
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
  FIELD #F_CODCF_TO
END

STRING F_RAGSOC_A 50 
BEGIN
  PROMPT 25 9 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_A
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 12 "@b Parametri Prezzo"
END

CURRENCY F_PREZZO_DA 18
BEGIN
PROMPT 2 13 "Da Prezzo  "
FLAGS "U"
FIELD #F_PREZZO_FROM
END

CURRENCY F_PREZZO_A 18
BEGIN
PROMPT 40 13 "A Prezzo"
FLAGS "U"
FIELD #F_PREZZO_TO
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 16 "@b Parametri Zona"
END

STRING F_ZONA 2
BEGIN
  PROMPT 2 17 "Codice Zona"
  USE ZON
  INPUT CODTAB F_ZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ZONA CODTAB
  OUTPUT F_DESZONA S0
  CHECKTYPE NORMAL
  FIELD #F_ZONA_FROM
END

STRING F_DESZONA 50 
BEGIN
  PROMPT 20 17 ""
  USE ZON KEY 2
  INPUT CODTAB F_ZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ZONA CODTAB
  OUTPUT F_DESZONA S0
END


ENDPAGE
ENDMASK