Feature_GesamtsicherheitenNEU

2022-10-19 09:46:29 +02:00
parent db85cc6243
commit 5647343b76
4 changed files with 226 additions and 246 deletions
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -6,14 +6,23 @@ Imports VERAG_PROG_ALLGEMEIN

 Public Class frmGesamtsicherheitenNEU

+
+
+    Dim openopened As cSicherheiten
+
+    Dim closedopened As cSicherheiten
+
+    Dim sicherheiten As cSicherheiten
+    Property GesSichRef As cGesamtsicherheitsReferenz
+    Property GesSichPos As cGesamtsicherheitsPositionen
    Public Property gessicherheitID As Integer
    Public Property datum As DateTime = Nothing
-    Property GesSichRef As cGesamtsicherheitsReferenz
-    Property GesSichPos As cGesamtssicherheitsPositionen
    Property Standort As String = ""

    Public ZollsatzMulti As Double = 0

+    Public Zollsatz As Double
+
    Public Saldo As Integer = 0

    Public Neu As Boolean = False
@@ -26,26 +35,21 @@ Public Class frmGesamtsicherheitenNEU

    Public warenortID As String

-    Dim openopened As cSicherheiten
-
-    Dim closedopened As cSicherheiten
-
-    Dim sicherheiten As cSicherheiten
-
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
+
    Dim srcTAG As Date = CDate(Now.ToShortDateString)

    Dim JAHR As Date = CDate("01.01." & Now.Year)

-    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
+    Private Sub btn_resetSearch_Click(sender As Object, e As EventArgs) Handles btn_resetSearch.Click

        Dim dgv As String = ""
        For Each c As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
            dgv &= c.Width & c.HeaderText & vbCrLf
        Next
-        '  MsgBox(dgv)
+
        LoadDGV()
        GesSichRef.LOAD()
        LoadStandort()
@@ -58,23 +62,24 @@ Public Class frmGesamtsicherheitenNEU

        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)
-            cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+            'panOverlay.Visible = True
+            cbxFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+            cbxFiliale.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
            If datum = Nothing Then datum = Date.Now
        Else
            LoadDGV()
        End If
        LoadStandort()
        cboATR.Enabled = GesSichRef.gsr_ATR
+        Zollsatz = GesSichRef.gsr_zollsatz

        Me.Text = "Gesamtsicherheit " & Standort
-        frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
+        frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitPositionen)
    End Sub


    Public Sub LoadDGV()
-        'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N")
+
        lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
        lblGestellungNr.Text = ""
        Dim sqladd1 As String = ""
@@ -83,24 +88,25 @@ Public Class frmGesamtsicherheitenNEU


        Dim addtosqlstring As String = ""
-        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]"
+        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 & "' order by [gs_datum]"
        dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,)
        dgvGesamtsicherheitMRN.LOAD()

-        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()
+        Dim SQLStringCRN As String = "select [gsp_gspPosId] ,[gsp_gsId],[gsp_warenwert],[gsp_sicherheitsbetrag],[gsp_freitext],[gsp_art] ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_ATCNr] ,[gsp_MRNNr] from [tblGesamtsicherheitsPositionen] where [gsp_gsId] = '" & gessicherheitID & "' order by [gsp_gspPosId]"
+        dgvGesamtsicherheitPositionen.SET_SQL(SQLStringCRN, "AVISO", ,)
+        dgvGesamtsicherheitPositionen.LOAD()

        Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
        Dim dt As New DataTable
        dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)

        If dt.Rows.Count > 0 Then
-            'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr")
+            Me.LKWID = setNullToZero(dt.Rows(0).Item("gs_LKWID"))
            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"))

+            If Me.LKWID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWID & " "
            If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
            If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
            If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
@@ -134,15 +140,13 @@ Public Class frmGesamtsicherheitenNEU
                .Columns("gs_sicherheitsbetrag").Width = 100
                .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            End With
-            ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
-            'col.Width = 120
-            'Next
+
        End If

-        If dgvGesamtsicherheitCRN.Columns.Count > 0 Then
-            With dgvGesamtsicherheitCRN
+        If dgvGesamtsicherheitPositionen.Columns.Count > 0 Then
+            With dgvGesamtsicherheitPositionen
                .RowHeadersWidth = 10
-                .Columns("gs_gsId").Visible = False
+                .Columns("gsp_gsId").Visible = False
                .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
                .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                .Columns("gs_saldo").DefaultCellStyle.Format = "c"
