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]Registro Duplicado dentro de um período

    avatar
    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 01/09/2011

    [Resolvido]Registro Duplicado dentro de um período Empty [Resolvido]Registro Duplicado dentro de um período

    Mensagem  claudiojsramos em 10/8/2019, 15:03

    Bom dia a todos do fórum,

    Prezados mestres, gostaria de uma pequena ajuda de vocês.... já verifiquei alguns exemplos aqui no fórum, porém, não consegui resolver ainda meu problema. É o seguinte:

    Tenho um formulário de recibo de pagamento, onde o (prestador de serviços) pode receber até mas de uma vez por mês, porém, só pode ser descotado uma vez por mês determinado imposto(DescV), embora ele possa receber pagamentos mas de uma vez no mesmo mês. Bem, meu sistema está funcionando perfeitamente fazendo tudo certo.

    a grande questão é: ao fazer um novo recibo, preciso saber se daquele (prestador de serviço) já foi recolhido naquele mês o imposto(DescV), se já tiver sido recolhido, não recolhe mais e avisa que já foi recolhido durante aquele mês... se ainda não tiver, faz o desconto.

    nome da tabela é: tblRPA (os mesmos campos do formulário)

    formulário : ReciboRPA

    campos do formulário para verificação: Dt_emissao, Codprest e DescV

    Desde já, agradeço o apoio que sempre tive aqui neste fórum.

    Atenciosamente,
    Cláudio Ramos

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Registro Duplicado dentro de um período Empty Re: [Resolvido]Registro Duplicado dentro de um período

    Mensagem  IvanJr. em 10/8/2019, 15:29

    No evento que registraria o imposto coloque

    Código:
    if dcount("*","tblRPA","Month(Dt_emissao) = " & Month(Me!Dt_emissao) & " and Codprest = " & me!Codprest) > 0 then
      'código sem registrar o imposto
    else
      'código registrando o imposto
    end if


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 01/09/2011

    [Resolvido]Registro Duplicado dentro de um período Empty Registro Duplicado dentro de um período

    Mensagem  claudiojsramos em 10/8/2019, 19:14

    prezado colega IvanJr, o código está retornando com se todos, não importa a data que eu coloque, como se já tivesse sido descontado.

    eu preciso saber se durante o mês a que a Dt_emissao se refere, o prestador ja tenha algum pagamento, se já foi descontado o imposto, o sistema da o alerta, senão o sistema faz o desconta.

    Atenciosamente;
    Cláudio Ramos


    Última edição por claudiojsramos em 10/8/2019, 20:55, editado 1 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Registro Duplicado dentro de um período Empty Re: [Resolvido]Registro Duplicado dentro de um período

    Mensagem  IvanJr. em 10/8/2019, 20:21

    Entendi bem o que queres, mas... Sem o arquivo do banco para análise é difícil resolver pois sempre há algo que se deixa passar na estrutura. Para uma maior precisão na solução do seu problema, anexe aqui seu banco com os objetos envolvidos. Aguardamos.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 01/09/2011

    [Resolvido]Registro Duplicado dentro de um período Empty Registro Duplicado dentro de um período

    Mensagem  claudiojsramos em 11/8/2019, 16:44

    Segue uma parte do banco para fazer os testes.

    Atenciosamente,

    Cláudio Ramos
    Anexos
    [Resolvido]Registro Duplicado dentro de um período AttachmentRecibo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 3 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Registro Duplicado dentro de um período Empty Re: [Resolvido]Registro Duplicado dentro de um período

    Mensagem  IvanJr. em 11/8/2019, 20:09

    Função criada
    Código:
    Private Sub fncChecaDesc()

        Dim curDesconto As Currency
       
        curDesconto = Nz(DMax("DescV", "tblRPA", "format(Dt_Emissao,""mm/yyyy"") = """ & Format(Me!Dt_Emissao.Value, "mm/yyyy") & """ and CodPrest = " & Me!CodPrest.Value), 0)

        If curDesconto = 0 Then
            Call MsgBox("desconto ainda não aplicado")
        Else
            Call MsgBox("desconto já aplicado")
        End If
       
    End Sub

    Evento após atualizar dos controles Dt_Emissao e Codprest usando o código abaixo que verifica se os controles usados como filtros estão preenchidos
    Código:
    If Nz(Me!Dt_Emissao.Value, 0) = 0 Or Nz(Me!CodPrest.Value, 0) = 0 Or (Not Me.NewRecord) Then Exit Sub
       
    Call fncChecaDesc


    Anexos
    [Resolvido]Registro Duplicado dentro de um período AttachmentRecibo_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (122 Kb) Baixado 5 vez(es)


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    claudiojsramos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 01/09/2011

    [Resolvido]Registro Duplicado dentro de um período Empty Registro Duplicado dentro de um período

    Mensagem  claudiojsramos em 12/8/2019, 14:10

    Bom dia a todos do fórum, gostaria de agradecer ao Mestre IvanJr. pela ajuda. funcionou perfeitamente.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    [Resolvido]Registro Duplicado dentro de um período Empty Re: [Resolvido]Registro Duplicado dentro de um período

    Mensagem  IvanJr. em 12/8/2019, 22:31

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Registro Duplicado dentro de um período Empty Re: [Resolvido]Registro Duplicado dentro de um período

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/9/2019, 23:59