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]Calculo de Icms e Ipi.

    Compartilhe
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 577
    Registrado : 05/02/2011

    Calculo de Icms e Ipi.

    Mensagem  Samuel Ribeiro em 9/9/2013, 14:24

    Bom dia Senhores.

    Como em anexo estou enviando um Print Screen da tela onde os usuários vão fazer uma venda. Se vocês observarem existe os campos, Icms, Ipi, Valor Icms e Valor Ipi. Eu queria um modo de que a partir da venda feita pelo Usuário nestes campos aparecessem as alíquotas e o valor dos impostos nos campos.

    Alguém pode me ajudar?
    Anexos
    Print_Screen_Vendas.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (217 Kb) Baixado 11 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Cláudio Machado em 9/9/2013, 14:59

    Bom dia Samuel.
    Este valores serão unitários para cada produto, conforme a tela que postou?

    Se for, basta efetua os cálculos, exemplo:

    ICMS:

    =[Valor Total]*[18%]

    E assim por diante.

    Só um pitaco, não seria ideal exibir estes valores no final da venda, ou seja baseado no valor total da venda?

    Ou você que que apareça somente as alíquotas destes campos?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 577
    Registrado : 05/02/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Samuel Ribeiro em 9/9/2013, 15:18

    Bom dia Claudio Machado.

    Pelo modelo de nota fiscal que vou usar no sistema aparece todas estas informações, ja tentei várias formas de cálculos aqui e não funciona. Ai então vi um Exemplo que o Criquio postou a uma tempo atrás de nome ICMS e me veio esta ideia de automatizar as alíquotas e valores. Veja o exemplo do Criquio em anexo.
    Anexos
    ICMS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 27 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Cláudio Machado em 9/9/2013, 15:23

    Bem pelo entendi, você quer repassar estas alíquotas para os campos respectivos, é isso?

    Acredito, que no cadastro do produto você tenha estes campos não?

    Se sim, pode fazer direto pelo combo de produtos, assim que você escolher o produto, ele automaticamente coloca os valores das alíquotas.

    Tipo:

    me.ICMS = me.ComboProduto.Column(3) 'Onde 3 é o nº da coluna onde encontra-se este valor ICMS da tabela produtos.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 577
    Registrado : 05/02/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Samuel Ribeiro em 11/9/2013, 15:07

    Bom dia Claudio Machado..

    Estou enviando um print screen da tela de cadastro de produtos para você ver como ela foi montado, em uma caixa de combinação chamada cmbAliquotaIcmsProd seleciono a percentagem do Icms, no no campo ValorIcms quero que um código mostre o valor em cima da Valor de venda do produto que se encontra também na tela de cadastro.

    Espero que você tenha entendido.
    Anexos
    Print_Screen_Produtos.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (247 Kb) Baixado 14 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Cláudio Machado em 11/9/2013, 20:56

    Bem como não sei se os valores da sua combo cmbAliquotaIcmsProd verm de uma tabela, descrevo o código abaixo, coloque no apos atualizar da sua combo.

    1º exemplo - Efetua a soma do valor extraído do ICMS ao valor de venda.

    [ValorIcms] = [ValorVenda] * cmbAliquotaIcmsProd.Column(0) / 100 + [ValorVenda]


    2º exemplo - Extrai o valor referente ao ICMS do valor da venda.

    [ValorIcms] = [ValorVenda] * cmbAliquotaIcmsProd.Column(0) / 100


    Espero que ajude.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 577
    Registrado : 05/02/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Samuel Ribeiro em 11/9/2013, 21:18

    É meu Amigo.

    Não esta querendo funcionar, veja o código:

    Código:
    Private Sub ValorIcms_AfterUpdate()

    Me.ValorIcms = Me.VlrVenda_Pro * Me.cmdAliquotaIcmsProd.Column(0) / 100

    End Sub


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Cláudio Machado em 12/9/2013, 00:26

    Samuel.

    Coloque o código no "Após Atualizar" da sua combo cmdAliquotaIcmsProd.

    Têm que colocar exatamente como descrevi:

    [ValorIcms] = [VlrVenda_Pro] * cmbAliquotaIcmsProd.Column(0) / 100


    Outra coisa, sua combo não pode conter o símbolo de %, senão o sistema não calcula.

    Testei aqui e funciona perfeitamente.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 577
    Registrado : 05/02/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Samuel Ribeiro em 12/9/2013, 13:04

    Bom dia Cláudio Machado.

    Esta fazendo o Calculo, só que o valor do Ipi, por ter uma alíquota menor esta dando um valor maior que o do Icms.
    Veja o código:

    Código:
    Private Sub cmbAliquotaIcmsProd_AfterUpdate()
    [ValorIcms] = [VlrVenda_Pro] * cmbAliquotaIcmsProd.Column(0) / 100

    End Sub

    Private Sub cmbAliquotaIpiProd_AfterUpdate()
    [ValorIpi] = [VlrVenda_Pro] * cmbAliquotaIpiProd.Column(0) / 100

    End Sub


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 577
    Registrado : 05/02/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Samuel Ribeiro em 12/9/2013, 13:57

    Ok Cláudio Machado deu certo.
    Foi só criar uma tabela para cada Imposto e conservar o código acima.

    Muito Obrigado.

    Agora é só preocupar de como copiar estes dados para o formulário de vendas.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: [Resolvido]Calculo de Icms e Ipi.

    Mensagem  Cláudio Machado em 12/9/2013, 17:00

    Boa tarde. Samuel.

    Que bom que conseguiu, fico feliz.

    O fórum agradece o retorno.cheers 


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: 16/8/2018, 04:52