static void FileOperations(Args _args)
{
  /*
  ......................................................
  Author : Harish Mohanbabu
  Purpose : Demonstration for creating a text file and
  writing contents into that file
  ......................................................
  */
 
  CustTable cust;
  CommaIO myfile;
  TextBuffer tb;
  counter recordCount;
  int i;
  str fileName;
  ;
 
  fileName = "C:\\Axapta1.txt"; //<- Como alternativa, você pode usar um Dialog.
  //<- No lugar de tst, extenções como
  //.Doc, .Xls também podem ser usadas.
 
  //Criando um novo arquivo com direito de escrita
  myfile = new commaIO(fileName,"w");
 
  //Configurando os delimitadores
  myfile.outRecordDelimiter("\r\n");
  myfile.outFieldDelimiter(",");
 
  while select cust order by accountnum
  {
    myfile.write(cust.AccountNum, cust.Name);
  }
 
  myfile.write('..........................................');
 
  //Para encontrar quantos registros foram impressos e escrever no final do arquivo
  recordcount = new sysdicttable(tablenum(custTable)).recordCount();
  myfile.write("Inserted " + int2str(recordcount) + " Records");
 
  //Para fechar o arquivo
  myfile = null;
 
  //Para copiar o conteúdo do arquivo para a área de transferência
  tb = new TextBuffer();
  tb.fromFile(filename);
  tb.toClipboard();
  tb = null;
 
  //Para remover o arquivo
  //winapi::deleteFile(fileName);
 
  //Para mover o arquivo
  //winapi::moveFile(fileName, newfileName);
}