' ###                                                                                                                                 ###
' ### O código abaixo é fornecido para fins formativos sendo a sua utilização fora desse contexto da responsabilidade do utilizador.  ###
' ###                   Copiar o código exemplo para um formulário VBA e adicionar os componentes necessários.                         ###
' ###                                                                                                                                 ###

Private m_objTipoEntidade   As StdBETipoEntidade

Private Sub UserForm_Initialize()

    'Inicializa Contexto
    InicializaSDKContexto

     'Inicializa os controlos

    ' Indica qual o parent do controlo.
    Set FiltroEntidades1.ParentForm = Me

    ' Inicia o componente com o contexto e formata as categorias das entidades
    FiltroEntidades1.Inicializa m_objSDKContexto

    ' Selecciona por defeito o tipo de entidade fornecedor.
    FiltroEntidades1.TipoEntidadeCombo = TIPOENTIDADE_Fornecedor

End Sub

Private Sub UserForm_Terminate()

    ' Garantir que os recursos libertados.
    FiltroEntidades1.Termina

    m_blnControlosInicializados = False

End Sub

'---------------------------------------------------------------------------------------
' Procedure   : FiltroEntidades1_AoAlterarRestricao
' Description : D� valor da restri��o.
' Arguments   : Restricao -->
' Returns     : None
'---------------------------------------------------------------------------------------
Private Sub FiltroEntidades1_AoAlterarRestricao(Restricao As String)

    txtValorRestricao.Text = Restricao

    If Not m_objTipoEntidade Is Nothing Then

        txtWhere.Text = FiltroEntidades1.DevolveWhere(m_objTipoEntidade.Tabela)

    End If

End Sub

'---------------------------------------------------------------------------------------
' Procedure   : FiltroEntidades1_EntidadeIdentificada
' Description : Carrega o objeto StdBETipoEntidade com informa��o da entidade selecionada.
' Arguments   : TipoEntidade -->
' Arguments   : Entidade     -->
' Returns     : None
'---------------------------------------------------------------------------------------
Private Sub FiltroEntidades1_EntidadeIdentificada(ByVal TipoEntidade As String, ByVal Entidade As String)
Dim x As Integer

    For x = 1 To FiltroEntidades1.TiposEntidade.Count

        Set m_objTipoEntidade = FiltroEntidades1.TiposEntidade(x)

        If m_objTipoEntidade.TipoEntidade = TipoEntidade Then

            Exit For

        End If

    Next x

End Sub

Private Sub cmdCancel_Click()

    FiltroEntidades1.Termina
    Unload Me

End Sub

Private Sub cmdNovo_Click()

    FiltroEntidades1.Limpa
    txtValorRestricao.Text = vbNullString
    txtWhere.Text = vbNullString

End Sub