SDL Jetzt erst recht!
This commit is contained in:
159
SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb
Normal file
159
SDL/Reports/Zoll/rptKontrolleLKW_Dakosy.vb
Normal file
@@ -0,0 +1,159 @@
|
||||
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
Imports System.Globalization
|
||||
|
||||
Public Class rptKontrolleLKW_Dakosy
|
||||
Public datVon As Date
|
||||
Public datBis As Date
|
||||
Public FIRMA As String = "ATILLA"
|
||||
Dim operatorID = "1"
|
||||
Dim kundenSQL As New kundenSQL
|
||||
Dim SUB_DATA As DataTable = Nothing
|
||||
|
||||
'Public brg As String = "05DE0000000009345," 'default brg
|
||||
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 = "T-Kontrolle Dakosy "
|
||||
|
||||
'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 brg_AT As String = "05AT510000G000FP7"
|
||||
Dim brg_DE As String = "05DE0000000009345"
|
||||
Dim brg_DE_NEU As String = "17DE0000000071678"
|
||||
|
||||
|
||||
Dim firmaStr = ""
|
||||
If FIRMA = "DURMAZ" Then
|
||||
firmaStr = " AND ncts_ObjectName LIKE 'DU%' "
|
||||
ElseIf FIRMA = "IMEX" Then
|
||||
firmaStr = " AND (ncts_ObjectName LIKE '402%' OR ncts_ObjectName LIKE '502%' OR ncts_ObjectName LIKE '5501%') "
|
||||
ElseIf FIRMA = "AMBAR" Then
|
||||
firmaStr = " AND (ncts_ObjectName LIKE 'A20%' ) "
|
||||
Else 'ATILLA
|
||||
'firmaStr = " AND ncts_ObjectName NOT LIKE 'DU%' "
|
||||
firmaStr = " AND ncts_ObjectName LIKE '4801%' "
|
||||
End If
|
||||
|
||||
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
|
||||
|
||||
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
|
||||
sqlStr &= " WHERE cast ([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
|
||||
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
|
||||
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
|
||||
sqlStr &= firmaStr
|
||||
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
|
||||
sqlStr &= " group by cast([ncts_Trans_DatumZeit] as date),ncts_Befoerderungsmittel_KennzeichenAbgang"
|
||||
sqlStr &= " order by cast([ncts_Trans_DatumZeit] as date)"
|
||||
|
||||
|
||||
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
|
||||
|
||||
|
||||
Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
|
||||
sqlStrSUB &= " WHERE cast([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
|
||||
sqlStrSUB &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
|
||||
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
|
||||
sqlStrSUB &= firmaStr
|
||||
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
|
||||
|
||||
sqlStrSUB &= " order by cast([ncts_Trans_DatumZeit] as date),ncts_ObjectName"
|
||||
|
||||
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000)
|
||||
|
||||
|
||||
lblText1.Text = lblText1.Text & " - " & FIRMA
|
||||
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
|
||||
Label7.Text = "" '"B<>rgschaft: " & brg
|
||||
End Sub
|
||||
|
||||
|
||||
Dim dummycount As Integer = 0
|
||||
Dim anzLkw As Integer = 0
|
||||
Dim anzT As Integer = 0
|
||||
Dim summeSiBetr As Double = 0
|
||||
Dim nr As Integer = 1
|
||||
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
|
||||
dummycount = dummycount + 1
|
||||
anzLkw += 1
|
||||
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)
|
||||
lblLKW.Text = CStr(Fields.Item("Kennzeichen").Value)
|
||||
lblNr.Text = anzLkw & "."
|
||||
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
|
||||
|
||||
|
||||
If SUB_DATA IsNot Nothing Then
|
||||
|
||||
Dim subrpt As New subrptKontrolleLKW_Dakosy
|
||||
subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
|
||||
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
|
||||
|
||||
|
||||
Dim dt As DataTable = SUB_DATA.Clone
|
||||
dt.Rows.Clear()
|
||||
'For Each c As DataColumn In dt.Columns
|
||||
'c.AllowDBNull = True
|
||||
'Next
|
||||
For Each r In SUB_DATA.Rows
|
||||
If r("AnmeldungsDatum") = subrpt.AnmeldungsDatum And r("Kennzeichen") = subrpt.Kennzeichen Then
|
||||
' dt.Rows.Add(r)
|
||||
dt.ImportRow(r)
|
||||
End If
|
||||
Next
|
||||
subrpt.DataSource = dt
|
||||
|
||||
Me.SubReport.Report = subrpt
|
||||
|
||||
AddHandler Me.SubReport.Report.ReportEnd, Sub()
|
||||
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW_Dakosy).AnzT
|
||||
|
||||
End Sub
|
||||
|
||||
End If
|
||||
'Abwechselnd grauen und wei<65>en Hintergrund
|
||||
If (dummycount Mod 2) = 0 Then
|
||||
Detail.BackColor = Drawing.Color.White
|
||||
Else
|
||||
Detail.BackColor = Drawing.Color.WhiteSmoke
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
|
||||
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
|
||||
lblAnzLKWs.Text = anzLkw
|
||||
lblAnzT.Text = anzT
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user