Imports System.Data
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN

Public Class subRptSendungenATA

    Dim HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing

    Sub New(HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.HANDLING = HANDLING
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    End Sub

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
        'If HANDLING IsNot Nothing Then

        '    'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
        '    'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
        '    txtColli.Text = HANDLING.sndhdg_colli.ToString("N0") & " Pk"
        '    txtGewicht.Text = HANDLING.sndhdg_gewicht.ToString("N1") & " Pk"

        '    txtATCMRN.Text = HANDLING.sndhdg_nr
        '    If HANDLING.sndhdg_nr <> "" Then
        '        barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(HANDLING.sndhdg_nr, 1, True, 15)
        '    End If

        'End If
        barcodeATCMRN.Visible = False
        txtATCMRN.Text = ""
        If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
            Dim ATAMRN As String = Me.Fields.Item("ATA").Value.ToString
            ATAMRN = ATAMRN.Replace(" ", "")
            ATAMRN = ATAMRN.Replace("/", "")
            ATAMRN = ATAMRN.Replace("-", "")

            txtATCMRN.Text = ATAMRN
            If ATAMRN <> "" Then

                Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 15)
                'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
                barcodeATCMRN.Image = barcodeATA
                barcodeATCMRN.Visible = True
            End If

            txtColli.Text = ""
            txtGewicht.Text = ""
            If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
            If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"

        End If

    End Sub

    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
        Dim dt As New DataTable
        dt.Columns.Add("ATA", System.Type.GetType("System.String"))
        dt.Columns.Add("Colli", System.Type.GetType("System.String"))
        dt.Columns.Add("Gewicht", System.Type.GetType("System.String"))
        For Each s In HANDLING
            dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht})
        Next
        Me.DataSource = dt
    End Sub
End Class