Aufruf: under construction

BOOLEAN = GetFe(tcIdc51 AS STRING , tcField AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE GetFe (tcIdc51 AS STRING,tcField AS STRING) AS Boolean
	*/ Ermittelt ALLE Artikel mit angegebenem Technikwert
	LOCAL lcSql AS STRING
	=My.DATA.Tabellen.CloseCursor('QRY')
	TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 3
	SELECT;
		B01.idb01, B01.artnr, B01.bestnr, B01.typnr, B01.match, B01.idc61, B01.idc62, B01.bez,;
		B01.ekbr, B01.symbnr, B01.symbda, B01.cadnr,;
		CAST(NVL(b02.inhaltn,0) AS B(6)) AS <<m.tcField>> ;
		FROM CDBFDIR!B01 AS b01 LEFT OUTER JOIN CDBFDIR!B02 ON b01.idb01=b02.idb01 AND b02.idc51='<<m.tcIdc51>>'
	ENDTEXT
	RETURN My.Clients.SQL.SqlRead(SET("Datasession"),m.lcSql,'QRY',2)
ENDPROC