Aufruf: under construction

BOOLEAN = StdAnzS(tcIp AS STRING , tcId AS STRING , tlSumme AS BOOLEAN , tcGroup AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE StdAnzS (tcIp AS STRING,tcId AS STRING,tlSumme AS Boolean,tcGroup AS STRING) AS Boolean
	*/ Technische Summen bilden
	LOCAL lcDbf AS STRING , lnSelect AS NUMBER
	lcDbf = My.Bussines.Strain.B01Strain.TechSumShow(m.tcIp,m.tcId,m.tlSumme,m.tcGroup)
	IF !EMPTY(m.lcDbf)
		lnSelect = SELECT()
		SELECT 0
		*/ Anzeige der Berechnung...
		USE (m.lcDbf) ALIAS tss ORDER grp1 SHARED
		=My.AppForms.AppForms.LOOKUP("TSS",.F.,SET("Datasession"))
		SELECT(m.lnSelect)
	ENDIF
	USE IN (SELECT("TSS"))
	RETURN !EMPTY(m.lcDbf)
ENDPROC