xbrowse borrar todo el contenido

[mterraz]

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

[cmsoft]

Prueba con:

Code: Select all  Expand view  RUN

oBrwPed:aArrayData := {}
oBrwPed:Refresh()