56 lines
1.0 KiB
Plaintext
56 lines
1.0 KiB
Plaintext
COMPILE ROUTINE TEST_OBJ_NOTES(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Notes, Set_Status, ErrMsg
|
|
DECLARE FUNCTION Get_Status, obj_Notes
|
|
|
|
$INSERT NOTIFICATION_EQU
|
|
|
|
|
|
Set_Status(0)
|
|
|
|
debug
|
|
|
|
OrderNo = 50298
|
|
ItemNo = 1
|
|
|
|
|
|
Recipients = 'BRYCE_BARB':@VM:'DAVID_KL'
|
|
SentFrom = 'DAVID_KL'
|
|
Subject = 'Expected Wafers Quantity Change ':OrderNo:'*':ItemNo
|
|
Message = 'Expected Wafer Quantity was changed on this order item.'
|
|
|
|
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message
|
|
obj_Notes('EMail',Parms)
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
END
|
|
|
|
GOTO Bail
|
|
|
|
/*
|
|
Recipients = Parms[1,@RM]
|
|
SentFrom = Parms[COL2()+1,@RM]
|
|
Subject = Parms[COL2()+1,@RM]
|
|
Message = Parms[COL2()+1,@RM]
|
|
AttachWindow = Parms[COL2()+1,@RM]
|
|
AttachKeys = Parms[COL2()+1,@RM]
|
|
SendToGroup = Parms[COL2()+1,@RM]
|
|
*/
|
|
|
|
Parms = 'DAVID_KL':@RM:'TESTING':@RM:'Test Subject':@RM:'Yes the subject is testing'
|
|
obj_Notes('ForwardEMail','')
|
|
|
|
IF Get_Status(errCode) THEN debug
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
RETURN
|
|
|