marcellocainelli

Bom dia João P3dro, obrigado por responder. Na verdade o meu já estava assim, somente para constar aqui analisando os fontes exemplo percebi que não estava mandando o comando ACBrTEFAPI.RespostasTEF.LimparRespostasTEF ao finalizar a transação e dai no próximo 130 ele usava o último cupomfiscal. Ajudou muito também ver que vc gerou logs, o que eu não estava fazendo. Com os logs consegui ver que estava repetindo mesmo o cupom e confirmar que a alteração resolveu o problema. Isso ai, vamos nos ajundando, abraço e muito obrigado mais uma vez.

Boa tarde João P3dro, estou com o mesmo problema, ACBr atualizado com a alteração acima. Como vc conseguiu resolver a questão ?

Boa tarde Daniel, fiz alguma caca e por isso não dava certo. Removi completamente a instalação do ACBr, exclui tudo, baixei novamente e agora deu certo. Amanhã vou repetir o roteiro de pre-homologação. Muito obrigado pela ajuda, abraço.

Bom dia novamente, somente complementando fiz novamente o teste 15 do roteiro com o ACBr atualizado, enviei para o Eider (TEF.NET) e o problema persiste: "Identifiquei, não veio o número do cupomFiscal da transação anterior." - Eider

Bom dia Daniel, Atualizei os fontes no dia 17/12 antes de realizar a pre-homologação e atualmente estou com a: Versao Instalador: 2.21.0.31 Executado em: 30/12/2024 13:04:42 Houve alteração nesse sentido depois dessa data ?

Bom dia. Fiz o roteiro de pré-homologação do SITEF e estão me retornando os problemas abaixo, todos relacionados a chamada da função 130: Pelo que vi a função 130 hora não envia o CupomFiscal, hora utiliza o último q eu enviei e com isso repete. Nesse tópico do forum "Alterações para Passar na homologação do SITEF" vi que vários colegas conseguiram homologar após as alterações que o Daniel fez. Estou com o ACBr atualizado e mesmo assim da os problemas acima citados. Podem me ajudar por favor ?

Boa tarde. Estou finalmente implementado a contingência offline para NFCe e fiz seguindo o curso "Implementado a Contingência OffLine". Ocorre que quando rodei no meu sistema seguindo as instruções do curso recebi um Memory Leak e ao adicionar ao projeto de exemplo do curso a diretiva abaixo ocorreu o mesmo leak. ReportMemoryLeaksOnShutdown:= (DebugHook <> 0); Tentei encontrar a causa do ploblema, mas não consegui. Gostaria de saber se alguém já conseguiu resolver e se tem a classe atualizada. Obrigado Marcello Cainelli Doutor Byte Sistemas

Bom dia. Vou entrar em contato com eles. Obrigado por enquanto.

Um detalhe Italo é que esse cliente esta utilizando ACBRNFSe (antigo) e esta por ele emite normalmente. procedure TNFSe.EnviaAssessorPublico; var vCodigoVerificacao: string; begin Try DmNFSe.ACBrNFSe.Enviar(DmNFSe.CDSNFSeID.AsInteger); except on E:Exception do begin If E.Message = '' then begin Sleep(3000); DmNFSe.ACBrNFSe.NotasFiscais.Clear; DmNFSe.ACBrNFSe.ConsultarLoteRps(DmNFSe.CDSNFSeID.AsString, vCodigoVerificacao); vCodigoVerificacao:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; If vCodigoVerificacao = EmptyStr then raise Exception.Create('O Código de verificação de envio retornou em branco - não foi possível enviar a NFSe.'); //Salva o Num NFse, Protocolo e Cod Verificacao DmNFSe.CDSNFSe.Edit; DmNFSe.CDSNFSeNUMNFISCAL.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; DmNFSe.CDSNFSeRPS_SERIE.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; DmNFSe.CDSNFSeCODIGOVERIFICACAO.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DmNFSe.CDSNFSePROTOCOLO.AsString:= DmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo; DmNFSe.CDSNFSeSTATUS.AsString:= 'A'; DmNFSe.CDSNFSe.Post; DmNFSe.CDSNFSe.ApplyUpdates(0); DmNFSe.ACBrNFSe.NotasFiscais.Imprimir; end else raise Exception.Create(E.Message); end; End; end; Esse é o código de como estou fazendo pelo ACBRNFSe. Como esta funcionando por ele acredito que não seja com a Prefeitura a questão. Somente estou tentando migrar todos os meus clientes para o novo componente e nesse deu enrosco total. Tem mais alguma idéia ?

