windsoft

Olá Ítalo bom dia! Nós só temos clientes que utilizam o provedor GINFES por enquanto e estamos fazendo testes com este provedor, infelizmente não consigo testar com outros, em outra postagem eu lhe enviei a correção de um problema que eu achei no método LoadFromStream dá uma olhada lá depois e verifique se minha análise está correta para disponibilizar para todos por favor. Abraço

Só é possível você fazer isso utilizando uma máquina virtual para a trunk2 e outra para a trunk, é o que eu faço aqui até que tudo esteja concluído. Mas seria importante começar a usar a NFSe para testes e ajudar no desenvolvimento, testes e correção de BUGs.

Olá amigos bom dia! Estou testando a NFSe na trunk2 e tentando resolver algumas dificuldades. Debugando encontrei um possível erro na unit ACBrNFeWebServices.pas na função TWebServices.Envia No trecho de código: if (TACBrNFSe(FACBrNFSe).Configuracoes.Geral.ConsultaLoteAposEnvio) and (Result) then begin if not (TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor in [proDigifred, proProdata, proVitoria, proPVH, profintelISS, proSaatri, proSisPMJP, proCoplan, proISSDigital, proISSDSF, proFiorilli, proFreire, proTecnos, proDBSeller]) then begin Result := FConsSitLoteRPS.Executar; if not (Result) then FConsSitLoteRPS.GerarException( FConsSitLoteRPS.Msg ); end; if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor = proInfisc then Result := True else Result := FConsLote.Executar; if not (Result) then FConsLote.GerarException( FConsLote.Msg ); end; Na parte destacada em vermelho, não seria um ELSE IF? Outra sugestão seria unificar a função Envia, pois existem 2 funções que fazem a mesma coisa e (pelo que percebi) a única diferença é que uma função recebe um Integer como parâmetro e outra uma String. Se eu estiver correto e desejarem que eu faça as modificações eu faço e envio por aqui, caso eu esteja errado, por favor, me esclareçam. Abraço e obrigado a todos.

Olá amigos, estou testando a NFSe na trunk2 e não estou conseguindo capturar a mensagem de erro, (o motivo da recusa) da NFSe no momento da transmissão. Na trunk1 eu estava usando da seguinte forma: ACBrNFSe1.NotasFiscais.Assinar( ACBrNFSe1.Configuracoes.Certificados.AssinaRPS ); if not ( ACBrNFSe1.WebServices.Envia(iLote) ) then raise Exception.Create(ACBrNFSe1.WebServices.Enviar.Msg); Na trunk2 estou usando da seguinte forma: ACBrNFSe1.GerarLote( iLote ); if not ( ACBrNFSe1.WebServices.Envia(iLote) ) then raise Exception.Create(ACBrNFSe1.WebServices.EnvioWebService.Msg); Mas quando a NFSe é recusada, na trunk1 o método Webservices.envia retornava false e o motivo da recusa vinha nesta propriedade Msg, na trunk2 o método Webservices.Envia está retornando True mesmo que haja erro e a Msg retorna em branco. Agradeço muito quem puder me esclarecer o que estou fazendo de errado.

Realmente o código estava diferente depois da trunk2. Faltava incluir a função RetirarPrefixos na função LoadFromString. Segue anexo a unit corrigida bem como o Patch da correção. Por favor @Italo Jurisato Junior disponibilize a correção para todos. Abraço e obrigado! ACBrNFSeNotasFiscais.pas.patch ACBrNFSeNotasFiscais.pas

Amigo, primeiramente você deve baixar a trunk2, na trunk2 o ravereports não é mais suportado. somente fastreport e fortesreport. Se o "erro" que você está relatando acontecer na trunk2 poste aqui que tentaremos te ajudar.

Percebi que se eu usar o LoadFromFile ao invés de utilizar LoadFromStream o problema não acontece. Debugando o código percebi que no LoadFromFile existe uma função RetirarPrefixos e no LoadFromStream não. Alguém poderia me esclarecer isso? Sou eu que estou fazendo algo errado ou realmente tem algum erro que precisa ser corrigido? Att.

Olá amigos boa tarde! Terminei a migração para trunk2 e agora comecei os testes da NFSe em trunk2, estou tendo um problema ao carregar o XML do RPS que está salvo no banco para transmitir a NFSe. Falha na validação dos dados do lote: '' violates length constraint of '14'. The element '{http://www.ginfes.com.br/tipos_v03.xsd}Cnpj' with value '' failed to parse. Ao analisar os fontes, verifiquei que neste trecho de código o RPS não está sendo carregado do banco, o XML correto é passado para a STREAM mas o método LoadFromStream parece que não reconhece o XML. ss := TStringStream.Create(''); try TMemoField(qryNF.FieldByName('NFE_XML')).SaveToStream( ss ); ACBrNFSe1.NotasFiscais.LoadFromStream( ss ); Debugando cheguei até a unit pnfsNFSeR e percebi que o problema acontece porque o Leitor não consegue identificar o código do município e desta forma não consegue identificar o provedor que está sendo utilizado. O XML que estou tentando ler está anexo, por favor se alguém puder me dar uma luz fico muito grato. RPS.XML

@Italo Jurisato Junior Estou migrando para a trunk2, como é que vocês andam fazendo para utilizar a NFe na trunk2 e a NFSe na trunk? Pelo que você diz na sua mensagem você não recomenda utilizar a NFSe em produção ainda né?

O correto não seria ler: (xmlassinado) ? acbrnfe1.notasfiscais.loadfromstring(acbrnfe1.notasfiscais[0].xmlassinado,true);

Poste o XML do MDFe que você está tentando transmitir, talvez traga alguma luz.

