Pesquisar na Comunidade

Novo tópico criado a partir de eu setei essa propriedade no acbrnfe: acbrnfe1.DANFE.ImprimirTributos:=false; e mesmo assim o tributo continua aparecendo na danfe, vide o anexo.

Boa tarde Gostaria de solicitar uma melhoria no componente ACBrNFeDANFeESCPOS o qual possui a opcao TributosSeparadamente que faz com que a impressao da NFCe sai com os tributos informados da maneira cheia ou entao separados, sendo que se for separado seria interessante apenas apresentar a mensagem caso as variaveis fossem populadas vTribEst vTribFed e vTribMun, mas caso elas continuassem com valor zerado, nada iria aparecer e ficaria livre para que o desenvolvedor incluisse as linhas da sua maneira assim como era feito antigamente. Isso me ajudaria pois ja tenho a mensagem pronta para impressao, so falta que o componente respeite essa opcao. Acredito que dessa forma nao irá prejudicar nenhum usuario do componente e ainda trara uma terceira opcao que é ao inves de poder escolher junto e separadamente, será separado mas com a maneira que o desenvolvedor colocar. Hoje o codigo no fonte ACBrNFeDANFeESCPOS .pas se encontra é o seguinte procedure TACBrNFeDANFeESCPOS.GerarTotalTributos; var MsgTributos : String; begin if (vTribFed+vTribEst+vTribMun) > 0 then begin MsgTributos:= 'Tributos Incidentes Lei Federal 12.741/12 - Total R$ %s Federal R$ %s Estadual R$ %s Municipal R$ %s'; FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Format(MsgTributos,[FormatFloatBr(vTribFed + vTribEst + vTribMun), FormatFloatBr(vTribFed), FormatFloatBr(vTribEst), FormatFloatBr(vTribMun)]),FPosPrinter.ColunasFonteCondensada)); end else begin if FpNFe.Total.ICMSTot.vTotTrib > 0 then begin MsgTributos:= 'Tributos Totais Incidentes(Lei Federal 12.741/12): R$ %s'; FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Format(MsgTributos,[FormatFloatBr(FpNFe.Total.ICMSTot.vTotTrib)]), FPosPrinter.ColunasFonteCondensada)); end; end; end; A minha sujestao é que seja incluida essa linha de teste que coloquei em vermelho para que funcione da maneira que sujeri acima procedure TACBrNFeDANFeESCPOS.GerarTotalTributos; var MsgTributos : String; begin if TributosSeparadamente = True then begin if (vTribFed+vTribEst+vTribMun) > 0 then begin MsgTributos:= 'Tributos Incidentes Lei Federal 12.741/12 - Total R$ %s Federal R$ %s Estadual R$ %s Municipal R$ %s'; FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Format(MsgTributos,[FormatFloatBr(vTribFed + vTribEst + vTribMun), FormatFloatBr(vTribFed), FormatFloatBr(vTribEst), FormatFloatBr(vTribMun)]),FPosPrinter.ColunasFonteCondensada)); end end else begin if FpNFe.Total.ICMSTot.vTotTrib > 0 then begin MsgTributos:= 'Tributos Totais Incidentes(Lei Federal 12.741/12): R$ %s'; FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Format(MsgTributos,[FormatFloatBr(FpNFe.Total.ICMSTot.vTotTrib)]), FPosPrinter.ColunasFonteCondensada)); end; end; end; Se for possivel, ficaria muito grato que essa alteracao fosse feita no componente para tornar mais flexivel o desenvolvimente e ainda mantendo o padrao do manual. Desde ja agradeço Att, Walmir Jose Ribeiro Junior [email protected]