MarcosRWeimer

Italo Infelizmente não funcionou, a sua alteração (no LerXml) foi mais ou menos como havia pensado em fazer aqui, porem faltou aqui: unit ACBrNFSeXNotasFiscais function TNotaFiscal.GravarXML(const NomeArquivo: String; const PathArquivo: String): Boolean; begin if EstaVazio(FXmlRps) then GerarXML; FNomeArqRps := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo); Result := TACBrNFSeX(FACBrNFSe).Gravar(FNomeArqRps, FXmlRps); <-- aqui considera o XML do RPS para salvar, o FXmlNfse está com o XML da NFSe corretamente end;

Bom dia! Se não carrego o XML do RPS ai ocorre "Argument out of range" quando vai obter a nota para gravar: function TNotasFiscais.GetItem(Index: integer): TNotaFiscal; begin Result := TNotaFiscal(inherited Items[Index]); <---AQUI end; P.S. Parâmetro para gerar o XML está ativo.

Acabei de testar.. mesmo resultado:

Suspeito que o problema esteja aqui: - Como pode ver no "LerXML" está sempre considerando que leu o XML da NFSe, mas pode ter lido o XML do RPS (ConsultaNFSePorRPS vai ler o xml do rps e não da nfse, até por que não tem ele ainda) - No "GravarXML" sempre está gravando o FXmlRps, ou seja, nunca grava a NFSe. Este impacto foi da alteração que acabou mudando os nomes das propriedades

Boa Tarde Italo! Acabei de atualizar os fontes e reinstalar, houve alguma outra alteração que impactou. O ANota.XmlRps está igual ao ANota.XmlNfse. debug no delphi: XML Antes (esquerda) e agora (direita)

Ola! Simulação: - carregar e emitir NFSe (retorno lote em processamento) - consultar NFSe por RPS - Retorno: autorizado/nfse - descarregar o xml do componente (fechar o sistema) - Carregar o xml da NFSe - Por padrão a opção GerarXML é marcada então carregar o xml e tenta gerar o XML novamente, ai ocorre o erro de conversion from integer. Causa: - Quando carrega o XML da NFSe (TNFSeR_Equiplano.LerXMLNfse) não carrega os dados do(s) serviço(s), deixando o "ItemListaServico" em branco (vazio) causando o erro de conversão na hora de gerar o xml. Solução/Correção: - Incluido "LerListaServico" para carregar os dados do(s) serviço(s) - Não tem impacto negativo pois dentro da própria procedure "LerListaServico" valida se existe ou não o node "listaServicos" Correção: anexo arquivo com a alteração. Equiplano.LerXml.pas

Ola! Simulação: - Alimento o componente - LACBrNFSeX.Emitir(IntToStr(ALote)); - LACBrNFSeX.NotasFiscais.Items[0].GravarXML(ExtractFileName(LCaminhoSalvar), ExtractFilePath(LCaminhoSalvar)); - retorno do provedor: 1604 - Esse lote está aguardando processamento. - Descarrego a nota do componente (fecho o sistema) - LACBrNFSeX.NotasFiscais.LoadFromFile(LCaminho); - LACBrNFSeX.ConsultarNFSeporRps(IntToStr(ALote), ASerie, '', ''); - LACBrNFSeX.NotasFiscais.Items[0].GravarXML(ExtractFileName(LCaminho), ExtractFilePath(LCaminho)); Problema: Neste momento (salvar o xml) salva o XML da resposta da ConsultaNFSePorRPS, quando deveria montar o xml da NFSe (equiplano não retorna a nota), verificando o codigo encontrei onde deveria montar, porem só considera o XML do RPS assinado, que não é o que está acontecendo. No meu ponto de vista a correção tem de ser esta (Equiplano.Provider.pas): Anexo possível correção Possível pois não tenho certeza deste ponto, pois no próprio Equiplano.Provider no "Configuracao" está setando True para assinar o LoteRps, talvez minha visão esteja equivocada e o problema está no gravar o xml, debugando não consegui identificar o ponto onde deveria ter assinado ou não o LoteRps. Equiplano.Provider.pas

Boa Tarde Italo! Atualizei aqui e testei, está ok. Obrigado

