NFSe Provedor IPM (Guaramirim e Massaranduba / SC)

[Filipe Natividade]

  Em 25/01/2018 at 11:31, Juliomar Marchetti disse:

como não emito para esse provedor e não tenho software pra emissão de nfs-e não seilhe dizer mas como não irá funcionar para Lazarus não é possível aceitar o código anexo

Expandir  

Por acaso, vc sabe de alguma forma de dar um HTMP/POST sem usar o INDY? se tiver uma outra alternativa, conseguimos fazer a troca.

[Daniel Simoes]

Veja a ACBrSocket.... Você pode ver exemplos de POST, GET usando a ACBrSocket em componentes da aba TCP como ACBrCEP, ACBrIBGE, ACBrConsultaCNPJ, etc

[Filipe Natividade]

  Em 25/01/2018 at 12:16, Daniel Simoes disse:

Veja a ACBrSocket.... Você pode ver exemplos de POST, GET usando a ACBrSocket em componentes da aba TCP como ACBrCEP, ACBrIBGE, ACBrConsultaCNPJ, etc

Expandir  

Obg Daniel, vou dar uma olhada, mas já estava seguindo um exemplo que encontrei aqui no fórum mesmo com o uso do httpsend da synalist que já está sendo usado pelo ACBr, oque vc acha?

[Daniel Simoes]

Sem problemas... porem veja que  ACBrSocket, resolve algumas complicações da conexão HTTP, como Proxy, redirecionamento, etc...

[Elias LS Tech]

Filipe, 

Acredito que o que o Daniel falou do ACBrSocket é a melhor solução, fica fácil para implementar.

Vou conseguir "mexer" nisso a tarde, se conseguir evoluir me comunique.

att

[Filipe Natividade]

Blz vou dar uma verificada para implementar com ACBrSocket.

[Filipe Natividade]

Bom dia pessoal.

Estou fazendo desta forma:

var
  Post: TStringStream;
  ACBrHTTP: TACBrHTTP;
begin
  Post := TStringStream.Create('');
  Post.WriteString( 'login=' + EncodeURLElement(FPConfiguracoesNFSe.Geral.UserWeb) + '&' );
  Post.WriteString( 'senha=' + EncodeURLElement(FPConfiguracoesNFSe.Geral.SenhaWeb) + '&' );
  Post.WriteString( 'f1=' + aFile );

  ACBrHTTP := TACBrHTTP.Create(nil);

  ACBrHTTP.HTTPSend.Clear;
  Post.Position:= 0;
  ACBrHTTP.HttpSend.Document.Position:= 0;
  ACBrHTTP.HttpSend.Document.CopyFrom(Post, Post.Size);
  ACBrHTTP.HTTPSend.MimeType := 'application/x-www-form-urlencoded';
  ACBrHTTP.HTTPSend.Cookies.Add('flag=1');
  ACBrHTTP.HTTPPost( URL );
end;

Consegui fazer o login no webservice, mas informa que não pode carregar o arquivo.

[Elias LS Tech]

Bom dia,

Mas onde você está carregando ou setando o arquivo?

Acho que é isso que falta.

att

[Daniel Simoes]

Em TACBrConsultaCNPJ.Consulta , da Unit ACBrConsultaCNPJ.pas, você pode ver um exemplo de POST, usando a ACBrSocket

[Filipe Natividade]

  Em 26/01/2018 at 12:47, Daniel Simoes disse:

Em TACBrConsultaCNPJ.Consulta , da Unit ACBrConsultaCNPJ.pas, você pode ver um exemplo de POST, usando a ACBrSocket

Expandir  

Certo @Daniel Simoes estou fazendo conforme a unit que ACBrConsultaCNPJ.pas, mas não está funcionando, o webservice informa que não foi possível localizar o arquivo

[Filipe Natividade]

Boa tarde pessoal.

Segue novas alterações para o envio da NFS-e para o webservice da IPM funcionando com ACBrSocket.

ACBr Trunk2.rar

[Daniel Simoes]

Porque você precisou usar um TFileStream ?

  FileStream := TFileStream.Create( aFile, fmOpenRead );

Aparentemente poderia ser um TMemoryStream ou TStringStream

[Filipe Natividade]

  Em 26/01/2018 at 18:08, Daniel Simoes disse:

Porque você precisou usar um TFileStream ?

  FileStream := TFileStream.Create( aFile, fmOpenRead );

Aparentemente poderia ser um TMemoryStream ou TStringStream

Expandir  

Não tem nenhum motivo especifico. se houver problema posso mudar.

[Filipe Natividade]

  Em 26/01/2018 at 18:59, Filipe Natividade disse:

Não tem nenhum motivo especifico. se houver problema posso mudar.

Expandir  

Boa tarde.

Fiz mais uma alteração, agora não é mais necessário acessar o arquivo em disco, será utilizado o conteúdo da variável FPDadosMsg.

ACBr Trunk2.rar

[Elias LS Tech]

Bom dia,

Ítalo/Daniel.

As fontes postadas pelo Filipe estão de acordo. 

Vocês conseguem adicionar no versionador?

att

[Daniel Simoes]

