In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

como utilizar un seek

Foro público de Xailer en español
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Thu Jul 01, 2010 10:20 am

Hola, Podrian ayudarme,..
Desde un Control TMaskEdit estoy queriendo hacer validar si el numero que capture esta o no en un ARCHIVO.DBF
Como le puedo hacer.
Un cordial saludo.
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

como utilizar un seek

Postby jrcpoli-quitar » Thu Jul 01, 2010 8:01 pm

Saludos:
El 01/07/2010 10:20, Gabriel Gonzalez A escribió:
> Hola, Podrian ayudarme,..
>
> Desde un Control TMaskEdit estoy queriendo hacer validar si
> el numero que capture esta o no en un ARCHIVO.DBF
Supongo que el campo en la DBF es numérico y no lo encuentra porque lo
que le pasas es un campo carácter aunque le pongas un Picture "9999", si
acierto solo tienes que poner en la propiedad Value un cero, si la dejas
en blanco o lo dejas con el nombre que pone por defecto siempre será
tipo carácter.
IF ::oDataSet:Seek(::oMaskEdit:Value)
verdadero
ElSE
falso
ENDIF
>
> Como le puedo hacer.
>
> Un cordial saludo.
José Ramón Castro.
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Sat Jul 03, 2010 3:27 am

prbnd,..
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Sat Jul 03, 2010 6:21 am

Gracias por tu respuesta José Ramón, pero te quiero mandar mejor mi codigo para aclarar este problema,..

//---------------------------------------------------------- -----
METHOD FormInitialize( oSender ) CLASS Form

USE Clientes ALIAS Clie SHARED NEW
Clie->(OrdSetFocus("nombre"))
Clie->(DBGOTOP())

RETURN Nil

//---------------------------------------------------------- -----
METHOD Change( oSender ) CLASS Form

IF ::oDbfDataSet1:Seek(::oMaskEdit1:value)
msginfo("Verdadero")
ELSE
msginfo("Falso")
ENDIF

RETURN Nil

//---------------------------------------------------------- -----
Como crees que sea la sintaxis, usando el "USE". Porque al compilar salen errores de Area, errores de tipo character ó que esta mal el mensaje.
Lo unico que quiero es saber si un numero de factura está o no está en el archivo.
Te agradesco tu tiempo.
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

como utilizar un seek

Postby jrcpoli-quitar » Sat Jul 03, 2010 1:01 pm

Saludos:
Una forma de hacerlo es empleando solo DatasControl, esto TDataSource y
TDataSet, y así­ te voy ha poner el ejemplo.
1º) En IDE selecciono el TDataSoruce a emplear NTX, CDX, o Otro.
2º) En las propiedades selecciono el directorio donde trabajaran las
bases de datos o lo dejo como está que quiere decir que trabajarán en el
directorio raí­z de mi aplicación.
3º) En El IDE selecciono un TDataSet al cual él asignará un nombre en tú
caso parece que tienes uno que se llama oDBFDataSet1 y selecciono la
base de datos que va a trabajar con ese DataSet.
4º) En eventos del DataSet seleccionado hago doble clic en el evento
OnCreate y creará un evento como este.
METHOD DbfDataSet1Create( oSender ) CLASS Form
* Pongo esto
WITH OBJECT oSender // Hace referencia al oDbfSataSet1
:oDataSource := ::oDataSource1 // Nombre del TDataSource
:lShared := .T.
IF (:lOpen := .T.)
:OrdSetFocus("nombre")
:GoTop()
ENDIF
END
RETURN Nil
5º)En el evento que quieras o encuentres mejor solo tienes que poner
IF ::oDbfDataSet1:Seek(::oMaskEdit1:value)
msginfo("Verdadero")
ELSE
msginfo("Falso")
ENDIF
José Ramón Castro.
El 03/07/2010 6:21, Gabriel Gonzalez A escribió:
> Gracias por tu respuesta JosíƒÂ© RamíƒÂ³n, pero te quiero mandar
> mejor mi codigo para aclarar este problema,..
>
> //----------------------------------------------------------
> ----- METHOD FormInitialize( oSender ) CLASS Form
> USE Clientes ALIAS Clie SHARED NEW Clie->(OrdSetFocus("nombre"))
> Clie->(DBGOTOP())
> RETURN Nil
> //----------------------------------------------------------
> ----- METHOD Change( oSender ) CLASS Form
> IF ::oDbfDataSet1:Seek(::oMaskEdit1:value)
> msginfo("Verdadero")
> ELSE
> msginfo("Falso")
> ENDIF
>
> RETURN Nil
>
> //----------------------------------------------------------
> ----- Como crees que sea la sintaxis, usando el "USE". Porque al
> compilar salen errores de Area, errores de tipo character íƒÂ³
> que esta mal el mensaje.
>
> Lo unico que quiero es saber si un numero de factura est탡 o
> no est탡 en el archivo.
>
> Te agradesco tu tiempo.
>
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Sat Jul 03, 2010 7:02 pm

