Consulta Lote Prodam - Erro no XML?

[F Almeida]

Bom dia,

Estou utilizando o Trunk2 e não estou conseguindo fazer a Consulta por Lote utilizando o provedor Prodam (SP), consigo emitir notas corretamente, mas como temos apenas o número do lote ao enviar, preciso consultar para ter o número da nota e imprimir, o XML gerado para a Consulta é o seguinte:

<?xml version="1.0" encoding="UTF-8"?>
<PedidoConsultaLote>
	<Cabecalho Versao="1" xmlns="">
		<CPFCNPJRemetente>
			<CNPJ>01139166000237</CNPJ>
		</CPFCNPJRemetente>
		<NumeroLote>40</NumeroLote>
	</Cabecalho>
	<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">
		<SignedInfo>
			<CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
			<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
			<Reference URI="">
				<Transforms>
					<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
					<Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
				</Transforms>
				<DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>
				<DigestValue>b6G9XtBQDM4TQNGmWT7QlvdCvt8=</DigestValue>
			</Reference>
		</SignedInfo>
		<SignatureValue>fuOfVuoVt6+DnY/0PxMkhUm4U1DUGinxEgLUlxhFjYrSyxI7hecr55lIVXfb4B65TEPCyuqz6rLWt94vHnWBS6WiWd35F87oIWevHVtuGDQb5mURWQKyjhVS2EbFivVEeWracEX53yO3Pf23zOO2nbJQJfQhPIILD88Hz3aiSgZfOEYo8StOW33T94x0l7hqJCiIGJetjxeaNATO0XEG2vFT/bCs58XIaugQWtjzz/N/3Aw9dtWPSJes83s90avM6FPHw8nughnOa/bOZFEpKwptSyTeJh89KrN5QbW+1HJddSy5sIkTfsW0suC+j9mY5V1glpS9eibrO6efAuVkvA==</SignatureValue>
		<KeyInfo>
			<X509Data>
				<X509Certificate>MIIH9jCCBd6gAwIBAgIICCww8QEVzNUwDQYJKoZIhvcNAQELBQAwcTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEVMBMGA1UEAxMMQUMgVkFMSUQgUkZCMB4XDTE1MDYyNTEyMjExNFoXDTE4MDYyNDEyMjExNFowgdkxCzAJBgNVBAYTAkJSMQswCQYDVQQIEwJTUDEPMA0GA1UEBxMGU0FOVE9TMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMTYwNAYDVQQLEy1TZWNyZXRhcmlhIGRhIFJlY2VpdGEgRmVkZXJhbCBkbyBCcmFzaWwgLSBSRkIxFjAUBgNVBAsTDVJGQiBlLUNOUEogQTMxFTATBgNVBAsTDEFSIERJR0lGT1JURTEwMC4GA1UEAxMnU1VSVkVZIFBFUklDSUFTIExUREEgRVBQOjAxMTM5MTY2MDAwMjM3MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAmZkBTSI18xu4VWh9sOREbJuQ1IzlXNtF9Ye9HWdHw3nyDizQfwXTAgieg3+q9Xzl1JTAmFEvwGQvVwYHFuTu9gqAxrBvdWKvCMZy2cs9AYr6+wKySKlfZG/zrpALGYBz9zmEt6MKp7iBzI1ErudNfttWtfzz4KQ5yq0F/eg6F0ZxRN1lpXBBqQXPOSslLPrE7dpMgRT0Ez9UPkhrceQEswseplqGTYVchIDgDuEgPCmqlScKhKICN1wo8jm558sW4gb/HjQtiX0PdTQWD88yoG9C2klLtkDelASM4mGYdQ/+o6/2NoSfzL7DGbRPiOBGV6pJpOHrwZKhBUAPFcKxiQIDAQABo4IDJzCCAyMwgZoGCCsGAQUFBwEBBIGNMIGKMFUGCCsGAQUFBzAChklodHRwOi8vaWNwLWJyYXNpbC52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyL2FjLXZhbGlkcmZiL2FjLXZhbGlkcmZidjIucDdiMDEGCCsGAQUFBzABhiVodHRwOi8vb2NzcC52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyMAwGA1UdEwEB/wQCMAAwHwYDVR0jBBgwFoAUR7kIWdhC9pL893wVfCaASkWRfp8wbgYDVR0gBGcwZTBjBgZgTAECAyQwWTBXBggrBgEFBQcCARZLaHR0cDovL2ljcC1icmFzaWwudmFsaWRjZXJ0aWZpY2Fkb3JhLmNvbS5ici9hYy12YWxpZHJmYi9kcGMtYWMtdmFsaWRyZmIucGRmMIIBAQYDVR0fBIH5MIH2MFOgUaBPhk1odHRwOi8vaWNwLWJyYXNpbC52YWxpZGNlcnRpZmljYWRvcmEuY29tLmJyL2FjLXZhbGlkcmZiL2xjci1hYy12YWxpZHJmYnYyLmNybDBUoFKgUIZOaHR0cDovL2ljcC1icmFzaWwyLnZhbGlkY2VydGlmaWNhZG9yYS5jb20uYnIvYWMtdmFsaWRyZmIvbGNyLWFjLXZhbGlkcmZidjIuY3JsMEmgR6BFhkNodHRwOi8vcmVwb3NpdG9yaW8uaWNwYnJhc2lsLmdvdi5ici9sY3IvVkFMSUQvbGNyLWFjLXZhbGlkcmZidjIuY3JsMA4GA1UdDwEB/wQEAwIF4DAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgbAGA1UdEQSBqDCBpYEYaGFtaWx0b25Ac3VydmV5YnIuY29tLmJyoDgGBWBMAQMEoC8ELTAxMDYxOTYwMDE4MjI2Njk4MjAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMKAbBgVgTAEDAqASBBBIQU1JTFRPTiBTQ0hNSURUoBkGBWBMAQMDoBAEDjAxMTM5MTY2MDAwMjM3oBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMDANBgkqhkiG9w0BAQsFAAOCAgEAkDq2m1UxD+CT/muTd21noDB/TTfpUuIYMxVx7S2h32xZn2tjngYIFO637g2egQiHsulGFFxfd2z5oz/rAC0nud4ZSNY5UWQMWCOF+T8FKyV95+QmFiSsYgWBj5lNu9NlqzvzCJGzVgRUUeZrMsvS+Nh7cQQLtgfUcHxSBn2nrxPE9AjFpC5tW5aF7h1/Q0DODYwjyHsFrnpqAnPH0FU6dlQe3ejIS84MF8TyL7nowgaZOuajuO3gN9GVTAEhlwRqZ141EIsv5tJj0wfUmNXLqSTrNz3UAWBLgPpqqgI1y0vZGoe8tXDTeFKlWGMUiir7Q86z3OzSC0SfnxXgf1F/WwImADq7LJRZ4Fy6kXEVLE/C3OdGfI/NOr0NOl6VJqdIAoepSwWechY+VYSdQ6m5Q5HQyhw0QZeJrshB2nVq8mDa0zo/HPP1HWHYD1WvcpcMm6fkCngFnPujvJT3EUac8Jo7pAaSv87GK7c2VdVEe0KNfh9NwLsREZJBEwsjD9Qdy5dbbj0JdwAUFmX4FI19GQBnJZRw74QHTJmqMdO96sbeNZtPEQh0nC5JzzIXT9TKpxupyjyB8yAERAoeRPZm6S/0xn/t44ydEO5oBzThVNsjtPcM7FoIOgQeubEaGH4e+mban/lkuIcYvWVc25M3UoXrVLHkS3Uu+qNzxOL3S78=</X509Certificate>
			</X509Data>
		</KeyInfo>
	</Signature>
