when edit date field
Code: Select all
===========
Path and name: C:\dbu\fivedbu.exe (32 bits)
Size: 5,329,920 bytes
Compiler version: Harbour 3.2.0dev (Rev. 17516)
FiveWin Version: FWH 12.04
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 08/06/2012, 17:57:55
Error description: Error BASE/2022 Argument error: ALLTRIM
Args:
[ 1] = D 20/05/2010
Stack Calls
===========
Called from: => ALLTRIM( 0 )
Called from: C:\fwteam\samples\fivedbu.prg => (b)SETEDITTYPE( 552 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:RUNBTNACTION( 10969 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:EDIT( 10481 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LDBLCLICK( 3556 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1700 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11632 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 980 )
Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 58 )
ROW 552 original
oBrw:aCols[ 2 ]:nEditType = EDIT_BUTTON
oBrw:aCols[ 2 ]:bEditBlock = { || If( ! Empty( oBrw:aRow[ 2 ] ) .and. ;
! AllTrim( oBrw:aRow[ 2 ] ) == "/ /",;
DToC( MsgDate( CtoD( oBrw:aRow[ 2 ] ) ) ),;
DToC( MsgDate( Date() ) ) ) }
ROW 552 modified
oBrw:aCols[ 2 ]:nEditType = EDIT_BUTTON
oBrw:aCols[ 2 ]:bEditBlock = { || If( ! Empty( oBrw:aRow[ 2 ] ) .and. ;
! AllTrim( dtoc(oBrw:aRow[ 2 ]) ) == "/ /",;
DToC( MsgDate( CtoD( oBrw:aRow[ 2 ] ) ) ),;
DToC( MsgDate( Date() ) ) ) }
Bye