FiveTech Software tech support forums

Hello everyone,

I have just upgraded from "FiveWin++ 1.82 - February 2004" to FW++ 7.01 and upgraded Alaska XBase++ Intl V1.81 to Intl V1.90.331. I use BorlandC Resource Compiler brcc32 V5.02 to manage my resources.

When I edit a numeric field in a Browse list box using Cell Edit,I get the following error when I press "." decimal point.



------------------------------------------------------------------------------
ERROR LOG of "D:\ac\fivedb_ac_ph\test_src\gettst1.exe" Date: 03/23/2007 15:09:31

Xbase++ version : Xbase++ (R) Version 1.90.331
Operating system : Windows XP 05.01 Build 02600 Service Pack 2
------------------------------------------------------------------------------
oError:args :
-> VALTYPE: O CLASS: TClipGet
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: Y
oError:cargo : NIL
oError:description : Object has no method with this name
oError:filename :
oError:genCode : 23
oError:operation : Clear
oError:osCode : 0
oError:severity : 2
oError:subCode : 2220
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from TGET:KEYCHAR(916)
Called from TWINDOW:HANDLEEVEN(3000)
Called from TCONTROL:HANDLEEVEN(1360)
Called from TGET:HANDLEEVEN(478)
Called from _XBPP(3164)
Called from TDIALOG:ACTIVATE(279)
Called from TWBROWSE:LEDITCOL(807)
Called from COLVARCHG(63)
Called from (B)SHOW_LIST(37)
Called from TWINDOW:LDBLCLICK(1753)
Called from TWBROWSE:LDBLCLICK(1039)
Called from TWINDOW:HANDLEEVEN(3063)
Called from TCONTROL:HANDLEEVEN(1360)
Called from _XBPP(3164)
Called from TDIALOG:ACTIVATE(279)
Called from SHOW_LIST(43)
Called from (B)MAIN(14)
Called from TWINDOW:ACTIVATE(876)
Called from MAIN(14)

The source code for gettst1.prg follows:
//GET testing in 32 bit mode using resource redefine....

#include "FiveWin.ch"
#define COST_LBX 1000
#define COSTINVT_ACCEPT 1001
static oWin

//----------------------------------------------------------------------------//
function Main()

DEFINE WINDOW oWin FROM 7,5 to 15,63 TITLE "Test Cell Edit in Browse Listbox"
ACTIVATE WINDOW oWin ON INIT Show_List()
return nil
//----------------------------------------------------------------------------//

procedure Show_List()
local oDlg2, oLbx
local aItems

aItems := { {"AA100", 20, 30},{"AA110", 20, 30},{"BA150", 20.5, 30.5},{"CD200", 25.1, 30.5}}

DEFINE DIALOG oDlg2 RESOURCE "BrwseCostInvt" of oWin

REDEFINE LISTBOX oLbx FIELDS aItems[oLbx:nAt,1], str(aItems[oLbx:nAt,2]), str(aItems[oLbx:nAt,3]), "" ;
ID COST_LBX ON DBLCLICK oDlg2:End() HEADER "Prod Code", "%Cost", "Sel Price", "" ;
FIELDSIZES 80, 60, 60, 0 of oDlg2

oLbx:SetArray(aItems)

// This enables the Cell navigation style for the browse
oLbx:lCellStyle := .T.

// To perform and edit Cell operation using left double click
oLbx:bLDBLclick := { |nRow, nCol, nKeyFlags| ;
ColVarChg(@oLbx, @aItems), oLbx:Refresh()}


REDEFINE BUTTON ID COSTINVT_ACCEPT OF oDlg2;
ACTION (oDlg2:end())

ACTIVATE DIALOG oDlg2

return

//----------------------------------------------------------------------------//

procedure ColVarChg(oLbx, aItems)
local lColNumber, lRowNumber, lVarToEdit

lColNumber := oLbx:nColAct // Get actual Column in focus
lRowNumber := oLbx:nAt // Get actual Row in focus
DO CASE // Check which column edit is to be performed
CASE lColNumber == 1 // Column 1 is a string Prod ID value
// Make a temporary String copy of selected string field.
lVarToEdit := Eval(olbx:bLine)[lColNumber]
oLbx:lEditCol(lColNumber, @lVarToEdit, Replicate("X",10), NIL, CLR_YELLOW, CLR_BLUE)

CASE (lColNumber == 2) .OR. (lColNumber == 3) // Edit Numeric Fields
// Make a temporary NUMERIC copy of selected numeric field.
lVarToEdit := VAL(Eval(olbx:bLine)[lColNumber])
oLbx:lEditCol(lColNumber, @lVarToEdit, replicate("9",5)+".99", NIL, CLR_YELLOW, CLR_BLUE)

ENDCASE
//Now save new edited value
aItems[lRowNumber, lColNumber] := lVarToEdit
return


//32 bits Alaska XPP Initialisation source code here...
procedure AppSys()
return

-------------------------------------------------------------------------------
The resource file gettst1.rc used with the above program follows:
#define COST_LBX 1000
#define COSTINVT_ACCEPT 1001

BrwseCostInvt DIALOG -5, 6, 282, 229
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Inventory Browse Showing Some Fields"
FONT 8, "MS Sans Serif"
{
LISTBOX COST_LBX, 2, 14, 279, 185, LBS_NOTIFY | WS_BORDER | LBS_NOINTEGRALHEIGHT | WS_BORDER | WS_TABSTOP
PUSHBUTTON "&OK to Accept [F2]", COSTINVT_ACCEPT, 110, 212, 71, 14, NOT WS_TABSTOP
}
__________________________________________________________

Any help would be appreciated. I have used the standard FiveWin and Alaska XBase++ libararies for the above example.

For the future, I need to modify the Tget Class for my application (such as automatically highlighting entries when the <CR> key is pressed plus other minor changes), so would it be possible the get the corrected Tget.prg and TClipGet.prg class source code?


Best regards, Angelo

Angelo,

We are currently at Holland on a FWPPC seminar. Next sunday we will be back at our offices so we will review this issue, thanks

Thank you Antonio.

I Hope all went well in Holland.

I have received a new modified FW++ library that fixes the later CreateToolTip function reference and the extra debug message problem. However I still have this "Clear" method not available problem when I press the decimal point "." in a get field.

I also asked if it would be possible the get the latest and corrected Tget.prg and TClipGet.prg class source code? I intent to modify it slightly for my application.


Best Regards, Angelo

Angelo,

It was a great FWPPC seminar

We have just emailed you the source code for those classes