Erro no retorno da NFSe

[Gumercino]

Bom dia.

Estou implementando a NFSe em meu sistema através do ACBr, e estou com um erro na transmissão do Lotes através do ACBrNFSe1.Enviar().

O problema é que o erro vem em branco, e já tentei olhar em outros tópicos mas não encontrei nenhuma resposta que me ajudou.

Estou enviando os arquivos em anexo para que alguém possa me ajudar.

Desde já, agradeço a atenção.

481-abr-ses.xml

481-abr-ses-soap.xml

481-env-lot.xml

481-env-lot-soap.xml

481-fec-ses.xml

481-fec-ses-soap.xml

481-rec.xml

481-rec-soap.xml

481-sesA.xml

481-sesA-soap.xml

481-sesF.xml

481-sesF-soap.xml

000000692281-con-sit.xml

000000692281-con-sit-soap.xml

000000692281-sit.xml

000000692281-sit-soap.xml

[Italo Giurizzato Junior]

Bom dia Gumercino,

Favor informar o CNPJ sem a formatação em:

Configuracoes.Geral.Emitente.CNPJ

E refaça o teste de envio.

[Gumercino]

Bom dia Italo.

Farei agora e darei um retorno.

[Gumercino]

Italo, ainda não consigo enviar e o retorno aparece em branco.

Segue novos arquivos em anexo.

481-fec-ses.xml

481-fec-ses-soap.xml

481-rec.xml

481-rec-soap.xml

481-sesA.xml

481-sesA-soap.xml

481-sesF.xml

481-sesF-soap.xml

000000692340-con-sit.xml

000000692340-con-sit-soap.xml

000000692340-sit.xml

000000692340-sit-soap.xml

481-abr-ses.xml

481-abr-ses-soap.xml

481-env-lot.xml

481-env-lot-soap.xml

O interessante é que o retorno vem com código 4, que pelo que vi significa que foi enviado e processado.

Mas vou no site da prefeitura para consultar e não tem nada.

[Gumercino]

Italo.

Será que o erro é nessas tag's que não informo?

//Servico.CodigoCnae
//Servico.CodigoTributacaoMunicipio
//Servico.Discriminacao
 

[Italo Giurizzato Junior]

Gumercino,

Antes o retorno constava o código 1 ao consultar a situação do lote, agora esta retornando 4 que indica que o lote foi processado com sucesso.

Agora é preciso executar o método ConsultarLoteRps.

Vamos a um resumo do processo.

Após alimentar o componente com os dados da nota de serviço, devemos executar o método Enviar, em seguida executar o método ConsultarSituacao (depende do provedor), em seguida executar o método ConsultarLoteRps, se a situação do lote for 3 ao consultar o lote teremos como resposta o motivo da rejeição, agora se a situação for 4, teremos como resposta o XML da NFS-e.

Agora se você atribuir o valor True a propriedade de configuração: ConsultarLoteAposEnvio o componente se encarrega de realizar as consultas automaticamente, neste caso basta executar somente o método Enviar.

[Gumercino]

Italo.

Farei novos testes agora e te darei um retorno assim que finalizar.

[Gumercino]

Italo.

Tentei vários testes aqui e ainda me retorna a mesma situação com código 4, e nenhum registro de retorno, como número ou código de verificação.

Verifiquei também que na uses pnfsNFSeW_EL na linha 271 tem que ser feito uma ajuste da seguinte maneira:

 

CÓDIGO ATUAL:

Gerador.wCampoNFSe(tcDe2, '#80', 'ValorIssRetido'      , 01, 15, 0, NFSe.Servico.Valores.ValorIss, '');

NOVO CÓDIGO:
  Gerador.wCampoNFSe(tcDe2, '#80', 'ValorIssRetido'      , 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, '');

 

Pode me dar mais alguma dica?

Segue últimos arquivos e um arquivo XML da NFSe processada, que baixei no site da prefeitura.
 

NotasFiscais.xml

3218010523054000018556000000000000481-rps.xml

481-sesF.xml

481-sesF-soap.xml

000000692439-con-sit.xml

000000692439-con-sit-soap.xml

000000692439-sit.xml

000000692439-sit-soap.xml

481-abr-ses.xml

481-abr-ses-soap.xml

481-env-lot.xml

481-env-lot-soap.xml

481-fec-ses.xml

481-fec-ses-soap.xml

481-rec.xml

481-rec-soap.xml

481-sesA.xml

481-sesA-soap.xml

[Italo Giurizzato Junior]

Gumercindo,

Você fez o que lhe pedi?

Atribuiu o valor True a propriedade de configuração ConsultaLoteAposEnvio ou executou o método ConsultarLoteRps?

Pois nos arquivos que você anexou não consta os arquivos XML gerados pelo método acima, como já disse é através desse método que você vai ter o retorno com o XML da NFS-e ou a lista de erros.

[Gumercino]

Italo,

Deixei a propriedade ConsultarLoteAposEnvio como True.

[Gumercino]

Italo.

Eu criei no ano passado uma DLL para comunicação com o provedor EL, e acabei de tentar fazer o envio por ela e funcionou.

