diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 7e124f05..ed4ca78c 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index 5ada310d..fd155e2f 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -937,38 +937,38 @@ Public Class usrcntlFremdrechnungen If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Exit For 'abbruchbedingung - Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces, False, True) + Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True) 'ORIGINAL-RECHNUNG senden wenn: If onlyRelevantInvioces Then '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…) - If row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True + If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True '2. wenn die Rechnung die MWST-SUMME 0 aufweist!!! If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True - '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST - If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then - Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'") - Dim dtkeineMWST_ohneContraint As New DataTable - If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable() - If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST + If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then + Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'") + Dim dtkeineMWST_ohneContraint As New DataTable + If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable() + If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + End If + + '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt + + If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then + Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'") + Dim dtKundeMWSTTemp_ohneContraint As New DataTable + If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable() + If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + End If + End If - '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt - If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then - Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'") - Dim dtKundeMWSTTemp_ohneContraint As New DataTable - If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable() - If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True - End If - - End If - - - If Lieferant = "VERAG" Then + If Lieferant = "VERAG" Then 'VERAG IGNORIEREN 'Dim ReDat = row.Cells("Rechnungsdatum").Value