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

    Next

End Sub