216 lines
6.2 KiB
OpenEdge ABL
216 lines
6.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 = "CJustagewerte"
|
||
Attribute VB_GlobalNameSpace = False
|
||
Attribute VB_Creatable = True
|
||
Attribute VB_PredeclaredId = False
|
||
Attribute VB_Exposed = False
|
||
Option Explicit
|
||
|
||
Public SerienNr As Long
|
||
Public DatumVorpruefung As Date
|
||
Public JustageArt As String
|
||
Public MitarbeiterNr As Long
|
||
Public IstFluss1 As Double
|
||
Public IstFluss2 As Double
|
||
Public SollFluss1 As Double
|
||
Public SollFluss2 As Double
|
||
Public Temperatur1 As Double
|
||
Public Temperatur2 As Double
|
||
Public Unlinearitaet As Double
|
||
Public DatumJustage As Date
|
||
Public FP_Bereich As Double
|
||
Public FP_K_Geber1 As Double
|
||
Public FP_K_Geber2 As Double
|
||
Public FP_ST_Geber As Double
|
||
Public FP_QOffset2 As Double
|
||
Public FP_QOffset1 As Double
|
||
Public FP_O_Geber As Double
|
||
Public Offset_Qmin As Double
|
||
Public Offset_Bereich As Double
|
||
Public Offset_Qp As Double
|
||
Public f_fp_o_geber_roh As Double
|
||
Public f_fp_o_geber_roh_RW As Double
|
||
|
||
Public Einbauplatz As Integer
|
||
Public FabNr As Long
|
||
Public comport As Integer
|
||
|
||
Public Fehler1 As Double
|
||
Public Fehler2 As Double
|
||
|
||
|
||
Public Function load() As Boolean
|
||
Dim rs As CRecordset
|
||
Dim sSQL As String
|
||
|
||
On Error GoTo loadErr
|
||
|
||
sSQL = "SELECT top 1 * FROM USJustagewerte WHERE SerienNr = " & SerienNr & " order by DatumVorpruefung desc"
|
||
Set rs = New CRecordset
|
||
If Not rs.openRS(sSQL) Then
|
||
Exit Function
|
||
End If
|
||
|
||
|
||
If Not rs.EOF Then
|
||
load = True
|
||
|
||
' SerienNr DatumVorpruefung MitarbeiterNr
|
||
DatumVorpruefung = rs.getDateValue("DatumVorpruefung")
|
||
MitarbeiterNr = rs.getLongValue("MitarbeiterNr")
|
||
JustageArt = rs.getStringValue("Justageart")
|
||
|
||
' IstFluss1 IstFluss2 SollFluss1 SollFluss2
|
||
IstFluss1 = rs.getDoubleValue("IstFluss1")
|
||
IstFluss2 = rs.getDoubleValue("IstFluss2")
|
||
SollFluss1 = rs.getDoubleValue("SollFluss1")
|
||
SollFluss2 = rs.getDoubleValue("SollFluss2")
|
||
|
||
' Temperatur1 Temperatur2 Unlinearitaet DatumJustage
|
||
Temperatur1 = rs.getDoubleValue("Temperatur1")
|
||
Temperatur2 = rs.getDoubleValue("Temperatur2")
|
||
Unlinearitaet = rs.getDoubleValue("Unlinearitaet")
|
||
DatumJustage = rs.getDateValue("DatumJustage")
|
||
|
||
' FP_Bereich FP_K_Geber1 FP_K_Geber2 FP_ST_Geber
|
||
FP_Bereich = rs.getDoubleValue("FP_Bereich")
|
||
FP_K_Geber1 = rs.getDoubleValue("FP_K_Geber1")
|
||
FP_K_Geber2 = rs.getDoubleValue("FP_K_Geber2")
|
||
FP_ST_Geber = rs.getDoubleValue("FP_ST_Geber")
|
||
|
||
' FP_QOffset2 FP_QOffset1 FP_O_Geber
|
||
FP_QOffset2 = rs.getDoubleValue("FP_QOffset2")
|
||
FP_QOffset1 = rs.getDoubleValue("FP_QOffset1")
|
||
FP_O_Geber = rs.getDoubleValue("FP_O_Geber")
|
||
|
||
' Offset_Qmin Offset_Bereich Offset_Qp
|
||
Offset_Qmin = rs.getDoubleValue("Offset_Qmin")
|
||
Offset_Bereich = rs.getDoubleValue("Offset_Bereich")
|
||
Offset_Qp = rs.getDoubleValue("Offset_Qp")
|
||
|
||
FabNr = rs.getLongValue("FabNr")
|
||
Einbauplatz = rs.getIntValue("Einbauplatz")
|
||
comport = rs.getIntValue("COMPort")
|
||
Else
|
||
load = False
|
||
End If
|
||
|
||
|
||
Exit Function
|
||
loadErr:
|
||
End Function
|
||
|
||
Public Sub save()
|
||
|
||
Dim rs As CRecordset
|
||
Dim sSQL As String
|
||
|
||
On Error GoTo saveErr
|
||
|
||
'sSQL = "SELECT * FROM USJustagewerte WHERE SerienNr = " & SerienNr & " AND Datumvorpruefung = " & modSQL.dateToSQLString(DatumVorpruefung)
|
||
|
||
|
||
sSQL = "SELECT * FROM USJustagewerte WHERE SerienNr = " & SerienNr & " AND Datumvorpruefung = CONVERT(DATETIME, '" & Format(DatumVorpruefung, "yyyy-mm-dd hh:mm:ss") & "',102)"
|
||
|
||
Debug.Print sSQL
|
||
|
||
|
||
Set rs = New CRecordset
|
||
If Not rs.openRS(sSQL) Then
|
||
'Exit Sub
|
||
End If
|
||
|
||
'Wenn nicht vorhanden, dann Neuanlage ge<67>ndert AP 23.01.2004
|
||
If rs.EOF() Then
|
||
rs.addNew
|
||
End If
|
||
|
||
' SerienNr DatumVorpruefung MitarbeiterNr
|
||
Call rs.setValue("SerienNr", SerienNr)
|
||
Call rs.setValue("DatumVorpruefung", DatumVorpruefung)
|
||
Call rs.setValue("MitarbeiterNr", MitarbeiterNr)
|
||
Call rs.setValue("Justageart", JustageArt)
|
||
' IstFluss1 IstFluss2 SollFluss1 SollFluss2
|
||
|
||
Call rs.setValue("IstFluss1", IstFluss1)
|
||
Call rs.setValue("IstFluss2", IstFluss2)
|
||
Call rs.setValue("SollFluss1", SollFluss1)
|
||
Call rs.setValue("SollFluss2", SollFluss2)
|
||
' Temperatur1 Temperatur2 Unlinearitaet DatumJustage
|
||
|
||
Call rs.setValue("Temperatur1", Temperatur1)
|
||
Call rs.setValue("Temperatur2", Temperatur2)
|
||
Call rs.setValue("Unlinearitaet", Unlinearitaet)
|
||
Call rs.setValue("DatumJustage", DatumJustage)
|
||
' FP_Bereich FP_K_Geber1 FP_K_Geber2 FP_ST_Geber
|
||
|
||
Call rs.setValue("FP_Bereich", FP_Bereich)
|
||
Call rs.setValue("FP_K_Geber1", FP_K_Geber1)
|
||
Call rs.setValue("FP_K_Geber2", FP_K_Geber2)
|
||
Call rs.setValue("FP_ST_Geber", FP_ST_Geber)
|
||
' FP_QOffset2 FP_QOffset1 FP_O_Geber
|
||
|
||
Call rs.setValue("FP_O_Geber", FP_O_Geber)
|
||
Call rs.setValue("FP_QOffset2", FP_QOffset2)
|
||
Call rs.setValue("FP_QOffset1", FP_QOffset1)
|
||
|
||
' Offset_Qmin Offset_Bereich Offset_Qp
|
||
Call rs.setValue("Offset_Qmin", Offset_Qmin)
|
||
Call rs.setValue("Offset_Bereich", Offset_Bereich)
|
||
Call rs.setValue("Offset_Qp", Offset_Qp)
|
||
|
||
Call rs.setValue("Fehler1", Fehler1)
|
||
Call rs.setValue("Fehler2", Fehler2)
|
||
Call rs.setValue("fp_o_geber_roh", f_fp_o_geber_roh)
|
||
|
||
If Einbauplatz <> 0 Then
|
||
Call rs.setValue("Einbauplatz", Einbauplatz)
|
||
End If
|
||
If FabNr <> 0 Then
|
||
Call rs.setValue("FabNr", FabNr)
|
||
End If
|
||
|
||
If comport <> 0 Then
|
||
Call rs.setValue("COMPort", comport)
|
||
End If
|
||
|
||
'On Error Resume Next
|
||
' den originalen OGeber_roh aus dem Rechenwerk speichern
|
||
Call rs.setValue("fp_o_geber_roh_RW", f_fp_o_geber_roh_RW)
|
||
'On Error GoTo saveErr
|
||
|
||
Call rs.setValue("PrgVersion", App.Major & "." & App.Minor & "." & App.Revision)
|
||
|
||
rs.update
|
||
Set rs = Nothing
|
||
Exit Sub
|
||
saveErr:
|
||
MsgBox ("justagewerte.save error")
|
||
End Sub
|
||
|
||
|
||
Private Sub Class_Initialize()
|
||
DatumJustage = Now
|
||
MitarbeiterNr = g_App.Mitarbeiter.getNr
|
||
End Sub
|
||
|
||
Public Sub delete()
|
||
Dim rs As CRecordset
|
||
Dim sSQL As String
|
||
|
||
sSQL = "DELETE FROM USJustagewerte WHERE SerienNr = " & SerienNr
|
||
|
||
Set rs = New CRecordset
|
||
rs.openRS (sSQL)
|
||
|
||
Set rs = Nothing
|
||
End Sub
|
||
|