</PedidoConsultaLote>

E o retorno:

<?xml version="1.0" encoding="UTF-8"?>
<soap:Fault>
	<faultcode>soap:Server</faultcode>
	<faultstring>Server was unable to process request. ---> There is an error in XML document (1, 2). ---> <PedidoConsultaLote xmlns=''> was not expected.</faultstring>
		<detail />
	</soap:Fault>

Em anexo a versão SOAP do XML de envio.

 

Alguma sugestão? Tenho impressão de ter algo na tag de CNPJRemetente, em uma antiga documentação da prefeitura de SP indica ser a tag <CNPJRemetente> CNPJ </CNPJRemetente>, enquanto agora há a tag <CNPJ> dentro dela, estou com os fontes atualizados e os schemas do Trunk2.

247515157-con-lot-soap.xml

[Italo Giurizzato Junior]

Bom dia Almeida,

O XML esta sendo gerado conforme os schemas.

Para mim é ridículo a mensagem de erro retornada, não leva nada a lugar algum.

[F Almeida]

Bom dia, Italo

Sim, a mensagem não indica onde está o erro, ainda fui verificar o local dos Schemas no site da prefeitura e a página está com erro... a Prefeitura de SP é extremamente problemática com seus web services, não sei se mais gente está com este problema, tentei com 2 certificados diferentes e o resultado é o mesmo.

