60 lines
882 B
Plaintext
60 lines
882 B
Plaintext
|
|
||
|
|
// SHEET 0 (unita' di misura) DI VE2400
|
||
|
|
|
||
|
|
PAGE "Pagina 1" -1 -1 65 11
|
||
|
|
|
||
|
|
STRING FS_CODUM 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 3 2 "Unita' di misura "
|
||
|
|
FIELD UM
|
||
|
|
FLAG "U"
|
||
|
|
USE %UMS
|
||
|
|
INPUT CODTAB FS_CODUM
|
||
|
|
DISPLAY "U.M. " CODTAB
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT FS_CODUM CODTAB
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "Unita' di misura errata"
|
||
|
|
END
|
||
|
|
|
||
|
|
NUMBER FS_FCUM 15 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 3 4 "Fattore di conversione "
|
||
|
|
FIELD FC
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
WARNING "Fattore di conversione obbligatorio"
|
||
|
|
END
|
||
|
|
|
||
|
|
CURRENCY FS_PREZZO 18
|
||
|
|
BEGIN
|
||
|
|
PROMPT 3 5 "Prezzo netto "
|
||
|
|
FIELD PREZZO
|
||
|
|
FLAGS "U"
|
||
|
|
END
|
||
|
|
|
||
|
|
CURRENCY FS_PREZZO_LORDO 18
|
||
|
|
BEGIN
|
||
|
|
PROMPT 3 6 "Prezzo lordo "
|
||
|
|
FLAGS "U"
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_OK 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -13 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_CANCEL 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -23 -1 ""
|
||
|
|
END
|
||
|
|
|
||
|
|
BUTTON DLG_DELREC 10 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT -33 -1 "Elimina"
|
||
|
|
MESSAGE EXIT,K_DEL
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|