144 lines
3.9 KiB
OpenEdge ABL
144 lines
3.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 = "CBehaelter"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
' Behälter Eigenschaften
|
|
Public m_OVolumen As Double
|
|
Public m_UVolumen As Double
|
|
Public m_nUeberlaufFaktor As Double
|
|
|
|
' Ruhe Parameter
|
|
Public m_RuheWdh As Integer
|
|
Public m_RuheGrenzwert As Double
|
|
|
|
Public m_BehaelterAnwahl As Integer
|
|
Public m_AblassAnwahl As Byte
|
|
Public m_WaageAnwahl As Integer
|
|
Public m_WaageGrenzwert As Integer
|
|
Public m_Fuelldurchfluss As Double
|
|
Public m_Fuellvolumen As Double
|
|
|
|
Public m_Mindestmenge As Double
|
|
|
|
Public m_Waagenart As Integer
|
|
|
|
Public m_Nr As Byte
|
|
|
|
' Genauigkeit der Waage
|
|
Public m_Genauigkeit As String
|
|
|
|
Public Function LoadForVolumen(VolumenSoll As Double) As Boolean
|
|
Dim i As Integer
|
|
LoadForVolumen = False
|
|
' Behälterauswahl
|
|
For i = 1 To 10
|
|
If LoadFromIni(i) Then
|
|
If IstOkFuerVolumen(VolumenSoll) Then
|
|
LoadForVolumen = True
|
|
Exit For
|
|
End If
|
|
End If
|
|
Next
|
|
End Function
|
|
|
|
|
|
' todo : Einbau m_blnFuellstandStattGewicht = g_App.Settings.GetFuellstandStattGewicht as boolean (Default false)
|
|
Public Function LoadFromIni(Index As Integer) As Boolean
|
|
|
|
|
|
m_WaageAnwahl = g_App.Settings.GetWaageAnwahl(Index)
|
|
m_BehaelterAnwahl = g_App.Settings.GetBehaelterAnwahl(Index)
|
|
|
|
Select Case g_App.Settings.GetWaageArt(Index)
|
|
Case "BIZERBA", "" ' Default
|
|
m_Waagenart = WAAGENART_BIZERBA
|
|
Case "METTLER"
|
|
m_Waagenart = WAAGENART_METTLER
|
|
Case "METTLER_2"
|
|
m_Waagenart = WAAGENART_METTLER_2
|
|
Case "FUELLSTAND"
|
|
m_Waagenart = WAAGENART_FUELLSTAND
|
|
Case Else
|
|
MsgBox "Waagenart " & g_App.Settings.GetWaageArt(Index) & " ist unbekannt"
|
|
LoadFromIni = False
|
|
Exit Function
|
|
End Select
|
|
|
|
m_OVolumen = g_App.Settings.GetWaageOVolumen(Index)
|
|
If m_OVolumen = 0 Then
|
|
LoadFromIni = False
|
|
Exit Function
|
|
End If
|
|
m_UVolumen = g_App.Settings.GetWaageUVolumen(Index)
|
|
|
|
If m_OVolumen = 0 Then
|
|
LoadFromIni = False
|
|
Exit Function
|
|
End If
|
|
|
|
m_RuheWdh = g_App.Settings.GetWaageRuheWdh(Index)
|
|
m_RuheGrenzwert = g_App.Settings.GetWaageRuheGrenzwert(Index)
|
|
|
|
m_AblassAnwahl = g_App.Settings.GetBehaelterAblassAnwahl(Index)
|
|
|
|
m_nUeberlaufFaktor = g_App.Settings.GetWaageUeberlauffaktor(Index)
|
|
m_Genauigkeit = g_App.Settings.GetWaageGenauigkeit(Index)
|
|
m_WaageGrenzwert = g_App.Settings.GetGrenzwert(Index)
|
|
|
|
m_Fuellvolumen = g_App.Settings.GetFuellvolumen(Index)
|
|
m_Fuelldurchfluss = g_App.Settings.GetFuelldurchfluss(Index)
|
|
m_Mindestmenge = g_App.Settings.GetMindestmenge(Index)
|
|
m_Nr = Index
|
|
|
|
|
|
LoadFromIni = True
|
|
End Function
|
|
|
|
Public Function IstOkFuerVolumen(dVolumen As Double) As Boolean
|
|
If dVolumen <= m_OVolumen And dVolumen > m_UVolumen Then
|
|
IstOkFuerVolumen = True
|
|
End If
|
|
End Function
|
|
|
|
|
|
Public Function WarteAufRuhe()
|
|
g_App.getWaage.Initialize Me.m_Nr
|
|
|
|
g_App.getWaage.Anwahl Me.m_WaageAnwahl
|
|
|
|
|
|
FrmWaagenRuhe.m_RuheWdh = m_RuheWdh
|
|
' neu RH 13.10.2011
|
|
FrmWaagenRuhe.m_RuheDifferenz = Me.m_RuheGrenzwert
|
|
|
|
FrmWaagenRuhe.m_sFormat = "0.00"
|
|
FrmWaagenRuhe.Show vbModal
|
|
End Function
|
|
|
|
|
|
Public Function WarteBisLeer()
|
|
g_App.getWaage.Initialize Me.m_Nr
|
|
If Me.m_WaageAnwahl <> 0 Then
|
|
g_App.getWaage.Anwahl Me.m_WaageAnwahl
|
|
End If
|
|
|
|
FrmWaagenRuhe.caption = "Warte bis Behälter leer!"
|
|
FrmWaagenRuhe.m_RuheWdh = 3
|
|
|
|
' neu RH 13.10.2011
|
|
FrmWaagenRuhe.m_RuheDifferenz = Me.m_RuheGrenzwert / 2
|
|
|
|
FrmWaagenRuhe.m_sFormat = "0.00"
|
|
FrmWaagenRuhe.Show vbModal
|
|
End Function
|
|
|