diff --git a/LSL2/STPROC/OBJ_SAP.txt b/LSL2/STPROC/OBJ_SAP.txt
index b143e1a..5e38579 100644
--- a/LSL2/STPROC/OBJ_SAP.txt
+++ b/LSL2/STPROC/OBJ_SAP.txt
@@ -1093,7 +1093,7 @@ SendRecord:
 
     OSWrite ToSAPScript ON ToSAPScriptName
     StartTime = Time()
-    DELETE Buffer,TxSeqNo ELSE Null
+    
     Stat    = 'VAR'
     
     FTPCommand = "psftp ":FTPUser:"@":FTPServerIP:" -pw ":FTPPassword:" -b ":ToSAPScriptName:" -batch"
@@ -1118,12 +1118,14 @@ SendRecord:
 		Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
 		obj_Notes('Create',Parms)    	
     	Mona_Services('PostStatus', MonaOutboundResource, 'SFTP-Interface-Outbound', 'critical')
+    	ClearFlag = 0
     end else
+    	ClearFlag = 1
     	Mona_Services('PostStatus', MonaOutboundResource, 'SFTP-Interface-Outbound', 'ok')
     end    
     
     StopTime = Time()
-    ClearFlag = 1
+    
     OSDelete DosTable		;* Removes table from C: drive 
 
 RETURN
@@ -1502,3 +1504,4 @@ CheckForErrors:
 
 return 
 
+