[Consulta de boletos Sicoob]

Boa tarde Daniel

Não consegui identificar onde esta o erro, refiz o processo no meu software montando em uma única rotina mas mesmo assim sem resultando

No exemplo do acbr e não traz nenhum retorno.

 

Se for possível analisar, segue o código da consulta

 

procedure TfEmiteBoletoNew.btConsultaWSClick(Sender: TObject);
var
  SLRetorno: TStringList;
  I: Integer;
  Titulo: TACBrTitulo;
  Beneficiario: TACBrCedente;
  Banco: TACBrBanco;
  Boleto: TACBrBoleto;
  WebService: TACBrWebService;
  BeneficiarioWS: TACBrCedenteWS;
  Retorno: TListaACBrBoletoRetornoWS;
  CobAnterior: TACBrTipoCobranca;
begin

//  carregaDadosConta; retirado
  //IncluirBoleto; retirado

  Boleto := FACBrBoleto;
  WebService := Boleto.Configuracoes.WebService;

  Beneficiario := Boleto.Cedente;
  BeneficiarioWS := Beneficiario.CedenteWS;

  CobAnterior := Boleto.Banco.TipoCobranca;

  Beneficiario.Nome := fmenu.qUsuariosRAZAO_SOCIAL.asstring;
  Beneficiario.TipoInscricao := pJuridica;
  Beneficiario.Agencia := qContaBancoNUMERO_AGENCIA.AsString;
  Beneficiario.AgenciaDigito := qContaBancoDIGITO_AGENCIA.AsString;
  Beneficiario.Conta := qContaBancoNUMERO_CONTA.AsString;

  Beneficiario.ContaDigito := qContaBancoDIGITO_CONTA.AsString;
  Beneficiario.DigitoVerificadorAgenciaConta := qContaBancoDIGITO_VERIFICADOR.AsString;

  Beneficiario.Convenio := qContaBancoBOLETO_CONVENIO.AsString;

  Beneficiario.Modalidade := qContaBancoBOLETO_CARTEIRA_MODALIDADE.AsString;

  Beneficiario.Operacao := ''; //edtOperacao.Text;
  Beneficiario.CodigoTransmissao := Trim(qContaBancoBOLETO_CODIGOTRANSMISSAO.AsString);
  Beneficiario.CodigoCedente := sonumero(qContaBancoCOD_CEDENTE.AsString);

  Banco := Boleto.Banco;
  Banco.TipoCobranca := cobBancoob;
  Banco.LayoutVersaoArquivo := StrToInt(qContaBancoLAYOUTVERSAOARQUIVO.AsString);
  Banco.LayoutVersaoLote := StrToInt(qContaBancoLAYOUTVERSAOLOTE.AsString);

  WebService.ArquivoCRT := qContaBancoDIR_INTER_API_CERTIFICADO.AsString;
  WebService.ArquivoKEY := qContaBancoDIR_INTER_API_CHAVE.AsString;

  BeneficiarioWS.ClientID := qContaBancoCLIENT_ID.AsString;
  BeneficiarioWS.ClientSecret := qContaBancoCLIENT_ID.AsString;

//  BeneficiarioWS.KeyUser      := edtKeyUser.Text;
  BeneficiarioWS.Scope := 'cobranca_boletos_consultar ' + 'cobranca_boletos_incluir ' + 'cobranca_boletos_pagador ' + 'cobranca_boletos_segunda_via ' + 'cobranca_boletos_descontos ' + 'cobranca_boletos_abatimentos ' + 'cobranca_boletos_valor_nominal ' + 'cobranca_boletos_seu_numero ' + 'cobranca_boletos_especie_documento ' + 'cobranca_boletos_baixa ' + 'cobranca_boletos_rateio_credito ' + 'cobranca_pagadores ' + 'cobranca_boletos_negativacoes_incluir ' + 'cobranca_boletos_negativacoes_alterar ' +
    'cobranca_boletos_negativacoes_baixar ' + 'cobranca_boletos_protestos_incluir ' + 'cobranca_boletos_protestos_alterar ' + 'cobranca_boletos_protestos_desistir ' + 'cobranca_boletos_solicitacao_movimentacao_incluir ' + 'cobranca_boletos_solicitacao_movimentacao_consultar ' + 'cobranca_boletos_solicitacao_movimentacao_download ' + 'cobranca_boletos_prorrogacoes_data_vencimento ' + 'cobranca_boletos_prorrogacoes_data_limite_pagamento ' + 'cobranca_boletos_encargos_multas ' + 'cobranca_boletos_encargos_juros_mora ' + 'cobranca_boletos_pix ' + 'cobranca_boletos_faixa_nn_disponiveis';

  BeneficiarioWS.IndicadorPix := false;
  WebService.Ambiente := taProducao;
  WebService.SSLHttpLib := httpOpenSSL;

  FACBrBoleto.ListadeBoletos.Clear;
  Titulo := FACBrBoleto.CriarTituloNaLista;

  Titulo.Vencimento := qContasReceberDATA_VCTO.AsDateTime;
  Titulo.DataDocumento := date;
  Titulo.NumeroDocumento := qContasReceberNUM_DOC.AsString;

