Pesquisar na Comunidade
Showing results for tags 'vipidevol'.
Encontrado 3 registros
-
Bom dia a todos. Venho recorrer aos amigos com a seguinte situação. Após uma atualização dos fontes do ACBr percebi que a DANFe do Fortes começou a destacar o IPIDevol no cabeçalho da nota junto ao quadro "Calculo do Imposto" no primeiro momento fiquei animado com esta implementação pois alguns clientes haviam solicitado isso. Porém após passar versão aos clientes vários clientes que geram nota de devolução para industria estão afirmando que a industria não aceita a DANFe da nota com este campo IPIDevol... no caso eles me pedem para que o IPIDevol continue aparecendo no XML porém não na DANFe. A minha dúvida é a seguinte, existe alguma propriedade nas configurações da DANFe para ocultar o IPIDevol da impressão? Caso não exista, seria do interesse do ACBr contemplar essa propriedade, ou vai contra as regras? Desde já agradeço a atenção de todos.
-
Pessoal! tive que implementar a impressao do vIPIDevol, no campo DESPESAS ACESSORIAS do danfe, conforme nota tecnica, para uso em emissao de notas de devolucao, emitidas por empresas do simples nacional, quando existir IPI a ser devolvido! modifiquei a danfe no fortes, segue correção para analise! aqui pra mim, funcionou perfeitamente! procedure TfrlDANFeRLRetrato.Imposto; var LarguraCampo: integer; begin with FNFe.Total.ICMSTot do begin rllBaseICMS.Caption := FormatFloatBr(VBC ); rllValorICMS.Caption := FormatFloatBr(VICMS ); rllBaseICMSST.Caption := FormatFloatBr(VBCST ); rllValorICMSST.Caption := FormatFloatBr(VST ); rllTotalProdutos.Caption := FormatFloatBr(VProd ); rllValorFrete.Caption := FormatFloatBr(VFrete); rllValorSeguro.Caption := FormatFloatBr(VSeg ); rllDescontos.Caption := FormatFloatBr(VDesc ); rllAcessorias.Caption := FormatFloatBr(VOutro + vIPIDevol); // <= inclusao do valor do vIPIDevol rllValorIPI.Caption := FormatFloatBr(VIPI ); rllTotalNF.Caption := FormatFloatBr(VNF ); Se tiverem outra sugestao, ou posicionamento melhor para este, comentem! Abraços ACBrNFeDANFeRLRetrato.pas ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLRetrato.dfm ACBrNFeDANFeRLPaisagem.dfm
- 19 replies
-
- vipidevol
- acbrdanferlretrato
- (e 3 mais)
-
Estava com problema no envio de NFe de devolução em meus clientes na versão 4.0, eu preenchia o campo no componente mas não estava enviando as informações de ipi de devolução no xml, debugando o componente achei o ponto que não repassava o valor para o XML, alterei aqui no componente e gostaria de sugerir essa correção, para que em novas versões possa sair isso corrigido para o caso de mais alguém precisar. Segue abaixo parte do fonte onde alterei aqui e funcionou. dentro da pasta Fontes\ACBrDFe\ACBrNFe\PCNNFe no arquivo pcnNFe.pas na procedure TICMSTot.Assign(Source: TPersistent); estava assim: if Source is TICMSTot then begin vBC := TICMSTot(Source).vBC; vICMS := TICMSTot(Source).vICMS; vICMSDeson := TICMSTot(Source).vICMSDeson; vFCPUFDest := TICMSTot(Source).vFCPUFDest; vICMSUFDest := TICMSTot(Source).vICMSUFDest; vICMSUFRemet := TICMSTot(Source).vICMSUFRemet; vBCST := TICMSTot(Source).vBCST; vST := TICMSTot(Source).vST; vProd := TICMSTot(Source).vProd; vFrete := TICMSTot(Source).vFrete; vSeg := TICMSTot(Source).vSeg; vDesc := TICMSTot(Source).vDesc; vII := TICMSTot(Source).vII; vIPI := TICMSTot(Source).vIPI; vPIS := TICMSTot(Source).vPIS; vCOFINS := TICMSTot(Source).vCOFINS; vOutro := TICMSTot(Source).vOutro; vNF := TICMSTot(Source).vNF; vTotTrib := TICMSTot(Source).vTotTrib; vFCP := TICMSTot(Source).vFCP; vFCPST := TICMSTot(Source).vFCPST; vFCPSTRet := TICMSTot(Source).vFCPSTRet; end else inherited; e deixei assim: if Source is TICMSTot then begin vBC := TICMSTot(Source).vBC; vICMS := TICMSTot(Source).vICMS; vICMSDeson := TICMSTot(Source).vICMSDeson; vFCPUFDest := TICMSTot(Source).vFCPUFDest; vICMSUFDest := TICMSTot(Source).vICMSUFDest; vICMSUFRemet := TICMSTot(Source).vICMSUFRemet; vBCST := TICMSTot(Source).vBCST; vST := TICMSTot(Source).vST; vProd := TICMSTot(Source).vProd; vFrete := TICMSTot(Source).vFrete; vSeg := TICMSTot(Source).vSeg; vDesc := TICMSTot(Source).vDesc; vII := TICMSTot(Source).vII; vIPI := TICMSTot(Source).vIPI; vIPIDevol := TICMSTot(Source).vIPIDevol; vPIS := TICMSTot(Source).vPIS; vCOFINS := TICMSTot(Source).vCOFINS; vOutro := TICMSTot(Source).vOutro; vNF := TICMSTot(Source).vNF; vTotTrib := TICMSTot(Source).vTotTrib; vFCP := TICMSTot(Source).vFCP; vFCPST := TICMSTot(Source).vFCPST; vFCPSTRet := TICMSTot(Source).vFCPSTRet; end else inherited; pcnNFe.pas