A modificação não parece integrada com o ACBrDFe... Observe que já existe o método TDFeWebService.EnviarDados... ele já faz o POST, usando a tecnologia que o usuário escolheu (WinLNet, WinHttp, OpenSSL) não seria apenas o caso de sobrescrever a rotina que gera o conteúdo do Documento (FPEnvelopeSoap) e deixar a "EnviarDados", já fazer o trabalho dela ?

De uma olhada em: DefinirServicoEAction, e DefinirDadosMsg;

O problema dessa implementação.. é que ela não respeitará a configuração em TACBrDFeSSL, definida para comunicação HTTPS... pois ACBrSocket, sempre usará OpenSSL

[Filipe Natividade]

  Em 29/01/2018 at 19:23, Daniel Simoes disse:

A modificação não parece integrada com o ACBrDFe... Observe que já existe o método TDFeWebService.EnviarDados... ele já faz o POST, usando a tecnologia que o usuário escolheu (WinLNet, WinHttp, OpenSSL) não seria apenas o caso de sobrescrever a rotina que gera o conteúdo do Documento (FPEnvelopeSoap) e deixar a "EnviarDados", já fazer o trabalho dela ?

De uma olhada em: DefinirServicoEAction, e DefinirDadosMsg;

O problema dessa implementação.. é que ela não respeitará a configuração em TACBrDFeSSL, definida para comunicação HTTPS... pois ACBrSocket, sempre usará OpenSSL

Expandir  

@Daniel Simoes

 Boa tarde, já tentamos, eu e o @Elias LS Tech,  fazer o envio na maneira padrão, com SOAP, mas o provedor IPM só aceita assim, seria possível liberar as alterações para pelo menos quem precisa gerar com IPM conseguir desta forma e tentar mais algumas formas para daqui por diante.

o @Elias LS Tech e o @Léo e eu estamos no aguardo para podermos liberar para nossos clientes.

[Daniel Simoes]

Não pretendo subir dessa maneira... mas vocês podem manter as versões de vocês com as modificações...

[BigWings]

  Em 25/01/2018 at 11:27, Filipe Natividade disse:

Infelizmente o provedor IPM não utiliza padrão SOAP, então se vc tiver alguma ideia de como fazer sem o INDY, por favor, me informe que faço a alteração, Eu e o Elias tentamos de outra forma, mas sem sucesso.

Expandir  

Qual é exatamente o problema em usar o EnviarDados original?

Tem o provedor Agili no componente que é REST e funciona normalmente.

Pelo que vi no IPM.ini já está configurado para não fazer o envelopamento.

 

[Filipe Natividade]

No manual da IPM não possui nenhuma menção para fazer o envelopamento, apenas para dar dar um post com tais parâmetros, agora se alguém puder dar um exemplo de com envelopamento agradeço.

Ou algum exemplo de como utilizar o EnviarDados original.

Manual Eletron V2.pdf

[BigWings]

  Em 30/01/2018 at 10:41, Filipe Natividade disse:

No manual da IPM não possui nenhuma menção para fazer o envelopamento, apenas para dar dar um post com tais parâmetros, agora se alguém puder dar um exemplo de com envelopamento agradeço.

Ou algum exemplo de como utilizar o EnviarDados original.

Manual Eletron V2.pdfUnavailable

Expandir  

Eu não disse que precisava... se não é SOAP acredito que não deva.

Perguntando novamente, qual o problema ao usar o EnviarDados original?

[Filipe Natividade]

  Em 30/01/2018 at 11:40, BigWings disse:

Eu não disse que precisava... se não é SOAP acredito que não deva.

Perguntando novamente, qual o problema ao usar o EnviarDados original?

Expandir  

simplesmente ele não consegue logar no webservice, não reconhece usuário e senha, sem ser no modelo que está em anexo, não conseguimos fazer ele autenticar no webservice.

Olhando o manual, como você faria para enviar esses parâmetros post no EnviarDados  original?

Editado 30 Janeiro, 2018 por Filipe Natividade

[BigWings]

  Em 30/01/2018 at 11:44, Filipe Natividade disse:

simplesmente ele não consegue logar no webservice, não reconhece usuário e senha, sem ser no modelo que está em anexo, não conseguimos fazer ele autenticar no webservice.

Olhando o manual, como você faria para enviar esses parâmetros post no EnviarDados  original?

Expandir  

Me parece que apenas acrescentando as linhas referentes a autenticação no DefinirDadosMsg pode resolver.

[Filipe Natividade]

  Em 30/01/2018 at 12:12, BigWings disse:

Me parece que apenas acrescentando as linhas referentes a autenticação no DefinirDadosMsg pode resolver.

Expandir  

Como que eu posso fazer uma requisição POST simples, não SOAP, dentro dos métodos padrões?, o que será preciso reimplementar?

[BigWings]

  Em 30/01/2018 at 13:25, Filipe Natividade disse:

Como que eu posso fazer uma requisição POST simples, não SOAP, dentro dos métodos padrões?, o que será preciso reimplementar?

Expandir  

Pelo que entendi dos fontes, a única diferença de uma requisição SOAP para uma comum é que a SOAP acrescenta o SoapAction como header na requisição. Veja o método Enviar nas classes derivadas de TDFeSSLHttpClass.

No caso do Agili, não precisou fazer nada para alterar o tipo de requisição, mesmo enviando um SoapAction qualquer a resposta vem normalmente.