viewtopic.php?f=6&t=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
