como fazer Drill down para um documento de venda na v10   

Boa noite, como fazer Drill down para um documento de venda na v10

na v9 tinha o seguinte código mas com acabou o “GCP” fiquei confuso:

Dim vntSpread As Variant
Dim arrSpread() As String
Dim objCampoDrillDown As StdBESqlCampoDrillDown
Dim objParam As StdBEValoresStr

On Local Error GoTo Erro

Set objCampoDrillDown = New StdBESqlCampoDrillDown

With objCampoDrillDown

.ModuloNotificado = “GCP”
.Tipo = tddlEventoAplicacao
.Evento = “GCP_EditarDocumento” ‘PriGlobal: IGNORE

End With

Set objParam = New StdBEValoresStr

With objParam

.InsereNovo “Modulo”, “V”
.InsereNovo “Filial”, “000”
.InsereNovo “Tipodoc”, “ECL2”
.InsereNovo “Serie”, “SITE”
.InsereNovo “NumDocInt”, “1”

End With

PlataformaPRIMAVERA.DrillDownLista objCampoDrillDown, objParam

Set objCampoDrillDown = Nothing
Set objParam = Nothing

Exit Sub

Erro:

Set objCampoDrillDown = Nothing
Set objParam = Nothing