Run XMLPort import without manual file selection

Supremenerd88

Hi,

i need your help. My customer need to schedule ad XMLport to import a file downloaded from remote FTP server. At the moment i've a page whit an action. This action download the remote file and run the XMLport without request page:

// I.20160303
L_RSetup.GET();
L_RSetup.TESTFIELD("FTP Code");

L_RFTPSetup.RESET();
L_RFTPSetup.SETRANGE("Function code", L_RSetupViridex."FTP Code");
IF L_RFTPSetup.FINDFIRST() THEN BEGIN
  // L_RFTPSetup.Elaborate: performe remote file download
  L_RFTPSetup.Elaborate('');
  // i'm setting XML path and file name
  L_XImport.FILENAME := L_RFTPSetup."Local path" + 'import.csv';
  L_XImport.RUN();
  // this instruction was a test...
  //XMLPORT.RUN(XMLPORT::"Remote Credit Limit Import",FALSE,TRUE,Rec);
  CurrPage.UPDATE();
END;
// F.20160303

When i perform this action FTP download work fine but XMLport ask me to select file to import.



I suppose that i cannot schedule this code in a codeunit, so how can skip file selection and perform direct imput?

Thanks a lot.

Supremenerd88

Solved:

// I.20160303
L_RSetup.GET();
L_RSetup.TESTFIELD("FTP Code");

L_RFTPSetup.RESET();
L_RFTPSetup.SETRANGE("Function code", L_RSetupViridex."FTP Code");
IF L_RFTPSetup.FINDFIRST() THEN BEGIN
  // L_RFTPSetup.Elaborate: performe remote file download
  L_RFTPSetup.Elaborate('');
  L_GImportFile.OPEN(L_RFTPSetup."Local path" + 'import.csv');
  L_GImportFile.CREATEINSTREAM(L_GStream);
  XMLPORT.IMPORT(XMLPORT::"Remote Credit Limit Import",L_GStream);
  L_GImportFile.CLOSE();
  CurrPage.UPDATE();
END;
// F.20160303

Supremenerd88

Solved:

// I.20160303
L_RSetup.GET();
L_RSetup.TESTFIELD("FTP Code");

L_RFTPSetup.RESET();
L_RFTPSetup.SETRANGE("Function code", L_RSetupViridex."FTP Code");
IF L_RFTPSetup.FINDFIRST() THEN BEGIN
  // L_RFTPSetup.Elaborate: performe remote file download
  L_RFTPSetup.Elaborate('');
  L_GImportFile.OPEN(L_RFTPSetup."Local path" + 'import.csv');
  L_GImportFile.CREATEINSTREAM(L_GStream);
  XMLPORT.IMPORT(XMLPORT::"Remote Credit Limit Import",L_GStream);
  L_GImportFile.CLOSE();
  CurrPage.UPDATE();
END;
// F.20160303