rafmattos

deu certo agora está recebendo, para tirar o zero a esquerda fiz alteracao nessa funcao da unit unit ACBrBoletoW_BancoBrasil_API; 
function TBoletoW_BancoBrasil_API.DefinirParametros: String;
var
  LConsulta : TStringList;
  LDocumento : String;
begin
  if Assigned(Boleto.Configuracoes.WebService.Filtro) then
  begin
      if Boleto.Configuracoes.WebService.Filtro.indicadorSituacao = isbNenhum then
        raise EACBrBoletoWSException.Create(ClassName + ' Obrigatório informar o indicadorSituacao diferente de isbNenhum. ');
      if (Boleto.Cedente.Agencia = EmptyStr) then
        raise EACBrBoletoWSException.Create(ClassName + ' Obrigatório informar o agenciaBeneficiario. ');
      if (Boleto.Cedente.Conta = EmptyStr) then
        raise EACBrBoletoWSException.Create(ClassName + ' Obrigatório informar o contaBeneficiario. ');
      LDocumento := OnlyNumber(Boleto.Configuracoes.WebService.Filtro.cnpjCpfPagador);
      LConsulta := TStringList.Create;
      try
        LConsulta.Delimiter := '&';
        LConsulta.Add('indicadorSituacao='+IfThen(Boleto.Configuracoes.WebService.Filtro.indicadorSituacao = isbBaixado,'B','A'));
        if Boleto.Configuracoes.WebService.Filtro.contaCaucao > 0 then
          LConsulta.Add('contaCaucao='+ IntToStr(Boleto.Configuracoes.WebService.Filtro.contaCaucao));
        LConsulta.Add('agenciaBeneficiario='+OnlyNumber( Boleto.Cedente.Agencia ));
        LConsulta.Add('contaBeneficiario='+RemoveZerosEsquerda(OnlyNumber( Boleto.Cedente.Conta )));
        if Boleto.Configuracoes.WebService.Filtro.carteira > 0 then
          LConsulta.Add('carteiraConvenio='+IntToStr(Boleto.Configuracoes.WebService.Filtro.carteira));
        if Boleto.Configuracoes.WebService.Filtro.carteiraVariacao > 0 then
          LConsulta.Add('variacaoCarteiraConvenio='+IntToStr(Boleto.Configuracoes.WebService.Filtro.carteiraVariacao));
        if Boleto.Configuracoes.WebService.Filtro.modalidadeCobranca > 0 then
          LConsulta.Add('modalidadeCobranca='+ IntToStr(Boleto.Configuracoes.WebService.Filtro.modalidadeCobranca));
        if Length(LDocumento) = 14 then
        begin
          LConsulta.Add('cnpjPagador='+Copy(LDocumento,1,12));
          LConsulta.Add('digitoCNPJPagador='+Copy(LDocumento,13,2));
        end else
        if Length(LDocumento) = 11 then
        begin
          LConsulta.Add('cpfPagador='+Copy(LDocumento,1,9));
          LConsulta.Add('digitoCPFPagador='+Copy(LDocumento,10,2));
        end;
        if Boleto.Configuracoes.WebService.Filtro.dataVencimento.DataInicio > 0 then
          LConsulta.Add('dataInicioVencimento='+FormatDateBr(Boleto.Configuracoes.WebService.Filtro.dataVencimento.DataInicio, 'DD.MM.YYYY'));
        if Boleto.Configuracoes.WebService.Filtro.dataVencimento.DataFinal > 0 then
          LConsulta.Add('dataFimVencimento='+FormatDateBr(Boleto.Configuracoes.WebService.Filtro.dataVencimento.DataFinal, 'DD.MM.YYYY'));
        if Boleto.Configuracoes.WebService.Filtro.dataRegistro.DataInicio > 0 then
          LConsulta.Add('dataInicioRegistro='+FormatDateBr(Boleto.Configuracoes.WebService.Filtro.dataRegistro.DataInicio, 'DD.MM.YYYY'));
        if Boleto.Configuracoes.WebService.Filtro.dataRegistro.DataFinal > 0 then
          LConsulta.Add('dataFimRegistro='+FormatDateBr(Boleto.Configuracoes.WebService.Filtro.dataRegistro.DataFinal, 'DD.MM.YYYY'));
        if Boleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio > 0 then
          LConsulta.Add('dataInicioMovimento='+FormatDateBr(Boleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio, 'DD.MM.YYYY'));
        if Boleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal > 0 then
          LConsulta.Add('dataFimMovimento='+FormatDateBr(Boleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal, 'DD.MM.YYYY'));
        if Boleto.Configuracoes.WebService.Filtro.codigoEstadoTituloCobranca > 0 then
          LConsulta.Add('codigoEstadoTituloCobranca='+intToStr(Boleto.Configuracoes.WebService.Filtro.codigoEstadoTituloCobranca));
        if not (Boleto.Configuracoes.WebService.Filtro.boletoVencido = ibvNenhum) then
          LConsulta.Add('boletoVencido='+IfThen(Boleto.Configuracoes.WebService.Filtro.boletoVencido = ibvSim,'S','N'));
        if Boleto.Configuracoes.WebService.Filtro.indiceContinuidade > 0 then
          LConsulta.Add('indice='+ FloatToStr(Boleto.Configuracoes.WebService.Filtro.indiceContinuidade));
      finally
        Result := LConsulta.DelimitedText;
        LConsulta.Free;
      end;
  end;
