Xailer & OZ Software

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

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