none
Função retorna Desconto em % através do parametro RRS feed

  • Pergunta

  • Ola a Todos!
    Tenho uma Tabela com Parametros de Desconto
    Se ele 2.000,00 reais ganha (desconto de parametro de Credito)
    Alguem tem uma idéia de como retornar esse Desconto ,passando o parametro
    Ex.RetornaCredito(txtValor.text)
    La no banco ta assim:
    se txtxvalor =200,00, tem desconto de 15%
    se txtxvalor =400,00, tem desconto de 22%

    Eu queria  Passar o valor pelo textbox e retornar o desconto em %

    Obrigado!!

    sexta-feira, 7 de agosto de 2009 00:05

Respostas

  • No retorno do método você quer retornar "o percentual"? Se eu entendi basta você retornar o valor dividido por 100, 15% = 0,15.

    blog: http://lblima.blogspot.com twitter: http://twitter.com/lblima
    sexta-feira, 7 de agosto de 2009 13:12
    Moderador

Todas as Respostas

  • Regra de 3
    sexta-feira, 7 de agosto de 2009 09:54
  • No retorno do método você quer retornar "o percentual"? Se eu entendi basta você retornar o valor dividido por 100, 15% = 0,15.

    blog: http://lblima.blogspot.com twitter: http://twitter.com/lblima
    sexta-feira, 7 de agosto de 2009 13:12
    Moderador
  • Obrigado Pela Atenção !!
     O seguinte....

    Tenho uma tabela com nome de DescontoBrinde(BrindeID,Descricao,ValorCompra,Porcentagem)
    Essa tabela serve para dar desconto em porcentagem através do valor da compra...Dinamico

    La no form tenho um textbox com o valor da Compra
    O que eu preciso é fazer um loop na tabela DescontoBrinde e comparar o valor do textbox com a linha ValorCompra e pegar a Porcentagem da Da linha e aplicar a regra de 3

    Tentei fazer assim se alguem tiver uma solução melhor por favor postar aqui..

      For i As Integer = 0 To dsDescontoBrinde.Tables(0).Rows.Count - 1
                primeiro = CDec(dsDescontoBrinde.Tables(0).Rows(0).Item("Valor").ToString)
                If CDbl(txtTotalBrinde.Text.ToString) > primeiro Then
                    If CDec(dsDescontoBrinde.Tables(0).Rows(i).Item("Valor").ToString) > CDec(txtTotalBrinde.Text.ToString) And i > 0 Then
                        Label59.Text = "Porcentagem em Dinheiro (" &  dsDescontoBrinde.Tables(0).Rows(i - 1).Item("Porcento").ToString & "%)"
                        totalcomissao = CDec(txtTotalBrinde.Text.ToString) * CDec(dsDescontoBrinde.Tables(0).Rows(i - 1).Item("Porcento").ToString)
                        txtcomissao.Text = Format(totalcomissao, "c") / 100
                        negar = False
                        Brinde(CInt(dsDescontoBrinde.Tables(0).Rows(i - 1).Item("BrindeID").ToString))
                        Exit For
                    Else
                        If i = totallinhas - 1 Then 'ver se chegou na ultima linha do Ds
                            Label59.Text = "Porcentagem em Dinheiro (" & dsDescontoBrinde.Tables(0).Rows(i).Item("Porcento").ToString & "%)"
                            totalcomissao = CDec(txtTotalBrinde.Text.ToString) * CDec(dsDescontoBrinde.Tables(0).Rows(i).Item("Porcento").ToString)
                            txtcomissao.Text = Format(totalcomissao, "c") / 100         
                            Brinde(CInt(dsDescontoBrinde.Tables(0).Rows(i).Item("BrindeID").ToString))
                            Exit For
                        End If
                    End If
                Else
                    negar = True
                    Label59.Text = "Porcentagem em Dinheiro (0)%)"
                    Exit For
                End If
            Next
            dsbrinde = Nothing
            If negar = True Then
                MsgBox("Não Tem Premiação Para Esse valor!!")
            End If
    sexta-feira, 7 de agosto de 2009 14:04