Exception ESOAPHTTP no WebService StatusServico e ConsultCad

[feliperocha]

Bom dia pessoal, tudo bem?

Então, estou com um erro aqui na minha aplicação desde segunda dia 01/10. Seguinte fiz uma aplicação simples para consultar a situação do icms dos clientes de uma base de dados, onde eu seleciono os clientes direto do banco com um Select e vejo se a situação do ICMS do cliente está habilitado ou não habilitado pelo retorno do Web Service ConsultaCadastro. Rodo essa aplicação mensalmente para atualizar a situação do icms dos clientes baseado na base de dados do sintegra das UFs que possuem ele.

Mas essa semana fui fazer o procedimento e começo a dar um erro na minha aplicação a Exceção ESOAPHTTP. aparecendo uma msg "Erro no suporte a canais seguros", sendo que tenho esse mesmo problema ao tentar usar o Web Service StatusServico para testar a conexão

Já tentei, trocar o certificado (ambos são validos), tentei atualizar e recompilar os fontes do ACBr, mas nada resolve.

Segue as imagens da aplicação e da tela de erro, e o fonte da aplicação:

Aplicação:

Tela de Erro:

Código-Fonte da aplicação:

unit Unit1;


interface


uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ACBrNFe, ComCtrls, DB, DBTables;


type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Memo1: TMemo;

    Database1: TDatabase;

    QryClientes: TQuery;

    QryTeste: TQuery;

    QryUpdate: TQuery;

    QryClientesCODCLIENTE: TFloatField;

    QryClientesCNPJ: TStringField;

    QryClientesINSCRICAO_ESTADUAL: TStringField;

    QryClientesUF: TStringField;

    QryClientesSITUACAO_ICMS: TStringField;

    QryClientesREGIME_DE_APURACAO: TStringField;

    QryClientesSITUACAO_CNPJ: TStringField;

    QryClientesQUANTIDADE_IE: TStringField;

    STP_teste: TStoredProc;

    QryTesteCODCLIENTE: TFloatField;

    QryTesteCNPJ: TStringField;

    QryTesteINSCRICAO_ESTADUAL: TStringField;

    QryTesteUF: TStringField;

    QryTesteSITUACAO_ICMS: TStringField;

    QryTesteREGIME_DE_APURACAO: TStringField;

    QryTesteSITUACAO_CNPJ: TStringField;

    Memo2: TMemo;

    ACBrNFe: TACBrNFe;

    Edit1: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;


var

  Form1: TForm1;

  razaoSocial: string;

  inscricaoEstadual: string;

  regime: string;

  estado: string;

  cidade: string;

  bairro: string;

  logradouro: string;

  numero: string;

  CEP: string;

  CNPJ: string;

  qtd_cnpj_inv: Integer;

  cnpj_invalido: array[1..32416] of string;

  qtd_cnpj_ie: Integer;

  cnpj_varias_ie: array[1..32416] of string;

  x: Integer;

  y: Integer;

  erro: string;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

begin

   ACBrNFe.WebServices.StatusServico.Executar; // Este comando, retorna True quando o serviço está em operação.

                                           // Após este comando, é possível acessar a propriedade

   ShowMessage(ACBrNFe.WebServices.StatusServico.Msg);

end;


procedure TForm1.Button2Click(Sender: TObject);

