LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -104,6 +104,33 @@ Public Class frmMDM_USTVAntrag
                 .Columns("UStVPo_Sachbearbeiter").MinimumWidth = 100
                 .Columns("UStVPo_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
+
+                Dim c As New DataGridViewImageColumn
+                c.Name = "clmnPDF" : c.HeaderText = "Rechnungen"
+                '    c.Image = Nothing
+                c.DefaultCellStyle.NullValue = Nothing
+                c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                'c.DefaultCellStyle.Tag = "Therefore anzeigen"
+
+                .Columns.Add(c)
+
+                For Each r As DataGridViewRow In .Rows
+
+
+                    Dim da_id = -1
+
+                    Select Case If(r.Cells("UStVPo_SchnittstellenNr").Value, -1)
+                        Case 6, 0 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & r.Cells("UStVPo_ReDat").Value & "' and plInv_SupplierRechnungsNr='" & r.Cells("UStVPo_ReNr").Value & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
+                        Case 7 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & r.Cells("UStVPo_ReDat").Value & "' and rmc_reNr='" & r.Cells("UStVPo_ReNr") & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
+                    End Select
+
+                    If da_id > 0 Then
+                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
+                    End If
+
+                Next
+
             End If
 
         End With
@@ -119,14 +146,14 @@ Public Class frmMDM_USTVAntrag
 
         Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
 
-
-
         If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
             lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
         Else
             lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
         End If
 
+        
+
 
     End Sub