Xbrowse desde array vacio

[Frafive]

Hola amigos

Se puede crear un xbrowse con un array y esta array que este vacio ?

La idea ir llenado el array desde un button y resfrescando el browse, pero siempre me da el error array acces.


un saludo

[jfafive]

Hola,

Bueno, yo tengo hecho algo parecido y espero te sirva.
En realidad es un XBrowse definido a partir de un array vacio también.
Y luego, a partir de un botón, lo relleno de elementos y hago un refresh.

Espero te sirva, un saludo.

Javier.

Code: Select all

function Main()

local aDatos

aDatos := { { "", "", "" } }

REDEFINE XBROWSE oBrw ARRAY aDatos ID ID_BRW OF oDlg

......
carga datos en array
......

oBrw:Refresh()

return nil

[Frafive]

Hola

De esa forma me muestra una fila en el xbrowse, con los datos vacios, lo que quiero es que no me muestra ninguna fila y despues desde un button le voy añadiendo datos al xbrowse.

un saludo

Gabriel

[jfafive]

Yo tambien tengo el browse que muestra la fila vacia. La verdad es que todavia no he dedicado tiempo a resolver ese tema.

Si lo averiguo, te lo haré saber.

Un saludo.

[ADBLANCO]

Si lo logran Hacer, Me Avisan!!!

[jfafive]

Hola,

Lo único mas parecido que he encontrado para que no muestre el browse, es el metodo para ocultar las columnas.

Code: Select all

oBrw:aCols[1]:cHeader := "primera"
oCol1 := oBrw:oCol( "primera" )
oCol1:Hide()

[Antonio Linares]

Este es un ejemplo para mostrar un XBrowse sin líneas y luego ir añadiéndoselas:

Code: Select all

#include "FiveWin.ch"
#include "XBrowse.ch"

function Main()

   local oWnd,oBrw,aData

   aData := { { "Linea", Date(), 0 } }

   DEFINE WINDOW oWnd TITLE "Click botón derecho a la derecha de las columnas"
   
   @ 0,0 XBROWSE oBrw OF oWnd ARRAY aData AUTOCOLS

   oBrw:CreateFromCode()
   oWnd:oClient := oBrw

   oBrw:bRClicked  := { || AddRow( oBrw ) }

   ACTIVATE WINDOW oWnd ;
       ON INIT ( ASize( aData, 0 ), oBrw:GoTop(), oBrw:Refresh() )

return nil

function AddRow( oBrw )

   local n  := oBrw:nLen + 1

   AAdd( oBrw:aArrayData, { Str( n ), Date() + n, n } )
   
   oBrw:GoBottom()
   oBrw:Refresh()

return nil

[quique]

Esto funciona si quiero limpiar el arreglo, pero ¿si no se como viene el arreglo? puede venir vacía como puede traer elementos

[Antonio Linares]

Quique,

Habría que comprobar que valores lleva aData.

Podríamos hacer que la Clase TXBrowse lo compruebe automaticamente, pero lo lógico sería que el programador lo compruebe según sus necesidades.

Quizás no he entendido bien lo que planteas ?

[quique]

Un ejemplo simple puede ser un listado de una busqueda

Code: Select all

aData := {}
DO WHILE !eof
   if date == date()
      aAdd( aData, { linea, fecha, posicion } )
   endIf
ENDDO
@ 0,0 XBROWSE oBrw OF oWnd ARRAY aData COLS 1,2,3

En este caso no sabemos cual será el resultado de aData, pero si sabemos que son 3 columnas y va a marcar error al llegar, otra forma podría ser

Code: Select all

@ 0,0 XBROWSE oBrw OF oWnd ARRAY aData HEAD "Linea", "Fecha", "Posición" AUTOCOLS

[Armando]

Amigos:

Tal vez la solución sea definir el xBrowse y sus columnas pero condicionar el contenido de cada columna a que el arreglo no este vacio.

A ver si me explico:

yo uso este código pero con un record set, pero puede darse el caso de que el recordset este vacio y es ahí donde esta la similitud y entra la parte de la condición.

Code: Select all

		oBrw:=TxBrowse():New(oDlg)

		oBrw:nMarqueeStyle			:= MARQSTYLE_HIGHLROW		// Con cursor de todo el renglón
		oBrw:nColDividerStyle		:= LINESTYLE_LIGHTGRAY
		oBrw:nRowDividerStyle		:= LINESTYLE_LIGHTGRAY
		oBrw:lColDividerComplete	:= (.F.)							// (.T.) Matiene siempre llena la pantalla
		oBrw:nHeaderHeight			:= 25								// Altura de los encabezados
		oBrw:nRowHeight				:= 22								// Altura del renglón
		oBrw:nHeaderLines				:= 1								// Número de líneas de encabezados
		oBrw:nDataLines				:= 1								// Número de líneas de detalle
		oBrw:nFooterHeight			:= 20								// Altura del footer
		oBrw:nFooterLines				:= 1								// Número de líneas en el footer
		oBrw:lFooter					:= (.T.)							// Sí queremos línea de footer
		oBrw:lHScroll					:= (.F.)							// Quitamos el scroll horizontal

	   aCol[ 1]							:= oBrw:AddCol()
  		aCol[ 1]:bStrData  			:= { || IF(oRsRes:BOF() .AND. oRsRes:EOF(),SPACE(1),oRsRes:Fields("RES_NOM"):Value)}
  		aCol[ 1]:cHeader  			:= "Nombre del residente"
		aCol[ 1]:nHeadStrAlign		:= AL_LEFT
		aCol[ 1]:nDataStrAlign		:= AL_LEFT
  		aCol[ 1]:nWidth				:= 350

	   aCol[ 2]							:= oBrw:AddCol()
  		aCol[ 2]:bStrData  			:= { || IF(oRsRes:BOF() .AND. oRsRes:EOF(),SPACE(1),oRsRes:Fields("RES_INI"):Value)}
  		aCol[ 2]:cHeader  			:= "Iniciales"
		aCol[ 2]:nHeadStrAlign		:= AL_LEFT
		aCol[ 2]:nDataStrAlign		:= AL_LEFT
  		aCol[ 2]:nWidth				:= 45

