69 lines
2.8 KiB
VB.net
69 lines
2.8 KiB
VB.net
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
|