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.

Asignar Campos en ::oDbfBrowse

Foro de Xailer profesional en español
Responder
fglez
Mensajes: 46
Registrado: Mié Jun 25, 2008 6:17 pm
Ubicación: México D.F.

Asignar Campos en ::oDbfBrowse

Mensaje por 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
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9442
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Asignar Campos en ::oDbfBrowse

Mensaje por 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
>
>
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder