fakt, Kundenblatt, ustv, etc.

SDL/Fakturierung/frmFaktEmail.vb

@@ -1097,8 +1097,24 @@ Public Class frmFaktEmail
                         list3megered = FormularManagerNEU.MergePdfFiles(myListPOSLIST, zielPfadZusammenfassung_POSListe)
                     End If
 
+                    If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
+
+                        'bei RMC und Durmaz doch wieder alles in einem Anhang !!!!!!!!!!!!!!!!!!!!!!!!!!!!
+                        For Each a In myListLiefereranten
+                            myList.Add(a)
+                        Next
+
+                        For Each a In myListPOSLIST
+                            myList.Add(a)
+                        Next
+
+                        If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
+                            ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
+                        End If
 
 
+                    Else
+                        'Ansonsten extra!!!!
                         If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
                             ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
                             If myListLiefereranten.Count > 0 AndAlso list2megered Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
@@ -1106,6 +1122,8 @@ Public Class frmFaktEmail
 
                         End If
 
+                    End If
+
 
                 Else
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.2.6")>
-<Assembly: AssemblyFileVersion("1.4.2.6")>
+<Assembly: AssemblyVersion("1.4.2.9")>
+<Assembly: AssemblyFileVersion("1.4.2.9")>

SDL/USTV/usrCntlUSTV.vb

@@ -206,7 +206,7 @@ Public Class usrCntlUSTV
                 Risiko = 0
             End If
 
-
+            'Beim Differenzbetrag
             Differnezbetrag = GesamtUSteuer - GesamtErstattung
 
 

SDL/kunden/frmKundenblatt.vb

@@ -1982,7 +1982,7 @@ Public Class frmKundenblatt
             .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
             .Columns(7).Width = 20
-            .Columns(6).DefaultCellStyle.Format = "N0"
+            .Columns(6).DefaultCellStyle.Format = "N2"
             .Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
             .Columns(8).Width = 70

SDL/seriendruck/usrCntlFakturierung.vb

@@ -2181,14 +2181,9 @@ Public Class usrcntlFakturierung
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnLieferantenrechnungen.Click
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", "SDL") = 0 Then
-
         Dim frm As New frmMDMLieferantenrechnungen
         frm.Show(Me)
 
-        End If
-
-
     End Sub
 
 

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -159,7 +159,7 @@ Public Class cMDMFunctionsAllgemein
                     'Deswegen sollten alle ungarischen Anträge die wir für SRB und BIH Kunden stellen, nicht beim Risiko mitberechnet werden
 
 
-                    Dim sqlSummeBilden = "SELECT 
+                    Dim sqlSummeBilden_OLD = "SELECT 
                                     tblUStVAntrag.UStVAn_KuNr,
                                     SUM(tblUStVAntrag.UStVAn_USteuerbetragEUR) As UStVKu_SummeUmsatzsteuer, 
                                     SUM(tblUStVAntrag.UStVAn_ErstattungsbetragEUR) As UStVKu_SummeErstattung, 
@@ -175,6 +175,39 @@ Public Class cMDMFunctionsAllgemein
                                 Where tblUStVAntrag.UStVAn_KuNr = " & r.Item("KundenNr") &
                                 " Group By tblUStVAntrag.UStVAn_KuNr"
 
+
+
+                    Dim sqlSummeBilden = "SELECT 
+                                    tblUStVAntrag.UStVAn_KuNr,
+
+                                        SUM(
+                                        CASE WHEN (tblUStVAntrag.UStVAn_LandKz = 'SRB' OR tblUStVAntrag.UStVAn_LandKz = 'BIH') AND tblUStVAntrag.UStVAn_LandNr = 64
+                                            THEN 0
+                                            Else UStVAn_USteuerbetragEUR 
+                                        End
+                                    ) AS UStVKu_SummeUmsatzsteuer,
+
+
+
+                                    SUM(
+                                        CASE WHEN (tblUStVAntrag.UStVAn_LandKz = 'SRB' OR tblUStVAntrag.UStVAn_LandKz = 'BIH') AND tblUStVAntrag.UStVAn_LandNr = 64
+                                            THEN 0
+                                            Else UStVAn_ErstattungsbetragEUR 
+                                        End
+                                    ) AS UStVKu_SummeErstattung,
+
+                                    SUM(ISNULL(tblUStVAntrag.UStVAn_3470, 0)) As UStVKu_SummeKonto3470, 
+                                    SUM(
+                                        CASE 
+                                            WHEN (ISNULL(tblUStVAntrag.UStVAn_VZBetrag, 0) - ISNULL(tblUStVAntrag.UStVAn_RZBetragVZ, 0)) > tblUStVAntrag.UStVAn_ErstattungsbetragEUR 
+                                            THEN (ISNULL(tblUStVAntrag.UStVAn_VZBetrag, 0) - ISNULL(tblUStVAntrag.UStVAn_RZBetragVZ, 0)) - tblUStVAntrag.UStVAn_ErstattungsbetragEUR
+                                            Else 0 
+                                        End
+                                    ) AS UStVKu_SummeVorauszahlung
+                                From tblUStVAntrag
+                                Where tblUStVAntrag.UStVAn_KuNr = " & r.Item("KundenNr") &
+                                " Group By tblUStVAntrag.UStVAn_KuNr"
+
                     Dim dtKundenSummen As DataTable = sql.loadDgvBySql(sqlSummeBilden, "FMZOLL")
 
                     Dim curUStV_SummeVorschaubetragEUR As Double = 0