From afe37f7d7f2232970f7f91199a9f0e8c70ace65c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 9 Nov 2022 12:06:41 +0100 Subject: [PATCH] =?UTF-8?q?Gesamtsicherheiten:=20CSV-Export=20f=C3=BCr=20G?= =?UTF-8?q?esamtsicherh=20+=20Positionen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../frmGesamtsicherheitenMenuNEU.Designer.vb | 14 +- Aviso/frmGesamtsicherheitenMenuNEU.vb | 142 ++++++++++++++---- Aviso/frmGesamtsicherheitenNEU.vb | 27 ++++ 3 files changed, 148 insertions(+), 35 deletions(-) diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb index 2e6ebf7..4cc4253 100644 --- 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 diff --git a/Aviso/frmGesamtsicherheitenMenuNEU.vb b/Aviso/frmGesamtsicherheitenMenuNEU.vb index c618194..6d04d57 100644 --- 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 diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 3926f19..8e4914e 100644 --- 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