windsoft

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.

Olá 3Soft, como faz tempo que mexemos nisso, não tenho total certeza, mas me parece que foi só alterar a variável "TotalPages" para "TotalPages#" no .fr3 Olá Daniel, a resposta acima, acho que já te ajuda, se não conseguir fazer me avisa aqui que eu faço a alteração e te envio. Abraço

Olá amigo bom dia, segue anexo o arquivo que eu uso em produção, corrigido. Abraço DANFERetrato.zip

Olá Daniel, eu postei a correção para este problema neste post não sei se foi disponibilizado pra todos.

Não estou usando o Trunk2 ainda mas o problema também ocorre no Trunk, basta corrigir a seguinte função: function TACBrNFeDANFEFR.PrepareReportEvento: Boolean; var wProjectStream: TStringStream; begin FdmDanfe.SetDataSetsToFrxReport; if Trim(FastFileEvento) <> '' then begin if not (uppercase(copy(FastFileEvento,length(FastFileEvento)-3,4))='.FR3') then begin wProjectStream:=TStringStream.Create(FastFileEvento); FdmDanfe.frxReport.FileName := ''; FdmDanfe.frxReport.LoadFromStream(wProjectStream); wProjectStream.Free; end Corrigir apenas o trecho em vermelho

Não sei se entendi bem a sua pergunta, mas acredito que o problema está em você não informar a propriedade: IndPag de forma correta, verifique se você está preenchendo conforme o exemplo abaixo: if ( cdsImpressaoNFCODVENC.AsString = '1' ) then // a Vista Ide.indPag := ipVista else if ( cdsImpressaoNFCODVENC.AsString = '2' ) then // a Prazo Ide.indPag := ipPrazo else Ide.indPag := ipOutras;

Pelo que percebi. No seu código está faltando o trecho: with Ide.NFref.Add do begin