|
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]
|
|
|