63 lines
1.9 KiB
OpenEdge ABL
63 lines
1.9 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 = "CVerbundzaehler"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public lngSerienNrHZ As Long 'SerienNr
|
|
Public lngSerienNrNZ As Long 'SerienNrNebenzaehler
|
|
Public strKundeneigeneSerienNrNZ As String 'KundeneigeneSerNrNbZ
|
|
Public blnIstPruefnebenzaehler As Boolean 'Pruefnebenzaehler
|
|
|
|
' PP_Oeffnen PP_OeffnenFehler PP_Schliessen PP_SchliessenFehler
|
|
Public dblPP_Oeffnen As Double
|
|
Public dblPP_OeffnenFehler As Double
|
|
Public dblPP_Schliessen As Double
|
|
Public dblPP_SchliessenFehler As Double
|
|
|
|
Public lngLetztePruefgangNr As Long 'PruefgangNr
|
|
|
|
' todo Speichern Verheiraten
|
|
|
|
' PrueferNr Datum
|
|
' Info_FertigungsauftragNr AnlageDatum MetrologNZ
|
|
' Q1_SOLL FEHLER_Q1 Q2_SOLL FEHLER_Q2
|
|
' SerienNrNebenzaehlerLU Herkunft
|
|
|
|
Public Function LoadForHauptzaehler(lngSerienNr As Long) As Boolean
|
|
Dim rs As CRecordset
|
|
|
|
Dim strSQL As String
|
|
|
|
strSQL = "select top 1 * from Verbundzaehler where SerienNr = " & lngSerienNr & " ORDER BY AnlageDatum desc"
|
|
|
|
Set rs = New CRecordset
|
|
rs.openRS (strSQL)
|
|
|
|
If Not rs.EOF Then
|
|
lngSerienNrHZ = rs.getLongValue("SerienNr")
|
|
lngSerienNrNZ = rs.getLongValue("SerienNrNebenzaehler")
|
|
lngLetztePruefgangNr = rs.getLongValue("PruefgangNr")
|
|
strKundeneigeneSerienNrNZ = rs.getStringValue("KundeneigeneSerNrNbZ")
|
|
blnIstPruefnebenzaehler = rs.getBooleanValue("Pruefnebenzaehler")
|
|
|
|
dblPP_Oeffnen = rs.getDoubleValue("PP_Oeffnen")
|
|
dblPP_OeffnenFehler = rs.getDoubleValue("PP_OeffnenFehler")
|
|
dblPP_Schliessen = rs.getDoubleValue("PP_Schliessen")
|
|
dblPP_SchliessenFehler = rs.getDoubleValue("PP_SchliessenFehler")
|
|
|
|
LoadForHauptzaehler = True
|
|
End If
|
|
|
|
End Function
|
|
|