Ir para conteúdo
  • Cadastre-se

LuisMaracaja

Membros
  • Total de ítens

    11
  • Registro em

  • Última visita

Posts postados por LuisMaracaja

  1. Estou com o mesmo problema, na validação da NFC-e ou na consulta aparece a mensagem da foto. 

    O sistema esta em modo de Produção e esta marcado usar ssl 1 e 2 no windows  .

    O cliente levou o certificado na empresa que emite, a empresa falou que foi meu sistema que apagou os dados do CERTIFICADO A3.

    Hoje pela manha outro cliente ligou e o erro e o mesmo da foto, gostaria de saber se alguém poderia me dar um norte de como resolver, obrigado!

    Quando consulto o status do Sefaz o mesmo erro retorna .

     

     

    Sem título.png

  2. Bom dia amigo! 

    estou usando a rotina para imprimir os eventos de cancelamento e encerramento;

        //110111 = CANCELAMENTO
        //110112 = ENCERRAMENTO
        //110114 = INCLUSAO DE CONDUTOR
        1 :
        begin
          if DM.CDS_MDNFeSITUACAO.Value = 'ENCERRADO' then
          Begin
            ACBrMDFe1.EventoMDFe.Evento.Clear;
            ACBrMDFe1.EventoMDFe.LerXML( ACBrMDFe1.Configuracoes.Arquivos.PathSalvar + 'Evento\Encerramento\' +  '110112' +  DM.CDS_MDNFeCHAVE.value + '01-procEventoMDFe.XML' );
            ACBrMDFe1.ImprimirEvento;
          End;
        end;
        2 :
        begin
          if DM.CDS_MDNFeSITUACAO.Value = 'CANCELADO' then
          Begin
            ACBrMDFe1.EventoMDFe.Evento.Clear;
            ACBrMDFe1.EventoMDFe.LerXML( ACBrMDFe1.Configuracoes.Arquivos.PathSalvar + 'Evento\Cancelamento\' +  '110111' +  DM.CDS_MDNFeCHAVE.value + '01-procEventoMDFe.XML' );
            ACBrMDFe1.ImprimirEvento;
          End;
        end;
     

     

    esta funcionando muito bem.

  3.   Julio consegui resolver aqui, obrigado pela ajuda meu amigo.

      A rotina ficou com esta modificação 

     

      if  UTF8Encode(DM.CDS_MDNFe.FieldByName('XML').Value)  <> '' then
      Begin
       XMLstream := TStringStream.Create( UTF8Encode(DM.CDS_MDNFe.FieldByName('XML').Value) );
       XMLstream.Position := 0;
       ACBrMDFe1.Manifestos.LoadFromStream(XMLstream);
      End
      else
        ACBrMDFe1.Manifestos.LoadFromFile(dm._diretorioNFe(DM.CDS_MDNFeDATAHORA_EMISSAO.value )+ DM.CDS_MDNFeCHAVE.value + '-mdfe.xml' );

      ACBrMDFe1.Consultar;

    Funcionou !!!!!!

     

     

    para ler o arquivo do acbr xml e gravando em um campo blob 

      //PEGA XML
      DM.CDS_MDNFeXML.AsString := UTF8Encode(Fprincipal.ACBrMDFe1.Manifestos[0].XML );
      //PEGA CHAVE
      DM.CDS_MDNFechave.VALUE := Copy(Fprincipal.ACBrMDFe1.Manifestos.Items[0].MDFe.infMDFe.ID, 5, 44);

     

     

     

  4. No

    No componente de ACBrMDFe1 estou usando a rotina.

      ACBrMDFe1  DM.CDS_MDNFeXML.AsString := UTF8Encode(Fprincipal.ACBrMDFe1.Manifestos[0].XML );

    funciona normal, gostaria de saber qual o procedimento para alimentar o componente .ACBrMDFe1   com o xml gerado na base de dados.

     

  5.    ACBrMDFe1.Manifestos.Clear;
       XMLstream := TStringStream.Create(dm.CDS_MDFeConsultaXML.AsString);  <====== Gravo o xml em dados Firebird;
       XMLstream.Position := 0;
       ACBrMDFe1.Manifestos.LoadFromStream(XMLstream); <=========                             alimenta normal o componente
       ACBrMDFe1.Consultar;   <==================================                             (ERRO : Nenhum MDF-e ou chave informada )

    /////////////////////////////////////////////////////////////////

    MDF-e  

    (ERRO : Nenhum MDF-e ou chave informada )  

     

     

     

     

       

     

     

     

     

     

     

  6. Na minha rotina apresenta o erro ao consultar

    ACBrMDFe1.Manifestos.Clear;
      if dm.CDS_MDFeConsultaXML.AsString <> '' then
      Begin
       XMLstream := TStringStream.Create(dm.CDS_MDFeConsultaXML.AsString);
       XMLstream.Position := 0;
       ACBrMDFe1.Manifestos.LoadFromStream(XMLstream);
      End
      else
       ACBrMDFe1.Manifestos.LoadFromFile(dm._diretorioNFe(DM.CDS_MDNFeDATAHORA_EMISSAO.value )+ DM.CDS_MDNFeCHAVE.value + '-mdfe.xml' );
      ACBrMDFe1.Consultar;
     

     

     

     

     

    (ERRO : Nenhum MDF-e ou chave informada )  

    Preciso usar o .LoadFromStream meu xml esta na base de dados.

     

     

     

     

    Obrigado!

     

     

     

×
×
  • 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.