Gabriel Rezende

Bom dia Italo, então o problema é: Se vc reparar na parte mas abaixo na função: CASE Tipo OF o tratamento é diferente no segundo caso(LoadFromStream). Ou seja mesmo fazendo esta alteração, quando chegou na parte de carregar as informações ele não encontrou as TAGs. Essa função não foi tratado para "operadora" IssDSF. Olhe a diferença depois entre uma e outra, segue abaixo. Na unit ACBrNFSeNotasFiscais - function LoadFromFile: if pos('</CompNfse>', ArquivoXML.Text) > 0 then Tipo := 1 else if pos('</ComplNfse>', ArquivoXML.Text) > 0 then Tipo := 2 else if pos('</Nfse>', ArquivoXML.Text) > 0 then Tipo := 3 else if pos('</ListaRps>', ArquivoXML.Text) > 0 then Tipo := 4 else if pos('</Rps>', ArquivoXML.Text) > 0 ) then Tipo := 5 else if pos('</listaRps>', ArquivoXML.Text) > 0 then Tipo := 6 else if pos('</NFS-e>', ArquivoXML.Text) > 0 then Tipo := 7 // Infisc else Tipo := 0; Na unit ACBrNFSeNotasFiscais - function LoadFromStream: if pos('</CompNfse>', ArquivoXML.Text) > 0 then Tipo := 1 else if pos('</ComplNfse>', ArquivoXML.Text) > 0 then Tipo := 2 else if pos('</Nfse>', ArquivoXML.Text) > 0 then Tipo := 3 else if pos('</ListaRps>', ArquivoXML.Text) > 0 then Tipo := 4 else if pos('</Rps>', ArquivoXML.Text) > 0 then Tipo := 5 else if pos('</listaRps>', ArquivoXML.Text) > 0 then Tipo := 6 else if pos('</RPS>', ArquivoXML.Text) > 0 then Tipo := 7 //issDSF / CTA else if pos('</Nota>', ArquivoXML.Text) > 0 then Tipo := 8 //issDSF / CTA else Tipo := 0;

Boa tarde, eu tambem estou com esse problema Robson. Não consegui resolver você já teve alguma posição ou encontrou o erro???

Boa tarde Italo, Antigamente tinha a comunicação com a DSFNET via DLL, porem há muitas falhas então começamos a montar o XML de forma manual e após muitos estudos achamos o ACBR, então optamos por fazer o envio pelo mesmo. Então para não perder o serviço feito, continuamos gerando o arquivo XML. O motivo de carregar no Stream é o seguinte, quando eu faço o LoadFromFile o arquivo não é carregado, pois na implementação dessa função a buscar pelo nome "Rps" é casesensitive e seguindo o manual da DSFnet na estrutura do XML é "RPS" tudo maiusculo então crio o arquivo com a TAG "RPS" e "Rps"( não sei se o ocorre problema ), mas quando eu vou carregar pela função LoadFromStream ele faz a captura "RPS" tudo maisculo( ou seja, quando utilizo o LoadFromFile ele não carrega o arquivo no componente ). ....

Boa tarde Italo, Antigamente tinha a comunicação com a DSFNET via DLL, porem há muitas falhas então começamos a montar o XML de forma manual e após muitos estudos achamos o ACBR, então optamos por fazer o envio pelo mesmo. Então para não perder o serviço feito, continuamos gerando o arquivo XML. O motivo de carregar no Stream é o seguinte, quando eu faço o LoadFromFile o arquivo não é carregado, pois na implementação dessa função a buscar pelo nome "Rps" é casesensitive e seguindo o manual da DSFnet na estrutura do XML é "RPS" tudo maiusculo então crio o arquivo com a TAG "RPS" e "Rps"( não sei se o ocorre problema ), mas quando eu vou carregar pela função LoadFromStream ele faz a captura "RPS" tudo maisculo( ou seja, quando utilizo o LoadFromFile ele não carrega o arquivo no componente ).

Bom dia Italo, segue abaixo os print's com a minha codificação.

