luciano_f

Compreendi o problema e já implementei a modificação semelhante a proposta... Estou fazendo algumas modificações nas Units do ACBrNFe e ACBrDFe, para tentar resolver em definitivo o conflito de UTF8 e acentos... Assim que terminar os testes, eu envio... Ok Grato

Encontrei onde está o problema e a solução foi adicionar 3 linhas de codigos Gostaria que o administradores dessem uma analisada para colocar no Repositório. function TNotasFiscais.LoadFromString(AXMLString: String; AGerarNFe: Boolean = True): Boolean; var AXML: AnsiString; P, N: integer; function PosNFe: integer; begin Result := pos('</NFe>', AXMLString); end; begin N := PosNFe; while N > 0 do begin P := pos('</nfeProc>', AXMLString); if P <= 0 Then // 3 Linhas adicionadas para correção if pos('</procNFe>', AXMLString) > 0 Then P := pos('</procNFe>', AXMLString); if P > 0 then begin AXML := copy(AXMLString, 1, P + 10); AXMLString := Trim(copy(AXMLString, P + 10, length(AXMLString))); end else begin AXML := copy(AXMLString, 1, N + 6); AXMLString := Trim(copy(AXMLString, N + 6, length(AXMLString))); end; with Self.Add do begin LerXML(AXML); if AGerarNFe then // Recalcula o XML GerarXML; end; N := PosNFe; end; Result := Self.Count > 0; end; sem a correção que fiz o Retorno da variável "AXML" não tem a tag "protNFe" Esse XML é baixado do portal da receita do Estado do Paraná.

o que eu percebi está no cabeçario do XML que nesse XML muda para <?xml version="1.0"?> <NFeLog versao="1.00"> <procNFe> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> como resolver isso ?

Estou usando a "Function ACBrNFe1.NotasFiscais.LoadFromFile" porém me retorna vazio o numero do protocolo procNFe.nProt = '' O extranho é que esse XML tem numero de protocolo O XML foi baixado direto do Site da Sefaz. o XML está em anexo 41160501090123000123550010001950901009612076.xml

Olá boa Noite Pessoal. Para o provedor Simpliss não tem a URL para o Link eu peguei um danfe de uma NFSe onde tem um QRCode e o link gerado é esse qual o procedimento. http://astorga.simplissweb.com.br/contrib/app/nfse/qrcode.aspx?k=143555&cnpj=19543310000180&ser=E&inum=73&icod=1356650C10&e=8N9bI1l4PGkxFVREiVSGxmAoAdsfL93cq85cTGeKc3hxFJN20xk9qQ%3d%3d

Olá algum solução para a captura ?

