f6b085b355
Files correlati : Ricompilazione Demo : [ ] Commento :aggiunti files discolatio alla 32 bit git-svn-id: svn://10.65.10.50/trunk@11035 c028cbd2-c16b-5b4b-a496-9718f37d4682
132 lines
2.3 KiB
Plaintext
Executable File
132 lines
2.3 KiB
Plaintext
Executable File
#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
|