campo-sirio/ve/ve2400a.uml
alex 7da1be4f90 Patch level : XX.312
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 01.05 patch 312


git-svn-id: svn://10.65.10.50/trunk@8093 c028cbd2-c16b-5b4b-a496-9718f37d4682
1999-04-26 15:58:05 +00:00

60 lines
910 B
Plaintext
Executable File

// SHEET 0 (unita' di misura) DI VE2400
PAGE "Pagina 1" 8 5 65 11
STRING FS_CODUM 2
BEGIN
PROMPT 3 2 "Unita' di misura "
FIELD LF_UMART->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 LF_UMART->FC
CHECKTYPE REQUIRED
WARNING "Fattore di conversione obbligatorio"
END
NUMBER FS_PREZZO 15
BEGIN
PROMPT 3 5 "Prezzo netto "
FIELD LF_UMART->PREZZO
PICTURE ".3"
END
NUMBER FS_PREZZO_LORDO 15
BEGIN
PROMPT 3 6 "Prezzo lordo "
PICTURE ".3"
END
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
ENDMASK