11 lines
1.2 KiB
JSON
11 lines
1.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event\r\n$insert prod_spec_equ\r\n\r\nforward_event( Flag, FocusID )\r\nOrigPSN = get_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nCurPSN = .prod_spec_id->text\r\nif CurPSN <> OrigPSN then\r\n\tPSNId = .prod_spec_id->text\r\n\t.dopant->text = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t.rest->text = oconv( xlate( 'PROD_SPEC', PSNId, 'RES_TARGET_L1', 'X' ), 'MD3' )\r\n\t.rest_units->text = xlate( 'PROD_SPEC', PSNId, 'RES_UNITS_L1', 'X' )\r\n\t.thick->text = oconv( xlate( 'PROD_SPEC', PSNId, 'THICK_TARGET_L1', 'X' ), 'MD2' )\r\n\t.thick_units->text = xlate( 'PROD_SPEC', PSNId, 'THICK_UNITS_L1', 'X' )\r\n\tQualReactors = xlate( 'PROD_SPEC', PSNId, prod_spec_qual_reacts$, 'X' )\r\n\tif QualReactors <> '' then\r\n .reactors->array = QualReactors\r\n end else\r\n .reactors->array = @vm:@vm\r\n end\r\n *\r\n Tparts = xlate( 'PROD_SPEC', PSNId, 'PART_NUMS', 'X' )\r\n Tarray = .cust_part_nums->array\r\n Tarray<2> = Tparts\r\n .cust_part_nums->array = Tarray\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |