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ä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