phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merged PR 10636: Added logging to SAPCreate aid in resolving bug 217110.

Browse Source 
Added logging to SAPCreate aid in resolving bug
 217110.
This commit is contained in:
Mitchem Dakota (CSC FI SPS MESLEO External) 2025-02-11 21:28:52 +01:00
parent 8e66fb16ee
commit 76915aff9a
1 changed files with 153 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

155
LSL2/STPROC/OBJ_WO_LOG.txt
View File

@ -3,6 +3,8 @@ COMPILE FUNCTION obj_WO_Log(Method,Parms)
Methods for the Work Order Log (WO_LOG) table Methods for the Work Order Log (WO_LOG) table
08/16/2004 JCH - Initial Coding 08/16/2004 JCH - Initial Coding
02/11/2025 DJM - Added logging to SAPCreate
Properties: 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' 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$) 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 LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
IF NOT(ASSIGNED(Method)) THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine' IF NOT(ASSIGNED(Method)) THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
@ -166,6 +172,14 @@ SAPCreate:
WOQty = FileIn<1,7> WOQty = FileIn<1,7>
VendCd = FileIn<1,8> 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 * Add Parameter checking here -> problems then log errors and message Cust Service, no problems just the message
ErrFields = '' ErrFields = ''
@ -187,6 +201,20 @@ SAPCreate:
ErrValues<1,ErrCnt> = ProdOrdNo ErrValues<1,ErrCnt> = ProdOrdNo
END 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 * * * * * * Section added 12/2/2011 JCH for duplicate Prod_Ord_No checking from SAP
OPEN 'DICT.WO_LOG' TO WOLogDictVar ELSE OPEN 'DICT.WO_LOG' TO WOLogDictVar ELSE
@ -200,13 +228,45 @@ SAPCreate:
Btree.Extract(SearchString,'WO_LOG',WOLogDictVar,ExistingWOMatKey,Option,Flag) 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 IF ExistingWOMatKey NE '' THEN
Result = 1 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 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 ErrValues<1,ErrCnt> = EpiPartNo
END 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 IF ErrFields NE '' THEN
LogNo = NextKey('SAP_LOG') LogNo = NextKey('SAP_LOG')
@ -303,6 +377,20 @@ SAPCreate:
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms) 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 RETURN
END ELSE END ELSE
@ -311,6 +399,20 @@ SAPCreate:
NextWOLogNo = NextKey('WO_LOG') 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 = '' WOLogRec = ''
IF WOQty > 2475 THEN IF WOQty > 2475 THEN
@ -328,6 +430,19 @@ SAPCreate:
WOQty = 2475 ;* Don't throw an error for this just set the qty to 2475 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 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 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> CustType = XLATE('EPI_PART',EpiPartNo,'CUST_TYPE','X')<1,1>
Recipients = XLATE('NOTIFICATION','WO_ENTRY',NOTIFICATION_USER_ID$,'X') 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 Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms) 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 RETURN
@ -2957,3 +3107,4 @@ SchedReacts:
RETURN RETURN