begin

   QryTeste.SQL.Text := Edit1.Text;

   if Trim(Edit1.text) <> '' then

   begin

   QryTeste.Close;

   QryTeste.Open;

   QryTeste.First;


   while not QryTeste.Eof do

   begin

      CNPJ   := QryTesteCNPJ.Value;

      estado := QryTesteUF.Value;

      ACBrNFe.WebServices.ConsultaCadastro.UF := estado;

      ACBrNFe.WebServices.ConsultaCadastro.CNPJ := CNPJ;

      try

        ACBrNFe.WebServices.ConsultaCadastro.Executar;

        if ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].cSit = 1 then

        begin

        regime := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xRegApur;

        inscricaoEstadual := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE;

            QryUpdate.Close;

             QryUpdate.SQL.Clear;

             QryUpdate.SQL.Add('UPDATE TESTE_ICMS_CLIENTES SET SITUACAO_ICMS = ''HABILITADO'', REGIME_DE_APURACAO = :xRegime, INSCRICAO_ESTADUAL = :xIE, SITUACAO_CNPJ = ''VALIDO'' WHERE CODCLIENTE = :xCliente');

             QryUpdate.ParamByName('xRegime').Value := regime;

             QryUpdate.ParamByname('xIE').Value := inscricaoEstadual;

             QryUpdate.ParamByName('xCliente').Value := QryTesteCODCLIENTE.Value;

             QryUpdate.ExecSQL;

             QryUpdate.SQL.Clear;

             QryUpdate.SQL.Add('commit');

             QryUpdate.ExecSQL;


            //ShowMessage('SIT = 1')

        end

        else

        if  ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].cSit = 0 then

        begin

            if ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].CNPJ = '' then

            begin

             QryUpdate.Close;

             QryUpdate.SQL.Clear;

             QryUpdate.SQL.Add('UPDATE TESTE_ICMS_CLIENTES SET SITUACAO_CNPJ = ''CNPJ INVALIDO'' WHERE CODCLIENTE = :xCliente');

             QryUpdate.ParamByName('xCliente').Value := QryTesteCODCLIENTE.Value;

             QryUpdate.ExecSQL;

             QryUpdate.SQL.Clear;

             QryUpdate.SQL.Add('commit');

             QryUpdate.ExecSQL;

             erro := IntToStr(ACBrNFe.WebServices.ConsultaCadastro.cStat);

             Memo2.Lines.Add(CNPJ + ' ERRO: '+ erro + ' MOVITO: ' + ACBrNFe.WebServices.ConsultaCadastro.xMotivo);

             Memo2.Lines.Add('');

              //showMessage('CNPJ INVALIDO!')

            end

            else

            begin

             regime := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xRegApur;

             inscricaoEstadual := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE;

             QryUpdate.Close;

             QryUpdate.SQL.Clear;


             QryUpdate.SQL.Add('UPDATE TESTE_ICMS_CLIENTES SET SITUACAO_ICMS = ''NAO HABILITADO'', REGIME_DE_APURACAO = :xRegime, INSCRICAO_ESTADUAL = :xIE, SITUACAO_CNPJ = ''VALIDO'' WHERE CODCLIENTE = :xCliente');

             QryUpdate.ParamByName('xRegime').Value := regime;

             QryUpdate.ParamByname('xIE').Value := inscricaoEstadual;

             QryUpdate.ParamByName('xCliente').Value := QryTesteCODCLIENTE.Value;

             QryUpdate.ExecSQL;

             QryUpdate.SQL.Clear;

             QryUpdate.SQL.Add('commit');

             QryUpdate.ExecSQL;

                   //ShowMessage('SIT = 0')

            end;

        end;


      except


        Memo1.Lines.Add(QryTesteCODCLIENTE.asString);

      end;

      QryTeste.Next;

   end;

   ShowMessage('ACABOU A CONSULTA!');

           end

        else

        begin

            ShowMessage('DIGITE A CONSULTA SQL!');

            end;

   end;


end.

Alguém sabe o que pode ser?

Desde já agradeço.

[Italo Giurizzato Junior]

Bom dia Felipe,

O certificado não esta vencido?

[feliperocha]

Bom dia Felipe,

O certificado não esta vencido?

Bom dia italojjr, realmente era isso mesmo, testei com um outro certificado aqui e deu certo.

O estranho era que o antigo estava funcionando normalmente da ultima vez e so vence em agosto de 2013, mas...

Muito obrigado

[phb]

Boa tarde pessoal

 

Primeiro, gostaria de parabenizar a TODOS pelo excelente componente, pelo fórum e pela união dessa grande comunidade.

 

Trabalho simplesmente fantástico!!!

 

Mas vamos lá, sou novo aqui no fórum e estou tentando implementar o ACBrNFSe para o provedor FIORILLI, consegui compilar o projeto, mas estou recebendo o erro de exception ao enviar o lote RPS,

 

a excessão acontece unit:

unit ACBrNFSeWebServices;

 

na função:

