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