FiveTech Support Forums

Sr. Manuel,

1) Onde posso baixar a versão mais recente de tsbrowse 9.0?

2) method editexit - browse com array ao sair da edição estava ficando louca a tela, resolvi assim:

METHOD TSBrowse:EditExit()
...
Após ::SetMsg( cMsg )
adicionei ::Refresh(.f.)

Existe algum estrutural nesta alteração?

ex:

• ============================================================================
• METHOD TSBrowse:EditExit() Version 9.0 Nov/30/2009
• ============================================================================

METHOD EditExit( nCol, nKey, uVar, bValid, lLostFocus ) CLASS TSBrowse

Local uValue, cType, oCol, lCombo, cMsg, lAuxFixKey

Default lLostFocus := .F., ;
::lPostEdit := .F., ;
nCol := ::nCell

oCol := ::aColumns[ nCol ]
lCombo := ValType( oCol:oEdit ) == "O" .and. "COMBO" $ Upper( oCol:oEdit:ClassName() )
lAuxFixKey := !lLostFocus .and. nKey > 0 .and. nKey != VK_ESCAPE .and. ValType( oCol:oEdit ) == "O" //bira

If ! lLostFocus .and. nKey > 0 .and. nKey != VK_ESCAPE .and. ValType( oCol:oEdit ) == "O" .or. (!lAuxFixKey .and. !empty(::nFixKey)) //bira

  ::lPostEdit := .T.
  HideCaret( oCol:oEdit:hWnd )

  If lCombo

     cType := If( oCol:cDataType != Nil, oCol:cDataType, ValType( uVar ) )

     If cType == "L"
        uValue := oCol:oEdit:nAt == 1
        uVar := If( ValType( uVar ) == "C", AScan( oCol:aItems, uVar ) == 1, ;
                If( ValType( uVar ) == "N", uVar == 1, uVar ) )
     Else

        If oCol:aData != Nil
           uValue := oCol:aData[ oCol:oEdit:nAt ]
           If ValType( uValue ) == "N" .and. ValType( uVar ) == "C"
              uVar := AScan( oCol:aData, uVar )
           EndIf
        Else
           uValue := If( cType == "N", oCol:oEdit:nAt, ;
                         oCol:oEdit:aItems[ oCol:oEdit:nAt ] )

           If cType == "N"
              uValue := oCol:oEdit:nAt
           Else
              uValue := Substr( uValue, 1, Len( uVar ) )
           EndIf

        EndIf

        ::lChanged    := uValue != uVar
        ::lHasChanged := If( ::lChanged, .T., ::lHasChanged )

     EndIf

     ::oWnd:nLastKey := nKey

     If oCol:bEditEnd != Nil
        Eval( oCol:bEditEnd, uValue, Self, .T. )
     EndIf

     ::lAppendMode := oCol:oEdit:lAppend
     ::lEditing := .F.
     oCol:oEdit:Hide()
     oCol:oEdit:End()
     oCol:oEdit := Nil
     ::PostEdit( uValue, nCol, bValid )
     ::oWnd:bValid := ::oGet
     cMsg := If( ! Empty( oCol:cMsg ), oCol:cMsg, ::cMsg )
     cMsg := If( Valtype( cMsg ) == "B", Eval( cMsg, Self, ::nCell ), cMsg )
     ::SetMsg( cMsg )
     Return Nil
  EndIf

  uValue := oCol:oEdit:VarGet()

  If oCol:bCustomEdit != Nil
     uValue := Eval( oCol:bCustomEdit, uValue, oCol:oEdit, Self )
  EndIf

  If ::lAppendMode .and. Empty( oCol:oEdit:VarGet() ) .and. nKey != VK_RETURN
     bValid := {||.F.}
  EndIf

  If oCol:bEditEnd != Nil
     Eval( oCol:bEditEnd, uValue, Self, .T. )
  EndIf

  ::lChanged      := ValType( uValue ) != ValType( uVar ) .or. uValue != uVar
  ::lHasChanged   := If( ::lChanged, .T., ::lHasChanged )
  ::oWnd:nLastKey := nKey
  oCol:oEdit:Hide()
  oCol:oEdit:End()
  oCol:oEdit    := Nil
  ::oWnd:bValid := ::oGet
  ::PostEdit( uValue, nCol, bValid )
  cMsg := If( ! Empty( oCol:cMsg ), oCol:cMsg, ::cMsg )
  cMsg := If( Valtype( cMsg ) == "B", Eval( cMsg, Self, ::nCell ), cMsg )
  ::SetMsg( cMsg )
  ::Refresh(.f.)
  if ::nFixKey#0 .and. nKey == ::nFixKey  .or. !lAuxFixKey  //bira
     return Super:KeyDown( if(!lAuxFixKey,0,::nFixKey), 0 )
  endif

Else

  If ::lPostEdit
     Return Nil
  EndIf

  If oCol:bEditEnd != Nil .and. ValType( oCol:oEdit ) == "O"
     Eval( oCol:bEditEnd, uValue, Self, .F. )
  EndIf

  If lCombo
     ::lAppendMode := oCol:oEdit:lAppend
  EndIf

  ::oWnd:bValid := ::oGet

  If ValType( oCol:oEdit ) == "O"
     ::lEditing := .F.
     oCol:oEdit:Hide()
     oCol:oEdit:End()
     oCol:oEdit := Nil
  EndIf

  ::oWnd:nLastKey := VK_ESCAPE
  ::lChanged := .F.
  ::SetMsg( oCol:cMsg )
  ::lEditing := .F.

  If ::lAppendMode

     ::lAppendMode := .F.
     ::lHitBottom  := .F.
     ::lNoPaint    := .F.

     If ::nLen <= ::nRowCount()
        ::Refresh( .T. )
        ::GoBottom()
     Else
        ::GoBottom()
     EndIf

  EndIf

  cMsg := If( ! Empty( oCol:cMsg ), oCol:cMsg, ::cMsg )
  cMsg := If( Valtype( cMsg ) == "B", Eval( cMsg, Self, ::nCell ), cMsg )
  ::SetMsg( cMsg )
  ::Refresh(.f.)

EndIf

Return Nil