• Viernes 22 de Octubre de 2021, 15:57

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Loquillo

Páginas: [1]
1
ASP .NET / Re:System.runtime.interopservices.comexception
« en: Viernes 28 de Mayo de 2021, 21:58 »
Yo encontré el problema, y la solución también, es la configuración de la red, cuando creamos un puente de conexión, este filtra todos los enlaces entrantes y salientes, los pasa por el firewall y el antivirus, y cualquier cookie o certificado sospechoso, lo bloquea, eliminé todas las conexiones que no fuesen nativas y reinstalé los controlodares de red, y BINGO, todo volvió a la normalidad

2
Visual Basic 6.0 e inferiores / Re: Ayuda Con Store Procedures En Sql Y Visual Basic
« en: Martes 16 de Noviembre de 2004, 18:19 »
Utiliza un QueryDef para ejecutar tu Store Procedure, al cual le envias un parametro mediante la funcion call
Set xx = conexion.CreateQueryDef("", {?=call (Store Procedure)})
luego cambia la dirección del parametro.

Al ejecutar el querydef, asignandolo a un recordset, no importará si este último tiene o no información, lo importante es que en tu parametro ya estará el valor que deseas. :hola:

3
VBA / Cierre En Cascada De Recordset
« en: Viernes 29 de Octubre de 2004, 15:56 »
Hola, Necesito ayuda, tengo varios RecordSet abiertos, y necesito hacer un BeginTrans, pero previo a eso necesito cerrar los RecordSet, necesito un Procedure que me permita esto sin tener que cerrar uno a uno.

Como uso las colecciones, porfaaaaaaaaaa.

4
Crystal Reports / Re: Problemas Con Crystal Report+sql Server Y Visual B
« en: Miércoles 1 de Septiembre de 2004, 22:10 »
Una de las posibles causas, es que no esté grabando los registros al momento de generar el informe, dos, al momento de crear el informe, marcastes la opción que dice Save Data with Report, eso impide le regeneración de los datos.

También puedes probar con
adoconexion.BeginTrans
procesos de borrado
...
proceso de grabación
...
adoconexion.commit
...
...
generación del reporte
...
...

Espero que eso te ayude.

5
Crystal Reports / Re: Crystal Reports 10 En Español
« en: Miércoles 1 de Septiembre de 2004, 21:57 »
Al momento de instalar, tu equipo debe estar configurado en español, ya que el instalador reconoce de forma automática el idioma, pero no te preocupes tanto, en el CD de instalación hay una carpeta llamada support, busca en ella la utilidad de actualización, si no hay dicha carpeta, busca dentro de pfiles una carpeta con las iniciales ES, o SP, y trata de copiarte esas librerias en los directorios correspodientes del Crystal, eso reemplazará tus archivos en otro idioma

6
Visual FoxPro / Re: Ayuda Con Consultas Dentro De Combobox
« en: Miércoles 1 de Septiembre de 2004, 21:13 »
Yo te puedo ayudar, pero primero debes entender, el porque no se abre la tabla, ya que si está grabando con uno, dos o más digitos, eso no es impedimento para abrir la tabla.

El error está en otra parte, de pronto, escribes el mensaje de error completo, eso ayudará a entender el porqie no se abre la tabla.

7
VBA / Re: Paso De Variables Entre Formularios?
« en: Miércoles 1 de Septiembre de 2004, 20:55 »
Pasar valores entre formularios es relativamente fácil, y hay muchas maneras de hacero.

La más comun es utilizando la propiedad "Tag" del formulario, en la cual puedes asignar cualquier valor.

Al abrir el nuevo formulario, solo tienes que preguntar por el valor asignado a la propiedad "Tag" y ya tendras transferida la variable que necesitas.

Otra de las formas es creando variables globales o creando referencias entre formularios.  Esto último es obtener el valor de un determinado control antes de cerrar el formulario que posee dicho valor.

8
ClearType es una propiedad de VB que permite cambiar el tipo de datos de un determinado campo, variable :ph34r:

