Histórico da Página

#include 'Protheus.ch'

/*/{Protheus.doc} User Function A280SBJMT261FIL
    PEPermite A280SBKfiltrar -o Chamadobrowse nausando gravaçãouma da SBK - Saldos iniciais por endereço - após a gravaçãoexpressão ADVPL
    @type  Function
    @author TotvsTOTVS
    @since 09/11*/2021
    /*/
User Function A280SBKMT261FIL()
    Local aArea  cFiltro  := GetArea()''
    Local aAreaSBKcMsg := SBK->(GetArea())
    Local aAreaSB1 := SB1->(GetArea())''
    Local aAreas  cTitulo := {aAreaSBK, aAreaSB1, aArea}''

    SB1->(DbSetOrder(1))
    If SB1->(DbSeek(FWXFilial('SB1')+SBK->BK_COD))cTitulo := 'Filtro'
    cMsg    //Condições customizadas
        //...
        
 := 'Deseja exibir somente as transferências?'

       If RecLockMsgYesNo('SBK'cMsg, .F.cTitulo)
        cFiltro := "SD3->D3_CF $ 'RE4//GravaçãoDE4' de" campo//Filtra customizadosomente daas SBKtransferências
    Else
        SBK->(MsUnlock())
  cFiltro := Nil
      EndIf
Return    EndIf

    AEval(aAreas, {|x| RestArea(x)})
Return




cFiltro