Como fazer drill down para um documento de contabilidade


Eu tenho código para realizar o drill down para RH, mas necessitava de fazer drill down para documentos contabilisticos. Este é o código que tenho para RH-

    Private Sub DrillDown_Funcionarios(ByVal func As String)     Dim objCampoDrillDown As StdBESqlCampoDrillDown     Dim objParam As StdBEValoresStr      Try          objCampoDrillDown = New StdBESqlCampoDrillDown          With objCampoDrillDown              .ModuloNotificado = "CBL"             .Tipo = EnumTipoDrillDownListas.tddlEventoAplicacao             .Evento = "RHP_MANUTENCOES"          End With          objParam = New StdBEValoresStr          With objParam             .InsereNovo("Manutencao", "mnuTabFunc")             .InsereNovo("Chave", func)         End With          plat.DrillDownLista(objCampoDrillDown, objParam)          objCampoDrillDown = Nothing         objParam = Nothing      Catch ex As Exception         Throw ex     End Try  End Sub