Estimadxs, buen día, tengo un dilema que no termino de cerrar. Estoy cargando Un MSHFlexGrid
en VB6
con StoredProcedure
hecho en SQLServer
, hasta ahí va todo bien
El problema es que a la hora de cargarlo, es como que entra en un LOOP
interminable y sale el cartel de índice fuera de intervalo. Adjunto el código así alguien me dice a dónde le estoy pifiando en mi código:
Option Explicit
Dim RS As Recordset
Dim IntRecord As Integer
Private Sub Form_Load()
LblApeNom.Caption = FrmModSolNuevo.LblApellido.Caption & ", " & FrmModSolNuevo.LblNombre.Caption
LblTitulo.Caption = FrmModSolNuevo.LblTitulo.Caption
'..................................
SP_GrillaEndosos
End Sub
Private Sub Grilla()
Dim I As Integer
FlexEndosos.Cols = 11
FlexEndosos.Rows = IntRecord + 2
FlexEndosos.MergeCells = flexMergeFree
FlexEndosos.FixedRows = 2
'--------------------------1ºFILA - MERGEFREE-------------
FlexEndosos.TextMatrix(0, 0) = ""
FlexEndosos.TextMatrix(0, 1) = "CÓDIGO PLANES"
FlexEndosos.TextMatrix(0, 2) = "CÓDIGO PLANES"
FlexEndosos.TextMatrix(0, 3) = "PLAN ENDOSO"
FlexEndosos.TextMatrix(0, 4) = "PLAN ENDOSO"
FlexEndosos.TextMatrix(0, 5) = "CUOTAS GENERADAS"
FlexEndosos.TextMatrix(0, 6) = "CUOTAS GENERADAS"
FlexEndosos.TextMatrix(0, 7) = "CUOTAS GENERADAS"
FlexEndosos.TextMatrix(0, 8) = "ENDOSO"
FlexEndosos.TextMatrix(0, 9) = "ENDOSO"
FlexEndosos.TextMatrix(0, 10) = "ENDOSO"
'------------------------------------------------------
FlexEndosos.ColWidth(0) = 800
FlexEndosos.ColAlignment(0) = 4
FlexEndosos.TextMatrix(1, 0) = "ENDOSO"
'------------------------------------------------------
FlexEndosos.ColWidth(1) = 1000
FlexEndosos.ColAlignment(1) = 4
FlexEndosos.TextMatrix(1, 1) = "ORIGEN"
'------------------------------------------------------
FlexEndosos.ColWidth(2) = 1000
FlexEndosos.ColAlignment(2) = 4
FlexEndosos.TextMatrix(1, 2) = "DESTINO"
'------------------------------------------------------
FlexEndosos.ColWidth(3) = 1200
FlexEndosos.ColAlignment(3) = 4
FlexEndosos.TextMatrix(1, 3) = "V.NOMINAL"
'------------------------------------------------------
FlexEndosos.ColWidth(4) = 1100
FlexEndosos.ColAlignment(4) = 4
FlexEndosos.TextMatrix(1, 4) = "$ CUOTA"
'------------------------------------------------------
FlexEndosos.ColWidth(5) = 1000
FlexEndosos.ColAlignment(5) = 4
FlexEndosos.TextMatrix(1, 5) = "CANTIDAD"
'------------------------------------------------------
FlexEndosos.ColWidth(6) = 1000
FlexEndosos.ColAlignment(6) = 4
FlexEndosos.TextMatrix(1, 6) = "DESDE Nº"
'------------------------------------------------------
FlexEndosos.ColWidth(7) = 1000
FlexEndosos.ColAlignment(7) = 4
FlexEndosos.TextMatrix(1, 7) = "HASTA Nº"
'------------------------------------------------------
FlexEndosos.ColWidth(8) = 2400
FlexEndosos.ColAlignment(8) = 4
FlexEndosos.TextMatrix(1, 8) = "TIPO"
'------------------------------------------------------
FlexEndosos.ColWidth(9) = 1200
FlexEndosos.ColAlignment(9) = 4
FlexEndosos.TextMatrix(1, 9) = "FECHA"
'------------------------------------------------------
FlexEndosos.ColWidth(10) = 1200
FlexEndosos.ColAlignment(10) = 4
FlexEndosos.TextMatrix(1, 10) = "USUARIO"
'------------------------------------------------------
FlexEndosos.MergeRow(0) = True
FlexEndosos.MergeCol(10) = True
'------------------------CENTRO LAS COLUMNAS FIJAS---------------------
For I = 0 To FlexEndosos.Cols - 1
FlexEndosos.FixedAlignment(I) = 4
Next I
End Sub
Private Sub CargarGrillaEndosos()
Dim I As Integer
I = 1
RS.MoveFirst
IntRecord = RS!Rs_Count
Do While RS.EOF = False
I = I + 1
If RS!Tipo = "A" Then
FlexEndosos.Rows = RS!Rs_Count + 3
FlexEndosos.TextMatrix(I, 0) = RS!Endoso
FlexEndosos.TextMatrix(I, 1) = RS!PlanOrigen
FlexEndosos.TextMatrix(I, 2) = RS!PlanDestino
FlexEndosos.TextMatrix(I, 3) = Format(RS!ValorNominal, "##,##")
FlexEndosos.TextMatrix(I, 4) = Format(RS!ImporteComprobante, "##,##0.00")
FlexEndosos.TextMatrix(I, 5) = 0
FlexEndosos.TextMatrix(I, 6) = 0
FlexEndosos.TextMatrix(I, 7) = 0
FlexEndosos.TextMatrix(I, 8) = RS!Modulo
FlexEndosos.TextMatrix(I, 9) = Format$(RS!FechaHecho, "dd/MM/yyyy")
FlexEndosos.TextMatrix(I, 10) = RS!Usuario
Else
FlexEndosos.Rows = RS!Rs_Count + 3
FlexEndosos.TextMatrix(I, 0) = RS!PlanOrigen
FlexEndosos.TextMatrix(I, 1) = RS!PlanOrigen
FlexEndosos.TextMatrix(I, 2) = RS!PlanDestino
FlexEndosos.TextMatrix(I, 3) = Format(RS!ValorNominal, "##,##")
FlexEndosos.TextMatrix(I, 4) = Format(RS!ImporteComprobante, "##,##0.00")
FlexEndosos.TextMatrix(I, 5) = RS!cantidad
FlexEndosos.TextMatrix(I, 6) = RS!CuotaImpresaMin
FlexEndosos.TextMatrix(I, 7) = RS!CuotaImpresaMax
FlexEndosos.TextMatrix(I, 8) = RS!Modulo
FlexEndosos.TextMatrix(I, 9) = Format$(RS!FechaHecho, "dd/MM/yyyy")
FlexEndosos.TextMatrix(I, 10) = RS!Usuario
End If
'RS.Close
RS.MoveNext
Loop
'FlexEndosos.Rows = FlexEndosos.Rows - 1
End Sub
Private Sub SP_GrillaEndosos()
Dim CmdSQL As ADODB.Command
Set CmdSQL = New ADODB.Command
CmdSQL.ActiveConnection = Cn
CmdSQL.CommandType = adCmdStoredProc
ActivarRS
CmdSQL.CommandText = "SP_GrillaEndosos"
CmdSQL.Parameters("@titulo") = CLng(LblTitulo.Caption)
Set RS = CmdSQL.Execute
Set CmdSQL = Nothing
CargarGrillaEndosos
Grilla
End Sub
Private Sub ActivarRS()
Set RS = New Recordset
RS.CursorLocation = adUseServer
End Sub
Private Sub CmdSalir_Click()
Unload Me
End Sub
El Stored devuelve un select de una tabla temporal:
Si en Private Sub SP_GrillaEndosos() posiciono
CargarGrillaEndosos
Grilla
Esto solo me carga el valor de la primer columna (de 0 a 7 - lo cual son datos correcto), al debugear me doy cuenta de que si trae datos pero luego borra todo por hacer el diseño luego de cargar los items.
Si en Private Sub SP_GrillaEndosos() posiciono
Grilla
CargarGrillaEndosos
MoveFirst, trae el siguiente error:
Gif de lo que sucede: