Gesamtsicherheiten
This commit is contained in:
@@ -107,7 +107,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
|
||||
End If
|
||||
|
||||
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by gs_gsId"
|
||||
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"
|
||||
|
||||
dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
|
||||
dgvGesamtsicherheit.LOAD()
|
||||
@@ -258,7 +258,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
Dim SQLStringCRN As String =
|
||||
"select [gsp_gspPosId],[gsp_ATCNr],[gsp_datum],[gsp_gsId],[gsp_gsnr],[gsp_warenwert],[gsp_sicherheitsbetrag], [gsp_freitext]" &' ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_MRNNr], [gsp_art]
|
||||
"From [tblGesamtsicherheitsPositionen] where [gsp_gsnr] = '" & gsNr & "'" & sqlSearchSting & " order by [gsp_gsId]"
|
||||
"From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where [gsp_gsnr] = '" & gsNr & "'" & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"
|
||||
|
||||
dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
|
||||
dgvSicherheitsPos.LOAD()
|
||||
@@ -398,7 +398,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDate.KeyPress, txtPosTime.KeyPress, txtSicherheitDate.KeyPress, txtSicherheitTime.KeyPress, txtDatumaendern.KeyPress, txtUhrzeitaendern.KeyPress
|
||||
Private Sub Date_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDate.KeyPress, txtSicherheitDate.KeyPress, txtDatumaendern.KeyPress
|
||||
Select Case Asc(e.KeyChar)
|
||||
Case 48 To 57, 8, 46, 58
|
||||
|
||||
@@ -410,6 +410,25 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosTime.KeyPress, txtSicherheitTime.KeyPress, txtUhrzeitaendern.KeyPress
|
||||
Select Case Asc(e.KeyChar)
|
||||
Case 48 To 57, 8, 46, 58
|
||||
' Zahlen, Backspace, . und : zulassen
|
||||
|
||||
Case Else
|
||||
' alle anderen Eingaben unterdrücken
|
||||
e.Handled = True
|
||||
End Select
|
||||
|
||||
txtPosTime.Text = Replace(txtPosTime.Text, ".", ":")
|
||||
txtPosTime.Select(txtPosTime.Text.Length + 1, 1)
|
||||
txtSicherheitTime.Text = Replace(txtSicherheitTime.Text, ".", ":")
|
||||
txtSicherheitTime.Select(txtPosTime.Text.Length + 1, 1)
|
||||
txtUhrzeitaendern.Text = Replace(txtUhrzeitaendern.Text, ".", ":")
|
||||
txtUhrzeitaendern.Select(txtPosTime.Text.Length + 1, 1)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtMRNDate_GotFocus(sender As Object, e As EventArgs) Handles txtSicherheitDate.GotFocus, txtPosDate.GotFocus, txtSicherheitTime.GotFocus, txtPosTime.GotFocus, txtUhrzeitaendern.GotFocus, txtDatumaendern.GotFocus
|
||||
Select Case sender.name
|
||||
@@ -1343,7 +1362,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Dim ATBNr As String
|
||||
Dim mutlitpleATBNr As Boolean = False
|
||||
|
||||
ATBNr = dgvGesamtsicherheit.SelectedRows(0).Cells("gs_ATBNr").Value.ToString
|
||||
ATBNr = dgvGesamtsicherheit.SelectedRows(dgvGesamtsicherheit.SelectedRows.Count - 1).Cells("gs_ATBNr").Value.ToString
|
||||
|
||||
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
|
||||
|
||||
@@ -1370,10 +1389,13 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Dim tempDatum As String
|
||||
Dim TempUhrzeit As String
|
||||
Dim mutlitpleATCNr As Boolean = False
|
||||
Dim Warenwert As Double
|
||||
|
||||
ATCNr = dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_ATCNr").Value.ToString
|
||||
tempDatum = If(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value IsNot DBNull.Value, CDate(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value).ToString("dd.MM.yyyy"), "")
|
||||
TempUhrzeit = If(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value IsNot DBNull.Value, CDate(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value).ToString("HH:mm"), "")
|
||||
Warenwert = If(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_warenwert").Value IsNot DBNull.Value, CDbl(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_warenwert").Value), "")
|
||||
|
||||
ATCNr = dgvSicherheitsPos.SelectedRows(0).Cells("gsp_ATCNr").Value.ToString
|
||||
tempDatum = If(dgvSicherheitsPos.SelectedRows(0).Cells("gsp_datum").Value IsNot DBNull.Value, CDate(dgvSicherheitsPos.SelectedRows(0).Cells("gsp_datum").Value).ToString("dd.MM.yyyy"), "")
|
||||
TempUhrzeit = If(dgvSicherheitsPos.SelectedRows(0).Cells("gsp_datum").Value IsNot DBNull.Value, CDate(dgvSicherheitsPos.SelectedRows(0).Cells("gsp_datum").Value).ToString("HH:mm"), "")
|
||||
|
||||
If dgvSicherheitsPos.SelectedRows.Count > 0 Then
|
||||
|
||||
@@ -1393,6 +1415,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
txtATCaendern.Text = ATCNr
|
||||
txtDatumaendern.Text = tempDatum
|
||||
txtUhrzeitaendern.Text = TempUhrzeit
|
||||
txtWarenwertContext.Text = Warenwert.ToString
|
||||
pnlChangeATCNr.Visible = True
|
||||
|
||||
|
||||
@@ -1446,11 +1469,24 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If txtWarenwertContext.Text = "" Or Not IsNumeric(txtWarenwertContext().Text) Then
|
||||
MsgBox("Bitte Warenwert angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If dgvSicherheitsPos.SelectedRows.Count > 0 Then
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvSicherheitsPos.SelectedRows
|
||||
|
||||
Dim SicherhPos As New cGesamtsicherheitsPositionen(row.Cells("gsp_gsId").Value, row.Cells("gsp_gspPosId").Value)
|
||||
|
||||
If row.Index = 0 Then
|
||||
SicherhPos.gsp_warenwert = txtWarenwertContext
|
||||
End If
|
||||
|
||||
|
||||
SicherhPos.gsp_ATCNr = txtATCaendern.Text
|
||||
SicherhPos.gsp_datum = DateTimeString2DateTimeKonvertinator(txtDatumaendern.Text, txtUhrzeitaendern.Text)
|
||||
SicherhPos.SAVE()
|
||||
|
||||
Reference in New Issue
Block a user