diff --git a/LSL2/STPROC/OBJ_WO_LOG.txt b/LSL2/STPROC/OBJ_WO_LOG.txt index 41b706e..761f249 100644 --- a/LSL2/STPROC/OBJ_WO_LOG.txt +++ b/LSL2/STPROC/OBJ_WO_LOG.txt @@ -3,6 +3,8 @@ COMPILE FUNCTION obj_WO_Log(Method,Parms) Methods for the Work Order Log (WO_LOG) table 08/16/2004 JCH - Initial Coding + + 02/11/2025 DJM - Added logging to SAPCreate Properties: @@ -74,6 +76,10 @@ LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Sh Headers = 'Logging DTM' : @FM : 'User' : @FM : 'Work Order No' : @FM : 'Calculated Ship Qty' : @FM : 'Stored Ship Qty' objShipQtyLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, COMMA$, Headers, '', False$, False$) +LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Trace Log.csv' +Headers = 'Logging DTM' : @FM : 'User' : @FM : 'ProdOrdNo' : @FM : 'Step' : @FM : 'Errors' +objTraceLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, COMMA$, Headers, '', False$, False$) + LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM IF NOT(ASSIGNED(Method)) THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine' @@ -166,6 +172,14 @@ SAPCreate: WOQty = FileIn<1,7> VendCd = FileIn<1,8> + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'SAPCreate Start.' + LogData<5> = '' + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + * Add Parameter checking here -> problems then log errors and message Cust Service, no problems just the message ErrFields = '' @@ -187,6 +201,20 @@ SAPCreate: ErrValues<1,ErrCnt> = ProdOrdNo END + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'First parameter check.' + If ErrDescs NE '' then + ParsedErrors = ErrDescs + Swap @VM with '|' in ParsedErrors + LogData<5> = ParsedErrors + end else + LogData<5> = '' + end + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + * * * * * * Section added 12/2/2011 JCH for duplicate Prod_Ord_No checking from SAP OPEN 'DICT.WO_LOG' TO WOLogDictVar ELSE @@ -200,13 +228,45 @@ SAPCreate: Btree.Extract(SearchString,'WO_LOG',WOLogDictVar,ExistingWOMatKey,Option,Flag) - IF Get_Status(errCode) THEN RETURN + IF Get_Status(errCode) THEN + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'WO_LOG BTree Extract' + LogData<5> = 'Error in BTree extract. ErrorCode: ' : errCode + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + RETURN + end else + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'WO_LOG BTree Extract' + LogData<5> = '' + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + end IF ExistingWOMatKey NE '' THEN Result = 1 + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'Existing WO_MAT check.' + LogData<5> = 'WO_MAT does not exist.' + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) RETURN ;* 3/12/2013 JCH - END + END else + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'Existing WO_MAT check.' + LogData<5> = '' + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + end * * * * * * * @@ -278,6 +338,20 @@ SAPCreate: ErrValues<1,ErrCnt> = EpiPartNo END + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'Second Parameter check.' + If ErrDescs NE '' then + ParsedErrors = ErrDescs + Swap @VM with '|' in ParsedErrors + LogData<5> = ParsedErrors + end else + LogData<5> = '' + end + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + IF ErrFields NE '' THEN LogNo = NextKey('SAP_LOG') @@ -303,6 +377,20 @@ SAPCreate: Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup obj_Notes('Create',Parms) + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'ErrFields check failure.' + If ErrDescs NE '' then + ParsedErrors = ErrDescs + Swap @VM with '|' in ParsedErrors + LogData<5> = ParsedErrors + end else + LogData<5> = '' + end + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + RETURN END ELSE @@ -311,6 +399,20 @@ SAPCreate: NextWOLogNo = NextKey('WO_LOG') + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'Next WO_LOG key.' + If ErrDescs NE '' then + ParsedErrors = ErrDescs + Swap @VM with '|' in ParsedErrors + LogData<5> = ParsedErrors + end else + LogData<5> = '' + end + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + WOLogRec = '' IF WOQty > 2475 THEN @@ -328,6 +430,19 @@ SAPCreate: WOQty = 2475 ;* Don't throw an error for this just set the qty to 2475 + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'Check for maximum SAP WO Qty.' + If ErrDescs NE '' then + ParsedErrors = ErrDescs + Swap @VM with '|' in ParsedErrors + LogData<5> = ParsedErrors + end else + LogData<5> = '' + end + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) END ;* End of check for maximum SAP WO Qty. This is 99 cassettes @@ -348,6 +463,24 @@ SAPCreate: obj_Tables('WriteRec','WO_LOG':@RM:NextWOLogNo:@RM:@RM:WOLogRec) ;* WO Record created + IF Get_Status(errCode) THEN + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'WO_LOG ' : NextWOLogNo ' Write' + LogData<5> = 'Error writing WO_LOG ' : NextWOLogNo '. ErrorCode: ' : errCode + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + end else + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'WO_LOG ' : NextWOLogNo ' Write' + LogData<5> = '' + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + end + CustType = XLATE('EPI_PART',EpiPartNo,'CUST_TYPE','X')<1,1> Recipients = XLATE('NOTIFICATION','WO_ENTRY',NOTIFICATION_USER_ID$,'X') @@ -367,6 +500,23 @@ SAPCreate: Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup obj_Notes('Create',Parms) + IF Get_Status(errCode) THEN + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'End SAPCreate' + LogData<5> = 'Error creating note. ErrorCode: ' : errCode + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + end else + LogData = '' + LogData<1> = Oconv(Date(), 'D4/') : ' ' : Oconv(Time(), 'MTS') + LogData<2> = @User4 + LogData<3> = ProdOrdNo + LogData<4> = 'End SAPCreate' + LogData<5> = '' + Logging_Services('AppendLog', objTraceLog, LogData, @RM, @FM) + end RETURN @@ -2957,3 +3107,4 @@ SchedReacts: RETURN +