Aufruf: under construction

STRING = D40Anf(tcIdd40 AS STRING , tcIdd51 AS STRING , tlWithPos AS BOOLEAN)

Rückgabe: under construction

Rückgabe der Funktion: STRING

Code: under construction

PROCEDURE D40Anf (tcIdd40 AS STRING , tcIdd51 AS STRING , tlWithPos AS Boolean) AS STRING
	*/ Ermitteln der Anforderer einer Bestellung
	LOCAL lcDbf AS STRING
	*/ Eine eventuell geöffnete Tabelle schliessen
	USE IN (SELECT("D40Anf"))
	DO CASE
		CASE PCOUNT()=3
			lcDbf = My.oMisc.tD40D51(m.tcIdd40,m.tcIdd51,m.tlWithPos)
		OTHERWISE
			*/ Wird tlWithPos NICHT angegeben, so wird die Voreinstellung von Misc.lWithPos verwendet!
			*/ Siehe auch PmsMisc.Define
			lcDbf = My.oMisc.tD40D51(m.tcIdd40,m.tcIdd51)
	ENDCASE
	*/ Prüfung
	IF !EMPTY(m.lcDbf)
		*/ Die Tabelle öffnen
		SELECT 0
		USE (m.lcDbf) ALIAS D40Anf EXCLUSIVE AGAIN
		*/ Den SuchIndex setzen...
		INDEX ON iczwi TAG iczwi
		LOCATE
		RETURN ALIAS()
	ELSE
		RETURN ""
	ENDIF
ENDPROC