Me da este error en xbrowse tree
El problema es cuando ubico el puntero en cualquier columna que no sea la primera y me da este error.
http://imageshack.us/photo/my-images/39/error1y.jpg/
" alt="" loading="lazy">
El problema es cuando ubico el puntero en cualquier columna que no sea la primera y me da este error.
" alt="" loading="lazy">
oTree := MakeTree42a( ::oDbfxls, nMethod )
oItem := oTree:oFirst
DEFINE FONT oBold NAME "TAHOMA" SIZE 0,-12 BOLD
oLbx := TXBrowse():New( oDlgbrow )
::car_browse(oLbx,aContl[20],2,"T" )
if nMethod == 1
oLbx:SetTree( oTree, ; // Tree object
{ "OPEN","CLOSE","GREEN" } ) // [Optional] Bitmap Resources Open, Close and NoChildren
aCol[1] := oLbx:AddCol()
aCol[1]:nWidth := 70
aCol[1]:bStrData := { || oLbx:oTreeItem:Cargo[ 1 ]}
aCol[1]:cHeader := "No.Orden"
aCol[1]:nDataStrAlign := AL_LEFT
aCol[1]:nHeadStrAlign := AL_LEFT
aCol[1]:bClrSel :=nrgb(255,0,0)
aCol[2] := oLbx:AddCol()
aCol[2]:nWidth := 50
aCol[2]:bStrData := { || oLbx:oTreeItem:Cargo[ 2 ]}
aCol[2]:cHeader := "Cod.Prod"
aCol[2]:nDataStrAlign := AL_LEFT
aCol[2]:nHeadStrAlign := AL_LEFT
aCol[2]:bClrSel :=nrgb(255,0,0)
aCol[3] := oLbx:AddCol()
aCol[3]:nWidth := 120
aCol[3]:bStrData := { || oLbx:oTreeItem:Cargo[ 3 ]}
aCol[3]:cHeader := "Simbolo"
aCol[3]:nDataStrAlign := AL_LEFT
aCol[3]:nHeadStrAlign := AL_LEFT
aCol[3]:bClrSel :=nrgb(255,0,0)
aCol[4] := oLbx:AddCol()
aCol[4]:nWidth := 120
aCol[4]:bStrData := { || oLbx:oTreeItem:Cargo[4 ]}
aCol[4]:cHeader := "Referencia"
aCol[4]:nDataStrAlign := AL_LEFT
aCol[4]:nHeadStrAlign := AL_LEFT
aCol[4]:bClrSel :=nrgb(255,0,0)
aCol[5] := oLbx:AddCol()
aCol[5]:nWidth := 90
aCol[5]:bStrData := { || transform(oLbx:oTreeItem:Cargo[ 5 ],"###,###,###.##")}
aCol[5]:cHeader := "Cantidad"
aCol[5]:nDataStrAlign := AL_RIGHT
aCol[5]:nHeadStrAlign := AL_LEFT
aCol[5]:bClrSel :=nrgb(255,0,0)
aCol[6] := oLbx:AddCol()
aCol[6]:nWidth := 60
aCol[6]:bStrData := { || transform(oLbx:oTreeItem:Cargo[ 6],"########,###.#####")}
aCol[6]:cHeader := "Precio"
aCol[6]:nDataStrAlign := AL_RIGHT
aCol[6]:nHeadStrAlign := AL_LEFT
aCol[6]:bClrSel :=nrgb(255,0,0)
aCol[7] := oLbx:AddCol()
aCol[7]:nWidth := 50
aCol[7]:bStrData := { || transform(oLbx:oTreeItem:Cargo[ 7 ],"#######.#####")}
aCol[7]:cHeader := "Desc %"
aCol[7]:nDataStrAlign := AL_RIGHT
aCol[7]:nHeadStrAlign := AL_LEFT
aCol[7]:bClrSel :=nrgb(255,0,0)
aCol[8] := oLbx:AddCol()
aCol[8]:nWidth := 50
aCol[8]:bStrData := { || oLbx:oTreeItem:Cargo[ 8 ] }
aCol[8]:cHeader := "Pesos"
aCol[8]:nDataStrAlign := AL_RIGHT
aCol[8]:nHeadStrAlign := AL_LEFT
aCol[8]:bClrSel :=nrgb(255,0,0)
aCol[9] := oLbx:AddCol()
aCol[9]:nWidth := 80
aCol[9]:bStrData := { || oLbx:oTreeItem:Cargo[ 9 ] }
aCol[9]:cHeader := "Fecha"
aCol[9]:nDataStrAlign := AL_RIGHT
aCol[9]:nHeadStrAlign := AL_LEFT
aCol[9]:bClrSel :=nrgb(255,0,0)
aCol[10] := oLbx:AddCol()
aCol[10]:nWidth := 80
aCol[10]:bStrData := { || oLbx:oTreeItem:Cargo[ 10 ] }
aCol[10]:cHeader := "Fecha.Sol"
aCol[10]:nDataStrAlign := AL_RIGHT
aCol[10]:nHeadStrAlign := AL_LEFT
aCol[10]:bClrSel :=nrgb(255,0,0)
aCol[11] := oLbx:AddCol()
aCol[11]:nWidth := 80
aCol[11]:bStrData := { || oLbx:oTreeItem:Cargo[ 11 ] }
aCol[11]:cHeader := "Fecha.Conf"
aCol[11]:nDataStrAlign := AL_RIGHT
aCol[11]:nHeadStrAlign := AL_LEFT
aCol[11]:bClrSel :=nrgb(255,0,0)
oLbx:aCols[ 1 ]:cHeader := "Cliente"
AEval( oLbx:aCols, { |oCol| oCol:oDataFont := { || If( oLbx:oTreeItem:nLevel == 1, oBold, oLbx:oFont ) } } )
AEval( oLbx:aCols, { |oCol| oCol:oFooterFont := oBold } )
oLbx:CreateFromResource( 4001 ) //oBrw:createFromCode()
oDlgbrow:oClient := oLbx
Static function MakeTree42a( oRs, nMethod )
Local oTree, cState,cCodprod
oRs:MoveFirst()
TREE oTree
do while !oRs:Eof()
if Empty( cState )
_TreeItem( RADAField("nombre_clie",oRs) ):Cargo := ;
{RADAField("codprov",oRs)+"/"+RADAField("consec",oRs)," "," "," "," "," "," "," "," "," "," "," "," "," ",;
" "," ", " "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," " }
TREE
cState := RADAField("codprov",oRs)+" / "+RADAField("consec",oRs)
else
if RADAField("codprov",oRs)+" / "+RADAField("consec",oRs) != cState
ENDTREE
cState := RADAField("codprov",oRs)+" / "+RADAField("consec",oRs)
_TreeItem( RADAField("nombre_clie",oRs) ):Cargo := ;
{RADAField("codprov",oRs)+"/"+RADAField("consec",oRs)," "," "," "," "," "," "," "," "," "," "," "," "," ",;
" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," " }
TREE
endif
endif
if RADAField("codprov",oRs)+" / "+RADAField("consec",oRs) == cState
_TreeItem( " " ):Cargo := ;
{ RADAField("numorden",oRs), ;
RADAField("codprod",oRs)+"/"+transform(RADAField("verprod",oRs),"##"), ;
RADAField("simbolo",oRs), ;
RADAField("referencia",oRs),;
RADAField("Cantidad",oRs),;
RADAField("valunit",oRs), ;
RADAField("desc_por",oRs), ;
RADAField("pesos",oRs), ;
FEC_LETRAS(RADAField("fec_crea",oRs),1), ;
FEC_LETRAS(RADAField("fec_soli",oRs),1), ;
FEC_LETRAS(RADAField("fec_conf",oRs),1), ;
RADAField("nombre_status",oRs), ;
RADAField("nombre_selle",oRs), ;
RADAField("nombre_mat",oRs), ;
RADAField("nombre_tipmat",oRs), ;
RADAField("nombre_estilo",oRs), ;
RADAField("nombre_tipest",oRs), ;
RADAField("nombre_vend",oRs), ;
RADAField("nombre_modfact",oRs), ;
RADAField("Largo",oRs),;
RADAField("Ancho",oRs),;
RADAField("Ancho_m",oRs),;
RADAField("fuel_l",oRs),;
RADAField("fuel_f",oRs),;
RADAField("solapa",oRs),;
RADAField("calibre",oRs),;
RADAField("gramaje",oRs),;
RADAField("kilmil",oRs),;
RADAField("metros",oRs),;
RADAField("caras",oRs), ;
RADAField("colores",oRs), ;
RADAField("pigmto",oRs), ;
RADAField("tratado",oRs), ;
RADAField("biodeg",oRs), ;
RADAField("nombre_ruta",oRs), ;
RADAField("firma",oRs) ;
}
endif
oRs:MoveNext()
enddo
ENDTREE
ENDTREE
oRs:MoveFirst()
return oTreepplication
===========
Path and name: K:\proy_harb\plastwin.Exe (32 bits)
Size: 1,610,752 bytes
Time from start: 0 hours 1 mins 33 secs
Error occurred at: 06/07/2011, 10:08:31
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: EVAL
Args:
[ 1] = N 255
Stack Calls
===========
Called from: => EVAL(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(9305)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE(1706)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1417)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1210)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1459)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11282)
Called from: .\source\classes\WINDOW.PRG => _FWH(3409)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(379)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: => EVAL(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(9305)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE(1706)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1417)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1210)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1459)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11282)
Called from: .\source\classes\WINDOW.PRG => _FWH(3409)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(379)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: => EVAL(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(9305)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE(1706)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1417)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1210)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1459)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11282)
Called from: .\source\classes\WINDOW.PRG => _FWH(3409)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG(379)
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS(27)
Called from: => EVAL(0)
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTDATA(9305)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DRAWLINE(1706)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1417)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1210)