function AfterReport return boolean is

Cursor C1
Is
Select 	AgentCode,AGentName,Transdate,
				Docref,Description,CurrencyCode,
				DebitAmount,CreditAmount,
				Amount,CummulativeAmount,
				FromDate,REMARKS
From Temp_FGACC033
Order By CurrencyCode, Transdate;				
				
Lvfile Text_IO.File_Type;
LvServerPath	Varchar2(20) := 'E:\Tmp\';
LvFileName		Varchar2(30);
LvServerFileName		Varchar2(30);
LvFileExtension		VarChar2(100);

begin
	LvFileName	:=	'E:\FGACC033-'||'-'||To_Date(Sysdate,'dd-mm-yyyy hh24miss')||'.TXT';
	LvServerFileName	:=	'FGACC033-'||'-'||To_Date(Sysdate,'dd-mm-yyyy hh24miss')||'.TXT';
  Lvfile := Text_IO.FOpen('E:\Tmp\FGACC033-'||'-'||To_Date(Sysdate,'dd-mm-yyyy hh24miss')||'.TXT','w');
  Text_IO.Put_Line(Lvfile,'AGENTCODE,AGENTNAME,TRANSDATE,DOCREF,DESCRIPTION,CurrencyCode,DEBITAMOUNT,CREDITAMOUNT,AMOUNT,CUMMULATIVEAMOUNT');

  For C1Rec In C1
  Loop
		Text_IO.Put_Line(LvFile,C1Rec.AgentCode||','||C1Rec.AGentName||','||C1Rec.TransDate||','||C1Rec.DocRef||','||C1Rec.Description||','||C1Rec.CurrencyCode||','||C1Rec.DebitAmount||','||C1Rec.CreditAmount||','||C1Rec.Amount||','||C1Rec.CummulativeAmount);
  End Loop;
  /*Lvfile := Text_IO.FOpen('E:\FGACC033-'||'-'||To_Date(Sysdate,'dd-mm-yyyy hh24miss')||'.TXT','w');
  Text_IO.Put_Line(Lvfile,'AGENTCODE	AGENTNAME	TRANSDATE	DOCREF	DESCRIPTION	CurrencyCode	DEBITAMOUNT	CREDITAMOUNT	AMOUNT	CUMMULATIVEAMOUNT');

  For C1Rec In C1
  Loop
		Text_IO.Put_Line(LvFile,C1Rec.AgentCode||'	'||C1Rec.AGentName||'	'||C1Rec.TransDate||'	'||C1Rec.DocRef||'	'||C1Rec.Description||'	'||C1Rec.CurrencyCode||'	'||C1Rec.DebitAmount||'	'||C1Rec.CreditAmount||'	'||C1Rec.Amount||'	'||C1Rec.CummulativeAmount);
  End Loop;*/

	Text_IO.FClose(LvFile);
		Srw.Message(1,'File Name  -------->'||LvFileName);
		Srw.Message(2,'server path  -------->'||LvServerPath);
			Srw.Message(1,'server File Name  -------->'||LvServerFileName);
		Srw.Message(3,'File Extension  -------->'||LvFileExtension);
		Begin
			If WebUtil_File_Transfer.AS_to_Client(
    									LvFileName,															-- Client Machine path/file
    									LvServerPath||LvServerFileName				-- Server Machine path/file
    									) Then
					If Upper(LvFileExtension) In ('PDF','HTM','HTML','TXT') Then
    				--Host('Del '||LvServerPath||LvFileName);
    				Null;
    			End If;
    			Srw.Message(10,'Download successfull......');
    		Else
    			Srw.Message(11,'Download Not successfull......');
    		End If;
    		Exception
    			When Others Then
    				Srw.Message(1,'Error while downloading the file....'||SqlErrm);
    		End;		
 --  	WEBUTIL_HOST.Host('xcopy \\BKICAPP11\Tmp\FGACC033--10-10-2016.txt \\pcho-266\Tmp'); 		
  return (TRUE);
end;