edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb generated
View File

@@ -218,8 +218,8 @@ Partial Public Class rptDispoHaftListe
Me.txtAnmerkung.Height = 0.1669291!
Me.txtAnmerkung.Left = 1.588977!
Me.txtAnmerkung.Name = "txtAnmerkung"
Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: normal; text-align: left; vertic" &
"al-align: top; ddo-char-set: 1"
Me.txtAnmerkung.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.txtAnmerkung.Text = Nothing
Me.txtAnmerkung.Top = 0.1874016!
Me.txtAnmerkung.Width = 3.561024!

22
SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb generated
View File

@@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -109,6 +110,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
@@ -203,7 +205,7 @@ Partial Public Class rptLaufzettelZollDE
'
'txtPosNr
'
Me.txtPosNr.Height = 0.1669292!
Me.txtPosNr.Height = 0.3858268!
Me.txtPosNr.Left = 0.6149607!
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" &
@@ -296,7 +298,7 @@ Partial Public Class rptLaufzettelZollDE
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -649,6 +651,18 @@ Partial Public Class rptLaufzettelZollDE
Me.txtDW.Top = 1.210236!
Me.txtDW.Width = 2.468111!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775603!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3})
@@ -663,7 +677,7 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox3.Left = 0.4314961!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessane Frist von mehr als 8 Ta" &
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" &
"gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!"
Me.TextBox3.Top = 0.08700788!
Me.TextBox3.Width = 7.18504!
@@ -727,6 +741,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
@@ -783,4 +798,5 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

20
SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb generated
View File

@@ -51,6 +51,7 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeVerpfl = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Shape16 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape9 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
@@ -98,6 +99,7 @@ Partial Public Class rptVerpflichtungserklaerung
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -253,7 +255,7 @@ Partial Public Class rptVerpflichtungserklaerung
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Height = 5.05!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -471,6 +473,18 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox7.Top = 3.827!
Me.TextBox7.Width = 6.99291!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775591!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape16, Me.Shape9, Me.TextBox10, Me.Shape10, Me.TextBox11, Me.Shape11, Me.TextBox12, Me.Shape12, Me.TextBox13, Me.Shape13, Me.TextBox14, Me.Shape14, Me.TextBox15, Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.Shape15, Me.TextBox18, Me.txtFraechter, Me.txtLKWKennz, Me.txtFahrername, Me.txtPassnummer, Me.txtWohnort, Me.txtMobilTel, Me.txtAvisoId, Me.txtDatumOrt})
@@ -668,7 +682,7 @@ Partial Public Class rptVerpflichtungserklaerung
Me.TextBox18.Left = 0.4456677!
Me.TextBox18.Name = "TextBox18"
Me.TextBox18.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox18.Text = "VERAG LKW-Id:"
Me.TextBox18.Text = "LKW-Id:"
Me.TextBox18.Top = 3.384251!
Me.TextBox18.Width = 7.034646!
'
@@ -793,6 +807,7 @@ Partial Public Class rptVerpflichtungserklaerung
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
@@ -873,4 +888,5 @@ Partial Public Class rptVerpflichtungserklaerung
Private WithEvents Shape6 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

46
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb generated
View File

@@ -20,22 +20,24 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.picBarcodeATAMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
@@ -75,16 +77,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.txtColli.Top = 0.05196851!
Me.txtColli.Width = 0.4437006!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox1
'
Me.TextBox1.Height = 0.1669292!
@@ -116,6 +108,28 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.TextBox3.Top = 0.05196851!
Me.TextBox3.Width = 0.406693!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblSieheFremdspedition
'
Me.lblSieheFremdspedition.Height = 0.1669292!
Me.lblSieheFremdspedition.Left = 3.561024!
Me.lblSieheFremdspedition.Name = "lblSieheFremdspedition"
Me.lblSieheFremdspedition.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.lblSieheFremdspedition.Text = "siehe Fremdspedition"
Me.lblSieheFremdspedition.Top = 0.2188977!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
'subRptLaufzettelZollDE_ATA
'
Me.MasterReport = False
@@ -137,6 +151,7 @@ Partial Public Class subRptLaufzettelZollDE_ATA
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -145,7 +160,8 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Private WithEvents picBarcodeATAMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

53
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb
View File

@@ -4,42 +4,53 @@ Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_ATA
Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
Dim Fremdspedition As Boolean
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
picBarcodeATAMRN.Visible = False
txtATAMRN.Text = ""
If Fremdspedition Then
lblSieheFremdspedition.Visible = True
TextBox3.Visible = False
TextBox1.Visible = False
txtColli.Visible = False
txtGewicht.Visible = False
End If
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
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.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"
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = Me.Fields.Item("Colli").Value & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = Me.Fields.Item("Gewicht").Value & " 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

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlSA_GestellungElemente.vb
View File

@@ -22,9 +22,7 @@
End Sub
Private Sub Label38_Click(sender As Object, e As EventArgs) Handles Label38.Click, Label2.Click, Label1.Click
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)