Estimado foro,
Estoy trabajando con xbrowse y necesito encontrar la forma de borrar todo el contenido de xbrowse sin que quede ningĂșn elemento, que quede tal cual como cuando inicia por primera vez (vacio).
Una vez que ya le he agregado algĂșn elemento al array aPedido no encuentro la forma de borrar todos los elementos y que quede vacio.
Ejemplo:
Function Pedidos()
local aPedido,oBrwPed
aPedido :={}
REDEFINE XBROWSE oBrwPed ID 4001 OF oDlg ;
COLUMNS { 1,2,5,6,7,3 } ;
COLSIZES { 47,240,50,70,95,80 };
HEADERS {'Cant','DescripciĂłn del Producto',;
'Stock'+CRLF+'Actual',;
'Precio'+CRLF+'Unitario','TOTAL'+CRLF+'a Pr. de Lista',;
'Laboratorio' } ;
ARRAY aPedido
REDEFINE BTNBMP oBtn RESOURCE 'b_xbasura' ID 4017 OF oDlg ;
ACTION (Sound(),aPedido:={{0,'','',0,0,0,0,0,0,0} },;
oBrwPed:SetArray(aPedido),;
oBrwPed:Refresh(),;
oBrwPed:aSelected:={},;
oBrwPed:aCols[2]:cFooter:=0,oBrwPed:maketotals()) CENTER ;
TOOLTIP {'Elimina Todos los Productos del Nuevo Pedido'}
RETU .T.
Hasta ahora solo lo consigo utilizando el mĂ©todo SetArray con un array definido con un elemento en blanco, pero mi idea es que no quede ningĂșn elemento en el xbrowse.
Muchas gracias por su ayuda,
Saludos Mariano
