Public Funktion WO_Logged_In (ByVal Anschluss als lang, ByVal Daten als Schnur)
'interne Tabelle überprüfen, um zu sehen, wenn das Workorder angemeldet wird
X als Schnur verdunkeln, Y als Schnur
Sorter benennen („intern“, „E2“, „E: E“)
X = Do_Lookup („intern“, TerminalDataRecord (Anschluss) .TermDataSet (60), „E: F“, 2)
Rechtssache X vorwählen
Umkleiden X = ""
WO_Logged_In = 0 'vorhanden für LOGON für eine Station
Umkleiden X = TerminalDataRecord (Anschluss) .TermDataSet (60)
WO_Logged_In = 1 'loggte in gescannte Station
X <> TerminalDataRecord (Anschluss) .TermDataSet (60) umkleiden
WO_Logged_In = 2 'loggte in eine andere Station dann gescannt
Ende auserwählt
Enden-Funktion
|