TRIBBON possível Fix

[MGA]

Ao entrar no meu sistema, se o usuário ficar pressionando ALT+1 (repetidamente) acontecia o erro abaixo:

fix:

METHOD RunAction( nKey, lControl ) CLASS TRibbonBar
substituir:
If nKey > 0
por:
If nKey > 0 .and. ValType( ::cBufferAcc ) == 'C'


METHOD ResetAcc() CLASS TRibbonBar
add:
::aAcc = {}


erro:
Application
===========
Path and name: C:\getpdv\ser\getpdvr.exe (32 bits)
Size: ********* bytes
Time from start: 0 hours 0 mins 24 secs
Error occurred at: 24/09/13, 14:24:50
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = U
[ 2] = C 1

Stack Calls
===========
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RUNACTION(1410)
Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR:KEYBMODE(1291)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN(2582)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN(875)
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYDOWN(961)

[Antonio Linares]

SGS,

This seems as a possible fix, thanks

Code: Select all  Expand view

METHOD RunAction( nKey, lControl ) CLASS TRibbonBar

   local nCurrent := 0
   local nTemp

   if nKey > 95 .and. nKey < 106
      nKey -= 48
   endif

   DEFAULT ::cBufferAcc := ""  // new !!!

   If nKey > 0
      ::cBufferAcc += Chr( nKey )
      if Len( ::cBufferAcc ) == 1
         if AScan( ::aAcc, {| uItem | Left( uItem[ 2 ], 1 ) == ::cBufferAcc } ) == 0
            ::cBufferAcc = ""
         endif
      endif
 

[MGA]

thanks

[MGA]

Sr. Antonio,

Mesmo com sua alteração:

DEFAULT ::cBufferAcc := "" // new !!!

ainda assim é necessário:

METHOD ResetAcc() CLASS TRibbonBar
add:
::aAcc = {}

[Antonio Linares]

SGS,

Implemented for next FWH 13.09, thanks