Can someone test if the funcion/command editvars is giving a error ?
Application
===========
Path and name: C:\fwharb\samples\testreport.exe (32 bits)
Size: 4,225,024 bytes
Compiler version: Harbour 3.2.0dev (r2008190002)
FiveWin version: FWH 21.02
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 04/05/21, 23:45:52
Error description: Error BASE/1100 Argument error: TRIM
Args:
[ 1] = B {|| ... }
Stack Calls
===========
Called from: => TRIM( 0 )
Called from: .\source\classes\DATAROW.PRG => TDATAROW:MAKEONEGET( 2148 )
Called from: .\source\classes\DATAROW.PRG => TDATAROW:PLACECONTROLS( 2034 )
Called from: .\source\classes\DATAROW.PRG => (b)TDATAROW_EDIT( 1924 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 864 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1124 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\classes\DATAROW.PRG => TDATAROW:EDIT( 1932 )
Called from: .\source\function\MSGGET.PRG => MSGGETARRAY( 113 )
Called from: .\source\function\MSGGET.PRG => MSGGET( 14 )
Called from: testreport.prg => MAIN( 11 )
Sample from FW/samples. Only added editvars for testing a working program
- Code: Select all Expand view
#include "fivewin.ch"
#include "report.ch"
function Main()
local oDlg, oBrw, oCn, oRs
local cZoek
cZoek:= "Test"
msginfo(cZoek)
editvars cZoek
oCn := FW_OpenAdoConnection( "xbrtest.mdb" )
oRs := FW_OpenRecordSet( oCn, "customer" )
DEFINE DIALOG oDlg SIZE 500,300 PIXEL TRUEPIXEL
@ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE oRs COLUMNS "First", "City", "Age" ;
CELL LINES NOBORDER
oBrw:CreateFromCode()
@ 20,20 BUTTON "REPORT" SIZE 80,30 PIXEL OF oDlg ;
ACTION oBrw:Report( nil, nil, nil, { |oRep,brw| MyReportSetup( oRep, brw ) } )
ACTIVATE DIALOG oDlg CENTERED
oRs:Close()
oCn:Close()
return nil
//----------------------------------------------------------------------------//
function MyReportSetup( oRep, oBrw )
local oRs := oBrw:oRs
local cLines := cValToChar( oBrw:nLen ) + " lines"
COLUMN TITLE "First Name" DATA oRs:Fields( "First" ):Value SIZE 25
COLUMN TITLE "Street" DATA oRs:Fields( "Street" ):Value SIZE 25
COLUMN TITLE "City" DATA oBrw:City:Value SIZE 25
COLUMN TITLE "Salary" DATA oRs:Fields( "salary" ):Value PICTURE "999,999.99" TOTAL
oRep:bPostEnd := { || oRep:Say( 1, cLines ) }
return .t.
// return .t. means xbrowse should not add columns
//----------------------------------------------------------------------------//
