rpt

Gemeinsames/ARConverterBackup3/subRptSendungenATA.vb

@@ -0,0 +1,69 @@
+Imports System.Data
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+Imports SDL
+
+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