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:
Private Sub Form_Load()
SP_GrillaEndosos
End Sub
Private Sub Grilla()
Dim I As Integer
FlexEndosos.Cols = 11
FlexEndosos.Rows = RS!RS_Count + 2
'FlexEndosos.Rows = RS.RecordCount + 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
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.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) = 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.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
Grilla
CargarGrillaEndosos
Rs.Close
End Sub
Private Sub ActivarRS()
Set RS = New Recordset
RS.CursorLocation = adUseServer
End Sub
Datos a tener en cuenta, en la línea:
FlexEndosos.Rows = RS!RS_Count + 2
Utilizo un valor dentro de la consulta, por ejemplo ese valor es que hay ocho registros entonces RS_Count
vale 8 ya que si uso RecordCount
este me devuelve -1
El Stored devuelve un select de una tabla temporal:
Al usar MoveFirst, sale el siguiente error: