MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Evitar cadastro em duplicidade de nota fiscal para o mesmo fornecedor

    Compartilhe

    Antonio Aurélio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 29/01/2014

    [Resolvido]Evitar cadastro em duplicidade de nota fiscal para o mesmo fornecedor

    Mensagem  Antonio Aurélio em 5/11/2018, 13:23

    Senhores, bom dia.

    Peço desculpas antecipadamente por não conseguir resolver minha dúvida mesmo com orientações pesquisadas.
    Tentei de todas as formas e não consegui.
    Meu problema, que aparentemente é simples, é evitar que uma nota fiscal de um determinado fornecedor seja lançada novamente (evitar duplicidade), porém, um mesmo número de nota fiscal para fornecedor diferente possa ser lançada normalmente.
    Estou tentando o seguinte (fruto de pesquisas e soluções do fórum):

    Private Sub DataEmissãoNF_BeforeUpdate(Cancel As Integer)
    Dim rs As Recordset
    Set rs = Me.RecordsetClone

    rs.FindFirst "DataEmissãoNF = #" & Format(DataEmissãoNF, "m-d-yy ") & "# AND CódigoFornecedor = " & Me.CódigoFornecedor & " &" And NúmeroNotaFiscal = " & Me.NúmeroNotaFiscal & """

    If Not rs.NoMatch Then

    MsgBox "Documento já cadastrado...", vbInformation, "Lançamentos"

    Cancel = True

    End If
    Set rs = Nothing

    End Sub

    A mensagem de erro: Erro em tempo de execução ' 13': Tipos incompatíveis.

    Tentei algumas alterações, mas, sem sucesso.

    Agradeço,

    Antonio Aurélio
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10233
    Registrado : 04/11/2009

    Re: [Resolvido]Evitar cadastro em duplicidade de nota fiscal para o mesmo fornecedor

    Mensagem  JPaulo em 5/11/2018, 15:19

    olá;

    Se quiser testar assim, faça o favor;

    Código:
    rs.FindFirst "DataEmissãoNF = #" & Format(Me!DataEmissãoNF, "mm-dd-yy") & "# AND CódigoFornecedor = " & Me.CódigoFornecedor & " And NúmeroNotaFiscal = " & Me.NúmeroNotaFiscal

    Se quiser testar doutra forma, teste e retorne;
    Altere apenas para o nome da sua tabela;

    Código:
    Private Sub DataEmissãoNF_BeforeUpdate(Cancel As Integer)
      If Not IsNull(DLookup("[NúmeroNotaFiscal]", "SuaTabela", "[NúmeroNotaFiscal] =" & Me.NúmeroNotaFiscal & " AND DataEmissãoNF = #" & Format(Me!DataEmissãoNF, "mm-dd-yyyy") & "# AND CódigoFornecedor = " & Me.CódigoFornecedor)) Then
           
            MsgBox "Documento já cadastrado...", vbCritical, "Lançamentos", "Erro"
            Cancel = True
        Me.Undo
      End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Antonio Aurélio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 29/01/2014

    Evitar cadastro em duplicidade de nota fiscal para o mesmo fornecedor

    Mensagem  Antonio Aurélio em 8/11/2018, 18:56

    Senhores, boa tarde.

    Agradeço, novamente, as preciosas orientações.
    Estou usando o primeiro código que o Mestre Dr. João Paulo.
    Exatamente o que necessitava.

    Agradeço e encerro o tópico.

    Muito obrigado.

    Antonio Aurélioi
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10233
    Registrado : 04/11/2009

    Re: [Resolvido]Evitar cadastro em duplicidade de nota fiscal para o mesmo fornecedor

    Mensagem  JPaulo em 9/11/2018, 11:06

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 19/11/2018, 14:16