Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
procedure nextinvoicenum ( invoicenum out number ) as nextinvoiceid number; begin -- select invoice_seq.currval +1 into nextinvoiceid from dual; select max(tid) + 1 into invoicenum from invoice; invoicenum := NVL (invoicenum,1); DBMS_OUTPUT.PUT_LINE('INVOICENUM = ' || INVOICENUM); end nextinvoicenum; ================================================================== connObj = getConnObj cmdObj = New ADODB.Command With cmdObj .let_ActiveConnection(connObj) .CommandType = ADODB.CommandTypeEnum.adCmdStoredProc .CommandText = "invoicepackage.nextinvoicenum" .Parameters.Append(.CreateParameter("invoicenum", ADODB.DataTypeEnum.adInteger, ADODB.ParameterDirectionEnum.adParamOutput, 255, 0)) End With cmdObj.Execute() getNextInvoiceIndex = cmdObj.Parameters("invoicenum").Value MessageBox.Show(getNextInvoiceIndex )
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.