campo-sirio/lv/lv2700a.uml

#include "lv2700a.h"

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

PAGE "Riepilogo Bolle di Lavanderie" -1 -1 40 5

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bSelezione clienti"
END

NUMBER F_CODCF_DA 6
BEGIN
  PROMPT 2 2 "Da Cliente " 
  FLAGS "U"
  USE LF_CLIFO   
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_DA
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCF_DA CODCF
  OUTPUT F_RAGSOC_DA RAGSOC
  CHECKTYPE SEARCH
  MESSAGE COPY,F_CODCF_A|CHECK,F_CODCF_A
END

STRING F_RAGSOC_DA 50 
BEGIN
  PROMPT 25 2 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_DA
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF_DA
  CHECKTYPE SEARCH
END

NUMBER F_CODCF_A 6 
BEGIN
  PROMPT 2 3 "A Cliente  " 
  FLAGS "U"
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF_A
  COPY DISPLAY F_CODCF_DA
  OUTPUT F_CODCF_A CODCF
  OUTPUT F_RAGSOC_A RAGSOC
  CHECKTYPE SEARCH
END

STRING F_RAGSOC_A 50 
BEGIN
  PROMPT 25 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC_A
  COPY DISPLAY F_RAGSOC_DA
  COPY OUTPUT F_CODCF_A
  CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 "@bIntervallo date"
END

DATE F_DATA_DA
BEGIN
  PROMPT 2 6 "Da Data    "
END

DATE F_DATA_A
BEGIN
  PROMPT 40 6 "A Data   "
  FLAGS "A"
  VALITATE DATE_CMP_FUNC >= F_DATA_DA
  WARNING "La data finale deve essere successiva a quella iniziale"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 "@bZona"
END

STRING F_ZONA 2
BEGIN
  PROMPT 2 9 "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
END

STRING F_DESZONA 50 
BEGIN
  PROMPT 25 9 ""
  USE ZON KEY 2
  INPUT CODTAB F_ZONA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ZONA CODTAB
  OUTPUT F_DESZONA S0
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 11 "@bDettaglio"
END

BOOLEAN F_PRINT_RESI 
  BEGIN
  PROMPT 2 12 "Stampare tutti i righi incluso i resi"
END

BOOLEAN F_PRINT_FATT
  BEGIN
  PROMPT 2 13 "Stampare solo i righi da fatturare"
END

ENDPAGE
ENDMASK