|
|
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
« 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
« 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. 
3
« 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
« 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
« 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
« 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
« 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
« en: Jueves 1 de Abril de 2004, 20:41 »
ClearType es una propiedad de VB que permite cambiar el tipo de datos de un determinado campo, variable 
9
« 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 
10
« en: Jueves 1 de Abril de 2004, 20:27 »
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
11
« en: Martes 30 de Marzo de 2004, 23: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
« 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
« 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]
|
|
|
Mostrar Mensajes
