Gesamtsicherheiten: CSV-Export für Gesamtsicherh + Positionen

2022-11-09 12:06:41 +01:00
parent 2a0420a46c
commit afe37f7d7f
3 changed files with 148 additions and 35 deletions
--- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
@@ -63,6 +63,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblSaldo = New System.Windows.Forms.Label()
        Me.lblZollsatz = New System.Windows.Forms.Label()
        Me.lblReferenzwert = New System.Windows.Forms.Label()
+        Me.ExportCSV2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -85,14 +86,14 @@ Partial Class frmGesamtsicherheitenMenuNEU
        '
        'ContextMenuStrip1
        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.ExportCSV2ToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 70)
        '
        'ExportCSVToolStripMenuItem
        '
        Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
-        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
        '
        'Panel1
@@ -647,6 +648,12 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblReferenzwert.TabIndex = 6
        Me.lblReferenzwert.Text = "Referenzwert: -"
        '
+        'ExportCSV2ToolStripMenuItem
+        '
+        Me.ExportCSV2ToolStripMenuItem.Name = "ExportCSV2ToolStripMenuItem"
+        Me.ExportCSV2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExportCSV2ToolStripMenuItem.Text = "Export CSV Details"
+        '
        'frmGesamtsicherheitenMenuNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -707,4 +714,5 @@ Partial Class frmGesamtsicherheitenMenuNEU
    Friend WithEvents Label25 As Label
    Friend WithEvents DateTimePicker1 As DateTimePicker
    Friend WithEvents btnOpenOver85Days As VERAG_PROG_ALLGEMEIN.FlatButton
+    Friend WithEvents ExportCSV2ToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmGesamtsicherheitenMenuNEU.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb
@@ -234,7 +234,7 @@ Public Class frmGesamtsicherheitenMenuNEU
        csvexport(dgvListe)
    End Sub

-    Public Shared Function csvexport(quelldgv As DataGridView)
+    Public Shared Function csvexport(quelldgv As DataGridView, Optional quelldgv2 As DataGridView = Nothing)
        Dim savefiledialog As New SaveFileDialog
        Dim firstin As String
        Dim out As String
@@ -245,40 +245,98 @@ Public Class frmGesamtsicherheitenMenuNEU
        savefiledialog.InitialDirectory = "C:\Verag"
        savefiledialog.ShowDialog()

+        If quelldgv2 IsNot Nothing Then

-        Try
-            For r As Integer = 0 To quelldgv.Rows.Count - 1
-                For c As Integer = 0 To quelldgv.Columns.Count
-                    'test &= r & c & vbCrLf
-                    Try
-                        'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
-                        firstin = quelldgv.Rows(r).Cells(c).Value.ToString
-                        'in2 = """" & firstin & """" & ";"
-                        in2 = firstin & ";"
-                        out &= Replace(in2, vbCrLf, "##vbCrLf##")
-                        out = Replace(out, "€", "")
-                    Catch ex As Exception
-                        out &= ""
-                    End Try
+            Try
+                For r As Integer = 0 To quelldgv.Rows.Count - 1
+                    For c As Integer = 0 To quelldgv.Columns.Count
+                        'test &= r & c & vbCrLf
+                        Try
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                            firstin = quelldgv.Rows(r).Cells(c).Value.ToString
+                            'in2 = """" & firstin & """" & ";"
+                            in2 = firstin & ";"
+                            out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                            out = Replace(out, "€", "")
+                        Catch ex As Exception
+                            out &= ""
+                        End Try

+                    Next
+
+                    For c As Integer = 0 To quelldgv2.Columns.Count
+                        'test &= r & c & vbCrLf
+                        Try
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                            firstin = quelldgv2.Rows(r).Cells(c).Value.ToString
+                            'in2 = """" & firstin & """" & ";"
+                            in2 = firstin & ";"
+                            out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                            out = Replace(out, "€", "")
+                        Catch ex As Exception
+                            out &= ""
+                        End Try
+
+                    Next
+
+                    out &= "nZ"
                Next
+                For c As Integer = 0 To quelldgv.Columns.Count - 1
+                    header &= quelldgv.Columns(c).Name & ";"
+                Next
+                For c As Integer = 0 To quelldgv2.Columns.Count - 1
+                    header &= quelldgv2.Columns(c).Name & ";"
+                Next
+                out = Replace(out, "nZ", vbCrLf)
+                'MsgBox(out)
+                Using sw As New IO.StreamWriter(savefiledialog.FileName)
+                    sw.WriteLine(header)
+                    sw.WriteLine(out)
+                End Using

