Como navegar até uma função no VB 6

18/04/2017

0

Tenho esse código:
Case Is = "OIT"
            If Not msStatusLaudo = "F" Or gAcessoLocal(giIndiceAcessoLocal).SuperPerfil Then
                If tlbPadrao.Buttons(miBTOIT).Enabled Then
                        With sprExame
                        .Col = 0
                            If (.Text = "3936" Or .Text = "3936") Then
                                .Col = 7
                                frmCadOIT.CodigoExameRealizado = .Text
                                frmCadOIT.Show vbModal, frmMDIPrincipal
                                EncheGridExames
                            End If
                        End With

                End If
            Else
               MsgBox "Exames não disponíveis para alterção - Laudo Fechado !", vbInformation, Me.Caption

            End If


Veja que existe uma função chamada: EncheGridExames. Essa é a declaração da função:
Private Function EncheGridExames() As Boolean

On Error GoTo Erro_EncheGridExame

Dim orsExame As New ADODB.Recordset      ' objeto Exame
Dim oExame As New cManterExame


     Screen.MousePointer = vbHourglass

    ' Executa Pesquisa no Banco
    Set orsExame = oExame.ExameRealizado_List(mlCodigoFuncionario, NumeroSeqLaudo)

    ' limpa o grid
    sprExame.Rows = 1

    ' Verifica se o rs esta ok
    If orsExame.State = adStateOpen Then

        ' se ok monta list com o retorno da SP
        If orsExame.EOF And orsExame.BOF Then

            EncheGridExames = False

        Else

            With sprExame

                ' limpa spreed
                .Font = "arial"
                .FontSize = 8
                .FontBold = False

            End With

            ' Preenche o list com o retorno da consulta
            Do While Not orsExame.EOF

                With sprExame

                    .Rows = .Rows + 1
                    .Row = .Rows - 1

                    ' Codigo Exame
                    .Col = 0: .Text = orsExame!ID_EXM
                     ' Nome Exame
                    .Col = 1: .Text = orsExame!NO_EXM
                    ' Hora Exame
                    .Col = 2: .Text = Format(orsExame!DT_EXM_REA, "Short Time")
                    ' Data Exame
                    .Col = 3: .Text = Format(orsExame!DT_EXM_REA, "Short Date")
                    ' Status Exame
                    .Col = 4: .Text = IIf(Trim(orsExame!IR_STA_EXM_REA) = "S", "Efetivado", "Em Aberto")
                    ' Observacao Exame
                    .Col = 5:  .Text = Trim(orsExame!DS_OBS_EXM_REA) & Empty
                    ' Tipo Exame
                    .Col = 6: .Text = Trim(orsExame!IR_TIP_EXM_REA)
                    ' Codigo do exame realizado
                    .Col = 7: .Text = Trim(orsExame!ID_EXM_REA)

                    ' Codigo do exame realizado
                    .Col = 8: .Text = Trim(orsExame!NO_CRM_MED_01)
                    ' Codigo do exame realizado
                    .Col = 9: .Text = Trim(orsExame!NO_CRM_MED_02)
                    ' Codigo do exame realizado
                    .Col = 10: .Text = Trim(orsExame!NO_CRM_MED_03)

                 End With

                 orsExame.MoveNext

            Loop

            orsExame.Close

            sprExame.Row = 1

            'posiciona tela conforme grid
            sprExame_Click

            ' Retorna status da funcao
            EncheGridExames = True

        End If

    End If

    'So tem algo a ser feito para laudos em aberto
     If Not msStatusLaudo = "F" Then

        ' Verifica se Houve Exames
        If sprExame.Rows > 1 Then

            If miAcaoForm = giENADA Then

                ' Ajusta Para alteracao
                HabilitaBotoes tlbPadrao, giESELECAO, False
                HabilitaForm True
                miAcaoForm = giEEDICAO

            Else

                miAcaoForm = giEEDICAO
                HabilitaBotoes tlbPadrao, giESELECAO, False

            End If

       Else

            If miAcaoForm = giENADA Then

                ' Prepara para Incluir Novo
               HabilitaBotoes tlbPadrao, giEEDICAO, False
               HabilitaForm True
               miAcaoForm = giENOVO

            End If

       End If

    Else
        HabilitaBotoes tlbPadrao, giEPESQUISA
        HabilitaForm False

    End If

    ' Limpa variavel
    Set orsExame = Nothing
    Set oExame = Nothing

     Screen.MousePointer = vbDefault

    Exit Function

Erro_EncheGridExame:

    Screen.MousePointer = vbDefault

    ' Retorna status da funcao
    EncheGridExames = False

    ' Limpa variavel
    Set orsExame = Nothing
    Set oExame = Nothing

    ' exibe erro
    frmErro.txtMensagem = Err.Description
    frmErro.txtNroDescricao = Err.Number
    frmErro.Show vbModal

End Function

A pergunta é: Como eu faço para pegar as definições dos dados, ver qual proc, tabela são usadas? Não entendo o VB e não sei como eu vejo isso. Preciso saber qual procedure está sendo chamada e não consigo rodar o projeto, vide post anterior nessa TAG. Esse projeto será passado para uma versão web, não por mim, mas por isso a tag asp.net
Pjava

Pjava

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar