11 lines
1.3 KiB
JSON
11 lines
1.3 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg, dialog_box\r\n$insert msg_equates\r\n\r\nOrigVal = .rma_info1->array:char(244):.rma_info2->array:char(244):.rma_special_inst->text:char(244):.rma_eng_comments->text\r\nReturnVal = dialog_box( 'CAR2', @window, OrigVal )\r\nif ( ReturnVal <> OrigVal ) and ( ReturnVal <> 'CANCEL' ) then\r\n if ( ReturnVal = 'REMOVEALL' ) then\r\n .rma_info1->array = @fm\r\n .rma_info2->array = str(@fm,4)\r\n .rma_special_inst->text = ''\r\n .rma_eng_comments->text = ''\r\n .rma_button->text = 'Define RMA Info...' \r\n end else\r\n\t RmaInfo1 = field( ReturnVal, char(244), 1 )\r\n\t RmaInfo2 = field( ReturnVal, char(244), 2 )\r\n\t convert @vm to @fm in RmaInfo2\r\n\t RmaSpecialInst = field( ReturnVal, char(244), 3 )\r\n\t RmaEngComments = field( ReturnVal, char(244), 4 )\r\n\t .rma_info1->array = RmaInfo1\r\n\t .rma_info2->array = RmaInfo2\r\n\t .rma_special_inst->text = RmaSpecialInst\r\n\t .rma_eng_comments->text = RmaEngComments\r\n .rma_button->text = 'Edit RMA Info...'\t \r\n end\r\n @@window->savewarn = 1 \r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |