Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Eduardo Suruagy

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    31

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Eduardo Suruagy

    QrCode - PIX no Boleto do Bradesco

    em Boleto

    Postado

    50 minutos atrás, Daniel InfoCotidiano disse:

    @Eduardo Suruagy
    Bom dia !
    Criamos a função para ler baseado na documentação, mas infelizmente não temos o arquivo para testar.
    Então subimos para o SVN se puder testar qdo estiver com o arquivo.
    Atualize seus fontes e rode o instalador.

    Bom dia, muito obrigado, vou comunicar ao cliente e esperar ele me falar alguma coisa. Qualquer coisa eu aviso a vc!!

    Problema geração de remessa do banco SICOOB-756

    em Boleto

    Postado

    Boa tarde, acho que a geração de remessa do banco SICOOB-756 esteja com erro.
    Fiz uma alteração do valor dos juros e o código do movimento era pra ser o 12, 
    estou passando o valor dessa forma: OcorrenciaOriginal.Tipo := ACBrBoleto.Banco.CodOcorrenciaToTipoRemessa('12');
    o acbr entra na função:

    function TACBrBancoob.CodOcorrenciaToTipoRemessa(const CodOcorrencia: Integer): TACBrTipoOcorrencia; 

    e pega o valor errado:

    12 : Result:= toRemessaAlterarDadosPagador; {Alteração de Pagador}

    Quando mando gerar o arquivo ele entra na função:

    function TACBrBancoob.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String;

    ele pega o valor:

    toRemessaAlterarDadosPagador : ATipoOcorrencia := '23';

    onde era pra pegar o valor:

    toRemessaAlterarJurosMora : ATipoOcorrencia := '12';
     

    Se verificar os tipos que tem na função TACBrBancoob.CodOcorrenciaToTipoRemessa

    Não bate com os que tem na função TACBrBancoob.GerarRegistroTransacao240 na linha 812

    Retorno Caixa API

    em Boleto

    Postado

    36 minutos atrás, Victor H. Gonzales - Panda disse:

    Boa tarde,

    olhei o SOAP e não localizei essa informação, as informações me induz que são do titulo e não do pagamento, você chegou analisar?

    Eu analisei aqui tbm e vi que o banco não esta retornando essas informações do pagamento.

    Retorno Caixa API

    em Boleto

    Postado

    3 horas atrás, Victor H. Gonzales - Panda disse:

    image.png

    Boa tarde,

    a consulta está normal na classe igual a forma de envio.

     

    Verifique se em um titulo que está em aberto, você consegue percorrer todas as propriedades desejadas, mas algumas outras como data, valor está disponível, você pode verificar no SOAP o retorno que o banco está disponibilizando para o componente, todos essas o componente tem que ler e lhe disponibilizar. 

    begin

  Boleto     := dm.ACBrBoleto;
  Boleto.Configuracoes.WebService.Operacao := tpConsulta;

  Boleto.Enviar;
  if Boleto.TotalListaRetornoWeb > 0 then
  begin
    SLRetorno := TStringList.Create;
    try
      for I := 0 to Pred(Boleto.TotalListaRetornoWeb) do
      begin
        SLRetorno.Add('HEADER'          + sLineBreak +
                     'Versao='           + Boleto.ListaRetornoWeb[i].Header.Versao + sLineBreak +
                     'Autenticacao='     + Boleto.ListaRetornoWeb[i].Header.Autenticacao + sLineBreak +
                     'Usuario_Servico='  + Boleto.ListaRetornoWeb[i].Header.Usuario_Servico + sLineBreak +
                     'Usuario='          + Boleto.ListaRetornoWeb[i].Header.Usuario + sLineBreak +
                     'Operacao='         + TipoOperacaoToStr(Boleto.ListaRetornoWeb[i].Header.Operacao) + sLineBreak +
                     'Indice='           + IntToStr(Boleto.ListaRetornoWeb[i].Header.Indice) + sLineBreak +
                     'Sistema_Origem='   + Boleto.ListaRetornoWeb[i].Header.Sistema_Origem + sLineBreak +
                     'Agencia='          + IntToStr(Boleto.ListaRetornoWeb[i].Header.Agencia) + sLineBreak +
                     'ID_Origem='        + Boleto.ListaRetornoWeb[i].Header.Id_Origem + sLineBreak +
                     'Data_Hora='        +FormatDateTime('dd/mm/yyyy hh:nn:ss',Boleto.ListaRetornoWeb[i].Header.Data_Hora) + sLineBreak +
                     'ID_Processo='      + Boleto.ListaRetornoWeb[i].Header.Id_Processo + sLineBreak +
                     'DADOS'             + sLineBreak +
                     'Excessao='         +Boleto.ListaRetornoWeb[i].DadosRet.Excecao + sLineBreak +
                     'CONTROLE_NEGOCIAL' + sLineBreak +
                     'Origem_Retorno='   + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.OriRetorno + sLineBreak +
                     'NSU='              + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.NSU + sLineBreak +
                     'Cod_Retorno='      + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.CodRetorno + sLineBreak +
                     'Msg_Retorno='      + Boleto.ListaRetornoWeb[i].DadosRet.ControleNegocial.Retorno + sLineBreak +
                     'COMPROVANTE'       + sLineBreak +
                     'Data='             +  FormatDateTime('dd/mm/yyyy', Boleto.ListaRetornoWeb[i].DadosRet.Comprovante.Data) + sLineBreak +
                     'Hora='             +  Boleto.ListaRetornoWeb[i].DadosRet.Comprovante.Hora + sLineBreak +
                     'ID_BOLETO'         + sLineBreak +
                     'Codigo_Barras='    + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.CodBarras + sLineBreak +
                     'Linha_Digitavel='  + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.LinhaDig + sLineBreak +
                     'Nosso_Numero='     + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.NossoNum + sLineBreak +
                     'URL='              + Boleto.ListaRetornoWeb[i].DadosRet.IDBoleto.URL + sLineBreak +
                     'CONSULTA_BOLETO'   + sLineBreak +
                     'Numero_Documento=' + Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.NumeroDocumento + sLineBreak +
                     'Data_Vencimento='  + FormatDateTime('dd/mm/yyyy',Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.Vencimento) + sLineBreak +
                     'Valor='            + CurrToStr(Boleto.ListaRetornoWeb[i].DadosRet.TituloRet.ValorDocumento) + sLineBreak
                      );
        SLRetorno.SaveToFile( PathWithDelim(ExtractFilePath(Application.ExeName))+formatDateTime('yyyy.mm.dd.hh.nn.ss.zzz',now)+'-RetornoConsulta.txt' );
      end;
    finally
      SLRetorno.Free;
    end;
  end;