Vou enviar os arquivos em anexo separadamente.

Obs.: Caso queira o código fonte da minha DLL eu envio.

Desde já, agradeço a atenção.

NFSe baixada da prefeitura.xml

NFSe gerada pela minha DLL para ser enviada.xml

Arquivos gerados pelo ACBr.rar

[Gumercino]

Italo,

Se eu deixar a opção ConsultaLoteAposEnvio marcada não me aparece nada, mas se eu executar os métodos ConsultarSituacao e ConsultarLoteRps me da o retorno do que esta com erro.

Ai fiz o ajuste e enviou normalmente.

Referente ao ajuste da linha 271 da uses pnfsNFSeW_EL referente a ISS Retido, vc vai fazer o ajuste para atualização?

[Italo Giurizzato Junior]

Gumercino,

Favor anexar as units do componente que você alterou para que possamos analisar e realizar o merge.

Desde já agradecemos a sua colaboração.

[Gumercino]

Ok Italo.

Segue em anexo.

pnfsNFSeW_EL.pas

[Italo Giurizzato Junior]

Gumercino,

Muito obrigado, já esta no repositório.

[Gumercino]

Italo.

E referente a opção ConsultaLoteAposEnvio?

Não esta sendo feito automático, tenho que fazer manualmente.

O que podemos fazer?

[Italo Giurizzato Junior]

Gumercino,

Favor atualizar os fontes e testar novamente, com o ConsultaLoteAposEnvio = true.

[Gumercino]

Italo.

Atualizei e funcionou o ConsultaLoteAposEnvio = True.

Mas a função de imprimir não esta funcionando correto, pois quando imprimi o xml que é carregado é o de retorno da NFSe, que só vem alguns dados.

Segue PDF em anexo, do retorno das funções:

ACBrNFSe1.Enviar(pLote, True);

ACBrNFSe1.NotasFiscais.Imprimir;

 

Estou fazendo de maneira errada?
 

00180156000000000002165-nfse.pdf

[Italo Giurizzato Junior]

Boa noite Gumercino,

Favor anexar o XML e não o PDF.

[Gumercino]

Bom dia Italo.

Desculpe ter adicionado apenas o PDF, mas é pq como eu disse, antes do envio ele esta com o XML do Lote RPS no componentes e imprimir faltando as informações que vem no retorno após a emissão, que é o normal. E após o envio o componente carrega o XML da NFSe, que tem o  retorno apenas com as Tag's dataProcessamento, idNota, idRps, numero, rpsNumero e situação, assim nada mais é impresso além dessas Tags.

Estou te enviando o arquivo XML e PDF de antes do envio, e após o envio.

Após o envio.xml

Antes do envio.pdf

Antes do envio.xml

Após o envio.pdf

[Gumercino]

Boa tarde Italo.

Fiz uma alteração na uses ACBrNFSe para obter o link da NFSe da EL no Município de Colatina.

Deseja que eu envie a uses modificada para você analisar e fazer um merge?

[Italo Giurizzato Junior]

Boa tarde Gumercino,

Pode anexar o arquivo alterado aqui mesmo.

Se não me falha a memória esse provedor não retorna o XML da NFS-e apenas traz a informação que a nota foi processada com sucesso.

[Gumercino]

Bom dia Italo.

Segue em anexo as seguintes uses que foram alteradas até o momento:

- ACBrNFSe - Alterei a function "LinkNFSe" para retornar o link, preparando para o provedor EL e Município de Colatina.

- pnfsNFSe - Inclui a propriedade "FOutrosDescontos" na classe "TValores".

- pnfsNFSeW_EL - Alterei a procedure "GerarValoresServicos" para passar o valor de OutrosDescontos.

Fico no aguardo da resposta para saber se foi feito o merge e também precisamos ver como faremos a parte da impressão.

Será que podemos colocar o componente para não substituir o XML quando a nota é processada, mas somente acrescentar os dados recebidos? Assim ficará correto.

ACBrNFSe.pas

pnfsNFSe.pas

pnfsNFSeW_EL.pas

[Italo Giurizzato Junior]

Bom dia Gumercino,

A alteração no ACBrNFSe não se faz necessário.

Primeiro que não devemos incluir um novo parâmetro no meio dos demais, pois isso quebra a compatibilidade.

Segundo que o CPF/CNPJ não precisa ser passado em forma de parâmetro pois temos uma propriedade de configuração que tem essa informação: Configuracoes.Geral.Emitente.CNPJ

Terceiro a URL deve ser colocada no arquivo INI do respectivo provedor.

Já as alterações das outras duas unit vou enviar para o repositório.

Muito obrigado pela colaboração.

[Gumercino]

Italo.

Ok.

Vou me ajustar aqui na uses ACBrNFSe.

Fiz uma nova alteração da uses pnfsNFSeW_EL alterando as casas decimais de alguns campos de acordo com o manual da EL na procedure GerarListaServicos e GerarValoresServico.
 

Segue em anexo.

pnfsNFSeW_EL.pas