Feature_Gesamtsicherheiten

2022-10-18 17:03:04 +02:00
parent 1b0c272c32
commit db85cc6243
9 changed files with 2515 additions and 92 deletions
--- a/Aviso/frmGesamtsicherheiten.vb
+++ b/Aviso/frmGesamtsicherheiten.vb
@@ -43,7 +43,7 @@ Public Class frmGesamtsicherheiten
    End Sub

    Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        If setNullToZero(gessicherheitID) = 0 Or Neu = True Then
+        If setNullToZero(gessicherheitID) = "" Or Neu = True Then
            panOben.Enabled = False : panOben.Enabled = False
            panOverlay.Visible = True
            cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
@@ -70,11 +70,11 @@ Public Class frmGesamtsicherheiten


        Dim addtosqlstring As String = ""
-        Dim SQLStringMRN As String = "select [gs_gsId], [gs_kennNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]"
+        Dim SQLStringMRN As String = "select [gs_gsId], [gs_ATBNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]"
        dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,)
        dgvGesamtsicherheitMRN.LOAD()

-        Dim SQLStringCRN As String = "select [gs_gsId], [gs_kennNr], [gs_datum],  [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]"
+        Dim SQLStringCRN As String = "select [gs_gsId], [gs_ATBNr], [gs_datum],  [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]"
        dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,)
        dgvGesamtsicherheitCRN.LOAD()

@@ -84,7 +84,7 @@ Public Class frmGesamtsicherheiten

        If dt.Rows.Count > 0 Then
            'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr")
-            Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialNr"))
+            Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialenNr"))
            Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
            Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))

@@ -104,14 +104,14 @@ Public Class frmGesamtsicherheiten
                .Columns("gs_saldo").Visible = False
                Select Case GesSichRef.gsr_ATR
                    Case True
-                        .Columns("gs_kennNr").HeaderText = "ATB"
+                        .Columns("gs_ATBNr").HeaderText = "ATB"
                        .Columns("gs_atr").HeaderText = "ATR"
                        .Columns("gs_atr").Width = 33
                        .Columns("gs_ust").Width = 69
                    Case Else
-                        .Columns("gs_kennNr").HeaderText = "CRN"
+                        .Columns("gs_ATBNr").HeaderText = "CRN"
                End Select
-                .Columns("gs_kennNr").Width = 146
+                .Columns("gs_ATBNr").Width = 146

                .Columns("gs_posNr").Width = 20
                .Columns("gs_datum").Width = 95
@@ -136,11 +136,11 @@ Public Class frmGesamtsicherheiten
                .Columns("gs_saldo").Visible = False
                Select Case GesSichRef.gsr_ATR
                    Case True
-                        .Columns("gs_kennNr").HeaderText = "ATC / MRN"
+                        .Columns("gs_ATBNr").HeaderText = "ATC / MRN"
                    Case Else
-                        .Columns("gs_kennNr").HeaderText = "CRN"
+                        .Columns("gs_ATBNr").HeaderText = "CRN"
                End Select
-                .Columns("gs_kennNr").Width = 120
+                .Columns("gs_ATBNr").Width = 120
                .Columns("gs_datum").Width = 140
                .Columns("gs_warenwert").Width = 100
                .Columns("gs_sicherheitsbetrag").Width = 100
@@ -252,11 +252,11 @@ Public Class frmGesamtsicherheiten
                Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))

                For count As Integer = 1 To limit
+                    If (count > 1) Then txtMRNWarenwert.Text = 0
+                    Dim OPENWithMultiplePosNr As New cSicherheiten()

-                    Dim OPENNew As New cSicherheiten()
-                    setEnviromentDataToObject(OPENNew, Me)
-                    With OPENNew
-                        .gs_kennNr = txtMRN.Text
+                    With OPENWithMultiplePosNr
+                        .gs_ATBNr = txtMRN.Text
                        .gs_posNr = count
                        .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
                        .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
@@ -268,55 +268,62 @@ Public Class frmGesamtsicherheiten
                        .gs_freitext = Me.txtFreitextOpen.Text
                        .gs_saldo = GesSichRef.gsr_Saldo
                        .gs_atr = setNullToZero(cboATR.SelectedItem)
-
+                        setEnviromentDataToObject(OPENWithMultiplePosNr, Me)
                    End With

-                    If Neu = True Then OPENNew.gs_gsNr = AddNewGesamtSichNr()
+                    If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr()

-                    Select Case checkIfExist(OPENNew.gs_kennNr, gessicherheitID)
+                    Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID)
                        Case "Neu"
-                            OPENNew.SAVE()
+                            OPENWithMultiplePosNr.SAVE()
                        Case Else
-                            MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENNew.gs_kennNr, gessicherheitID) & "eingetragen") : OPENNew.SAVE()
+                            If (count > 1) Then
+                                OPENWithMultiplePosNr.SAVE()
+                            Else
+                                MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID) & "eingetragen") : OPENWithMultiplePosNr.SAVE()
+                            End If
+
                    End Select

-                    'AfterButton()
-
-
                Next

+                AfterButton()
+
+            Else
+
+                'Dim OPEN As New cSicherheiten(Me)
+                Dim OPEN As New cSicherheiten()
+
+                With OPEN
+                    .gs_ATBNr = txtMRN.Text
+                    .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
+                    .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
+                    .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
+                    .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
+                    .gs_standort = Me.Standort
+                    .gs_art = "OPEN"
+                    .gs_gsNr = Me.gessicherheitID
+                    .gs_erstellungsdatum = Me.datum
+                    .gs_freitext = Me.txtFreitextOpen.Text
+                    .gs_saldo = GesSichRef.gsr_Saldo
+                    .gs_atr = setNullToZero(cboATR.SelectedItem)
+                    setEnviromentDataToObject(OPEN, Me)
+                End With
+
+
+                If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr()
+
+                Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID)
+                    Case "Neu"
+                        OPEN.SAVE()
+                    Case Else
+                        MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
+                End Select
+
+
+                AfterButton()
+
            End If
