11 lines
5.3 KiB
JSON
11 lines
5.3 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event, security_err_msg, Comm_RDS\r\ndeclare function company_comm, msg, security_check, post_event, rowexists\r\ndeclare function fieldcount, scroll_enable, rds_comm, rds_comm2\r\n$insert logical\r\n$insert security_rights_equ\r\n$insert rds_equ\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n\r\nNewRecord = false$\r\nRdsNo = .rds_no->text\r\nif RdsNo[1,2] = '1T' then\r\n\t.rds_no->text = RdsNo[3,99]\r\n\tRdsNo = .rds_no->text\r\nend\r\n*if rowexists( 'RDS', .rds_no->text ) then\r\nif rowexists( 'RDS', RdsNo ) then\r\n ReadOk = true$\r\nend else\r\n * user is trying to add new don't allow ( only create via schedule )\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'Load - You can only create run data sheets from schedule.'\r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\t \r\n ReadOk = false$\r\n .rds_no->text = ''\r\n Void = post_event( CtrlEntId, 'CLEAR', False$, True$ )\r\nend\r\nif ReadOk then\r\n if get_property( @window, '@NoRead' ) then\r\n Void = set_property( @window, '@NoRead', 0 )\r\n end else\r\n * no qbf active do the read\r\n * if it is active the read already took place\r\n forward_event()\r\n end\r\n if .wo_verify->check then\r\n .wo_verify_view->visible = true$\r\n CallVerification = get_property( @window, '@CALLVERIFICATION' )\r\n if CallVerification then\r\n Void = post_event( @window:'.WO_VERIFY_VIEW', 'CLICK' )\r\n end\r\n end else\r\n .wo_verify_view->visible = false$\r\n end\r\n \r\n \r\n ************************\r\n LayerInfo = .layer_info->text\r\n \r\n RdsNo = .rds_no->text\r\n TMod = .mod_info->array\r\n InMod = Tmod<1>\r\n TMod<2> = oconv( InMod, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n .mod_info->array = TMod\r\n \r\n DisFields = 'LOT_NUM/QUOTE_NO/CUST_INFO/STATUS/PO_WO_PARTNUM/LOT_NUM_VERIFY/PSN/WO_VERIFY/'\r\n DisFields:= 'REACTOR/RUN_ORDER_NUM/OP_IN/OP_IN_NAME/OP_IN_DATE/OP_IN_TIME/FIRST_WAF_BUTTON/'\r\n DisFields:= 'FW_SIG/FW_SIG_NAME/FW_SIG_DATE/FW_SIG_TIME'\r\n swap '/' with @rm:@window:'.' in DisFields\r\n DisFields = @window:'.':DisFields\r\n EpiOvrControls = get_property( @window, '@EpiOvrControls' ) \r\n DisFields := @rm:EpiOvrControls\r\n void = set_property( DisFields, 'ENABLED', 0 )\r\n \r\n if @record<rds_res_units$> = 'ê/Ü' then\r\n * ohms squared use sheetrho for label and calculations\r\n .thick_resrho_label->text = 'Thickness:SheetRHO:' \r\n end else\r\n .thick_resrho_label->text = 'Thickness:Resistivity:' \r\n end\r\n \r\n RecipeInfo = .recipe_info->array \r\n Void = set_property( @window, '@OrigRecipeInfo', RecipeInfo )\r\n \r\n * IF THE FREQUENCY FOR THICKNESS AND RESISTIVITY ARE BOTH 1 THEN DISABLE THE SEND_DATA BUTTON\r\n \r\n PSNID = .PSN->text\r\n \r\n if NewRecord else\r\n\t if security_check( 'RDS', Edit$ ) then\r\n\t .maint_button->visible = ( xlate( 'RDS', .rds_no->text, 'REACTOR_LOG_KEYS', 'X' ) <> '' )\r\n\t end else\r\n\t * protect all fields\r\n\t AllControls = utility( 'OBJECTLIST', @window, '' )\r\n\t Acnt = fieldcount( AllControls, @fm ) \r\n\t for i = 1 to Acnt \r\n\t ThisControl = AllControls<i>\r\n\t if ThisControl[-6,6] = '_LABEL' or index( ThisControl, 'MENU', 1 ) or index( ThisControl, 'TEXT', 1 ) else\r\n\t void = set_property( ThisControl, 'ENABLED', 0 )\r\n\t end \r\n\t next i \r\n Void = scroll_enable()\t \t \r\n\t end\r\n end\r\n Comm_RDS('FirstRead')\r\n \r\n Void = rds_comm( \"READ_STORE\" ) \r\n Void = rds_comm2( \"HOLD_CHECK\" ) \r\n Void = rds_comm2( \"SUPPL_CHECK\" )\r\n gosub LoadExSigInfo \r\nend\r\nreturn 0 \r\n****************************************************************************************************************************\r\nLoadExSigInfo:\r\n RDSRec = xlate( 'RDS', .rds_no->text, '', 'X' )\r\n ExSigInfo = ''\r\n ExSigInfo<1> = RDSRec<rds_op_out_ex1$>\r\n ExSigInfo<2> = oconv( RDSRec<rds_op_out_ex1$>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<3> = RDSRec<rds_op_out_ex1_date$>\r\n ExSigInfo<4> = RDSREc<rds_op_out_ex1_time$>\r\n ExSigInfo<5> = RDSRec<rds_op_in_ex2$>\r\n ExSigInfo<6> = oconv( RDSRec<rds_op_in_ex2$>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<7> = RDSRec<rds_op_in_ex2_date$>\r\n ExSigInfo<8> = RDSREc<rds_op_in_ex2_time$>\r\n ExSigInfo<9> = RDSRec<rds_op_out_ex2$>\r\n ExSigInfo<10> = oconv( RDSRec<rds_op_out_ex2$>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<11> = RDSRec<rds_op_out_ex2_date$>\r\n ExSigInfo<12> = RDSREc<rds_op_out_ex2_time$>\r\n ExSigInfo<13> = RDSRec<rds_op_in_ex3$>\r\n ExSigInfo<14> = oconv( RDSRec<rds_op_in_ex3$>, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n ExSigInfo<15> = RDSRec<rds_op_in_ex3_date$>\r\n ExSigInfo<16> = RDSREc<rds_op_in_ex3_time$>\r\n Void = set_property( @window, '@ExSigInfo', ExSigInfo )\r\n Void = set_property( @window, '@ExSigWrite', 0 ) \r\nreturn\r\n****************************************************************************************************************************"
|
|
}
|
|
}
|
|
} |