79 lines
3.5 KiB
VB.net
79 lines
3.5 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
Imports System.Globalization
|
|
|
|
Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
|
|
Public datVon As Date
|
|
Public erstelltVon As String = ""
|
|
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
|
|
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
|
|
|
|
End Sub
|
|
|
|
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
|
|
MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
|
|
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
|
|
End Sub
|
|
|
|
'''''''' ADD AT RUNTIME:
|
|
'Dim d As New GrapeCity.ActiveReports.SectionReportModel.TextBox
|
|
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
|
|
|
|
'''''''' ADD AT RUNTIME:
|
|
'd.Location = New Point(2, 0)
|
|
'd.Text = "asd"
|
|
'Me.Detail.Controls.Add(d)
|
|
|
|
|
|
Me.Name = "Auswertung offene Anträge mit Vorauszahlung"
|
|
|
|
'lblHeader.Text = Me.Name
|
|
|
|
'Format + Ränder setzen
|
|
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
|
|
Me.PageSettings.Margins.Left = 0.3
|
|
Me.PageSettings.Margins.Right = 0.3
|
|
Me.PageSettings.Margins.Top = 0.5
|
|
Me.PageSettings.Margins.Bottom = 0.4
|
|
|
|
Dim sqlStr As String = " SELECT tblUStVAntrag.UStVAn_KuNr as kdNr, (SELECT Ordnungsbegriff from Adressen WHERE Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr ) as Firma, SUM(([UStVAn_USteuerbetragEUR]-[UStVAn_ErstattungsbetragEUR])) as [Summe Differnezbetrag],count(*) as [Anzahl Anträge] " &
|
|
" FROM tblUStVAntrag INNER JOIN Adressen on Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr " &
|
|
" WHERE UStVAn_ReDatVon >='" & datVon.ToShortDateString & "' " &
|
|
" and UStVAn_ReDatBis <=GETDATE() " &
|
|
" and ([UStVAn_USteuerbetrag]-[UStVAn_Erstattungsbetrag])>0 " &
|
|
" and UStVAn_VZBetrag is null " &
|
|
" and Adressen.MWSTVorauszahlung is not null " &
|
|
" and Adressen.MWSTVorauszahlung = 1 " &
|
|
" group by UStVAn_KuNr " &
|
|
" order by Firma "
|
|
|
|
|
|
|
|
Dim kundenSQL As New kundenSQL
|
|
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL")
|
|
|
|
End Sub
|
|
|
|
Dim dummycount As Integer = 0
|
|
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
|
|
dummycount = dummycount + 1
|
|
TextBoxKdnr.Text = CStr(Fields.Item("kdNr").Value)
|
|
txtFirma.Text = CStr(Fields.Item("Firma").Value)
|
|
txtBetraege.Text = "€ " & CDbl(Fields.Item("Summe Differnezbetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
|
|
txtAnzahl.Text = CStr(Fields.Item("Anzahl Anträge").Value)
|
|
|
|
Dim subrpt As New subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
|
|
subrpt.kdnr = TextBoxKdnr.Text
|
|
subrpt.datVon = datVon
|
|
Me.SubReport.Report = subrpt
|
|
|
|
|
|
'Abwechselnd grauen und weißen Hintergrund
|
|
If (dummycount Mod 2) = 0 Then
|
|
Detail.BackColor = System.Drawing.Color.White
|
|
Else
|
|
Detail.BackColor = System.Drawing.Color.WhiteSmoke
|
|
End If
|
|
End Sub
|
|
End Class
|