-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmLagerverwaltung.vb
168 lines (131 loc) · 7.09 KB
/
frmLagerverwaltung.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
Public Class frmLagerverwaltung
Dim bIsLoading As Boolean = True
Private Sub btnLagerbestand_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLagerbestand_save.Click
If txtMHD.Text = "" And lblMHDOption.Text = "1" Then
MessageBox.Show("Bitte wählen Sie ein MHD Datum aus, ist erforderliches Feld")
Exit Sub
ElseIf IsNumeric(txtLagerbestandNeu.Text) = False Then
MessageBox.Show("Lagerbestand muss eine Ganzzahl sein!", "Lagerbestand Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Else
If frmJTLRechnung.lvwArtikel_alle.SelectedItems.Count > 0 Then
frmJTLRechnung.lvwArtikel_alle.SelectedItems(0).SubItems(5).Text = txtLagerbestandNeu.Text
End If
Dim strKArtikelID As String = ""
' Artikelnummer zu ArtikelID bei _load
strKArtikelID = frmJTLRechnung.clsDB.getkArtikelIDbySKU(lblArtikelnummer.Text)
If strKArtikelID.Length = 0 Then
MessageBox.Show("Konnte keine ArtikelID aus Artelnummer ermitteln")
End If
' Buchungsatz schreiben
'frmJTLRechnung.clsDB.setLager_BuchungEingang(Me, lblkArtikel.Text)
' Lagerstand setzen
If frmJTLRechnung.clsDB.setArtikel_Lagerbestand(strKArtikelID, txtLagerbestandNeu.Text) = True Then
If frmJTLRechnung.clsDB.setArtikel_Lagerbestand_verfügbar(strKArtikelID, lblVerfügbarNeu.Text) = True Then
Me.Close()
End If
End If
End If
End Sub
Private Sub txtLagerbestandNeu_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtLagerbestandNeu.KeyDown
If e.KeyCode = Keys.Enter Then
btnLagerbestand_save.PerformClick()
End If
End Sub
Private Sub txtLagerbestandNeu_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtLagerbestandNeu.KeyPress
End Sub
Private Sub frmLagerverwaltung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call frmJTLRechnung.setMainWindowTitle("Lagerverwaltung", Me)
Me.WindowState = FormWindowState.Maximized
chkOptAddDelWarehouseTotal.Checked = My.Settings.chkWarehouseAddDelTotal.Item(My.Settings.mandant_position)
lblkArtikel.Text = frmJTLRechnung.clsDB.getkArtikelIDbySKU(lblArtikelnummer.Text)
lblMHDOption.Text = frmJTLRechnung.clsDB.getkArtikelMHDOptionbySKU(lblArtikelnummer.Text)
lblVerfügbarALT.Text = frmJTLRechnung.clsDB.getLagerBestandVerfuegbar(lblkArtikel.Text)
txtLagerbestand_alt.Text = frmJTLRechnung.clsDB.getLagerBestandLagerGes(lblkArtikel.Text)
txtLagerbestandNeu.Text = txtLagerbestand_alt.Text
lblVerfügbarNeu.Text = lblVerfügbarALT.Text
txtKommentar.Text = "JTL Bridge Lagerverwaltung"
If lblMHDOption.Text = "1" Then
MonthCalendarMHD.Visible = True
lblMHD.Visible = True
txtMHD.Visible = True
Label8.Visible = True
txtChargenummer.Visible = True
Label7.Visible = True
Else
MonthCalendarMHD.Visible = False
lblMHD.Visible = False
txtMHD.Visible = False
Label8.Visible = False
txtChargenummer.Visible = False
Label7.Visible = False
End If
txtLageranzahl.Focus()
bIsLoading = False
End Sub
Private Sub txtLageranzahl_plus_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtLageranzahl.KeyDown
If e.KeyCode = Keys.Enter Then
btnLagerbestand_save.PerformClick()
End If
End Sub
Private Function setCalcLagerbestand()
If IsNumeric(txtLageranzahl.Text) = False Then
btnLagerbestand_save.Enabled = False
Else
btnLagerbestand_save.Enabled = True
If chkOptAddDelWarehouseTotal.Checked = True Then
txtLagerbestandNeu.Text = Convert.ToInt16(txtLagerbestand_alt.Text) + Convert.ToInt16(txtLageranzahl.Text)
lblVerfügbarNeu.Text = Convert.ToInt16(lblVerfügbarALT.Text) + Convert.ToInt16(txtLageranzahl.Text)
Else
txtLagerbestandNeu.Text = txtLageranzahl.Text
If txtLageranzahl.Text > txtLagerbestand_alt.Text Then
'lblVerfügbarNeu.Text = lblVerfügbarALT.Text - (Convert.ToInt16(txtLageranzahl.Text) - Convert.ToInt16(txtLagerbestand_alt.Text))
lblVerfügbarNeu.Text = lblVerfügbarALT.Text - (Convert.ToInt16(txtLagerbestand_alt.Text) - Convert.ToInt16(txtLageranzahl.Text))
Else
lblVerfügbarNeu.Text = lblVerfügbarALT.Text - (Convert.ToInt16(txtLagerbestand_alt.Text) - Convert.ToInt16(txtLageranzahl.Text))
End If
End If
End If
Return True
End Function
Private Sub txtLageranzahl_plus_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLageranzahl.TextChanged
Try
Call setCalcLagerbestand()
Catch ex As Exception
End Try
End Sub
Private Sub txtLagerbestand_alt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLagerbestand_alt.TextChanged
If IsNumeric(txtLagerbestand_alt.Text) = False Then
btnLagerbestand_save.Enabled = False
Else
btnLagerbestand_save.Enabled = True
End If
End Sub
Private Sub txtLagerbestandNeu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLagerbestandNeu.TextChanged
If IsNumeric(txtLagerbestandNeu.Text) = False Then
btnLagerbestand_save.Enabled = False
Else
btnLagerbestand_save.Enabled = True
End If
End Sub
Private Sub txtLageranzahl_plus_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtLageranzahl.KeyPress
End Sub
Private Sub btnAddWarehouse_Click(sender As System.Object, e As System.EventArgs) Handles btnAddWarehouse.Click
Dim iWarehouseValue = Convert.ToInt16(txtLageranzahl.Text)
txtLageranzahl.Text = iWarehouseValue + 1
End Sub
Private Sub btnDelWarehouse_Click(sender As System.Object, e As System.EventArgs) Handles btnDelWarehouse.Click
Dim iWarehouseValue = Convert.ToInt16(txtLageranzahl.Text)
txtLageranzahl.Text = iWarehouseValue - 1
End Sub
Private Sub chkOptAddDelWarehouseTotal_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkOptAddDelWarehouseTotal.CheckedChanged
My.Settings.chkWarehouseAddDelTotal.Item(My.Settings.mandant_position) = chkOptAddDelWarehouseTotal.Checked
My.Settings.Save()
If bIsLoading = False Then
Call setCalcLagerbestand()
End If
End Sub
Private Sub MonthCalendarMHD_DateChanged(sender As Object, e As DateRangeEventArgs)
txtMHD.Text = e.Start.ToShortDateString()
End Sub
End Class