campo-sirio/dl/dl0600a.uml

#include "dl0600a.h"

PAGE "Interrogazione magazzino" -1 -1 70 13

GROUPBOX DLG_NULL 68 11
BEGIN
  PROMPT 1 1 "@bParametri di selezione"
END

STRING F_DABARCODE 20
BEGIN
  PROMPT 2 2 "Barcode  Da: "
  FLAGS "U"
  USE LF_ANAMAG KEY 1
  INPUT CODART F_DABARCODE
  DISPLAY "Codice a barre@20" CODART
  DISPLAY "Titolo@50" DESCR
  OUTPUT F_DABARCODE CODART
END

STRING F_ABARCODE 20
BEGIN
  PROMPT 40 2 "a: "
  FLAGS "U"
  USE LF_ANAMAG KEY 1
  INPUT CODART F_ABARCODE
  DISPLAY "Codice a barre@20" CODART
  DISPLAY "Titolo@50" DESCR
  OUTPUT F_ABARCODE CODART
END

STRING F_TIPOSUPPORTO 10
BEGIN
  FLAGS "U"
  PROMPT 2 3 "Tipo supporto   "
  USE %UMS
  INPUT CODTAB F_TIPOSUPPORTO
  DISPLAY "Tipo supporto" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_TIPOSUPPORTO CODTAB
  CHECKTYPE NORMAL
END

STRING F_TITOLO 50 45
BEGIN
  PROMPT 2 4 "Titolo          "
  FLAGS "U"
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_TITOLO
  DISPLAY "Titolo@50" DESCR
  DISPLAY "Codice a barre@20" CODART
  COPY OUTPUT F_DABARCODE
END

STRING F_ARTISTA 20
BEGIN
  PROMPT 2 5 "Artista         "
  FLAGS "U"
  COPY USE F_DABARCODE
  INPUT USER2 F_ARTISTA
  DISPLAY "Artista@30" USER2
  OUTPUT F_ARTISTA USER2
END

STRING F_COMPOSITORE 20
BEGIN
  PROMPT 2 6 "Compositore     "
  FLAGS "U"
  COPY USE F_DABARCODE
  INPUT USER3 F_COMPOSITORE
  DISPLAY "Compositore@30" USER3
  OUTPUT F_COMPOSITORE USER3
END

STRING F_ETICHETTA 20
BEGIN
  PROMPT 2 7 "Etichetta       "
  COPY USE F_DABARCODE
  INPUT USER4 F_ETICHETTA
  DISPLAY "Etichetta@30" USER4
  OUTPUT F_ETICHETTA USER4  
END

STRING F_GENEREMUSICALE 3
BEGIN
  PROMPT 2 8 "Genere musicale "
  FLAGS "U"
  USE GMC
  INPUT CODTAB F_GENEREMUSICALE
  DISPLAY "Genere" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_GENEREMUSICALE CODTAB
  CHECKTYPE NORMAL
END

DATE F_DATAE_INI
BEGIN
  PROMPT 2 9 "Data emissione: da "
END

DATE F_DATAE_FIN
BEGIN
  PROMPT 35 9 "a "
  VALIDATE DATE_CMP_FUNC >= F_DATAE_INI
  WARNING "Specificare una 'Data fine' non inferiore alla 'Data inizio'"
END

DATE F_DATAV_INI
BEGIN
  PROMPT 2 10 "Data variazione da "
END

DATE F_DATAV_FIN
BEGIN
  PROMPT 35 10 "a "
  VALIDATE DATE_CMP_FUNC >= F_DATAV_INI
  WARNING "Specificare una 'Data fine' non inferiore alla 'Data inizio'"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK