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

Fremdrechnungen, offeneAntraege

Browse Source
This commit is contained in:
d.breimaier
2025-03-12 17:01:52 +01:00
parent 3e4167775b
commit 6276aee28f
2 changed files with 27 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -1,4 +1,5 @@
Imports System.Windows.Documents Imports System.Windows.Documents
Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.org.apache.xpath.internal.objects Imports com.sun.org.apache.xpath.internal.objects
Imports DocumentFormat.OpenXml.Drawing.Spreadsheet Imports DocumentFormat.OpenXml.Drawing.Spreadsheet
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -10,6 +11,7 @@ Public Class frmUSTVoffeneAntraege
Dim datumVon As Date = Nothing Dim datumVon As Date = Nothing
Dim kdNr As Integer = -1 Dim kdNr As Integer = -1
Dim kdName As String Dim kdName As String
Dim dtkeineMWST As DataTable
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
initLieferant("PLOSE", sender) initLieferant("PLOSE", sender)
End Sub End Sub
@@ -536,6 +538,19 @@ Public Class frmUSTVoffeneAntraege
sqlwhereLand &= " and isnull(UStVAn_ID,0) = 0 " sqlwhereLand &= " and isnull(UStVAn_ID,0) = 0 "
End If End If
Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant = ''").CopyToDataTable
Dim counter = 0
Dim landBez As String = ""
For Each row As DataRow In dtkeineMWST_ohneContraint.Rows
landBez = "'" & row.Item("Erstattungsland") & "'"
counter = counter + 1
If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= ","
Next
sqlwhereLand &= " AND Einreichland not in (" & landBez & ")"
Dim year = CDate(dat_Sum_Von.Value).Year Dim year = CDate(dat_Sum_Von.Value).Year
If year >= 2025 Then If year >= 2025 Then
@@ -688,6 +703,13 @@ Public Class frmUSTVoffeneAntraege
where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr & where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr &
" group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, tblSteuernummern.UStV" " group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, tblSteuernummern.UStV"
Dim SQLWhere = ""
.SET_SQL(sqlstring, "FMZOLL") .SET_SQL(sqlstring, "FMZOLL")
.LOAD() .LOAD()
If .Columns.Count > 0 Then If .Columns.Count > 0 Then
@@ -926,4 +948,8 @@ Public Class frmUSTVoffeneAntraege
End Sub End Sub
Private Sub frmUSTVoffeneAntraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
End Sub
End Class End Class

2
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -74,9 +74,9 @@ Public Class usrcntlFremdrechnungen
End If End If
KUNDE = kundenSQL.getKundeByKdNr(kdNr) KUNDE = kundenSQL.getKundeByKdNr(kdNr)
dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
If KUNDE IsNot Nothing Then If KUNDE IsNot Nothing Then
dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL") dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL")
End If End If