-
-            'Dim OPEN As New cSicherheiten(Me)
-            Dim OPEN As New cSicherheiten()
-            setEnviromentDataToObject(OPEN, Me)
-            With OPEN
-                .gs_kennNr = txtMRN.Text
-                .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
-                .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
-                .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
-                .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
-                .gs_standort = Me.Standort
-                .gs_art = "OPEN"
-                .gs_gsNr = Me.gessicherheitID
-                .gs_erstellungsdatum = Me.datum
-                .gs_freitext = Me.txtFreitextOpen.Text
-                .gs_saldo = GesSichRef.gsr_Saldo
-                .gs_atr = setNullToZero(cboATR.SelectedItem)
-            End With
-
-
-            If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr()
-
-            Select Case checkIfExist(OPEN.gs_kennNr, gessicherheitID)
-                Case "Neu"
-                    OPEN.SAVE()
-                Case Else
-                    MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_kennNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
-            End Select
-
-
-            AfterButton()
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
@@ -327,7 +334,7 @@ Public Class frmGesamtsicherheiten
            'Dim Close As New cSicherheiten(Me)
            Dim Close As New cSicherheiten()
            With Close
-                .gs_kennNr = txtCRN.Text
+                .gs_ATBNr = txtCRN.Text
                .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
                .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
                .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
@@ -341,11 +348,11 @@ Public Class frmGesamtsicherheiten

            If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()

-            Select Case checkIfExist(Close.gs_kennNr, gessicherheitID)
+            Select Case checkIfExist(Close.gs_ATBNr, gessicherheitID)
                Case "Neu"
                    Close.SAVE()
                Case Else
-                    MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_kennNr, gessicherheitID) & "eingetragen") : Exit Sub
+                    MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_ATBNr, gessicherheitID) & "eingetragen") : Exit Sub
            End Select

            AfterButton()
@@ -397,7 +404,7 @@ Public Class frmGesamtsicherheiten
    Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String
        If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID

-        Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_kennNr] = '" & KennnummerStr & "'"
+        Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_ATBNr] = '" & KennnummerStr & "'"
        Dim dt As New DataTable
        dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
        If dt.Rows.Count > 0 Then
@@ -443,7 +450,7 @@ Public Class frmGesamtsicherheiten
        Me.LKWID = txtLKWID.Text

        If setNullToZero(Me.gessicherheitID) >= 0 Then
-            Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
+            Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
            SQL.doSQL(sqlstring, "AVISO")
            LoadDGV()
        End If
@@ -473,10 +480,10 @@ Public Class frmGesamtsicherheiten

    Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick

-        Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
+        Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("gs_gsId").Value)
        'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)

-        txtMRN.Text = Sicherh.gs_kennNr
+        txtMRN.Text = Sicherh.gs_ATBNr
        txtPos.Text = Sicherh.gs_posNr
        txtMRNWarenwert.Text = Sicherh.gs_warenwert
        txtFreitextOpen.Text = Sicherh.gs_freitext
@@ -493,7 +500,7 @@ Public Class frmGesamtsicherheiten

    Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click
        With openopened
-            .gs_kennNr = txtMRN.Text
+            .gs_ATBNr = txtMRN.Text
            .gs_posNr = Double.Parse(setNullToZero(txtPos.Text))
            .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
            .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
@@ -506,7 +513,7 @@ Public Class frmGesamtsicherheiten
            '.saldo = GesSichRef.Saldo
            .gs_atr = setNullToZero(cboATR.SelectedItem)
        End With
-        openopened.Save()
+        openopened.SAVE()
        btnUpdateOpen.Visible = False
        btnAddOpen.Visible = True
        btnDeleteOpen.Visible = False
@@ -515,7 +522,7 @@ Public Class frmGesamtsicherheiten

    Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click
        With closedopened
-            .gs_kennNr = txtCRN.Text
+            .gs_ATBNr = txtCRN.Text
            .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
            .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
            .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
@@ -523,7 +530,7 @@ Public Class frmGesamtsicherheiten
            .gs_art = "CLOSE"
            .gs_freitext = Me.txtFreitextClose.Text
        End With
-        closedopened.Save()
+        closedopened.SAVE()
        btnAddClose.Visible = True
        btnUpdateClose.Visible = False
        btnDeleteClose.Visible = False
@@ -535,7 +542,7 @@ Public Class frmGesamtsicherheiten
        Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
        'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)

-        txtCRN.Text = Sicherh.gs_kennNr
+        txtCRN.Text = Sicherh.gs_ATBNr
        txtCRNWarenwert.Text = Sicherh.gs_warenwert
        txtFreitextClose.Text = Sicherh.gs_freitext
        txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
@@ -602,14 +609,18 @@ Public Class frmGesamtsicherheiten

    Private Sub setEnviromentDataToObject(sicherheiten As cSicherheiten, Optional ByVal gessich As frmGesamtsicherheiten = Nothing)

-        sicherheiten.gs_filialNr = gessich.FilialNummer
+        sicherheiten.gs_filialenNr = gessich.FilialNummer
        sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
        sicherheiten.gs_LKWID = gessich.LKWID
        sicherheiten.gs_warenort = gessich.warenortID
-        sicherheiten.SAVE()
    End Sub

+    Private Sub ClosedErzeugenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClosedErzeugenToolStripMenuItem.Click
+        MsgBox("")

+
+
+    End Sub
 End Class

 'Public Class cSicherheit