Erro Com Número De Lote Com 15 Dígitos

[Jhosef]

Boa tarde,

 

Estou com um problema ao gerar lotes que tenham seu número com 15 dígitos, a empresa que eu estou desenvolvendo o projeto usa o seguinte estrutura para gerenciar o número de lote (ANO + SEQUENCIA DE 11 Digitos) que é a mesma para o número de pedidos deles.

 

Quando eu informo o número 201300000000001 por exemplo dá erro pois a variável é um Integer, alterei as funções para Int64 e não teve mais problemas.

 

O erro pode ser simulado no próprio exemplo do ACBrNFSe colocando esse número de lote.

 

Uso o Delphi 7 nesse projeto e os fontes estão atualizados.

[Italo Giurizzato Junior]

Boa tarde Jhosef,

 

Por favor atualize os fontes e teste passando como paramentro da function Enviar o numero do lote como sendo uma string: '201300000000001' em vez de integer.

 

Detalhe o Enviar agora aceita o numero do lote como sendo um valor integer ou string.

[Jhosef]

Italo,

 

100% agora...

 

Segue atualizações nos fontes do EXEMPLO de NFSe.

 

Inclui a cidade de Schroeder/SC (IBGE=4217402) e alterei uma linha da função de "Gerar e Enviar Lote" para enviar como String, assim evita erro ao tentar converter um número com 15 dígitos em integer.

Frm_Demo_ACBrNFSe.zip

[Italo Giurizzato Junior]

Boa tarde Jhosef,

 

A cidade Schroeder/SC é atendida por qual provedor?

[Jhosef]

Italo,

 

Provedor Betha!!!

[Italo Giurizzato Junior]

Jhosef,

 

Muito obrigado, fontes atualizados e disponiveis.