gesamtsicherheiten, etc.
This commit is contained in:
@@ -1,6 +1,4 @@
|
||||
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
@@ -147,7 +145,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gs_isRundungsdiff,0) = 0"
|
||||
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_ATBNr], [gs_posNr]"
|
||||
Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_ATBNr],[gs_posNr],[gs_MRNNr], [gs_posSubNr], [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()
|
||||
@@ -166,12 +164,10 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Select Case currentGesSichRef.brgakto_gs_ATR
|
||||
Case True
|
||||
|
||||
If Standort = "Verag GmbH" Then
|
||||
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
|
||||
Else
|
||||
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
|
||||
End If
|
||||
|
||||
.Columns("gs_ATBNr").HeaderText = "Vorpapier/T1"
|
||||
.Columns("gs_MRNNr").HeaderText = "MRN /SumA"
|
||||
.Columns("gs_posSubNr").HeaderText = "SPos"
|
||||
.Columns("gs_posSubNr").Width = 35
|
||||
.Columns("gs_ATBNr").Width = 130
|
||||
.Columns("gs_atr").HeaderText = "ATR"
|
||||
.Columns("gs_atr").Visible = True
|
||||
@@ -181,7 +177,6 @@ Public Class frmGesamtsicherheitenNEU
|
||||
.Columns("gs_ust").DefaultCellStyle.Format = "c2"
|
||||
|
||||
Case Else
|
||||
|
||||
If Standort = "Verag GmbH" Then
|
||||
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
|
||||
Else
|
||||
@@ -189,6 +184,8 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End If
|
||||
.Columns("gs_ATBNr").Width = 150
|
||||
End Select
|
||||
|
||||
Label1.Text = .Columns("gs_ATBNr").HeaderText
|
||||
changeLabel(currentGesSichRef.brgakto_gs_ATR)
|
||||
|
||||
.Columns("gs_posNr").Width = 35
|
||||
@@ -583,7 +580,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress, txtZollsatzueberschreiben.KeyPress
|
||||
Private Sub Warenwert_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtSicherheitWarenwert.KeyPress, txtPosWarenwert.KeyPress, txtAnzahlPos.KeyPress, txtSPosNr.KeyPress, txtZollsatzueberschreiben.KeyPress
|
||||
Select Case Asc(e.KeyChar)
|
||||
Case 48 To 57, 8, 44, 22
|
||||
' Zahlen, Backspace und , zulassen
|
||||
@@ -688,6 +685,8 @@ Public Class frmGesamtsicherheitenNEU
|
||||
.gs_gsNr = gessicherheitID
|
||||
.gs_ATBNr = txtSicherheitATBNr.Text
|
||||
.gs_posNr = count
|
||||
.gs_MRNNr = txtMRNNr.Text
|
||||
.gs_posSubNr = count
|
||||
.gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDat.Text, txtSicherheitTime.Text)
|
||||
.gs_warenwert = warenwert
|
||||
.gs_sicherheitsbetrag = sicherheitsbetrag
|
||||
@@ -714,6 +713,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Case Else
|
||||
With OPEN
|
||||
.gs_posNr = getLatestPosNr(gessicherheitID, txtSicherheitATBNr.Text) + 1
|
||||
.gs_posSubNr = getLatestSPosNr(gessicherheitID, txtMRNNr.Text) + 1
|
||||
End With
|
||||
attachPosNrToExistingATB = True
|
||||
indexGsId = OPEN.SAVEOBJECT()
|
||||
@@ -775,6 +775,8 @@ Public Class frmGesamtsicherheitenNEU
|
||||
With OPEN
|
||||
.gs_gsNr = gessicherheitID
|
||||
.gs_ATBNr = ""
|
||||
.gs_MRNNr = ""
|
||||
.gs_posSubNr = Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
|
||||
.gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
|
||||
.gs_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
|
||||
.gs_warenwert = 0
|
||||
@@ -964,7 +966,9 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.CurrentRow.Cells("gs_gsId").Value, dgvGesamtsicherheit.CurrentRow.Cells("gs_posNr").Value)
|
||||
|
||||
txtSicherheitATBNr.Text = Sicherh.gs_ATBNr
|
||||
txtMRNNr.Text = Sicherh.gs_MRNNr
|
||||
txtAnzahlPos.Text = Sicherh.gs_posNr
|
||||
txtSPosNr.Text = Sicherh.gs_posSubNr
|
||||
txtSicherheitWarenwert.Text = Sicherh.gs_warenwert
|
||||
txtSicherheitFreitext.Text = Sicherh.gs_freitext
|
||||
cboSicherheitATR.SelectedItem = Sicherh.gs_atr
|
||||
@@ -973,6 +977,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
currentSicherheit = Sicherh
|
||||
txtAnzahlPos.Enabled = False
|
||||
txtSPosNr.Enabled = False
|
||||
|
||||
If Sicherh.gs_isRundungsdiff = True Then
|
||||
btnAddSicherheit.Visible = False
|
||||
@@ -995,7 +1000,9 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
With currentSicherheit
|
||||
.gs_ATBNr = txtSicherheitATBNr.Text
|
||||
.gs_MRNNr = txtMRNNr.Text
|
||||
.gs_posNr = Integer.Parse(setNullToZero(txtAnzahlPos.Text))
|
||||
.gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1)
|
||||
.gs_datum = DateTimeString2DateTimeKonvertinator(txtSicherheitDat.Text, txtSicherheitTime.Text)
|
||||
.gs_warenwert = Double.Parse(txtSicherheitWarenwert.Text)
|
||||
.gs_sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
|
||||
@@ -1013,6 +1020,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
currentSicherheit.gs_zuletztgeandert = Now()
|
||||
currentSicherheit.SAVE()
|
||||
txtAnzahlPos.Enabled = True
|
||||
txtSPosNr.Enabled = True
|
||||
btnUpdateSicherheit.Visible = False
|
||||
btnAddSicherheit.Visible = True
|
||||
btnDeleteSicherheit.Visible = False
|
||||
@@ -1182,6 +1190,23 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Function getLatestSPosNr(gs_gsnr As Integer, gs_MRNNr As String) As Integer
|
||||
Dim posNr As Integer = 0
|
||||
Dim sqlq As String = "Select MAX([gs_posSubNr]) As MaxPosNr from [tblGesamtsicherheit] where gs_gsnr = " & gs_gsnr & " And gs_MRNNr = '" & gs_MRNNr & "'"
|
||||
Dim dt As New DataTable
|
||||
dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
|
||||
|
||||
If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
|
||||
|
||||
posNr = dt.Rows(0).Item(0)
|
||||
|
||||
End If
|
||||
|
||||
Return posNr
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs)
|
||||
Try
|
||||
If Me.Visible Then LoadDGVSicherheiten(True)
|
||||
@@ -1643,6 +1668,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
Else
|
||||
lblWarningATB.Text = ""
|
||||
End If
|
||||
Label32.Text = "Vorpapier/T1-Nr"
|
||||
dgvGesamtsicherheit.Enabled = False
|
||||
txtATBNraendern.Text = ATBNr
|
||||
pnlChangeATBNr.Visible = True
|
||||
@@ -1696,19 +1722,44 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End Sub
|
||||
|
||||
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
|
||||
If txtATBNraendern.Text = "" Then
|
||||
MsgBox("Bitte ATR-Nr angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
|
||||
|
||||
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
|
||||
Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
|
||||
sicherh.gs_ATBNr = txtATBNraendern.Text
|
||||
sicherh.SAVE()
|
||||
Select Case Label32.Text
|
||||
|
||||
Case "MRN-Nr"
|
||||
|
||||
If txtATBNraendern.Text = "" Then
|
||||
MsgBox("Bitte MRN-Nr angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
|
||||
|
||||
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
|
||||
Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
|
||||
sicherh.gs_MRNNr = txtATBNraendern.Text
|
||||
sicherh.SAVE()
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
|
||||
If txtATBNraendern.Text = "" Then
|
||||
MsgBox("Bitte ATR-Nr angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
|
||||
|
||||
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
|
||||
Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
|
||||
sicherh.gs_ATBNr = txtATBNraendern.Text
|
||||
sicherh.SAVE()
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
pnlChangeATBNr.Visible = False
|
||||
@@ -1890,7 +1941,9 @@ Public Class frmGesamtsicherheitenNEU
|
||||
With OPEN
|
||||
.gs_gsNr = gessicherheitID
|
||||
.gs_ATBNr = "Korrekt. Rundungsdiff. " & gessicherheitID
|
||||
.gs_MRNNr = ""
|
||||
.gs_posNr = Me.getLatestPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_ATBNr) + 1
|
||||
.gs_posSubNr = Me.getLatestSPosNr(currentSicherheit.gs_gsNr, currentSicherheit.gs_MRNNr) + 1
|
||||
.gs_datum = DateTime.Now
|
||||
.gs_warenwert = 0
|
||||
.gs_sicherheitsbetrag = 0
|
||||
@@ -2008,4 +2061,65 @@ Public Class frmGesamtsicherheitenNEU
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MRNNRÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNNRÄndernToolStripMenuItem.Click
|
||||
Dim MRNNr As String
|
||||
Dim mutlitpleMRNNr As Boolean = False
|
||||
|
||||
MRNNr = dgvGesamtsicherheit.SelectedRows(dgvGesamtsicherheit.SelectedRows.Count - 1).Cells("gs_MRNNr").Value.ToString
|
||||
|
||||
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
|
||||
|
||||
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
|
||||
If row.Cells("gs_MRNNr").Value.ToString <> MRNNr Then
|
||||
mutlitpleMRNNr = True
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If mutlitpleMRNNr Then
|
||||
lblWarningATB.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. MRN-Nr. markiert!"
|
||||
Else
|
||||
lblWarningATB.Text = ""
|
||||
End If
|
||||
Label32.Text = "MRN-Nr"
|
||||
dgvGesamtsicherheit.Enabled = False
|
||||
txtATBNraendern.Text = MRNNr
|
||||
pnlChangeATBNr.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
|
||||
|
||||
|
||||
If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie die " & dgvGesamtsicherheit.SelectedRows.Count & " Datensätze löschen?", vbYesNo) Then
|
||||
For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
|
||||
|
||||
indexGsId = CInt(row.Cells("gs_gsid").Value)
|
||||
indexPosNr = CInt(row.Cells("gs_posNr").Value)
|
||||
currentSicherheit = New cSicherheiten(indexGsId, indexPosNr)
|
||||
|
||||
Dim posNr = currentSicherheit.gs_posNr
|
||||
Dim ATBNr = currentSicherheit.gs_ATBNr
|
||||
Dim gsNr = currentSicherheit.gs_gsNr
|
||||
If currentSicherheit.hasEntry Then
|
||||
currentSicherheit.Delete()
|
||||
rearangePosNr(gsNr, ATBNr, posNr)
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
btnUpdateSicherheit.Visible = False
|
||||
btnAddSicherheit.Visible = True
|
||||
btnDeleteSicherheit.Visible = False
|
||||
txtAnzahlPos.Enabled = True
|
||||
AfterButton()
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user