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.

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