16.01 B2 error w/ xHarbour
Posted: Fri Feb 12, 2016 12:37 am
The following code is used to build a browse:
// Create the browse
REDEFINE XBROWSE oLbxo ;
DATASOURCE oOrders ;
HEADERS " Done ", "Paid", "Type", "W/O #", "Company", sLbl[1], "Due Date", "Time", " Status " ;
COLUMNS "ordnot", "Totals", "status", "wrkord", "ordcom", "ordveh", "duedat", "duetim", "CliUs1" ;
JUSTIFY ,,2,2,,,2,2,2 ;
ID 390 OF oWdlg ;
ON DBLCLICK ( tWorkorder():New( oOrders:WrkOrd ):FullEdit( ), oLbxo:update(), aDis := LoadDispValues( aDis, oOrders ), oWdlg:update()) ;
ON CHANGE ( aDis := LoadDispValues( aDis, oOrders ), oWdlg:update() ) UPDATE
This is the next line:
oLbxo:aCols[ 1 ]:SetCheck( nil, .t. )
Using Harbour / MSVC, there is no problem
Using xHarbour ( .com ), this now throws a windows error ( program stopped working )
This was working in FWH 15.12, but fails in 16.01
Tim
// Create the browse
REDEFINE XBROWSE oLbxo ;
DATASOURCE oOrders ;
HEADERS " Done ", "Paid", "Type", "W/O #", "Company", sLbl[1], "Due Date", "Time", " Status " ;
COLUMNS "ordnot", "Totals", "status", "wrkord", "ordcom", "ordveh", "duedat", "duetim", "CliUs1" ;
JUSTIFY ,,2,2,,,2,2,2 ;
ID 390 OF oWdlg ;
ON DBLCLICK ( tWorkorder():New( oOrders:WrkOrd ):FullEdit( ), oLbxo:update(), aDis := LoadDispValues( aDis, oOrders ), oWdlg:update()) ;
ON CHANGE ( aDis := LoadDispValues( aDis, oOrders ), oWdlg:update() ) UPDATE
This is the next line:
oLbxo:aCols[ 1 ]:SetCheck( nil, .t. )
Using Harbour / MSVC, there is no problem
Using xHarbour ( .com ), this now throws a windows error ( program stopped working )
This was working in FWH 15.12, but fails in 16.01
Tim