Então Italo, testei por ambos, ConsultarLoteRPS e ConsultarNFSe em um loop de 7 tentativas, não traz o xml da nota.

Bom dia Italo. Atualizei todos os fontes de todas as pastas e reinstalei o ACBr. O erro mudou, agora a nota esta sendo salva no site: Mas nem ao enviar o comando emitir e nem ao consultar traz o xml da nota. Tentei consultar pelo Lote e Por NFSe em um loop de 7 tentativas. Segue anexo os novos xmls NFSe.zip

Bom dia Italo. Desculpe pela demora no retorno mas na semana passada estava na Autocom e somente estou conseguindo retomar os testes agora. Meu problema mudou, não esta mais gerando a nota, esta sempre retornando "Lote não Encontrado". Por favor veja meu post de 08/04, anexei os xmls q estão retornando agora. Tentei também utilizar o Programa Exemplo para testar mas apesar de estar configurado corretamente para o provedor Assessor Público esta gerando o xml de envio diferente e dai retorna erro de usuário.

Boa tarde. Estou ficando maluco com esse provedor - simplesmente agora não gera mais notas, sempre me retorna o erro "Lote não Encontrado". O erro já retorna logo após o comando DmNFSeX.ACBrNFSeX.Emitir(FdsNFSe.DataSet.FieldByName('ID').AsString, meAutomatico, False); Estou enviando em anexo os xmls gerados. Tentei também utilizar o Programa Exemplo para testar mas apesar de estar configurado corretamente para o provedor Assessor Público esta gerando o xml de envio diferente e dai retorna erro de usuário. NFSe.zip

Boa tarde. Agradeço pelo retorno Daniel. Sim, recebo normalmente o xml (segue em anexo) e se colocar para imprimir automaticamente mostra o Danfe na tela. Somente ao tentar capturar as informações do DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.Numero ou qquer outra informação vem sempre vazio. Pelo programa exemplo pelo q vi não tem a opção de capturar essas informações. Alguma idéia ? 822-nfse.xml

Boa tarde. Estou gerando a NFSe para o provedor Assessor Público para cidade de Penápolis. A NFSe é gerada sem erros mas não consigo capturar os dados de retorno: procedure TNFSeX.EmitirAssessorPublico; var vProtocolo: string; iTentativas: Integer; begin DmNFSeX.ACBrNFSeX.Emitir(FdsNFSe.DataSet.FieldByName('ID').AsString, meAutomatico, False); Sleep(1000); ChecarResposta(tmGerar); vProtocolo:= DmNFSeX.ACBrNFSeX.WebService.Emite.Protocolo; If vProtocolo = EmptyStr then raise Exception.Create(memoLog.Text); for iTentativas := 1 to 7 do begin Sleep(1000); DmNFSeX.ACBrNFSeX.ConsultarLoteRps(vProtocolo, FdsNFSe.DataSet.FieldByName('ID').AsString); DmNFSeX.ACBrNFSeX.ConsultarNFSe; if DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.Numero <> '' then begin FdsNFSe.DataSet.Edit; FdsNFSe.DataSet.FieldByName('NUMNFISCAL').AsString:= DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.Numero; FdsNFSe.DataSet.FieldByName('RPS_SERIE').AsString:= DmNFSeX.ACBrNFSeX.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; FdsNFSe.DataSet.FieldByName('PROTOCOLO').AsString:= DmNFSeX.ACBrNFSeX.WebService.Emite.Protocolo; FdsNFSe.DataSet.FieldByName('CODIGOVERIFICACAO').AsString:= vProtocolo; FdsNFSe.DataSet.FieldByName('STATUS').AsString:= 'A'; FQryNFSe.EntidadeBase.Salva; GravaXmlNoBanco(0); DmNFSeX.ACBrNFSeX.NotasFiscais.Imprimir; Break; end; end; if iTentativas = 8 then raise Exception.Create('Erro desconhecido'); end; Tentei emitir e capturar as informações diretamente, depois consulta por RPS passando o protocolo e lote e também a consulta por NFSe. Não consigo capturar o número da NFSe e a serie da RPS, aparentemente o objeto esta vazio.