Gesamtsicherheiten: CSV-Export für Gesamtsicherh + Positionen
This commit is contained in:
14
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
generated
14
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user