- Gerar NFSe - Carregar o XML gerado no ACBrNFSeX ERRO 1: - Verificar o campo "ItemListaServico" Aqui para testes gerei o ItemListaServico = "07.05", ao carregar estava carregando "75" totalmente errado (é montado com base no "nrServicoItem" e "nrServicoSubItem", se observar na geração do XML já tem um tratamento para formatar conforme este padrão "99.99") O problema está na leitura, aqui: ERRO 2: - Outro problema é no "LerListaServico" quando possui apenas 1 serviço a leitura deve ser diferente, seguindo o mesmo padrão da geração do XML (não vou por o print da alteração pois o git se perdeu e misturou tudo) ERRO 3: - Busca o node 'nfs', se não acha (auxNode = nil) tenta ler os campos dele... logo.. A.V. Anexo correções. Equiplano.LerXml.pas

Pois é, vou ter que conversar aqui, esta decisão (de migrar) não é somente minha, os impactos podem ser grandes, são centenas de clientes envolvidos em vários municípios.

Bom dia Italo! Pelo que entendi vou ter de migrar para o ACBrNFSeX, é isso?

Bom dia Italo! Pois é, eles estão fazendo uma confusão mesmo. Funciona assim: Cancelamento direto: Envia o cancelamento e já cancela Solicitação de Cancelamento: Envia a solicitação e a prefeitura tem de aceitar seu cancelamento, se aceitarem, ai basta consultar status que tera o retorno de cancelada, mas pode demorar dias, tem casos que levaram 3 dias para autorizar o cancelamento. Todas as cidades funciona o cancelamento direto ou a solicitação de cancelamento? Infelizmente não, isso varia conforme a prefeitura, pelo que entendi é via contrato, algumas querem simplesmente cancelar e não ter trabalho, outras querem avaliar e evitar cancelamentos para não diminuir a receita de ISS. Então temos que ter uma maneira de configurar isso, e acho que deveria ser no cidades.ini.

Ola! Atualizamos o ACBr a alguns dias, porem está acontecendo de não cancelar algumas NFSe da IPM. Vasculhando os fontes vi que foi alterado aqui: veja que na versão 21907 não usava a "solicitação de cancelamento" e na 21908 passou a utilizar, porem a IPM não tem um serviço único. Como exemplo: - Cascavel-PR - solicitação de cancelamento - Marechal Cândido Rondon-PR - Cancelamento direto Esta alteração fez alguns clientes nossos terem de ir ao portal da prefeitura cancelar a NFSe. Alguma sugestão?

Aqui alterei o SSLHttpLib para httpWinHttp antes estava utilizando o httpOpenSSL Momentaneamente resolveu.

Mesmo problema aqui em homologação, preenchendo com dados aleatórios está passando. Detalhe que não adianta setar (direto na NF) assim (assim não gera as tags, ao meu ver uma falha no pcnnfew.pas): NFe.infRespTec.idCSRT := 1; NFe.infRespTec.hashCSRT := '1234567890123456789012345678'; Tem de setar na configuração: FACBrNFe.Configuracoes.RespTec.idCSRT := 1; FACBrNFe.Configuracoes.RespTec.CSRT := '1234567890123456789012345678';

tem mais alguns "fora de ordem", tentei identificar se é um evento, ou UF, ou contingência, mas não encontrei um padrão, duro que não tenho salvo os retornos da distribuição para tentar entender melhor o que está acontecendo.

este campo é o NSU de cada documento

Ola! - Método: ACBrCTe.DistribuicaoDFePorUltNSU - Rejeição: Numero de NSU informado superior ao maior NSU da base de dados do Ambiente Nacional - Busco o maior NSU no banco e consulto a partir do mesmo Porem agora surgiu um problema, o sefaz retornou aleatoriamente uns numeros bem maiores que o efetivo, por exemplo, o ultimo NSU para o caso seria o 5069 porem tem eventos com numeros maiores (11820) Não são apenas estes 3, tem vários, já verifiquei e está no mesmo ambiente (produção) Mais alguém está passando por este problema? tem alguma solução ou sugestão?

XT 8mhz, 540kb de RAM, monitor de fosforo verde em Clipper Summer 87, isso no inicio dos anos 90

