11 lines
2.8 KiB
JSON
11 lines
2.8 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg, end_window\r\ndeclare subroutine rlist, record_lock, create_note\r\n$insert logical\r\n$insert rlist_equates\r\n$insert msg_equates\r\n$insert prod_spec_equ\r\n$insert quote_spec_equ\r\n$insert quote_sigs_equ\r\n\r\n* REMOVE FROM THE NIGHTLY PROCESS ROUTINE\r\n\r\n* I DO NOT THINK WE SHOULD USE THE REMINDER ANY MORE\r\n* NEED TO SPEAK WITH THE PSN FLOW GROUP IF THIS IS TO BE USED IN THE FUTURE\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nopen 'PROD_SPEC' to PSNTable else\r\n Void = msg( '', 'Unable to open PROD_SPEC table...' )\r\n return 0\r\nend\r\nToday = date()\r\nTodayOut = oconv( Today, 'D2/' )\r\nStatement = 'SELECT PROD_SPEC WITH STATUS = \"I\"'\r\n************************************REMOVED THE AND WITH ORDER_SIGNATURE <> \"\"' FROM LINE ABOVE CAUSE ORDER_SIGNATURE WENT BYE BYE\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\n\r\n\r\n* THIS SHOULD BE REMOVED FROM THE NIGHTLY PROCESS SETUP\r\n\r\n* SEND MESSAGE TO TSIS AND CTO AND ENGINEERS IF THEY HAVE NOT SIGNED\r\nSignatureInfo = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )\r\nMfgMgr = SignatureInfo<ProdMgr$>\r\nEngMgr = SignatureInfo<EngMgr$>\r\n\r\nNote = 'This PSN attachment has missing signatures...Please review and sign if you are done reviewing.'\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n read PSNRec from PSNTable, Id else\r\n Void = msg( '', 'Unable to read ':Id:' from PSN table.' )\r\n return 0\r\n end\r\n SendTo = ''\r\n\r\n SpecAddtl = PSNRec<prod_spec_spec_addtl$>\r\n SpecSub = PSNRec<prod_spec_spec_substrate$>\r\n if SpecSub<1,QSSubSpecType$> = 'Q' else \r\n \r\n end\r\n if ( SendTo <> '' ) then\r\n SENDTO<1,-1> = 'BRYCE_M'\r\n Subject = 'PSN ':Id :' needs signing...' \r\n create_note( SendTo, 'System', Subject, Note, 'PROD_SPEC', Id ) \r\n end\r\n if mod( @rn.counter, OnePercent ) else\r\n\t NewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t .percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\t NewSize<3> = NewWidth\r\n\t .gasbar->redraw = 0\r\n\t .gasbar->size = NewSize\r\n\t .gasbar->redraw = 1\r\n end\r\nrepeat\r\nif @rn.counter > 0 and @reccount > 0 then\r\n\tNewWidth = CurrentSize<3> * @rn.counter/@reccount\r\n\t.percent_complete->text = oconv(iconv( @rn.counter/@reccount*100, 'MD0' ), 'MD0' ):'%'\r\n\tNewSize<3> = NewWidth\r\n\t.gasbar->redraw = 0\r\n\t.gasbar->size = NewSize\r\n\t.gasbar->redraw = 1\r\nend\r\nreturn 1"
|
|
}
|
|
}
|
|
} |