Mdf-E - Nt 01.2015 - Novo Webservice De Consulta Manifestos Não Encerrados

[romuloum]

A NT 01.2015 está implantada no ambiente de homologação do MDF-e. Ela possui um novo WebService de consulta Manifestos Não Encerrados (MDFeConsNaoEnc).

Alguém já conseguiu utilizar esse webservice?

Se sim, poderia postar o xml da requisição?

Grato

[Italo Giurizzato Junior]

Boa tarde Romulo,

 

Favor atualizar todos os fontes de todas as pastas depois utilize a function:

 

    function ConsultarMDFeNaoEnc(ACNPJ: String): Boolean;

[Cesar Balbinott]

Italo, tentei fazer esta consulta mas esta retornando webservice inativo ou inoperante, sabe se tem como verificar se está ativo?

 

Estou usando o seguinte código:

ACBrMDFe1.Configuracoes.Certificados.NumeroSerie := Parametro('CONF_NFE_CERT');
ACBrMDFe1.Configuracoes.WebServices.UF := dmPrincipal.sdsEmpresaCIDA_UF.AsString;
ACBrMDFe1.ConsultarMDFeNaoEnc(dmPrincipal.sdsEmpresaEMPR_CNPJ.AsString);

Será que faltou alguma coisa?

[Italo Giurizzato Junior]

Boa tarde Cesar,

 

Você não configura o ambiente se é homologação ou produção, etc... ?

 

Você esta com todos os fontes de todas as pastas atualizados?

[Cesar Balbinott]

Boa noite Italo, está atualizado sim, quanto ao ambiente estou setando homologação.

Debugando o código aqui, está dando um access violation na linha 2300 do AcbrMdfeWebServices nesta parte: 

for i := 0 to MDFeRetorno.InfMDFe.Count -1 do
    begin
     FinfMDFe.Add;
     FinfMDFe.Items[i].chMDFe := MDFeRetorno.InfMDFe.Items[i].chMDFe;
     FinfMDFe.Items[i].nProt  := MDFeRetorno.InfMDFe.Items[i].nProt;
    end;

o erro ocorre quando começa o for, mas não consegui identificar oque pode ser e oque posso estar fazendo errado.

 

Talvez você teria um exemplo de uso desta função?

[Italo Giurizzato Junior]

Bom dia Cesar,

 

O componente possui uma propriedade chamada: Configuracoes.WebServices.Salvar, atribua o valor True a essa propriedade.

 

Depois teste novamente, isso não vai resolver o problema, mas será salvo em disco 2 arquivos com a palavra soap no nome.

 

Post como anexo esses 2 arquivos: *-ped-cons-soap.xml e *-cons-soap.xml

[Cesar Balbinott]

Bom dia Italo, gerou apenas um arquivo. 

20150106091513-ped-cons-soap.xml

[Italo Giurizzato Junior]

Cesar,

 

O erro ocorre no for, correto?

 

Vamos fazer um teste, comente as linhas do for e teste novamente, acredito que agora ele vai salvar os 2 arquivos.

[Cesar Balbinott]

Só uma dúvida antes de fazer o teste aqui, eu percebi que não está retornando nada nesta parte do código e neste for 

 

for i := 0 to MDFeRetorno.InfMDFe.Count -1 do

 

da erro de access violation, será que não está dando este erro porque não está retornando nada? 

 

Vou fazer mais uns testes aqui e posto o resultado.

[Cesar Balbinott]

Veja esta imagem, onde não tem os pontos azuis o delphi não passa, está pulando estas linhas, creio que por isso a resposta venha vazia sempre.

[Italo Giurizzato Junior]

Cesar,

 

Mesmo comentando as linhas que compõe o for, o erro persiste ou o arquivo de retorno *-cons-soap.xml é salvo zerado?

 

Se ele é salvo zerado, vamos a mais um teste, abra o arquivo ACBr.inc que esta dentro da pasta ...\Fontes\ACBrComum e descomente a definição da diretiva SoapHTTP.

 

{$DEFINE SoapHTTP}

[Cesar Balbinott]

Comentando o for gerou o arquivo *-cons-soap.xml

20150106103411-ped-cons-soap.xml

20150106103417-cons-soap.xml

[Italo Giurizzato Junior]

Cesar,

 

Atualize os fontes e teste novamente.

[Cesar Balbinott]

Atualizei os fontes e continuou dando o mesmo erro, comentei o for e aparece uma mensagem dizendo: 'ocorreu o seguinte erro:' apenas isso, isso acontecia depois que eu comentei o for.

 

Pra você está funcionando esta consulta? Pode ser algo relacionado a servidor, por estarmos em estados diferentes?

 

Gerou estes arquivos agora

 

 

20150106114919-ped-cons-soap.xml

20150106114923-cons-soap.xml

Editado 6 Janeiro, 2015 por Cesar Balbinott

[Italo Giurizzato Junior]

Boa tarde Cesar,

 

Não sei se você esta conseguindo visualizar o conteúdo do arquivo 20150106114923-cons-soap.xml através do navegador.

 

Caso não esteja, abra ele com o bloco de notas e altere a palavra Rejeição por Rejeicao.

 

Note que a consulta esta sendo rejeitada pelo fato de estar ocorrendo uma falha no schema XML.

 

