Erro Na Consultanfseporrps Sempre Retorna True

[ivan]

Estou com problemas com o método "ConsultaNFSeporRps", pois quando ocorre um erro (não os erros retornados pelo WebService. Ex.: '' is not a valid integer value), sempre retorna como "True".

No meu caso estou enviando para o WebService da prefeitura de Ibirama-SC que tem o provedor da Betha.

Sempre que eu envio o RPS (acredito que o próprio ACBr já faça a consulta do RPS), retorna o erro E92 "Esse RPS foi enviado para a nossa base de dados, mas ainda nao foi processado", então executo o método "ConsultarLoteRps" mas a mesma mensagem (E92) é retornada.

Então executo o método "ConsultarNFSeporRps", porém, o WebService da Betha não retorna a NFS-e, e o XML é criado com toda a estruta de campos, porém nenhum campo é preenchido. Por isso, ocorre o erro '' is not a valid integer value ao executar a linha 2725 da unit "ACBrNFSeWebServices.pas": (NFSeRetorno.LerXml;). Mas como não ocorreu nenhum erro retornado pelo WebService, a variável "FMsg" fica como vazia e como a execução do método continua, na linha 2798 "Result := (FMsg = '');" irá retornar como True, mas na verdade ocorreu um erro. Coloquei em anexo o XML dessa consulta.

Isto ocorre na primeira tentativa de envio, na segunda tentativa o xml da NFS-e retorna e este problema não acontece.

Percebi também que na mesma unit, na linha 1912, tem o comando fixo "Result := true;" mas na linha 1905 que executa a consulta, o erro que ocorre não está parando a execução.

Sugiro a seguinte melhoria no código (procure pelo meu nome Rosemir Zeferino, tem 3 alterações):

 

Editado: No post a seguir tem o fonte em anexo.

339UNICA-comp-nfse.xml

339UNICA-comp-nfse-c.xml

Editado 24 Junho, 2013 por ivan

[Isaque Pinheiro]

Bom dia Ivan, 1o gostaria que fosse anexado a Unit ao invés de colocar o código no post, e depois vamos depender de nosso colaborador Italo ter tempo disponível para fazer essa analise, pois ele é quem doou e mantem este componente no projeto ACBr.

[ivan]

Conforme solicitado, segue o arquivo em anexo...

 

Obs.: Estou utilizando o usuário do Ivan, pois ele é responsável pela assinatura do SAC ACBr (embora este post não esteja no SAC por não existir SAC específico para a NFS-e).

 

Att.

 

Rosemir Zeferino

ACBrNFSeWebServices.pas

ACBrNFSeWebServices.pas

Editado 17 Junho, 2013 por ivan

[Isaque Pinheiro]

Bom dia Rosemir, vamos agora aguardar a disponibilidade do Italo.

[Italo Giurizzato Junior]

Bom dia a todos, Já encontra-se disponivel as alterações, por favor faça uma cópia dos fontes, antes de atualizar. Depois de baixados os novos fontes, favor testar.

[IvanGoncalves]

Italo, baixei os fontes mas não veio as alterações... exclui o arquivo, baixei, mas o arquivo esta igual a antes da alteração.

[Italo Giurizzato Junior]

Boa tarde Rosemir,

 

Você alterou as URLs para baixar os fontes?

 

Acredito que não, favor pesquisar no fórum por atualização forçada, você vai encontrar um roteiro de como fazer essa alteração e baixar os fontes atualizados.

[IvanGoncalves]

Bom dia Italo...

 

Fiz os teste e está ok.

 

Muito obrigado!