@@ -159,9 +163,7 @@ Public Class frmGesamtsicherheitenNEU
                .Columns("gs_sicherheitsbetrag").Width = 100
                .Columns("gs_freitext").Width = 220
            End With
-            'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns
-            '    col.Width = 120
-            'Next
+
        End If


@@ -169,13 +171,7 @@ Public Class frmGesamtsicherheitenNEU


    Public Sub LoadStandort()
-        'Dim StandortSqlString As String = "select * from [tblGesamtsicherheitReferenz] where Standort = " & "'" & Standort & "'"
-        'Dim dt As New DataTable
-        'dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
-        'Zollsatz = dt.Rows(0).Item("Zollsatz")
-        'Referenzwert = dt.Rows(0).Item("Referenzwert")

-        'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
        ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
@@ -260,83 +256,68 @@ Public Class frmGesamtsicherheitenNEU
    Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
        Try

-            If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then

-                Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))
+            Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))

-                For count As Integer = 1 To limit
+            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
+
+
+            For count As Integer = 1 To limit
                    If (count > 1) Then txtMRNWarenwert.Text = 0
-                    Dim OPENWithMultiplePosNr As New cSicherheiten()

-                    With OPENWithMultiplePosNr
-                        .gs_ATBNr = txtMRN.Text
-                        .gs_posNr = count
-                        .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(OPENWithMultiplePosNr, Me)
-                    End With
+                Dim OPENPos As New cGesamtsicherheitsPositionen()

-                    If Neu = True AndAlso count <= 1 Then OPENWithMultiplePosNr.gs_gsNr = AddNewGesamtSichNr()
-
-                    Select Case checkIfExist(OPENWithMultiplePosNr.gs_ATBNr, gessicherheitID)
-                        Case "Neu"
-                            OPENWithMultiplePosNr.SAVE()
-                        Case Else
-                            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
-
-                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)
+                With OPENPos
+                    .gsp_gsId = OPEN.gs_gsId
+                    .gsp_gspPosId = count
+                    .gsp_warenwert = 0
+                    .gsp_sicherheitsbetrag = 0
+                    .gsp_freitext = ""
+                    .gsp_filialenNr = OPEN.gs_filialenNr
+                    .gsp_art = "OPEN"
+                    .gsp_abfertigungsNr = ""
+                    .gsp_avisoId = ""
+                    .gsp_ust = OPEN.gs_ust
+                    .gsp_ATCNr = ""
+                    .gsp_MRNNr = ""
                End With


-                If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr()
+                If Neu = True AndAlso count <= 1 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()
+                        If (count > 1) Then
+                            OPEN.SAVE()
+                        Else
+                            MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_ATBNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
+                        End If
+
                End Select

+            Next

                AfterButton()

-            End If
+
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
@@ -494,7 +475,6 @@ Public Class frmGesamtsicherheitenNEU
    Private Sub dgvGesamtsicherheitMRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitMRN.CellDoubleClick

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

        txtMRN.Text = Sicherh.gs_ATBNr
        txtPos.Text = Sicherh.gs_posNr
@@ -550,10 +530,9 @@ Public Class frmGesamtsicherheitenNEU
        AfterButton()
    End Sub

-    Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitCRN.CellDoubleClick
+    Private Sub dgvGesamtsicherheitCRN_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGesamtsicherheitPositionen.CellDoubleClick

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

        txtCRN.Text = Sicherh.gs_ATBNr
        txtCRNWarenwert.Text = Sicherh.gs_warenwert
@@ -639,18 +618,12 @@ Public Class frmGesamtsicherheitenNEU
                DateTimePicker1.Value = MONAT
                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
            Case "Jahr"
-                '  If cbxGeschaftsjahr.Checked Then
-                'DateTimePicker1.Value = JAHR.AddMonths(1)
-                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
-                ' Else
+
                DateTimePicker1.Value = JAHR
                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
                'End If
            Case "Tag"
-                '  If cbxGeschaftsjahr.Checked Then
-                'DateTimePicker1.Value = JAHR.AddMonths(1)
-                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
-                ' Else
+
                DateTimePicker1.Value = srcTAG
                DateTimePicker2.Value = srcTAG
                If srcTAG = Now.ToShortDateString Then
@@ -699,6 +672,12 @@ Public Class frmGesamtsicherheitenNEU
        txtDatBis._value = CDate(sender.value).ToShortDateString
    End Sub

+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles btnNeu.Click

+    End Sub
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+
+    End Sub
 End Class