Prev: FTP Resume Download/Upload Resource in cFTP Class
Next: Production Capacity Planning Software
From: BatiVenci on 2 Jan 2006 15:27
Hi to the community and HAPPY NEW YEAR !!!

Here is a block of my code :
oCmd:CommandText := 'KASI_PKG.SetKasiPayments'
oCmd:CommandType := AdCmdStoredProc

oParam := oCmd:CreateParameter( 'RESULT', adVarChar, adParamReturnValue,
2L, NIL )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPPAYOFFICE_ID', adNumeric,
adParamInputOutput, NIL, nPayOffice_ID )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPCUSTACC_ID', adNumeric, adParamInput,
NIL, nCustAcc_ID )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPPAYTOTAL', adNumeric, adParamInput,
NIL, nSuma )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'T_INVOICE_ID', adNumeric,
adParamInputOutput, NIL, nInvoice_ID )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'T_SUMA', adNumeric, adParamInput, NIL,
nSuma )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'T_PAYSUMA', adNumeric, adParamInput, NIL,
nSuma )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'T_KIND', adNumeric, adParamInput, NIL,
nKind )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'T_VATTAX', adNumeric, adParamInput, NIL,
nVatTax )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPLOOP', adNumeric, adParamInput, NIL, 0
)
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'OPPAYREP_ID', adNumeric, adParamOutput,
NIL, NIL )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'OPDOCNO', adUserDefined, adParamOutput,
NIL, NIL )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'OPUSERNAME', adUserDefined,
adParamOutput, NIL, NIL )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'OPDOCDATE', adDate, adParamOutput, NIL,
NIL )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPPAYDATE', adDate, adParamInput, NIL,
Today() )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPPAYDOC_ID', adNumeric, adParamInput,
NIL, 0 )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPASKBANKDOC_ID', adNumeric,
adParamInput, NIL, 0 )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPPAYCASHTOTAL', adNumeric, adParamInput,
NIL, nSuma )
oCmd:Parameters_:Append( oParam )

oParam := oCmd:CreateParameter( 'IPDECRFROMOVRPMT', adNumeric,
adParamInput, NIL, 0 )
oCmd:Parameters_:Append( oParam )

oRs2 := oCmd:Execute( NIL, NIL, adOptionUnspecified )

and receive runtime error code 16389 -> here is a snipped from VOError.log
:
Visual Objects (Version 2.7. Build 2.2735), Version 2.7b
02.01.2006 21:54:14
Application: C:\CAVO27\Bin\ADO Test.DBG

Error message:
--------------
Error Code: ?????
Subsystem: Vo2Ado
Error Subcode: 16389
Function: MAINDIALOG:DISPATCH
Description: ?????
CallStack:
MAINDIALOG:RUNBUTTON (Line: 293)
MAINDIALOG:DISPATCH (Line: 26)
APP:START (Line: 15)
START (Line: 8)

Error Object created:
--------------------
SubSystem :Vo2Ado
SubCode :16389
GenCode :Waiting...
OsCode :0
ArgType :NIL
FuncPtr :0x00000000
ArgNum :0
FuncSym :MAINDIALOG:DISPATCH
Severity :2
CanDefault :.T.
CanRetry :.F.
CanSubstitute :.F.
Operation :
Description :?????
FileName :
Tries :1
FileHandle :0
SubCodeText :
Arg :
ArgTypeReq :NIL
MaxSize :0
SubstituteType :NIL
CallFuncSym :
--------------------

Any idea what should this mean and how to overcome

Thanks, Venci

From: GSchaller on 2 Jan 2006 15:52
Venci,

Firstly, you didn't say which line caused the error. Secondly, which
RDBMS? Thirdly, if you test the return value of Append(), you will get
better information as to which item failed. Finally, you don't provide
any sizes and sometimes this will be a problem. Equally, default values
of "?" may be necessary for some input types.

Get us the line number and also the return value to append.

Geoff

"BatiVenci" <venci(a)atsavarna.com> wrote in message
news:8f6c4f9be6f63dd5a48de9b281c15812(a)localhost.talkaboutprogramming.com:

> Hi to the community and HAPPY NEW YEAR !!!
>
> Here is a block of my code :
> oCmd:CommandText := 'KASI_PKG.SetKasiPayments'
> oCmd:CommandType := AdCmdStoredProc
>

 | 
Pages: 1
Prev: FTP Resume Download/Upload Resource in cFTP Class
Next: Production Capacity Planning Software