Boa noite Italo. Sem essa alteração que fiz é impossível efetuar a captura dos retornos. Ou seja esse código abaixo dá erro de AcessViolation Showmessage(ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Com essa alteração que fiz consigo capturar os 3 retornos ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Codigo; ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Mensagem; ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao; Isso já foi bem discutido nesse outro topico http://www.projetoacbr.com.br/forum/topic/29936-provedor-salva-numero-da-nfse-mesmo-com-erro/?_fromLogin=1 E a unica solução foi essa que encontrei Como então eu poderia fazer para capturar ?

Boa tarde. Tendo a certeza da não utilização dos demais, acho desnecessários mante-los no sistema. Estou também pensando em retirar do meu projeto a algum tempo. Então minha maior duvida é sobre o " EPEC - Evento Prévio de Emissão em Contingência "

Pessoal no meu sistema tenho opções para emissão de alguma formas de NFE porém acredito que algumas não tem mais utilidade e estava pensando em retirar do sistema Normal FSIA - Formulário de Segurança - Impressor Autônomo - Papel Moeda (Off-Line) SCAN - Sistema de Contingência do Ambiente Nacional EPEC - Evento Prévio de Emissão em Contingência FSDA - Formulário de Segurança - Documento Auxiliar - Papel Moeda (Off-Line) SVCAN - SEFAZ Virtual do Ambiente Nacional SVCRS - SEFAZ Virtual do Rio Grande do Sul SVCSP - SEFAZ Virtual de São Paulo Eu estou pensando em deixar apenas as seguintes formas :: Normal SVCAN - SEFAZ Virtual do Ambiente Nacional SVCRS - SEFAZ Virtual do Rio Grande do Sul SVCSP - SEFAZ Virtual de São Paulo O que os colegas acham ?

Dando continuidade ao topico :: http://www.projetoacbr.com.br/forum/topic/29936-provedor-salva-numero-da-nfse-mesmo-com-erro/?_fromLogin=1 Acho que descobri um BUG no componente para efetuar o que quero tive que alterar o componente Na unit "ACBrNFSeWebServices.pas"; Em varias Functions tem chamada para "ExtrairNotasRetorno;" como nessa :: function TNFSeConsultarLoteRPS.TratarResposta: Boolean; begin FPMsg := ''; FaMsg := ''; FPRetWS := ExtrairRetorno; Result := ExtrairNotasRetorno; FPRetWS := ExtrairGrupoMsgRet(FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.ConsLote); end; Porém na Function :: function TNFSeConsultarSituacaoLoteRPS.TratarResposta: Boolean; Não existe a chamada para "ExtrairNotasRetorno;" assim resolvi alterar ela apenas colocando uma chamada ficando assim function TNFSeConsultarSituacaoLoteRPS.TratarResposta: Boolean; begin FPMsg := ''; FaMsg := ''; FRetSitLote.Free; FRetSitLote := TretSitLote.Create; FPRetWS := ExtrairRetorno; ExtrairNotasRetorno; <- Codigo Adicionado FRetSitLote.Leitor.Arquivo := FPRetWS; FRetSitLote.Provedor := FProvedor; RetSitLote.LerXml; FPRetWS := ExtrairGrupoMsgRet(FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.ConsSit); FSituacao := RetSitLote.InfSit.Situacao; // FSituacao: 1 = Não Recebido // 2 = Não Processado // 3 = Processado com Erro // 4 = Processado com Sucesso if (FProvedor in [proEquiplano, proEL]) then Result := (FSituacao = '1') // Aguardando processamento else Result := (FSituacao = '2'); // Lote não Processado end; Depois disso esse código abaixo não dá mais erro : Showmessage(ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Agora se fiz algo errado qual seria o codigo correto para Eu ter acesso a Tag <Correcao> Grato.

Boa Noite Italo. Acho que na verdade descobri um BUG no componente para efetuar o que quero tive que alterar o componente Na unit "ACBrNFSeWebServices.pas"; Em varias Functions tem chamada para "ExtrairNotasRetorno;" como nessa :: function TNFSeConsultarLoteRPS.TratarResposta: Boolean; begin FPMsg := ''; FaMsg := ''; FPRetWS := ExtrairRetorno; Result := ExtrairNotasRetorno; FPRetWS := ExtrairGrupoMsgRet(FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.ConsLote); end; Porém na Function :: function TNFSeConsultarSituacaoLoteRPS.TratarResposta: Boolean; Não existe a chamada para "ExtrairNotasRetorno;" assim resolvi alterar ela apenas colocando uma chamada ficando assim function TNFSeConsultarSituacaoLoteRPS.TratarResposta: Boolean; begin FPMsg := ''; FaMsg := ''; FRetSitLote.Free; FRetSitLote := TretSitLote.Create; FPRetWS := ExtrairRetorno; ExtrairNotasRetorno; <- Codigo Adicionado FRetSitLote.Leitor.Arquivo := FPRetWS; FRetSitLote.Provedor := FProvedor; RetSitLote.LerXml; FPRetWS := ExtrairGrupoMsgRet(FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.ConsSit); FSituacao := RetSitLote.InfSit.Situacao; // FSituacao: 1 = Não Recebido // 2 = Não Processado // 3 = Processado com Erro // 4 = Processado com Sucesso if (FProvedor in [proEquiplano, proEL]) then Result := (FSituacao = '1') // Aguardando processamento else Result := (FSituacao = '2'); // Lote não Processado end; Depois disso esse codigo abaixo não dá mais erro : Showmessage(ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Agora se fiz algo errado qual seria o codigo correto para Eu ter acesso a Tag <Correcao> Grato.

Agora testei o seguinte :: Showmessage(ACBrNFSe1.WebServices.ConsSitLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Showmessage(ACBrNFSe1.WebServices.ConsLote.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Showmessage(ACBrNFSe1.WebServices.ConsNFSe.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Showmessage(ACBrNFSe1.WebServices.ConsNFSeRps.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao); Todos esse acima dão erro de AcessViolation ? O Colega poderia postar o código pois não sei como resolver isso, pois tudo que tentei sempre dá Erro.

Boa tarde Italo. Sim eu abri todos os XML antes de enviar. Como Eu disse antes eu gerei um erro de propósito apenas para poder testar minha aplicação pois quero um jeito de ler com o ACBR esse XML que você mencionou "121003-sit.xml" para isso estou tentando com o código abaixo que dá erro de "AcessViolation" ACBrNFSe1.WebServices.EnviarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao Qual seria o comando correto para ler as Tag desse XML ? as Tag Seriam essas ::: <Codigo> <Mensagem> <Correcao Eu percebi que existe o acesso a essas Tag pelo componente porém gera erro ACBrNFSe1.WebServices.EnviarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Codigo ACBrNFSe1.WebServices.EnviarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Mensagem ACBrNFSe1.WebServices.EnviarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao Grato.

Me desculpe pois enviei arquivos XML errados no post anterior os corretos são esses aqui :: 76-env-lot.xml 76-rec.xml 121003-con-sit.xml 121003-sit.xml 761-rps.xml

Estou gerando uma Nota com erro apenas para eu poder efetuar testes de captura dos retornos Eu Coloquei Letras no campo <InscricaoMunicipal>ISENTO</InscricaoMunicipal> fiz isso apenas para gerar um erro para eu tentar capturar com o comando ACBrNFSe1.WebServices.EnviarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao veja os XML em anexo. 74-env-lot.xml 74-rec.xml 121001-con-sit.xml 121001-sit.xml 741-rps.xml

Acabei de tentar ACBrNFSe1.WebServices.EnviarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao Também dá erro de AcessViolation onde estou errando ? Grato.

Entendi Italo e sobre a outra questão tem alguma forma de Eu capturar ? Outra questão como faço para pegar a TAG "Correção" pelo componente : tentei ACBrNFSe1.WebServices.ConsLote.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao; ACBrNFSe1.WebServices.ConsNFSe.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao; não consigo com esses codigos.

Pessoal o provedor de testes em Homologação é o Simpliss. Exemplo : O Usuário tenta Envia um Lote com algum problema e o RPS é rejeitado, o usuário verifica e corrige o problema e tenta enviar novamente porém como o mesmo numero de Lote pois a NFSe anterior foi rejeitada, porém me retorna a seguinte mensagem :: Erro ao Gerar NFS-e :: Ja existe lote protocolado com esse numero para o mesmo cnpj e inscricao municipal. Estranho como o Provedor recebeu um RPS com erro ele não teria que descartar isso ? pois no meu sistema com a NFSe já teve um erro e não foi gerado eu deveria usar o mesmo numero de NFSe para enviar novamente. Outra questão como faço para pegar a TAG "Correção" pelo componente : tentei ACBrNFSe1.WebServices.ConsLote.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao; ACBrNFSe1.WebServices.ConsNFSe.RetornoNFSe.ListaNFSe.MsgRetorno.Items[0].Correcao; não consigo com esses codigos. <?xml version="1.0" encoding="UTF-8"?> <RecepcionarLoteRpsResult> <ListaMensagemRetorno xmlns="http://www.sistema.com.br/Nfse/arquivos/nfse_3.xsd"> <MensagemRetorno> <Codigo>E903</Codigo> <Mensagem>Ja existe lote protocolado com esse numero para o mesmo cnpj e inscricao municipal.</Mensagem> <Correcao>Altere o numero do lote.</Correcao> </MensagemRetorno> </ListaMensagemRetorno> </RecepcionarLoteRpsResult>

Só esses ? Muito grato.

Pessoal o campo Situação da NFSe retorna alguns codigos eu procurei aqui e não encontrei os retornos sei que são poucos e gostaria de saber a descrição deles exemplo 1 - 2 - ficou em processamento 3 - 4 - 5 - Etc.. <?xml version="1.0" encoding="UTF-8"?> <ConsultarSituacaoLoteRpsResult> <NumeroLote xmlns="http://www.sistema.com.br/Nfse/arquivos/nfse_3.xsd">42</NumeroLote> <Situacao xmlns="http://www.sistema.com.br/Nfse/arquivos/nfse_3.xsd">2</Situacao> </ConsultarSituacaoLoteRpsResult>

Para colegas com o mesmo problema que o meu o Italo em conversa por email resolveu meu problema onde informei 30 na propriedade tentativas o problema é que o provedor processa na hora a NFSe porém é bem lento assim tenho que aumentar o numero de tentativas. Grato.

ConsultaLoteAposEnvio Eu já tinha configurado para True com 10 tentativas com intervalo de 3000 ficou assim ConsultaLoteAposEnvio = True AguardarConsultaRet = 0 Colocar 10 porém não resolveu. AjustaAguardaConsultaRet = True IntervaloTentativas = 3000 Tentativas = 10 TimeOut = 5000 Eu peguei o novo arquivo do Provedor do repositório porém sem sucesso Italo se quiser me passe o seu Email que posso lhe passar o Certificado Digital A1 do Cliente que estou efetuando os testes aqui do parana que estou efetuando os testes e lhe mando também o arquivo INI com os Dados do cliente como CNPJ etc.. do Demo do ACBr para você Testar o que acha. Grato.

Estou efetuando testes em Homologação porém já coloquei o link para produção da cidade de Astorga Os testes que estou fazendo são com o Demo do ACBrNFSe o componente está completamente atualizado conforme outro tópico que você me solicitou. Algo que percebi e alterei porém não resolveu assim voltei e deixei como estava e a opção de Assinar o XML que no arquivo do Provedor estava igual a RPS=0 coloquei 1 para poder assinar o XML porém sem sucesso assim voltei a deixar = 0 Em anexo os arquivos XML e os dois arquivos INI Grato. Cidades.INI SimplISS.INI 32-env-lot.xml 32-rec.xml 119662-con-sit.xml 119662-sit.xml 32UNICA-rps.xml

Criei um novo Tópico pois o erro mudou, e me alonguei muito o Tópico anterior assim se o Moderados quiser podem excluir o antigo tópico. Pelo que pude entender do AcbrNfse Eu só devo colocar o link de Produção no Arquivo do Provedor "SimplISS.INI" os demais links estão todos certos sem precisar de alteração. Porém com as configuração "ConsultaLoteAposEnvio = True" Eu recebo o erro estranho "Unknown error message" Para enviar estou clicando no botão "Gerar e Enviar Lote RPS" do Demo do AcbrNfse Como o Ítalo já explicou não estou assinalando e nem validando estou usando apenas o "Enviar" Ficando Assim : ACBrNFSe1.Enviar(vNumLote); O erro é na linha 3607 do arquivo "ACBrNFSeWebServices.pas" FConsSitLoteRPS.GerarException( FConsSitLoteRPS.Msg ); Desde já agradeço a atenção dos Colegas.

Copilei novamente biblioteca ACBR reiniciei a maquina e agora está dando erro "Unknown error message" "