131 lines
3.2 KiB
OpenEdge ABL
131 lines
3.2 KiB
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'NotPersistable
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
MTSTransactionMode = 0 'NotAnMTSObject
|
|
END
|
|
Attribute VB_Name = "CEinbauplatz"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
|
|
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
|
|
'==============================================================================
|
|
'
|
|
' File : Einbauplatz.cls
|
|
' Date : 24.03.1999
|
|
' Version: 1.00
|
|
' Author : Reinhard Henning, Andreas Schmidt, lindner&partner
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' Abstraktion eines Einbauplatzes in der Prüfstation
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' History:
|
|
'
|
|
' Date : 24.03.1999
|
|
' Version: 1.00
|
|
' Author : Reinhard Henning, Andreas Schmidt, lindner&partner
|
|
'
|
|
' Erste dokumentierte Version.
|
|
'
|
|
'==============================================================================
|
|
|
|
Option Explicit
|
|
|
|
' Private Member
|
|
' --------------
|
|
Private m_nEinbauplatz As Integer
|
|
Private m_Pruefzaehler As CPruefzaehler
|
|
Private m_bPPWarning As Boolean
|
|
|
|
Private m_Aktiv As Boolean
|
|
|
|
|
|
Public m_Versuche As Integer
|
|
Public m_ImpulseQM As Long
|
|
Public m_ImpulseLwl As Long
|
|
Public m_AnzahlPeriodenPZ As Long
|
|
Public m_strEinbaulage As String
|
|
Private m_Zusatz As String ' FabNr
|
|
Public intErkannteQp As Integer
|
|
|
|
Public m_lngPruefzeit As Long
|
|
Public m_Status As Integer
|
|
|
|
Public m_iComport As Integer
|
|
Public m_strMapfile As String
|
|
Public m_strCompareFile As String
|
|
Public m_strFW2LogFile As String
|
|
|
|
Public fw2_u8_scaling As Integer
|
|
|
|
Public m_blnPruefbar As Boolean
|
|
Public m_blnJustierbar As Boolean
|
|
|
|
Public eRegister As CeRegister ' Verweis auf eRegister
|
|
Public eRegister_inactive As CeRegister ' Verweis auf eRegister, wenn inaktiv durch Fehler bei der Programmieerung
|
|
|
|
Public Sub setAktiv(bAktiv As Boolean)
|
|
m_Aktiv = bAktiv
|
|
End Sub
|
|
|
|
' @return Nr. des Einbauplatzes
|
|
'
|
|
Public Function getAktiv() As Boolean
|
|
getAktiv = m_Aktiv
|
|
End Function
|
|
|
|
Public Sub setZusatz(sDaten As String)
|
|
m_Zusatz = sDaten
|
|
End Sub
|
|
|
|
Public Function getZusatz() As String
|
|
getZusatz = m_Zusatz
|
|
End Function
|
|
|
|
' @param nEinbauplatzNr Nr. des Einbauplatzes
|
|
'
|
|
Public Sub setNr(nEinbauplatzNr As Integer)
|
|
m_nEinbauplatz = nEinbauplatzNr
|
|
End Sub
|
|
|
|
' @return Nr. des Einbauplatzes
|
|
'
|
|
Public Function getNr() As Integer
|
|
getNr = m_nEinbauplatz
|
|
End Function
|
|
|
|
' @param Pruefzaehler Prüfzähler in dem Einbauplatz
|
|
'
|
|
Public Sub setPruefzaehler(Pruefzaehler As CPruefzaehler)
|
|
Set m_Pruefzaehler = Pruefzaehler
|
|
End Sub
|
|
|
|
' @return Prüfzähler in dem Einbauplatz
|
|
'
|
|
Public Function getPruefzaehler() As CPruefzaehler
|
|
Set getPruefzaehler = m_Pruefzaehler
|
|
End Function
|
|
|
|
' @param bPPWarning true = Einbauplatz hat einen Prüfpunkt-Problem
|
|
' false = Einbauplatz-Status ist OK
|
|
'
|
|
Public Sub setPPWarning(bPPWarning As Boolean)
|
|
m_bPPWarning = bPPWarning
|
|
End Sub
|
|
|
|
Public Function getPPWarning() As Boolean
|
|
getPPWarning = m_bPPWarning
|
|
End Function
|
|
|
|
|
|
Private Sub Class_Initialize()
|
|
m_Aktiv = True
|
|
End Sub
|