Gumercino

Tá ótimo EMBarbosa. Agradeço pela atenção e ajuda. Vou fazer as tentativas que me sugeriu e caso eu consiga solucionar retorno aqui para compartilhar. Abraços

Obrigado pelos pontos que você levantou EMBarbosa, vou verificar todos e tentar adaptar em todas as minhas threads. Referente a essa em específico, eu utilizo ela da mesma maneira que as outras e não tenho problema com as demais. Vou anexar a thread que utilizo para NFe para que você possa verificar que as duas tem o mesmo padrão. UThreadNFe.pas

Boa tarde. Então, eu utilizo o mesmo padrão para os demais componentes de DFe, como NFE, CTe e MDFe, e não tenho esse problema que estou tendo com a NFSe. Revisei todo meu código e não consegui encontrar nada que estivesse causando esse erro. Trabalho com thread para diversas outras coisas. Vou dar uma olhada no link que você mencionou acima, e ver se encontro alguma coisa. O passo a passo é o seguinte: - Tenho um form para a tela de NFSe; - Chamo um form de animação para cada rotina da NFSe (Enviar, Consultar por Lote, Consultar por RPS e Cancelar); - Dentro desse form de animação eu chamo a thread da seguinte maneira: procedure TFMensagem.ExecutarNFSeProvedorABRASF; var vThread: TThreadNFSeProvedorABRASF; begin vThread := TThreadNFSeProvedorABRASF.Create(True); vThread.FreeOnTerminate := True; vThread.Start; end; - Ao finalizar a thread ela fecha o form de animação retornando ao form da NFSe. Não acontece erro algum até esse momento, consigo trabalhar normalmente com as demais telas do sistema, pois o erro só ocorre quando fecho o form da NFSe após ter executado alguma rotina da NFSe. A thread esta em anexo, e caso necessite de mais alguma informação ou esclarecimento, estou a disposição. UThreadNFSeProvedorABRASF.pas

Só para deixar registrado, já utilizei o método "Synchronize" e não resolveu.

Bom dia. Estou tendo um problema com o componente ACBrNFSe, e acredito que necessite de alguma ajuste, pois utilizo o mesmo método para os demais componentes de DFe. Segue resumo abaixo: - Eu tenho um form para a tela de NFSe, e para enviar o Lote RPS eu chamo uma Thread, o envio é feito normal mas quando eu vou fechar o form da NFSe, ele acusa o erro "System error, code 1400. O identificador da janela é inválido". Já tive esse erro em outras ocasiões, pois trabalho muito com Thread, mas revisei tudo na minha rotina e não identifiquei nenhum problema referente a esse assunto, então acredito que no momento que vou fechar o form, a Thread ainda esteja aberta por algum motivo, ocasionando assim o erro. Desde já, fico a disposição para qualquer esclarecimento no intuito de identificar e resolver o erro.

Boa tarde Italo. Consegui identificar o que esta ocasionando o erro. Na unit pnfsNFSeR na linha 4112, esta sendo filtrado os serviços pela tag "Servicos" aonde desse filtrar a tag "Servico". Fazendo esse único ajuste eu efetuei vários testes e não tive nenhum problema, funcionou tudo normalmente como tem que ser. pnfsNFSeR.pas

Italo. Acabei de observar no site da prefeitura, o serviço esta indo duplicado. Eu informo 1 serviço na nota e envia 2, quando eu informo 2 ele envia 4.

Boa tarde Italo. Desculpe a demora mas estava resolvendo uma demanda com um cliente. Então, após a atualização dos fontes e realização de novos testes, o erro ainda permanece ocorrendo na seguinte situação: 1° - Faço o envio da NFSe pelo método ACBrNFSe1.Enviar; 2º - Faço a consulta da NFSe pelo método ACBrNFSe1.ConsultarLoteRps logo após o envio para verificar a situação da mesma; 3º - Executo o método ACBrNFSe1.NotasFiscais.Clear. O erro esta ocorrendo na unit pnfsNFSe na linha 962.