9
Visual Basic 6.0 e inferiores / Re: Problemas Con Macro En Excel
« en: Jueves 1 de Abril de 2004, 20:37 »
Según la aplicación que uses para crear la instalación, de todas maneras, el instalador crear un archivo INI, en ese archivo debes crear una entrada que incluya el archivo de imagen :comp:

10
Cuando hablaba del virus del SIDA, no me refería al virus humano, me refería al virus de computación, y tampoco me refería a alguna cura, solo explicaba la forma de proteger nuestras aplicaciones con una encriptación poliformica.

Saludos a todos :hola:

11
Mira, soy un hacker promedio, y te recomiendo que intentes proteger tus sistemas a través de un dll polimorfico, yo he protegido algunos de mis proyectos y ha sido difícil hasta para mi desprotegerlos, ya que se debe crear un archivo fantasma que genere una encryptación cada vez que alguien incursiona en tu proyecto, itenta, nada pierdes con hacerlo (Guiate en el virus del SIDA) hasta la fecha, hay protección pero no cura, ya que es un polimorfico.

12
Visual Basic 6.0 e inferiores / Re: Msflexgrid Y El Mouse
« en: Martes 30 de Marzo de 2004, 22:56 »
Cuando instalastes el Mouse Scroll, en el diskette vinieron unos archivos dll, los mismos que incluyen las funciones necesarias para activar el Scroll del mouse,
añade esos dll al proyecto, luego pulsa la tecla F2 y en buscar selecciona la libreria que añadiste, ahí encontrarás la función que necesitas.

13
Visual Basic 6.0 e inferiores / Re: Proyecto Final
« en: Martes 30 de Marzo de 2004, 22:46 »
Private Sub Txt_CodigoItem_Change()
   On Error Resume Next
   fbPaso = False
   If Opt_CodItem Then   'Se imprime el Código del Item
      If Trim(Txt_CodigoItem) = "" Then
         Pic_CodBar.Cls    'Este control es un PictureBox
         Pic_CodBar.Picture = Nothing
      Else
         Call DrawBarcode(Txt_CodigoItem, Trim(Txt_NombreItem), Pic_CodBar)
      End If
   Else
      If Trim(Txt_Matriz) = "" Then
         Pic_CodBar.Cls
         Pic_CodBar.Picture = Nothing
      Else
         Call DrawBarcode(Txt_Matriz, Trim(Txt_NombreItem), Pic_CodBar)
      End If
   End If
   '----------------------------
End Sub

