diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index e61bb393..c25bb9ee 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -39,7 +39,7 @@ Public Class usrCntlUSTV End If End If - .SET_SQL("SELECT " & topMax & " [UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter] + .SET_SQL("SELECT " & topMax & " [UStVAn_ID],UStVAn_AntragArt,[UStVAn_KuNr],[UStVAn_Name],LandKz, 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_Sachbearbeiter] FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr where 1=1 " & getWhere() & " order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL") @@ -53,6 +53,10 @@ Public Class usrCntlUSTV If .Columns.Count > 0 Then + Dim DataGridViewCellStyleDate = New DataGridViewCellStyle() + DataGridViewCellStyleDate.Format = "MM/yyyy" + + .Columns("UStVAn_ID").Visible = False .Columns("UStVAn_AntragArt").HeaderText = "Art" .Columns("UStVAn_AntragArt").MinimumWidth = 50 @@ -69,11 +73,15 @@ Public Class usrCntlUSTV .Columns("LandKz").Width = 60 .Columns("UStVAn_ReDatVon").HeaderText = "Von" + .Columns("UStVAn_ReDatVon").DefaultCellStyle = DataGridViewCellStyleDate .Columns("UStVAn_ReDatVon").Width = 100 .Columns("UStVAn_ReDatBis").HeaderText = "Bis" + .Columns("UStVAn_ReDatBis").DefaultCellStyle = DataGridViewCellStyleDate .Columns("UStVAn_ReDatBis").Width = 100 + .Columns("UStVAn_BezugsNr").HeaderText = "BezugsNr" + .Columns("UStVAn_BezugsNr").Width = 100 .Columns("UStVAn_AntragEingereichtAm").HeaderText = "EingereichtAm" .Columns("UStVAn_AntragEingereichtAm").Width = 100 @@ -96,6 +104,12 @@ Public Class usrCntlUSTV .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").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").DefaultCellStyle.Format = "N2" @@ -106,6 +120,19 @@ Public Class usrCntlUSTV .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").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_Sachbearbeiter").HeaderText = "Sachbearbeiter" .Columns("UStVAn_Sachbearbeiter").MinimumWidth = 150 .Columns("UStVAn_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill