le puse banderas.. para ver que es lo que está haciendo...
ASP
Código PHP:
Set oCartolaDAO = Server.CreateObject("Security_TEFAM.CartolaDAO")
oCartolaDAO.iniciar
resultado=oCartolaDAO.obtenerCartola("20120105", "20120215", 0 ,0, 0,"96655860-1")
oCartolaDAO.finalizar
response.write resultado
Código PHP:
Public Function obtenerCartola( _
FechaDesde As String, _
FechaHasta As String, _
TipoTransaccion As Integer, _
IdEstadoTransferencia As Integer, _
TipoConsulta As Integer, _
RutEmpresa As String) As String
Dim resultado As String
resultado = "--Begin--"
On Error GoTo Catch
resultado = resultado & "|Dim Rs"
Dim Rs
Set Rs = New Adodb.Recordset
resultado = resultado & "|Conexion a la BD"
Dim oCmd As Adodb.Command
Set oCmd = New Adodb.Command
oCmd.CommandType = adCmdStoredProc
oCmd.CommandText = "Usp_TEFAM_CartolaObtenerS"
oCmd.ActiveConnection = oConnection_
If oConnection_ Is Nothing Then
Me.set_iError = -1
Me.set_sMensajeError = "Conección cerrada, inicialice "
Exit Function
End If
resultado = resultado & "|FechaDesde "
oCmd.Parameters("@FechaDesde").value = FechaDesde
resultado = resultado & FechaDesde
resultado = resultado & "|FechaHasta "
oCmd.Parameters("@FechaHasta").value = FechaHasta
resultado = resultado & FechaHasta
resultado = resultado & "|TipoTransaccion "
If TipoTransaccion = 0 Then
resultado = resultado & " Null"
oCmd.Parameters("@TipoTransaccion").value = Null
Else
resultado = resultado & TipoTransaccion
oCmd.Parameters("@TipoTransaccion").value = TipoTransaccion
End If
resultado = resultado & "|IdEstadoTransferencia "
If IdEstadoTransferencia = 0 Then
resultado = resultado & " Null "
oCmd.Parameters("@IdEstadoTransferencia").value = Null
Else
resultado = resultado & IdEstadoTransferencia
oCmd.Parameters("@IdEstadoTransferencia").value = IdEstadoTransferencia
End If
resultado = resultado & "|TipoConsulta "
oCmd.Parameters("@TipoConsulta").value = TipoConsulta
resultado = resultado & TipoConsulta
resultado = resultado & "|RutEmpresa "
oCmd.Parameters("@RutEmpresa").value = RutEmpresa
resultado = resultado & RutEmpresa
resultado = resultado & "|.Execute"
Set Rs = oCmd.Execute
resultado = resultado & "|--End--"
obtenerCartola = True
obtenerCartola = resultado & "|True"
Exit Function
Catch:
Me.set_iError = Err.Number
Me.set_sMensajeError = Err.Description
obtenerCartola = resultado & "==>" & Err.Number & ":" & Err.Description & "|False"
End Function
Y este es el error que ahora me arroja:
Código PHP:
--Begin--|Dim Rs|Conexion a la BD|FechaDesde ==>3265:Item cannot be found in the collection corresponding to the requested name or ordinal.|False
Lo más extraño es que el parametro que le mando tiene el mismo nombre que en el SP.