//  Titulo.EspecieMod        := edtEspecieMod.Text;

  Titulo.EspecieDoc := 'DM';
  if Trim(qContaBancoBOLETO_ESPECIE.AsString) <> '' then
    Titulo.EspecieDoc := qContaBancoBOLETO_ESPECIE.AsString;

  if qContaBancoBOLETO_ACEITE.AsString = 'S' then
    Titulo.Aceite := atSim
  else
    Titulo.Aceite := atNao;

  Titulo.DataProcessamento := Now;
  Titulo.Carteira := qContaBancoBOLETO_CARTEIRA.AsString;

  Titulo.NossoNumero := qContasReceberNOSSO_NUMERO.AsString;
  Titulo.ValorDocumento := qContasReceberVALOR.AsFloat;

  Titulo.sacado.NomeSacado := qContasReceberCLIENTE.AsString;
  Titulo.sacado.CNPJCPF := OnlyNumber(qContasReceberCPF_CNPJ.AsString);
  Titulo.sacado.Logradouro := qContasReceberENDERECO.AsString;
  Titulo.sacado.Numero := qContasReceberNUM_CASA.AsString;
  Titulo.sacado.Bairro := qContasReceberBAIRRO.AsString;
  Titulo.sacado.Cidade := qContasReceberCIDADE.AsString;
  Titulo.sacado.UF := qContasReceberUF.AsString;
  Titulo.sacado.CEP := OnlyNumber(qContasReceberCEP.AsString);

  Titulo.LocalPagamento := '';
  Titulo.ValorMoraJuros := 0;
  Titulo.ValorDesconto := 0;
  Titulo.ValorAbatimento := 0;
  Titulo.DataMoraJuros := qContasReceberDATA_VCTO.AsDateTime;
//  Titulo.DataDesconto := StrToDateDef(edtDataDesconto.Text, 0);
  Titulo.TipoDesconto := tdNaoConcederDesconto;