[cueiogordo]

Almeida, boa tarde

A nota para a prefeitura está indo corretamente.

Quando você envia a nota para prefeitura de SP, traz algum retorno?

No meu caso vem tudo em branco, conforme anexo.

Você poderia me ajudar?

Editado 20 Junho, 2016 por cueiogordo

[F Almeida]

2 horas atrás, cueiogordo disse:

Almeida, boa tarde

A nota para a prefeitura está indo corretamente.

Quando você envia a nota para prefeitura de SP, traz algum retorno?

No meu caso vem tudo em branco, conforme anexo.

Você poderia me ajudar?

 

Boa Tarde, Cueio

É exatamente assim que recebo o retorno na consulta, após o envio, se verificar seu arquivo XML verá que há uma mensagem de erro, provavelmente idêntica a que citei no post original, estou utilizando a consulta por lote, além da consulta após o envio, e recebo a mesma mensagem seguido de uma exception.

Está utilizando o trunk2, certo?

[cueiogordo]

Boa tarde

Vou realizar um teste agora e já lhe envio o retorno.

[cueiogordo]

Almeida, boa tarde

Emiti a nota normalmente pelo site e não retornou nada.

Nos logs, ele gera o arquivo 122-rec.xml (anexo), com os dados do lote, numero nota fiscal, não carrega no componente.

Outra coisa, não tem o XML da NFS-e, para posterior consulta.

122-rec.xml

[F Almeida]

Cueio,

Exatamente o mesmo problema que estou tendo aqui, notei que na hora de enviar, na Function TWebServices.Envia do ACBrNFSeWebServices tem como puxar o número da NFSe, usando a propriedade FEnviarLoteRPS.FNotasFiscais.Items[0].NFSe.Numero, porém neste momento não há a propriedade Número para mostrar no retorno do envio, precisaria criar, e mesmo assim não temos o -NFSe.xml para imprimir a nota.

Acho estrannho não achar muito sobre este provedor, nunca consegui emitir uma sequer nota no Prodam sem erros, antigamente usava aquele método usando uma DLL externa em C#, porém com o novo Trunk2 me desfiz disso, mas para consultar continua complicado.

 

[F Almeida]

Ambas funções, ConsultaRpsPorLote e ConsultaNFSe pela data também retornam o mesmo erro no XML, estes são os padrões que estou enviando...

Cueio,

Notei que no retorno do Envio o NumeroLote parece estar trazendo o Número de Protocolo, no retorno do Envio eu deixei assim para conseguir pegar o número da nota e RPS:

Na função function TNFSeEnviarLoteRPS.TratarResposta embuti:

