Option Explicit
Private Sub CommandButton1_Click()

    Dim objDocCompra        As GcpBEDocumentoCompra
    Dim objLinhaCompra      As GcpBELinhaDocumentoCompra

    Dim objLinhasRast       As GcpBELinhasRastreabilidade
    Dim objLinhaRast        As GcpBELinhaRastreabilidade

    Set objDocCompra = BSO.Comercial.Compras.Edita("000", "ECF", "2019", 7)
    For Each objLinhaCompra In objDocCompra.Linhas
        Set objLinhasRast = New GcpBELinhasRastreabilidade
        BSO.Comercial.Compras.ProcuraLinhasAnteriores objLinhaCompra.IDLinha, objLinhasRast
        If Not objLinhasRast Is Nothing Then
            For Each objLinhaRast In objLinhasRast

                'Fazer alguma coisa aqui

            Next objLinhaRast
        End If
    Next objLinhaCompra
End Sub