Oneide Luiz Schneider

Ainda consta o mesmo erro. Talvez seria interessante o pessoal do ACBR fazer um teste para ver se realmente não é no Componente.

Boa tarde o download dos fontes do demo nao estao mais disponível, http://www.4shared.com/rar/wI0N3oaAba/Acbr__1_.html É so alterar a URL do download para -> http://www.4shared.com/get/wI0N3oaAba/Acbr(1)_.html?startDownload=true

O erro ainda persiste.. Código Erro : E86 Mensagem... : Numero do protocolo de recebimento do lote inexistente na base de dados. Correção... : Confira se o lote foi enviado e informe o numero correto do protocolo de recebimento. Provedor... : Betha

Parece que o problema é geral.. na prefeitura de Campos Novos também tem o mesmo problema.

Bom dia Alguém esta com esse problema 'Numero do protocolo de recebimento do lote inexistente na base de dados.', no provedor Betha ? Estou testando com a prefeitura de Chapecó-SC. ERRO em anexo gerado pelo DEMO

Se não tiver processado ainda na prefeitura vc precisa fazer um consulta de Situacao, caso a nota esteja processada vc faz uma consulta por RPS então ele te retorna o XML pronto. Mas esse controle vc precisa implementar no seu sistema. Por exemplo: ACBrNFSe.ConsultarSituacao(CNPJ, INSC_MUNICIPAL,PROTOCOLO); if (ACBrNFSe.WebServices.ConsSitLote.Situacao = 4) then begin ACBrNFSe.ConsultarNFSeporRps(IntToStr(pRps), SERIE, TIPO, CNPJ, INSC_MUNICIPAL); ACBrNFSe.WebServices.ConsNfseRps.RetWS //esse é o XML de retorno na consulta //aqui faço a impressao e salvo o XML na base. end; Eu uso assim no meu sistema e funciona 100%. No meu caso criei um Status de diferente onde trato o retorno do acbr e vejo se o ACBrNFSe.NotasFiscais.Items[0].NFSe.Situacao for um dos abaixo // 1 = Não Recebido // 2 = Não Processado // 3 = Processado com Erro // 4 = Processado com Sucesso se não for processado com sucesso então bloqueio a nota para que nao posso mais ser alterada. E se no teu caso a nota não estiver processada ainda ainda deixo bloqueada, caso for um erro de informacao faço um update na nota para aberto e mostro o erro. e assim por diante. Depois que implementei isso nunca mais me incomodei, ate por que tinha vezes que na Betha, Pronim demorava 1 hora para processar a nota...

Bom dia É só olhar nos comentários anteriores que vc vai achar os fontes.

A Versão 1 ainda esta tudo no mesmo caminho fiz testes ainda hoje. E pelo que vi a versão 2 também esta no mesmo caminho.

Estamos vendo nesse tópico sobre a NFS-e se São Paulo. E para versão 2 é so baixar o exemplos que tem no Site deles.

Fiz o merge com a versão 8578. Fiz alguns ajustes para funcionar e adicionei comentários em lugares onde foi esquecido. Comentários = // Sao paulo - ONEIDE Foi testado ''Consulta Lote'', ''Consultar Situação do Lote'', ''Cancelar NFSe'', ''Gerar e Enviar Lote RPS'' e ''Imprimir DANFSe''. em anexo fontes se alguém querer . Fontes_8578.rar

Ja tem topico aberto disso ai. Voce deve usar a versao 5.1.9 do fast report, para mim so assim funcionou.

Bom dia.. os fontes já estão compatíveis com a versão das NFS-e emitidas a partir de 23/02/2015 ?

Usando a versão 5.1.9 do FastReport funciona corretamente, na versão 4 da problema.

Acertei. era aquela UNIT do delphi. Soap.SOAPHTTPTrans.pas. Adicionar esse caminho no PATH do delphi : C:\Program Files (x86)\Embarcadero\Studio\14.0\source\soap\ e apos substituir a mesma.

Então, dei um savetofile no retorno e é o RPS que carrega ao invés da NFSe. Estanho isso.. estou vendo aqui tambem para ver se acho um solução.. mas começou nas ultima versões do componente pois tenho uma versão de janeiro do componente rodando no cliente e da certo...

Bom dia Hoje me deparei com um novo problema com o provedor BETHA. O numero da NFSe retorna em branco, alem dessa campo mais alguns estao vendo em branco. ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero Quando uso outro provedor como por ex. pronim ele me retorna corretamente. Ou talvez foi alterado e não vi, mas acredito que não. alguém mais esta com esse problema. Estou testando na prefeitura de CHAPECO/SC

Com certeza. Não altero nada sem antes analisar o manual. Se ainda tiver duvida pode olhar também.

Boa tarde fiz ajustes na unit ACBrBancoob. Onde nao estava pegando o Numero do Arquivo, nas units dos outros bancos pegava. Metodo LerRetorno400 adicionei na linha 447. ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0], 101, 7), 0); Alguem pode fazer o merge dos fontes. Obrigado.

favor acompanhar nesse topico.

Aqui em Chapeco-SC também persiste o problema.

Sim foi postado ontem a noite. Obrigado.

Alguem consegue subir o fonte ?

Alguém consegue ver isso ?

Boa tarde Na unit pcnNFeW.pas na linha 1125, ao fazer Nota conjugada a emissão da erro de estrutura, o erro se encontra nos códigos abaixo: if (( NFe.Det.Imposto.ISSQN.cSitTrib <> ISSQNcSitTribVazio ) or (( NFe.infNFe.Versao > 3 ) and ( nfe.Det.Imposto.ISSQN.cListServ <> '' ))) then begin (**)GerarDetImpostoISSQN(i); if NFe.infNFe.Versao >= 3 then (**)GerarDetImpostoIPI(i); end para resolver o problema é alterar a ordem da chamada dos métodos, ficando assim : if (( NFe.Det.Imposto.ISSQN.cSitTrib <> ISSQNcSitTribVazio ) or (( NFe.infNFe.Versao > 3 ) and ( nfe.Det.Imposto.ISSQN.cListServ <> '' ))) then begin if NFe.infNFe.Versao >= 3 then (**)GerarDetImpostoIPI(i); (**)GerarDetImpostoISSQN(i); end alguém pode subir o fonte. Obrigado.

Excelente pessoal, deu certo. ->So adicinar o path o caminho : C:\Program Files (x86)\Embarcadero\Studio\14.0\source\soap\ ->Alterar a UNIT Soap.SOAPHTTPTrans.pas DE : {$IFDEF UNICODE} HttpSendRequest(Request, nil, 0, DatStr.Bytes, DatStr.Size); {$ELSE} HttpSendRequest(Request, nil, 0, @DatStr.DataString[1], Length(DatStr.DataString)); {$ENDIF} RetVal := HandleWinInetError(GetLastError, Request, True); PARA: {$IFDEF UNICODE} WinInetResult := HttpSendRequest(Request, nil, 0, DatStr.Bytes, DatStr.Size); {$ELSE} WinInetResult := HttpSendRequest(Request, nil, 0, @DatStr.DataString[1], Length(DatStr.DataString)); {$ENDIF} if not WinInetResult then RetVal := HandleWinInetError(GetLastError, Request, True); e criar a variavel WinInetResult : Boolean; Que var dar certo. Obrigado a todos pela ajuda.