Sub DrawBarcode(ByVal bc_string As String, sDescripcion As String, obj As Control)
   
    'Declaraciones
    Dim xpos!, y1!, y2!, dw%, th!, tw, new_string$
    Dim bc(90) As String
    Dim sAux As String
    Dim I As Byte
   
    bc(1) = "1 1221"            'pre-amble
    bc(2) = "1 1221"            'post-amble
    bc(48) = "11 221"           'dígitos
    bc(49) = "21 112"
    bc(50) = "12 112"
    bc(51) = "22 111"
    bc(52) = "11 212"
    bc(53) = "21 211"
    bc(54) = "12 211"
    bc(55) = "11 122"
    bc(56) = "21 121"
    bc(57) = "12 121"
                                'Letras Mayúsculas
    bc(65) = "211 12"           'A
    bc(66) = "121 12"           'B
    bc(67) = "221 11"           'C
    bc(68) = "112 12"           'D
    bc(69) = "212 11"           'E
    bc(70) = "122 11"           'F
    bc(71) = "111 22"           'G
    bc(72) = "211 21"           'H
    bc(73) = "121 21"           'I
    bc(74) = "112 21"           'J
    bc(75) = "2111 2"           'K
    bc(76) = "1211 2"           'L
    bc(77) = "2211 1"           'M
    bc(78) = "1121 2"           'N
    bc(79) = "2121 1"           'O
    bc(80) = "1221 1"           'P
    bc(81) = "1112 2"           'Q
    bc(82) = "2112 1"           'R
    bc(83) = "1212 1"           'S
    bc(84) = "1122 1"           'T
    bc(85) = "2 1112"           'U
    bc(86) = "1 2112"           'V
    bc(87) = "2 2111"           'W
    bc(88) = "1 1212"           'X
    bc(89) = "2 1211"           'Y
    bc(90) = "1 2211"           'Z
                                'Misceláneos Caracteres
    bc(32) = "1 2121"           'Espacio
    bc(35) = ""                 '# no se puede realizar
    bc(36) = "1 1 1 11"         '$
    bc(37) = "11 1 1 1"         '%
    bc(43) = "1 11 1 1"         '+
    bc(45) = "1 1122"           '-
    bc(47) = "1 1 11 1"         '/
    bc(46) = "2 1121"           '.
    bc(64) = ""                 '@ no se puede realizar
    bc(65) = "1 1221"           '*
             
    bc_string = UCase(bc_string) 'Convertir a mayúsculas
       
    'Dimensiones
    obj.ScaleMode = 2                               'Pixeles
    obj.Cls
    obj.Picture = Nothing
    dw = CInt(obj.ScaleHeight / 40)                 'Espacio entre barras
    If dw < 1 Then dw = 1
    'Debug.Print dw
    th = obj.TextHeight(bc_string)                  'Alto texto
    tw = obj.TextWidth(bc_string)                   'Ancho texto
    new_string = Chr$(1) & bc_string & Chr$(2)      'Agregar pre-amble, post-amble
    y1 = obj.ScaleTop + 12
    y2 = obj.ScaleTop + obj.ScaleHeight - 1.5 * th
    obj.Width = 1.1 * Len(new_string) * (15 * dw) * obj.Width / obj.ScaleWidth
       
    'Dibujar cada caracter en el string barcode
    xpos = obj.ScaleLeft
    For n = 1 To Len(new_string)
        c = Asc(Mid(new_string, n, 1))
        If c > 90 Then c = 0
        bc_pattern$ = bc©
        'Dibujar cada barra
        For I = 1 To Len(bc_pattern$)
            Select Case Mid(bc_pattern$, I, 1)
                Case " "
                    'Espacio
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
                    xpos = xpos + dw
                Case "1"
                    'Espacio
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
                    xpos = xpos + dw
                    'Línea
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &H0&, BF
                    xpos = xpos + dw
                Case "2"
                    'Espacio
                    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
                    xpos = xpos + dw
                    'Ancho línea
                    obj.Line (xpos, y1)-(xpos + 2 * dw, y2), &H0&, BF
                    xpos = xpos + 2 * dw
            End Select
        Next
    Next
   
    'Mas espacio
    obj.Line (xpos, y1)-(xpos + 1 * dw, y2), &HFFFFFF, BF
    xpos = xpos + dw
   
    'Medida final y tamaño
    obj.Width = (xpos + dw) * obj.Width / obj.ScaleWidth
    obj.CurrentX = 1
    obj.CurrentY = 1
    If VLPrecio = "0.00" Then VLPrecio = ""
    If xpos - obj.TextWidth(VLPrecio) - 10 < obj.TextWidth(sDescripcion) Then
       sAux = ""
       For I = 1 To Len(sDescripcion)
           If xpos - obj.TextWidth(VLPrecio) - 10 < obj.TextWidth(sAux) Then
              Exit For
           Else
              sAux = sAux & Mid(sDescripcion, I, 1)
           End If
       Next I
       obj.Print sAux
    Else
       obj.Print sDescripcion
    End If
    obj.CurrentX = xpos - obj.TextWidth(VLPrecio)
    obj.CurrentY = 1
    obj.Print VLPrecio
    obj.CurrentX = (obj.ScaleWidth - tw) / 2
    obj.CurrentY = y2 + 0.25 * th
    obj.Print bc_string
   
    'Copiar a clipboard
    obj.Picture = obj.Image
    Clipboard.Clear
    Clipboard.SetData obj.Image, 2
End Sub

Páginas: [1]