Adhelmar Rondon

18 Abril

Seria interessante, fazer um aplicativo a parte ou uma DLL usando o ACBrBoleto com um Delphi mais novo, assim continuaria usando o seu sistema em Delphi 5

4 Abril

14 minutos atrás, amorimmsa disse:

Qual as posições inicial e final neste aquivo que você anexou aqui na conversa pra este campo EMV?

Então não sei a posição, porque pego do componente ACBrBoleto.QrCode.EMV

4 Abril

24 minutos atrás, amorimmsa disse:

O EMV que você diz é a combinação dos campos ChavePIX/URL + TXID ou é um campo denominado EMV mesmo? Se for um campo chamado EMV mesmo, qual as posições dele no arquivo retorno?

é o campo EMV mesmo, quando você ler o retorno, salve esse EMV no seu banco, e assim você consegue emitir o boleto com o qrcode, lembrando que é um campo grande

4 Abril

3 minutos atrás, amorimmsa disse:

Olá Adhelmar! Espero que esteja bem.
Amigo, veja se pode me ajudar por favor.
Atualmente não uso nenhuma ferramenta ACBr, mas estou implementando em meu sistema a impressão de cobrança bradesco com qrcode. Estou seguindo a linha que você mencionou, de trabalhar com arquivo remessa/retorno no layout cnab400. Porém a primeira dúvida é em relação a obrigatoriedade de enviar no remessa informações da chave pix. Pelo manual que tenho, basta o cedente contratar este serviço junto ao bradesco, que a partir daí todos os arquivos retorno virão com as informações para geração da imagem do qrcode nas cobranças. Outra coisa é que dei uma olhada no arquivo retorno anexado à discussão e vi que o número de identificação do registro referente ao qrcode está como '4'. No manual que tenho é '6'. Será que estou com manual errado. Agradeço se puder dar seu parecer.

Link do manual que tenho:
https://drive.google.com/file/d/1fW63PX7KysxvNjZq5DrYvPc876XQ-dyb/view?usp=drive_link

Eu estou usando atualmente o CNAB 400 e não o 240, eu passo o tipo da chave e a chave, porque não sei qual é o default do Bradesco, no retorno é devolvido EMV, com esse campo, a impressão do boleto sai com o qrcode, basta informar esse campo em cada título e emitir o boleto

2 Abril

6 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça nos testes.

No programa exemplo tem um botão que exemplifica o uso do método ConsultarLinkNFSe.

Muito grato mais uma vez pela sua ajuda Ítalo

1 Abril

8 minutos atrás, Juliomar Marchetti disse:

cria um helpers no dephi do componente e adiciona o que tu deseja

É que eu consegui foi pelo internetexplorer.application de processar o site e mandar imprimir, mais no caso teria que ter sempre uma impressora pdf como padrão e também eu não consegui configurar o caminho e nome do pdf

1 Abril

4 minutos atrás, Italo Giurizzato Junior disse:

Bom dia Adhelmar,

Infelizmente fazer essa automatização não vai ser possível.

É eu sei, é mais complexo mesmo tentei com iternetexplorer, mais da mensagem DANFE salva com sucesso, mais não salva em lugar nenhum

acho que iria funcionar se todos os computadores tivesse pdf creator como padrão, mais aí ficaria ruim

1 Abril

20 horas atrás, Italo Giurizzato Junior disse:

Bom dia Adhelmar,

Veja o arquivo que você mesmo anexou, me parece ser um XML de exemplo de um retorno com sucesso.

<GeraPDFNFSeResposta>
	<NumeroNfse>1</NumeroNfse>
	<Prestador>05198313000110</Prestador>
	<Tomador>99999999999999</Tomador>
	<Link>https://www.geisweb.net.br/modelo/nfse/tmp/NFSEyO0MYEDc8DsHt7e2mTG+IJkEl6w=.pdf</Link>
	<Msg>PDF gerado com sucesso.</Msg>
</GeraPDFNFSeResposta>

Note que não tem nenhuma tag com o conteúdo do PDF e sim uma tag com um link para ter acesso ao PDF.

Abaixo temos o Schema referente ao Retorno.

