Hi Suresh sir , I have used copy function as follows but giving error on erasing the file
codeunit 1 main
//++++++++50000 Client Master Upload SB
XmlportCMU50000.SetSourceType(SourceTypeGlobal);
XmlportCMU50000.GetFileName(Filepath);
FileName:=XmlportCMU50000.GetInterfaceFileName;
SetErrorFileName(FileName);
varXmlFile.OPEN(Filepath);
varXmlFile.CREATEINSTREAM(varInputStream);
XmlportCMU50000.SETSOURCE(varInputStream);
XmlportCMU50000.IMPORT;
varXmlFile.CLOSE;
SetMoveFileName(FileName,1);
//-------
SetErrorFileName(ErrorFile : Text)
ErrorFileName:=FileName;
GetErrorFileName() : Text
EXIT(ErrorFileName);
GetMoveFileName(VAR SuccessFile : ARRAY [6] OF Text)
COPYARRAY(SuccessFile,CollectmoveFileName,1);
SetMoveFileName(ColleectArryname : Text;i : Integer)
CollectmoveFileName[i] := ColleectArryname;
GetOpenFile(VAR FileVar : File)
FileVar := varXmlFile;
LOCAL GetFile(VAR VarFile : File)
VarFile := varXmlFile;
codeunit 2
IF NOT codeunit50010.RUN THEN
BEGIN
//=======================moving error to error log table if unsuccessful import
RecErrorLog.INIT;
RecErrorLog."No.":= Srno;
RecErrorLog."Error Message":= GETLASTERRORTEXT;
//RecErrorLog."Source Type" :=
RecErrorLog.Date := TODAY;
RecErrorLog.Time :=TIME;
RecErrorLog."File Name":=codeunit50010.GetErrorFileName;
RecErrorLog.INSERT;
//=======================moving file to error Folder if unsuccessful import
IF RecErrorLog."File Name" <> '' THEN BEGIN
FILE.COPY('D:\INTERFACE FILES\UAT\CLIENTS\PRIMARY\'+RecErrorLog."File Name"+'.txt','D:\INTERFACE FILES\UAT\CLIENTS\ERROR\'+RecErrorLog."File Name"+'.txt');
FileName := 'D:\INTERFACE FILES\UAT\CLIENTS\PRIMARY\'+RecErrorLog."File Name"+'.txt';
IF EXISTS(FileName) THEN
IF FileVar.OPEN(FileName) THEN
FileVar.CLOSE;
// codeunit50010.GetOpenFile(FileVar);
// FileVar.CLOSE;
FILE.ERASE('D:\INTERFACE FILES\UAT\CLIENTS\PRIMARY\'+RecErrorLog."File Name"+'.txt');///////////////// I/O exception
END;
Srno :=Srno+1;
MESSAGE('Runner codeunit Run Successfully');
END
