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

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
LSL2/STPROC/OBJ_SHIPMENT.txt
View File

@ -403,10 +403,10 @@ SAPCreate:
END ELSE
* Queue Shipments for emailing of shipping documents
CustNo = XLATE('WO_LOG',WONo,'CUST_NO','X')
eMailShipFlag = XLATE('COMPANY',CustNo,COMPANY_EMAIL_SHIP_DOC$,'X') ;* Flag to Create *.PDF file and eMail to distribution List in Customer EPI record
AutoDataFlag = XLATE('COMPANY',CustNo,COMPANY_AUTO_SHIP_DOC_FLAG$,'X')
CustNo = XLATE('COC', ShipNo, 'WO_CUST_NO_EX', 'X')
If CustNo EQ '' then CustNo = XLATE('WO_LOG',WONo,'CUST_NO','X')
eMailShipFlag = XLATE('COMPANY',CustNo,COMPANY_EMAIL_SHIP_DOC$,'X') ;* Flag to Create *.PDF file and eMail to distribution List in Customer EPI record
AutoDataFlag = XLATE('COMPANY',CustNo,COMPANY_AUTO_SHIP_DOC_FLAG$,'X')
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Read Cust Data : CustNo : ' : CustNo : ', eMailShipFlag : ' : eMailShipFlag : ', AutoDataFlag : ' : AutoDataFlag, @RM, @FM, '')
IF eMailShipFlag = 1 THEN
eMailShipRec = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
@ -428,7 +428,7 @@ SAPCreate:
If Not(Get_Status(errCode)) then
SendReason = 'Initial Tx (Auto)'
SendDtm = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
SendUser = @UserName
SendUser = @User4
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, '')
@ -515,7 +515,6 @@ SAPCreate:
Recipients = XLATE('NOTIFICATION','SHIP_REC',NOTIFICATION_USER_ID$,'X')
SentFrom = @USER4
If SentFrom EQ '' then SentFrom = @UserName
Subject = 'New Delivery Note Received ':SAPDeliveryNo
Message = 'New Shipments Created.'
AttachWindow = 'SAP_SHIPMENT'
@ -986,7 +985,7 @@ Pick:
* Update Shipment (COC) record with picked info
ShipRec<COC_PICK_DTM$> = ICONV(OCONV(Date(),'D2/'):' ':OCONV(Time(),'MTS'),'DT')
ShipRec<COC_PICK_BY$> = @USERNAME
ShipRec<COC_PICK_BY$> = @USER4
OtParms = FieldStore(OtParms,@RM,4,0,ShipRec) ;* Put record in 4th field of OtParms
obj_Tables('WriteRec',OtParms)
@ -1704,12 +1703,12 @@ SendTechnical:
SendDtm = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
SendUser = @USER4
If SendUser EQ '' then SendUser = @UserName
WorkOrderNo = ShipRec<COC_WO_NO$>
WORec = XLATE('WO_LOG',WorkOrderNo,'','X')
CustNo = Xlate('COC', ShipNo, 'WO_CUST_NO_EX', 'X')
CustNo = WORec<WO_LOG_CUST_NO$>
StandardCOA = Xlate('COMPANY', CustNo, 'STANDARD_COA', 'X')
*Looks at first RDS and sees if it is has any second layer Metrology keys
IsMultiLayer = XLATE('REACT_RUN',RDSNos<1,1>,'MET_KEYS_L2','X')[1,@VM]
@ -1718,7 +1717,7 @@ SendTechnical:
SendErrorMsg = ''
Server = Environment_Services('GetServer')
IF Server EQ 'MESST5202' OR Server EQ 'MESST5201' then Server = 'MESSA005'
IF Server EQ 'MESST5202' OR Server EQ 'MESST5201' then Server = 'MESSA01EC'
LoggingErrMsg = ''
//Default
@ -2135,3 +2134,4 @@ Repost:
RETURN