Solução para NFSe provedor EL

[LEANDRODOCOUTO]

Acho que até o Italo mantem os fontes do acbr la..

[Italo Giurizzato Junior]

Bom dia Leandro,

Todos os Arquivos INI dos provedores agora possui um campo chamado UseCertificado que pode receber o valor 0 e 1.

Já tentou edita-lo e alterar esse valor?

[LEANDRODOCOUTO]

Já tentei... se colocar como 0 ele dá erro que o componente foi configurado para não usar certificado..se deixar como 1 da erro 12002...

[GumercinoICS]

Bom dia Italo e Leandro.

Eu venho atualizando diariamente o ACBr e fazendo vários testes e não consegui obter sucesso em nenhum deles.

Devido a urgência de meu cliente eu liguei para a prefeitura de meu município e peguei a documentação necessária para fazer a integração do Provedor EL diretamente em meu software, sem a utilização do ACBr, e tive sucesso, esta funcionando perfeitamente.

Acredito que essa documentação poderá nos ajudar e muito na implementação do mesmo no ACBr, vocês tem interesse que eu envie a documentação ou até mesmo os exemplos do meu projeto funcionando?

[Juliomar Marchetti]

10 horas atrás, LEANDRODOCOUTO disse:

Acho que até o Italo mantem os fontes do acbr la..

Acho que está enganado ... o endereço que damos manutenção é https://svn.code.sf.net/p/acbr/code/trunk2/

[Italo Giurizzato Junior]

Bom dia a todos,

Leandro, quero deixar claro para você e a todos que, todas as alterações realizadas por mim seja em qual for o componente são enviadas exclusivamente para o repositório oficial do ACBr, conforme o link postado pelo Juliomar.

Não mantenho cópia dos fontes em nenhum outro repositório a não ser no HD da minha máquina, alias todos nós temos uma cópia dos fontes em nossas maquinas.

Em um outro post foi levantado a questão do erro referente a assinatura quando se atribui zero ao campo UseCertificado.

A sugestão foi comentar as 2 linhas que faz a checagem e executa a exceção para ver se o erro 12002 é sanado.

Alguém chegou a fazer esse teste?

Eu não tenho certificado de nenhuma empresa que emite NFS-e través do provedor EL, alias não tenho de nenhum, o que eu tinha, cedido gentilmente por um colega do fórum já venceu.

E foi com este certificado que consegui realizar os testes no provedor Ginfes quando fiz a migração do componente para o Trunk2.

Sendo assim cabe a todos vocês que necessitam do componente para atender os seus clientes, realizarem testes e apontar os erros e seria ótimo se apontassem as possíveis soluções para os problemas encontrados.

Já vi muitos dizerem não conheço a fundo o código do componente para propor correções.

Será que o código é tão complicado assim?

Vamos arregaçar as mangas e estudar um pouco?

 

[LEANDRODOCOUTO]

Estou fazendo os testes e mexendo no código.. assim que funcionar vou propor a correção..o problema não acontece só no provedor EL, uso o Thema e IssNet... Quando O GIT, tem uns commit lá com o autor italojjr, por isso achei que tu mantivesse uma versão no git... isso é irrelevante pra mim, uso o git por conveniência, mas tembém tenho o svn.. e sim.. o código é complicado..

 

sds,

[Italo Giurizzato Junior]

De quando é esse commit?

Não possuo conta no GIT para realizar commit seja dos fontes do ACBr ou outro qualquer.

[LEANDRODOCOUTO]

têm vários commits são as mesmas datas no svn.. talvez esse usuário que faça o mirror no git (esse GabrielF7 ) traga o nome do autor do jeito que esta no svn, por isso acho que aparece o teu nome. Segue o link se tu quiser dar uma olhada.

https://github.com/GabrielF7/ACBrTrunk2

sds,

 

[LEANDRODOCOUTO]

O erro 12002 ocorre nessa linha...

 

if HttpSendRequest(pRequest, nil, 0, Pointer(FData), Length(FData)) then

Unit : ACBrHTTPReqResp linha 444

 

[Juliomar Marchetti]

1 hora atrás, LEANDRODOCOUTO disse:

têm vários commits são as mesmas datas no svn.. talvez esse usuário que faça o mirror no git (esse GabrielF7 ) traga o nome do autor do jeito que esta no svn, por isso acho que aparece o teu nome. Segue o link se tu quiser dar uma olhada.

https://github.com/GabrielF7/ACBrTrunk2

sds,

 

Volto a frisar.. só damos manutenção ao svn que informei acima Ok!

[LEANDRODOCOUTO]

volto a frisar.... o erro ocorre também com os fontes baixados pelo svn, que estou usando oficialmente agora para o acbr..

 

sds,

[LEANDRODOCOUTO]

Os endereços da chave do arq ISSnet.INI  não existem.. será que tem algo a ver com o erro 12002 ?

[SoapAction]
Recepcionar=http://www.issnetonline.com.br/webservice/nfd/RecepcionarLoteRps
ConsSit=http://www.issnetonline.com.br/webservice/nfd/ConsultaSituacaoLoteRPS
ConsLote=http://www.issnetonline.com.br/webservice/nfd/ConsultarLoteRps
ConsNFSeRps=http://www.issnetonline.com.br/webservice/nfd/ConsultarNFSePorRPS
ConsNFSe=http://www.issnetonline.com.br/webservice/nfd/ConsultarNfse
Cancelar=http://www.issnetonline.com.br/webservice/nfd/CancelarNfse

