101 lines
1.4 KiB
Plaintext
Executable File
101 lines
1.4 KiB
Plaintext
Executable File
USE FCA
|
|
JOIN GCA TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
5->* "Formato del codice"
|
|
500->* "Gruppi codice"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 12
|
|
CARATTERE "X"
|
|
INIZIALE 5 2
|
|
FINALE 133
|
|
END
|
|
|
|
SECTION HEADER ODD 3
|
|
STRINGA 100 132 1
|
|
BEGIN
|
|
PROMPT 1 1 "----------------------------------------------------------------------------------------------"
|
|
END
|
|
STRINGA 101 132 1
|
|
BEGIN
|
|
PROMPT 21 2 "Tabella Gruppi Formato Codice Articoli"
|
|
END
|
|
STRINGA 100 132 1
|
|
BEGIN
|
|
PROMPT 1 3 "----------------------------------------------------------------------------------------------"
|
|
END
|
|
END
|
|
|
|
SECTION BODY ODD 3
|
|
|
|
STRINGA 101 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
FLAGS "H"
|
|
PROMPT 2 1 ""
|
|
END
|
|
|
|
SECTION GRUPPO 2 1 1 FILE -500
|
|
SECTION TESTATA 1 1 1 NUMEXPR #101=0
|
|
STRINGA 110 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
PROMPT 2 1 ""
|
|
FIELD CODTAB
|
|
MESSAGE "1",101
|
|
END
|
|
|
|
STRINGA 111 50 1
|
|
BEGIN
|
|
KEY "DESCR.livelo"
|
|
PROMPT 22 1 ""
|
|
FIELD S0
|
|
END
|
|
END
|
|
|
|
STRINGA 120 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
PROMPT 10 1 ""
|
|
FIELD 500@->CODTAB[2,20]
|
|
END
|
|
|
|
STRINGA 121 50 1
|
|
BEGIN
|
|
KEY "DESCR.livelo"
|
|
PROMPT 32 1 ""
|
|
FIELD 500@->S0
|
|
END
|
|
END
|
|
STRINGA 131 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
FLAGS "H"
|
|
PROMPT 2 1 ""
|
|
MESSAGE "0",101
|
|
END
|
|
|
|
|
|
END
|
|
|
|
SECTION FOOTER ODD 2
|
|
|
|
NUMERO 101
|
|
BEGIN
|
|
KEY "NUMPAGE"
|
|
PROMPT 50 2 ""
|
|
MESSAGE _PAGENO
|
|
PICTURE "- ### -"
|
|
END
|
|
|
|
END
|
|
|
|
|