SDL/SDL/Reports/Zoll/rptKontrolleLKW_Zolaris.vb

Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization

Public Class rptKontrolleLKW_Zolaris
    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 = "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 brg_AT As String = "05AT510000G000FP7"
        Dim brg_DE As String = "05DE0000000009345"
        Dim brg_DE_NEU As String = "17DE0000000071678"


        'If FIRMA = "DURMAZ" Then mandant = "SUW"
        If FIRMA = "ATILLA" Then operatorID = "'5','6'"
        If FIRMA = "DURMAZ" Then operatorID = "'8'"

        Dim sqlStr As String = " SELECT   DepIdnt, vw.AnmeldungsDatum,COUNT(*) ,SUM(GarantieWert) as GarantieWert  FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme as vw"
        sqlStr &= " inner join   [ezoll].[dbo].[zsAnmTransp]  on [zsAnmTransp].AnmID=vw.AnmID  and vw.OperatorID=[zsAnmTransp].OperatorID"
        sqlStr &= " WHERE cast (vw.[AnmeldungsDatum] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
        sqlStr &= " AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
        sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
        sqlStr &= " group by vw.AnmeldungsDatum,DepIdnt"
        sqlStr &= "  order by  vw.AnmeldungsDatum"

        Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "EZOLL", 1000)


        Dim sqlStrSUB As String = " SELECT   *  FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme as vw"
        sqlStrSUB &= " inner join   [zsAnmTransp]  on [zsAnmTransp].AnmID=vw.AnmID  and vw.OperatorID=[zsAnmTransp].OperatorID"
        sqlStrSUB &= " inner join   [zzPersonal]  on PersonalID  =[zsAnmTransp].GeaendertVon"
        sqlStrSUB &= " WHERE cast (vw.[AnmeldungsDatum] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
        sqlStrSUB &= " AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
        sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"

        sqlStrSUB &= "  order by  vw.AnmeldungsDatum"

        SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "EZOLL", 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("DepIdnt").Value)
        lblNr.Text = anzLkw & "."
        lblSiBetragValue.Text = "€ " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)


        If SUB_DATA IsNot Nothing Then

            Dim subrpt As New subrptKontrolleLKW_Zolaris
            subrpt.Kennzeichen = Fields.Item("DepIdnt").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("DepIdnt") = 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_Zolaris).AnzT

                                                      End Sub

        End If
        'Abwechselnd grauen und weiß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 = "€ " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
        lblAnzLKWs.Text = anzLkw
        lblAnzT.Text = anzT

    End Sub
End Class