NFSe parâmetro NomeLongoNFSe XML com mesmo nome

[Rodrigo Pachesen ApoioInf.]

Bom dia.
No componente NFSe, existe o parâmetro NomeLongoNFSe, se ativado o nome na NFSe é criado com a função GerarNomeNFSe, onde utiliza os dados UF, data emissão, modelo e número para criar o nome, porém estou iniciando o desenvolvimento para NFSe de Gaspar/SC, e o número retornado é maior que um inteiro, EX: "201600000000004", na hora de gerar o nome o número é convertido utilizando StrToIntDef(FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.Numero, 0)) enviando 0 porque gerar exceção.
Com isso todas os XML da NFSe estão sendo geradas com o mesmo nome.

Desativei a função e resolvi meu problema, porém existe aqui esta situação.

Outro problema que passei foi no aplicativo demo do Lazarus de testes, na função ConfiguraComponente tive que setar o CNPJ para funcionar.

 ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ:= edtEmitCNPJ.Text;
 ACBrNFSe1.Configuracoes.Geral.Emitente.InscMun:= edtEmitIM.Text;
 ACBrNFSe1.Configuracoes.Geral.Emitente.RazSocial:= edtEmitRazao.Text;

Sem os dados acima não consegui realizar os testes.

[Juliomar Marchetti]

Certo está sugerindo alguma correção??? não entendi o  tópico!

bom se estiver anexe os códigos alterados, seja ele em delphi e lazarus que avaliamos e subimos

[Rodrigo Pachesen ApoioInf.]

Objetivo do tópico é que foi Identificado uma situação com problema, como descrito, utilizando o parâmetro NomeLongoNFSe desativado não existe problema, poderia simplesmente ter desativado e continuado meu dia, mas achei importante destacar.

Realizado a sugestão de correção e anexado.

Relacionado ao Demo, anexado o font no demo do ACBR que foi adicionado o set dos dados do emitente, também precisei alterar a SSLLib de libOpenSSL para libCapicom mas acho que não é necessário postar.

 

Frm_Demo_ACBrNFSe.pas

ACBrNFSe.pas

ACBrNFSeWebServices.pas

pnfsConversao.pas

[Italo Giurizzato Junior]

Boa tarde a todos,

Rodrigo, favor atualizar os fontes e fazer novos teses.

[Rodrigo Pachesen ApoioInf.]

Bom dia.

O problema ainda ocorre, a alteração realizada funcionou até a função GerarNomeNFSe, neste função na montagem do nome é realizado utilizando "Poem_Zeros(ANumero, 9)", com isso o número da NFSe 201600000000027 é formatado para 201600000.
 

Editado 1 Julho, 2016 por RODRIGO_APOIOSIS

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Sendo assim temos que alterar o "9" por "15", correto?

Por favor faça esse teste.

[Rodrigo Pachesen ApoioInf.]

Boa tarde.

Resolveu. 

[Italo Giurizzato Junior]

Boa tarde Rodrigo,

Fiz a alteração e enviei para o repositório.