FIBU, cFakt, etc.
This commit is contained in:
176
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
generated
176
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb
generated
@@ -29,6 +29,14 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.btnNeu = New System.Windows.Forms.Button()
|
||||
Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.pb_merge = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeletePDF2 = New System.Windows.Forms.PictureBox()
|
||||
Me.picPDF2 = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeletePDF = New System.Windows.Forms.PictureBox()
|
||||
Me.picPDF = New System.Windows.Forms.PictureBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
|
||||
@@ -39,11 +47,6 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picEmail = New System.Windows.Forms.PictureBox()
|
||||
Me.picDeletePDF = New System.Windows.Forms.PictureBox()
|
||||
Me.picPDF = New System.Windows.Forms.PictureBox()
|
||||
Me.lblGueltigBis = New System.Windows.Forms.Label()
|
||||
Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -55,17 +58,21 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlDetails.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.pb_merge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picDeletePDF2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picPDF2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picEmail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlDetails.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.AllowDrop = True
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.lblPDFavailable)
|
||||
@@ -135,6 +142,98 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.MyComboBox1.TabIndex = 15
|
||||
Me.MyComboBox1.Visible = False
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.AllowDrop = True
|
||||
Me.Panel1.Controls.Add(Me.pb_merge)
|
||||
Me.Panel1.Controls.Add(Me.picDeletePDF2)
|
||||
Me.Panel1.Controls.Add(Me.picPDF2)
|
||||
Me.Panel1.Controls.Add(Me.picDeleteEmail)
|
||||
Me.Panel1.Controls.Add(Me.picEmail)
|
||||
Me.Panel1.Controls.Add(Me.picDeletePDF)
|
||||
Me.Panel1.Controls.Add(Me.picPDF)
|
||||
Me.Panel1.Location = New System.Drawing.Point(233, 190)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(204, 74)
|
||||
Me.Panel1.TabIndex = 17
|
||||
Me.Panel1.Visible = False
|
||||
'
|
||||
'pb_merge
|
||||
'
|
||||
Me.pb_merge.BackgroundImage = Global.SDL.My.Resources.Resources.picboxPrevious_Enter
|
||||
Me.pb_merge.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
|
||||
Me.pb_merge.Location = New System.Drawing.Point(125, 38)
|
||||
Me.pb_merge.Name = "pb_merge"
|
||||
Me.pb_merge.Size = New System.Drawing.Size(19, 13)
|
||||
Me.pb_merge.TabIndex = 22
|
||||
Me.pb_merge.TabStop = False
|
||||
Me.pb_merge.Visible = False
|
||||
'
|
||||
'picDeletePDF2
|
||||
'
|
||||
Me.picDeletePDF2.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeletePDF2.Location = New System.Drawing.Point(159, 1)
|
||||
Me.picDeletePDF2.Name = "picDeletePDF2"
|
||||
Me.picDeletePDF2.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeletePDF2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeletePDF2.TabIndex = 21
|
||||
Me.picDeletePDF2.TabStop = False
|
||||
Me.picDeletePDF2.Visible = False
|
||||
'
|
||||
'picPDF2
|
||||
'
|
||||
Me.picPDF2.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF2.Location = New System.Drawing.Point(146, 23)
|
||||
Me.picPDF2.Name = "picPDF2"
|
||||
Me.picPDF2.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF2.TabIndex = 20
|
||||
Me.picPDF2.TabStop = False
|
||||
Me.picPDF2.Visible = False
|
||||
'
|
||||
'picDeleteEmail
|
||||
'
|
||||
Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
|
||||
Me.picDeleteEmail.Name = "picDeleteEmail"
|
||||
Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeleteEmail.TabIndex = 19
|
||||
Me.picDeleteEmail.TabStop = False
|
||||
Me.picDeleteEmail.Visible = False
|
||||
'
|
||||
'picEmail
|
||||
'
|
||||
Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
|
||||
Me.picEmail.Location = New System.Drawing.Point(13, 23)
|
||||
Me.picEmail.Name = "picEmail"
|
||||
Me.picEmail.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picEmail.TabIndex = 18
|
||||
Me.picEmail.TabStop = False
|
||||
'
|
||||
'picDeletePDF
|
||||
'
|
||||
Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
|
||||
Me.picDeletePDF.Name = "picDeletePDF"
|
||||
Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeletePDF.TabIndex = 16
|
||||
Me.picDeletePDF.TabStop = False
|
||||
Me.picDeletePDF.Visible = False
|
||||
'
|
||||
'picPDF
|
||||
'
|
||||
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF.Location = New System.Drawing.Point(79, 23)
|
||||
Me.picPDF.Name = "picPDF"
|
||||
Me.picPDF.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF.TabIndex = 17
|
||||
Me.picPDF.TabStop = False
|
||||
Me.picPDF.Visible = False
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -265,61 +364,6 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.txtVermerk.Size = New System.Drawing.Size(364, 23)
|
||||
Me.txtVermerk.TabIndex = 25
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.picDeleteEmail)
|
||||
Me.Panel1.Controls.Add(Me.picEmail)
|
||||
Me.Panel1.Controls.Add(Me.picDeletePDF)
|
||||
Me.Panel1.Controls.Add(Me.picPDF)
|
||||
Me.Panel1.Location = New System.Drawing.Point(307, 190)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(130, 74)
|
||||
Me.Panel1.TabIndex = 17
|
||||
Me.Panel1.Visible = False
|
||||
'
|
||||
'picDeleteEmail
|
||||
'
|
||||
Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
|
||||
Me.picDeleteEmail.Name = "picDeleteEmail"
|
||||
Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeleteEmail.TabIndex = 19
|
||||
Me.picDeleteEmail.TabStop = False
|
||||
Me.picDeleteEmail.Visible = False
|
||||
'
|
||||
'picEmail
|
||||
'
|
||||
Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
|
||||
Me.picEmail.Location = New System.Drawing.Point(13, 23)
|
||||
Me.picEmail.Name = "picEmail"
|
||||
Me.picEmail.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picEmail.TabIndex = 18
|
||||
Me.picEmail.TabStop = False
|
||||
'
|
||||
'picDeletePDF
|
||||
'
|
||||
Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
|
||||
Me.picDeletePDF.Name = "picDeletePDF"
|
||||
Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
|
||||
Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picDeletePDF.TabIndex = 16
|
||||
Me.picDeletePDF.TabStop = False
|
||||
Me.picDeletePDF.Visible = False
|
||||
'
|
||||
'picPDF
|
||||
'
|
||||
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
|
||||
Me.picPDF.Location = New System.Drawing.Point(79, 23)
|
||||
Me.picPDF.Name = "picPDF"
|
||||
Me.picPDF.Size = New System.Drawing.Size(44, 48)
|
||||
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.picPDF.TabIndex = 17
|
||||
Me.picPDF.TabStop = False
|
||||
Me.picPDF.Visible = False
|
||||
'
|
||||
'lblGueltigBis
|
||||
'
|
||||
Me.lblGueltigBis.AutoSize = True
|
||||
@@ -448,13 +492,16 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlDetails.ResumeLayout(False)
|
||||
Me.pnlDetails.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.pb_merge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picDeletePDF2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picPDF2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picEmail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlDetails.ResumeLayout(False)
|
||||
Me.pnlDetails.PerformLayout()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
@@ -488,4 +535,7 @@ Partial Class frmKundenZOLLVollmachten
|
||||
Friend WithEvents lblWarning As Label
|
||||
Friend WithEvents picDeleteEmail As PictureBox
|
||||
Friend WithEvents picEmail As PictureBox
|
||||
Friend WithEvents picDeletePDF2 As PictureBox
|
||||
Friend WithEvents picPDF2 As PictureBox
|
||||
Friend WithEvents pb_merge As PictureBox
|
||||
End Class
|
||||
|
||||
@@ -1,5 +1,10 @@
|
||||
|
||||
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports GrapeCity.Viewer.Common.Model
|
||||
|
||||
Public Class frmKundenZOLLVollmachten
|
||||
Public kdnr As Integer = -1
|
||||
Public filePath As String
|
||||
@@ -203,7 +208,7 @@ Public Class frmKundenZOLLVollmachten
|
||||
.Columns.Clear()
|
||||
|
||||
|
||||
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
||||
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId, kdvm_datenarchivId_2,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
||||
" FROM [tblKundenVollmachtenArt] as art " &
|
||||
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
|
||||
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
|
||||
@@ -214,6 +219,7 @@ Public Class frmKundenZOLLVollmachten
|
||||
.Columns("kdvma_Id").Visible = False
|
||||
.Columns("kdvm_KundenNr").Visible = False
|
||||
.Columns("kdvm_datenarchivId").Visible = False
|
||||
.Columns("kdvm_datenarchivId_2").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
|
||||
@@ -360,18 +366,48 @@ Public Class frmKundenZOLLVollmachten
|
||||
|
||||
Sub checkPDFisPresent()
|
||||
|
||||
'pdf2 nur anzeigen, wenn pdf1 befüllt!
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
picDeletePDF.Visible = True
|
||||
picPDF.Visible = True
|
||||
picPDF.Image = My.Resources.pdf
|
||||
picPDF.AllowDrop = False
|
||||
picPDF.Cursor = Cursors.Default
|
||||
|
||||
picPDF2.Visible = True
|
||||
picPDF2.Image = My.Resources.pdf_gray
|
||||
picPDF2.AllowDrop = True
|
||||
picPDF2.Cursor = Cursors.Hand
|
||||
|
||||
Else
|
||||
picDeletePDF.Visible = False
|
||||
picPDF.Visible = True
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
picPDF.AllowDrop = True
|
||||
picPDF.Cursor = Cursors.Hand
|
||||
|
||||
picDeletePDF2.Visible = False
|
||||
picPDF2.Visible = False
|
||||
|
||||
End If
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 Then
|
||||
|
||||
picDeletePDF2.Visible = True
|
||||
picPDF2.Visible = True
|
||||
picPDF2.Image = My.Resources.pdf
|
||||
picPDF2.AllowDrop = False
|
||||
picPDF2.Cursor = Cursors.Default
|
||||
|
||||
End If
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 AndAlso currentVM.kdvm_datenarchivId > 0 Then
|
||||
pb_merge.Visible = True
|
||||
Else
|
||||
pb_merge.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub checkEmailIsPresent()
|
||||
@@ -507,27 +543,52 @@ Public Class frmKundenZOLLVollmachten
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
|
||||
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click, picPDF2.Click
|
||||
|
||||
If Me.MyComboBox1._value < 0 Then Exit Sub
|
||||
|
||||
Dim DS As Object
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.OPEN_SINGLE()
|
||||
'MsgBox("Open PDF")
|
||||
Else
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
|
||||
Dim path = DS.uploadDataToDATENSERVERFileDialog()
|
||||
Select Case sender.Name
|
||||
Case "picPDF2"
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2)
|
||||
DS.OPEN_SINGLE()
|
||||
'MsgBox("Open PDF")
|
||||
Else
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text & "_2", kdnr)
|
||||
Dim path = DS.uploadDataToDATENSERVERFileDialog()
|
||||
|
||||
If path <> "" Then
|
||||
currentVM.kdvm_datenarchivId_2 = DS.da_id
|
||||
End If
|
||||
|
||||
picDeletePDF2.Visible = True = (currentVM.kdvm_datenarchivId_2 > 0)
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.OPEN_SINGLE()
|
||||
'MsgBox("Open PDF")
|
||||
Else
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
|
||||
Dim path = DS.uploadDataToDATENSERVERFileDialog()
|
||||
|
||||
If path <> "" Then
|
||||
currentVM.kdvm_datenarchivId = DS.da_id
|
||||
End If
|
||||
|
||||
picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
If path <> "" Then
|
||||
currentVM.kdvm_datenarchivId = DS.da_id
|
||||
End If
|
||||
|
||||
picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
@@ -535,22 +596,48 @@ Public Class frmKundenZOLLVollmachten
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
|
||||
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click, picDeletePDF2.Click
|
||||
|
||||
lblPDFavailable.Cursor = Cursors.WaitCursor
|
||||
If (currentVM.kdvm_datenarchivId > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.DELETE_COMPLETE()
|
||||
Select Case sender.Name
|
||||
Case "picDeletePDF2"
|
||||
|
||||
currentVM.kdvm_datenarchivId = -1
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
If (currentVM.kdvm_datenarchivId_2 > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
currentVM.kdvm_datenarchivId_2 = -1
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId_2 = -1 : picDeletePDF2.Visible = False
|
||||
picPDF2.Image = My.Resources.pdf_gray
|
||||
picPDF2.AllowDrop = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Case Else
|
||||
|
||||
If (currentVM.kdvm_datenarchivId > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
currentVM.kdvm_datenarchivId = -1
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
picPDF.AllowDrop = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
lblPDFavailable.Cursor = Cursors.Default
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
@@ -622,9 +709,67 @@ Public Class frmKundenZOLLVollmachten
|
||||
picPDF.Visible = False
|
||||
picDeleteEmail.Visible = False
|
||||
picEmail.Visible = False
|
||||
|
||||
picDeletePDF2.Visible = False
|
||||
picPDF2.Visible = False
|
||||
|
||||
pb_merge.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnUploadPDF_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub pb_merge_Click(sender As Object, e As EventArgs) Handles pb_merge.Click
|
||||
|
||||
If currentVM.kdvm_datenarchivId_2 > 0 AndAlso currentVM.kdvm_datenarchivId > 0 Then
|
||||
|
||||
If vbYes = MsgBox("Möchten sie die zwei PDF-Dokumente miteinander verbinden?", vbYesNoCancel) Then
|
||||
|
||||
|
||||
Dim list As New List(Of String)
|
||||
|
||||
Dim path_File1 As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(currentVM.kdvm_datenarchivId)
|
||||
Dim path_File2 As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(currentVM.kdvm_datenarchivId_2)
|
||||
|
||||
list.Add(path_File1)
|
||||
list.Add(path_File2)
|
||||
|
||||
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Vollmachten_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False)
|
||||
|
||||
If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
|
||||
|
||||
Dim DS1 As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS1.DELETE_COMPLETE()
|
||||
currentVM.kdvm_datenarchivId = -1
|
||||
|
||||
Dim DS2 As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2)
|
||||
DS2.DELETE_COMPLETE()
|
||||
currentVM.kdvm_datenarchivId_2 = -1
|
||||
|
||||
|
||||
Dim DS_NEW = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
|
||||
If DS_NEW.uploadDataToDATENSERVER(pathPDF) Then
|
||||
If pathPDF <> "" Then
|
||||
currentVM.kdvm_datenarchivId = DS_NEW.da_id
|
||||
End If
|
||||
End If
|
||||
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId_2 = -1 : picDeletePDF2.Visible = False
|
||||
picPDF2.Image = My.Resources.pdf_gray
|
||||
picPDF2.AllowDrop = True
|
||||
End If
|
||||
|
||||
picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
|
||||
checkPDFisPresent()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -1,8 +1,6 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.ServiceModel.Configuration
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports SDL.EORI
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Reference in New Issue
Block a user