11 lines
1.2 KiB
JSON
11 lines
1.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function rowexists\r\ndeclare subroutine create_note\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'CUST_INQUIRY', .cust_inquiry_id->text ) else\r\n .entry_id->text = @user4\r\n * send a message to prod/eng group\r\n Subject = 'New Customer Inquiry'\r\n Note = 'Customer Inquiry was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n * XLATE ENGINEERING PEOPLE\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', InqEngSigners$, 'X' )\r\n create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nOrigEngSig = get_property( @window, '@OrigEngSig' ) \r\nCurEngSig = .eng_signature->text\r\nif OrigEngSig = '' and ( CurEngSig <> '' ) then\r\n * send a message back to marketing group\r\n Subject = 'Customer Inquiry Signed'\r\n Note = 'Customer Inquiry was signed by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n * XLATE MARKETING PEOPLE\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', InqMktSigners$, 'X' )\r\n create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nreturn 1"
|
|
}
|
|
}
|
|
} |