added remaining LSL2 entities
This commit is contained in:
Infineon\StieberD
11
LSL2/OIEVENT/OPTIONS/AC_RPT1.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/AC_RPT1.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_FROM.json
Normal file
11
LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_FROM.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function popup_month\r\n\r\nVoid = popup_month(1)\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_THRU.json
Normal file
11
LSL2/OIEVENT/OPTIONS/AC_RPT1.ENTRY_DATE_THRU.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function popup_year\r\n\r\nVoid = popup_year('')\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/AC_SRPT1.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/AC_SRPT1.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_FROM.json
Normal file
11
LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_FROM.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function popup_month\r\n\r\nVoid = popup_month(1)\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_THRU.json
Normal file
11
LSL2/OIEVENT/OPTIONS/AC_SRPT1.ENTRY_DATE_THRU.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function popup_year\r\n\r\nVoid = popup_year('')\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CONTRACT_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CONTRACT_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nAcKeys = dialog_box( 'ANNUAL_CONTRACTS_QUERY', @window, '' )\r\nif AcKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'ANNUAL_CONTRACTS_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, AcKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .contract_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .contract_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CONTRACT_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CUST_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.CUST_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.NAME_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.NAME_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText<micon$> = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.QUOTE_NUM.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS.QUOTE_NUM.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all active keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurQuote = .quote_num->text\r\n\tif CurQuote then\r\n\t if rowexists( 'ANNUAL_CONTRACTS', .contract_no->text ) else\r\n\t Tvar = iconv( CurQuote, '[WIN_QUOTE_NUM_VALID]' )\r\n\t if status() then\r\n\t .quote_num->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current quote\r\n\t if CurQuote then\r\n\t RetVal = start_window( 'QUOTE', @window, CurQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a quote number...' \r\n\t\t MsgInfo<mtext$> = Text\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE', @window, '*Choosing*Annual Contracts', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call quote window with all active\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_QUOTE_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'QUOTE', @window, OpenKeys:'*Choosing*Annual Contracts', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'OPEN_QUOTE_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \tOpenKeys = key_sort( OpenKeys, 'QUOTE', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'SHOW_QUOTES' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .quote_num->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec<mtext$> = 'You must enter a customer first...' \r\n MsgRec<micon$> = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no OPEN quotes for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo<mtext$> = Text\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*"
|
||||
}
|
||||
}
|
||||
}
|
||||
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ANNUAL_CONTRACTS_QUERY.ENTRY_IDS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.ASSIGN_CAUSE_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.ASSIGN_CAUSE_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT ASSIGN_CAUSE BY DESIG_ERR_GRP_DESC BY ASSIGN_CAUSE_DESC'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_ASSIGN_CAUSE' )\r\n OverRide = ''\r\n OverRide<pselect$> = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .assign_cause_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .assign_cause_id->text = RetVals\r\n Void = send_event( @window:'.ASSIGN_CAUSE_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.DESIG_ERR_GRP.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ASSIGN_CAUSE.DESIG_ERR_GRP.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT DESIG_ERR_GRP BY DESIG_DESC', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE.ABSENT_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE.ABSENT_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nATTENDANCEKeys = dialog_box( 'ATTENDANCE_QUERY', @window, '' )\r\nif ATTENDANCEKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'ATTENDANCE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, ATTENDANCEKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .absent_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .absent_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.ABSENT_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE.EMPLOYEE.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE.EMPLOYEE.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' )\r\nreturn 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE.SUPERVISOR.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE.SUPERVISOR.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" BY LAST_FIRST', target_activelist$, '', '', '' )\r\nreturn 1"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.EMPLOYEE_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .employee_info->array\r\n CurRow = .employee_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .employee_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_QUERY.SUPERVISOR_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .supervisor_info->array\r\n CurRow = .supervisor_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .supervisor_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.EMPLOYEE_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .employee_info->array\r\n CurRow = .employee_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .employee_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/ATTENDANCE_SRPT1.SUPERVISOR_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .supervisor_info->array\r\n CurRow = .supervisor_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .supervisor_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.ATTENDED_BY.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.ATTENDED_BY.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nCustNo = .cust_no->text\r\nSelPos = .attended_by->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide<pselect$> = 2\r\nStmt = 'SELECT LSL_USERS WITH ACTIVE = 1 BY LAST_FIRST'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .attended_by->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.attended_by->array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.ATTENDED_BY', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.CALL_VISIT_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.CALL_VISIT_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCVKeys = dialog_box( 'CALL_VISIT_QUERY', @window, '' )\r\nif CVKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CALL_VISIT_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CVKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .call_visit_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .call_visit_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CALL_VISIT_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.CONTACT_IDS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.CONTACT_IDS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, send_event\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nCustNo = .cust_no->text\r\nSelPos = .contact_ids->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'CHOOSE_NAME' )\r\nOverRide = ''\r\nOverRide<pselect$> = 2\r\nStmt = 'SELECT NAMES WITH CO_ID = ':CustNo:' BY LAST_FIRST'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .contact_ids->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.contact_ids->array = CurArray\r\n\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n Void = send_event( @window:'.CONTACT_IDS', 'LOSTFOCUS' )\t\r\n\tVoid = set_property( @window, '@NoTopPos', '' ) \r\nend\r\nRETURN 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.CUST_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT.CUST_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.ATTEND_BY.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.ATTEND_BY.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .attend_by->array\r\n CurRow = .attend_by->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .attend_by->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CONTACT_IDS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CONTACT_IDS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, send_event, msg\r\ndeclare subroutine rlist\r\n$insert popup_equates\r\n$insert rlist_equates\r\n$insert msg_equates\r\n\r\nCustIds = .customer_info->array<1>\r\nswap @vm:@vm with '' in CustIds\r\nif CustIds[-1,1] = @vm then CustIds[-1,1] = ''\r\nif CustIds then\r\n convert @vm to ' ' in CustIds\r\n\tSelPos = .contact_ids->selpos\r\n\tCurRow = SelPos<2>\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'CHOOSE_NAME' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2\r\n\tStmt = 'SELECT NAMES WITH CO_ID = ':CustIds:' BY CO_NAME BY LAST_FIRST'\r\n\trlist( Stmt, target_activelist$, '', '', '' )\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t convert @fm to @vm in Choosen\r\n\t\tCurArray = .contact_ids->array\r\n\t\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t\tCurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,NAMES*LAST_FIRST]') )\r\n\t\t.contact_ids->array = CurArray\r\n\t\tVoid = set_property( @window, '@NoTopPos', 1 )\r\n\t Void = send_event( @window:'.CONTACT_IDS', 'LOSTFOCUS' )\t\r\n\t\tVoid = set_property( @window, '@NoTopPos', '' ) \r\n\tend\r\nend else\r\n MsgInfo = ''\r\n MsgInfo<micon$> = '!'\r\n MsgInfo<mtext$> = 'You must select at least one customer above...'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CALL_VISIT_QUERY.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.CAR_REF_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.CAR_REF_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCarKeys = dialog_box( 'CAR_QUERY', @window, '' )\r\nif CarKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CAR_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CarKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .car_ref_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .car_ref_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CAR_REF_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.CUST_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.CUST_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.FAX.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.FAX.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec<company_phones$>\r\nCustPhoneTypes = CustomerRec<company_phone_types$>\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec<names_phone$>\r\nNamePhoneTypes = NameRec<names_phone_types$>\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide<pdisplay$> = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText<mtext$> = MsgText<mtext$>:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText<micon$> = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.INTL_FAX.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.INTL_FAX.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec<company_intl_phones$>\r\nICustPhoneTypes = CustomerRec<company_intl_phone_types$>\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec<names_intl_phone$>\r\nINamePhoneTypes = NameRec<names_intl_phone_types$>\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide<pdisplay$> = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .intl_fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText<mtext$> = MsgText<mtext$>:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText<micon$> = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.ISSUE_DATE.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.ISSUE_DATE.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n$insert popup_equates\r\nequ QbfOccurred$ to 1126\r\n\r\nCIKeys = dialog_box( 'CUST_INQUIRY_QUERY', @window, '' )\r\nif CIKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CUST_INQUIRY_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CIKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .cust_inquiry_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .cust_inquiry_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.NAME_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.NAME_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText<micon$> = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.PROD_SPEC_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.PROD_SPEC_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurProdSpecID = .prod_spec_id->text\r\n\tif CurProdSpecID then\r\n\t if rowexists( 'CAR', .car_ref_id->text ) else\r\n\t Tvar = iconv( CurProdSpecID, '[WIN_PROD_SPEC_NUM_VALID]' )\r\n\t if status() then\r\n\t .prod_spec_id->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_LOOKUP_OPTS' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current prod spec\r\n\t if CurProdSpecID then\r\n\t RetVal = start_window( 'PROD_SPEC', @window, CurProdSpecID:'*Choosing*CAR*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a product specification number...' \r\n\t\t MsgInfo<mtext$> = Text\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call customer prod spec window\r\n\t\t\tRetVal = start_window( 'PROD_SPEC', @window, '*Choosing*CAR', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call product specification window with all\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\tconvert @vm to @fm in OpenKeys\r\n\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\t\t\r\n\t\t convert @fm to @vm in OpenKeys\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'PROD_SPEC', @window, OpenKeys:'*Choosing*CAR*CENTER', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'PROD_SPEC_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t\t OpenKeys = key_sort( OpenKeys, 'PROD_SPEC', '#ENTRY_DATE', 1 )\t\t\t\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .prod_spec_id->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec<mtext$> = 'You must enter a customer first...' \r\n MsgRec<micon$> = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no Product Specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo<mtext$> = Text\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.QUOTE_NUM.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.QUOTE_NUM.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\t* row three = call window with all active keys for customer\r\n\t* row four = call popup allowing choice\r\n\tCurQuote = .quote_num->text\r\n\tif CurQuote then\r\n\t if rowexists( 'CAR', .car_ref_id->text ) else\r\n\t Tvar = iconv( CurQuote, '[WIN_QUOTE_NUM_VALID]' )\r\n\t if status() then\r\n\t .quote_num->text = ''\r\n\t end\r\n\t end\r\n\tend\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS2' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow = 1 then\r\n\t ;* go view current quote\r\n\t if CurQuote then\r\n\t RetVal = start_window( 'QUOTE', @window, CurQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t MsgInfo = ''\r\n\t\t Text = 'You have not entered a quote number...' \r\n\t\t MsgInfo<mtext$> = Text\r\n\t\t MsgInfo<micon$> = 'H'\r\n\t\t Void = msg( '', MsgInfo )\r\n\t\t return 0\r\n end\r\n end else\r\n if ChoosenRow = 2 then\r\n\t * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE', @window, '*Choosing*CAR', '', '' )\r\n\t\tend else\r\n\t\t if ChoosenRow = 3 then\r\n\t\t * call quote window with all active\r\n\t\t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'QUOTE_KEYS', 'X' )\r\n\t\t\t\tif OpenKeys then\r\n\t\t RetVal = start_window( 'QUOTE', @window, OpenKeys:'*Choosing*CAR', '', '' )\r\n\t\t\t\tend else\r\n\t\t\t\t gosub CustErr\r\n\t\t\t\t return 0\r\n\t\t\t\tend\r\n\t\t\tend else\r\n\t\t\t if ChoosenRow = 4 then\r\n\t\t\t ;* show all open in popup allowing choice\r\n\t\t \t\t\tOpenKeys = xlate( 'COMPANY', CustNo, 'QUOTE_KEYS', 'X' )\r\n\t\t\t\t\tif OpenKeys then\r\n\t\t\t\t\t convert @vm to @fm in OpenKeys\r\n\t\t\t \tOpenKeys = key_sort( OpenKeys, 'QUOTE', '#ENTRY_DATE', 1, '', '' )\r\n\t\t\t \tmake.list( 0, OpenKeys, '', '' )\r\n\t\t \t\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTES_SINGLE' )\r\n\t\t \t \t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\t \t \t\tif ChoosenRow then\r\n\t\t \t \t\t .quote_num->text = ChoosenRow\r\n\t\t end\r\n\t\t \tend else\r\n\t\t\t\t\t gosub CustErr\r\n\t\t\t\t\t return 0\r\n\t\t\t\t\tend\r\n\t\t\t end ;* user canceled\r\n\t\t end\r\n\t end\r\n end \r\nend else\r\n MsgRec = ''\r\n MsgRec<mtext$> = 'You must enter a customer first...' \r\n MsgRec<micon$> = 'H'\r\n Void = msg( '', MsgRec ) \r\nend\r\nRETURN 0\r\n*===========================================================================*\r\nCustErr:\r\n Text = 'There are currently no OPEN quotes for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgInfo = ''\r\n MsgInfo<mtext$> = Text\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nreturn 0\r\n*===========================================================================*"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR.RESP_USER_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR.RESP_USER_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST WITH ACTIVE', target_activelist$, '', '', '' ) \r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide<pselect$> = 1\r\nChoice = repository( 'EXECUTE', PopRec, @window, OverRide ) \r\nif Choice then\r\n .resp_user_id->text = Choice\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR2.WAF_GIVEN_TO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR2.WAF_GIVEN_TO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST WITH ACTIVE', target_activelist$, '', '', '' ) \r\nPopRec = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\nOverRide = ''\r\nOverRide<pselect$> = 1\r\nChoice = repository( 'EXECUTE', PopRec, @window, OverRide ) \r\nif Choice then\r\n .waf_given_to->text = Choice\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR_QUERY.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR_QUERY.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR_QUERY.RESP_PERSON_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR_QUERY.RESP_PERSON_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .resp_person_info->array\r\n CurRow = .resp_person_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .resp_person_info->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR_RPT1.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR_RPT1.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CAR_SRPT1.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CAR_SRPT1.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CDM_LOG.LOG_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CDM_LOG.LOG_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCDMLogKeys = dialog_box( 'CDM_LOG_QUERY', @window, '' )\r\nif CDMLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CDM_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CDMLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CDM_LOG_QUERY.TECHS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CDM_LOG_QUERY.TECHS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COC.COC_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COC.COC_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCOCKeys = dialog_box( 'COC_QUERY', @window, '' )\r\nif COCKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'COC_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, COCKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .coc_no->text = ChoosenKeys<1>\r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .coc_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.COC_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COC_QUERY.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COC_QUERY.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COC_QUERY.ENTRY_IDS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COC_QUERY.ENTRY_IDS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COMPANY.CO_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COMPANY.CO_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCompanyKeys = dialog_box( 'COMPANY_QUERY', @window, '' )\r\nif CompanyKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'COMPANY_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CompanyKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .co_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .co_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CO_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n/*\r\ndeclare subroutine rlist, make.list,forward_event, update_index\r\ndeclare function company_comm, rowexists, send_event, entid\r\ndeclare function repository, fieldcount\r\n$insert rlist_equates\r\n$insert popup_equates\r\n*\r\nrlist( 'SELECT COMPANY BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopRec = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopRec, '', OverRide )\r\n if Choosen then\r\n\t convert @vm to @fm in Choosen\r\n\t if fieldcount( Choosen, @fm ) > 1 then\r\n\t Void = set_property( @window, 'QBFLIST', Choosen )\r\n\t Void = set_property( @window, '@NoRead', 1 )\r\n\t .co_no->text = Choosen<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .co_no->text = Choosen\r\n\t Void = send_event( @window:'.CO_NO', 'LOSTFOCUS' )\r\n\t end\r\n\tend\r\nend\r\n*/\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COMPANY.CREDIT_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COMPANY.CREDIT_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, update_index\r\n$insert rlist_equates\r\n\r\nif .credit_info->selpos<1> = 2 then\r\n rlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' )\r\n return 1\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COMPANY.INTL_PHONES.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COMPANY.INTL_PHONES.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "if .intl_phones->selpos<1> = 2 then\r\n return 1\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COMPANY.PHONES.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COMPANY.PHONES.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "if .phones->selpos<1> = 2 then\r\n return 1\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/COMPANY.SHIPPERINFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/COMPANY.SHIPPERINFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "Selpos = .shipperinfo->selpos\r\nif SelPos<1> = 1 then\r\n * show popup\r\n return 1 \r\nend else\r\n RETURN 0\r\nend"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_ACTIVITY_RPT1.CUST_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_ACTIVITY_RPT1.CUST_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_INQUIRY_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_INQUIRY_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nCIKeys = dialog_box( 'CUST_INQUIRY_QUERY', @window, '' )\r\nif CIKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'CUST_INQUIRY_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, CIKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .cust_inquiry_id->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .cust_inquiry_id->text = ChoosenKeys\r\n\t Void = send_event( @window:'.CUST_INQUIRY_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.CUST_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.FAX.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.FAX.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nCustPhones = CustomerRec<company_phones$>\r\nCustPhoneTypes = CustomerRec<company_phone_types$>\r\nCpCnt = fieldcount( CustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = CustPhoneTypes<1,i>\r\n ThisPhoneNum = CustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nNamePhones = NameRec<names_phone$>\r\nNamePhoneTypes = NameRec<names_phone_types$>\r\nNpCnt = fieldcount( NamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = NamePhoneTypes<1,i>\r\n ThisPhoneNum = NamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide<pdisplay$> = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText<mtext$> = MsgText<mtext$>:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText<micon$> = '!'\r\n Void = msg( '', MsgText )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.INTL_FAX.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.INTL_FAX.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert company_equ\r\n$insert names_equ\r\n$insert msg_equates\r\n$insert popup_equates\r\ndeclare function fieldcount, msg, entid, repository\r\n\r\nCustomerRec = xlate( 'COMPANY', .cust_no->text, '', 'X' )\r\nNameRec = xlate( 'NAMES', .name_no->text, '', 'X' )\r\n\r\n* get the fax numbers for this customer\r\nICustPhones = CustomerRec<company_intl_phones$>\r\nICustPhoneTypes = CustomerRec<company_intl_phone_types$>\r\nCpCnt = fieldcount( ICustPhones, @vm )\r\nExpInfo = ''\r\nfor i = 1 to CpCnt\r\n ThisPhoneType = ICustPhoneTypes<1,i>\r\n ThisPhoneNum = ICustPhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\n\r\n* now get all fax numbers for this contact name\r\nINamePhones = NameRec<names_intl_phone$>\r\nINamePhoneTypes = NameRec<names_intl_phone_types$>\r\nNpCnt = fieldcount( INamePhones, @vm )\r\nfor i = 1 to NpCnt\r\n ThisPhoneType = INamePhoneTypes<1,i>\r\n ThisPhoneNum = INamePhones<1,i>\r\n convert @lower.case to @upper.case in ThisPhoneType\r\n if ThisPhoneType = 'FAX' then\r\n ExpInfo := oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):@svm:ThisPhoneNum:@vm\r\n end\r\nnext i\r\nif ExpInfo then\r\n ExpInfo[-1,1] = ''\r\n PopId = entid( @appid<1>, 'POPUP', '', 'INTL_FAX_NUMBERS' )\r\n OverRide = ''\r\n OverRide<pdisplay$> = ExpInfo\r\n Tresp = repository( 'EXECUTE', PopId, @window, OverRide )\r\n if Tresp <> '' then\r\n .intl_fax->text = Tresp\r\n end\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no international fax numbers defined for ':oconv( .cust_no->text, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgText<mtext$> = MsgText<mtext$>:' or for ':oconv( .name_no->text, '[XLATE_CONV,NAMES*FIRST_LAST]' ):'.'\r\n MsgText<micon$> = '!'\r\n Void = msg( '', MsgText )\r\nend\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.NAME_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.NAME_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "$insert msg_equates\r\ndeclare function msg, key_sort\r\ndeclare subroutine make.list\r\n\r\nCustNo = .cust_no->text\r\nNameKeys = xlate( 'COMPANY', CustNo, 'NAME_KEYS', 'X' )\r\nif NameKeys then\r\n convert @vm to @fm in NameKeys\r\n NameKeys = key_sort( NameKeys, 'NAMES', 'LAST_FIRST', 1, '', '' )\r\n make.list( 0, NameKeys, '', '' )\r\n return 1\r\nend else\r\n MsgText = ''\r\n MsgText<mtext$> = 'There are no names defined for ':oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' ) \r\n MsgText<micon$> = '!'\t\r\n Void = msg( '', MsgText ) \r\n return 0\r\nend\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.PROD_SPEC_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY.PROD_SPEC_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function key_sort, entid, repository, msg, post_event\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nOpenKeys = xlate( 'COMPANY', CustNo, 'ACTIVE_PROD_SPEC_KEYS', 'X' )\r\nif OpenKeys then\r\n\tconvert @vm to @fm in OpenKeys\r\n\tOpenKeys = key_sort( OpenKeys, 'PROD_SPEC', 'CUST_NAME':@fm:'#REV_DATE', 1, '', '' )\r\n\tmake.list( 0, OpenKeys, '', '' )\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_SINGLE' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tif ChoosenRow then\r\n\t\t.prod_spec_id->text = ChoosenRow\r\n\t\t*Void = post_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS' )\r\n\tend\r\nend else\r\n Text = 'There are no product specifications for '\t\t \r\n Text:= oconv( CustNo, '[XLATE_CONV,COMPANY*CO_NAME]' )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = Text\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\nend\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.ENTRY_IDS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/CUST_INQUIRY_QUERY.ENTRY_IDS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .entry_ids->array\r\n CurRow = .entry_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .entry_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.EDL_PART_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.EDL_PART_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.PROD_SPEC_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/DBW_PROD_SPEC_GAN.PROD_SPEC_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/DESIG_ERR_GRP.DESIG_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/DESIG_ERR_GRP.DESIG_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT DESIG_ERR_GRP BY DESIG_DESC'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_DESIG_ERR_GRP' )\r\n OverRide = ''\r\n OverRide<pselect$> = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .desig_id->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .desig_id->text = RetVals\r\n Void = send_event( @window:'.DESIG_ID', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository\r\n$insert popup_equates\r\n\r\nSelPos = .export_info->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\nExpData = get_property( @window, '@Columns' )\r\nOverRide = ''\r\nOverRide<pdisplay$> = ExpData\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .export_info->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.export_info->Array = CurArray\r\nend\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_NAME.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORT3.EXPORT_NAME.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, update_index\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT EXPORTS BY NAME WITH ENTRY_ID = ':quote(@user4), target_activelist$, '', '', '' )\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORT3.NQUERY_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORT3.NQUERY_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .nquery_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@QColumns' )\r\n\tOverRide = ''\r\n\tOverRide<pdisplay$> = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .nquery_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .nquery_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .nquery_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .nquery_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORT3.QUERY_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORT3.QUERY_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .query_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@BtreeColumns' )\r\n\tOverRide = ''\r\n\tOverRide<pdisplay$> = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .query_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .query_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .query_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .query_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository\r\n$insert popup_equates\r\n\r\nSelPos = .export_info->selpos\r\nCurRow = SelPos<2>\r\nPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\nExpData = get_property( @window, '@Columns' )\r\nOverRide = ''\r\nOverRide<pdisplay$> = ExpData\r\nChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\nif Choosen then\r\n convert @fm to @vm in Choosen\r\n\tCurArray = .export_info->array\r\n\tCurArray = delete( CurArray, 1, CurRow, 0 )\r\n\tCurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t.export_info->Array = CurArray\r\nend\r\nreturn 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_NAME.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORTS.EXPORT_NAME.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, update_index\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT EXPORTS BY NAME WITH SHARABLE = 1 OR WITH ENTRY_ID = ':quote(@user4), target_activelist$, '', '', '' )\r\nRETURN 1\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORTS.NQUERY_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORTS.NQUERY_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .nquery_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@QColumns' )\r\n\tOverRide = ''\r\n\tOverRide<pdisplay$> = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .nquery_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .nquery_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .nquery_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .nquery_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/EXPORTS.QUERY_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/EXPORTS.QUERY_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository, dialog_box\r\n$insert popup_equates\r\n\r\nSelPos = .query_info->selpos\r\nCurColumn = SelPos<1>\r\nCurRow = SelPos<2>\r\nif CurColumn = 1 then\r\n\tPopRec = entid( @appid<1>, 'POPUP', '', 'EXPORT_COLUMN' )\r\n\tExpData = get_property( @window, '@BtreeColumns' )\r\n\tOverRide = ''\r\n\tOverRide<pdisplay$> = ExpData\r\n\tChoosen = repository( 'EXECUTE', PopRec, @window, OverRide )\r\n\tif Choosen then\r\n\t\tconvert @fm to @vm in Choosen\r\n\t CurArray = .query_info->array\r\n\t CurArray = delete( CurArray, 1, CurRow, 0 )\r\n\t CurArray = delete( CurArray, 2, CurRow, 0 )\r\n\t CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n\t CurArray = insert( CurArray, 2, CurRow, 0, '' )\r\n\t .query_info->Array = CurArray\r\n\tend\r\nend else\r\n CurArray = .query_info->array\r\n Column = CurArray<1,CurRow>\r\n Filter = CurArray<2,CurRow>\r\n DatToPass = Column:'*':Filter\r\n RetVal = dialog_box( 'EXPORTS2', @window, DatToPass )\r\n if RetVal <> Filter and RetVal <> 'CANCEL' then\r\n CurArray<2,CurRow> = RetVal\r\n .query_info->array = CurArray\r\n end\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/GAN_PROD_SPEC.PROD_SPEC_ID.json
Normal file
11
LSL2/OIEVENT/OPTIONS/GAN_PROD_SPEC.PROD_SPEC_ID.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function getwindow, fieldcount, send_event\r\ndeclare subroutine sendmessage, make.list\r\n\r\n$insert popup_equates\r\n\r\nequ QbfOccurred$ to 1126\r\n\r\nCPSKeys = dialog_box( 'PROD_SPEC_QUERY', @window, '' )\r\n\r\nif CPSKeys then\r\n\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'PROD_SPEC_QUERY' )\r\n\t\r\n\tOverRide = ''\r\n\tmake.list( 0, CPSKeys, '', '' )\r\n\tChosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\t\r\n\tif ChosenKeys then\r\n\t convert @vm to @fm in ChosenKeys\r\n\t \r\n\t if fieldcount( ChosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChosenKeys )\r\n\t\t WndHnd = get_property( @window, 'HANDLE' )\r\n\t\t \r\n\t\t HbBar = getwindow( WndHnd, 5 )\r\n\t\t sendmessage( HbBar, QbfOccurred$, 0, 0 )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .prod_spec_id->text = ChosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .prod_spec_id->text = ChosenKeys\r\n\t Void = send_event( @window:'.PROD_SPEC_ID', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG.LOG_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG.LOG_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nHotH2O2LogKeys = dialog_box( 'HOTH2O2_LOG_QUERY', @window, '' )\r\nif HotH2O2LogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'HOTH2O2_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, HotH2O2LogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG_QUERY.TECHS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/HOTH2O2_LOG_QUERY.TECHS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE.CUST_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE.CUST_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function send_event\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nforward_event()\r\nVoid = send_event( CtrlEntId, 'LOSTFOCUS' )\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_DETAIL.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_DETAIL.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function relational_call, start_window, msg, entid, repository\r\ndeclare function key_sort, send_event, rowexists\r\ndeclare subroutine make.list\r\n$insert logical\r\n$insert msg_equates\r\n$insert quote_equ\r\n\r\nSelpos = .invoice_detail->selpos\r\nColumn = SelPos<1>\r\nRow = SelPos<2>\r\nSelpos = .order_detail->selpos\r\nColData = get_property( @window:'.INVOICE_DETAIL', 'COLDATA' )\r\nbegin case\r\n case Column = 2 ;* quote\r\n Quotes = .invoice_detail->array<2>\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_GOTO_QUOTE' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Quotes<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Quotes\r\n\t end\r\n\t end\r\n\t Void = start_window( 'QUOTE', @window, Keys, '', '' )\r\n end\r\n case Column = 3 ;* schedule\r\n Schedules = .invoice_detail->array<3>\r\n \tPopupId = entid( @appid<1>, 'POPUP', '', 'INVOICE_GOTO_SCHED' )\r\n\t\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenRow then\r\n\t\t\tif ChoosenRow = 1 then ;* view current\r\n\t\t\t Keys = Schedules<1,Row>\r\n\t end else\r\n\t if ChoosenRow = 2 then ;* all\r\n\t Keys = Schedules\r\n\t end\r\n\t end\r\n\t Void = start_window( 'SCHEDULE', @window, Keys, '', '' )\r\n end\r\n case Column = 7 ;* GL Account\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'GL_ACCTS_MESA' ) \r\n\t ChoosenAcct = repository( 'EXECUTE', PopupId, @window, '' )\r\n\t\tif ChoosenAcct then\r\n\t\t ColData<1,Row> = ChoosenAcct\r\n\t\t .invoice_detail->coldata = ColData\r\n end\r\n case Otherwise$\r\nend case\r\nRETURN 0\r\n\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE.INVOICE_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nInvoiceKeys = dialog_box( 'INVOICE_QUERY', @window, '' )\r\nif InvoiceKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'INVOICE_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, InvoiceKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .invoice_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .invoice_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.INVOICE_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_QUERY.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_QUERY.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT1.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT1.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT3.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT3.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT4.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT4.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT5.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT5.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT6.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_RPT6.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRL_QUERY.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT1.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT1.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT3.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT3.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT4.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT4.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT5.CUSTOMER_INFO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/INVOICE_SRPT5.CUSTOMER_INFO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine update_index, rlist, forward_event\r\ndeclare function entid, repository\r\n$insert rlist_equates\r\n\r\nrlist( 'SELECT COMPANY WITH CO_TYPE = \"C\" BY CO_NAME', target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopId = entid( @appid<1>, 'POPUP', '', 'COMPANY' )\r\n Choosen = repository( 'EXECUTE', PopId, @window, '' )\r\n CurArray = .customer_info->array\r\n CurRow = .customer_info->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choosen )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choosen, '[XLATE_CONV,COMPANY*CO_NAME]') )\r\n .customer_info->Array = CurArray\r\nend\r\nreturn 0\r\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/LISTBOX_CONFIG.ITEM.json
Normal file
11
LSL2/OIEVENT/OPTIONS/LISTBOX_CONFIG.ITEM.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n$insert rlist_equates\r\n\r\nPopId = entid( @appid<1>, 'POPUP', '', 'LISTBOX_CONFIG' )\r\nOverRide = ''\r\nrlist( 'SELECT LISTBOX_CONFIG BY ITEM', target_activelist$, '', '', '' )\r\nChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\nif ChoosenKeys then\r\n convert @vm to @fm in ChoosenKeys\r\n if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .item->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .item->text = ChoosenKeys\r\n\t Void = send_event( @window:'.ITEM', 'LOSTFOCUS', '' )\r\n end\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/LOSS_CODES.LOSS_CODE.json
Normal file
11
LSL2/OIEVENT/OPTIONS/LOSS_CODES.LOSS_CODE.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nStmt = 'SELECT LOSS_CODES BY CODE'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_LOSS_CODES' )\r\n OverRide = ''\r\n OverRide<pselect$> = 2\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, OverRide )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 ) \r\n .loss_code->text = RetVals<1> \r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .loss_code->text = RetVals\r\n Void = send_event( @window:'.LOSS_CODE', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend \r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/LSL_USERS.TABLESECURITY.json
Normal file
11
LSL2/OIEVENT/OPTIONS/LSL_USERS.TABLESECURITY.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function entid, repository\r\n\r\nif .tablesecurity->selpos<1> = 1 then\r\n return 1\r\nend else\r\n CurRow = .tablesecurity->rowdata\r\n PopupId = entid( @appid<1>, 'POPUP', '', 'SECURITY_RIGHTS' )\r\n RetVal = repository( 'EXECUTE', PopupId, @window, '' )\r\n if RetVal then\r\n convert @vm to '' in RetVal\r\n CurRow<2> = RetVal\r\n .tablesecurity->rowdata = CurRow\r\n end\r\n return 0\r\nend"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/LSL_USERS_RPT1.USERS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/LSL_USERS_RPT1.USERS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, popup, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .users->array\r\n CurRow = .users->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .users->Array = CurArray\r\n Void = send_event( CtrlEntId, 'LOSTFOCUS', '' )\r\n Void = post_event( @window:'.EXPAND', 'GOTFOCUS', '' )\r\n Void = set_property( @window:'.EXPAND', 'FOCUS', 1 )\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG.LOG_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG.LOG_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nMasDiskLogKeys = dialog_box( 'MASTER_DISK_LOG_QUERY', @window, '' )\r\nif MasDiskLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'MASTER_DISK_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, MasDiskLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG_QUERY.TECHS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/MASTER_DISK_LOG_QUERY.TECHS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"ENGINEERING\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/MEG_LOG.LOG_NO.json
Normal file
11
LSL2/OIEVENT/OPTIONS/MEG_LOG.LOG_NO.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare function dialog_box, entid, repository, set_property, get_property\r\ndeclare function fieldcount, send_event\r\ndeclare subroutine make.list\r\n$insert popup_equates\r\n\r\nMegLogKeys = dialog_box( 'MEG_LOG_QUERY', @window, '' )\r\nif MegLogKeys then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'MEG_LOG_QUERY' )\r\n\tOverRide = ''\r\n\tmake.list( 0, MegLogKeys, '', '' )\r\n\tChoosenKeys = repository( \"EXECUTE\", PopId, @window, OverRide ) \r\n\tif ChoosenKeys then\r\n\t convert @vm to @fm in ChoosenKeys\r\n\t if fieldcount( ChoosenKeys, @fm ) > 1 then\r\n\t\t Void = set_property( @window, 'QBFLIST', ChoosenKeys )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .log_no->text = ChoosenKeys<1> \r\n\t Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n\t end else\r\n\t .log_no->text = ChoosenKeys\r\n\t Void = send_event( @window:'.LOG_NO', 'LOSTFOCUS', '' )\r\n\t end\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/MEG_LOG_QUERY.TECHS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/MEG_LOG_QUERY.TECHS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE AND WITH GROUPS CONTAINING \"SUPERVISOR\" \"DATA_ENTRY\" BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .techs->array\r\n CurRow = .techs->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .techs->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/MSG_GROUPS.GROUP_NAME.json
Normal file
11
LSL2/OIEVENT/OPTIONS/MSG_GROUPS.GROUP_NAME.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist \r\ndeclare function entid, repository, set_property, get_property, fieldcount\r\ndeclare function send_event, msg\r\n$insert rlist_equates\r\n$insert popup_equates\r\n$insert msg_equates\r\n\r\n*Stmt selects from MSG_Groups table the group_names & restricts viewing to the username that matches the entry_id\r\nStmt = 'SELECT MSG_GROUPS WITH ENTRY_ID = ':quote( @user4 ):' BY GROUP_NAME'\r\nrlist( Stmt, target_activelist$, '', '', '' )\r\n\r\nif @reccount then\r\n PopupRec = entid( @appid<1>, 'POPUP', '', 'SHOW_GROUP_NAMES' )\r\n RetVals = repository( 'EXECUTE', PopupRec, @window, '' )\r\n if RetVals then\r\n convert @vm to @fm in RetVals\r\n if fieldcount( RetVals, @fm ) > 1 then\r\n Void = set_property( @window, 'QBFLIST', RetVals )\r\n Void = set_property( @window, '@NoRead', 1 )\r\n .group_name->text = RetVals<1>\r\n Void = send_event( @window, 'READ' )\r\n\t Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n .group_name->text = RetVals\r\n Void = send_event( @window:'.GROUP_NAME', 'LOSTFOCUS', '' )\r\n end\r\n end\r\nend else\r\n MsgRec = ''\r\n MsgRec<mtext$> = 'You do not have any group names...'\r\n MsgRec<micon$> = '!' \r\n Void = msg( '', MsgRec )\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/MSG_GROUPS.USER_IDS.json
Normal file
11
LSL2/OIEVENT/OPTIONS/MSG_GROUPS.USER_IDS.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "declare subroutine rlist\r\ndeclare function entid, repository, msg, send_event, post_event\r\n$insert rlist_equates\r\n$insert popup_equates\r\n\r\nrlist( 'SELECT LSL_USERS WITH ACTIVE = 1 BY LAST_FIRST', target_activelist$, '', '', '' ) \r\nif @reccount then\r\n\tPopId = entid( @appid<1>, 'POPUP', '', 'SHOW_USERS' )\r\n\tOverRide = ''\r\n\tOverRide<pselect$> = 2 ;* allow multiple\r\n\tChoice = repository( 'EXECUTE', PopId, @window, OverRide )\r\n\tif Choice then\r\n\t CurArray = .user_ids->array\r\n CurRow = .user_ids->selpos<2>\r\n CurArray = delete( CurArray, 1, CurRow, 0 )\r\n CurArray = delete( CurArray, 2, CurRow, 0 )\r\n CurArray = insert( CurArray, 1, CurRow, 0, Choice )\r\n CurArray = insert( CurArray, 2, CurRow, 0, oconv( Choice, '[XLATE_CONV,LSL_USERS*FIRST_LAST]') )\r\n .user_ids->Array = CurArray\r\n\tend\r\nend\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
11
LSL2/OIEVENT/OPTIONS/NAMES.INTL_PHONES.json
Normal file
11
LSL2/OIEVENT/OPTIONS/NAMES.INTL_PHONES.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "if .intl_phones->selpos<1> = 2 then\r\n return 1\r\nend else\r\n RETURN 0\r\nend"
|
||||
}
|
||||
}
|
||||
}
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user