
Ejecutar procedimiento de Oracle
Publicado por RTB (12 intervenciones) el 26/01/2005 17:31:21
Hola por si alguien ya haya hecho ejecutar PACKAGES de oracle desde ASP.Esplico el package es:
calcular_atraso.P_CALCULAR_ATRASO_CREDITO (
vID_CREDITO IN CHAR,
vCANT_CUOTAS IN NUMBER,
vFECHA IN DATE,
vTOTAL_DIAS IN OUT NUMBER,
vPROMEDIO_DIAS IN OUT NUMBER
el codigo desde donde lo llamo es:
function Atraso(credito,dias)
dim cn
dim Cmd
dim vUsuario
dim vBase
dim vPase
dim total
dim promedio
%>
<!-- #include file="ADOVBS.INC" -->
<%
on error resume next
vUsuario="usuario"
vPase ="pase"
vBase ="base"
Set cn =Server.CreateObject("ADODB.Connection")
Set rs =Server.CreateObject("ADODB.recordset")
vORCL = "PROVIDER=MSDAORA;DATA SOURCE=" & vBASE & ";USER ID=" & vUsuario & ";PASSWORD=" & vPase & ";"
cn.ConnectionString = vORCL
cn.Open
set cmd=server.createobject("ADODB.Command")
set cmd.activeconnection=cn
cmd.commandtype = adCmdStoredProc
cmd.commandtext = "calcular_atraso.p_calcular_atraso_credito"
Set Par01 = Cmd.CreateParameter("vID_CREDITO", adChar, adParamInput,15,Credito)
Cmd.Parameters.Append Par01
Para01.value=credito
set Par02 = cmd.CreateParameter("vCant_cuotas",adNumeric,AdParamInput)
cmd.Parameters.Append Par02
Par02.value=dias
Set Par03 = cmd.CreateParameter("vFecha", adDate,AdParamInput)
cmd.Parameters.Append Par03
Par03.value=date
Set Par04 = cmd.CreateParameter("vTotal_dias", adNumeric ,AdParamInputOutput,10)
cmd.Parameters.Append Par04
Set Par05 = cmd.CreateParameter("vPromedio_dias", adNu
calcular_atraso.P_CALCULAR_ATRASO_CREDITO (
vID_CREDITO IN CHAR,
vCANT_CUOTAS IN NUMBER,
vFECHA IN DATE,
vTOTAL_DIAS IN OUT NUMBER,
vPROMEDIO_DIAS IN OUT NUMBER
el codigo desde donde lo llamo es:
function Atraso(credito,dias)
dim cn
dim Cmd
dim vUsuario
dim vBase
dim vPase
dim total
dim promedio
%>
<!-- #include file="ADOVBS.INC" -->
<%
on error resume next
vUsuario="usuario"
vPase ="pase"
vBase ="base"
Set cn =Server.CreateObject("ADODB.Connection")
Set rs =Server.CreateObject("ADODB.recordset")
vORCL = "PROVIDER=MSDAORA;DATA SOURCE=" & vBASE & ";USER ID=" & vUsuario & ";PASSWORD=" & vPase & ";"
cn.ConnectionString = vORCL
cn.Open
set cmd=server.createobject("ADODB.Command")
set cmd.activeconnection=cn
cmd.commandtype = adCmdStoredProc
cmd.commandtext = "calcular_atraso.p_calcular_atraso_credito"
Set Par01 = Cmd.CreateParameter("vID_CREDITO", adChar, adParamInput,15,Credito)
Cmd.Parameters.Append Par01
Para01.value=credito
set Par02 = cmd.CreateParameter("vCant_cuotas",adNumeric,AdParamInput)
cmd.Parameters.Append Par02
Par02.value=dias
Set Par03 = cmd.CreateParameter("vFecha", adDate,AdParamInput)
cmd.Parameters.Append Par03
Par03.value=date
Set Par04 = cmd.CreateParameter("vTotal_dias", adNumeric ,AdParamInputOutput,10)
cmd.Parameters.Append Par04
Set Par05 = cmd.CreateParameter("vPromedio_dias", adNu
Valora esta pregunta


0