Aufruf: under construction

BOOLEAN = i20lu(tcIp AS STRING , tcId AS STRING , tcIDpos AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE i20lu (tcIp AS STRING,tcId AS STRING,tcIDpos AS STRING) AS Boolean
	LOCAL lnSelect AS NUMBER , lcSql AS STRING , loMisc AS My_Bu_St_Misc , loRec AS OBJECT
	lnSelect = SELECT()
	loRec = .NULL.
	TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 3
	SELECT ;
		i20.*,;
		b01.artnr							AS icb01,;
		y01a.kurz							AS ikb01,;
		y01b.kurz							AS ikzwi,;
		c66.match							AS icc66,;
		CAST('' AS C(25))					AS iczwi,;
		CAST(NVL(k10.prjnr,'') AS C(25))	AS ick10,;
		CAST(NVL(c63.match,'') AS C(25))	AS icc63,;
		CAST(NVL(d40.match,'') AS C(25))	AS icd40,;
		CAST(NVL(i24.idi24,'') AS C(8))		AS idi24,;
		CAST(NVL(i24.match,'') AS C(25))	AS ici24,;
		CAST(NVL(i22.idi22,'') AS C(8))		AS idi22,;
		CAST(NVL(i22.match,'') AS C(25))	AS ici22;
		FROM CDBFDIR!I20 ;
			INNER JOIN CSYSDIR!Y01 AS y01a ON i20.ipb01=y01a.ipy01 AND y01a.idc26='<<My.cIdc26>>' ;
			INNER JOIN CSYSDIR!Y01 AS y01b ON i20.ipzwi=y01b.ipy01 AND y01b.idc26='<<My.cIdc26>>' ;
			INNER JOIN CDBFDIR!B01 ON i20.idb01=b01.idb01 ;
			INNER JOIN CDBFDIR!C66 ON i20.idc66=c66.idc66 ;
			LEFT OUTER JOIN CDBFDIR!K10 ON i20.idk10=k10.idk10 ;
			LEFT OUTER JOIN CDBFDIR!C63 ON i20.idc63=c63.idc63 ;
			LEFT OUTER JOIN CDBFDIR!D40 ON i20.idd40=d40.idd40 ;
			LEFT OUTER JOIN CDBFDIR!I25 ON i20.idi25=i25.idi25 ;
			LEFT OUTER JOIN CDBFDIR!I24 ON i25.idi24=i24.idi24 ;
			LEFT OUTER JOIN CDBFDIR!I23 ON i20.idi20=i23.idi20 ;
			LEFT OUTER JOIN CDBFDIR!I22 ON i23.idi22=i22.idi22 ;
		WHERE i20.ipzwi='<<m.tcIP>>' AND i20.idzwi='<<m.tcID>>' AND i20.idpos='<<m.tcIDpos>>' ;
		ORDER BY i20.datgpl
	ENDTEXT
	IF My.Clients.SQL.SqlRead(SET("Datasession"),m.lcSql,"i20lu",2)
		loMisc = My.oMisc
		REPLACE ALL iczwi WITH m.loMisc.cIc4Ip[i20lu.ipzwi+"|"+i20lu.idzwi+"|*"]
		=My.DATA.Tabellen.AllIndex(ALIAS(),'LDATUM;LWER;LPRG;LZEIT;LASTUPD;NDATUM;NWER;NPRG;NZEIT')
		SET ORDER TO ikb01
		IF My.AppForms.AppForms.LOOKUP("I20LU",.F.,SET("Datasession"),.T.)
			SCATTER NAME loRec
		ENDIF
	ENDIF
	USE IN (SELECT("i20lu"))
	SELECT(m.lnSelect)
	RETURN m.loRec
ENDPROC