Bom dia. Alguém teria um exemplo de como utilizar a função 'SetCustomMarkRec' do FWMarkBrowse?
Estou tentando da seguinte maneira:
User Function Teste2()
If !oMarkBrowse:IsMark(cMarca)
oMarkBrowse:MarkRec()
endif
ReturnMas dessa maneira o "oMarkBrowse:MarkRec()" chama a função novamente e entra em um looping infinito.
Já tentei também apenas chamar a função e retornar .T. mas sem sucesso.
Vlw.
Olá Ivan, segue exemplo.
oMarkBrow := FwMarkBrowse():New()
oMarkBrow:SetAlias('TRB')
oMarkBrow:SetCustomMarkRec({||EditaCell(oMarkBrow)})
/*/{Protheus.doc} EditaCell
(Marca somente linhas que houveram itens selecionados na função u_IndSB1PRD)
@type Static Function
@author Leandro Lemos
@since 10/08/2023
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
@example
(examples)
@see (links_or_references)
/*/
Static Function EditaCell(oMarkBrow)
Local aBkpArea := GetArea()
Local nPosCol := oMarkBrow:oBrowse:ColPos()-1//Desconta campo de marcação
Local cItens := ""
RecLock( 'TRB', .F. )
if nPosCol == 7 //Items da remessa
cItens := u_IndSB1PRD(TRB->RB_YCEME)
if !Empty(cItens)
TRB->RB_OK := cMark
TRB->RB_ITSREM := cItens
endif
RestArea(aBkpArea)
else
TRB->RB_OK := iif(TRB->RB_OK == cMark,'',cMark)
endif
MsUnLock()
Return