• Sábado 10 de Mayo de 2025, 05:27

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

Páginas: 1 ... 6 7 [8] 9 10 ... 12
176
Que tal Herchi!

Creo que saca ese error por que no tienes conectado a una tabla como tal, deberias más bien luego enlazarlo con la tabla para ver si se adiciono el registro.

Espero sea eso y que te sirva, saludos.

177
Visual FoxPro / Re: Enlazar Textos
« en: Sábado 23 de Julio de 2005, 16:17 »
Gracias Cyclop, me imagino que cada vez que me quiera mover entre registros tendre que hacer esto, muchas gracias de nuevo. :rain:

178
Visual FoxPro / Re: Cual Funcion?
« en: Viernes 22 de Julio de 2005, 02:08 »
Gracias Cyclop, no habia caido encuenta de ese detalle  :P, lo tomare encuenta.

179
Visual FoxPro / Re: Enlazar Textos
« en: Viernes 22 de Julio de 2005, 02:05 »
jejeje, creo que si.

Ahora me invade otro problema, ya los enlace pero cuando me muevo adelante o atrás no me lo refleja en los text, que sera  :(, cualquier comentario es bienvenido, muchas gracias.

180
Visual FoxPro / Cual Funcion?
« en: Jueves 21 de Julio de 2005, 22:23 »
Como estan?

Recurro a ustedes ya que yo no pude, quisiera saber cual es la funcion que me devuelve el tipo del campo pero el exacto, ya que la funcion TYPE() me dice este es numerico pero no me especifica si es double o integer  :blink:, desde ya muchas gracias.

 :unsure:

181
Visual Basic 6.0 e inferiores / Re: Protección De Software Por Hasp
« en: Martes 19 de Julio de 2005, 23:16 »
Que tal Shiquilla!

A manera de comentario: yo ya habia escuchado hablar de algo parecido que se hacia con un pic, y cada cierto tiempo el programa se comunicaba con el y en caso que el pic no respondiera la aplicación se cerraba, obviamente el pic devolvia una señal en especial, para comparar con el programa, el problema con este era que ocupaba el puerto de la impresora, con este tambien se ocupa un puerto USB pero como las maquinas de ahora tienen tantos no creo que haya de que preocuparse  :P; por lo que leo esto es mucho más avanzado por todas sus caracteristicas y seguridad que plantea, claro esta que la seguridad se puede quebrantar, de alguna forma alguien encontrara como hacerlo.

Saludos.

182
Que tal Herchi!

Creo que el problema esta al final de tu cadena con el punto y coma ";", tambien ten encuenta el tipo de campo, por ej. si campo1 es texto su value deberia estar entre comillas simples ej.: 'valor', si es númerico puede ir solo ej.: 1236.

Espero sea de tu ayuda, saludos.

183
Visual FoxPro / Re: Funciones Y Algo +
« en: Martes 19 de Julio de 2005, 22:34 »
Gracias, esa es una parte, la otra no hay forma que este nuevo metodo tenga como parametro una variable de tipo booleana, en visual basic (ya se que es malo comparar, pero...) cuando se crea un sub procedimiento puedes decirle que va a recibir una variable de algun tipo y tambien, si era el caso se le decia que devolveria algun valor. No se si en foxpro se maneje como funciones o en prg apartes, me gustaria saber ese pequeño detalle, muchas gracias. :comp:

No hay tos, ya se como hacerlo:
Código: Text
  1. SET PROCEDURE TO Funciones.prg &&en el init del form.
  2. &&en el programa esto
  3. PROCEDURE EstadoControles
  4.   PARAMETERS Formulario as Form, HabDes As Boolean
  5.  
  6.   FOR I = 1 TO Formulario.ControlCount
  7.     varNombre = Formulario.Controls(I).BaseClass
  8.     IF varNombre = "Textbox" OR varNombre = "Combobox" OR varNombre = "Editbox" OR varNombre = "Checkbox"
  9.       Formulario.Controls(I).Enabled = HabDes
  10.     ENDIF
  11.   NEXT
  12.  
  13. ENDPROC
  14.  
esto era todo  B), gracias de todas formas.

