Embaralhar o conteúdo da xBrowse()

[kapiaba]

Super interessante...

// C:\FWH..\SAMPLES\XBRSTRUC.PRG
// Embaralhar o conteudo da xBrowse() - By Mister Nages.
	#Include "FiveWin.ch"
	STATIC oWnd
	FUNCTION Main()
	   LOCAL aCols, oBrw
	   USE CUSTOMER
   GO TOP
	   aCols := ArrTranspose( DBSTRUCT() )[ 1 ]
   aCols := AShuffle( aCols, 2, 9 ) // Embaralhar o conteudo da xBrowse()
	   DEFINE WINDOW oWnd TITLE "CUSTOMER.dbf - Embaralhar o conteudo da xBrowse()"
	   @ 0,0 XBROWSE oBrw SIZE 0, 0 PIXEL OF oWnd ;
      DATASOURCE "CUSTOMER" COLUMNS aCols CELL LINES NOBORDER
	   oBrw:AutoFit()
   oBrw:CreateFromCode()
	   oWnd:nWidth    := 900
   oWnd:nHeight   := 300
	   ACTIVATE WINDOW oWnd CENTERED
	RETURN NIL
	// FIN / END - kapiabafwh@gmail.com

Regards, saludos.