Como navegar até uma função no VB 6
18/04/2017
0
Tenho esse código:
Veja que existe uma função chamada: EncheGridExames. Essa é a declaração da função:
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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)