end;
 

Voltou. Achei que fosse algo que havia mudado na API, mas era só uma instabilidade.

[5219308] Nome=Santa Helena de Goias UF=GO Provedor=Centi Versao=2.02 ProRecepcionar=* ProConsultarNFSeRps=https://api.centi.com.br/nfe/consultar/rps/go/santahelena ProCancelarNFSe=https://api.centi.com.br/nfe/cancelar/go/santahelena ProGerarNFSe=https://api.centi.com.br/nfe/gerar/go/santahelena HomRecepcionar=* HomConsultarNFSeRps=https://api.centi.com.br/nfe/consultar/homologacao/rps/go/santahelena HomCancelarNFSe=https://api.centi.com.br/nfe/cancelar/homologacao/go/santahelena HomGerarNFSe=https://api.centi.com.br/nfe/gerar/homologacao/go/santahelena ProLinkURL=https://api.centi.dev.br/portal/nfse/go/santahelena/%CodVerif% HomLinkURL=https://api.centi.dev.br/portal/nfse/go/santahelena/%CodVerif%  
 
eu tive esse erro
 
------------------------------
Requisição
Ambiente : 1 - Produção
Cidade   : Santa Helena de Goias/GO
Provedor : Centi Versão: 2.02
Data/Hora: 09/01/2025 09:47:35
 
Método Executado: Gerar NFSe
 
Parâmetros de Envio
Numero do Lote: 22147
 
Parâmetros de Retorno
Data de Envio : 30/12/1899
Numero do Prot: 
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : False
 
Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Start tag expected, '<' not found
Correção: 
 
 

entrei no site deles está assim:
http://187.6.86.78:5659/IssWeb-ejb/IssWebWS/IssWebWS?wsdl
a modificação do arquivo seria essa?
[5007901] Nome=Sidrolandia UF=MS Provedor=Fiorilli Versao=2.00 ProRecepcionar=http://187.6.86.78:5659/IssWeb-ejb/IssWebWS/IssWebWS ProLinkURL=http://187.6.86.78:5659/issweb/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%  
teria que fazer alguma coisa dentro do componente?
 

atualizei o componente, coloquei o FloattoStr, no lugar toString, não sei se é o certo para lazaro e delphi 7. mais está funcionando no delphi xe, fiz o teste ele paginou na hora de trazer o dados
 
 
na primeira pagina ele trouxe 500 havia um "hasNext:true", na segunda mais 300 registro

 
 
 

ACBrBoletoW_Sicredi_APIV2.pas

muda para esse dns da certo

tentei fiquei com o mesmo erro, tem como voce me passa o *.ini, ACBrNFSeX_Exemplo.ini, só se for minha configuracao
@Italo Giurizzato Junior
 

acho que descobri era incricao municipal, o cliente me passou com ponto.
exemplo estava "5.4.566", tirei os pontos deu certo

resolvido, liguei na prefeitura e peguei o erro, era para enviar no modo Assincrono.

sim pelo instalador, até baixei de novo tudo
 
  if Assigned(ATitulo) then
    aNossoNumero  := OnlyNumber( ATitulo.ACBrBoleto.Banco.MontarCampoNossoNumero(ATitulo));
agora deu certo verificando se esta estanciado 

voltou ao normal, era a sefaz mesmo

ontem no retorno ele mandava esse ns2, hj simplimente parou e o xml voltou ao normal