Ankunftsanzeige, Lieferantenrechnungen MDM
This commit is contained in:
@@ -1,9 +1,6 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
Imports com.sun.tools.corba.se.idl
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports DocumentFormat.OpenXml.Drawing.Diagrams
|
||||
Imports DocumentFormat.OpenXml.VariantTypes
|
||||
Imports MDM_Worker
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
@@ -1511,22 +1508,25 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
End If
|
||||
|
||||
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)
|
||||
DS.OPEN_SINGLE()
|
||||
If Not IsDBNull(dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value) AndAlso IsNumeric(dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value) Then
|
||||
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)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Case Else
|
||||
|
||||
|
||||
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)
|
||||
DS.OPEN_SINGLE()
|
||||
If Not IsDBNull(dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value) AndAlso IsNumeric(dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value) Then
|
||||
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)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
@@ -1535,12 +1535,13 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
Select Case aktLieferant
|
||||
Case "RMC"
|
||||
|
||||
Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("RE_Anhang_daid").Value
|
||||
If daId > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
||||
DS.OPEN_SINGLE()
|
||||
If Not IsDBNull(dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value) AndAlso IsNumeric(dgvLFRechnung.Rows(e.RowIndex).Cells("daId").Value) Then
|
||||
Dim daId = dgvLFRechnung.Rows(e.RowIndex).Cells("RE_Anhang_daid").Value
|
||||
If daId > 0 Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
@@ -1640,47 +1641,57 @@ Public Class usrcntlFremdrechnungen
|
||||
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,cast(isnull(InvToCustomer, 0) as bit) as OrigRE ,[Country] as Land
|
||||
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country")
|
||||
|
||||
Dim dtRechnugnsdet As DataTable = (New SQL).loadDgvBySql(sql, "FMZOLL")
|
||||
|
||||
If setDatatable Then
|
||||
|
||||
Dim dtRechnugnsdet As DataTable = (New SQL).loadDgvBySql(sql, "FMZOLL")
|
||||
Return dtRechnugnsdet
|
||||
|
||||
End If
|
||||
|
||||
Dim imgGray = My.Resources.pdf_gray
|
||||
Dim imgRed = My.Resources.pdf
|
||||
|
||||
If Not dtRechnugnsdet.Columns.Contains("PDF_Image") Then
|
||||
dtRechnugnsdet.Columns.Add("PDF_Image", GetType(Image))
|
||||
End If
|
||||
|
||||
For Each row As DataRow In dtRechnugnsdet.Rows
|
||||
|
||||
If Convert.ToBoolean(row("PDFvorhanden")) Then
|
||||
row("PDF_Image") = imgRed
|
||||
Else
|
||||
row("PDF_Image") = imgGray
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
With dgvDetails
|
||||
|
||||
.Columns.Clear()
|
||||
.AutoGenerateColumns = True
|
||||
.DataSource = dtRechnugnsdet
|
||||
|
||||
' ImageColumn hinzufügen
|
||||
Dim c As New DataGridViewImageColumn With {
|
||||
.Name = "PDF",
|
||||
.HeaderText = "PDF",
|
||||
.DataPropertyName = "PDF_Image",
|
||||
.ImageLayout = DataGridViewImageCellLayout.Zoom,
|
||||
.Width = 40
|
||||
}
|
||||
|
||||
.Columns.Add(c)
|
||||
|
||||
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
.SET_SQL(sql, "FMZOLL")
|
||||
.LOAD()
|
||||
.ClearSelection()
|
||||
|
||||
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
|
||||
c.Image = My.Resources.pdf_gray
|
||||
|
||||
|
||||
If Not .Columns.Contains("PDF") Then .Columns.Add(c)
|
||||
|
||||
If .Columns.Count > 0 Then
|
||||
|
||||
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
|
||||
|
||||
If .Columns.Contains("daId") Then
|
||||
If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False
|
||||
End If
|
||||
|
||||
Next
|
||||
' daId ausblenden
|
||||
If .Columns.Contains("daId") Then
|
||||
.Columns("daId").Visible = False
|
||||
End If
|
||||
|
||||
If .Columns.Contains("PDF_Image") Then
|
||||
.Columns("PDF_Image").Visible = False
|
||||
End If
|
||||
|
||||
End With
|
||||
|
||||
Reference in New Issue
Block a user