edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fremdrechnungen

Browse Source
This commit is contained in:
d.breimaier
2025-11-10 17:15:23 +01:00
parent 38e5fd2545
commit 63a9e58e0a
1 changed files with 37 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -424,29 +424,32 @@ Public Class usrcntlFremdrechnungen
End If End If
'4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt
If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then If dtKundeMWST IsNot Nothing Then
Dim counter = 0 If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
Dim landBez As String = "" Dim counter = 0
For Each row As DataRow In dtKundeMWST.Rows Dim landBez As String = ""
landBez &= "'" & row.Item("LandKz") & "'" For Each row As DataRow In dtKundeMWST.Rows
counter = counter + 1 landBez &= "'" & row.Item("LandKz") & "'"
If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= "," counter = counter + 1
Next If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
SQLWhere &= " OR " & land & " in (" & landBez & ")" Next
SQLWhere &= " OR " & land & " in (" & landBez & ")"
End If
End If End If
SQLWhere &= ")" SQLWhere &= ")"
'nicht NOTWENDIG! 'nicht NOTWENDIG!
'Select Case KUNDE.LandKz 'Select Case KUNDE.LandKz
' Case "SRB", "BIH", "MK", "MNE", "TR" ' Case "SRB", "BIH", "MK", "MNE", "TR"
' If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")" ' If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")"
'End Select 'End Select
End If End If
Return SQLWhere Return SQLWhere
End Function End Function
@@ -533,7 +536,7 @@ Public Class usrcntlFremdrechnungen
Else Else
If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then If land <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then
Dim counter = 0 Dim counter = 0
Dim landBez As String = "" Dim landBez As String = ""
For Each row As DataRow In dtKundeMWST.Rows For Each row As DataRow In dtKundeMWST.Rows
@@ -546,6 +549,12 @@ Public Class usrcntlFremdrechnungen
SQLWhere &= ")" SQLWhere &= ")"
End If End If
End If End If
If dtKundeMWST Is Nothing AndAlso dtKundeMWSTTemp Is Nothing Then
SQLWhere &= ")"
End If
Return SQLWhere Return SQLWhere
End Function End Function
@@ -1435,10 +1444,10 @@ Public Class usrcntlFremdrechnungen
If Not SplitContainer1.Panel2Collapsed Then If Not SplitContainer1.Panel2Collapsed Then
Select Case aktLieferant Select Case aktLieferant
Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value,, dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value)
Case "ALLE" Case "ALLE"
If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then
initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value,, dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value)
Else Else
dgvDetails.Visible = False dgvDetails.Visible = False
End If End If
@@ -1469,6 +1478,15 @@ Public Class usrcntlFremdrechnungen
Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As DataTable Private Function initDGVRechnungsdetails(rechnugnsID As Integer, Optional setDatatable As Boolean = False, Optional KundenNr_Input As Integer = -1, Optional dtKundeMWSTTemp As DataTable = Nothing) As DataTable
If dtKundeMWSTTemp Is Nothing AndAlso KundenNr_Input > 0 Then
dtKundeMWSTTemp = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KundenNr_Input, "FMZOLL")
End If
Dim sql = " select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, Dim sql = " select [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,
cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,[Country] as Land cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden,[Country] as Land
FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country", , KundenNr_Input, dtKundeMWSTTemp) FROM [VERAG].[dbo].[tblIDSInvoicesNewSplittedByCountry] WHERE [TotalInvoiceId] = " & rechnugnsID & setSQLDetailWhere(aktLieferant, "Country", , KundenNr_Input, dtKundeMWSTTemp)