Visual Basic Foro

Virgil Tracy muchas gracias es lo que estaba buscando.

Oscar J. Crespo
La Paz - Bolivia

Muy buenos días compañeros y felices fiestas
Bueno mi duda es la siguiente como buscar una palabra ó parte de ella en un MSHFLEXGRID y luego que vaya a la fila donde se encuentre la palabra y la resalte, siempre lo hice filtrando la información desde sql, pero mi cliente no lo quiere así.

Agradeciendo por anticipado sus respuestas me despido.

Oscar J. Crespo

Hola otra vez, les comento que acabo de hacer los cambios para que me genere la encriptaciòn Alleged RC4 de acuerdo al pseudocodigo pero cuando la pruebo no me sale los datos de la prueba me podrian ayudar por favor.

RESULTADO QUE DEBERIA TENER:
1.  allegedrc4(“d3Ir6”, “sesamo”)                                                      -> Resultado: CadenaCifrada = EB06AEF892
2.  allegedrc4 (“piWCp”, “Aa1-bb2-Cc3-Dd4”)                                    -> Resultado: CadenaCifrada = 37712E14A0
3. allegedrc4(“IUKYo”, “XBCPY-GKGX4-PGK44-8B632-X9P33”)           -> Resultado: CadenaCifrada = 8362FCB0F0

codigo del compañero 79137913 modificado que corre bien pero no me da los resultados de los ejemplos de arriba:
Public Function allegedrc4(codigo As String, llavellegada As String) As String
    Dim Mensaje As String: Mensaje = vbNullString
    Dim Llave As String: Llave = vbNullString
    Dim MsgCif As String:
    Dim x As Long
    Dim y As Long
    Dim Index1 As Long
    Dim Index2 As Long
    Dim NMen As Long
    Dim I As Long
    Dim op1 As Integer
    Dim aux As Long
    Dim op2 As Integer
    Dim state(256) As String
    Dim nroHEX As String: nroHEX = vbNullString
        Mensaje = codigo
        Llave = llavellegada
       
        For I = 0 To 255
            state(I) = I
        Next
       
       
        For I = 0 To 255
            op1 = CStr(Asc(Mid(Llave, Index1 + 1, 1))) 'no se que es short suplanto por asc
            Index2 = (op1 + state(I) + Index2) Mod 256
            aux = state(I): state(I) = state(Index2): state(Index2) = aux:
            Index1 = (Index1 + 1) Mod Len(Llave)
        Next
       
        For I = 0 To Len(Mensaje) - 1
           
            x = (x + 1) Mod 256
           
            y = (state(x) + y) Mod 256
            'intercambia valor
            aux = state(x): state(x) = state(y): state(y) = aux
           
           
            xorIndex = (state(x) + state(y)) Mod 256
           
                       
            NMen = Asc(Mid(Mensaje,i + 1, 1)) Xor state(xorIndex)
           
            nroHEX = DecToHex(NMen) '
           
            If Len(nroHEX) = 1 Then
                nroHEX = "0" & nroHEX
            End If
         

            MsgCif = MsgCif & nroHEX
        Next
        'MsgCif = Mid(MsgCif, 1, Len(Mensaje) - 1)
       allegedrc4 = MsgCif
End Function

Public Function DecToHex(ByVal DecNum As Double) As String
    Dim remainder As Integer
    Dim HexStr As String
    HexStr = ""
    Do While DecNum <> 0
        remainder = DecNum Mod 16
        If remainder <= 9 Then
            HexStr = Chr(Asc(remainder)) & HexStr
        Else
            HexStr = Chr(Asc("A") + remainder - 10) & HexStr
        End If
        DecNum = DecNum \ 16
    Loop
    If HexStr = "" Then HexStr = "0"
    DecToHex = HexStr
End Function


Muchas gracias por el aporte pero te comento que encontre eses codigo y no me servio no se por que tiene que ser igual al que esta hecho en C#, de todos modos muchas gracias otra vez

Muchas gracias todo po sus comentarios, pero bueno lo que necesito es el subtotal por pagina; es decir que me sume solo los datos que se ve en la pagina. ya que es el formato del libro de ventas y compras y no debo tener grupos más que por periodos; y si me ayudo mucho en mis otros reportes la agrupación por los analisis.

Bueno, primeramente muchas gracias por los comentarios IvanB y ssccaann43; pero mi sistema contempla negativos ya que tengo un modulo de preventa, es decir que tengo una tabla en cual es el detalle de la factura ó venta por así decirlo, en la cual para filtrar y tener un reporte en la que me de un kardex de tal manera que pueda ver una suma continua de acuerdo al movimiento por fecha de un solo item; anteriormente lo hice utilizando un bucle; al principio no hubo problemas por que los registro no fueron grandes, pero cuando ya se tuvo muchos registros tales calculos tardaban mucho, en sintesis quiero lograr realizar una consulta sin tener que utilizar un bucle, bueno  quisiera subir el ejemplo que tengo pero no se como hacerlo; ahora estoy ocupado por los EEFF de mi trabajo, pero apenas tenga tiempo lo subire a rapishare u otro para que así puedan analizarlo mejor.
Otra vez muchas gracias por sus comentarios

Saludos desde La Paz Bolivia.
Oscar J. Crespo

te comento que acabo de editarlo adicionando el VALUE, pero lamentablemente me sigue saliendo el error; bueno de todos modos muchisimas gracias por la sugerencia y por la molestias de responder tan pronto, saludos