Tem uma coisa que não estou entendendo, vendo as alterações propostas, não faz sentido estar funcionamento "emitindo todo pelo ACBR", não alterou a parte de assinatura e o provedor Elotech assina no padrão OASIS que é diferente dos demais.

Estamos sofrendo aqui também, mas com outro município, o sistema deles é péssimo, mesmo eles mandando o manual da abrasf o sistema deles é diferente na estrutura do XML e principalmente na assinatura que não segue o padrão nacional, usa o padrão OASIS o que faz a gente ficar refem do sistema de envio deles (o tal do SITS) que volte e meia não retorna nada.

Funcionou, não bem com este processo, mas acabei apagando a pasta toda e baixando novamente, ai resolveu. Estranhamente estava tudo "verdinho" no Tortoise. Obrigado

Ola! Estou testando uma possível migração para o Delphi 10.4 Sydney porem não estou conseguindo instalar o ACBR. Já segui as dicas de outras threads que encontrei que foi apagar a pasta lib, descartar as alterações nos pacotes, mas nenhuma funcionou. Estranhamente se abro o pacote e compilo manualmente, não ocorrem problemas: Pacotes estão atualizados: Log via install_trunk2: Versao Instalador: 2.2.4.1 Versão do delphi: Delphi 10.4 Sydney Win32 Dir. Instalação : C:\XXX\Componentes\ACBr\ Dir. Bibliotecas: C:\XXX\Componentes\ACBr\Lib\Delphi\LibD27\Win32 Removendo arquivos ACBr antigos dos discos... ...OK Removendo librarypaths da instalação anterior do ACBr na IDE... ...OK Removendo pacotes 32bits da instalação anterior do ACBr na IDE... ...OK Criando diretórios de bibliotecas para Win32... ...OK Adicionando library paths para Win32... ...OK Alterando a variável de ambiente PATH do Delphi... ...OK COMPILANDO OS PACOTES... Cleaning package cache for ACBr_synapse.bpl Cleaning ok Compiling package C:\XXX\Componentes\ACBr\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files (x86)\Embarcadero\Studio\21.0\bin\dcc32.exe" "C:\XXX\Componentes\ACBr\Pacotes\Delphi\synapse\ACBr_synapse.dpk" Embarcadero Delphi for Win32 compiler version 34.0 Copyright (c) 1983,2021 Embarcadero Technologies, Inc. 37787 lines, 0.73 seconds, 374320 bytes code, 29408 bytes data. Compilation success Pacote "ACBr_synapse.dpk" compilado com sucesso. Cleaning package cache for ACBr_Comum.bpl Cleaning ok Compiling package C:\XXX\Componentes\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files (x86)\Embarcadero\Studio\21.0\bin\dcc32.exe" "C:\XXX\Componentes\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" Embarcadero Delphi for Win32 compiler version 34.0 Copyright (c) 1983,2021 Embarcadero Technologies, Inc. C:\XXX\Componentes\ACBr\Fontes\ACBrComum\ACBrUtil.pas(2953) Warning: W1000 Symbol 'Time' is deprecated 27565 lines, 0.33 seconds, 184304 bytes code, 1000 bytes data. Compilation success Pacote "ACBr_Comum.dpk" compilado com sucesso. Cleaning package cache for DCLACBr_Comum.bpl Cleaning ok Compiling package C:\XXX\Componentes\ACBr\Pacotes\Delphi\ACBrComum\DCLACBr_Comum.dpk "C:\Program Files (x86)\Embarcadero\Studio\21.0\bin\dcc32.exe" "C:\XXX\Componentes\ACBr\Pacotes\Delphi\ACBrComum\DCLACBr_Comum.dpk" Embarcadero Delphi for Win32 compiler version 34.0 Copyright (c) 1983,2021 Embarcadero Technologies, Inc. Error: E1026 File not found: 'DCLACBr_Comum.dres' Compilation failure Erro ao compilar o pacote "DCLACBr_Comum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Ola! Aqui o cliente também é de Toledo-PR.

Anexo possível correção. Fiz aqui, testei e está rodando no cliente. Aguardo avaliação. pnfsNFSeR.pas