MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Rateio em valor do desconto

    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 255
    Registrado : 31/08/2012

    [Resolvido]Rateio em valor do desconto Empty [Resolvido]Rateio em valor do desconto

    Mensagem  Chamon Consultoria 17/5/2021, 20:27


    Boa tarde!

    Bd em Access 2010.

    O objetivo é ajustar a função "RateiaDesconto" para que a soma do campo "Desconto" da tabela "zzz_tbl_VendasItens" ("txtDescSistema") seja exatamente igual ao valor do desconto informado no campo "txtDescProd". Porém, em alguns casos como no exemplo em anexo, ocorre diferença.

    Obs: O percentual de desconto de cada item é proporcional ao valor do item em relação ao valor total dos produtos (campo: "txtMERCADORIAS").

    Como resolver?

    Desde já agradeço!


    Anexos
    [Resolvido]Rateio em valor do desconto AttachmentDESCONTO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 10 vez(es)
    avatar
    Juliocsar
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 10/02/2013

    [Resolvido]Rateio em valor do desconto Empty Re: [Resolvido]Rateio em valor do desconto

    Mensagem  Juliocsar 29/6/2021, 23:02

    A diferença do desconto eu joguei no item com maior valor total, existe um erro também nos tipos de campos If xTotal <> txtDescProd, mesmo que os valores pareçam o mesmo eles não são pois, numerico é diferente de texto, então por isso converti o campo do tipo texto para numerico para ser possivel fazer a comparação, ficando assim:


    Private Sub RateiaDesconto()

       Dim xDescontoRateio, xItem, xTotal, xDescontoResiduo
       Dim xPercentual
       Dim ValorMaiorPedido As Double

       Set dbs = CurrentDb
       strSQL = "SELECT * FROM zzz_tbl_VendasItens WHERE NUMEROPEDIDO = " & "'" & txtNUMEROPEDIDO & "'"
       Set rst = dbs.OpenRecordset(strSQL)

       xTotal = 0

       Do While Not rst.EOF
           xItem = rst("ITEM")
           xPercentual = txtDescProd / txtMERCADORIAS * 100
           xDescontoRateio = Format(rst("TOTAL") * (xPercentual) / 100, "##,##0.00")

           strSQL = "UPDATE zzz_tbl_VendasItens set DESCONTO = '" & xDescontoRateio & "'"
           strSQL = strSQL & " WHERE NUMEROPEDIDO = " & "'" & txtNUMEROPEDIDO & "'"
           strSQL = strSQL & " AND ITEM = " & "'" & xItem & "'"
           Workspaces(0).Databases(0).Execute strSQL
           rst.MoveNext

           xTotal = xTotal + xDescontoRateio

       Loop
       
       
    'Jogar a Diferença no Item com Maior Valor
    If xTotal <> CDbl(txtDescProd) Then
    ValorMaiorPedido = DMax("Total", "zzz_tbl_VendasItens") * 100
    ID_Registro = DLookup("ID_Pedido", "zzz_tbl_VendasItens", "Total*100 = " & ValorMaiorPedido)
    xDescontoResiduo = Format((txtDescProd - xTotal), "##,##0.00")
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE zzz_tbl_VendasItens SET DESCONTO = [Desconto]+ '" & xDescontoResiduo & "' WHERE ID_PEDIDO=" & ID_Registro, -1
    DoCmd.SetWarnings True
    xTotal = xTotal + xDescontoResiduo
    End If
       

       If xTotal <> CDbl(txtDescProd) Then
           MsgBox "Há diferença no valor do desconto", vbCritical, "Desconto"
       End If

       txtDescSistema = xTotal
       txtDifValor = txtDescProd - txtDescSistema
       txtValorTotal2 = txtMERCADORIAS - txtDescSistema

       rst.Close

       Me.Requery

    End Sub
    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 255
    Registrado : 31/08/2012

    [Resolvido]Rateio em valor do desconto Empty Re: [Resolvido]Rateio em valor do desconto

    Mensagem  Chamon Consultoria 5/7/2021, 03:06

    Juliocsar,

    Ficou excelente. Parabéns!

    Muito obrigado e sucesso!!!

    Abraço

    Juliocsar gosta desta mensagem


      Data/hora atual: 29/7/2021, 12:32