11 lines
2.5 KiB
JSON
11 lines
2.5 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "$insert rds_equ\r\ndeclare function scroll_enable\r\n\r\nData = field( CreateParam, char(245), 1 )\r\nHoldStat = field( CreateParam, char(245), 2 )\r\nControls = 'HOLD_DESC/HOLD_OPERATOR/HOLD_DATE/HOLD_TIME/UNHOLD_OPERATOR/UNHOLD_DATE/UNHOLD_TIME'\r\nControls:= '/UNHOLD_DESC/HOLD_OPERATOR_NAME/UNHOLD_OPERATOR_NAME'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nif Data = 'READONLY' then\r\n * HOLDSTAT WILL BE THE RDS NUMBER AND IS CALLED FROM THE HOLD BUTTON ON THE\r\n * BOTTOM OF THE RDS\r\n Data = ''\r\n RDSRec = xlate( 'RDS', HoldStat, '', 'X' )\r\n Desc = RDSRec<rds_hold_desc$>\r\n swap @tm with char(13):char(10) in Desc\r\n Data<1> = Desc\r\n Data<2> = RDSRec<rds_hold_operator$>\r\n Data<3> = oconv( RDSRec<rds_hold_date$>, 'D2/' )\r\n Data<4> = oconv( RDSRec<rds_hold_time$>, 'MTH' )\r\n Data<5> = RDSRec<rds_unhold_operator$>\r\n Data<6> = oconv( RDSRec<rds_unhold_date$>, 'D2/' )\r\n Data<7> = oconv( RDSRec<rds_unhold_time$>, 'MTH' )\r\n Data<8> = RDSRec<rds_unhold_desc$>\r\n Data<9> = xlate( 'RDS', HoldStat, 'HOLD_OPERATOR_NAME', 'X' )\r\n Data<10> = xlate( 'RDS', HoldStat, 'UNHOLD_OPERATOR_NAME', 'X' )\r\n .hold_desc->enabled = 0\r\n .unhold_desc->enabled = 0\r\n .hold_status->enabled = 0\r\n .save->enabled = 0\r\n Void = scroll_enable() \r\nend else\r\n\tif Data = '' or Data = str( @fm, 7 ) then\r\n\t * NEW ONE\r\n\t Void = set_property( @window, '@Type', 'NEW' )\r\n\t Data<1> = ''\r\n\t Data<2> = @user4\r\n\t Data<3> = oconv( date(), 'D2/' )\r\n\t Data<4> = oconv( time(), 'MTH' )\r\n\t Data<5> = ''\r\n\t Data<6> = ''\r\n\t Data<7> = ''\r\n\t Data<8> = ''\r\n\t Data<9> = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t Data<10> = ''\r\n\t .hold_status->value = 1\r\n\t .hold_status->enabled = 0\r\n\t * PROTECT THE STATUS CAUSE IT HAS NEVER BEEN ON HOLD SO THE ONLY\r\n\t * CHOICE IS TO PUT IT ON HOLD\r\n\tend else\r\n\t Void = set_property( @window, '@Type', 'EDIT' )\r\n\t Data<9> = oconv( Data<2>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t Data<10> = oconv( Data<5>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .hold_status->value = HoldStat\r\n\tend\r\nend\r\nConvert @fm to @rm in Data\r\nvoid = set_property( Controls, 'TEXT', Data )\r\nVoid = set_property( @window, '@Controls', Controls )\r\nRETURN 1"
|
|
}
|
|
}
|
|
} |