Aufruf: under construction

BOOLEAN = GetC30(tcIdc30 AS STRING , tlForce AS BOOLEAN)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE GetC30 (tcIdc30 AS STRING , tlForce AS Boolean) AS Boolean
	*/ GETC30 holt die Felder aus der C30 für die Übernahme in den Adressmasken
	LOCAL lnSelect , lcFields AS STRING , lcExFields AS STRING , lcSql AS STRING , lcAnsw AS STRING , llDone AS Boolean
	IF VARTYPE(m.tcIdc30)<>"C"
		RETURN .F.
	ENDIF
	lnSelect	= SELECT()
	lcFields	= My.Globals.GetC30Fields
	lcExFields	= My.Globals.GetC30ExFields
	lcSql = [SELECT ]+m.lcFields+[ FROM CDBFDIR!C30 WHERE idc30=']+m.tcIdc30+[']
	*/
	DO CASE
		CASE !My.Clients.SQL.SqlRead(SET("Datasession"),m.lcSql,'qrygetc30',2)
		CASE NOT (m.tlForce OR !IsEmpty(m.lcExFields))
			SCATTER MEMO MEMVAR
			llDone = .T.
		CASE NOT My.SetValue(My.Functions.Dialoge.Dialog("IDC30UEBERNAHME"),@lcAnsw)
		CASE m.lcAnsw="JA"
			SCATTER MEMO MEMVAR
			llDone = .T.
		CASE m.lcAnsw="NEIN"
			SCATTER MEMO MEMVAR EXCEPT &lcExFields
			llDone = .T.
		OTHERWISE
			*/ Nichts tun...
	ENDCASE
	USE IN (SELECT("qrygetc30"))
	SELECT (m.lnSelect)
	IF m.llDone
		l_Change = .T.
	ENDIF
	RETURN m.llDone
ENDPROC