184
Visual FoxPro / Re: Funciones Y Algo +
« en: Lunes 18 de Julio de 2005, 18:02 »
Que más Juez!

Si, eso lo se, lo que no se es como hacer un procedimiento al cual se le envie una variable de tipo booleana para que active o desactive los controles, en otras palabras quiero tener una unica linea para habilitar o deshabilitar los controles ej:

Procedimiento Estado (Variable as Boolean)
   ThisForm.txtCampo.Enabled  = Variable &&Contendra .F. o .T.
   ThisForm.cmdCampo.Enabled  = Variable
FindelProcedimiento

La otra pregunta ya la solucione, solo queria saber como se podian comunicar dos formulario y crear una matriz, pero ya lo resolvi, muchas gracias, por todo. Saludos

185
VBA / Insertar Varia Fotos En Word
« en: Sábado 16 de Julio de 2005, 16:05 »
Hola, hola!

Buenas las tengan, personas del foro necesito saber como puedo insertar varias fotos en word en diferentes paginas, si no es muy complicado cada pagina tiene una tabla de descripcion de la foto y abajo va esta con unos bordes, cualquier ayuda es bien recibida, muchas gracias.

186
Visual FoxPro / Re: Dudas Varias!!!
« en: Sábado 16 de Julio de 2005, 15:39 »
Hola none123!

Para cambiar de caracter a fecha es CTOD(ExpresionFecha) y de caracter a númerico VAL(ExpresionNumerica).

