11 lines
2.9 KiB
JSON
11 lines
2.9 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg, end_window, send_event, start_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 annual_contracts_equ\r\n$insert exports_equ\r\n$insert quote_sigs_equ\r\n\r\nIf Get_Property('NDW_MAIN', 'VISIBLE') then\r\n AppMain = 'NDW_MAIN'\r\nend else\r\n AppMain = 'LSL_MAIN2'\r\nend\r\n\r\nCurrentSize = .gasbar->size\r\nNewSize = CurrentSize\r\nNewSize<3> = 0\r\n.gasbar->size = NewSize\r\n.gasbar->visible = 1\r\nToday = date()\r\nAWeekAndADayFromNow = oconv( date()+8, 'D2/' )\r\nStatement = \"SELECT ANNUAL_CONTRACTS WITH STATUS = 'O' AND WITH BELOW_MIN_BALANCE\"\r\nrlist( Statement, target_activelist$, '', '', '' )\r\n@rn.counter = 0\r\nEof = false$\r\nOnePercent = iconv( @reccount*.01, 'MD0' )\r\nloop\r\n readnext Id else Eof = true$\r\nuntil Eof\r\n NoteSubject = 'Annual contract# ':Id\r\n NoteText = 'Annual contract# ':Id:' is below the minimum balance...Please see attachment'\r\n SendTo = xlate( 'CONFIG', 'QUOTE_SIGS', ACReminder$, 'X' )\r\n create_note( SendTo, 'System', NoteSubject, NoteText, 'ANNUAL_CONTRACTS', Id )\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\n* CALL THE SYSTEM EXPORT FOR THE PSNs FOR THE FORCASTING SYSTEM\r\nVoid = send_event( 'EXPORTS', 'CLOSE' )\r\nVoid = start_window ( 'EXPORTS', AppMain, 'SYSTEM_GENERATED*PSN_SYSTEM_EXPORT':'*':'':'*NOEXCEL', '', '' )\r\n* NOW CALL THE SYSTEM EXPORT FOR THE Invoices FOR THE FORCASTING SYSTEM\r\nopen 'EXPORTS' to ExportTable else\r\n void = msg( '', 'Unable to open EXPORTS...' )\r\n return 0\r\nend\r\n* NO LOCKING CAUSE I AM THE ONLY GOD THAT CAN SAVE THE SYSTEM EXPORTS\r\nExportTemplate = 'INVOICE_SYSTEM_EXPORT'\r\nTwoWeeksAgo = oconv( date()-14, 'D2/' )\r\nYesterday = oconv( date()-1, 'D2/' )\r\nwritev \"FROM \":TwoWeeksAgo:' TO ':Yesterday on ExportTable, ExportTemplate, exports_query_col_filter$ else\r\n void = msg( '', 'Unable to write to \"EXPORTS\" ':quote(ExportTemplate):'...contact MIS.' )\r\n return 0\r\nend\r\nVoid = send_event( 'EXPORTS', 'CLOSE' )\r\nVoid = start_window ( 'EXPORTS', AppMain, 'SYSTEM_GENERATED*':ExportTemplate:'*':'':'*NOEXCEL', '', '' )\r\nreturn 1"
|
|
}
|
|
}
|
|
} |