VBA Cliente

Private Sub EditorPendentes_AntesDeGravar(Cancel As Boolean)
    Dim Cancela As Boolean
    Dim objComp As Object
    Dim docPendente As Object

    Set docPendente = BSO.Comercial.Pendentes.Edita(Me.DocumentoPendente.Filial, "M", Me.DocumentoPendente.TipoDoc, Me.DocumentoPendente.Serie, Me.DocumentoPendente.NumDocInt)

    Set objComp = CreateObject("ThrdDocSys.EditorPendentes")

    objComp.BSO = BSO
    objComp.DocumentoPendente = docPendente
    Cancela = objComp.TemDocAssoc(Me.DocumentoPendente.IdGDOC)
    If Cancela = True Then
        Cancel = True
        Exit Sub
    End If
End Sub

Private Sub EditorPendentes_DepoisDeGravar(Filial As String, Serie As String, Tipo As String, NumDoc As Long, NumPrestacao As Integer)
    Dim objPendentes As Object
    Dim objDocPend As Object
    Set objDocPend = BSO.Comercial.Pendentes.Edita(Filial, "M", Tipo, Serie, NumDoc, NumPrestacao)

    On Error GoTo ErroCriarOBj
    Set objPendentes = CreateObject("ThrdDocSys.EditorPendentes")
    On Error GoTo ErroGeral
    objPendentes.BSO = BSO
    objPendentes.DocumentoPendente = objDocPend

    objPendentes.DepoisGravar

    Exit Sub
ErroCriarOBj:
    Exit Sub
ErroGeral:
    Exit Sub
End Sub

Private Sub EditorPendentes_TipoDocumentoIdentificado(Tipo As String, Cancel As Boolean)

End Sub