Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -43,7 +43,7 @@ Public Class usrCntlUSTV
|
||||
End If
|
||||
End If
|
||||
|
||||
.SET_SQL("SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,[UStVAn_VZBetrag],[UStVAn_VZDatum],UStVAn_VZoffen ,[UStVAn_Sachbearbeiter]
|
||||
.SET_SQL("SELECT " & topMax & " [tblUStVAntrag].[UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],[UStVAn_LandKz],LandKz as Land_Antrag , UStVAn_BezugsNr, [UStVAn_ReDatVon], [UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_VZBetrag],[UStVAn_VZDatum],[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],([UStVAn_USteuerbetrag] - [UStVAn_Erstattungsbetrag]) as UStVAn_Differenzbetrag,[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],([UStVAn_USteuerbetragEUR] - [UStVAn_ErstattungsbetragEUR]) as UStVAn_DifferenzbetragEUR,UStVAn_VZoffen ,[UStVAn_Sachbearbeiter]
|
||||
FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
|
||||
where 1=1 " & getWhere(, ID, AntragsLand) & "
|
||||
order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
|
||||
@@ -67,86 +67,99 @@ Public Class usrCntlUSTV
|
||||
DataGridViewCellStyleDate.Format = "MM/yyyy"
|
||||
|
||||
|
||||
'.Columns("UStVAn_ID").Visible = False
|
||||
|
||||
' .Columns("UStVAn_ID").Visible = False
|
||||
.Columns("UStVAn_ID").Width = 70
|
||||
.Columns("UStVAn_ID").HeaderText = "ID"
|
||||
.Columns("UStVAn_ID").Frozen = True
|
||||
|
||||
.Columns("UStVAn_AntragArt").HeaderText = "Art"
|
||||
.Columns("UStVAn_AntragArt").MinimumWidth = 50
|
||||
.Columns("UStVAn_AntragArt").Frozen = True
|
||||
|
||||
.Columns("UStVAn_KuNr").HeaderText = "KundenNr"
|
||||
.Columns("UStVAn_Name").MinimumWidth = 70
|
||||
.Columns("UStVAn_KuNr").Frozen = True
|
||||
|
||||
.Columns("UStVAn_Name").HeaderText = "Firma"
|
||||
.Columns("UStVAn_Name").Width = 200
|
||||
.Columns("UStVAn_Name").Frozen = True
|
||||
' .Columns("UStVAn_Name").MinimumWidth = 150
|
||||
' .Columns("UStVAn_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("UStVAn_LandKz").HeaderText = "Land"
|
||||
.Columns("UStVAn_LandKz").Width = 60
|
||||
.Columns("UStVAn_LandKz").Frozen = True
|
||||
|
||||
.Columns("Land_Antrag").Width = 90
|
||||
.Columns("Land_Antrag").HeaderText = "Antrag Land"
|
||||
.Columns("Land_Antrag").Width = 60
|
||||
.Columns("Land_Antrag").Frozen = True
|
||||
|
||||
.Columns("UStVAn_ReDatVon").HeaderText = "Von"
|
||||
'.Columns("UStVAn_ReDatVon").DefaultCellStyle = DataGridViewCellStyleDate
|
||||
.Columns("UStVAn_ReDatVon").Width = 100
|
||||
.Columns("UStVAn_ReDatVon").Width = 75
|
||||
|
||||
.Columns("UStVAn_ReDatBis").HeaderText = "Bis"
|
||||
'.Columns("UStVAn_ReDatBis").DefaultCellStyle = DataGridViewCellStyleDate
|
||||
.Columns("UStVAn_ReDatBis").Width = 100
|
||||
.Columns("UStVAn_ReDatBis").Width = 75
|
||||
|
||||
.Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr"
|
||||
.Columns("UStVAn_BezugsNr").Width = 100
|
||||
.Columns("UStVAn_BezugsNr").Width = 70
|
||||
|
||||
.Columns("UStVAn_AntragEingereichtAm").HeaderText = "Eingereicht Datum"
|
||||
.Columns("UStVAn_AntragEingereichtAm").Width = 80
|
||||
|
||||
.Columns("UStVAn_VZDatum").HeaderText = "Vorausz.Am"
|
||||
.Columns("UStVAn_VZDatum").Width = 75
|
||||
|
||||
.Columns("UStVAn_VZBetrag").HeaderText = "Vorauszahlung Betrag"
|
||||
.Columns("UStVAn_VZBetrag").Width = 100
|
||||
.Columns("UStVAn_VZBetrag").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_VZBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_AntragEingereichtAm").HeaderText = "EingereichtAm"
|
||||
.Columns("UStVAn_AntragEingereichtAm").Width = 100
|
||||
|
||||
.Columns("UStVAn_3470").HeaderText = "3470"
|
||||
.Columns("UStVAn_3470").Width = 150
|
||||
.Columns("UStVAn_3470").Width = 100
|
||||
.Columns("UStVAn_3470").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_3470").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_Währungscode").HeaderText = "Währung"
|
||||
.Columns("UStVAn_Währungscode").Width = 80
|
||||
.Columns("UStVAn_Währungscode").HeaderText = "Währ."
|
||||
.Columns("UStVAn_Währungscode").Width = 60
|
||||
|
||||
.Columns("UStVAn_USteuerbetrag").HeaderText = "USt-Betrag"
|
||||
.Columns("UStVAn_USteuerbetrag").Width = 150
|
||||
.Columns("UStVAn_USteuerbetrag").HeaderText = "USt Betrag"
|
||||
.Columns("UStVAn_USteuerbetrag").Width = 100
|
||||
.Columns("UStVAn_USteuerbetrag").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_USteuerbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_Erstattungsbetrag").HeaderText = "Erstattung-Betrag"
|
||||
.Columns("UStVAn_Erstattungsbetrag").Width = 150
|
||||
.Columns("UStVAn_Erstattungsbetrag").HeaderText = "Erstattung Betrag"
|
||||
.Columns("UStVAn_Erstattungsbetrag").Width = 100
|
||||
.Columns("UStVAn_Erstattungsbetrag").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_Erstattungsbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
|
||||
.Columns("UStVAn_Differenzbetrag").HeaderText = "Differenz-Betrag"
|
||||
.Columns("UStVAn_Differenzbetrag").Width = 150
|
||||
.Columns("UStVAn_Differenzbetrag").HeaderText = "Differenz Betrag"
|
||||
.Columns("UStVAn_Differenzbetrag").Width = 100
|
||||
.Columns("UStVAn_Differenzbetrag").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_Differenzbetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_ErstattungsbetragEUR").HeaderText = "Erstattung-Betrag EUR"
|
||||
.Columns("UStVAn_ErstattungsbetragEUR").Width = 150
|
||||
.Columns("UStVAn_ErstattungsbetragEUR").HeaderText = "Erstattung Betrag EUR"
|
||||
.Columns("UStVAn_ErstattungsbetragEUR").Width = 100
|
||||
.Columns("UStVAn_ErstattungsbetragEUR").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_ErstattungsbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_USteuerbetragEUR").HeaderText = "USt-Betrag EUR"
|
||||
.Columns("UStVAn_USteuerbetragEUR").Width = 150
|
||||
.Columns("UStVAn_USteuerbetragEUR").Width = 100
|
||||
.Columns("UStVAn_USteuerbetragEUR").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_USteuerbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_DifferenzbetragEUR").HeaderText = "Differenz-Betrag EUR"
|
||||
.Columns("UStVAn_DifferenzbetragEUR").Width = 150
|
||||
.Columns("UStVAn_DifferenzbetragEUR").HeaderText = "Differenz Betrag EUR"
|
||||
.Columns("UStVAn_DifferenzbetragEUR").Width = 100
|
||||
.Columns("UStVAn_DifferenzbetragEUR").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_DifferenzbetragEUR").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_VZDatum").HeaderText = "Vorauszahlung Am"
|
||||
.Columns("UStVAn_VZDatum").Width = 100
|
||||
|
||||
.Columns("UStVAn_VZBetrag").HeaderText = "Vorauszahlung-Betrag"
|
||||
.Columns("UStVAn_VZBetrag").Width = 150
|
||||
.Columns("UStVAn_VZBetrag").DefaultCellStyle.Format = "N2"
|
||||
.Columns("UStVAn_VZBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
|
||||
|
||||
.Columns("UStVAn_VZoffen").HeaderText = "VZ nicht abgerechnet"
|
||||
.Columns("UStVAn_VZoffen").Width = 100
|
||||
.Columns("UStVAn_VZoffen").Width = 80
|
||||
.Columns("UStVAn_VZoffen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns("UStVAn_Sachbearbeiter").HeaderText = "Sachbearbeiter"
|
||||
|
||||
Reference in New Issue
Block a user