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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-05 07:59:47 +01:00
parent dcb3cea10e
commit 3b532b0a10
37 changed files with 2804 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -67,6 +67,7 @@ Partial Public Class rptLaufzettelZollDE
Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.txtGesColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
@@ -74,6 +75,7 @@ Partial Public Class rptLaufzettelZollDE
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtPos = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -115,6 +117,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPos, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -125,7 +128,7 @@ Partial Public Class rptLaufzettelZollDE
'Detail
'
Me.Detail.ColumnDirection = GrapeCity.ActiveReports.SectionReportModel.ColumnDirection.AcrossDown
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape10, Me.Shape11, Me.txtAbfertigungsart, Me.txtAbsender, Me.txtVerzollungsadresse, Me.txtNr, Me.txtAnmerkung, Me.txtPosNr, Me.txtEmpfänger, Me.Shape8, Me.SubReport})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape10, Me.Shape11, Me.txtAbfertigungsart, Me.txtAbsender, Me.txtVerzollungsadresse, Me.txtNr, Me.txtAnmerkung, Me.txtPosNr, Me.txtEmpfänger, Me.Shape8, Me.SubReport, Me.txtPos})
Me.Detail.Height = 0.6461451!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
@@ -301,7 +304,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.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED})
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.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1})
Me.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -561,13 +564,13 @@ Partial Public Class rptLaufzettelZollDE
'TextBox1
'
Me.TextBox1.Height = 0.230315!
Me.TextBox1.Left = 0.4405513!
Me.TextBox1.Left = 0.4311024!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.TextBox1.Text = "LAUFZETTEL"
Me.TextBox1.Text = "LAUFZETTEL / GESTELLUNGSMITTEILUNG"
Me.TextBox1.Top = 1.488583!
Me.TextBox1.Width = 7.077559!
Me.TextBox1.Width = 7.094489!
'
'Shape2
'
@@ -636,6 +639,18 @@ Partial Public Class rptLaufzettelZollDE
Me.txtFirma_UNISPED.Visible = False
Me.txtFirma_UNISPED.Width = 6.67165!
'
'SubReport1
'
Me.SubReport1.CloseBorder = False
Me.SubReport1.Height = 0.09862205!
Me.SubReport1.Left = 0.4405512!
Me.SubReport1.Name = "SubReport1"
Me.SubReport1.Report = Nothing
Me.SubReport1.ReportName = "SubReport1"
Me.SubReport1.Top = 1.718898!
Me.SubReport1.Visible = False
Me.SubReport1.Width = 7.197245!
'
'txtGesColli
'
Me.txtGesColli.Height = 0.1574803!
@@ -714,6 +729,17 @@ Partial Public Class rptLaufzettelZollDE
Me.Line1.Y1 = 0.02362205!
Me.Line1.Y2 = 0.02370409!
'
'txtPos
'
Me.txtPos.CanGrow = False
Me.txtPos.Height = 0.3858268!
Me.txtPos.Left = 6.972441!
Me.txtPos.Name = "txtPos"
Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" &
" white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap"
Me.txtPos.Top = 0.1874016!
Me.txtPos.Width = 0.5299217!
'
'rptLaufzettelZollDE
'
Me.MasterReport = False
@@ -776,6 +802,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -834,4 +861,6 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents txtPos As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

61
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.Designer.vb generated
View File

@@ -25,9 +25,11 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVorpapier = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungspreisHeader = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungspreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtATNr = 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()
@@ -37,11 +39,13 @@ Partial Public Class subRptLaufzettelZollDE_ATA
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungspreisHeader, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungspreis, 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.lblSieheFremdspedition, Me.txtVorpapier, Me.txtATNr})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtVorpapier, Me.txtRechnungspreisHeader, Me.txtRechnungspreis, Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition, Me.txtATNr})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
@@ -114,13 +118,13 @@ Partial Public Class subRptLaufzettelZollDE_ATA
'
'lblSieheFremdspedition
'
Me.lblSieheFremdspedition.Height = 0.1669292!
Me.lblSieheFremdspedition.Left = 3.561024!
Me.lblSieheFremdspedition.Height = 0.1669291!
Me.lblSieheFremdspedition.Left = 1.834646!
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.Top = 0.05196851!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
@@ -136,16 +140,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.txtVorpapier.Visible = False
Me.txtVorpapier.Width = 2.779922!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'txtATNr
'
Me.txtATNr.Height = 0.25!
@@ -158,6 +152,39 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.txtATNr.Visible = False
Me.txtATNr.Width = 3.561024!
'
'txtRechnungspreisHeader
'
Me.txtRechnungspreisHeader.Height = 0.1669292!
Me.txtRechnungspreisHeader.Left = 3.501969!
Me.txtRechnungspreisHeader.Name = "txtRechnungspreisHeader"
Me.txtRechnungspreisHeader.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1"
Me.txtRechnungspreisHeader.Text = "Rechnungspreis:"
Me.txtRechnungspreisHeader.Top = 0.2188977!
Me.txtRechnungspreisHeader.Visible = False
Me.txtRechnungspreisHeader.Width = 0.9181101!
'
'txtRechnungspreis
'
Me.txtRechnungspreis.Height = 0.1669291!
Me.txtRechnungspreis.Left = 4.420079!
Me.txtRechnungspreis.Name = "txtRechnungspreis"
Me.txtRechnungspreis.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" &
"l-align: bottom; ddo-char-set: 1"
Me.txtRechnungspreis.Text = Nothing
Me.txtRechnungspreis.Top = 0.2188977!
Me.txtRechnungspreis.Visible = False
Me.txtRechnungspreis.Width = 0.8082676!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptLaufzettelZollDE_ATA
'
Me.MasterReport = False
@@ -182,6 +209,8 @@ Partial Public Class subRptLaufzettelZollDE_ATA
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorpapier, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungspreisHeader, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungspreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -196,4 +225,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVorpapier As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtRechnungspreisHeader As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtRechnungspreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

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

@@ -6,13 +6,18 @@ Public Class subRptLaufzettelZollDE_ATA
Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Dim Fremdspedition As Boolean
Dim Vorpapier As String
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean, Vorpapier As String)
Dim Rechnungspreis As Object = Nothing
Dim Rechnungswaehrung As Object = Nothing
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean, Vorpapier As String, Rechnungspreis As Object, Rechnungswaehrung As Object)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
Me.Vorpapier = Vorpapier
Me.Rechnungspreis = Rechnungspreis
Me.Rechnungswaehrung = Rechnungswaehrung
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
@@ -32,8 +37,14 @@ Public Class subRptLaufzettelZollDE_ATA
'txtVorpapier.Text = Vorpapier
'txtVorpapier.Visible = True
If Rechnungspreis IsNot Nothing AndAlso IsNumeric(Rechnungspreis) Then
txtRechnungspreisHeader.Visible = True
txtRechnungspreis.Visible = True
txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "")
End If
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(" ", "")

150
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.Designer.vb generated Normal file
View File

@@ -0,0 +1,150 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptLaufzettelZollDE_Vorpapier
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptLaufzettelZollDE_Vorpapier))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtNr = 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.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape2, Me.txtATAMRN, Me.txtNr, Me.picBarcodeMRN})
Me.Detail.Height = 0.2732284!
Me.Detail.Name = "Detail"
'
'Shape2
'
Me.Shape2.Height = 0.2732284!
Me.Shape2.Left = 0.007874017!
Me.Shape2.Name = "Shape2"
Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape2.Top = 0!
Me.Shape2.Width = 7.086614!
'
'txtATAMRN
'
Me.txtATAMRN.CanGrow = False
Me.txtATAMRN.Height = 0.2094488!
Me.txtATAMRN.Left = 0.3248032!
Me.txtATAMRN.Name = "txtATAMRN"
Me.txtATAMRN.Style = "font-size: 12pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtATAMRN.Text = "T1"
Me.txtATAMRN.Top = 0.03543307!
Me.txtATAMRN.Width = 4.852756!
'
'txtNr
'
Me.txtNr.CanGrow = False
Me.txtNr.Height = 0.2094488!
Me.txtNr.Left = 0.04488189!
Me.txtNr.Name = "txtNr"
Me.txtNr.Style = "font-size: 12pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
"do-char-set: 1"
Me.txtNr.Text = "1"
Me.txtNr.Top = 0.03543307!
Me.txtNr.Width = 0.2799213!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape4, Me.TextBox8})
Me.ReportHeader1.Height = 0.2890584!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Shape4
'
Me.Shape4.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer))
Me.Shape4.Height = 0.2161417!
Me.Shape4.Left = 0.007874017!
Me.Shape4.Name = "Shape4"
Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape4.Top = 0.07283465!
Me.Shape4.Width = 7.086614!
'
'TextBox8
'
Me.TextBox8.Height = 0.1460631!
Me.TextBox8.Left = 0.04488189!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
"ddo-char-set: 1"
Me.TextBox8.Text = "Vorpapier(e):"
Me.TextBox8.Top = 0.1035433!
Me.TextBox8.Width = 1.130709!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.08333333!
Me.ReportFooter1.Name = "ReportFooter1"
'
'picBarcodeMRN
'
Me.picBarcodeMRN.Height = 0.2188976!
Me.picBarcodeMRN.HyperLink = Nothing
Me.picBarcodeMRN.ImageData = Nothing
Me.picBarcodeMRN.Left = 2.854725!
Me.picBarcodeMRN.Name = "picBarcodeMRN"
Me.picBarcodeMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
Me.picBarcodeMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picBarcodeMRN.Top = 0.02598425!
Me.picBarcodeMRN.Visible = False
Me.picBarcodeMRN.Width = 3.561024!
'
'subRptLaufzettelZollDE_Vorpapier
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.094488!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape4 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents picBarcodeMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
End Class

126
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

50
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb Normal file
View File

@@ -0,0 +1,50 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_Vorpapier
Dim VP As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier)
Dim cnt = 1
Sub New(VP As List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.VP = VP
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtATAMRN.Text = ""
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("MRN").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("MRN").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
picBarcodeMRN.Image = Nothing
picBarcodeMRN.Visible = False
Try
If ATAMRN.Length > 10 And ATAMRN.Length < 50 Then
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 20)
picBarcodeMRN.Image = barcodeATA
picBarcodeMRN.Visible = True
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
txtATAMRN.Text = ATAMRN
txtNr.Text = cnt
cnt += 1
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("MRN", System.Type.GetType("System.String"))
For Each s In VP
dt.Rows.Add({s.vp_Nr})
Next
Me.DataSource = dt
End Sub
End Class

45
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1673,9 +1673,18 @@ Public Class FormularManagerNEU
Return LaufzettelZollDE(AVISO, SENDUNG_LIST)
End Function
Shared Function LaufzettelZollDE_VP(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String
Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
If AVISO Is Nothing Then Return ""
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP(SENDUNG_LIST, 0, AvisoId, Vorpapier) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
Return LaufzettelZollDE(AVISO, SENDUNG_LIST,,, Vorpapier)
End Function
Shared gesColli As Double = 0
Shared gesGewicht As Double = 0
Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim tmpPath = ""
Try
@@ -1777,6 +1786,26 @@ Public Class FormularManagerNEU
' MsgBox(ex.Message & ex.StackTrace)
'End Try
rpt.SubReport1.Visible = False
If Vorpapier = "" Then
AVISO.LOAD_Vorpapiere()
If AVISO.VORPAPIERE.Count > 0 Then ' prüfen, ob AT-Zoll ohne Ü-T1 --> dann kein Eintrag!
' rpt.Detail.Visible = False
Dim SubRptVP As New subRptLaufzettelZollDE_Vorpapier(AVISO.VORPAPIERE)
rpt.SubReport1.Report = SubRptVP
rpt.SubReport1.Visible = True
End If
Else
Dim VORPAPIERE As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier)
Dim VP As New VERAG_PROG_ALLGEMEIN.cAvisoVorpapier
VP.vp_Nr = Vorpapier : VORPAPIERE.Add(VP)
Dim SubRptVP As New subRptLaufzettelZollDE_Vorpapier(VORPAPIERE)
rpt.SubReport1.Report = SubRptVP
rpt.SubReport1.Visible = True
End If
'MsgBox(tb.Rows.Count)
@@ -1792,7 +1821,7 @@ Public Class FormularManagerNEU
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "")
If SND.tblSnd_Fremdspedition Then
rpt.txtAbfertigungsart.Text = "FREMD"
@@ -1895,7 +1924,7 @@ Public Class FormularManagerNEU
gesColli += a.sndhdg_colli
gesGewicht += a.sndhdg_gewicht
Next
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier)
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier, SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung)
rpt.SubReport.Report = SubRpt
End If
@@ -1903,7 +1932,7 @@ Public Class FormularManagerNEU
rpt.txtAnmerkung.Visible = False
'If ATAMRN_List.Count = 0 Then
'If ATAMRN_List.Count = 0 Then
' rpt.txtAnmerkung.Text = ""
' Dim colliGewicht = ""
@@ -1957,8 +1986,12 @@ Public Class FormularManagerNEU
rpt.Dispose()
Else
If (Vorpapier <> "") Then
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_" & Vorpapier & ".pdf", ".pdf", , False)
Else
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False)
End If
tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False)
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
@@ -1969,8 +2002,6 @@ Public Class FormularManagerNEU
End If
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try