oliveira.tadeu

Prezados, algum dos colegas possui alguma função para extrair os dados do XML da NF-e para carregar na base de dados? Se tiver um exemplo já ajuda, pois não sei se o próprio ACBr possui algo do gênero. Obrigado. Tadeu.

Já tentei mas não vai.

Na verdade enviei o xml para analisarem se as tags referente a informação do intermediador estão corretas já que no resto não foi mexido e quando envio uma nota sem intermediador ela vai normalmente. Obrigado.

Boa noite a todos. Estou com o seguinte problema, implementei as novas obrigatoriedades da nota técnica 2020.006. Após implementar fui fazer o teste no ambiente de homologação, debuguei o programa e ele vai bem até o envio, gera o xml mas quando vai enviar para a SEFAZ, trava fica um tempo parado e depois exibe a seguinte mensagem: Erro ao enviar o xml para a SEFAZ. Não me dá retorno com motivo de rejeição na verdade parece que não consegue fazer o envio ou se envia não retorna nenhum erro. Vou anexar aqui o xml gerado, lógico que por razões obvias editei o arquivo e alterei os dados das partes envolvidas. Conto com a costumeira ajuda dos colegas e já agradeço. Atenciosamente, Tadeu 35210608299704000119550120000247231005229258-nfe.xml

Ok, obrigado Tadeu

As demais notas vão normalmente

Fica parado no emissor e não vai simplesmente. O emissor foi construído com base no exemplo do ACBr

Tenho a seguinte situação: vendas por marketplaces, por site da empresa e também direto com o comercial da empresa Nos casos do site e dos marketplaces estou preenchendo conforme descrito abaixo Ide.indPres := pcTeleatendimento; Ide.indIntermed := iiOperacaoComIntermediador; infIntermed.CNPJ := '9999999999999'; //CNPJ do intermediador infIntermed.idCadIntTran := 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; //Nome do intermediador with pag.Add do begin indPag := ipVista; tPag := fpBoletoBancario; vPag := RoundTo(vValor,-2); end; Porém não vai pra SEFAZ, fica travado e não retorna nenhuma rejeição. A informação da instituição de pagamento é obrigatória para esses casos? Desde já agradeço. Atenciosamente, Tadeu Rodrigues de Oliveira.

Bom dia Juliomar, obrigado.

Bom dia, tenho uma duvida: Quando o indIntermed = 0 devo informar infIntermed.CNPJ := '' ou não preciso informar nada? Atenciosamente, Tadeu Rodrigues de Oliveira

Cara não sei se a versão que estou é a antiga mas peguei no mesmo dia do ACBr segue anexo o log, caso seja isso peço a gentileza de me passar o link da versão correta, obrigado. log_Delphi_10.2_Tokyo.txt

Bom dia Sérgio, acho difícil, pois instalei o Fortes Report CE sem problemas, além de outros componentes. O que você sugere que eu faça? Obrigado.

Segue log do instalador em anexo. Obrigado log_Delphi_10.2_Tokyo.txt

Bom dia meus caros, instalei o ACBr no Delphi 10.2 sem problemas com o ACBrInstall_Trunk2. Após a instalação executei o Delphi e ele exibiu a mensagem de que não pode carregar C:\ACBr\Lib\Delphi\LibD25\ACBr_Comum.bpl e depois disso ele exibe a mesma mensagem para os demais pacotes. Acontece que o path acima existe só não existe o arquivo bpl dentro da pasta LibD25. Agradeço desde já pela ajuda dos colegas, obrigado

{ O código abaixo tem as correções necessárias para o seu correto funcionamento, pois o exemplo que acabei de baixar o procedimento abaixo não funcionou corretamente e como se trata de um exemplo acredito que seja interessante atualiza-lo no repositório para que nos próximos download ele venha corrigido. } unit U_Principal; interface uses PNGImage, {Acrescentado para possibilitar o tratamento de arquivos PNG} ... procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject); var Stream: TMemoryStream; ImgArq: String; {Acrescentado vindo do Exemplo do ACBrConsultaCPF} {Jpg: TJPEGImage;} begin {Mantido do código original} Stream:= TMemoryStream.Create; {Código vindo do Exemplo do ACBrConsultaCPF} try ACBrConsultaCNPJ1.Captcha(Stream); ImgArq := ExtractFilePath(ParamStr(0))+PathDelim+'captch.png'; Stream.SaveToFile( ImgArq ); Image1.Picture.LoadFromFile( ImgArq ); EditCaptcha.Clear; EditCaptcha.SetFocus; finally Stream.Free; end; {Código vindo do Exemplo do ACBrConsultaCPF} {Código original Jpg:= TJPEGImage.Create; try ACBrConsultaCNPJ1.Captcha(Stream); Jpg.LoadFromStream(Stream); Image1.Picture.Assign(Jpg); EditCaptcha.Clear; EditCaptcha.SetFocus; finally Stream.Free; Jpg.Free; end; } end;