'Start tag expected, '<' not found '. Porto Alegre/RS

[econdotta]

Olá, após efetuar a atualização do ACBR na data de ontem (17/01/2023) comecei a receber este erro na emissão da NFS-e para Porto Alegre/RS (Ambiente Nacional - BHISS se não me engano).
Project ProAuto.exe raised exception class EACBrXmlException with message 'Start tag expected, '<' not found'.

Rodei o ApagarACBR.bat
Exclui todos os diretórios
Baixei novamente e instalei novamente o ACBR, mas o erro persiste.

Alguma sugestão?
Desde já agradeço a atenção.

[Italo Giurizzato Junior]

Bom dia @econdotta,

Primeiramente BHISS é o provedor contratado por Porto Alegre/RS e não tem nada haver com o Ambiente ou Padrão Nacional.

Segundo, configura o componente para salvar os arquivo soap: Configuracoes.WebService.Salvar := True

Execute o método que esta gerando esse erro e anexe o XML soap de retorno para que possamos analisar.

[econdotta]

Acredito que seja isto que tenha solicitado.

1-ger-nfse-soap.json 1-ger-nfse.json

[Italo Giurizzato Junior]

@econdotta,

Esses são o de envio, necessito o de retorno.

[econdotta]

São estes os arquivos que foram criados quando tentei emitir a NFS-e.

Eu tinha uma versão anterior a atualização que restaurei e reinstalei (ACBR) e que funciona não dando este erro.
Vou colocar algumas imagens dos erros que aparecem também.

Obrigado

1-ger-nfse-soap.json 382681-rps.xml Erro_NFSe_38268.xml 1-ger-nfse.json

[Italo Giurizzato Junior]

Boa tarde @econdotta,

Vou pedir para que você coloque um ponto de parada na procedure EnvioInterno que se encontra na unit ACBrNFSeXWebserviceBase e debugue, quero saber em qual linha ocorre o erro.

[econdotta]

Ok

 

[econdotta]

Processou tudo até ai.

Conteudo do FPRetorno:
<?xml version="1.0" encoding="UTF-8"?>{"tipoAmbiente":2,"versaoAplicativo":"SefinNac_Pre_1.0.0","dataHoraProcessamento":"2024-01-18T14:48:03.7923503-03:00","idDPS":"DPS431490220387545800018200900000000000038271","erros":[{"Parametros":null,"Codigo":"E0168","Descricao":"CPF do tomador não encontrado no cadastro CPF."}]}

[econdotta]

Eu comentei as linhas da procedure e não ocorreu mais o erro. Acredito que esteja nesta atualização a falha.

procedure TACBrNFSeXWebservice.EnvioInterno(var CodigoErro, CodigoInterno: Integer);
begin
  ConfigurarHttpClient;

  try
    try
      HttpClient.Execute;
    finally
      CodigoErro := HttpClient.HTTPResultCode;
      CodigoInterno := HttpClient.InternalErrorCode;
    end;

    HttpClient.DataResp.Position := 0;

    FPRetorno := ReadStrFromStream(HttpClient.DataResp, HttpClient.DataResp.Size);

    if FPRetorno = '' then
      raise EACBrDFeException.Create('WebService retornou um XML vazio.');

    //if ((Pos('iso-8859-1', LowerCase(FPRetorno)) > 0) or
    //   (Pos('encoding', LowerCase(FPRetorno)) = 0)) and
    //   StringIsXML(FPRetorno)  then
    //begin
    //  FPRetorno := RemoverDeclaracaoXML(FPRetorno);
    //  FPRetorno := AnsiToNativeString(FPRetorno);
    //  FPRetorno := NativeStringToUTF8(FPRetorno);
    //  FPRetorno := '<?xml version="1.0" encoding="UTF-8"?>' + FPRetorno;
    //end;

    if StringIsXML(FPRetorno) then
      LevantarExcecaoHttp;
  except
    on E:Exception do
    begin
      raise EACBrDFeException.CreateDef(Format(ACBrStr(cACBrDFeSSLEnviarException),
        [HttpClient.InternalErrorCode, HttpClient.HTTPResultCode, HttpClient.URL])
        + sLineBreak + HttpClient.LastErrorDesc+ sLineBreak + E.Message);
    end;
  end;
end;

Editado 18 Janeiro, 2024 por econdotta

[Italo Giurizzato Junior]

Bom dia @econdotta,

Esse IF que você comentou antes não tinha a condição: StringIsXML(FPRetorno).

Mesmo com ela ocorre o erro?

[econdotta]

Atualizei o ACBR e testei, rodou certinho sem o erro. 

Muito obrigado Italo pela ajuda e disposição.

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.