adafc99483
Files correlati :dl0.exe,dl0500a.msk,dl0500a.frm Ricompilazione Demo : [ ] Commento :aggiunta la possibilita' di visualizzare l'etichetta sul form della interrogazione avanzata (unico parametro che mancava) git-svn-id: svn://10.65.10.50/trunk@11067 c028cbd2-c16b-5b4b-a496-9718f37d4682
184 lines
2.9 KiB
Plaintext
Executable File
184 lines
2.9 KiB
Plaintext
Executable File
#include "dl0500a.h"
|
|
|
|
PAGE "Ricerca avanzata" -1 -1 70 19
|
|
|
|
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 43 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 "
|
|
FLAGS "U"
|
|
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
|
|
|
|
GROUPBOX DLG_NULL 68 6
|
|
BEGIN
|
|
PROMPT 1 12 "@bCampi da stampare"
|
|
END
|
|
|
|
BOOL F_P_BARCODE
|
|
BEGIN
|
|
PROMPT 2 13 "Codice articolo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOL F_P_GIAC
|
|
BEGIN
|
|
PROMPT 25 13 "Giacenza"
|
|
END
|
|
|
|
BOOL F_P_TITOLO
|
|
BEGIN
|
|
PROMPT 2 14 "Titolo"
|
|
END
|
|
|
|
BOOL F_P_ARTISTA
|
|
BEGIN
|
|
PROMPT 25 14 "Artista"
|
|
END
|
|
|
|
BOOL F_P_COMPOSITORE
|
|
BEGIN
|
|
PROMPT 2 15 "Compositore"
|
|
END
|
|
|
|
BOOL F_P_ETICHETTA
|
|
BEGIN
|
|
PROMPT 25 15 "Etichetta"
|
|
END
|
|
|
|
BOOL F_P_PREZZO
|
|
BEGIN
|
|
PROMPT 2 16 "Prezzo"
|
|
END
|
|
|
|
BOOL F_P_GENERE
|
|
BEGIN
|
|
PROMPT 25 16 "Genere"
|
|
END
|
|
|
|
BOOL F_P_TIPOSUPPORTO
|
|
BEGIN
|
|
PROMPT 48 13 "Tipo supporto"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|