Observen que los datos de cada columna estan condicionados a que el record set no este vacio, despues tambien condicionamos algunos bloques de código

Code: Select all

		oBrw:bGoTop    := { || IF( ! oRsRes:BOF() .AND. ! oRsRes:EOF(), oRsRes:MoveFirst(), ) }
		oBrw:bGoBottom := { || IF( ! oRsRes:BOF() .AND. ! oRsRes:EOF(), oRsRes:MoveLast(), ) }
		oBrw:bBof      := { || oRsRes:BOF() }
		oBrw:bEof      := { || oRsRes:EOF() }
		oBrw:bBookMark := { | uBm | IF( oRsRes:BOF() .AND. oRsRes:EOF(), 0, IF( uBm == NIL, oRsRes:BookMark, oRsRes:BookMark := uBm ) ) }
		oBrw:bKeyNo    := { | n | IF( oRsRes:BOF() .AND. oRsRes:EOF(), 0, IF( n == NIL, oRsRes:AbsolutePosition, oRsRes:AbsolutePosition := n ) ) }
		oBrw:bKeyCount	:= {|| oRsRes:RecordCount() }
		oBrw:SetAdo(oRsRes)

De esta forma puedo ver el xbrowse vacio sin renglón alguno más cuando se agrega algun registro este se muestra en el browse.

Esta es la imágen del browse vacio.



En fin, es solo una idea que habra que adaptarla al uso de arreglos.

Ojala sirva para despertar ideas.

Saludos

[quique]

Pues el experto en el tema sería Antonio porque el problema es manejarlo de manera general para que lo detecte el xbrowse, yo creo que lo mas fácil sería detectar si el array está vacío y no mostrar la línea, supongo que de alguna manera eso hace porque en el ejemplo que puso antonio o en el que pusiste tu así se muestra.

[Antonio Linares]

Quique,

Usando tu ejemplo como base:

Code: Select all

#include "FiveWin.ch"
#include "XBrowse.ch"

function Main()

   local oWnd, oBrw, aData := {}

   DEFINE WINDOW oWnd

   @ 0, 0 XBROWSE oBrw OF oWnd ARRAY aData HEAD "One", "Two", "Three" AUTOCOLS 

   oBrw:CreateFromCode()

   oWnd:oClient = oBrw

   ACTIVATE WINDOW oWnd

return nil

Sería deseable que FiveWin modificase automaticamente el contenido de aData ? y variarle sus datos sin que el programador lo sepa ?

Creo que es preferible generar un error para mostrarle que aData no contiene los datos correctos.

[quique]

No hay que modificar los datos, simplemente mostrar un browse vacío, ese no es error, si lo que quiero mostrar es el listado de las facturas y ese día no se ha facturado, o si quiero mostrar la lista de personas que trabajaron horas extra el día anterior y nadie se quedó, no son errores, simplemente, es un browse vacío

[Willi Quintana]

Lo hago asi con twbrowse, el concepto seria el mismo para otro
browser
Salu2

.....
...
..
.
aDetalle := {}
AaDd(aDetalle, {"", "", "", 0, 0, 0, "", ""})
...
....
DEFINE DIALOG oDlgB ;
....
...
REDEFINE LISTBOX oLbxA ;
FIELDS aDetalle[oLbxA:nAt, 2], ;
aDetalle[oLbxA:nAt, 3], ;
STR(aDetalle[oLbxA:nAt, 4],12,3), ;
STR(aDetalle[oLbxA:nAt, 5],12,3), ;
STR(aDetalle[oLbxA:nAt, 6],12,3) ;
HEADERS "Producto", ;
"Unidad", ;
"Cantidad", ;
"Precio", ;
"Sub Total" ; //
....
...
..
.
REDEFINE BUTON oRell
ACTION (aDetalle := LlenaDetas(cCodigo, aDetalle), ;
oLbxA:SetArray(aDetalle), ;
oLbxA:Refresh())

...
..
Function LlenaDetas(cCodigo,aDetalle)
If !DbSeek(cCodigo)
Return(adetalle)
EndIf

aDetalle := {}
.... aqui relleno el array segun los datos

Return(aDetalle) // retorna el arreglo con datos...