nfse 3169901

[Antonio Gomes]

@Italo Giurizzato Junior

Bom dia, Rapaz, é possivel a gente colocar um if ali no trecho, antes de entrar, se teve um retorno com sucesso, antes de entrar na funcao de fazer parse no json?

olha o erro

 

Depois no parse, ocorre isso, pois é um json inválido.

---------------------------
GExperts Debugger Exception Notification
---------------------------
Project SisFaturamento.exe raised exception class EJsonParserException with message 'Expected "{" but found invalid symbol (1, 2)'.
---------------------------
[&Filter ...] [Ignore &All this Session] [&Break] [Additional &Info] [&Continue]
---------------------------
ThreadId=22720
ProcessId=7
ThreadName=""
ExceptionMessage="Expected "{" but found invalid symbol (1, 2)"
ExceptionName="EJsonParserException"
ExceptionDisplayName="EJsonParserException"
ExceptionAddress=7726B6E2
FileName=<not available>
LineNumber=<not available>
ExceptionObject=123360E0
Classes=[EJsonParserException,EJsonException,Exception,TObject]

---------------------------

Essa falha se dá por falha de certificado, porém, antes nao acusou o certificado.

 

[Italo Giurizzato Junior]

Bom dia @Antonio Gomes,

O SERPRO estão fazendo algumas mudanças.

Esse erro ocorre quando você tenta obter o PDF da nota ou o XML?

[Antonio Gomes]

6 horas atrás, Italo Giurizzato Junior disse:

Bom dia @Antonio Gomes,

O SERPRO estão fazendo algumas mudanças.

Esse erro ocorre quando você tenta obter o PDF da nota ou o XML?

Não, esse erro acontece se o operador tiver com certificado vencido. Achei feio o erro... so isso. Se teria como tratar antes.

[Juliomar Marchetti]

Mas não tem validação em seu software para o certificado usado e alertas de vencimento?

[Antonio Gomes]

10 horas atrás, Juliomar Marchetti disse:

Mas não tem validação em seu software para o certificado usado e alertas de vencimento?

tem, mas nao tenho acesso a interceptar esse erro, lembra, o componente é totalmente acoplado, ate sem o a3 dá esse erro, testa ai.

[Italo Giurizzato Junior]

Boa tarde @Antonio Gomes,

Fiz uma alteração no componente que acredito que vai resolver essa questão de certificado vencido.

Vou testar estando tudo OK, vou mandar para o SVN.

Já foi criado a tarefa  ACBR-8148 para os testes.

[Italo Giurizzato Junior]

Boa tarde @Antonio Gomes,

Na unit ACBrNFSeXWebserviceBase temos a function Executar, veja o seu conteúdo.

function TACBrNFSeXWebservice.Executar(const SoapAction, Message, SoapHeader: string;
  responseTag, namespace: array of string): string;
begin
  FPEnvio := DefinirMsgEnvio(Message, SoapAction, SoapHeader, namespace);
  SalvarEnvio(FPEnvio, FPMsgOrig);

  UsarCertificado;

  EnviarDados(SoapAction);
  SalvarRetornoWebService(FPRetorno);

  FHtmlRetorno := RetornaHTMLNota(FPRetorno);

  Result := ExtrairRetorno(FPRetorno, responseTag);
  SalvarRetornoDadosMsg(Result);
end;

Note que nela é executado a procedure UsarCertificado.

procedure TACBrNFSeXWebservice.UsarCertificado;
var
  TemCertificadoConfigurado: Boolean;
begin
  FPDFeOwner.SSL.UseCertificateHTTP := TACBrNFSeX(FPDFeOwner).Provider.ConfigGeral.UseCertificateHTTP;

  if FPDFeOwner.SSL.UseCertificateHTTP then
  begin
    TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or
                                 (FPConfiguracoes.Certificados.DadosPFX <> '') or
                                 (FPConfiguracoes.Certificados.ArquivoPFX <> '');

    if TemCertificadoConfigurado then
      if FPConfiguracoes.Certificados.VerificarValidade then
        if (FPDFeOwner.SSL.CertDataVenc < Now) then
          raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                            FormatDateBr(FPDFeOwner.SSL.CertDataVenc));
  end;
end;

Essa procedure verifica se na configuração Geral do provedor a propriedade UseCertificateHTTP esta com o valor True, caso afirmativo o componente vai checar a data de vencimento do certificado.

Se não esta gerando a mensagem acusado que o certificado esta vencido é porque na unit provider do provedor a propriedade mencionada acima esta com o valor false ou você deve estar usando o Try e este esta ocultado a mensagem.

Sugiro fazer um teste usando o programa exemplo do componente.

[Antonio Gomes]

1 hora atrás, Italo Giurizzato Junior disse:

Boa tarde @Antonio Gomes,

Na unit ACBrNFSeXWebserviceBase temos a function Executar, veja o seu conteúdo.

function TACBrNFSeXWebservice.Executar(const SoapAction, Message, SoapHeader: string;
  responseTag, namespace: array of string): string;
begin
  FPEnvio := DefinirMsgEnvio(Message, SoapAction, SoapHeader, namespace);
  SalvarEnvio(FPEnvio, FPMsgOrig);

  UsarCertificado;

  EnviarDados(SoapAction);
  SalvarRetornoWebService(FPRetorno);

  FHtmlRetorno := RetornaHTMLNota(FPRetorno);

  Result := ExtrairRetorno(FPRetorno, responseTag);
  SalvarRetornoDadosMsg(Result);
end;

Note que nela é executado a procedure UsarCertificado.

procedure TACBrNFSeXWebservice.UsarCertificado;
var
  TemCertificadoConfigurado: Boolean;
begin
  FPDFeOwner.SSL.UseCertificateHTTP := TACBrNFSeX(FPDFeOwner).Provider.ConfigGeral.UseCertificateHTTP;

  if FPDFeOwner.SSL.UseCertificateHTTP then
  begin
    TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or
                                 (FPConfiguracoes.Certificados.DadosPFX <> '') or
                                 (FPConfiguracoes.Certificados.ArquivoPFX <> '');

    if TemCertificadoConfigurado then
      if FPConfiguracoes.Certificados.VerificarValidade then
        if (FPDFeOwner.SSL.CertDataVenc < Now) then
          raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+
                                            FormatDateBr(FPDFeOwner.SSL.CertDataVenc));
  end;
end;

Essa procedure verifica se na configuração Geral do provedor a propriedade UseCertificateHTTP esta com o valor True, caso afirmativo o componente vai checar a data de vencimento do certificado.

Se não esta gerando a mensagem acusado que o certificado esta vencido é porque na unit provider do provedor a propriedade mencionada acima esta com o valor false ou você deve estar usando o Try e este esta ocultado a mensagem.

Sugiro fazer um teste usando o programa exemplo do componente.

Vou testar cara, mas o json não havendo conjunto de colchetes igual ele espera, mas sim um retorno html da pagina não processada, penso que nem parse era para acontecer, mas retornar como outro tipo de erro, mas suave, aconteceu uma vez so no cliente.