Desculpe Juliomar, acabei escrevendo em duplicidade porque eu já tinha abrido este tópico e coincidentemente outro usuário tinha abrido um tópico parecido, eu quis ajudar colocando a suposta solução nos 2 tópicos.

Opa melhor ainda... Aprendi mais uma. Valeu

Além do que você já faz eu informo também a máscara: ACBrNfe1.DANFE.CasasDecimais._Mask_qCom := ',0.#####'; ACBrNfe1.DANFE.CasasDecimais._Mask_vUnCom := ',0.00##';

Olá @Agnaldo Prates bom dia! Consegui resolver os problemas referentes ao arquivo ACBRNFeServicos.ini da seguinte forma: Apaguei o arquivo ACBRNFeServicos.res que está na pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe acessei o prompt do DOS estando dentro da pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe, recompilei o arquivo ACBrNFeServicos.rc utilizando o comando BRCC32.EXE ACBRNFEServicos.rc O Delphi gerará um novo arquivo .res na pasta, copiei este novo arquivo gerado para a pasta \ACBr_trunk2\Lib\Delphi\LibD7 e agora está tudo funcionando perfeitamente sem a necessidade de enviar o arquivo .ini para o cliente. Agradeço pela atenção e desejo uma boa semana a todos.

Olá @Dércio Luis Zanatta, @Agnaldo Prates e @Juliomar Marchetti e quem mais possa interessar. Consegui resolver os problemas referentes ao arquivo ACBRNFeServicos.ini da seguinte forma: Apaguei o arquivo ACBRNFeServicos.res que está na pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe acessei o prompt do DOS estando dentro da pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe, recompilei o arquivo ACBrNFeServicos.rc utilizando o comando BRCC32.EXE ACBRNFEServicos.rc O Delphi gerará um novo arquivo .res na pasta, copiei este novo arquivo gerado para a pasta \ACBr_trunk2\Lib\Delphi\LibD7 e agora está tudo funcionando perfeitamente sem a necessidade de enviar o arquivo .ini para o cliente. Concluo então que, diferente do que eu havia dito, o arquivo ACBrNFeServicos.ini está sim atualizado, porém o arquivo ACBrNFeServicos.res não é recompilado durante a instalação do componente. Agradeço pela atenção e desejo uma boa semana a todos.

Olá Juliomar bom dia! Pegando carona na pergunta do amigo @Dércio Luis Zanatta eu tive problemas no envio de Eventos após atualizar para a trunk2, fiquei sexta feira o dia todo tentando encontrar onde estava meu erro e não consegui, acabei abrindo um topico no fórum e o amigo @Agnaldo Prates respondeu me enviando um arquivo ACBrNFeServicos.ini que resolveu o problema. Minha pergunta é: Quando utilizo a instalação padrão do ACBr pelo que entendi, ele utiliza o arquivo .res que está na pasta LIB do componente. Este arquivo não deveria ser o mais recente? Ou devo pegar o arquivo de outro local e atualiza-lo? Abraço e obrigado

Santo Agnaldo Prates.... Muito obrigado pela ajuda. Não encontrei no forum nada falando sobre este arquivo, depois que você respondeu pesquisei os fontes e vi que é possível utilizar o arquivo INI ou o arquivo .res, o arquivo que estou utilizando é o que está na pasta \ACBr_trunk2\Fontes\ACBrDFe\ACBrNFe\ACBRnfeservicos.ini Com o seu arquivo funcionou, mas com o que está no projeto não. Este não deveria ser o arquivo mais atualizado? Onde é que você pegou o seu?

Olá Amigos boa tarde! Estou migrando para a trunk2 e estou enfrentando problemas no envio de eventos (cancelamento e CCe), consigo gerar, transmitir e consultar notas fiscais normalmente, mas no envio do evento sempre me retorna o erro: Rejeição: Versão dos dados não suportada. Já perdi o dia todo de hoje tentando encontrar o problema e pesquisando no fórum mas realmente perdi esta. Delphi 7 Capicom VersaoDFe = 3.10 O erro acontece tanto no meu projeto quanto no exemplo do ACBr. Segue anexo os arquivos XML dos eventos. Agradeço a quem possa ajudar. 1-eve-soap.xml 1-eve.xml 1-ped-eve-soap.xml 1-ped-eve.xml 1-ped-eve.xml

Olá Junior, boa tarde! Entendo eu que a geração do SPED é obrigação da empresa, portanto nem do contador nem da aplicação mas sim dos 3. (Empresa, Contador e aplicação). Porém temos casos que geramos o SPED através da nossa aplicação e o contador importa o arquivo do SPED no software contábil e depois gera o SPED final.

Eu salvo o arquivo DANFE.fr3 em uma tabela do banco de dados e utilizo o código abaixo para carregá-lo sem precisar salva-lo em um arquivo. var ss : TStringStream; begin ss := TStringStream.Create(''); try TBlobField( DataSet.FieldByName('DANFE') ).SaveToStream( ss ); Danfe1.FastFile := ss.DataString; finally ss.Free; end;

Valeu @Italo Jurisato Junior fiz assim e ficou perfeito agora. Abraço

Olá pessoal bom dia! Utilizando a dica do @Italo Jurisato Junior estou tendo o seguinte problema: Quando um CTe tem uma NFe relacionada, a tag '<infNFe' também existe no CTe, fazendo com que o código utilizado no EmissorDFe identifique o XML do CTe como NFe. Existe alguma outra solução segura para garantir que esta identificação ocorra sem problemas? Obrigado pela atenção de todos.

Acredito que não tenha a ver com o Rave e sim com a imagem que você colocou no Logo. Veja se funciona sem o logo do cliente, tente abrir o logo no PAINT e salve ele como JPG.

Seria interessante postar a solução para os demais colegas que tiverem a mesma dúvida.