Skip to main content
4 de 7
se añadieron 117 caracteres en el cuerpo
Franqo Balsamo
  • 575
  • 6
  • 25
  • 64

Subíndice fuera de intervalo VB6

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:

introducir la descripción de la imagen aquí

Al usar MoveFirst, sale el siguiente error:

introducir la descripción de la imagen aquí

Franqo Balsamo
  • 575
  • 6
  • 25
  • 64