8792453bd0
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@1681 c028cbd2-c16b-5b4b-a496-9718f37d4682
55 lines
729 B
Plaintext
Executable File
55 lines
729 B
Plaintext
Executable File
// SHEET DI VE2400
|
|
#include "VE2400.H"
|
|
#define CODCORR 48
|
|
#define ANAMAG 47
|
|
|
|
|
|
PAGE "Pagina 1" 8 5 65 14
|
|
|
|
STRING FS_CODARTALT 30
|
|
BEGIN
|
|
PROMPT 3 3 "Codice art. alt. "
|
|
FIELD CODCORR->CODARTALT
|
|
USE ANAMAG
|
|
INPUT CODART FS_CODARTALT
|
|
DISPLAY "Codice" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT FS_CODARTALT CODART
|
|
// OUTPUT FS_CODARTALT1 DESCR
|
|
END
|
|
|
|
LISTBOX FS_TIPO 10
|
|
BEGIN
|
|
PROMPT 2 7 "Tipo di codice "
|
|
ITEM "N|Normal "
|
|
ITEM "8|EAN8 "
|
|
ITEM "1|EA13 "
|
|
ITEM "3|3/9 "
|
|
ITEM "C|Codabar"
|
|
|
|
FIELD CODCORR->TIPO
|
|
END
|
|
|
|
/* STRING FS_CODARTALT1 50
|
|
BEGIN
|
|
PROMPT 2 5 ""
|
|
FLAG "D"
|
|
END
|
|
|
|
*/
|
|
|
|
BUTTON 1 9 2
|
|
BEGIN
|
|
PROMPT 15 12 ""
|
|
END
|
|
|
|
BUTTON 2 9 2
|
|
BEGIN
|
|
PROMPT 38 12 ""
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|