NFE - Regra Suframa

'calcula a bonificacao

SuframaValBonif = ValorTotal * (txtSuframaAliqBonif / 100)

'calcula a base para fins dos descontos SEFAZ e PIS/COFINS

BonificacaoBaseICMS = ValorTotal - SuframaValBonif

'desconto da SEFAZ

SuframaValDescSefaz.Text = BonificacaoBaseICMS * (SuframaAliqDescSefaz / 100)

'desconto PIS/COFINS

SuframaValDescPISCofins.Text = BonificacaoBaseICMS * (SuframaAliqDescPISCofins / 100)]