74 lines
1.1 KiB
Plaintext
Executable File
74 lines
1.1 KiB
Plaintext
Executable File
TOOLBAR "" 0 20 60 2
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Storico giacenze" -1 -1 80 23
|
|
|
|
NUMBER F_STOANNOES 4
|
|
BEGIN
|
|
PROMPT 2 4 "Codice esercizio "
|
|
FIELD LF_STOMAG->ANNOES
|
|
USE ESC
|
|
INPUT CODTAB F_STOANNOES
|
|
DISPLAY "Esercizio @15" CODTAB
|
|
DISPLAY "D. Inizio@15" D0
|
|
DISPLAY "D. Fine@15" D1
|
|
OUTPUT F_STOANNOES CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_STOUM 2
|
|
BEGIN
|
|
PROMPT 2 6 "Unità di misura "
|
|
FLAGS "U"
|
|
FIELD LF_STOMAG->UM
|
|
USE LF_UMART KEY 2
|
|
INPUT CODART F_STOCODART SELECT
|
|
INPUT UM F_STOUM
|
|
DISPLAY "U.M.@20" UM
|
|
OUTPUT F_STOUM UM
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_STOQUANT 15 5
|
|
BEGIN
|
|
PROMPT 2 8 "Quantità "
|
|
FIELD LF_STOMAG->QUANT
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Indicare la quantità"
|
|
END
|
|
|
|
NUMBER F_STOPREZZO 18 3
|
|
BEGIN
|
|
PROMPT 2 10 "Valore "
|
|
FIELD LF_STOMAG->VALORE
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Indicare il prezzo"
|
|
END
|
|
|
|
STRING F_STOCODART 20
|
|
BEGIN
|
|
PROMPT 2 1 "Codice art. "
|
|
FLAGS "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|