Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

jdazevedo

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    89

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por jdazevedo

    Gerar NFE TXT - Registro O11 não pode vir após registro O10

    em ACBrNFe

    Postado

    Olá Ítalo, Obrigado pela atenção!

    Sim, estamos gerando o TXT usando o ACBrNFe e depois é importado pelo programa gratuito da SEFAZ, para emitir. 

    Concordo contigo é muito mais fácil fazer tudo no ACBrNFe. O usuário tem algumas situações que ele prefere usar o Emissor gratuito.

    Como tive que dar uma solução imediata, segui a orientacao do manual do Emissor e alterei na Unit: pcnLayoutTXT.pas, as linhas a seguir e deu certo: 

    linha: 322

    ....LoadLayout('<O07>   O10|VBC¨|PIPI¨|VIPI¨'); mudei para: 

    ....LoadLayout('<O07>   O10|VBC¨|PIPI¨');

     

    linha: 323

    ....LoadLayout('<O07>   O11|QUnid¨|VUnid¨|VIPI¨'); mudei para:

    ....LoadLayout('<O07>   O11|QUnid¨|VUnid¨');

     

    Não fiz outras análises.  

     

     

      

    Certificado Digital Não Encontrado

    em ACBrMDFe

    Postado

    Bom dia senhores, vou utilizar esse post para tirar minha dúvida já que se trata de Certificado digital!

     

    - Gostaria de saber se existe no ACBr um comando que me retorne uma resposta satisfatória confirmando ou não se o meu certificado A3 está espetado na maquina ?

     

    Grato desde já !

     

     

    Obs: já estou usando o try .. except .

     

     

    Edson Lima

    Olá Edson, 

    Eu fiz uma function que funciona quando já tenho o número de SERIE do certificado já registrado e só preciso saber se o certificado está ativo.

    Com as informações obtidas é possível fazer outros testes. Mas, a E.Message, já traz tudo o que preciso. E quando não tem exception a resposta IsValid.Result também satisfaz.  

            

    function CertificadoValido(Serie: string): Boolean;
    var
      xCert : ICertificate2;
      DtVal: TdateTime;
      SerieEncontrada: string;
    begin
      result := false;
      if trim(Serie) = '' then exit;
      try
        Form1.USNfe_Aux.Configuracoes.Certificados.NumeroSerie := Serie;
        try
          xCert := Form1.USNfe_Aux.Configuracoes.Certificados.GetCertificado;
          DtVal := xCert.ValidToDate;
          SerieEncontrada := xCert.SerialNumber;
          result := xCert.IsValid.Result;
        except
          on e: Exception do
            MessageDlg('Erro: '+e.Message, mtError, [mbOK], 0);
        end;
      finally
     
      end;
     ...
     
     
     
    • Curtir 1

    Erro Ao Validar O Xml Da Nfe

    em ACBrNFe

    Postado

    Olá Amigos, 

    Estou sofrendo com um problema que está me incomodando muito, e não estou achando a causa. 

    Erro: Falha na validação dos dados da nota 2451
     
    Erro Completo: Falha na validação dos dados da nota 2451
    Element '{http://www.portalfiscal.inf.br/nfe}versao'is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}ide'.

     

    Anexei a imagem do erro e o XML gerado. 

     

    A mensagem indica algo errado com relação a <versao>, Estou usando a versão 3.10. Já passei e repassei pelas informações tanto no sistema como no XML e não consigo encontrar nada estranho, Tentei informar valores de várias formas e nenhum passa. 

    Parece ser algo simples, mas acho que já estou em loop e não consigo sair do lugar. 

     

    Desde já muito grato por uma dica. 

    post-2521-0-11589600-1427798687_thumb.jp

    35150359201707000109550000000024511000008646-nfe.xml

    Correções Na Geração Do Arquivo Layout Txt 3.10

    em ACBrNFe

    Postado

    Complementando o Post anterior. Ao invez de alterar ACBrNFeNotasFiscais, preferi resolver o problema da duplicidade da primeira linha, alterando no pcnLayoutTXT

    ...

      else if versao = '3.10' then
      begin
        LoadLayout('<B>     NOTA FISCAL|1'); //ok
        LoadLayout('<B01>     A|versao¨|^id^'); //ok
    ...

     

    Correções Na Geração Do Arquivo Layout Txt 3.10

    em ACBrNFe

    Postado

    Olá Gabriel, 

    Baixei as Units que vc postou, só que ao gerar o TXT, usando a function <NotasFiscais.SaveToTXT> a primeira linha está aparecendo duplicada. 

    Veja como ficou:

    ...

    NOTA FISCAL|1
    NOTA FISCAL|1
    A|3.10|NFe42150301927520000298550010000040711000053780
    B|42|00005378|VENDA|1|55|1|4071|2015-03-17T00:00:00-03:00|2015-03-17T00:00:00-03:00|1|1|4202404|1|1|0|1|1|0|0|3|2.2||
    ...
     
    Em algumas versões antigas ocorria isto, mas foi resolvido. 
    Ao fazer um DEBUG, percebi que logo após a geração do TXT, tem os seguintes procedimentos: 
    ...
        if loSTR.Count > 0 then
        begin
          loSTR.Insert(0,'NOTA FISCAL|'+IntToStr(Self.Count));
          J:=loSTR.Count;
    ..
     

    Comentei estas linhas e resolveu. Alguém já passou por isto?

     

    Erro Ao Exportar Para Txt

    em ACBrNFe

    Postado

    Boa Noite, 

    Sei que este post está há muito tempo parado. Mas, estou enfrentando este problema.

    Atualizei tudo, mudei a versão para ve310 e ao gerar o Arquivo TXT, não aparece a a linha A|3.10|.... 

    Fiz um DEBUG e percebi que não estava gerando a linha porque na function a seguir: 

     

    function CarregarLayoutTXT(const versao: string): AnsiString;
    ...
      else if versao = '2.00' then
      begin
        LoadLayout('<B01>       NOTA FISCAL|1');
        LoadLayout('<B01>     A|2.00|^id^'); //ok
    ...
      else if versao = '3.10' then
      begin
        LoadLayout('<B>       NOTA FISCAL|1');    
        LoadLayout('<B01>     A|versao¨|^id^');
    ...
    Simplesmente substituí o campo <versao¨> por <3.10> e recompilei o pacote: PCN2 e funcionou. 
     
    Ficou assim:
    ...
      else if versao = '3.10' then
      begin
        LoadLayout('<B>       NOTA FISCAL|1');    
        LoadLayout('<B01>     A|3.10|^id^');
    ...
     

    Não sei se esta é a melhor solução. Também não pesquisei mais para ver porque o campo <versao¨> não estava sendo substituído. 

    Se alguém que conhece melhor esta rotina puder dar uma olhada e me indicar uma melhor solução eu ficaria muito grato. 

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.