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

Laufzettel DTB, USTV Anpassungen, USTV Kundenstamm, Docs, Messanger DoubleBuffer

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-07 16:59:22 +01:00
parent c8744fcf4a
commit 9b6f3fc162
14 changed files with 497 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.Designer.vb generated
View File

@@ -20,17 +20,17 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
@@ -87,6 +87,18 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.picBarcodeMRN.Visible = False
Me.picBarcodeMRN.Width = 3.102756!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2094488!
Me.TextBox1.Left = 3.955118!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: right; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox1.Text = Nothing
Me.TextBox1.Top = 0.03543307!
Me.TextBox1.Width = 3.050787!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape4, Me.TextBox8, Me.TextBox2})
@@ -114,22 +126,6 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.TextBox8.Top = 0.1035433!
Me.TextBox8.Width = 1.130709!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.08333333!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2094488!
Me.TextBox1.Left = 3.955118!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 12pt; font-weight: bold; text-align: right; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox1.Top = 0.03543307!
Me.TextBox1.Width = 3.050787!
'
'TextBox2
'
Me.TextBox2.Height = 0.1460631!
@@ -141,6 +137,11 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.TextBox2.Top = 0.1035433!
Me.TextBox2.Width = 1.130709!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.08333333!
Me.ReportFooter1.Name = "ReportFooter1"
'
'subRptLaufzettelZollDE_Vorpapier
'
Me.PageSettings.PaperHeight = 11.0!
@@ -158,8 +159,8 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

13
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb
View File

@@ -33,9 +33,20 @@ Public Class subRptLaufzettelZollDE_Vorpapier
End If
If ATAMRN <> "" Then
Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", "'" & ATAMRN & "' IN (tblSnd_Vorpapier,tblSnd_Vorpapier2,tblSnd_Vorpapier3) and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
' Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", "'" & ATAMRN.Trim & "' IN (tblSnd_Vorpapier,tblSnd_Vorpapier2,tblSnd_Vorpapier3) and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", " tblSnd_ATB_T1= '" & ATAMRN.Trim & "' and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
If ATB <> "" Then
TextBox1.Text = ATB
'<27>berschreiben mit ATB-Barcode
Dim barcodeATB As Image = Code128Rendering.MakeBarcodeImage(ATB, 1, True, 20)
picBarcodeMRN.Image = barcodeATB
picBarcodeMRN.Visible = True
picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y)
ATAMRN = "(" & ATAMRN & ")"
txtATAMRN.Font = New Font(txtATAMRN.Font.FontFamily, 10, FontStyle.Regular) ' kleiner schreiben
End If
End If
Catch ex As Exception