Aufruf: Menüfunktionen für R10

BOOLEAN = R10MenuDIM(tcProgram AS STRING , tvP1 AS VARIANT , tvP2 AS VARIANT , tvP3 AS VARIANT , tvP4 AS VARIANT , tvP5 AS VARIANT)

Rückgabe: Menüfunktionen für R10

Rückgabe der Funktion: BOOLEAN

Code: Menüfunktionen für R10

PROCEDURE R10MenuDIM (tcProgram AS STRING,tvP1 AS Variant,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant) AS Boolean
	PRIVATE l_Program
	l_Program = UPPER(m.tcProgram)
	*/ Gibt .T. = 1 = gedimmt zurück
	RETURN BITAND(My.Bussines.R10Data.iR10Enable,PMS_TABLE_R10IMPORT_ALLFUNC)=0
ENDPROC