Assinatura De Lote Rps Não Olha Para O Provedor - Iss.net

[marciost]

Bom dia. Percebi que ao enviar lote o componente verifica a necessidade de assinar lote em FConfiguracoes.Certificados.AssinaLote, porém no provedor, no método TProvedorISSNet..GetAssinarXML todas as ações estão marcadas para false. Alguém sabe dizer porque não está sendo verificada a necessidade de assinar o Xml através do método GetAssinarXML do provedor?

[marciost]

Por dentra da unit das notas fiscais não temos acesso ao provedor, mas acho que poderia ser validado antes de chamar o método de assinar lote. Exemplo:

Unit: ACBrNFSeWebServices.pas

Método: TWebServicesBase.DoNFSeEnviarLoteRPS

Linha: 576.

 

Como está hoje:

FDadosMsg := TNFSeEnviarLoteRPS(Self).FNotasFiscais.AssinarLoteRps(TNFSeEnviarLoteRps(Self).NumeroLote, FDadosMSg);

 

Minha sugestão:

if FProvedorClass.GetAssinarXML(acRecepcionar) then

   FDadosMsg := TNFSeEnviarLoteRPS(Self).FNotasFiscais.AssinarLoteRps(TNFSeEnviarLoteRps(Self).NumeroLote, FDadosMSg);

[Italo Giurizzato Junior]

Boa tarde Marcio,

 

Quen faz essa checagem é a propria function AssinarLoteRps e eu não sei o impacto no processamento se melhora ou não se:

 

Só chamar a função se for necessário Assinar ou chamar a função e assinar se for necessário dependendo do valor de AssinaLote for True ou False.

[BluData]

marciost, aproveitando o seu tópico, você esta conseguindo enviar RPS de Novo Hamburgo?

Estou tendo problemas pois quando envia o servidor me retorna esta mensagem:

O servidor nao pode processar a solicitacao. ---> Referencia de objeto nao definida para uma instancia de um objeto.

Você esta usando certificado digital?!

[marciost]

Bom dia BluData.

 

Sim, estou conseguindo. Mas eu estava com esse mesmo problema que você colocou. Resolvi isso comentando a parte da procedure TWebServicesBase.OnBeforePost que estava dando o erro, é essa parte:

 if not (FProvedor in [proGovBr, proSimplISS, proAbaco, proISSNet])

  then begin

   if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5)

    then begin

    // if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog)

    //  then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError));

    // raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} );

    end;

  end;

 

É uma gambiarra, mas faze o que né?

 

Sim, estou usando certificado.

 

Italo, questionei isso não por causa de performance da execução, é mais para saber. Estranhei ter duas configurações possíveis para a mesma validação, sendo que a que é específica do provedor e na minha opinião a que deveria ser usada não é usada.

[datilas]

Algum de voces esta conseguindo fazer Cancelamento com o provedor Iss.net pois estou tentando e o retorno é : Cancelamento - Arquivo Fora De Estrutura

[BluData]

Bom dia BluData.

 

Sim, estou conseguindo. Mas eu estava com esse mesmo problema que você colocou. Resolvi isso comentando a parte da procedure TWebServicesBase.OnBeforePost que estava dando o erro, é essa parte:

 if not (FProvedor in [proGovBr, proSimplISS, proAbaco, proISSNet])

  then begin

   if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5)

    then begin

    // if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog)

    //  then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError));

    // raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} );

    end;

  end;

 

É uma gambiarra, mas faze o que né?

 

Sim, estou usando certificado.

 

Italo, questionei isso não por causa de performance da execução, é mais para saber. Estranhei ter duas configurações possíveis para a mesma validação, sendo que a que é específica do provedor e na minha opinião a que deveria ser usada não é usada.

 

marciost, não entendi a lógica, o provedor ISSNet nem entra neste if que foi comentado....

[marciost]

Boa tarde BluData.

 

Báh, nem vi que o provedor ISSNet estava dentro do not in... foi incluído depois de minha alteração, dai fiz update e o svn fez merge nessa parte. Mas era ali que data esse erro pra mim.