Private Sub EditorCompras_AntesDeGravar(Cancel As Boolean)
    Dim i As Long
    For i = 1 To Me.DocumentoCompra.Linhas.NumItens
        If Me.DocumentoCompra.TipoDoc = "PM1" Then
            Me.DocumentoCompra.Linhas(i).CamposUtil("CDU_numdocLinhas").Valor = "PM1" + Me.DocumentoCompra.NumDoc
        End If
        If Me.DocumentoCompra.TipoDoc = "PM2" Then
            Me.DocumentoCompra.Linhas(i).CamposUtil("CDU_numdocLinhas").Valor = "PM2" + Me.DocumentoCompra.NumDoc
        End If
        If Me.DocumentoCompra.TipoDoc = "PM3" Then
            Me.DocumentoCompra.Linhas(i).CamposUtil("CDU_numdocLinhas").Valor = "PM3" + Me.DocumentoCompra.NumDoc
        End If

    Next

End Sub