Sigo con el Browse....
Estoy tratando de hacer captura en la primer columnta de un browse, y que
con esa información busque un dato en otro dbf, traiga el dato, y lo
deposite en las columnas correspondientes.
Funciona bien si estoy editando un registro existente, pero si llego al
final del browse, y abro un nuevo registro no me funciona.....
Les pongo lo que he tratado de hacer, espero su ayuda.....
rMETHOD DbfBrowse1Column1Exit( oSender, oGridEdit, oNextCtl ) CLASS AGENDA
/* if ::oDbfBrowse1:iseof
msgalert("Estamos fuera","Atención")
else
msgalert("Estamos Editando","Atención")
endif
*/
replace nombre with "Este es un campo Reemplazado"
* replace domicilio with "este es el domicilio"
* ::oDbfBrowse1Column2:= "Aqui va el nombre"
* ::oDbfBrowse1:domicilio := "Aqui va el domicilio"
Return Nil
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.
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.
oDbfBrowse...
-
Edgar Alfredo Barrera
- Mensajes: 19
- Registrado: Mié Mar 25, 2009 9:05 pm
-
jrcsistemas
- Mensajes: 180
- Registrado: Lun Sep 15, 2008 2:53 pm
oDbfBrowse...
Edgar.
Deberias hacer un Append sobre el DataSet asociado a tu oDbfBrowse1.
Por ej:
::oTMP es un TDbfDataSet vacio y lo lleno con codigo o en sus propiedades.
WITH OBJECT ::oTMP
:cName := "Archivo.dbf"
:cAlias := "CONSULTA"
:lShared := .F.
:lOpen := .T.
END
::oBrowse1:SetDbf("CONSULTA") // se lo asigno al browse como origen de
datos.
Y Luego para hacer guardar los datos
WITH OBJECT ::oTMP
If :IsEof()
:Append()
EndIf
:ID := "aaa"
:CODIGO := "bbb"
END
::oBrowse1:Refresh()
Saludos
Juan Castañeda
"Edgar Alfredo Barrera Cardenas" <pipecos@hotmail.com> escribió en el
mensaje news:49d0621a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Sigo con el Browse....
>
> Estoy tratando de hacer captura en la primer columnta de un browse, y que
> con esa información busque un dato en otro dbf, traiga el dato, y lo
> deposite en las columnas correspondientes.
>
> Funciona bien si estoy editando un registro existente, pero si llego al
> final del browse, y abro un nuevo registro no me funciona.....
>
> Les pongo lo que he tratado de hacer, espero su ayuda.....
>
> rMETHOD DbfBrowse1Column1Exit( oSender, oGridEdit, oNextCtl ) CLASS AGENDA
> /* if ::oDbfBrowse1:iseof
> msgalert("Estamos fuera","Atención")
> else
> msgalert("Estamos Editando","Atención")
> endif
> */
> replace nombre with "Este es un campo Reemplazado"
> * replace domicilio with "este es el domicilio"
> * ::oDbfBrowse1Column2:= "Aqui va el nombre"
> * ::oDbfBrowse1:domicilio := "Aqui va el domicilio"
> Return Nil
>
>
Deberias hacer un Append sobre el DataSet asociado a tu oDbfBrowse1.
Por ej:
::oTMP es un TDbfDataSet vacio y lo lleno con codigo o en sus propiedades.
WITH OBJECT ::oTMP
:cName := "Archivo.dbf"
:cAlias := "CONSULTA"
:lShared := .F.
:lOpen := .T.
END
::oBrowse1:SetDbf("CONSULTA") // se lo asigno al browse como origen de
datos.
Y Luego para hacer guardar los datos
WITH OBJECT ::oTMP
If :IsEof()
:Append()
EndIf
:ID := "aaa"
:CODIGO := "bbb"
END
::oBrowse1:Refresh()
Saludos
Juan Castañeda
"Edgar Alfredo Barrera Cardenas" <pipecos@hotmail.com> escribió en el
mensaje news:49d0621a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Sigo con el Browse....
>
> Estoy tratando de hacer captura en la primer columnta de un browse, y que
> con esa información busque un dato en otro dbf, traiga el dato, y lo
> deposite en las columnas correspondientes.
>
> Funciona bien si estoy editando un registro existente, pero si llego al
> final del browse, y abro un nuevo registro no me funciona.....
>
> Les pongo lo que he tratado de hacer, espero su ayuda.....
>
> rMETHOD DbfBrowse1Column1Exit( oSender, oGridEdit, oNextCtl ) CLASS AGENDA
> /* if ::oDbfBrowse1:iseof
> msgalert("Estamos fuera","Atención")
> else
> msgalert("Estamos Editando","Atención")
> endif
> */
> replace nombre with "Este es un campo Reemplazado"
> * replace domicilio with "este es el domicilio"
> * ::oDbfBrowse1Column2:= "Aqui va el nombre"
> * ::oDbfBrowse1:domicilio := "Aqui va el domicilio"
> Return Nil
>
>