Exported VBA
This commit is contained in:
407
wgmaster/vba/MTanksanlegen.bas
Normal file
407
wgmaster/vba/MTanksanlegen.bas
Normal file
@ -0,0 +1,407 @@
|
||||
Option Compare Database
|
||||
Option Explicit
|
||||
|
||||
Sub TanksRoeschitzAnlegen()
|
||||
|
||||
Dim db1 As Database
|
||||
Dim rs1 As Recordset
|
||||
Dim i As Integer
|
||||
|
||||
Set db1 = CurrentDb
|
||||
Set rs1 = db1.OpenRecordset("TBehaelter")
|
||||
|
||||
For i = 1 To 14
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 99000
|
||||
If i = 14 Then
|
||||
rs1("MaxMenge") = 72600
|
||||
End If
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 3
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 15 To 16
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 600000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 2
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
|
||||
For i = 17 To 22
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 15000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 6
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 23 To 38
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 30000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 6
|
||||
If i = 35 Then
|
||||
rs1("BSNR") = 2
|
||||
End If
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
|
||||
For i = 39 To 39
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 5000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 6
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 40 To 42
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 7000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 6
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 43 To 50
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 3000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 6
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 51 To 53
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "T" + Format(i)
|
||||
rs1("Bezeichnung") = "Tank " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 1500
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 6
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 9 To 23
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "Z" + Format(i)
|
||||
rs1("Bezeichnung") = "Zisterne " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 25000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("BevorzugterSortenTyp") = "Rot"
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 4
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 1 To 3
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "F" + Format(i)
|
||||
rs1("Bezeichnung") = "Fass " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 9000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("BevorzugterSortenTyp") = "Rot"
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 5
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
|
||||
|
||||
|
||||
rs1.Close
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub PositionenTanksRoeschitz()
|
||||
|
||||
Dim db1 As Database
|
||||
Dim rs1 As Recordset
|
||||
Dim i As Integer
|
||||
|
||||
Dim offset_x As Long
|
||||
Dim offset_y As Long
|
||||
Dim raster_x As Long
|
||||
Dim raster_y As Long
|
||||
Dim max_x As Long
|
||||
Dim current_x As Long
|
||||
Dim current_y As Long
|
||||
|
||||
offset_x = 100
|
||||
offset_y = 550
|
||||
raster_x = 2000
|
||||
raster_y = 2000
|
||||
max_x = 14000
|
||||
Set db1 = CurrentDb
|
||||
For i = 1 To 7
|
||||
Set rs1 = db1.OpenRecordset("SELECT * FROM TBehaelter WHERE BSNR=" + Format(i) + " order by BNR")
|
||||
current_x = offset_x
|
||||
current_y = offset_y
|
||||
While Not rs1.EOF
|
||||
rs1.Edit
|
||||
rs1("Pos_X") = current_x
|
||||
rs1("Pos_Y") = current_y
|
||||
rs1.Update
|
||||
current_x = current_x + raster_x
|
||||
If current_x > max_x Then
|
||||
current_x = offset_x
|
||||
current_y = current_y + raster_x
|
||||
End If
|
||||
rs1.MoveNext
|
||||
Wend
|
||||
rs1.Close
|
||||
Next i
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub TanksWinzerkellerAnlegen()
|
||||
|
||||
Dim db1 As Database
|
||||
Dim rs1 As Recordset
|
||||
Dim i As Integer
|
||||
|
||||
Set db1 = CurrentDb
|
||||
Set rs1 = db1.OpenRecordset("TBehaelter")
|
||||
|
||||
For i = 1 To 12
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "MB" + Format(i)
|
||||
rs1("Bezeichnung") = "Weißwein Maischebehälter " + Format(i)
|
||||
rs1("BTNR") = 2
|
||||
rs1("MaxMenge") = 12000
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("BevorzugterSortenTyp") = "Weiß"
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "kg"
|
||||
rs1("BSNR") = 1
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 1 To 5
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "RT" + Format(i)
|
||||
rs1("Bezeichnung") = "Rührtanks Rotwein " + Format(i)
|
||||
rs1("BTNR") = 3
|
||||
rs1("MaxMenge") = 18000
|
||||
If i > 2 Then
|
||||
rs1("MaxMenge") = 30000
|
||||
End If
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("BevorzugterSortenTyp") = "Rot"
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "kg"
|
||||
rs1("BSNR") = 1
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 1 To 4
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "P" + Format(i)
|
||||
rs1("Bezeichnung") = "Presse " + Format(i)
|
||||
rs1("BTNR") = 1
|
||||
rs1("MaxMenge") = 30000
|
||||
rs1("Reduktionsfaktor") = 0.8
|
||||
'rs1("BevorzugterSortenTyp") = ""
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "kg"
|
||||
rs1("BSNR") = 1
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 1 To 5
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "W" + Format(i)
|
||||
rs1("Bezeichnung") = "Weißwein-Mosttank " + Format(i)
|
||||
rs1("BTNR") = 4
|
||||
rs1("MaxMenge") = 32000
|
||||
If i = 1 Or i = 4 Then rs1("MaxMenge") = 50000
|
||||
rs1("BevorzugterSortenTyp") = "Weiß"
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 2
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
For i = 6 To 9
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "R" + Format(i)
|
||||
rs1("Bezeichnung") = "Rotwein-Mosttank " + Format(i)
|
||||
rs1("BTNR") = 4
|
||||
rs1("MaxMenge") = 26000
|
||||
If i = 9 Then rs1("MaxMenge") = 50000
|
||||
rs1("BevorzugterSortenTyp") = "Weiß"
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "l"
|
||||
rs1("BSNR") = 2
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
|
||||
For i = 1 To 3
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "V" + Format(i)
|
||||
rs1("Bezeichnung") = "Rotwein-Mosttank " + Format(i)
|
||||
rs1("BTNR") = 6
|
||||
rs1("MaxMenge") = 12000
|
||||
rs1("BevorzugterSortenTyp") = "Rot"
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "kg"
|
||||
rs1("BSNR") = 1
|
||||
rs1.Update
|
||||
Next i
|
||||
|
||||
'Scheitermost
|
||||
rs1.AddNew
|
||||
rs1("Kurzbezeichnung") = "ST" + Format(10)
|
||||
rs1("Bezeichnung") = "Scheitermosttank " + Format(10)
|
||||
rs1("BTNR") = 4
|
||||
rs1("MaxMenge") = 32000
|
||||
rs1("BevorzugterSortenTyp") = "Weiß"
|
||||
rs1("Reduktionsfaktor") = 1
|
||||
rs1("Pos_X") = 100
|
||||
rs1("Pos_Y") = 4100
|
||||
rs1("MengenEinheit") = "kg"
|
||||
rs1("BSNR") = 1
|
||||
rs1.Update
|
||||
|
||||
|
||||
|
||||
rs1.Close
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub PositionenTanksWinzerkeller()
|
||||
|
||||
Dim db1 As Database
|
||||
Dim rs1 As Recordset
|
||||
Dim i As Integer
|
||||
|
||||
Dim offset_x As Long
|
||||
Dim offset_y As Long
|
||||
Dim raster_x As Long
|
||||
Dim raster_y As Long
|
||||
Dim max_x As Long
|
||||
Dim current_x As Long
|
||||
Dim current_y As Long
|
||||
Dim x As String
|
||||
|
||||
offset_x = 100
|
||||
offset_y = 550
|
||||
raster_x = 1700
|
||||
raster_y = 1900
|
||||
max_x = 14000
|
||||
Set db1 = CurrentDb
|
||||
For i = 1 To 2
|
||||
Set rs1 = db1.OpenRecordset("SELECT * FROM TBehaelter WHERE BSNR=" + Format(i) + " order by BNR")
|
||||
current_x = offset_x
|
||||
current_y = offset_y
|
||||
While Not rs1.EOF
|
||||
rs1.Edit
|
||||
rs1("Pos_X") = current_x
|
||||
rs1("Pos_Y") = current_y
|
||||
rs1.Update
|
||||
current_x = current_x + raster_x
|
||||
'If MsgBox("Momentaner Behälter=" + Format(rs1("Kurzbezeichnung")) + ". Zeilenumbruch?", vbYesNo) = vbYes Then
|
||||
' current_x = offset_x
|
||||
' current_y = current_y + raster_x
|
||||
'End If
|
||||
x = rs1("Kurzbezeichnung")
|
||||
|
||||
If x = "MB6" Or x = "MB12" Or x = "RT5" Or x = "P4" Then
|
||||
current_x = offset_x
|
||||
current_y = current_y + raster_x
|
||||
End If
|
||||
|
||||
|
||||
If current_x > max_x Then
|
||||
current_x = offset_x
|
||||
current_y = current_y + raster_x
|
||||
End If
|
||||
rs1.MoveNext
|
||||
Wend
|
||||
rs1.Close
|
||||
Next i
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user