DOWNLOAD function

clembo · **Posted:** Thu Jun 14, 2012 5:19 pm

I have this code:

IF NOT DOWNLOAD(FileName,'','c:\Temp','',ToFileName) THEN
ERROR('Error..');

Why Nav ask me save or open with dialog window?
How I can to skip and save it without ask me before?

mohana_cse06 · **Posted:** Thu Jun 14, 2012 6:34 pm

Check whether this link can help you
http://mibuso.com/blogs/mohana/2011/02/20/file-export-in-rtc-with-%e2%80%9ccommon-dialog-management%e2%80%9d/

clembo · **Posted:** Thu Jun 14, 2012 8:24 pm

But my problem is that I DON'T want common dialog...

mohana_cse06 · **Posted:** Fri Jun 15, 2012 6:13 am

Then simply skip that part and give fixed path in FileName2..

koubek · **Posted:** Fri Jun 15, 2012 7:53 am

You should you functions of the CU 419. There is one that can help you to solve the problem - "Magicpath"

Code: Select all

Magicpath() : Text[1024]
EXIT('<TEMP>');   // MAGIC PATH makes sure we don't get a prompt

The description says it all. Than you can handle with your file as you want (move it/copy it etc.)

clembo · **Posted:** Mon Jun 18, 2012 3:26 pm

koubek, can you write sample?

This is my code:

IF NOT DOWNLOAD(FileName,'','h:','',ToFileName) THEN
ERROR('No');

Where:
Filename (string) = RBMgt.EnvironFileName('','txt');
ToFileName (string) = 'H:\Test.txt'

koubek · **Posted:** Mon Jun 18, 2012 10:57 pm

This is a simple demonstration. Focuse on the function "RunDemo()".

Code: Select all

OBJECT Page 50009 Download File Demo
{
  OBJECT-PROPERTIES
  {
    Date=18/06/12;
    Time=22:53:37;
    Modified=Yes;
    Version List=JVN,FILE,DOWNLOAD;
  }
  PROPERTIES
  {
    CaptionML=ENU=Download File Demo;
    SaveValues=Yes;
    OnOpenPage=BEGIN
                 IF (SrcFileName = '') THEN
                   SrcFileName := 'C:\Temp\MySourceFile.txt';

                 IF (DestFileName = '') THEN
                   DestFileName := 'C:\Temp\MyDestinationFile.txt';
               END;

    ActionList=ACTIONS
    {
      { 1100225000;  ;ActionContainer;
                      CaptionML=ENU=Demo;
                      ActionContainerType=NewDocumentItems }
      { 1100225001;1 ;Action    ;
                      Name=<Action1100225001>;
                      CaptionML=ENU=Run Demo;
                      Promoted=Yes;
                      PromotedIsBig=Yes;
                      PromotedCategory=Process;
                      OnAction=BEGIN
                                 RunDemo;
                               END;
                                }
    }
  }
  CONTROLS
  {
    { 1100225002;;Container;
                CaptionML=ENU=Download Demo Data;
                ContainerType=ContentArea }

    { 1100225005;1;Group  ;
                CaptionML=ENU=File Names;
                GroupType=Group }

    { 1100225003;2;Field  ;
                CaptionML=ENU=Source File;
                SourceExpr=SrcFileName }

    { 1100225004;2;Field  ;
                CaptionML=ENU=Target File;
                SourceExpr=DestFileName }

  }
  CODE
  {
    VAR
      FileMgt@1100225002 : Codeunit 419;
      SrcFileName@1100225000 : Text[1024];
      DestFileName@1100225001 : Text[1024];
      Text001@1100225003 : TextConst 'ENU=You have not define any of parameters!';
      Text002@1100225004 : TextConst 'ENU=The file has been downloaded';
      Text003@1100225005 : TextConst 'ENU=Destionation file already exists! Delete it first!';

    PROCEDURE RunDemo@1100225001();
    VAR
      LocalTempFile@1100225000 : Text[1024];
    BEGIN
      IF (SrcFileName = '') OR (DestFileName = '') THEN
        ERROR(Text001);

      IF (EXISTS(DestFileName)) THEN
        ERROR(Text003);

      LocalTempFile := FileMgt.DownloadTempFile(SrcFileName);
      RENAME(LocalTempFile,DestFileName);

      IF GUIALLOWED THEN
        MESSAGE(Text002);
    END;

    BEGIN
    END.
  }
}

thegunzo · **Posted:** Fri Jun 22, 2012 4:43 pm

Hi Koubek

You will have to use a client base RENAME function. The one in your example is server based.

I use the automation object "'Windows Script Host Object Model'.FileSystemObject"

A codeunit with the automation based filesystem function can be downloaded from my blog http://www.dynamics.is/?p=218

mibuso.com

DOWNLOAD function

Who is online