Erro 259 no Web Service consultaCadastro2

[feliperocha]

Boa tarde amigos, tudo bem?

Bom estou com um problema estranho com minha aplicação nesse Web Service.

Seguinte, Fiz uma aplicação simples para atualizar a situação cadastral do ICMS dos clientes em uma base de dados Oracle, ela basicamente pega os parâmetros do banco (CNPJ e UF) e solicita ao Sefaz a situação do ICMS (0 = Não Habilitado e 1 = Habilitado) através do Web Service consultaCadastro2 e depois salva o resultado na coluna situacao_icms

ela estava funcionando normalmente a até pouco tempo atras, não fiz nenhuma alteração, mas para a minha infelicidade quando ia rodar no banco de dados de produção, com os mesmos dados do banco de testes começou a dar esse erro

259 Rejeição: CNPJ da consulta não cadastrado como contribuinte na UF

já depurei o programa linha a linha, mas não encontro o erro, os parametros estão sendo passados corretamente para o web service mais sempre retorna esse erro, sendo que todos esses CNPJs se eu consultar pelo site do Sintegra estão normais

Segue a tela da aplicação de testes com o erro:

Segue o codigo do botão consultar:

procedure TForm1.Button2Click(Sender: TObject);

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;

Alguém sabe o que pode ser??

Desde já agradeço.