Fórum Como navegar até uma função no VB 6 #580250

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

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