Fremdrechnungen

SDL/My Project/Resources.Designer.vb

@@ -1034,6 +1034,36 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property Kostenkalkulation_AG() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Kostenkalkulation_AG", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property Kostenkalkulation_CS() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Kostenkalkulation_CS", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property Kostenkalkulation_IMEX() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Kostenkalkulation_IMEX", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

SDL/My Project/Resources.resx

@@ -934,4 +934,13 @@
   <data name="Kostenkalkulation" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Kostenkalkulation.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="Kostenkalkulation_AG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Kostenkalkulation_AG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="Kostenkalkulation_CS" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Kostenkalkulation_CS.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="Kostenkalkulation_IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Kostenkalkulation_IMEX.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
 </root>

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -76,7 +76,7 @@ Public Class usrcntlFremdrechnungen
         KUNDE = kundenSQL.getKundeByKdNr(kdNr)
 
         If KUNDE IsNot Nothing Then
-            dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland from tblKeineMWSTErstattung", "FMZOLL")
+            dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
             dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL")
         End If
 
@@ -355,7 +355,7 @@ Public Class usrcntlFremdrechnungen
             '2.	wenn die Rechnung die Summe NULL aufweist
 
             Select Case aktLieferant
-                Case "UTA" : If Not alle Then SQLWhere &= " AND Gesamtbetrag_Brutto_in_Darstellwährung <> 0" 'UTA
+                Case "UTA" : If Not alle Then SQLWhere &= " AND Gesamtbetrag_Brutto_in_Darstellwährung <> 0 AND Art = 'RE'"  'UTA bei UTA auch EPN ausblenden!
                 Case "PLOSE" : If Not alle Then SQLWhere &= " AND plInv_Bruttobetrag <> 0" 'PLOSE
                 Case "VERAG" : If Not alle Then SQLWhere &= " AND (tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal) <> 0" 'VERAG
                 Case "MSE" : If Not alle Then SQLWhere &= " AND total_amount_euro <> 0" 'MSE
@@ -376,12 +376,13 @@ Public Class usrcntlFremdrechnungen
 
             '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
             If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant = ''").CopyToDataTable
                 Dim counter = 0
                 Dim landBez As String = ""
-                For Each row As DataRow In dtkeineMWST.Rows
+                For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
                     landBez = "'" & row.Item("Erstattungsland") & "'"
                     counter = counter + 1
-                    If (dtkeineMWST.Rows.Count <> 0 And counter <> dtkeineMWST.Rows.Count) Then landBez &= ","
+                    If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
                 Next
                 SQLWhere &= " AND " & land & " not in (" & landBez & ")"
             End If
@@ -447,12 +448,13 @@ Public Class usrcntlFremdrechnungen
             '3.	Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt
 
             If land <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then
+                Dim dtkeineMWST_IDS As DataTable = dtkeineMWST.Select("Lieferant = 'IDS'").CopyToDataTable
                 Dim counter = 0
                 Dim landBez As String = ""
-                For Each row As DataRow In dtkeineMWST.Rows
+                For Each row As DataRow In dtkeineMWST_IDS.Rows
                     landBez = "'" & row.Item("Erstattungsland") & "'"
                     counter = counter + 1
-                    If (dtkeineMWST.Rows.Count <> 0 And counter <> dtkeineMWST.Rows.Count) Then landBez &= ","
+                    If (dtkeineMWST_IDS.Rows.Count <> 0 And counter <> dtkeineMWST_IDS.Rows.Count) Then landBez &= ","
                 Next
                 SQLWhere &= " AND " & land & " not in (" & landBez & ")"
             End If
@@ -687,7 +689,7 @@ Public Class usrcntlFremdrechnungen
                             TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
                             TextHTMLtable &= "</tr>"
 
-                            Dim daId = r.Item("daId")
+                            Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId"))
                             If daId > 0 Then
                                 Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
                                 pdflist.Add(DS.GET_TOP1_PATH())
@@ -704,7 +706,7 @@ Public Class usrcntlFremdrechnungen
                         TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
                         TextHTMLtable &= "</tr>"
 
-                        Dim daId = row.Cells("daId").Value
+                        Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
                         If daId > 0 Then
                             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
                             pdflist.Add(DS.GET_TOP1_PATH())