function TNFSeEnviarLoteRPS.Executar: Boolean; 

 

na linha: 

StrStream := TStringStream.Create('');

 

e o erro seria esse que aparece no ShowMessage:

" raised exception class ESOAPHTTPException with message Parâmetro incorreto. - URL:http://201.28.69.146:5663/IssWeb-ejb/IssWebWS/IssWebWS - SOAPAction:http://ws.issweb.fiorilli.com.br/recepcionarLoteRps'. Process stopped...

Se alguém já passou por isso e puder me ajudar, antecipadamente, agradeço.

 

Muito Obrigado!!!!

Editado 23 Agosto, 2013 por phb

[Italo Giurizzato Junior]

Boa noite phb,

 

Qual é a cidade?

 

Você esta com os fontes atualizados?

 

Antes que diga que sim, você atualizou a URL do tortoise?

[phb]

Boa Noite Italo.

 

Antes de mais nada, devo lhe agradecer pelo rápido contato. Obrigado!!!

 

A cidade em questão é Bariri/SP, o provedor: Fiorilli

Creio que os fontes estejam atualizados, pois reinstalei o ACBr via ACBrInstall

e a URL no tortoise está: svn://svn.code.sf.net/p/acbr/code

mas reparei que ao instalar usando o ACBrInstall a URL está: svn://svn.code.sf.net/p/acbr/code/trunk

mas enfim, mesmo depois de reinstalar o componente, o erro que citei antes permanece.

 

Alguma idéia do que pode ser???

 

E mais uma vez, Obrigado!!!

[Italo Giurizzato Junior]

Boa noite PNB,

 

Acabei de realizar um teste.

 

Configurei o programa exemplo com a cidade Bariri/SP, schema Fiorilli, usei o botão [Gerar e Enviar Lote] e tive como retorno o seguinte erro:

 

Usuário ou senha não informado.

 

Isso era esperado visto que não informei os dados acima e realizei testes usando um certificado que não pertence a uma empresa de Bariri.

 

Mas o erro postado por você não surgiu no meu teste.

 

Arquivos de envio e retorno:

5-env-lot-c.xml

5-rec-c.xml

[phb]

Bom dia Italo.

 

O negócio ta meio embaçado aqui, rsrsrs

 

Assim como você, eu clico no botão [Gerar e Enviar Lote], o sistema pede o numero do RPS, numero do Lote, eu preencho de acordo com a faixa de numero que o provedor Fiorilli me deu para testes no caso (de 1201 a 1300), em seguida o sistema solicita a senha PIM do certificado (no meu caso estou usando certificado A3), eu digito-a e clico em OK, pronto: já dá o pau:  https://dl.dropboxusercontent.com/u/43540715/Sem%20t%C3%ADtulo.jpg

 

Será que o problema está no meu certificado??? 

 

Você poderia me enviar o seu Demo.exe p/ eu fazer um teste aqui???

 

Obrigado!!!

[Italo Giurizzato Junior]

Boa tarde PHB,

 

o programa exemplo que utilizo é o mesmo que encontra-se disponivel na pasta ...\Exemplos\ACBrNFSe\Delphi.

 

A unica diferença é que no teste que fiz usei um certificado A1.

 

Pesquise no fórum para saber quais as pessoas que utilizam o provedor Fiorilli, eles podem orientar melhor você.

Passar alguma dica.

[phb]

Boa tarde Italo.

 

Acabei de falar com o suporte da Fiorilli, e enviei p/ eles o xml que o DemoAcbr está gerando, com meu certificado A3 e...

eles disseram que o XML está correto, inclusive analisara e enviaram para o servidor e o mesmo foi aceito.

 

Portanto, o problema deva estar no envio, uma vez que não é criado LOG e nem me chega resposta do WebService.

 

Obs.: Tive problemas ao compilar o Demo pois nao tenho o Quick aqui, entao tive que remove-lo do projeto. por isso te pedi o EXE pra fazer um teste.

 

 

Mas agradeço pela atenção... Um abraço e Obrigado!!!

[Italo Giurizzato Junior]

PHB,

 

Se não me falha a memória esta disponivel o DANFSE em Fast Report também.