diff --git a/LSL2/STPROC/OBJ_SHIPMENT.txt b/LSL2/STPROC/OBJ_SHIPMENT.txt
index 5524803..f1abfb0 100644
--- a/LSL2/STPROC/OBJ_SHIPMENT.txt
+++ b/LSL2/STPROC/OBJ_SHIPMENT.txt
@@ -20,7 +20,7 @@ COMPILE FUNCTION obj_Shipment(Method,Parms)
 Common /OBJ_SHIPMENT/ Debug@
 
 DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, obj_WO_Log, obj_WM_Out, obj_WO_Mat, NextKey, Logging_Services
-DECLARE FUNCTION Export_Coa, Export_Cds, Database_Services, Company_Services, RTI_OS_Directory, Error_Services, SRP_Path
+DECLARE FUNCTION Export_Coa, Export_Cds, Database_Services, Company_Services, RTI_OS_Directory, Error_Services, SRP_Path, RTI_Task_Credentials
 DECLARE FUNCTION Export_IR, Export_Tower_Met, obj_Calendar, Error_Services, Environment_Services, RTI_Task_Submit, RTI_Task_Status, SRP_Encode
 DECLARE SUBROUTINE  Set_Status, Msg, obj_Tables, ErrMsg, obj_WO_Step, obj_WO_Log, obj_RDS, Btree.Extract, Yield, Print_Shipment, Print_Shipment_Dev
 DECLARE SUBROUTINE obj_Vision, obj_WM_Out, obj_Post_Log, obj_WO_Mat, obj_Notes, obj_Post_Log, obj_Export, ErrMsg, obj_WO_Mat_Log, Error_Services
@@ -429,23 +429,26 @@ SAPCreate:
                                 SendReason  = 'Initial Tx (Auto)'
                                 SendDtm 	= ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
                                 SendUser	= @User4
-*                                TaskID      = RTI_Task_Submit('', 'PRINT_SHIPMENT_DEV', ShipNo, ShipRec, 1, True$)
                                 
-                                Print_Shipment_Dev(ShipNo, ShipRec, True$, True$)
+                                Cred        = RTI_Task_Credentials('LSL2', 'LSL22022')
+                                TaskID      = RTI_Task_Submit('', 'PRINT_SHIPMENT_DEV', ShipNo, ShipRec, 1, True$)
                                 
-*                                Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : '      Called PRINT_SHIPMENT_DEV Task. TaskID : ' : TaskID, @RM, @FM, '')
-*                                If TaskID NE 0 then
-*                                    Done         = False$
-*                                    TaskResponse = ''
-*                                    Loop
-*                                        Status      = RTI_Task_Status(TaskID, TaskResponse)
-*                                        If (Status EQ 'COMPLETED') OR (Status EQ 'ERROR') then Done = True$
-*                                    Until Done
-*                                    Repeat
-*                                end else
-*                                    // Track if task id wasn't created at all.
-*                                end
-*                                Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : '      Finished PRINT_SHIPMENT_DEV Task. Status : ' : Status, @RM, @FM, '')
+*                                Print_Shipment_Dev(ShipNo, ShipRec, True$, True$)
+                                
+                                Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : '      Called PRINT_SHIPMENT_DEV Task. TaskID : ' : TaskID, @RM, @FM, '')
+                                If TaskID NE 0 then
+                                    Done         = False$
+                                    TaskResponse = ''
+                                    Loop
+                                        Status      = RTI_Task_Status(TaskID, TaskResponse)
+                                        If (Status EQ 'COMPLETED') OR (Status EQ 'ERROR') then Done = True$
+                                    Until Done
+                                    Repeat
+                                end else
+                                    // Track if task id wasn't created at all.
+                                end
+                                
+                                Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : '      Finished PRINT_SHIPMENT_DEV Task. Status : ' : Status, @RM, @FM, '')
                                 StatusError = Get_Status(errCode)
                                 Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : '      GetStatus PRINT_SHIPMENT_DEV Task. ErrCode : ' : ErrCode, @RM, @FM, '')
                                 If (Index(errCode, 'SHELLEXECUTE', 1)) NE 0 then StatusError = 0