Alteraçao Em Acbrnfeconfiguracoes

[Joao Paulo Noronha]

Bom dia,

 

gostaria de sugerir a alteração no arquivo em anexo.

senti necessidade pois já utilizamos a função semelhante, na vertente da NFe (GetPathNFe), para determinar a localização do arquivo gerado, conforme podem ver pelo exemplo abaixo.

No caso da função alterada optei não mexer na ordem dos parâmetros, de modo a ficar igual a GetPathNFe, pois não tinha como determinar a extensão do uso da mesma fora do componente.  ACBrNFeConfiguracoes.pas

 

//NFe

function loadXML(chave_nfe:string; ID_SITUACAO_NFE: integer; dtEmissao: tdatetime = 0; dtRecebimento: tdatetime = 0): boolean;

var

OpenDialog1: topendialog;

sFilePathXML: string;

bFileNotFoundXML, bCancelXML: boolean;

DataXML : tdatetime;

begin

  result := false;

  OpenDialog1 := topendialog.Create(nil);

  OpenDialog1.Title := 'Selecione a NFe';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFe (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := dm_conexao.NFe.Configuracoes.Geral.PathSalvar;

  try

    bFileNotFoundXML := true;

    if (ID_SITUACAO_NFE > 1) and (length(chave_nfe) > 0) then

    begin

      if dm_conexao.NFE.Configuracoes.Arquivos.EmissaoPathNFe then

        DataXML := dtEmissao

      else

        if not (dtRecebimento = 0) then

          DataXML := dtRecebimento;

 

      sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathNFe( DataXML)) +

        OnlyNumber(chave_nfe) + '-nfe.xml';

 

      bFileNotFoundXML := not fileexists(sFilePathXML);

      if (bFileNotFoundXML) and (dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal) then

      begin

        dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := false;

 

        sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathNFe( DataXML)) +

        OnlyNumber(chave_nfe) + '-nfe.xml';

        bFileNotFoundXML := not fileexists(sFilePathXML);

 

        dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := true;

      end;

 

      if not bFileNotFoundXML then

        try

          dm_conexao.NFe.NotasFiscais.Clear;

          dm_conexao.NFe.NotasFiscais.LoadFromFile(sFilePathXML, true);

        except

          bFileNotFoundXML := true;

        end;

 

      bCancelXML := false;

      while (bFileNotFoundXML) and (not bCancelXML) do

      begin

        bCancelXML := not OpenDialog1.Execute;

        if (not bCancelXML) then

        if isnullempty(OpenDialog1.FileName) then

          ShowMessage('Desculpe, mas tem de selecionar um arquivo para processar.')

        else

          try

            dm_conexao.NFe.NotasFiscais.Clear;

            dm_conexao.NFe.NotasFiscais.LoadFromFile(OpenDialog1.FileName, true);

            if OnlyNumber(dm_conexao.NFe.NotasFiscais.Items[inf].NFe.infNFe.id) = chave_nfe then

              bFileNotFoundXML := false

            else

              ShowMessage('Arquivo não corresponde a chave do registo'+#13+'Por favor certifique se é o arquivo correto!');

          except

            ShowMessage('Arquivo inválido'+#13+'Por favor certifique se o arquivo tem o formato correto!');

          end;

      end;

    end;

 

    if not bFileNotFoundXML then

    begin

      inc(inf);

      result := true;

    end;

  finally

    OpenDialog1.Free;

  end;

end;

 

//EVENTO NFe

function loadEventoXML(chave_nfe:string; tipoEvento: TpcnTpEvento; dtEmissao: tdatetime = 0; iSeq: integer = 1): boolean;

var

  OpenDialog1: topendialog;

  sFilePathXML: string;

  bFileNotFoundXML, bCancelXML: boolean;

  DataXML : tdatetime;

begin

  result := false;

  OpenDialog1 := topendialog.Create(nil);

  OpenDialog1.Title := 'Selecione a NFe';

  OpenDialog1.DefaultExt := '*-nfe.XML';

  OpenDialog1.Filter := 'Arquivos NFe (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := dm_conexao.NFe.Configuracoes.Geral.PathSalvar;

  try

    bFileNotFoundXML := true;

    if (length(chave_nfe) > 0) then

    begin

      sFilePathXML :=  PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathEvento(tipoEvento,dtEmissao,'')) + TpEventoToStr(tipoEvento) +

           OnlyNumber(chave_nfe) +IntToStrZero(iSeq, 2) + '-procEventoNFe.xml';

 

      bFileNotFoundXML := not fileexists(sFilePathXML);

      if (bFileNotFoundXML) and (dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal) then

      begin

        dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := false;

 

        sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathEvento(tipoEvento, DataXML,''))  + TpEventoToStr(tipoEvento) +

          OnlyNumber(chave_nfe) +IntToStrZero(iSeq, 2) + '-procEventoNFe.xml';

        bFileNotFoundXML := not fileexists(sFilePathXML);

 

        dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := true;

      end;

 

      if not bFileNotFoundXML then

        try

          dm_conexao.NFe.EventoNFe.Evento.Clear;

            dm_conexao.NFe.EventoNFe.LerXML(sFilePathXML) ;

        except

          bFileNotFoundXML := true; //xml invalido

        end;

 

      bCancelXML := false;

      while (bFileNotFoundXML) and (not bCancelXML) do

      begin

        bCancelXML := not OpenDialog1.Execute;

        if (not bCancelXML) then

        if isnullempty(OpenDialog1.FileName) then

          ShowMessage('Desculpe, mas tem de selecionar um arquivo para processar.')

        else

          try

            dm_conexao.NFe.EventoNFe.Evento.Clear;

            dm_conexao.NFe.EventoNFe.LerXML(OpenDialog1.FileName) ;

            if OnlyNumber(dm_conexao.NFe.EventoNFe.Evento.Items[0].infEvento.chNFe) = chave_nfe then

              bFileNotFoundXML := false

            else

              ShowMessage('Arquivo não corresponde a chave do registo'+#13+'Por favor certifique se é o arquivo correto!');

          except

            ShowMessage('Arquivo inválido'+#13+'Por favor certifique se o arquivo tem o formato correto!');

          end;

      end;

    end;

 

    if not bFileNotFoundXML then

    begin

      inc(inf);

      result := true;

    end;

  finally

    OpenDialog1.Free;

  end;

end;

 

 

 

atentamente

João Paulo

ACBrNFeConfiguracoes.pas