Boa tarde Italo, É estive meio afastado do projeto estou retornando agora com o desenvolvimento. É vou iniciar de novo o assunto, sobre esses erros anteriores conseguimos sanar aqui, acredito que era alguma coisa na informações do ACBrNFSe. Estou com o seguinte problema que é o seguinte, consigo enviar a Nota e não ocorre erro nem nada, logo após o envio destas notas preciso consulta-las para verificar se foi processada. Gostaria de saber se é algum problema na minha codificação ou no ACBR. Estou meio bloqueado nesta parte, pois consegui enviar o lote e agora não consigo obter o retorno. Segue os Print's em anexo. Desde já, Obrigado!

Obrigado Michel, vou dar uma olhada aqui no arquivo.

Italo, me desculpe esse segundo problema que passei acima foi equivocado algumas vezes retornam vazios outros não, ainda não identifiquei porque!! Ignore, o problema que esta sendo retornado pelo WS no arquivo 6215727-lista-nfse-soap.xml é este: <Codigo>106</Codigo><Descricao>A Data Final de emissao das Notas Fiscais enviadas nao pode ser inferior a 01/06/2006. Acredito que na hora do envio para o WS pode estar dando algum problema pois TAG <DataEmissaoRps> está sendo passada vazia...

Italo, tem mais algumas coisas aqui que estou verificando...!!! Vocês vão cansar de mim!! Estou vendo que na função AcbrNFSe1.ConsultarLoteRps no arquivo ACBrNFSe.pas vocês tentam carregar o arquivo através do NotasFiscais.LoadFromFile(); porem percebi que o mesmo não esta preparado para DSF e tiver que utlizar o NotasFiscais.LoadFromStream(); e simplemente porque a TAG <RPS> vem CaseSensitive e com isso ele não consegue carregar este arquivo na propria função. Solução foi criar o Stream e Carregar o XML de forma manual antes de chamar a função, como a property NotasFiscais está carregada neste momento não caiu no erro: if NotasFiscais.Count <= 0 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Nenhum RPS adicionado'); raise Exception.Create('ERRO: Nenhum RPS adicionado'); exit; end; Código onde se encontra o LoadFromFile(); if FilesExists(aPath+'Ger\'+ANumLote+'-env-lotS.xml') then begin // Alterado por Rodrigo Cantelli if FConfiguracoes.Arquivos.AdicionarLiteral then NotasFiscais.LoadFromFile(aPath+'Ger\'+ANumLote+'-env-lotS.xml') else if FConfiguracoes.Arquivos.Salvar then NotasFiscais.LoadFromFile(aPath+ANumLote+'-env-lotS.xml'); end else begin if FConfiguracoes.Arquivos.AdicionarLiteral then NotasFiscais.LoadFromFile(aPath+'Ger\'+ANumLote+'-env-lot.xml') else if FConfiguracoes.Arquivos.Salvar then NotasFiscais.LoadFromFile(aPath+ANumLote+'-env-lot.xml'); end; Outra coisa é o seguinte na function TNFSeConsultarLoteRPS.Executar do arquivo AcbrNFSeWebService.pas neste pedaço de código abaixo percebi que utilizo esta função em negrito a string esta ficando vazia não preenchendo o segundo arquivo. ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); // FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); // Luiz Baião 2014.12.02 ACBrProvedorNFSEBrasil // if FProvedor = proNFSEBrasil then // FRetornoWS := TiraAcentos(CaracterEmTagXML(StrStream.DataString, True)) // else FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); // Gabriel M FRetWS := FProvedorClass.GetRetornoWS(acConsLote, FRetornoWS); StrStream.Free; Eu enviei a nota, teve sucesso no arquivo de retorno, porem quando vou consultar a nota logo em seguida ele me aparece o erro codigo 203 = "Lote não processado ainda", e esse cara cai em um exception travando a aplicação. Acredito que este alerta não seria o caso de um Exception pois entendi que o lote foi enviado porem ainda não processado e preciso ficar consultando o lote? Eu acho que é isso, se eu estiver errado me corrija por favor. Result := Self.ConsLote.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.ConsLote.Msg); if Self.ConsLote.Msg <> '' then raise Exception.Create(Self.ConsLote.Msg) else raise Exception.Create('Erro Desconhecido ao Consultar o Lote!') end; E a ultima duvida é o seguinte..... Enviei o lote, houve esse retorno de lote não processado ainda, quando eu tento consultar o lote novamente de forma separada ele estoura um erro que não estou conseguindo identificar: Parte do código abaixo ESOAPHTTPException with message 'O sistema não pode encontrar o arquivo especificado'URL: http://udigital.uberlandia.mg.gov.br/WsNFe2/LoteRps.jws?wsdll- SOAPAction:consultarLote ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); // FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); // Luiz Baião 2014.12.02 ACBrProvedorNFSEBrasil // if FProvedor = proNFSEBrasil then // FRetornoWS := TiraAcentos(CaracterEmTagXML(StrStream.DataString, True)) // else FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); // Gabriel M FRetWS := FProvedorClass.GetRetornoWS(acConsLote, FRetornoWS); StrStream.Free;

