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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-21 09:24:30 +01:00
parent d9204781cf
commit 697b78e3c9
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/USTV/usrCntlUSTV.vb
View File

@@ -17,13 +17,13 @@ Public Class usrCntlUSTV
With dgvUSTV
.ClearSelection()
If KdSearchBox1.KdNr <= 0 Then Exit Sub
' If KdSearchBox1.KdNr <= 0 Then Exit Sub
If cboJahr._value = "" Then Exit Sub
.SET_SQL("SELECT TOP (1000) [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter]
FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
where UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahr._value & "' and UStVAn_KuNr=" & KdSearchBox1.KdNr & "
order by LandKz,[UStVAn_KuNr],[UStVAn_ReDatVon]", "FMZOLL")
where UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahr._value & "' " & If(KdSearchBox1.KdNr > 0, " and UStVAn_KuNr=" & KdSearchBox1.KdNr & "", "") & "
order by UStVAn_KuNr,UStVAn_Name,LandKz,[UStVAn_KuNr],[UStVAn_ReDatVon]", "FMZOLL")
.LOAD()
.RowTemplate.Height = 20
.AllowUserToOrderColumns = False