Ir para conteúdo
  • Cadastre-se

BigWings

Moderadores
  • Total de ítens

    10.105
  • Registro em

  • Última visita

  • Days Won

    155

Tudo que BigWings postou

  1. Não tem diferença no método, apenas quando você carrega o XML o ACBr pode preencher o número do protocolo com os dados do arquivo, enquanto no cancelamento por chave você deve informar o protocolo explicitamente. Tem também uma opção pra atualizar o XML após o cancelamento com o cStat de cancelado, isso hoje não é o correto, pois está alterando o XML, mas alguns ainda usam por comodidade na integração com softwares contábeis.
  2. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
  3. Veja: https://projetoacbr.com.br/fontes/
  4. Isso vai permitir que o Delphi grave os .dcu na pasta "Arquivos de Programas". Válido, mas não é o ideal, na minha opinião.
  5. Aparentemente a modalidade já é incluída como parte da carteira para impressão. Na unit ACBrBoletoFCFR.pas: Field_Carteira.AsString := Banco.MontarCampoCarteira(ListadeBoletos[Indice]); Na unit ACBrBancoBrasil.pas: function TACBrBancoBrasil.MontarCampoCarteira(const ACBrTitulo: TACBrTitulo ): String; begin Result := IfThen(ACBrTitulo.ACBrBoleto.Cedente.Modalidade = '', ACBrTitulo.Carteira, ACBrTitulo.Carteira + '/' + ACBrTitulo.ACBrBoleto.Cedente.Modalidade ); end; A minha sugestão é alterar o FR3 deixando apenas [Titulo.Carteira] nesse campo. Atenção que isso pode interferir na impressão do boleto para outros bancos.
  6. O que está informando para Titulo.Carteira?
  7. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
  8. Não entendi a dúvida, parece tudo correto. O cStat 138 indica que houve documento encontrado com o NSU ou chave da NFe informadas. No caso houve retorno de uma nota na tag docZip, pelo schema é o XML completo da nota, com NSU 48. O conteúdo do XML vem compactado e em base64 mas o componente já faz a extração. Exemplo de código: NFE.DistribuicaoDFePorChaveNFe(UFtoCUF(UF), CNPJCPF, ChaveNFe); if (NFE.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138) and (NFE.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].schema = schprocNFe) then begin GravarXMLNoBD(ChaveNFe, NFE.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[0].XML); Inc(qtdDownload); end
  9. É um problema já corrigido. Atualize os fontes, pelo visto eles estão bem antigos.
  10. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
  11. Note que eu disse que ia salvar os arquivos dos eventos, e não alterar o conteúdo da propriedade.
  12. A regra de validação tem uma observação referente ao regime de IE única, que parece ser o caso. Esse tratamento tem que ser feito do lado da SEFAZ do emitente, se realmente é o caso, entre em contato com eles e reporte o problema.
  13. Se chamar o método de consulta informando True no segundo parâmetro ele já salva os XML em disco dessa forma. Se precisar fazer internamente na aplicação estude os fontes da unit ACBrNFeWebservice, TNFeConsulta.TratarReposta.
  14. Faltou um operador ali entre a primeira e a segunda condição do where.
  15. Se a nota está sendo transmitida, acredito que não tenha nada com o que se preocupar. Mas se quer tirar a dúvida acesse o portal da NFSe da prefeitura e veja se ela disponibiliza o manual de geração do XML ou arquivos de exemplo.
  16. Alguns provedores exigem que a alíquota seja informada dividida por 100. Está tendo algum erro no envio?
  17. Se não tiver só a pasta Lib no library path Win32, pode copiar os caminhos para o do Android.
  18. Veja a propriedade ImprimeDescAcrescItem do componente de impressão.
  19. Provavelmente faltam os caminhos dos fontes do ACBr no Library Path do Delphi para Android. Está com os fontes atualizados com o novo instalador?
  20. Pela forma que o arquivo é lido sempre vai sobrepor o valor do troco ao ler cada pagamento. Então informe o valor troco no último pagamento (ou o mesmo valor para todos).
  21. É compatível desde o D7. Você tem o D2007 instalado na máquina, junto com o Tokyo?
  22. Pra forçar gerar a tag mesmo com valor zero, você pode informar: NFSe.Servico.Valores.ValorIss := NFSe.Servico.Valores.ValorIss + 0.001; // vai gerar com 2 casas no XML, arredondando pra 0.00.
  23. @automacaosamos por favor atualize novamente os fontes e teste.
  24. Reabri o tópico pois a correção gerou uma série de ajustes para compatibilizar com todas as IDE suportadas. @Wanderson Freitas queira por favor atualizar os fontes e testar novamente.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...