To All
I get this error with FWH1203 as well as FWH 1408 .. when I navigate to the EDIT_LISTBOX and hit the letter P ( for parts ) the drop down listbox finds the correct line, if I hit the TAB key to navigate to the next cell I get this error. The error only occurs if I TAB through the Listbox .. if I hit the ENTER key I have no problems .. see screen shots and error code.
Any suggestions would be welcome!
Rick Lipkin
I get this error with FWH1203 as well as FWH 1408 .. when I navigate to the EDIT_LISTBOX and hit the letter P ( for parts ) the drop down listbox finds the correct line, if I hit the TAB key to navigate to the next cell I get this error. The error only occurs if I TAB through the Listbox .. if I hit the ENTER key I have no problems .. see screen shots and error code.
Any suggestions would be welcome!
Rick Lipkin
Application
===========
Path and name: C:\Fox\SaLite\Saw32.Exe (32 bits)
Size: 5,009,408 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20131030)
FiveWin Version: FWHX 14.08
Windows version: 5.1, Build 2600 Service Pack 3
Time from start: 0 hours 0 mins 36 secs
Error occurred at: 10/08/2014, 16:38:50
Error description: Error BASE/1004 Class: 'NIL' has no exported method: NLASTKEY
Args:
[ 1] = U
Stack Calls
===========
Called from: => NLASTKEY( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:POSTEDIT( 11905 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBRWCOLUMN:SHOWBTNLIST( 11803 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2677 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1047 )
Called from: .\source\classes\LISTBOX.PRG => TLISTBOX:HANDLEEVENT( 570 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3291 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1015 )
Called from: Main.prg => MAIN( 322 ) // type pull down codeblock
oLbxB:aCols[4]:nEditType := EDIT_LISTBOX
oLbxB:aCols[4]:aEditListTxt := aType
oLbxB:aCols[4]:bOnPostEdit := {|o,v| _GetPullDown( v,oLbxB,oRsDetail ) }
//-----------------
Static Func _GetPullDown( v,oLbxB,oRsDetail )
Local Saying
// do not allow update if LockedDown is true
If oRsDetail:Fields("LockedDown"):Value = .t.
Return(.f.)
Else
If oRsDetail:Fields("IsLabor"):Value = .t.
If v = "Labor"
Else
Saying := "Sorry .. you can not change the type because there"+chr(10)
Saying += "is Labor Itemized against this Line"+chr(10)
MsgInfo( Saying )
v := "Labor"
Return(.f.)
Endif
Endif
oRsDetail:Fields("Inventory Type"):Value := v
oRsDetail:Update()
Endif
Return(.t.)