Bom dia, Italo funcionou perfeitamente, porem deu outro problema agora na TAG <DocEstrangeiroTomador>, na função TNFSeR.LerRPS_IssDSF do arquivo pnfsNFSeR.pas, quando faço o LoadFromStream para passar o arquivo XML para o componente. NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := Leitor.rCampo(tcStr, 'InscricaoMunicipalTomador'); NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'CPFCNPJTomador'); NFSe.Tomador.IdentificacaoTomador.DocTomadorEstrangeiro := 'DocTomadorEstrangeiro'; -- Faltou adicionar a função( Leitor.rCampo ) NFSe.Tomador.Contato.Email := Leitor.rCampo(tcStr, 'EmailTomador'); NFSe.Tomador.Contato.Telefone := Leitor.rCampo(tcStr, 'DDDTomador') + Leitor.rCampo(tcStr, 'TelefoneTomador'); Corrigi no meu arquivo funcionou perfeitamente. Agora estou brigando com o envio, que aparentemente deu certo mas não deu!! hehehehehe Desde já Obrigado!!

Boa tarde, Juliomar o provedor da prefeitura é a DSF, seguindo todos os fontes e procurando dentro de ACBR vi que existe o desenvolvimento para esse provedor, porem estou tendo dificuldades para a transmissão da nota, por isso queria entender se realemente comunica ou não? Fiz outro POST sobre um erro que está dando no envio, pois ja estou no meio do desenvolvimento e até o momento esta funcionando porem parei neste problema.. Obrigado!!

Boa tarde, Estou desenvolvendo a NFSe para Uberlandia/MG e no momento de envio da NFSe esta ocorrendo o erro: The element 'DataEmissaoRPS' with value '' failed to parse. Segue o código abaixo. Debugando o codigo vi que ao carregar o XML para o acbr ele esta capturando a data de forma correta, porem quando o acbr desmancha o xml para fazer a assinatura e remonta o xml ( FDadosMsg ) está faltando a TAG <DataEmissaoRPS>. Quando entra para o metodo de validação ocorre o erro. if FProvedorClass.GetValidarLote then begin if not(NotaUtil.Valida(FDadosMsg, FMsg, FConfiguracoes.Geral.PathSchemas, FConfiguracoes.WebServices.URL, FConfiguracoes.WebServices.ServicoEnviar, FConfiguracoes.WebServices.Prefixo4)) then raise Exception.Create('Falha na validação do Lote ' + TNFSeEnviarLoteRps(Self).NumeroLote + sLineBreak + FMsg); end;

Boa tarde, Gostaria de saber sobre a NFSe para o ACBr, pois seguindo os POST anteriores, disseram que não havia comunicação com a prefeitura de Uberlândia, porem no arquivo pnfsConversao.pas consta os dados da mesma. Existe a comunicação com a DSF ou ainda não?