xsharp.eu

Code: Select all

function CreateInsertStatement( cTable as string, aValues as array ) as string pascal  
	local cStatement			as string
	local nLen					as dword
	local nI					as dword
	local cField				as string
	local uValue				as usual
	local cValue				as string
	local cFields				as string
	local cValues				as string
	
    cStatement				:= "insert into " + cTable + " ( "
    cFields					:= ""
    cValues					:= ""
    nLen					:= ALen( aValues )
    for nI := 1 upto nLen 
    	cField					:= aValues[nI,1]
    	uValue					:= aValues[nI,2]
    	do case
    	case IsString( uValue )
    		cValue					:= "'" + FixSQL( uValue ) + "'"
    	case IsNumeric( uValue )
    		cValue					:= StrTran( AllTrim( Str( uValue, 18, -1 ) ), ",", "." )
    	case IsDate( uValue )
    		if uValue == null_date
	    		cValue					:= "null"
    		else
	    		cValue					:= "'" + StrZero( Year( uValue ), 4, 0 ) + "-" + StrZero( Month( uValue ), 2, 0 ) + "-" + StrZero( Day( uValue ), 2, 0 ) + "'"
    		endif
    	case IsLogic( uValue )
    		cValue					:= IIf( uValue, "1", "0" )
    	endcase
    	if nI < nLen
    		cFields						:= cFields + cField + ", "
    		cValues						:= cValues + cValue + ", "
    	else
    		cFields						:= cFields + cField
    		cValues						:= cValues + cValue
    	endif
    next
    cStatement				:= cStatement + cFields + " ) values ( " + cValues + ")"
    
    return cStatement
function FixSQL( cValue as string ) as string pascal

	if InStr( "'", cValue )
		cValue				:= StrTran( cValue, "'", "''" )
	endif
	
	return cValue

Code: Select all

function ParmSubst( cString )
//p Parameter (%1, %2, %3 usw.) in String ersetzen
//s
	local cResult		as string
	local nLen			as dword
	local nI			as dword
	local cValue		as string
	local uValue		as usual

	nLen			:= dword( PCount() )
	if nLen == 0			// keine Parameter
		return ""
	endif
	if nLen == 1
		return cString
	endif
	cResult			:= cString
//	for nI := 2 upto nLen
	for nI := nLen downto 2		// damit auch mehrstellige funktionieren
		uValue			:= _GetFParam( nI )
		do case
		case IsString( uValue )
			cValue			:= uValue
		case IsNumeric( uValue )
			cValue			:= AllTrim( BF( uValue ) )
		case IsLogic( uValue )
			cValue			:= IIf( uValue, ".t.", ".f." )
		otherwise
			cValue			:= AsString( uValue )
		endcase
		cResult			:= StrTran( cResult, "%" + NTrim( nI - 1 ), cValue )
	next

	return cResult

Code: Select all

function BF( nNumber, nInt, nDec )
	local cRetValue		as string
	local cPicture		as string
	local nWNumber		as float
	local nWInt			as int
	local nWDec			as int
	local nCounter		as dword
	local nLen			as dword

	nWNumber		:= IIf( IsNumeric( nNumber ), nNumber, 0 )
	nWInt			:= IIf( IsNumeric( nInt ), nInt, -1 )
	nWDec			:= IIf( IsNumeric( nDec ), nDec, -1 )
	if nWDec == -1 .and. Frac( Abs( nNumber ) ) < 0.001
		nWDec			:= 0
	endif

	if nWDec == -1 .or. nWInt < 1           	// feststellen Dezimal-Stellen und/oder Vorkomma-Stellen
		cRetValue		:= wStr( nNumber, nWInt, nWDec )
		nCounter		:= At( Chr( SetDecimalSep() ), cRetValue )
		if nWDec == -1
			if nCounter == 0
				nWDec			:= 0
			else
				nWDec			:= Int( SLen( SubStr2( cRetValue, nCounter + 1 ) ) )
			endif
		endif
		if nWInt < 1
			if nCounter == 0
				nWInt		 	:= Int( SLen( cRetValue ) )
			else
				nWInt			:= Int( nCounter - 1 )
			endif
		endif
		cRetValue		:= ""
	endif
	nLen			:= dword( nWInt )

	// Picture zusammenstellen
	cPicture		:= ""
	nCounter		:= dword( nWInt % 3 )
	IF nCounter > 0
		cPicture		:= Replicate( "9", nCounter )
		nWInt		-= Int( nCounter )
		IF nWInt > 0
			cPicture		+= ","
		ENDIF
	ENDIF
	WHILE nWInt > 0
		cPicture		+= Replicate( "9", 3 )
		nWInt		-= 3
		IF nWInt > 0
			cPicture		+= ","
		ENDIF
	END
	IF nWDec > 0
		cPicture		+= "." + Replicate( "9", dword( nWDec ) )
	ENDIF

	cRetValue	:= AllTrim( Transform( nWNumber, cPicture ) )
	if SLen( cRetValue ) < nLen
		cRetValue		:= PadL( cRetValue, nLen )
	endif

	return cRetValue