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