55 lines
729 B
Plaintext
55 lines
729 B
Plaintext
|
// 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
|