11 lines
645 B
JSON
11 lines
645 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "DECLARE Subroutine Send_Message\r\n\r\n\r\nCurrList = .TW_INFO->LIST\t\t;* Get data list from control\r\nCurrPos = .TW_INFO->SELPOS\t\t;* Current position\r\n\r\nCurrRow = CurrPos<2>\r\n\r\nCurrLine = CurrList<CurrRow>\t;* This is the line to clone\r\n\r\nLineNo = 1\r\nLOOP\r\n\tFirstColData = CurrList<LineNo,1>\r\nWHILE FirstColData NE ''\r\n\tLineNo += 1\r\nREPEAT\r\n\r\n\r\nIF LineNo > 1 THEN\r\n\tSend_Message(@WINDOW:'.TW_INFO','INSERT',LineNo,CurrLine)\r\nEND\r\n\r\n\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |