1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22:
Public (стержень ByVal как данные по длиной, ByVal как шнур) 'проверите внутренне таблицу для того чтобы увидеть если Workorder внесено в журнал дальше Затемните x как шнур, y как шнур Вызовите сортировщицу («внутренне», «E2», «e: E») X = Do_Lookup («внутренне», TerminalDataRecord (стержень) .TermDataSet (60), «e: F», 2) Выберите случай x Покрывайте x = "" WO_Logged_In = 0 'имеющееся для logon к станции Покрывайте x = TerminalDataRecord (стержень) .TermDataSet (60) WO_Logged_In = 1 'внесло в журнал в просмотренную станцию Покрывайте <> TerminalDataRecord x (стержень) .TermDataSet (60) WO_Logged_In = 2 'внесенное в журнал в по-разному станцию после этого просмотрело Конец отборный Функция конца