Boa tarde Italo. Farei a atualização dos fontes, novos testes e ao finalizar irei te posicionar.

Bom dia Italo. Segue unit em anexo. pnfsNFSe.pas

Boa noite Italo. Acredito que eu encontrei aonde esta o erro. Na unit pnfsNFSe a function TItemServicoCollection.New entrou no lugar da function TItemServicoCollection.Add, o que estava ocorre ndo é que dentro da function TItemServicoCollection.New tem a chamada da function TItemServicoCollection.Add. Eu comentei a linha 1204, que se refere ao que citei acima e rodei o programa sem erro. Segue imagem para melhor entendimento.

Boa tarde Italo. Sim, reinstalei todos novamente. Eu utilizo o seguinte método para adicionar os serviços, "Servico.ItemServico.Insert(Index, AObject)" e antes não tinha esse parâmetro AObject. Mas eu estou passando ele de acordo com o que esta na função LerRps_EL, "Servico.ItemServico.Insert(Index, Servico.ItemServico.New)". Não sei se pode estar vinculado.

Boa tarde. Após a atualização do ACBr, comecei os testes e identifiquei que estou tendo retorno do erro "invalid pointer operation" na linha 962 da unit pnfsNFSe. O erro sempre ocorre após eu carregar o componente com o arquivo .xml pelo método "LoadFromString" e efetuar qualquer operação com o webservice ou até mesmo após a impressão. Segue imagem do erro e da unit com a linha especificada.

Boa tarde Italo. Obrigado.

Boa tarde. Eu utilizo o ACBrNFSe para emissão de NFSe da cidade de Colatina-ES, aonde se utiliza o provedor EL para comunicação. Os parâmetros do arquivo .ini foram alterados e quero saber quem pode atualizar o mesmo dentro do ACBr? EL.ini

Bom dia Italo. Muito obrigado.

Obrigado.

Boa tarde Felipe. Quero saber se serei comunicado quando você tiver uma resposta sobre minha indicação de alteração? Abraços

Bom dia Felipe. Claro que sim. Segue em anexo. ACBrNFSeDANFSeFR.pas

Bom dia a todos. No meio da preparação de uma rotina de faturamento, aonde ao enviar por o(s) boleto(s) no layout fatura e os respectivos documentos que compõem o mesmo, identifiquei que a propriedade ACBrNFSeDANFSeFR.ArquivoPDF não esta retornando nenhum valor, tendo em vista que a mesma propriedade é preenchida no ACBrNFeDANFEFR. Verifiquei e comparei as unti's e quero deixar uma solicitação/sugestão para que seja incluída a rotina no componente assim que imagem em anexo. Desde já agradeço o atenção e fico no aguardo de retorno. Abraço a todos.

Bom dia Italo. Obrigado pela atenção.

Boa tarde a todos. Após a última atualização que fiz do ACBr, eu tive problema na impressão da NFSe do Provedor EL pelo FastReport, e após analisar identifiquei o problema e estou postando a Unit para que possa ser atualizada no repositório. Obs.: Não alterei nenhuma função, apenas comentei as linhas 251, 252 e 253 e coloquei as mesmas no início da função, como imagem em anexo. ACBrNFSeDANFSeFR.pas

Gr@c@. Obrigado pela informação.

Bom dia BILLI579 e Gr@c@. Ainda permanece a situação do tamanho da conta esta definida para o tamanho 12, e toda vez tenho que alterar para o tamanho 8 manualmente. Algum de vocês teve um posicionamento se será ajustado ou alguma outra maneira de alterar?

NatyEb, bom dia. Verifiquei com Italo e os fontes estão corretos, apenas foi alterado a parte que você citou acima, tendo que passar para baixo a alimentação da variável "AValorToal". Já fiz a alteração, encaminhei para Italo e ele vai atualizar. Abraços