José Ramón Castro, Buen dí­a:
Lleve a cabo lo que me escribiste, pero mi campo indice es ATC7TALN, y al compilar me puso el siguiente mensaje.
//---------------------------------------------------------- -
TDBFDATASET:ORDSETFOCUS(1179)
Warning Xailer: TRddDataSource/0 Error de OrdSetFocus() en ATCEA0: Tag inexistente ATC7TALN
Argumentos: ()
//---------------------------------------------------------- -
Y mi codigo fue:
:OrdSetFocus("ATC7TALN")
Te agradesco tu ayuda, Saludos.
Gabriel.
nospam
Posts: 71
Joined: Sat Nov 21, 2009 10:13 pm

como utilizar un seek

Postby nospam » Sun Jul 04, 2010 6:18 am

Gabriel:
Usa el evento OnExit del TMaskEdit, y haz el SEEK sobre el ::MaskEdit:Value.
El evento OnExit debe retornar .T. para continuar con la caputra de
datos, o .F. si la captura de datos fue erronea.
Saludos
Rene Flores
http://www.ciber-tec.com
Gonzalez A escribió:
> Hola, Podrian ayudarme,..
>
> Desde un Control TMaskEdit estoy queriendo hacer validar si
> el numero que capture esta o no en un ARCHIVO.DBF
>
> Como le puedo hacer.
>
> Un cordial saludo.
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Wed Jul 07, 2010 5:35 am

Disculpen mi incompetencia pero mi aplicación sobre Seek y OrdSetFocus(), no se a resuelto, talvez por no saberles explicar.
He expuesto las respuestas que amablemente me sugieren pero tal vez no se aplicarlas.
Si no tienen inconveniente adjunto un archivo compactado, para que vean los errores y posibles soluciones.
Solo deseo verificar si un número de factura se encuentra en un archivo. Gracias.
Un cordial saludo.
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Wed Jul 07, 2010 5:48 am

Adjunto

Attached files Pru_Seek.prg (1.7 KB)Â
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

como utilizar un seek

Postby jrcpoli-quitar » Wed Jul 07, 2010 10:26 am

Saludos:
Por favor el adjunto en formato texto.
José Ramón Castro.
El 07/07/2010 5:35, Gabriel Gonzalez A escribió:
> Disculpen mi incompetencia pero mi aplicaciíƒÂ³n sobre Seek y
> OrdSetFocus(), no se a resuelto, talvez por no saberles
> explicar.
> He expuesto las respuestas que amablemente me sugieren pero
> tal vez no se aplicarlas.
> Si no tienen inconveniente adjunto un archivo compactado,
> para que vean los errores y posibles soluciones.
> Solo deseo verificar si un níƒÂºmero de factura se encuentra
> en un archivo. Gracias.
>
> Un cordial saludo.
>
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Wed Jul 07, 2010 5:57 pm

Complemento,..
Espero sea lo que se necesita.

Attached files Prueba1.rar (11.1 KB)Â
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

como utilizar un seek

Postby jrcpoli-quitar » Thu Jul 08, 2010 11:42 am

