Nota Fiscal Eletrônica – Um caso real – Parte 2g

// Método para gerar o arquivo de solicitação de inutilização de NF-e

function TCASSICNFe.InutilizarNFe(NFe_Inicial, NFe_Final, Inut_Just: string): Boolean;

var

  ArqDados: TextFile;

  FilePath: string;

  Cont: Integer;

begin

  try

    Result := True;

    // Arquivo temporário

    FilePath :=  ExtractFilePath( Application.Exename ) + '\NFE_SOLIC.TXT';

    FilePath := StringReplace(FilePath, '\\', '\', [rfReplaceAll]);

    // Inicia Arquivo NFE_SOLIC.TXT

    AssignFile(ArqDados, FilePath);

    Rewrite( ArqDados );

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

    //                     //

    // Abertura do Arquivo //

    //                     //

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

    // CNPJ da empresa usuária do CASSIC NF-e

    Writeln(ArqDados, '0000' +

      FCNPJ);

    // Versão do Layout

    Writeln(ArqDados, '0001' +

      '01.01.001');

    // Tipo de mensagem

    Writeln(ArqDados, '0002' +

      '0003');

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

    //                             //

    // Configuração da Nota Fiscal //

    //                             //

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

    // Justificativa da inutilização

    Writeln(ArqDados, '0520' +

      Inut_Just);

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

    //                    //

    // Dados do CASSICNFE //

    //                    //

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

    // ID da primeira nota fiscal eletrônica inutilizada no CASSICNFE

    Writeln(ArqDados, '0600' +

      NFe_Inicial);

    // ID da última nota fiscal eletrônica inutilizada no CASSICNFE

    Writeln(ArqDados, '0601' +

      NFe_Final);

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

    //                       //

    // Fechamento do Arquivo //

    //                       //

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

    // CNPJ da empresa usuária do CASSIC NF-e

    Writeln(ArqDados, '9999' +

      FCNPJ);

    // Finaliza Arquivo NFE_SOLIC.TXT

    CloseFile(ArqDados);

    // Abre comunicação com o MercuryMD

    Result := MercuryMD(FilePath);

  except

    Result := False;

  end;

end;

// Método para gerar o arquivo de solicitação de reenvio de e-mail da NF-e já emitida

function TCASSICNFe.Enviar_eMailNFe(ID_DF, eMail: string): Boolean;

var

  ArqDados: TextFile;

  FilePath: string;

  Cont: Integer;

begin

  try

    Result := True;

    // Arquivo temporário

    FilePath :=  ExtractFilePath( Application.Exename ) + '\NFE_SOLIC.TXT';

    FilePath := StringReplace(FilePath, '\\', '\', [rfReplaceAll]);

    // Inicia Arquivo NFE_SOLIC.TXT

    AssignFile(ArqDados, FilePath);

    Rewrite( ArqDados );

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

    //                     //

    // Abertura do Arquivo //

    //                     //

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

    // CNPJ da empresa usuária do CASSIC NF-e

    Writeln(ArqDados, '0000' +

      FCNPJ);

    // Versão do Layout

    Writeln(ArqDados, '0001' +

      '01.01.001');

    // Tipo de mensagem

    Writeln(ArqDados, '0002' +

      '0005');

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

    //                             //

    // Configuração da Nota Fiscal //

    //                             //

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

    // ID da nota fiscal gerada no Aplicativo Cliente

    Writeln(ArqDados, '0500' +

      ID_DF);

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

    //                  //

    // Dados do Cliente //

    //                  //

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

    // e-mail do cliente

    if ( eMail <> '' ) then Writeln(ArqDados, '1190' + eMail);

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

    //                       //

    // Fechamento do Arquivo //

    //                       //

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

    // CNPJ da empresa usuária do CASSIC NF-e

    Writeln(ArqDados, '9999' +

      FCNPJ);

    // Finaliza Arquivo NFE_SOLIC.TXT

    CloseFile(ArqDados);

    // Abre comunicação com o MercuryMD

    Result := MercuryMD(FilePath);

  except

    Result := False;

  end;

end;