|
Estimados: estoy llamando un stored procedure del iseries (contiene un llamado a un CL), y quisiera recibir desde allí una variable que me indique si en el CL se ejecutó todo correctamente. Les envío el código VB a ver si descubren que hago mal. Muchas gracias. Si alguno tiene una alternativa de código que funcione, se agradece el ejemplo.
Alvaro Mato
Montevideo-Uruguay
Private Sub Proceso_ok()
Dim Comando As New ADODB.Command
Dim Rs As New ADODB.Recordset
Dim FINOK As String
'Muestra ventana de mensajes de ejecución
frmCuadAmort.Height = 6540
txtMensajes.Text = "PROCESO DE CUADRO DE AMORTIZACION" & vbCr
On Error GoTo errCuadroAmort
'Llama al programa CL del ISeries que blanquea total de aportes
If Option1(0) Then
txtMensajes.Text = "BLANQUEO DE TOTAL DE APORTES " & vbCrLf
Set Comando = New ADODB.Command
Comando.ActiveConnection = cnMiconexion
Comando.CommandType = adCmdText
Comando.CommandText = "CALL COOPFONDIT.PRJCOP013VB (?)"
Comando.Parameters.Append Comando.CreateParameter("FINOK", adChar, adParamOutput, 2, FINOK)
Comando.Execute
Set Comando = Nothing
'Emite mensaje de ejecución correcta....
If FINOK = "OK" Then
txtMensajes.Text = "Finalizado correctamente." & vbCrLf & _
"Listados en Spool de Iseries."
Else
txtMensajes.Text = "Error en el Blanqueo de Aportes." & vbCrLf & _
"Procedimiento Cancelado."
Exit Sub
End If
End If
Exit Sub
errCuadroAmort:
MsgBox "Error al generar el Cuadro de Amortización", vbCritical, "Cuadro de Amortización"
End Sub
| 
