Descrição

Este Ponto de Entrada  permite customizar a mensagem do cupom fiscal para Lei da Transparência 12.741/2012.

Observações

Consulte o Boletim Técnico: LOJA_BT_Carga_Tributária_Cupom_THFDIG, para versão 10 e o Boletim Técnico:  LOJA_BT_Carga_Tributária_Cupom_THHMX1, para versão 11.

Para implementação por Ente Tributário ( parâmetros 3, 4 e 5 ), consulte o Boletim Técnico:  LOJA_BT_Lei_Impostos_Ente_Tributario_TROQMW  (versão 11).

Exemplos:

User Function LJ7078()

Local nVlrTotal  := ParamIXB[1] // Valor Total da Venda
Local nTotaImp := ParamIXB[2] // Valor Total dos Impostos
Local nTotFed   := ParamIXB[3] // Valor Total do Imposto Federal    
Local nTotEst    := ParamIXB[4] // Valor Total do Imposto Estadual   
Local nTotMun  := ParamIXB[5] // Valor Total do Imposto Municipal 

Local nDecimais    := MsDecimais(1)
Local npercVenda := 0
Local npercFed     := 0
Local npercEst      := 0
Local npercMun    := 0
Local cMsgCupom := ""
Local _CTRL := Chr(10)+Chr(13) //Pula linha

npercVenda := noRound( (nTotaImp/nVlrTotal)*100,nDecimais)
npercFed := noRound( (nTotFed/nVlrTotal) *100,nDecimais)
npercEst := noRound( (nTotEst/nVlrTotal) *100,nDecimais)
npercMun := noRound( (nTotMun/nVlrTotal) *100,nDecimais)

cMsgCupom := "Tributos -> R$ " + Alltrim(Str(nTotaImp)) +" (" + Alltrim(Str(npercVenda)) +"%)" + _CTRL

// ou para a implementação por Ente Tributário

cMsgCupom := ' Tributos Fed R$ ' + Alltrim(Str(nTotFed)) + ' Est R$ ' + Alltrim(Str(nTotEst)) + ' Mun R$ ' + Alltrim(Str(nTotMun)) + _CTRL

Return cMsgCupom

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros


NomeTipoDescrição
ExpN1NuméricoValor Total da Venda 
ExpN2NuméricoValor Total dos Impostos
ExpN3NuméricoValor Total do Imposto Federal
ExpN4NuméricoValor Total do Imposto Estadual
ExpN5NuméricoValor Total do Imposto Municipal


Retorno

Caractere - Mensagem a ser impressa no cupom fiscal, com os valores de impostos recalculados pelo Ponto de Entrada. A mensagem não poderá ter mais que 55 caracteres, que é o limite da linha da Impressora Fiscal.

Programa Fonte

LOJA701D.PRW ou FRTA271G.PRW