end;

     

    Consigo pegar os dados do retorno, sendo que não consigo pegar os dados da data de pagamento e valor pago.

    Retorno Caixa API

    em Boleto

    Postado

    12 minutos atrás, Victor H. Gonzales - Panda disse:

    Você passa alguma credencial no componente no client id não?

    Na caixa esse client id é igual para todos "client id = " o que muda é a agencia, conta, código do cedente e convenio. Essas informações eu já passei por email.

     

    Retorno Caixa API

    em Boleto

    Postado

    11 minutos atrás, Victor H. Gonzales - Panda disse:

    Boa tarde,

    ative o log do componente faça seus testes, envie o log por favor pelo email.

    deixe o client id no log ou informe ele nas credenciais no email por favor.

    image.png

    Obrigado

    Boa tarde, onde eu pego esse client id? Se for dados do banco (Caixa) ele não usa o client id.

    Retorno Caixa API

    em Boleto

    Postado

    19 horas atrás, Victor H. Gonzales - Panda disse:

    Boa noite,

    atualize seus fontes e faça os testes conforme conversamos pelo discord. 

    Retorno := Boleto.ListaConsultaRetornoWeb;
for X := 0 to Pred(Retorno.Count) do
begin
  xVar1 := Retorno[X].DadosRet.IDBoleto.CodBarras;
  xVar2 := Retorno[X].DadosRet.IDBoleto.LinhaDig;
  xVar3 := Retorno[X].DadosRet.IDBoleto.NossoNum;
  xVar4 := Retorno[X].DadosRet.IDBoleto.URL;
end;

     

    depois retorne o resultado, qualquer coisa avise

    Retorno.Count = 0 ai não aparece nada

    Retorno Caixa API

    em Boleto

    Postado

    Estou com problemas na consulta da caixa, ao consultar um boleto alguns campos não estão aparecendo:

    COMPROVANTE
    Data=30/12/1899
    Hora=
     
    ID_BOLETO
    Codigo_Barras=
    Linha_Digitavel=
    Nosso_Numero=
    URL=
     

    Outra situação é que ao efetuar o pagamento do boleto e fazer a consulta os campos do pagamento não aparecem, exemplo: valo pago, data de pagamento

     

    Undeclared Identifier LerIniArquivoOuString

    em ACBrNFe

    Postado

    Esse foi o erro agora:

    "C:\Program Files (x86)\Borland\Delphi7\bin\dcc32.exe" "D:\Componentes Delphi\Componentes Usados\Acbr2\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk"
    Borland Delphi Version 15.0
    Copyright (c) 1983,2002 Borland Software Corporation
    D:\Componentes Delphi\Componentes Usados\Acbr2\Fontes\ACBrDFe\ACBrDFeXsMsXml.pas(58) Error: Declaration of 'Assinar' differs from previous declaration
    D:\Componentes Delphi\Componentes Usados\Acbr2\Fontes\ACBrDFe\ACBrDFeXsMsXml.pas(63) Error: Declaration of 'VerificarAssinatura' differs from previous declaration
    D:\COMPON~1\COMPON~2\Acbr2\Fontes\ACBrDFe\ACBrDFeXsMsXmlCapicom.pas(44) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrDFe\ACBrDFeXsMsXml.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_DFeComum.dpk".
     

×
×
  • 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...