Mas o XML enviado a SEFAZ esta em conformidade com o que consta na Nota Técnica.

 

A não ser pela palavra NAO que na nota técnica consta com acento e no XML não foi colocado.

 

Inclui o acento, por favor atualize novamente os fontes e tente mais uma vez.

[Cesar Balbinott]

Boa tarde Italo,

 

Atualizei e recompilei minha aplicação mas continua com o mesmo problema, você alterou só o schema? Se sim teria como anexar aqui?

[Italo Giurizzato Junior]

Bom dia Cesar,

 

O que fiz foi incluir o acento na palavra NÃO no XML que é enviado a SEFAZ.

 

Se o erro persiste acredito que o problema deve ser em função da versão do Delphi ou na SEFAZ mesmo.

[Cesar Balbinott]

Bom dia Italo, eu verifiquei oque está sendo enviado para a sefaz,  na linha 787 do ACBrMDFeWebServices

 

FEnvelopeSoap := UTF8Encode(FEnvelopeSoap);

 

o conteúdo desta variável é este:

<?xml version="1.0" encoding="utf-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Header><mdfeCabecMsg xmlns="http://www.portalfiscal.inf.br/mdfe/wsdl/MDFeConsNaoEnc"><cUF>42</cUF><versaoDados>1.00</versaoDados></mdfeCabecMsg></soap12:Header><soap12:Body><mdfeDadosMsg xmlns="http://www.portalfiscal.inf.br/mdfe/wsdl/MDFeConsNaoEnc"><consMDFeNaoEnc xmlns="http://www.portalfiscal.inf.br/mdfe" versao="1.00"><tpAmb>2</tpAmb><xServ>CONSULTAR NAO ENCERRADOS</xServ><CNPJ>08584793000145</CNPJ></consMDFeNaoEnc></mdfeDadosMsg></soap12:Body></soap12:Envelope>

[Italo Giurizzato Junior]

Boa tarde Cesar,

 

Note que o conteúdo da TAG: xServ é CONSULTAR NAO ENCERRADOS sendo que eu alterei para que a palavra NAO seja acentuada.

 

Atribua o valor False a propriedade RetirarAcentos:

 

Configuracoes.Geral.RetirarAcentos := False;

 

Antes de realizar a consulta.

[ncc.star]

Olá Srs.

 

Estou tentando fazer a consulta de MDF-e não encerrado, porém está retornando a seguinte mensagem:

 

raised exception class EACBrMDFeException with message 'WebService Consulta MDF-e nao Encerrado:

- Inativo ou Inoperante tente novamente.

- Erro: Requisição não enviada.

Configuration Error'.

 

em Gerar XML estava assim

Gerador.wCampo(tcStr, 'CP04', 'xServ', 24, 24, 1, 'CONSULTAR NÂO ENCERRADOS', DSC_XSERV);

Tinha um ^, alterei para ~.

 

Daí também alterei para não remover os acentos, mas mesmo assim a mensagem de erro persiste.

 

Vocês estão conseguindo consultar os manifestos não encerrados?

[jhmontoia]

Bom Dia Ítalo,

   Estou com o mesmo problema do Cesar e do ncc.star.

   Primeiramente, mesmo modificando a opção Configuracoes.Geral.RetirarAcentos := False; quando eu faço um debug na função Gerador.wCampo essa opção sempre chega "True". Para um teste eu modifiquei a propriedade na unit pcnGerador  no TGerador.Create para False e essa propriedade chegou false, mas não consegui encontrar onde essa propriedade deveria ser carregada com o conteúdo da propriedade "Configuracoes.Geral.RetirarAcentos".

 

   O erro todo ocorre por causa da Tag "retConsMDFeNaoEnc" que no componente está "RetConsMDFeNaoEnc". Alterei para o que consta no manual ( com "r" minusculo e tudo funcionou corretamente.

 

   Um possível problema seria essa linha,

InfMDFe := TRetInfMDFeCollection.Create(Self); 

   Ela somente é criada se retornar a tag retConsMDFeNaoEnc, por esse motivo deu o erro. Não seria o caso de criar no TRetConsMDFeNaoEnc.Create ou no início da function LerXML?

 

Segue anexa a Unit alterada.

 

 

  

  

pmdfeRetConsMDFeNaoEnc.pas

[ncc.star]

jhmontoia, mesmo utilizando esta Unit que você alterou, ainda retorna: 

 

'Erro: Requisição não enviada.

Configuration Error'.

 

 

Referente a opção RetirarAcentos, fiz o teste aqui e acontece exatamente como você falou.

[ThiagoDornelas]

Galera, alguem conseguiu resolver este problema?

 

comigo acontece a mesma coisa.

 

obrigado

[Paulo Henrique]

Boa Tarde,

 

   Acrescentei na linha 2270 da unit ACBrMDFeWebServices o seguinte código:

ConsMDFeNaoEnc.Gerador.Opcoes.RetirarAcentos := FConfiguracoes.Geral.RetirarAcentos; 

Somente setar False para retirar os acentos e funciona normal. Segue unit para analise.

ACBrMDFeWebServices.pas

[Italo Giurizzato Junior]

Bom dia Paulo,

 

Muito obrigado pela colaboração, já disponível.