I a have an xBrowse listbox where I am calculating a column to go as in this code to replace the GoToCol(n) using oBrow:SetPos(1,47) where I want the cursor to go to the first row then 47th column and I get the following error .. using fwh 910 ..
Any Ideas ??
Rick Lipkin
Any Ideas ??
Rick Lipkin
SELECT 1
SET ORDER to TAG VNUMBER
GO TOP
xALIAS := ALIAS()
MSGINFO( nCOL )
DEFINE FONT oFont NAME GetSysFont() SIZE 0,-10
DEFINE WINDOW oWNDCHILD MDICHILD ;
FROM 1,1 to 33,100 ;
MENU BuildMenu() ;
of oWNDMDI ;
NOSYSMENU ;
NOZOOM ;
NOMINIMIZE ;
TITLE "Reservation Information"
DEFINE DIALOG oEMP RESOURCE "RESBROW" of oWNDCHILD
oEmp:SetFont( oFont )
REDEFINE XBROWSE oBrow ID 111 OF oEMP ALIAS xAlias ;
AUTOSORT AUTOCOLS FOOTERS FASTEDIT LINES CELL
oBROW:nFREEZE := 5
oBROW:SetPos(1, 47) <-- error here
oEMP:oClient := oBrow
REDEFINE SAY oMOTORPOOL var cMOTORPOOL ID 114 of oEMP
REDEFINE SAY oMOTOR var xMOTOR ID 113 of oEMP
REDEFINE SAY oDATE1 var dDATE1 ID 119 of oEMP
REDEFINE SAY oDATE2 var dDATE2 ID 120 of oEMP
REDEFINE BUTTON oBTN1 ID 112 of oEMP ; // details
ACTION ( _PtrpBrow( CTOD("00/00/00"), A->VNUMBER, A->LICENSE ),;
_ReFrsh( A->VNUMBER, dDATE1 ), ;
dbSelectArea( 1 ),;
oBROW:UpStable(),;
oBROW:REFRESH(), SysReFresh(),;
oBROW:SetFocus() )
REDEFINE BUTTON oBTN2 ID 117 of oEMP ; // add reservation
ACTION ( _PtrpBrow( CTOD("00/00/00"), A->VNUMBER, A->LICENSE ),;
_ReFrsh( A->VNUMBER, dDATE1 ), ;
dbSelectArea( 1 ),;
oBROW:REFRESH(), SysReFresh(),;
oBROW:SetFocus() )
REDEFINE BUTTON oBTN3 ID 115 of oEMP ; // quit
ACTION ( dbCloseAll(), ;
FERASE( xVOL+"\DBTMP\"+SITEDBF+".DBF" ),;
FERASE( xVOL+"\DBTMP\"+SITEDBF+".CDX" ),;
oWNDCHILD:END(), _CleanUP() )
REDEFINE BUTTON oBTN4 ID 116 of oEMP ; // change motorpool
ACTION ( _Chgmtrpool( "BOGUS", dDATE1 ),;
dbSelectArea( 1 ),;
oBROW:REFRESH(.T.), SysReFresh(),;
oBROW:SetFocus() )
REDEFINE BUTTON oBTN5 ID 118 of oEMP ; // refresh
ACTION ( _ReFrsh( A->VNUMBER, dDATE1 ), ;
dbSelectArea( 1 ),;
oBROW:REFRESH(.T.), SysReFresh(),;
oBROW:SetFocus() )
ACTIVATE DIALOG oEMP NOWAIT ;
ON INIT ( oEMP:Move( 0, 0 ),;
IF( (xSUPER = 'Y'.or. xMGR = 'Y'), ,oBTN4:HIDE() )) // , ;
* oBROW:SetPos(1, 47) )
* oBROW:GoToCol(nCOL) )
ACTIVATE WINDOW oWNDCHILD ;
ON INIT ( oWndChild:SetSize( oEMP:nWIDTH,oEMP:nHEIGHT, .T. )) ;
VALID ( IIF( !lOK, CloseRes(.T.), .F. ))
RETURN( NIL )Application
===========
Path and name: C:\FOX\DHEC\VEHFWH\veh32.Exe (32 bits)
Size: 3,359,744 bytes
Time from start: 0 hours 0 mins 16 secs
Error occurred at: 06/30/2010, 10:50:14
Error description: Error BASE/1111 Argument error: LEN
Args:
[ 1] = U
Stack Calls
===========
Called from: => LEN(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LASTDISPLAYPOS(1793)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETPOS(2819)
Called from: RESBROW.PRG => _RESBROW(227)
Called from: TRIPMENU.PRG => (b)_TRIPMENU(32)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1427)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(966)
Called from: MAIN.PRG => MAIN(379)