Editado 17 Março, 2016 por LEANDRODOCOUTO

[LEANDRODOCOUTO]

Mudei os headers soap no arquivo INI pra deixar como o manual ( soap: ao inves de S: ) mas mesmo assim não resolveu...

Então..

na Unit ACBrHTTPReqResp, na procedure TACBrHTTPReqResp.Execute(Resp: TStream) o valor de FUseCertificate vem sempre como TRUE.. mesmo no arquivo INI estar como 0. Somente coloquei FUseCertificate := false; na primeira linha dessa unit e o erro 12002 parou...

Tem uma maneira de nessa procedure, pegar o objeto NFSE pra verificar o status da Propriedadae UseCertificado ?

Isso resolveria o problema, porque era só associar o valor da propriedade a variavel FFUseCertificate .

[LEANDRODOCOUTO]

A unica maneira que deu certo foi colocando na Unit ACBrHTTPReqResp, na procedure TACBrHTTPReqResp.Execute(Resp: TStream) o valor de FUseCertificate para FALSE... ai nao dá mais o erro 12002

[Italo Giurizzato Junior]

Bom dia Leandro,

Na postagem que você se refere a seção [SoapAction], é dito que os endereços da chave não existe.

As URLs que constam nessa seção foram extraídas deste link:

http://www.issnetonline.com.br/webserviceabrasf/homologacao/servicos.asmx?WSDL

Vou só mostrar o fragmento que se refere ao RecepcionarLoteRps, depois você procura pelos demais e verifica se estão corretos:

<wsdl:operation name="RecepcionarLoteRps">

<soap:operation soapAction="http://www.issnetonline.com.br/webservice/nfd/RecepcionarLoteRps" style="document"/>

<wsdl:input>

<soap:body use="literal"/>

</wsdl:input>

<wsdl:output>

<soap:body use="literal"/>

</wsdl:output>

</wsdl:operation>

 

Outra coisa, você diz:

(...)

na Unit ACBrHTTPReqResp, na procedure TACBrHTTPReqResp.Execute(Resp: TStream) o valor de FUseCertificate vem sempre como TRUE.. mesmo no arquivo INI estar como 0. Somente coloquei FUseCertificate := false; na primeira linha dessa unit e o erro 12002 parou...

(...)

 

Se é atribuído zero a UseCertificado, mas ao checar na procedure TACBrHTTPReqResp.Execute o FUseCertificate esta com o valor True é preciso descobrir "debugar" em qual momento isso ocorre, pois não deveria ocorrer.

 

E não simplesmente alterar o valor da propriedade dentro da procedure para resolver o problema.

[LEANDRODOCOUTO]

Bom dia Italo...

Sei disso.. passei dois dias debugando até chegar na linha aonde ocorre o problema. Essa mudança fiz de forma  emergencial, para alguém que esteja na mesma situação que eu talvez essa alterção vai quebrar um galho como quebrou pra mim. Sei que não pode ser definitiva...agora vou depurar pra ver qual a real situação que causa o erro 12002...

sds,

Leandro

[Heronim Antonio Marçal]

Prezado Ítalo,

Já migrei quase todos os clientes para o trunk2, mas estou tendo dificuldades com o EL. Hoje acertei a questão do certificado, notei que ainda que eu configure para não usar o certificado, quando há certificado informado o componente aciona no envio. Retirei o certificado e parou de dar problema nas linhas abaixo:

 

    if (FPConfiguracoes.Certificados.NumeroSerie <> '') then // Tem Certificado carregado ?
      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));
 

Ainda assim ele não envia, mesmo colocando timeout 30000 conforme indicado, ocorrendo a mensagem na imagem em anexo, como resolvo?

 

[Italo Giurizzato Junior]

Boa tarde Heronim,

No arquivo EL.ini temos a seguinte linha:

UseCertificado=1

experimente mudar o valor para zero.

[Heronim Antonio Marçal]

Prezado Ítalo,

Fiz teste com o demo conforme sua indicação, ocorreram as seguintes mensagens conforme imagem em anexo.

 

 

[Italo Giurizzato Junior]

Boa noite Heronim,

Ajudaria se você anexar também os XMLs gerados, principalmente os de envio e de retorno.

[Heronim Antonio Marçal]

Segue em anexo. Troquei os dados do prestador por razão de confidencialidade.

1UNICA-rps.xml

[Italo Giurizzato Junior]

Heronim,

Esse não serve, pois ele é apenas o XML do RPS, necessito do XML de envio e de retorno.

O XML de envio contem o que você anexou entre outras informações.

[Heronim Antonio Marçal]

Ok, em anexo conforme solicitado. 

1-rec.xml

1-env-lot.xml

[Italo Giurizzato Junior]

Heronim,

Por favor configure o componente para salvar os arquivos soap.

Configuracoes.WebServices.Salvar := True;

Faça novos testes e anexe os arquivos de envio e de retorno (soap).