<xs:schema attributeFormDefault="unqualified" elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">
  <xs:element name="GeraPDFNFSeResposta">
    <xs:complexType>
      <xs:sequence>
        <xs:element type="xs:string" name="NumeroNfse"/>
        <xs:element type="xs:string" name="Prestador"/>
        <xs:element type="xs:string" name="Tomador"/>
          <xs:element type="xs:string" name="Link"/>
          <xs:element type="xs:string" name="Msg"/>
                           <xs:element name="Msg" maxOccurs="unbounded" minOccurs="1">
                              <xs:complexType>
                                 <xs:sequence>
                                    <xs:element type="xs:int" name="Erro"/>
                                    <xs:element type="xs:string" name="Status"/>
                                 </xs:sequence>
                              </xs:complexType>
                           </xs:element>
      </xs:sequence>
    </xs:complexType>
  </xs:element>
</xs:schema>

O Elemento "Msg" que pode conter diversas ocorrências e possui os elementos Erro e Status é gerado quando ocorre algum erro ao solicitar o PDF.

Mais no caso eu consigo fazer o download, porque eu fiz isso com Itupeva, vem o link e eu faço o download do pdf, é que se tivesse como com o link vem da página PHP de executar o link e salvar em pdf automático, sem o usuário precisar acessar a página ficaria muito legal, mais desde de já agradeço, pelo seu tempo precioso em me ajudar

30 Março

18 horas atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Pelo arquivos em anexo esse serviço não retorna o PDF do DANFSE e sim um link.

Neste caso temos um outro método chamado: ConsultarLinkNFSe, cujo objetivo é retornar o link da NFS-e.

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-5276

Nossa que estranho, porque na documentação vem como baixapdf, o link eu já pego quando a nota é emitida, pelo que o suporte disse esse método seria a baixa do pdf, eu tentei testar pelo postman mais não consegui

28 Março

51 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Precisa ver se no webservice do provedor possui um serviço para baixar o PDF da nota, caso afirmativo verificar se é a mesma URL utilizada para os demais serviços ou é um especifica.

O componente ACBrNFSeX já tem um método chamado ObterDANFSE cujo retorno é o PDF do DANFSE. Esse método é utilizado pelo provedor PadraoNacional.

Como você pode ver já temos mais do que meio caminho andado.

Boa tarde, Italo

obrigado por me ajudar, o suporte me passou essa url:

https://geisweb.net.br/homologacao/modelo/webservice/GeisWebServiceImpl.php

me passaram esses schemas e xml em anexo

baixa_nfse_pdf.xsd retorno_baixa_nfse_pdf_sucesso_erro.xsd GeraPDFNFSe.xml GeraPDFNFSeRespostaErro.xml GeraPDFNFSeRetornoSucesso.xml

27 Março

Em 26/03/2024 at 15:51, Adhelmar Rondon disse:

Olá, amigos do projeto ACBr

No GeisWeb tem baixaPDF, será que seria possível implementar?

Tem o métodos baixa_nfse_pdf.xsd e retorno_baixa_nfse_pdf_sucesso_erro.xsd, mais não sei como implementar

26 Março

Olá, amigos do projeto ACBr

No GeisWeb tem baixaPDF, será que seria possível implementar?

21 Março

2 minutos atrás, Fabio Viana disse:

FCTeRetornoSincrono.Leitor.Arquivo := UTF8ToNativeString(ParseText(AXML));
FCTeRetornoSincrono.LerXml;

Reinstalei o ACBR e ele gerou um novo ACBrCTeWebServices.dcu

Mas mesmo assim o retorno está com os carcteres trocados.

Precisa instalar o ACBr

21 Março

sei que esse tópico é outro, mais eu tive que usar no retorno do acbrcep em todos os campos UTF8ToNativeString, porque os caracteres estavam vindo estranho e percebi que retorno da NFe também estão vindo assim

20 Março

54 minutos atrás, Juliomar Marchetti disse:

normal. são servidores diferentes, ambientes diferentes

É esta uma novela essa nota com difal, cada hora um erro

20 Março

22 minutos atrás, Juliomar Marchetti disse:

no caso teria que então entrar em contato com eles ou com o contador para saber o porque não está aceitando

É então estranho, só se em homologação o sefaz não atualizou