Saludos:
Sigo sin poder descomprimir el correo, ya que no me sale como fichero
adjunto sino como añadido al correo, lo que necesito por lo menos en mi
caso es que el comprimido sea un fichero que adjuntes al correo, no que
este integrado dentro de otro.
José Ramón Castro.
El 07/07/2010 5:35, Gabriel Gonzalez A escribió:
> Disculpen mi incompetencia pero mi aplicaciíƒÂ³n sobre Seek y
> OrdSetFocus(), no se a resuelto, talvez por no saberles
> explicar.
> He expuesto las respuestas que amablemente me sugieren pero
> tal vez no se aplicarlas.
> Si no tienen inconveniente adjunto un archivo compactado,
> para que vean los errores y posibles soluciones.
> Solo deseo verificar si un níƒÂºmero de factura se encuentra
> en un archivo. Gracias.
>
> Un cordial saludo.
>
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

como utilizar un seek

Postby jrcpoli-quitar » Thu Jul 08, 2010 12:22 pm

Vale ya lo tengo por el Web/Forum
José Ramón Castro.
El 08/07/2010 11:42, José Ramón Castro Polinio escribió:
> Saludos:
>
> Sigo sin poder descomprimir el correo, ya que no me sale como fichero
> adjunto sino como añadido al correo, lo que necesito por lo menos en mi
> caso es que el comprimido sea un fichero que adjuntes al correo, no que
> este integrado dentro de otro.
>
> José Ramón Castro.
> El 07/07/2010 5:35, Gabriel Gonzalez A escribió:
>> Disculpen mi incompetencia pero mi aplicaciíƒÂ³n sobre Seek y
>> OrdSetFocus(), no se a resuelto, talvez por no saberles
>> explicar.
>> He expuesto las respuestas que amablemente me sugieren pero
>> tal vez no se aplicarlas.
>> Si no tienen inconveniente adjunto un archivo compactado,
>> para que vean los errores y posibles soluciones.
>> Solo deseo verificar si un níƒÂºmero de factura se encuentra
>> en un archivo. Gracias.
>>
>> Un cordial saludo.
>>
jrcpoli-quitar
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

como utilizar un seek

Postby jrcpoli-quitar » Mon Jul 12, 2010 1:32 pm

Saludos:
Perdona mi tardanza en contestar pero aquí­ es verano y estoy entre la
casa de la playa y algunas veces bajo a mi casa habitual, que es cuando
aprovecho para ver si tengo algún correo para contestar, por lo tanto
hasta hoy no he podido tocar lo que me baje.
Te adjunto tú proyecto con algunos arreglos no está completamente
terminado, pero lo que funciona correctamente es tú problema, he tenido
que hacer un fichero indice que no vení­a y añadir al TDBMaskEdit el
Picture y el value para que sea numérico, sobre todo espero que te sea
de ayuda, aunque no este perfecto, en la terminación de los botones.
José Ramón Castro.
El 07/07/2010 5:35, Gabriel Gonzalez A escribió:
> Disculpen mi incompetencia pero mi aplicaciíƒÂ³n sobre Seek y
> OrdSetFocus(), no se a resuelto, talvez por no saberles
> explicar.
> He expuesto las respuestas que amablemente me sugieren pero
> tal vez no se aplicarlas.
> Si no tienen inconveniente adjunto un archivo compactado,
> para que vean los errores y posibles soluciones.
> Solo deseo verificar si un níƒÂºmero de factura se encuentra
> en un archivo. Gracias.
>
> Un cordial saludo.
>
--
gaboais
Posts: 35
Joined: Fri May 21, 2010 2:09 am

como utilizar un seek

Postby gaboais » Wed Jul 14, 2010 8:55 am

Parece que le falto adjuntar el proyecto modificado,..
Saludos
jrcpoli
Posts: 240
Joined: Wed Oct 25, 2006 8:55 pm

como utilizar un seek

Postby jrcpoli » Thu Jul 15, 2010 1:02 pm

No se me olvido adjuntar el proyecto modificado, de echo si entras en la News de xailer en español está como adjunto, pero parece que no lo pasa al foro web, que es donde tú lo estás mirando.
José Ramón Castro.

Attached files PruebaSeek.zip (4.2 KB)Â
José Ramón Castro.

Return to “Spanish”