Hallo,
ich komme gleich zur Sache.
Ich habe in meiner Klasse „StmntBuild“ jeweils drei SQL Statements reingecodet - jetzt muss ich diese ja „Preparen und Fetchen“ doch wie mache ich das ?
Ich hab schon was versucht aber ich komme leider ned weit, die Ausgaben der Statments soll dann in einer Art „Log“ sein, hat da jemand vielleicht eine idee ?
Hier mal meine Codefragmente
!!CB!! 278
Function: StmntBuild
Description: [PUBLIC]
Used to build SQL statement from parameters. Builds SQL
statement based on type.
Returns
Parameters
String: sBindVars
String: sWhere
String: sTableName
Receive String: sSqlStatement
Number: nSqlType
Boolean: bCheckStmnt
String: sCheckStmnt
Number: nCount
String: sUpdateStmnt
String: sUpdateStmnt2
String: sSelectStmnt
Number: nItemNumber
Number: nItemNumberResult
Static Variables
Local variables
Actions
Set bCheckStmnt = FALSE
If bCheckStmnt
Set sCheckStmnt = „SELECT COUNT(*)
FROM T80_LOG
WHERE C80_TASKNAME LIKE ‚DHQ%‘ AND
C80_TASK_ID = ‚DayendHQ‘ AND
@DATEVALUE(C80_RUNFOR) = Sysdate
INTO
:nCount“
If nCount != NUMBER_Null
Set bCheckStmnt = TRUE
If bCheckStmnt = TRUE
Call LogStartTime()
Set sUpdateStmnt = „Update WEPOS
set RA_ID = -200,
RA_POSNR = -200,
TGSTATUS = 10,
RECHPOSNR = 1 WHERE ID = :nID AND
ArtikelNR = : sitemno AND
lagerortnr = : storedplace AND
gesellschaftsnr = : warehousenr AND
posnr = : nposnr“
Set sSelectStmnt = "SELECT * FROM
T320_Retro_Rcv WHERE
C320_RCV_ID != 0 AND
C320_ITEMNR SQL_Error
If SqlVarSetup(gv_udvDB.Handle(nCount))
If ProcessSQL(gv_udvDB.Handle(nCount),sSql,SQL_Execute,SQL_FlagNoContext) > SQL_Error
Set bReturnVal = TRUE
If bReturnVal
If SqlFetchNext (gv_udvDB.Handle(nCount),nFetch )
If p_bExport
Call StmntBuild (
Set rp_sLogo = ‚1‘ || SalStrTrimX (sLogPath) || rp_sLogo
Else
Set rp_sLogo = SalStrTrimX (sLogPath) || rp_sLogo
Return bReturnVal
Wenn mir jemand helfen könnte wäre ich echt dankbar !
MfG euer Phil