//  Titulo.DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0);
//  Titulo.DataProtesto := StrToDateDef(edtDataProtesto.Text, 0);
//  Titulo.PercentualMulta := StrToCurrDef(edtMulta.Text, 0);
  Titulo.CodigoMoraJuros := cjValorMensal;
  //Mensagem.Text     := memMensagem.Text;
  Titulo.OcorrenciaOriginal.Tipo := toRemessaRegistrar;

  Titulo.QtdePagamentoParcial := 1;
  Titulo.TipoPagamento := tpNao_Aceita_Valor_Divergente;
  Titulo.PercentualMinPagamento := 0;
  Titulo.PercentualMaxPagamento := 0;
  Titulo.ValorMinPagamento := 0;
  Titulo.ValorMaxPagamento := 0;

  Boleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe;

  Boleto.Configuracoes.WebService.Filtro.Clear;
  Boleto.Configuracoes.WebService.Filtro.indicadorSituacao := isbAberto;
  Boleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := Date;
  Boleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal := Date;

  Boleto.Enviar;
  Retorno := Boleto.ListaConsultaRetornoWeb;

  if Retorno.Count > 0 then
  begin
    SLRetorno := TStringList.Create;
    try
      SLRetorno.Add('Cod_Retorno=' + Retorno[I].CodRetorno + sLineBreak + 'Msg_Retorno=' + Retorno[I].MsgRetorno + sLineBreak + 'Ori_Retorno=' + Retorno[I].OriRetorno + sLineBreak + 'HTTP_Result=' + IntToStr(Retorno[I].HTTPResultCode) + sLineBreak + 'JSON=' + Retorno[I].JSON);
      SLRetorno.Add('indicadorContinuidade=' + BoolToStr(Retorno[0].indicadorContinuidade));
      SLRetorno.Add('proximoIndice=' + IntToStr(Retorno[0].proximoIndice));
      SLRetorno.Add(' ');
      SLRetorno.Add(' ');
      for I := 0 to Pred(Retorno.Count) do
      begin
        SLRetorno.Add('[Boletos Index = ' + FormatFloat('000', I) + ']');
        SLRetorno.Add('numeroBoletoBB = ' + Retorno[I].DadosRet.TituloRet.NossoNumero);
        SLRetorno.Add('dataRegistro = ' + DateToStr(Retorno[I].DadosRet.TituloRet.DataRegistro));
        SLRetorno.Add('dataVencimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.Vencimento));
        SLRetorno.Add('valorOriginal = ' + DateToStr(Retorno[I].DadosRet.TituloRet.ValorDocumento));
        SLRetorno.Add('carteiraConvenio = ' + Retorno[I].DadosRet.TituloRet.Carteira);
        SLRetorno.Add('variacaoCarteiraConvenio = ' + intToStr(Retorno[I].DadosRet.TituloRet.Modalidade));
        SLRetorno.Add('codigoEstadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.codigoEstadoTituloCobranca);
        SLRetorno.Add('estadoTituloCobranca = ' + Retorno[I].DadosRet.TituloRet.estadoTituloCobranca);
        SLRetorno.Add('contrato = ' + Retorno[I].DadosRet.TituloRet.Contrato);
        SLRetorno.Add('dataMovimento = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataMovimento));
        SLRetorno.Add('dataCredito = ' + DateToStr(Retorno[I].DadosRet.TituloRet.dataCredito));
        SLRetorno.Add('valorAtual = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.valorAtual));
        SLRetorno.Add('valorPago = ' + CurrToStr(Retorno[I].DadosRet.TituloRet.ValorPago));
        SLRetorno.Add('  ---  ');
      end;

      panEnviando.Visible := true;
      memoLog.Clear;
      memoLog.Lines.Add(SLRetorno.Text);
    finally
      SLRetorno.Free;
    end;
  end;
 

 

 

[Informação da rejeição completa na NFe]

Perfeito

Muito obrigado pelas orientações.

[Informação da rejeição completa na NFe]

Bom dia

Existe alguma forma de mostrar a mensagem de Rejeição completa para o usuário ao transmitir a NFe.

 

Muito obrigado

Ralty

[Consulta de boletos Sicoob]

enviado

muito obrigado pela presteza 

[Consulta de boletos Sicoob]

Boa tarde

Realizei algumas mudanças no demo, pois para gerar/consultar boletos no sicoob é necessário enviar os arquivos CTR e Key. 

No demo não consta nenhuma referencia sobre eles, incluí e alterei a consulta para TpConsultaDetalhe  conforme sua orientação.

 

Passei todos os campos, mas a consulta continua não trazendo nenhuma informação. Sempre passando o nosso numero sem o DV 

 

Segue

 

 

 

 

[Consulta de boletos Sicoob]

Bom dia

"lembrando que NossoNumero deve ser informado sem o dv(pois o sistema já adiciona o DV na montagem do campo)"

Conforme já tinha mencionado, estou enviando sem o NossoNumero porem o componente inclui o DV ao realizar a consulta.

Esse exemplo que você postou é do numeroBoletoBB e não sicoob.

 

 

"Este banco já está em em produção alguns meses e não temos relatos."

O Envio deu certo, a consulta não!

Nos demos não consta exemplo do sicoob, alterei por aqui e a consulta não traz nenhuma informação.

Facilitaria se o demo fosse atualizado com sicoob.

 

 

 

 

[Consulta de boletos Sicoob]

Bom dia

pelo postman não consegui autenticar mesmo seguindo o exemplo deles

Em relação ao nosso numero, estou enviando sem o DV porem é incluído junto ao nosso número

LNossoNumero := ACBrUtil.Strings.RemoveZerosEsquerda(OnlyNumber(aTitulo.NossoNumero)+aTitulo.ACBrBoleto.Banco.CalcularDigitoVerificador(aTitulo));

 

Na documentação do sicoob aparentemente a consulta via nossoNumero é sem o DV, talves seja esse o problema de não retornar nenhuma informação.

 

Na consulta esta sendo enviado o nosso numero é 10006 + DV 5 

 

[Consulta de boletos Sicoob]

entendi, 

O Envio deu certo

Porem continua não trazendo nenhuma informação no retorno 

Segue anexo

[Consulta de boletos Sicoob]

Já tinha realizado alguns testes com outras datas, sem sucesso

 

Segue

 

 

[Consulta de boletos Sicoob]

Tem sim, realizei o envio via WS de vários boletos no dia 28/07/2023 com vcto para 30 dias 

E realizei o pagamento no dia 28/07/2023 conforme anexo

 

 

[Consulta de boletos Sicoob]

Boa tarde

Estou realizando a operação tpConsultaDetalhe, não gera erro porem não retorna nenhuma informação.

 

 

 

[Inscrição Estadual Unificada em Cidades Diferentes gerando Erro 482]

A NFe validou normalmente hoje a tarde aparentemente sem nenhuma alteração. O Sefaz de MG esta em Contingência a alguns dias, não sei se teria alguma relação.

[Inscrição Estadual Unificada em Cidades Diferentes gerando Erro 482]

Cada filial tem um CNPJ e a mesma inscrição estadual

O CNPJ é de Sete Magoas-MG e a inscrição é de Carbonita-MG

 

Segue anexo CNPJ.

[Inscrição Estadual Unificada em Cidades Diferentes gerando Erro 482]

Boa tarde,

Estou com a seguinte situação, o CNPJ do cliente é da Cidade de Sete Lagoas - MG e a inscrição estadual é da cidade de Carbonita MG

A inscrição estadual é unificada, apenas 1 inscrição para várias filiais de cidades diferentes.

Porem ao gerar a nota fiscal ocorre o erro: Código do Município do Destinatário diverge do cadastrado na UF

Segue anexo

 

 

 

[Impressão DANFE NFe Emitida em Contingência]

Pessoal,

uma informação,

é possível gerar uma NFe em Contingência e ao Imprimir/Visualizar a DANFe não mostrar a informação em Contingência? 

Ou então não mostrar no corpo da nota deixando somente nas Informações adicionais

Muito obrigado

[ACBRNFSeX Ibiporã esta configurado para Equiplano porem o provedor de Ibiporã PR é Elotech]

Muito obrigado, vou atualizar e usar

 

abs

[ACBRNFSeX Ibiporã esta configurado para Equiplano porem o provedor de Ibiporã PR é Elotech]

Boa tarde

Estou tentando utilizar o ACBRNFSeX para a Cidade de Ibiporã PR porem o provedor esta Equiplano mas recentemente a cidade migrou para o elotech

https://ibipora.oxy.elotech.com.br/iss/home

https://ibipora.iss.elotech.com.br/iss-ws/nfse203.wsdl

Ralty

[Integração de boleto com banco Inter ou NuBank]

Em 23/07/2020 at 14:30, Antonio Gomes disse:

opa, tem como vc gerar um pdf ou copiar a api ?

Fiz pedido da conta PJ, mas ainda não fui atendido para acessar essa api, e na conta MEI nao tem isso (porre viu).

não sei se te ajuda, mas segue API em PDF

API Banco Inter.pdf

[Erro Interno 12169]

Não sei se irá ajudar os demais, o cliente que eu estava com problemas possuía  dois certificados, ele incluiu um sócio na empresa. Não sei como mas no final de Fev. foi gerado um A1 no CNPJ  junto com o sócio e mesmo assim ele continuou usando o A3 que estava vinculado a empresa sem o novo sócio até que apresentou essa situação no dia 27/03. Mudei para o A1 e voltou ao normal. 

[Erro Interno 12169]

4 minutos atrás, dioggo.aguiar disse:

Deu certo usando o OpenSSl ?

Quando utilizo OpenSSL no A3 ocorre a mensagem: "Certificado não permite exportar Chave Primaria"

[Erro Interno 12169]

No A1 deu certo, porem no A3 não consegui mesmo desinstalando as atualizações do windows

[Bloco K - Exemplo]

Entendido, muito obrigado

[Bloco K - Exemplo]

desculpe, Informei o local errado, em \Exemplos\ACBrTXT\ACBrSPED\Delphi  não consta exemplo do bloco k

porem se todos os registros forem iguais posso usar outro registro como exemplo.

Se encontrar um exemplo do bloco k agradeceria, caso contrario obrigado pela explicação, vou tentar utilizar outro registro como exemplo.

 

 

 

[Bloco K - Exemplo]

Não encontrei nenhum exemplo de como preencher o componente.

Não sei se estou procurando certo, porem no projeto acbr\Exemplos\ACBrTXT\ACBrSintegra\Delphi\SintegraTeste.dpr não consta nenhum exemplo relacionado ao Bloco K

Existe exemplo para os outros Arquivos exceto para o Bloco K

 

Obrigado

Ralty

 

[Bloco K - Exemplo]

Somente um exemplo de como preencher o componente.

 

Muito obrigado