Uso de OnGetData
Publicado: Dom Nov 07, 2004 4:10 am
Hola
Estoy tratando de pasarle un valor a OnGetData al construir un TBrwColumn pero me manda un error en tiempo de Ejecución.
Utilizo el Siguiente Codigo para generar los Browse
cCampo := ::oDataSetF:NOmCamp // Con el nombre de un campo de una DBF
With Object oCol := TBrwColumn():New( oSender )
:cHeader := ...
:oDataField := ...
:nAlignment := ...
:nWidth := ...
:cPicture := ...
If ::oDataSetF:TpoCamp = "L" // Si el Campo es de tipo Logic
vCampo := "::oDataSet:" + cCampo // Le asigno el oDataSet y el Nombre del Campo
// Si uso esta linea me manda error
// :OnGetData := { | o, c, n| iif( @vCampo, (c := "Si", n := 1),(c := "No", n := 2) ) }
// Si uso esta otra linea donde indico directamente el Campo (Declara) NO me manda error
:OnGetData := { | o, c, n| iif(::oDataSet:Declara, (c := "Si", n := 1),(c := "No", n := 2) ) }
Endif
End With
oSender:AddCol( oCol )
::oDataSetF:Skip()
EndDo
--
Saludos
Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.788 / Virus Database: 533 - Release Date: 11/01/2004
--
Estoy tratando de pasarle un valor a OnGetData al construir un TBrwColumn pero me manda un error en tiempo de Ejecución.
Utilizo el Siguiente Codigo para generar los Browse
cCampo := ::oDataSetF:NOmCamp // Con el nombre de un campo de una DBF
With Object oCol := TBrwColumn():New( oSender )
:cHeader := ...
:oDataField := ...
:nAlignment := ...
:nWidth := ...
:cPicture := ...
If ::oDataSetF:TpoCamp = "L" // Si el Campo es de tipo Logic
vCampo := "::oDataSet:" + cCampo // Le asigno el oDataSet y el Nombre del Campo
// Si uso esta linea me manda error
// :OnGetData := { | o, c, n| iif( @vCampo, (c := "Si", n := 1),(c := "No", n := 2) ) }
// Si uso esta otra linea donde indico directamente el Campo (Declara) NO me manda error
:OnGetData := { | o, c, n| iif(::oDataSet:Declara, (c := "Si", n := 1),(c := "No", n := 2) ) }
Endif
End With
oSender:AddCol( oCol )
::oDataSetF:Skip()
EndDo
--
Saludos
Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.788 / Virus Database: 533 - Release Date: 11/01/2004
--