edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix

Browse Source
This commit is contained in:
d.breimaier
2026-01-15 11:53:55 +01:00
parent f7206e90b9
commit d00edda180
2 changed files with 23 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

@@ -258,7 +258,6 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.MailHochladenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -3367,34 +3366,34 @@ Partial Class usrCntlKundenuebersicht
' '
Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.del Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.del
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(180, 22) Me.ToolStripMenuItem3.Size = New System.Drawing.Size(139, 22)
Me.ToolStripMenuItem3.Text = "Löschen" Me.ToolStripMenuItem3.Text = "Löschen"
' '
'ÄndernToolStripMenuItem 'ÄndernToolStripMenuItem
' '
Me.ÄndernToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift Me.ÄndernToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift
Me.ÄndernToolStripMenuItem.Name = "ÄndernToolStripMenuItem" Me.ÄndernToolStripMenuItem.Name = "ÄndernToolStripMenuItem"
Me.ÄndernToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ÄndernToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.ÄndernToolStripMenuItem.Text = "Ändern" Me.ÄndernToolStripMenuItem.Text = "Ändern"
' '
'HochladenToolStripMenuItem 'HochladenToolStripMenuItem
' '
Me.HochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf Me.HochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
Me.HochladenToolStripMenuItem.Name = "HochladenToolStripMenuItem" Me.HochladenToolStripMenuItem.Name = "HochladenToolStripMenuItem"
Me.HochladenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.HochladenToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.HochladenToolStripMenuItem.Text = "Hochladen" Me.HochladenToolStripMenuItem.Text = "Hochladen"
' '
'ScannenToolStripMenuItem 'ScannenToolStripMenuItem
' '
Me.ScannenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.scanner1 Me.ScannenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.scanner1
Me.ScannenToolStripMenuItem.Name = "ScannenToolStripMenuItem" Me.ScannenToolStripMenuItem.Name = "ScannenToolStripMenuItem"
Me.ScannenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ScannenToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.ScannenToolStripMenuItem.Text = "Scannen" Me.ScannenToolStripMenuItem.Text = "Scannen"
' '
'PDFLöschenToolStripMenuItem 'PDFLöschenToolStripMenuItem
' '
Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem"
Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(139, 22)
Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
' '
'ContextMenuStrip2 'ContextMenuStrip2
@@ -3423,55 +3422,48 @@ Partial Class usrCntlKundenuebersicht
' '
'ContextMenuStrip4 'ContextMenuStrip4
' '
Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.MailHochladenToolStripMenuItem1, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.GültigungültigToolStripMenuItem}) Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.GültigungültigToolStripMenuItem})
Me.ContextMenuStrip4.Name = "ContextMenuStrip1" Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
Me.ContextMenuStrip4.Size = New System.Drawing.Size(181, 180) Me.ContextMenuStrip4.Size = New System.Drawing.Size(156, 136)
' '
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(156, 22) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
Me.ToolStripMenuItem1.Text = "Löschen" Me.ToolStripMenuItem1.Text = "Löschen"
' '
'ToolStripMenuItem4 'ToolStripMenuItem4
' '
Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(156, 22) Me.ToolStripMenuItem4.Size = New System.Drawing.Size(155, 22)
Me.ToolStripMenuItem4.Text = "Ändern" Me.ToolStripMenuItem4.Text = "Ändern"
' '
'ToolStripMenuItem5 'ToolStripMenuItem5
' '
Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.pdf Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.pdf
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(156, 22) Me.ToolStripMenuItem5.Size = New System.Drawing.Size(155, 22)
Me.ToolStripMenuItem5.Text = "Hochladen" Me.ToolStripMenuItem5.Text = "Hochladen"
' '
'MailHochladenToolStripMenuItem1
'
Me.MailHochladenToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.email_big1
Me.MailHochladenToolStripMenuItem1.Name = "MailHochladenToolStripMenuItem1"
Me.MailHochladenToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.MailHochladenToolStripMenuItem1.Text = "EMail hochladen"
'
'ToolStripMenuItem6 'ToolStripMenuItem6
' '
Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1 Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(156, 22) Me.ToolStripMenuItem6.Size = New System.Drawing.Size(155, 22)
Me.ToolStripMenuItem6.Text = "Scannen" Me.ToolStripMenuItem6.Text = "Scannen"
' '
'ToolStripMenuItem7 'ToolStripMenuItem7
' '
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(156, 22) Me.ToolStripMenuItem7.Size = New System.Drawing.Size(155, 22)
Me.ToolStripMenuItem7.Text = "PDF löschen" Me.ToolStripMenuItem7.Text = "PDF löschen"
' '
'GültigungültigToolStripMenuItem 'GültigungültigToolStripMenuItem
' '
Me.GültigungültigToolStripMenuItem.Name = "GültigungültigToolStripMenuItem" Me.GültigungültigToolStripMenuItem.Name = "GültigungültigToolStripMenuItem"
Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(156, 22) Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig" Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig"
' '
'btnReloadOP 'btnReloadOP

43
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1,8 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports GrapeCity.ActiveReports.ReportsCore.Tools
Imports GrapeCity.Viewer.Common.Model
Imports org.BouncyCastle.Asn1.Ocsp Imports org.BouncyCastle.Asn1.Ocsp
Imports SDL.EORI Imports SDL.EORI
Imports sun.util.resources.cldr.aa Imports sun.util.resources.cldr.aa
@@ -2514,8 +2512,6 @@ Public Class usrCntlKundenuebersicht
Private Sub HochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HochladenToolStripMenuItem.Click Private Sub HochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HochladenToolStripMenuItem.Click
If dgvGestGarantie.SelectedRows.Count = 1 Then If dgvGestGarantie.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & dgvGestGarantie.SelectedRows(0).Cells("gg_Zollamt").Value, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim gg As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) Dim gg As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value)
@@ -2523,7 +2519,6 @@ Public Class usrCntlKundenuebersicht
gg.SAVE() gg.SAVE()
initDGVGestGarantie() initDGVGestGarantie()
End If End If
End If End If
End Sub End Sub
@@ -2648,35 +2643,17 @@ Public Class usrCntlKundenuebersicht
End If End If
End Sub End Sub
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click, MailHochladenToolStripMenuItem1.Click Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
If dgvVertraege.SelectedRows.Count = 1 Then If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Select Case sender.Name Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
Case "ToolStripMenuItem5" If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then KV.kv_datenarchivId = DS.da_id
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr) KV.SAVE()
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then initDGVVertraege()
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) End If
KV.kv_datenarchivId = DS.da_id End If
KV.SAVE()
initDGVVertraege()
End If
End If
Case "MailHochladenToolStripMenuItem1"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
initDGVVertraege()
End If
End If
End Select
End If End If
End Sub End Sub