Aufruf: under construction

STRING = GetCalcOld(tcIdb01 AS STRING , tcIdc63 AS STRING , tcVarList AS STRING , tnMenge AS NUMBER)

Rückgabe: under construction

Rückgabe der Funktion: STRING

Code: under construction

PROCEDURE GetCalcOld (tcIdb01 AS STRING,tcIdc63 AS STRING,tcVarList AS STRING,tnMenge AS NUMBER) AS STRING
	LOCAL lcIdd04 AS STRING,lnSelect AS NUMBER,lcAlias AS STRING,lcSql AS STRING
	lnSelect = SELECT()
	*/ Die IDD04 holen
	lcIdd04  = My.oMisc._D04(m.tcIdb01,m.tcIdc63,m.tnMenge)
	*/ Den 'alten' SQL Select ausführen
	TEXT TO lcSql NOSHOW TEXTMERGE PRETEXT 3
	SELECT;
		xxx.ekbr,xxx.ekd,xxx.ekl,xxx.eknet,xxx.eknet1,xxx.idc08,xxx.ipb01,;
		xxx.lfarab,xxx.meekuf AS meekuf_a,xxx.mevkuf AS mevkuf_a,xxx.peek,xxx.rabatt1,xxx.ufla,xxx.uflad,;
		yyy.idc19mevk,yyy.idc19vkeh,yyy.idd04,yyy.idv03f,yyy.idv03h,yyy.idv04,yyy.kdartnr,;
		yyy.listpr,yyy.listpreisf,yyy.listpreish,yyy.meekuf,yyy.mevkuf,yyy.meekuf AS meekuf_b,yyy.mevkuf AS mevkuf_b,yyy.mgst,;
		yyy.pevk,yyy.rabatt,;
		yyy.t_ezu,yyy.t_fk,yyy.t_fkfest,yyy.t_gk1,yyy.t_gk1_h,yyy.t_gk2,yyy.t_gk2_h,yyy.t_gkf,;
		yyy.t_gkm,yyy.t_gkm_h,yyy.t_gzu,yyy.t_gzu1,yyy.t_gzu_h,yyy.t_koma,yyy.t_komaproz,;
		yyy.t_komawert,yyy.t_mk,yyy.t_pap,yyy.t_papf,yyy.t_papfproz,yyy.t_papfwert,;
		yyy.t_papm,yyy.t_papmproz,yyy.t_papmwert,yyy.t_pap_h,yyy.t_soz,yyy.t_sozproz,;
		yyy.t_sozwert,yyy.vk,yyy.vk1,yyy.vkh,yyy.vkh1;
		FROM CDBFDIR!B01 AS xxx, CDBFDIR!D04 AS yyy;
		WHERE xxx.idb01 = '<<m.tcIdb01>>' ;
		AND   xxx.idb01 = '<<m.tcIdb01>>' ;
		AND   yyy.idd04 = '<<m.lcidd04>>'
	ENDTEXT
	*/ Die Daten holen...
	IF My.Clients.SQL.SqlRead(SET("Datasession"),m.lcSql,"Q_CALC",3)
		SELECT q_calc
		lcAlias = ALIAS()
		*/ Prüfung...
		IF !EMPTY(m.tcVarList)
			SCATTER MEMO MEMVAR FIELDS &tcVarList
		ENDIF
	ELSE
		lcAlias = ""
	ENDIF
	SELECT(m.lnSelect)
	RETURN m.lcAlias
ENDPROC