if FPConfiguracoesNFSe.Geral.xProvedor = 'SP' then
    begin
      FProtocolo       := RetEnvLote.InfRec.Protocolo;
      for i := 0 to FNotasFiscais.Count -1 do
      begin
        FNotasFiscais.Items[i].NFSe.Protocolo               := FProtocolo;
        FNotasFiscais.Items[i].NFSe.Numero                  := RetEnvLote.InfRec.ListaChaveNFeRPS.Items[i].ChaveNFeRPS.Numero;
        FNotasFiscais.Items[i].NFSe.IdentificacaoRps.Serie  := RetEnvLote.InfRec.ListaChaveNFeRPS.Items[i].ChaveNFeRPS.SerieRPS;
        FNotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.Items[i].ChaveNFeRPS.NumeroRPS;
        FNotasFiscais.Items[i].NFSe.dhRecebimento           := FDataRecebimento;
      end;
    end

 

2016062120160621-con-nfse.xml

50UNICA-con-nfse-rps.xml

[cueiogordo]

Vou colocar essa rotina na minha UNIT e lhe informo.

Não reparei, tem o numero do Lote também?

Grato pela ajuda.

[cueiogordo]

Almeida, boa tarde

O numero da Nota voltou em branco, no meu caso, bem como o Numero do Protocolo.

Você conseguiu fazer funcionar?

[F Almeida]

Alguém sabe qual o link do WSDL que o Prodam utiliza para enviar os XML?

Preciso verificar a formatação que ele espera receber, que parece não estar a mesma gerada pelo envio.

[cueiogordo]

Bom dia

Ainda não tem sucesso do retorna da consulta do Lote em SP.

<?xml version="1.0" encoding="UTF-8"?><soap:Fault><faultcode>soap:Server</faultcode><faultstring>Server was unable to process request. ---> There is an error in XML document (1, 2). ---> <PedidoConsultaLote xmlns=''> was not expected.</faultstring><detail /></soap:Fault>

Alguem conseguiu?

[Alexandre França]

Bom dia, Alguem conseguiu progresso nesta situação?

Estou com o mesmo problema.

Não fiz o sitado abaixo pois necessito do XML da NFS-e(o Padrão da empresa é guardar todos os XML no banco de dados) , porém sem realizar a consulta nao consigo o XML da NFS-e:

Em 21/06/2016 at 12:25, F Almeida disse:

Ambas funções, ConsultaRpsPorLote e ConsultaNFSe pela data também retornam o mesmo erro no XML, estes são os padrões que estou enviando...

Cueio,

Notei que no retorno do Envio o NumeroLote parece estar trazendo o Número de Protocolo, no retorno do Envio eu deixei assim para conseguir pegar o número da nota e RPS:

Na função function TNFSeEnviarLoteRPS.TratarResposta embuti:

if FPConfiguracoesNFSe.Geral.xProvedor = 'SP' then
    begin
      FProtocolo       := RetEnvLote.InfRec.Protocolo;
      for i := 0 to FNotasFiscais.Count -1 do
      begin
        FNotasFiscais.Items[i].NFSe.Protocolo               := FProtocolo;
        FNotasFiscais.Items[i].NFSe.Numero                  := RetEnvLote.InfRec.ListaChaveNFeRPS.Items[i].ChaveNFeRPS.Numero;
        FNotasFiscais.Items[i].NFSe.IdentificacaoRps.Serie  := RetEnvLote.InfRec.ListaChaveNFeRPS.Items[i].ChaveNFeRPS.SerieRPS;
        FNotasFiscais.Items[i].NFSe.IdentificacaoRps.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.Items[i].ChaveNFeRPS.NumeroRPS;
        FNotasFiscais.Items[i].NFSe.dhRecebimento           := FDataRecebimento;
      end;
    end

 

2016062120160621-con-nfse.xml

50UNICA-con-nfse-rps.xml