como utilizar un seek

[gaboais]

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]

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]

prbnd,..

[gaboais]

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]

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]

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]

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]

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]

Adjunto

Attached files Pru_Seek.prg (1.7 KB)Â

[jrcpoli-quitar]

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]

Complemento,..
Espero sea lo que se necesita.

Attached files Prueba1.rar (11.1 KB)Â

[jrcpoli-quitar]

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]

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]

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]

Parece que le falto adjuntar el proyecto modificado,..
Saludos

[jrcpoli]

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)Â