Asignar Campos en ::oDbfBrowse

[fglez]

Estimados consultores:
Se me ha presentado el siguiente problema, desarrolle un rutina con un
::oDbfBrowse de consulta, el cual no le asigno los capos porque deseo
hacerlo desde un Proceso, del que se le envian los parametros del
::oDbfBrowse, como es: :cHeader; :nWidth, :cFieldName, :nAlignment y
cPicture, todos los parametros se asignan bien, menos el de cFiledName. Les
envio las dos rutinas:
Rutina de llamado:
LOCAL cProSel := ""
WITH OBJECT SAAFPBUS()
:aArrPro := { {"Consulta Activo Fijo", "AafLogo", "cAliEqA","SAIEGEN",
5},;
{"No.Invent.", 70, "COD_BARRAS", "SAIEGEN",
"taLEFT","99999"},;
{"Clave CABMS", 150, "CLAVECABMS", "SAIECAB",
"taLEFT",""},;
{"Descripción Activo", 250, "DESCORT",
"SAIEDES","taLEFT", ""},;
{"Nombre Resguardante",230, "NOM_RESGUA",
"SAIENOM","taLEFT", ""},;
{"No.Alta", 50, "CVEALTA", "SAIEALT", "taLEFT", "" } }
:cSelPro
:=IIF(EMPTY(::oMaskEdit1:Value),"",STR(::oMaskEdit1:Value,5,0))
:New(Self):ShowModal()
cProSel := :cSelPro
END WITH
Rutina de ::oDbfBrowse
DATA aArrPro AS ARRAY
---
::oDbfBrowseProd:SetDBF(&(::aArrPro[1,3]))
WITH OBJECT ::oDbfBrowseProd
FOR nInd := 1 TO ::aArrPro[1,5]
WITH OBJECT :aCols[nInd]
:cHeader := ::aArrPro[nInd+1,1]
:nWidth := ::aArrPro[nInd+1,2]
:cFieldName := ::aArrPro[nInd+1,3] (Aqui es donde se asigan el
campo, pero no lo hace)
:nAlignment := ::aArrPro[nInd+1,5]
IIF(EMPTY(::aArrPro[nInd+1,6]),Nil,:cPicture:=::aArrPro[nInd +1,6])
END
NEXT
:SetFocus()
END
al Ejecutar el Proyecto se muestra la browse con todas lascolumnas pero sin
informacion de los campos, pero si asignó correctamente todas las
propiedades menos el de :cFieldName,
Mi pregunta es como debo definirla ???
Gracias Por su atención.
--
Ing. Francisco González Herrera
Comunicaciones Satelitales y Redes, S.A. de C.V.
56-78-16-66

[ignacio]

Francisco,
Intente asignar el dataset al Browse después de crear las columnas.
Un saludo
--
Ignacio Ortiz de Zúñiga
Xailer support / Soporte de Xailer
http://www.xailer.com
http://www.xailer.info
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:4a156d1c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Estimados consultores:
>
> Se me ha presentado el siguiente problema, desarrolle un rutina con un
> ::oDbfBrowse de consulta, el cual no le asigno los capos porque deseo
> hacerlo desde un Proceso, del que se le envian los parametros del
> ::oDbfBrowse, como es: :cHeader; :nWidth, :cFieldName, :nAlignment y
> cPicture, todos los parametros se asignan bien, menos el de cFiledName.
> Les
> envio las dos rutinas:
>
> Rutina de llamado:
>
> LOCAL cProSel := ""
> WITH OBJECT SAAFPBUS()
> :aArrPro := { {"Consulta Activo Fijo", "AafLogo",
> "cAliEqA","SAIEGEN", 5},;
> {"No.Invent.", 70, "COD_BARRAS", "SAIEGEN",
> "taLEFT","99999"},;
> {"Clave CABMS", 150, "CLAVECABMS", "SAIECAB",
> "taLEFT",""},;
> {"Descripción Activo", 250, "DESCORT",
> "SAIEDES","taLEFT", ""},;
> {"Nombre Resguardante",230, "NOM_RESGUA",
> "SAIENOM","taLEFT", ""},;
> {"No.Alta", 50, "CVEALTA", "SAIEALT", "taLEFT", "" } }
> :cSelPro
> :=IIF(EMPTY(::oMaskEdit1:Value),"",STR(::oMaskEdit1:Value,5,0))
> :New(Self):ShowModal()
> cProSel := :cSelPro
> END WITH
>
> Rutina de ::oDbfBrowse
> DATA aArrPro AS ARRAY
> ---
> ::oDbfBrowseProd:SetDBF(&(::aArrPro[1,3]))
> WITH OBJECT ::oDbfBrowseProd
> FOR nInd := 1 TO ::aArrPro[1,5]
> WITH OBJECT :aCols[nInd]
> :cHeader := ::aArrPro[nInd+1,1]
> :nWidth := ::aArrPro[nInd+1,2]
> :cFieldName := ::aArrPro[nInd+1,3] (Aqui es donde se asigan el
> campo, pero no lo hace)
> :nAlignment := ::aArrPro[nInd+1,5]
>
> IIF(EMPTY(::aArrPro[nInd+1,6]),Nil,:cPicture:=::aArrPro[nInd +1,6])
> END
> NEXT
> :SetFocus()
> END
>
> al Ejecutar el Proyecto se muestra la browse con todas lascolumnas pero
> sin informacion de los campos, pero si asignó correctamente todas las
> propiedades menos el de :cFieldName,
>
> Mi pregunta es como debo definirla ???
>
> Gracias Por su atención.
>
> --
> Ing. Francisco González Herrera
> Comunicaciones Satelitales y Redes, S.A. de C.V.
> 56-78-16-66
>
>
>
>
>