-                out &= "nZ"
-            Next
-            For c As Integer = 0 To quelldgv.Columns.Count - 1
-                header &= quelldgv.Columns(c).Name & ";"
-            Next
-            out = Replace(out, "nZ", vbCrLf)
-            'MsgBox(out)
-            Using sw As New IO.StreamWriter(savefiledialog.FileName)
-                sw.WriteLine(header)
-                sw.WriteLine(out)
-            End Using
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
+
+
+        Else
+
+            Try
+                For r As Integer = 0 To quelldgv.Rows.Count - 1
+                    For c As Integer = 0 To quelldgv.Columns.Count
+                        'test &= r & c & vbCrLf
+                        Try
+                            'test &= Replace(quelldgv.Rows(r).Cells(c).Value.ToString, vbCrLf, "vbCrlLf")
+                            firstin = quelldgv.Rows(r).Cells(c).Value.ToString
+                            'in2 = """" & firstin & """" & ";"
+                            in2 = firstin & ";"
+                            out &= Replace(in2, vbCrLf, "##vbCrLf##")
+                            out = Replace(out, "€", "")
+                        Catch ex As Exception
+                            out &= ""
+                        End Try
+
+                    Next
+
+                    out &= "nZ"
+                Next
+                For c As Integer = 0 To quelldgv.Columns.Count - 1
+                    header &= quelldgv.Columns(c).Name & ";"
+                Next
+                out = Replace(out, "nZ", vbCrLf)
+                'MsgBox(out)
+                Using sw As New IO.StreamWriter(savefiledialog.FileName)
+                    sw.WriteLine(header)
+                    sw.WriteLine(out)
+                End Using
+
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
+        End If
    End Function

+
    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
    Dim TAG As Date = CDate(Now.ToShortDateString)
    Dim JAHR As Date = CDate("01.01." & Now.Year)
@@ -401,7 +459,7 @@ Public Class frmGesamtsicherheitenMenuNEU

        Dim dtNew As New DataTable

-            Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum, 
+        Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum, 
                  (Select SUM( Case 
 			when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
 			when gs_art = 'Close' then gs_sicherheitsbetrag
@@ -417,7 +475,7 @@ Public Class frmGesamtsicherheitenMenuNEU
            From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
            Where gs_standort = '" & Standort & "'  AND Sicherheitssaldo != '0' AND gs_datum < '" & Date.Now().AddDays(-85) & "'"

-            dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
+        dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)

        If (dtNew.Rows(0).Item(0) IsNot DBNull.Value) Then

@@ -426,7 +484,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                MsgBox("Es sind " & anzahlOffenerGSUeber85Tage & " ATBs offen, die älter als 85 Tage sind!")
            End If
            Return anzahlOffenerGSUeber85Tage
-            End If
+        End If



@@ -435,4 +493,24 @@ Public Class frmGesamtsicherheitenMenuNEU
    Private Sub ExportCSVToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExportCSVToolStripMenuItem.Click
        csvexport(dgvListe)
    End Sub
+
+    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSV2ToolStripMenuItem.Click
+
+        Dim frm As New frmGesamtsicherheitenNEU
+        With frm
+            .currentGesSichRef = GesSichRef
+            .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
+            .Standort = Me.Standort
+            .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
+            .LKWKZ = dgvListe.CurrentRow.Cells("gs_LKWKZ").Value
+            .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
+            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
+            .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
+            .dataTable = Me.dataTable
+        End With
+
+        frm.LoadDGVSicherheitenForExport()
+        frm.LoadDGVSicherheitsPosForExport(frm.gessicherheitID)
+        csvexport(frm.dgvGesamtsicherheit, frm.dgvSicherheitsPos)
+    End Sub
 End Class
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -148,6 +148,19 @@ Public Class frmGesamtsicherheitenNEU

    End Sub

+    Public Sub LoadDGVSicherheitenForExport(Optional withFilterParam As Boolean = False)
+
+
+
+        Dim SQLStringSicherheit As String = "select [gs_gsId] as Id, [gs_ATBNr] as 'ATB Verwahrlager', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'  from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & "order by gs_gsId"
+
+        dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
+        dgvGesamtsicherheit.LOAD()
+
+    End Sub
+
+
+
    Private Sub dgvGesamtsicherheit_SelectionChanged(sender As Object, e As EventArgs) Handles dgvGesamtsicherheit.SelectionChanged
        If dgvGesamtsicherheit.SelectedRows.Count > 0 Then

@@ -220,6 +233,20 @@ Public Class frmGesamtsicherheitenNEU

    End Sub

+    Public Sub LoadDGVSicherheitsPosForExport(gsNr As Integer, Optional withFilterParam As Boolean = False)
+
+        Dim sqlSearchSting As String = ""
+
+        Dim SQLStringCRN As String =
+            "select [gsp_gsId] as ID, [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_erstellungsdatum as Date) as Datum, CONVERT(VARCHAR(5),gsp_erstellungsdatum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag, [gsp_freitext] as Freitext" &' ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_MRNNr], [gsp_art]
+                " From [tblGesamtsicherheitsPositionen] where [gsp_gsnr] = '" & gsNr & "' order by [gsp_gsId]"
+
+        dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
+        dgvSicherheitsPos.LOAD()
+
+    End Sub
+
+
    'Private Sub dgvSicherheitsPos_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSicherheitsPos.SelectionChanged
    '    If dgvSicherheitsPos.SelectedRows.Count > 0 Then