error in five DBU

[Antonio Linares]

We can post the PRG only and everone build the EXE

Security essentials (built in Windows eight) does not complain, but who knows...

[TimStone]

Ah ... the culprit ... Norton Sonar

I require my clients to remove it from their computers. If you haven't paid to register a software package with Norton, Sonar removes it from the computer. I had it removing my applications because they were "not popular". That is nonsense. Most packages at least ask if you want to quarantine or remove it, but Sonar just takes it away.

A web search will display lots of complaints about this product.

I too use Microsoft Security Essentials and have not had a problem in the years since its release. Prior to that, I used Microsofts other free malware protection and also had great results.

Tim

[mauri.menabue]

hi all

another small error

Application
===========
Path and name: C:\dbu\fivedbu.exe (32 bits)
Size: 5,330,944 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 14 secs
Error occurred at: 11/06/2012, 17:03:33
Error description: Error BASE/1119 Argument error: CTOD
Args:
[ 1] = D 20/05/2010

Stack Calls
===========
Called from: => CTOD( 0 )
Called from: C:\fwteam\samples\fivedbu.prg => (b)SETEDITTYPE( 560 )
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 )

Code: Select all  Expand view

      row 560 original
     
     case cType == "D"
           oBrw:aCols[ 2 ]:nEditType = EDIT_BUTTON
           oBrw:aCols[ 2 ]:bEditBlock = { || If( ! Empty( oBrw:aRow[ 2 ] ) .and. ;
                                                 ! AllTrim( DtoC( oBrw:aRow[ 2 ] ) ) == "/  /",;
                                                 MsgDate( CtoD( oBrw:aRow[ 2 ] ) ),;
                                                 MsgDate( Date() ) ) }

      row 560 modifed

     case cType == "D"
           oBrw:aCols[ 2 ]:nEditType = EDIT_BUTTON
           oBrw:aCols[ 2 ]:bEditBlock = { || If( ! Empty( oBrw:aRow[ 2 ] ) .and. ;
                                                 ! AllTrim( DtoC( oBrw:aRow[ 2 ] ) ) == "/  /",;
                                                 MsgDate( oBrw:aRow[ 2 ] ),;
                                                 MsgDate( Date() ) ) }

 

bye

[Antonio Linares]

Mauri,

Fixed, thanks!