20 Março

5 minutos atrás, Juliomar Marchetti disse:

ao que parece nem chega a sair de seu micro validando no schema local

não atualizou os schemas nem nada nesse sentido

ou é o retorno já do sefaz esse?

Esse retorno é do sefaz, tem a ver com a alíquota, eu deixei com 12% e passou, apesar de falar que para o Paraná é 19.5, mais o sefaz retorna com erro, apesar que deveriam ter um erro melhor do que esses de atomic type

20 Março

Bom dia

estou enviando nota fiscal em homologação com DIFAL, e esta dando o erro abaixo, alguém passou por isso, até sexta feira eu estava enviando normal

11 Março

Meu contato 11 93710-4384

Se quiser posso desenvolver e fica com os fontes

8 Março

36 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Favor anexar a unit que você alterou para que possamos validar.

Não baixa essa unit, eu acabei pegando campo errado, e o cliente disse que pelo fast esta faltando algumas informações, e Fortes, ficou grande e sempre da duas páginas

8 Março

20 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Adhelmar,

Favor anexar a unit que você alterou para que possamos validar.

segue anexo da unit, precisa analisar não sei se atualizei de forma correta

GeisWeb.LerXml.pas

8 Março

Olá

Boa tarde a todos do projeto ACBr

Eu alterei o motor do relatório da NFSe, para o Fast, porque o Fortes, esta gerando mais de uma pagina, com isso eu tive que alterar a rotina abaixo da GeisWeb, porque só estava mostrando o código do serviço pelo Fast

se puderem adequar essa rotina, agradeço muito

gratidão

procedure TNFSeR_GeisWeb.LerServico(const ANode: TACBrXmlNode);
var
AuxNode: TACBrXmlNode;
Ok: Boolean;
begin
AuxNode := ANode.Childrens.FindAnyNs('Servico');

if AuxNode <> nil then
begin
    with NFSe.Servico do
    begin
      LerValores(AuxNode);

      ItemListaServico := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoServico'), tcStr);
      xItemListaServico := ItemListaServicoDescricao(ItemListaServico);
      Discriminacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('Discriminacao'), tcStr);
      Discriminacao := StringReplace(Discriminacao, FpQuebradeLinha,
                                      sLineBreak, [rfReplaceAll, rfIgnoreCase]);
      xItemListaServico := Discriminacao;
      VerificarSeConteudoEhLista(Discriminacao);

      CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('MunicipioPrestacaoServico'), tcStr);
      CodigoTributacaoMunicipio := ItemListaServico;
      xCodigoTributacaoMunicipio := xItemListaServico;
      TipoLancamento := StrToTipoLancamento(Ok, ObterConteudo(AuxNode.Childrens.FindAnyNs('TipoLancamento'), tcStr));

NFSe.SituacaoNfse := snNormal;

      if TipoLancamento = tlCancelado then
        NFSe.SituacaoNfse := snCancelado;
    end;
end;
end;

7 Março

25 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde @Adhelmar Rondon,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Boa tarde @Italo Giurizzato Junior

Atualizei e testei, grato

6 Março

2 horas atrás, Rodrigo Cávoli disse:

Juliomar, por favor voce consegue me informar se essa API Online faz parte do pacote ACBRPro? Ou é um item adicional ? Sabe dizer o valor?

Vou fazer assim gerar no Bradesco o pix e depois no CNAB 240 enviar na remessa os dados do pix, pelo segmento Y, assim emitir o boleto sem esperar o retorno da remessa, esperando meu cliente providenciar as credenciais pra gerar o pix

6 Março

1 hora atrás, Adhelmar Rondon disse:

Ítalo, quando vai ler retorno dos xmls da GeisWeb

loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument)));

XML "xmlParseDoc" EntityRef: expecting ';'

Eu achei o que é o retorno tem uma tag LinkConsulta e nessa tag, mesmo depois da rotina tratar o retorno fica & porque o conteúdo dessa tag é link da danfse, com isso o xmlParseDoc, se perde e da erro, temporariamente estou removendo esses & dessa tag para o meu cliente conseguir emitir a nota

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Adhelmar Rondon

Sobre nós...

Informação Importante