BUG - ItemListaDeServico

[Alexandre Costa]

Pessoal achei um erro que é o seguinte, dentro do arquivo pnfsNFSeW na procedure GerarServico no trecho de código:

if FProvedor = proBetha

then Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 0005, 1, SomenteNumeros(NFSe.Servico.ItemListaServico), '')

//else Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 0005, 1, NFSe.Servico.ItemListaServico, '');

else

begin

Posicao := Pos('.', NFSe.Servico.ItemListaServico);

Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico', 01, 0005, 1,

InttoStr(StrtoInt(Copy(NFSe.Servico.ItemListaServico, 1, Posicao -1))) + '.' +

Copy(NFSe.Servico.ItemListaServico, Posicao + 1, 2), '');

end;

Observe no Else que a variável Posicao espera encontrar o "." no cadastro do ItemListaServico, no meu caso o meu cliente cadastrou errado ele cadastrou 1401 ao invés de 14.01, bem qual foi o comportamento ACBrNFSe, ele silencia o erro trava nessa parte retorna, não gera os arquivos XMLs e não informa nada, não dá pra saber o que aconteceu, como isso só acontecia com um cliente meu, fui debugando ao estilo showmessage até chegar a isso.

Quem programa no componente que pode resolver isso?

E parabéns pelo trabalho até agora está fantástico.