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
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.
Asignar Campos en ::oDbfBrowse
- ignacio
- Site Admin
- Mensajes: 9442
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Asignar Campos en ::oDbfBrowse
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
>
>
>
>
>
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
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com