#INCLUDE "PROTHEUS.CH"
Static cMark := GetMark()
User Function TC765BRO()
Local oBrowse := PARAMIXB[1] oBrowse:AddButton("Processar",{||U_AT765BTN(oBrowse)})
oBrowse:AddMarkColumns( {||IIf(!Empty( T40_OK ),"LBOK","LBNO")},;
{|| u_AT765SetMk(oBrowse)},;
{||u_AT765AllMk(oBrowse),oBrowse:Refresh()} ) Return oBrowse
// Sugestão de rotinas específicas. User Function AT765BTN(oBrowse)
Local cAlias := oBrowse:oData:calias // ... Return Nil User Function AT765SetMk(oBrowse)
Local cAlias := oBrowse:oData:calias
RecLock( cAlias,.F. )
If Empty((cAlias)->T40_OK)
(cAlias)->T40_OK := cMark
Else
(cAlias)->T40_OK := ""
EndIf
(cAlias)->(MsUnLock())
Return Nil User Function AT765AllMk(oBrowse)
Local cAlias := oBrowse:oData:calias
Local aArea := (cAlias)->(GetARea())
Local lMarca := .F.
(cAlias)->(dbGoTop())
lMarca := (cAlias)->T40_OK <> cMark
While (cAlias)->(!Eof())
(cAlias)->T40_OK := Iif(lMarca, cMark, "")
(cAlias)->(MsUnLock())
(cAlias)->(dbSkip())
EndDo
RestArea(aArea)
Return Nil | 