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

Timas, MDM Datenverarbeitung (Asfinag), UID-Nr bei Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2024-02-06 11:09:03 +01:00
parent a4609e853d
commit f0d7729100
11 changed files with 633 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

826
SDL/buchhaltung/usrCntlBH.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

63
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -691,4 +691,67 @@ Public Class usrCntlBH
Me.Cursor = Cursors.Default
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
If txtStichtag.Text <> "" AndAlso Not IsNumeric(txtStichtag.Text) Then MsgBox("Stichtag nicht korrekt!") : Exit Sub
Dim SQLStichtag = ""
If txtStichtag.Text <> "" Then
Try : DateTime.ParseExact(txtStichtag._value, "dd.MM.yyyy", culture)
Catch ex As Exception : MsgBox("Stichtag nicht korrekt!") : Exit Sub : End Try
SQLStichtag = "And (UStVAn_ReDatVon <='" & txtStichtag._value & "' and tblUStVAntrag.UStVAn_ReDatBis >= '" & txtStichtag._value & "')"
End If
Dim sqlStr = "SELECT tblUStVAntrag.UStVAn_ID, tblUStVAntrag.UStVAn_KuNr, tblUStVAntrag.UStVAn_ReDatVon, tblUStVAntrag.UStVAn_ReDatBis, tblUStVAntrag.UStVAn_Ausstellungsdatum, tblUStVAntrag.UStVAn_LandNr, tblUStVAntrag.UStVAn_3470, Adressen.Ordnungsbegriff, Adressen.LandKz
FROM tblUStVAntrag
INNER JOIN Adressen ON tblUStVAntrag.UStVAn_KuNr = Adressen.AdressenNr
WHERE tblUStVAntrag.UStVAn_3470 Is Not Null" & SQLStichtag
Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dt, {"G1:G" & (dt.Rows.Count + 1)})
Me.Cursor = Cursors.Default
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click, Button11.Click
If txtStichtag.Text <> "" AndAlso Not IsNumeric(txtStichtag.Text) Then MsgBox("Stichtag nicht korrekt!") : Exit Sub
Dim SQLStichtag = ""
Dim SQLKdNr = ""
If sender Is Button10 Then
SQLKdNr = " and [UStVAn_KuNr] Not Between 150000 And 155999"
Else
SQLKdNr = " and [UStVAn_KuNr] Between 150000 And 155999"
End If
If txtStichtag.Text <> "" Then
Try : DateTime.ParseExact(txtStichtag._value, "dd.MM.yyyy", culture)
Catch ex As Exception : MsgBox("Stichtag nicht korrekt!") : Exit Sub : End Try
SQLStichtag = " And (UStVAn_ReDatVon <='" & txtStichtag._value & "' and tblUStVAntrag.UStVAn_ReDatBis >= '" & txtStichtag._value & "')"
End If
Dim sqlStr = "SELECT tblUStVAntrag.UStVAn_ID, tblUStVAntrag.UStVAn_KuNr, tblUStVAntrag.UStVAn_ReDatVon, tblUStVAntrag.UStVAn_ReDatBis, tblUStVAntrag.UStVAn_Ausstellungsdatum,
tblUStVAntrag.UStVAn_LandNr, tblUStVAntrag.UStVAn_VZDatum, tblUStVAntrag.UStVAn_VZBetrag, tblUStVAntrag.UStVAn_RZBetragVZ, Adressen.Ordnungsbegriff, Adressen.LandKz,
isnull([UStVEr_USteuerbetragEUR],0) AS Erstattungsbetrag,
case when ([UStVAn_VZBetrag]-isnull([UStVAn_RZBetragVZ],0)-isnull([UStVEr_USteuerbetragEUR],0))>0 then (([UStVAn_VZBetrag]-isnull([UStVAn_RZBetragVZ],0))-isnull([UStVEr_USteuerbetragEUR],0)) else 0 End AS UStVAn_VZBetragAktuell
FROM tblUStVAntrag
INNER JOIN [tblUStVErstattung] ON [tblUStVErstattung].[UStVAn_ID] = tblUStVAntrag .[UStVAn_ID]
INNER JOIN Adressen ON tblUStVAntrag.UStVAn_KuNr = Adressen.AdressenNr
WHERE tblUStVAntrag.UStVAn_VZBetrag Is Not Null" & SQLStichtag & SQLKdNr
Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dt, {"H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "L1:L" & (dt.Rows.Count + 1), "M1:M" & (dt.Rows.Count + 1)})
Me.Cursor = Cursors.Default
End Sub
End Class