11 lines
2.1 KiB
JSON
11 lines
2.1 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "$INSERT NOTES_EQU\r\n\r\nDECLARE FUNCTION Send_Event, Post_Event, Get_Property, Set_Property\r\n\r\nequ CRLF$ TO CHAR(13):CHAR(10)\r\n\r\n\r\nMessage = Get_Property(@WINDOW:'.MESSAGE_INTERNAL','TEXT')\r\nSubject = Get_Property(@WINDOW:'.SUBJECT','TEXT')\r\n\r\nMessage = CRLF$:CRLF$:'>>>>':CRLF$:Message:CRLF$:'<<<<'\r\n\r\n\r\nFromID = Get_Property(@WINDOW:'.FROM_INTERNAL','DEFPROP')\r\n\r\nEntryID = @RECORD<NOTES_ENTRY_ID$>\r\n\r\nSendToInternal = Get_Property(@WINDOW:'.SEND_TO_INTERNAL','ARRAY')\r\n\r\nLOCATE EntryId IN SendToInternal<1> USING @VM SETTING FPos ELSE\r\n SendToInternal = EntryID:@VM:SendToInternal\r\nEND\r\n\r\nLOCATE @USER4 IN SendToInternal<1> USING @VM SETTING FPos2 THEN\r\n SendToInternal = Delete( SendToInternal, 1, FPos2, 0 )\r\nEND\r\n\r\nvoid = Set_Property( @WINDOW, '@SendTo', SendToInternal )\r\n*void = Set_Property( @WINDOW, '@SendTo', FromID )\t\t\t;* Reply function should be just to the sender\r\nvoid = Set_Property( @WINDOW, '@Subject', Subject )\r\nvoid = Set_Property( @WINDOW, '@Message', Message )\r\n\r\nAttachInfo = Get_Property(@WINDOW:'.ATTACH_INFO','ARRAY')\r\nAttachWin = AttachInfo<1,1>\r\nAttachKeys = AttachInfo<2>\r\n\r\nVoid = Set_Property( @WINDOW, '@AttachWin', AttachWin )\r\nVoid = Set_Property( @WINDOW, '@AttachKeys', AttachKeys )\r\n\r\n@@WINDOW->savewarn = 0\r\n\r\nvoid = Send_Event( @WINDOW, 'CLEAR', 0, 1, 1, '' )\r\n\r\nIoOptions = Get_Property( @WINDOW, 'IOOPTIONS' )\r\n\r\nIoOptions<2> = 0 ;* do the lock creating a new reply\r\n\r\nvoid = Set_Property( @WINDOW, 'IOOPTIONS', IoOptions )\r\n\r\nvoid = Post_Event( @WINDOW:'.SEQ', 'GOTFOCUS', '' )\r\n\r\nvoid = Set_Property( @WINDOW:'.SEQ', 'FOCUS', 1 )\r\n\r\nvoid = Set_Property(@WINDOW:'.SAVE_SEND','ENABLED',1)\r\nvoid = Set_Property(@WINDOW:'.REPLY_BUTTON','ENABLED',0)\r\n\r\nvoid = Set_Property(@WINDOW:'.MENU.FILE.SAVE_ROW','ENABLED',1)\r\n\r\nVoid = Set_Property(@WINDOW:'.MESSAGE_INTERNAL', \"FOCUS\", 1)\r\n\r\nRETURN 0\r\n"
|
|
}
|
|
}
|
|
} |