[BUG - ItemListaDeServico]

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.

[Não foi possível carregar o arquivo - NFSE]

Pessoal, estava usando normalmente o NFSe para gerar e cancelar minhas notas mas depois da última atualização parou, notei algumas mudanças bem grandes. Primeiro percebi que os arquivos Config_Municipios.ini e Config_Schemas.ini não existem mais dentre outros. Observei também que agora existe uma organização das pastas por provedor. Daí apanhei um pouco para entender que no meu atual código e no do exemplo você tem que pegar o arquivo nfse.xsd e colocar na pasta principal dos schemas porque o componente não varre por provedor na verdade você configura só a pasta Schema. Fiz os acertos e consegui enviar novamente, mas para cancelar não funciona de modo algum diz que não consegue abrir o arquivo xml. Italo ou alguém conseguem me ajudar com isso? O que está faltando? São novas congiguracões? Abaixo o que eu faço e em anexo o xml que tento enviar cidade de Belo Horizonte, ambiente de homologação.

DMServidor.objNFSe.NotasFiscais.Clear;

DMServidor.objNFSe.NotasFiscais.LoadFromFile(ArquivoXML);

// Codigo de Cancelamento

// 1 - Erro de emissão

// 2 - Serviço não concluido

// 3 - RPS Cancelado na Emissão

DMServidor.objNFSe.WebServices.CancelaNFSe(CodigoCancelamento);

Meu objeto NFSe é configurado da seguinte forma, observe que para envio funciona, somente cancelamenteo que não.

objNFSe.Configuracoes.Certificados.NumeroSerie := Configuracoes.ConfGeralViaBanco.NumeroSerieCertificadoNFe;

objNFSe.Configuracoes.Arquivos.AdicionarLiteral := True;

objNFSe.Configuracoes.Arquivos.EmissaoPathNFSe := True;

objNFSe.Configuracoes.Arquivos.PastaMensal := False;

objNFSe.Configuracoes.Arquivos.AdicionarLiteral := False;

objNFSe.Configuracoes.Arquivos.PathCan := '';

Log.Logar('Configurando Caminho PathNFSe: ' + aPathServidor+'Recibo\');

objNFSe.Configuracoes.Arquivos.PathNFSe := aPathServidor+'Recibo\';

Log.Logar('Configurando Caminho PathGer: ' + aPathServidor+'Recibo\');

objNFSe.Configuracoes.Arquivos.PathGer := aPathServidor+'Recibo\';

Log.Logar('Configurando Caminho PathRPS: ' + aPathServidor+'Recibo\');

objNFSe.Configuracoes.Arquivos.PathRPS := aPathServidor+'Recibo\';

objNFSe.Configuracoes.Arquivos.Salvar := True;

PathMensal:=objNFSe.Configuracoes.Arquivos.GetPathNFSe(0);

Log.Logar('Configurando Caminho PathSchemas: ' + aPathServidor+'Schemas\');

objNFSe.Configuracoes.Geral.PathSchemas := aPathServidor+'Schemas\';

objNFSe.Configuracoes.Geral.Salvar := True;

Log.Logar('Configurando Caminho PathSalvar: ' + aPathServidor+'Recibo\');

objNFSe.Configuracoes.Geral.PathSalvar := aPathServidor+'Recibo\';

Log.Logar('TDMServidor.ConfiguraobjNFSe: Codigo IBGE Cidade - ' + InttoStr(Configuracoes.ConfGeralViaBanco.EmpresaCidadeCodIBGE));

objNFSe.Configuracoes.WebServices.CodigoMunicipio := Configuracoes.ConfGeralViaBanco.EmpresaCidadeCodIBGE;

if Configuracoes.ConfGeralViaBanco.NFSeAmbiente = tNfseHomologacao then

begin

Log.Logar('TDMServidor.ConfiguraobjNFSe: Ambiente - Homologação');

objNFSe.Configuracoes.WebServices.Ambiente := taHomologacao

end

else

begin

Log.Logar('TDMServidor.ConfiguraobjNFSe: Ambiente - Produção');

objNFSe.Configuracoes.WebServices.Ambiente := taProducao;

end;

objNFSe.Configuracoes.WebServices.Visualizar := False;

objNFSe.Configuracoes.WebServices.SenhaWeb := '';

objNFSe.Configuracoes.WebServices.ProxyHost := '';

objNFSe.Configuracoes.WebServices.ProxyPort := '';

objNFSe.Configuracoes.WebServices.ProxyUser := '';

objNFSe.Configuracoes.WebServices.ProxyPass := '';

Log.Logar('TDMServidor.ConfiguraobjNFSe: PathSchemas - ' + objNFSe.Configuracoes.Geral.PathSchemas);

objNFSe.Configuracoes.WebServices.SetConfigMunicipio(objNFSe.Configuracoes.Geral.PathSchemas);

Galera desde já agradeço e se alguém tiver alguma idéia e conseguir me ajudar, estou meio desesperado já que o sistema estava em produção e funcionava normalmente.

201200000000016-nfse.xml