messagebox("ALGO EN LA PRIMER LINEA " + chr(13) + "Y ALGO EN LA SEGUNDA." te dara como resultado lo que quieres.

Busca en la ayuda lo referente al tema, saludos.

187
Visual FoxPro / Funciones Y Algo +
« en: Jueves 14 de Julio de 2005, 01:46 »
Como han estado?

Yo encartado con Fox, no se como se realizan las funciones o subprocedimientos y esas cosas en fox, por ejemplo la de activar o desactivar textos, como en vb:
Código: Text
  1. Sub Estado (vBol as Boolean) Rem Ejemplo de Visual Basic
  2. For i = 0 to txtCampos.Ubound
  3.     txtCampos(i).enabled = vBol
  4.     Rem esta linea deshabilita o habilita los textos
  5. Next
  6.  
como hago esto en foxpro 9.0 beta, la otra pregunta es tengo una seleccion de campos de otra tabla en un formulario aparte del inicial, quiero adicionar esos campos en el formulario principal, pero desde el secundario no lo veo (digo secundario por que se carga despues) que puedo hacer  :( , muchas gracias por sus aportes.

Saludos.

188
Visual FoxPro / Re: Enlazar Textos
« en: Jueves 14 de Julio de 2005, 00:18 »
Hola Widark!

Estube buscando en la web lo que tu no hiciste :angry:, y modifique tu codigo aqui esta es tan facil que deberia darte pena:
Código: Text
  1. CLOSE DATABASES
  2. strRuta = GETFILE('DBF','','Abrir',0,'Conectar con...')
  3. IF LEN(strRuta) > 0
  4.   strTabla = '"' + strRuta + '"'
  5.   USE &strTabla IN 0
  6.   PosicionB = RATC("\",strRuta) && Posicion del primer backslash de derecha a izquierda
  7.   Extencion = LEN(ALLTRIM(strRuta)) - (PosicionB + 4) && Para quitar la extencion con su punto
  8.   strTablaSola = SUBSTR(strRuta,PosicionB + 1,Extencion)
  9.   ThisForm.txtEtiqueta.ControlSource = strTablaSola + ".etiqueta"
  10.   ThisForm.txtNomcampo.ControlSource = strTablaSola + ".nomcampo"
  11. ENDIF
  12.  

189
Visual FoxPro / Enlazar Textos
« en: Miércoles 13 de Julio de 2005, 02:33 »
Qu tal!!!!

Quisiera saber como puedo enlazar textos con una tabla que el usuario escoje (con getdir, no esta en un combo)  si juez ve esto diria: "Yo no te envien un ejemplo que hace eso" o bueno algo parecido, lo que pasa es que no vi nada con textos solo con el grid esto es lo que he intentado:

Código: Text
  1. CLOSE DATABASES
  2. strRuta = GETFILE('DBF','','Abrir',0,'Conectar con...')
  3. IF LEN(strRuta) > 0
  4.   strTabla = '"' + strRuta + '"'
  5.   USE &strTabla IN 0
  6.   PosicionB = RATC("\",strRuta) && Posicion del primer backslash de derecha a izquierda
  7.   Extencion = LEN(ALLTRIM(strRuta)) - (PosicionB + 4) && Para quitar la extencion con su punto
  8.   strTablaSola = SUBSTR(strRuta,PosicionB + 1,Extencion)
  9.   ThisForm.txtEtiqueta.ControlSource = &strTablaSola.etiqueta
  10.   ThisForm.txtNomcampo.ControlSource = &strTablaSola.nomcampo
  11.   ThisForm.TxtTamcampo.ControlSource = &strTablaSola.tamcampo
  12. ENDIF
  13.  
tambien lo intente sin el & y no funciona. Sera que puedo cargar cualquier tabla en el dataenvironment, cualquier comentario me ayudaria mucho, muchas gracias. Saludos

190
Visual Basic 6.0 e inferiores / Re: Mdb Protegido Con Mdw
« en: Lunes 11 de Julio de 2005, 19:12 »
Que tal Cyclop!

enlace aqui esta el este link y este otro link, espero le ayude en algo, si no es así deberias buscar algun software que quite contraseñas de office, cualquier cosas me avisas  :comp:.

Saludos

191
Visual Basic 6.0 e inferiores / Re: Busqueda En Recordset
« en: Sábado 9 de Julio de 2005, 15:32 »
Hola calosoft!

No entendi muy buien pero creo que si el bookmark es para saber en que columna estaba debe ir primero que la busqueda, si las columnas son de tipo float (Long o Double), las busquedas para valores numericos no se les ponen las comillas simples, ej:

Código: Text
  1. rsN287.Find "NANDIN = " & BUSCAR
  2.  
para convertir tipo de datos de variables busca CInt, CDbl y similares. Si no estoy mal deberias cambiar la forma de concatenar las columnas numericas así:
Código: Text
  1. "select *, NAN & DIN AS NANDIN from TABLA"
  2.  
. Para ver si no hay registros solo validas el final del archivo (EOF) si es verdadero no encontro nada, espero le sirva, cualquier cosas me comentas, saludos.

192
Visual FoxPro / Re: Recordsource En Grid
« en: Jueves 7 de Julio de 2005, 15:58 »
Jejeje  :P, no así como lo tengo funciona bien, cuando termine te mandare un copia, muchas gracias por todo y por las que vienen, jejeje :lol:.

Saludos.

193
Visual FoxPro / Re: Recordsource En Grid
« en: Miércoles 6 de Julio de 2005, 23:02 »
Que tal Juez!

Ya estube viendo el ejemplo y me pirdo un poco, y no creas que es por tu organizacion  :lol: es broma, como me estoy adaptando a la forma de programar en foxpro me confundo pero ahi voy, el error era porque todo esto lo tenia en el load del form y viendo tu ejemplo me di cuenta que deberia ir en el init, bueno pero ahora cambie de pensar y quiero todo los campos en el list, como lo tenes, y creo saber porque no me enlaza la lista, resulta que tengo un cadena con la ruta de la tabla y es esa misma cadena la que asigno al controlsource de la lista pero saca el siguiente error: "el origen de datos para este control debe ser una referencia variable" o el original en ingles: "The data source for this object must be a variable reference", recorrere la cadena de derecha a izquierda hasta que encuentre el primer backslash, si tenes alguna sugerencia con gusto la recibire, muchas gracias por tu atención y el ejemplo me servira mucho mientras desarrollo esto.

Saludos

194
Visual FoxPro / Re: Recordsource En Grid
« en: Miércoles 6 de Julio de 2005, 18:35 »
pues lo acabe de revisar no veo nada, aqui estan otros dos widark@hotmail.com, por que al de gmail no llego, gracias.

Saludos.

195
La taberna del BIT / Re: Fotos de Usuarios del Foro
« en: Miércoles 6 de Julio de 2005, 18:07 »
A mi me parece que Shiquilla es muuuuyyyy BONITA y además muuuyyyy INTELIGENTE, me ha ayudado bastante, hola shiquilla  :hola:.

En cuanto a RadicalEd  :whistling:, y ese avatar, definitivamente se le cayeron las pinzas, se le partio la galleta, :lol:

196
Visual FoxPro / Re: Recordsource En Grid
« en: Miércoles 6 de Julio de 2005, 17:45 »
Que tal Juez!!!

Te doy las gracias por el manual y por tu respuesta, pues lo intente y me dice que no reconoce al miembro grdCampos, foxpro de la  :lightsabre: , aqui  esta el codigo que utilizo:
Código: Text
  1. strTabla = '"' + strRuta + '"' &&Variable que viene de otro form
  2. USE &strTabla SHARED IN 0
  3. ThisForm.grdCampos.RecordSource = strTabla && Aqui saca el pinche error y la grilla si existe
  4. ThisForm.grdCampos.Refresh
  5.  
Muchas gracias por tu atencion. Saludos.

197
Visual FoxPro / Recordsource En Grid
« en: Miércoles 6 de Julio de 2005, 01:04 »
Como estan?

Quisiera saber como puedo enlazar la grilla con una tabla que selecciona un usuario, muchas gracias por la atención prestada.   :comp:

198
Visual Basic para principiantes / Re: Dudas Con Eof Y Bof
« en: Martes 28 de Junio de 2005, 16:00 »
Hola manuelbse!

Creo que deberias validar que no sea ni fin ni principio de archivo y luego si moverte, ej:
Código: Text
  1.  
  2. If not (rsDesplazar.BOF And rsDesplazar.EOF) Then
  3.    rsDesplazar.MoveFirst Rem O lo que quieras, last, next, etc.
  4.  else
  5.    msgbox "No hay registros.",vbInformation
  6. End If
  7.  

espero le sirva, saludos.

199
Visual Basic para principiantes / Re: Ayuda Cocn Combobox Y Base De Datos
« en: Miércoles 22 de Junio de 2005, 16:24 »
Hola pola!

prueba esto:

Código: Text
  1.     Set rsLlenar = New ADODB.Recordset
  2.     rsLlenar.Open CadAbrir, Cnx, 3, 3 Rem Recordset que trae los datos
  3.     If Not (rsLlenar.BOF And rsLlenar.EOF) Then
  4.         rsLlenar.MoveFirst
  5.         ReDim Unidad(rsLlenar.RecordCount - 1) As String Rem Vector opcional para que guarde le codigo del elemento
  6.         For I = 0 To rsLlenar.RecordCount - 1
  7.             lstAyuda.AddItem rsLlenar(1)
  8.             Unidad(I) = rsLlenar(0)
  9.             rsLlenar.MoveNext
  10.         Next
  11.     End If
  12.  

espero le sirva, saludos

200
VBA / Re: Validar Registro En Excel
« en: Martes 21 de Junio de 2005, 16:55 »
Hola mbrenes!

gracias por tu aporte le hize una modificacion ya que con la validacion que escribiste no funcionaba y así quedo:

=CONTAR.SI($G:$G;G16)<>2

ya que no importaba cual número digitara y así no se repitiera me aparecia el error, pero así funciona, muchas gracias  :lol:

Páginas: 1 ... 6 7 [8] 9 10 ... 12