"
- TextHTMLtable &= "| " & row.Cells("Lieferant").Value & " | "
+ TextHTMLtable &= "" & IIf(dgvLFRechnung.Columns.Contains("Lieferant"), row.Cells("Lieferant").Value, Lieferant) & " | "
TextHTMLtable &= "" & row.Cells("Land").Value & " | "
TextHTMLtable &= "" & row.Cells("Rechnungsdatum").Value & " | "
TextHTMLtable &= "
"
@@ -613,20 +647,20 @@ Public Class usrcntlFremdrechnungen
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
Me.Cursor = Cursors.WaitCursor
- cProgramFunctions.genExcelFromDGV(dgvSDL, True)
+ cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True)
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
Me.Cursor = Cursors.WaitCursor
- cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True)
+ cProgramFunctions.genExcelFromDGV_NEW(dgvLFRechnung, True)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
Me.Cursor = Cursors.WaitCursor
- cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True, True)
+ cProgramFunctions.genExcelFromDGV_NEW(dgvLFRechnung, True, True)
Me.Cursor = Cursors.Default
End Sub
@@ -636,7 +670,7 @@ Public Class usrcntlFremdrechnungen
End Sub
- Private Sub dgvSDL_RELOADED() Handles dgvSDL.RELOADED
+ Private Sub dgvSDL_RELOADED() Handles dgvLFRechnung.RELOADED
' redRows()
End Sub
@@ -646,24 +680,24 @@ Public Class usrcntlFremdrechnungen
Dim vval As Integer
- Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvSDL.GotFocus
+ Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvLFRechnung.GotFocus
'dgvSDL.VerticalScrollingOffset = vval
SplitContainer1.Panel1.VerticalScroll.Value = vval
End Sub
- Private Sub dgvSDL_Enter(sender As Object, e As EventArgs) Handles dgvSDL.Enter
+ Private Sub dgvSDL_Enter(sender As Object, e As EventArgs) Handles dgvLFRechnung.Enter
vval = SplitContainer1.Panel1.VerticalScroll.Value
End Sub
- Private Sub dgvSDL_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSDL.CellContentDoubleClick
+ Private Sub dgvSDL_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvLFRechnung.CellContentDoubleClick
Try
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
Select Case aktSDLNr
Case 502 'VERAG
- Dim ReDat = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
- Dim ReNr = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
+ Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
+ Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
If ReDat IsNot Nothing AndAlso ReNr > 0 Then
Me.Cursor = Cursors.WaitCursor
@@ -672,11 +706,11 @@ Public Class usrcntlFremdrechnungen
End If
Case -1 'ALLE
- Dim Lieferant = dgvSDL.Rows(e.RowIndex).Cells("Lieferant").Value
+ Dim Lieferant = dgvLFRechnung.Rows(e.RowIndex).Cells("Lieferant").Value
If Lieferant = "VERAG" Then
- Dim ReDat = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
- Dim ReNr = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
+ Dim ReDat = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
+ Dim ReNr = dgvLFRechnung.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
If ReDat IsNot Nothing AndAlso ReNr > 0 Then
Me.Cursor = Cursors.WaitCursor
@@ -687,7 +721,7 @@ Public Class usrcntlFremdrechnungen
End If
- Dim daId = dgvSDL.Rows(e.RowIndex).Cells("daId").Value
+ Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
@@ -698,7 +732,7 @@ Public Class usrcntlFremdrechnungen
Case Else
- Dim daId = dgvSDL.Rows(e.RowIndex).Cells("daId").Value
+ Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
@@ -729,4 +763,75 @@ Public Class usrcntlFremdrechnungen
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged
SET_SDL(aktSDLNr)
End Sub
+
+ Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+ With dgvLFRechnung
+
+
+ Dim c As New DataGridViewImageColumn
+ c.Name = "PDF" : c.HeaderText = "PDF"
+ c.DefaultCellStyle.NullValue = Nothing
+ c.ImageLayout = DataGridViewImageCellLayout.Zoom
+ c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+
+
+ If Not .Columns.Contains("PDF") Then .Columns.Add(c)
+
+ For Each r As DataGridViewRow In .Rows
+
+ If IsDBNull(r.Cells("daId").Value) OrElse r.Cells("daId").Value = 0 Then
+ DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf_gray
+
+ End If
+
+
+ Next
+
+
+ If .Columns.Count > 0 Then
+
+ If .Columns.Contains("daId") Then
+ If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False
+ End If
+
+ End If
+
+ End With
+
+
+
+
+ End Sub
+
+ Private Sub setPDFImages()
+
+ Exit Sub 'langsam!!!!
+
+ With dgvLFRechnung
+
+ If Not .Columns.Contains("PDF") Then Exit Sub
+
+ For Each r As DataGridViewRow In .Rows
+
+ If r.Cells("pdfVorhanden").Value Then
+ Try
+ 'DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = Nothing
+ DirectCast(r.Cells("PDF"), DataGridViewImageCell).Value = My.Resources.pdf
+
+ Catch ex As Exception
+ VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+ End Try
+
+
+ End If
+
+
+ Next
+
+
+
+ End With
+
+ End Sub
End Class
diff --git a/SDL/seriendruck/usrCntlFakturierung.Designer.vb b/SDL/seriendruck/usrCntlFakturierung.Designer.vb
index b1918ebd..523989ad 100644
--- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb
+++ b/SDL/seriendruck/usrCntlFakturierung.Designer.vb
@@ -85,6 +85,7 @@ Partial Class usrcntlFakturierung
Me.Label63 = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
+ Me.Button4 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -101,6 +102,7 @@ Partial Class usrcntlFakturierung
'
'GroupBox1
'
+ Me.GroupBox1.Controls.Add(Me.Button4)
Me.GroupBox1.Controls.Add(Me.btnMDMSammelrechnung)
Me.GroupBox1.Controls.Add(Me.btnFakturierung)
Me.GroupBox1.Controls.Add(Me.btnRechnugnsdaten)
@@ -115,9 +117,9 @@ Partial Class usrcntlFakturierung
Me.btnMDMSammelrechnung.Enabled = False
Me.btnMDMSammelrechnung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMDMSammelrechnung.ForeColor = System.Drawing.Color.Black
- Me.btnMDMSammelrechnung.Location = New System.Drawing.Point(414, 19)
+ Me.btnMDMSammelrechnung.Location = New System.Drawing.Point(350, 19)
Me.btnMDMSammelrechnung.Name = "btnMDMSammelrechnung"
- Me.btnMDMSammelrechnung.Size = New System.Drawing.Size(147, 44)
+ Me.btnMDMSammelrechnung.Size = New System.Drawing.Size(121, 44)
Me.btnMDMSammelrechnung.TabIndex = 51
Me.btnMDMSammelrechnung.Text = "MDM Sammelrechnung"
Me.btnMDMSammelrechnung.UseVisualStyleBackColor = True
@@ -129,7 +131,7 @@ Partial Class usrcntlFakturierung
Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
Me.btnFakturierung.Location = New System.Drawing.Point(6, 19)
Me.btnFakturierung.Name = "btnFakturierung"
- Me.btnFakturierung.Size = New System.Drawing.Size(147, 43)
+ Me.btnFakturierung.Size = New System.Drawing.Size(121, 43)
Me.btnFakturierung.TabIndex = 6
Me.btnFakturierung.Text = "Fakturierung"
Me.btnFakturierung.UseVisualStyleBackColor = True
@@ -139,9 +141,9 @@ Partial Class usrcntlFakturierung
Me.btnRechnugnsdaten.Enabled = False
Me.btnRechnugnsdaten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRechnugnsdaten.ForeColor = System.Drawing.Color.Black
- Me.btnRechnugnsdaten.Location = New System.Drawing.Point(201, 18)
+ Me.btnRechnugnsdaten.Location = New System.Drawing.Point(186, 19)
Me.btnRechnugnsdaten.Name = "btnRechnugnsdaten"
- Me.btnRechnugnsdaten.Size = New System.Drawing.Size(147, 44)
+ Me.btnRechnugnsdaten.Size = New System.Drawing.Size(121, 44)
Me.btnRechnugnsdaten.TabIndex = 4
Me.btnRechnugnsdaten.Text = "Rechnungsdaten"
Me.btnRechnugnsdaten.UseVisualStyleBackColor = True
@@ -782,6 +784,17 @@ Partial Class usrcntlFakturierung
Me.Button14.Text = "Rechnungspos. berechnen"
Me.Button14.UseVisualStyleBackColor = True
'
+ 'Button4
+ '
+ Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+ Me.Button4.ForeColor = System.Drawing.Color.Black
+ Me.Button4.Location = New System.Drawing.Point(525, 18)
+ Me.Button4.Name = "Button4"
+ Me.Button4.Size = New System.Drawing.Size(139, 44)
+ Me.Button4.TabIndex = 52
+ Me.Button4.Text = "MDM Lieferantenrechnungen"
+ Me.Button4.UseVisualStyleBackColor = True
+ '
'usrcntlFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -874,4 +887,5 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label2 As Label
Friend WithEvents btnREJdruck As Button
Friend WithEvents btnAbfdruck As Button
+ Friend WithEvents Button4 As Button
End Class
diff --git a/SDL/seriendruck/usrCntlFakturierung.resx b/SDL/seriendruck/usrCntlFakturierung.resx
index 1fda1b15..ed50a967 100644
--- a/SDL/seriendruck/usrCntlFakturierung.resx
+++ b/SDL/seriendruck/usrCntlFakturierung.resx
@@ -120,122 +120,122 @@