AQUI ESTA LA SOLUCIÓN

viewtopic.php?f=6t=18221

Hola tengo un problemita con xbrowse

me sale un error al ejecutar

Error occurred at: 02/26/10, 01:02:08
Error description: Error BASE/1005 Class: 'NIL' has no property: CSORTORDER
Args:
[ 1] = U
[ 2] = U

Stack Calls

Called from: => _CSORTORDER(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETRDD(3719)
Called from: C:\FWH\PROMOTORIA\PRG\TEST2003.PRG => MAIN(804)

que sera nunca me fallo el xbrowse

a si esta mi codiguito

DEFINE BRUSH oBrush RESOURCE "BLANCOS"
DEFINE BRUSH oBrush1 FILENAME "sea2.bmp"
DEFINE BRUSH oBrush2 RESOURCE "ECHO1"
DEFINE BRUSH oBrush3 RESOURCE "GRAD"

 dbselectarea( "autos" )
 dbgotop()
 autospoliza:=lastrec()
 sum AUTOS->pagado to  autosvalor
 dbgotop()
 set index to APELLIDO_P_A,POLIZA_A
 oGetN :=space(60)






     @ 00,00 XBROWSE oBrwX OF oFld:aDialogs[1] ALIAS "AUTOS" AUTOSORT FASTEDIT FOOTERS LINES CELL ;
        HEADERS  "        Nombre               ", "    Poliza Autos   ", "      Inciso      ","Pagado ", "Compañia";
        FIELDS  AUTOS->APELLIDO_P +" "+ ALLTRIM(AUTOS->APELLIDO_M) +" "+ ALLTRIM(AUTOS->NOMBRE) ,;
                                    AUTOS->R_POLIZA  ,;
                                AUTOS->POLIZA   ,;
                                    AUTOS->pagado  ,;
                                AUTOS->comp;

COLSIZES 450 , 100 , 100 , 100,400 SIZE 1032,215;
JUSTIFY AL_LEFT,AL_CENTER,AL_CENTER,AL_RIGHT,AL_CENTER;
PICTURES "@!","@!","@!", "999,999,999","@!";
ON CLICK (Sndplaysound("beep1.wav"),getNOM:=ALLTRIM(AUTOS->NOMBRE) +" "+ ALLTRIM(AUTOS->APELLIDO_P) +" "+ ALLTRIM(AUTOS->APELLIDO_M),oGetN:Refresh(),;
getT:=AUTOS->TEL1,oGetT:Refresh(),getT2:=AUTOS->TEL2,oGetT2:Refresh(),getDirec:=ALLTRIM(AUTOS->DIRECCION) +" Col. " + ALLTRIM(AUTOS->COLONIA) +" Cp. " +;
ALLTRIM(AUTOS->cod_postal), oGetDirec:Refresh(),cEmail:=AUTOS->email,aEmail:Refresh(),cPagina:=AUTOS->pagina,aPagina:Refresh(),getCiu:=AUTOS->poblacion,oGetCiu:Refresh(),MEMITO:=AUTOS->comentario,mComments:Refresh(),getPol:=AUTOS->R_Poliza,;
oGetPol:Refresh(),getInc:=AUTOS->poliza,oGetInc:Refresh(),ramo:="AUTOS",oRamos:Refresh(),rFicha:=AUTOS->ficha,oFicha:Refresh(),cFichero:=AUTOS->PDF)
oBrwX:cTooltip :={ "POLIZAS DE AUTOS (C)Copyright 2010 - Por AIDA.", "POLIZARIUM",1,CLR_WHITE,CLR_HBLUE }

oBrwX:l2007 := (.F.)

 oBrwX:bClrFooter := { || {CLR_BLUE,CLR_YELLOW} }
oBrwX:bClrHeader := { || {CLR_YELLOW,CLR_HBLUE} }

 oBrwX:bClrRowFocus    := { || { CLR_BLACK, RGB(185,220,255) } }
   oBrwX:nMarqueeStyle := MARQSTYLE_HIGHLROW
 oBrwX:bRClicked := { | nRow, nCol | ShowPopup( nRow, nCol, oBrwX ) }
  oBrwX:aCols[1]:cSortOrder := 'APELLIDO_P'
  oBrwX:aCols[2]:cSortOrder := 'R_POLIZA'

  oBrwX:lFastEdit     := .t.

oBrwX:bClrStd:= {|| { IIF(AUTOS->CANCELADA="S",Rgb(255,0,0),CLR_BLACK) , IIF(OrdKeyNo()%2=0,Rgb(193,221,255),Rgb(221,245,255)) } }

    oBrwX:aCols[ 1 ]:nDataStrAlign:= AL_LEFT

 XbrStyles( oBrwX )

oBrwX:lFooter  := .T.
        AEval( oBrwX:aCols, { |o| o:nEditType := EDIT_GET, o:bOnPostEdit := { |o,u,n| PostEditRDD( o, u, n ) } } )
        oBrwX:aCols[ 1 ]:bFooter       :={ ||"Total de primas pagadas--->" }
        oBrwX:aCols[ 4 ]:bFooter       := { || autosvalor  }

oBrwX:SetRDD()

    oBrwX:lTransparent := .t.
    oBrwX:SetBackGround( oBrush )
            oBrwX:CreateFromCode()
    oBrwX:oclient := oWndD

Saluditos

&

Gracias pero no funciona

saluditos