This commit is contained in:
2019-10-31 09:22:40 +01:00
parent 6ae299259e
commit 12f63bb4bc
41 changed files with 1078 additions and 278 deletions

View File

@@ -158,6 +158,12 @@
<Compile Include="rptSendungen.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenZollpruefung.Designer.vb">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</Compile>
<Compile Include="subRptSendungenZollpruefung.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="subRptSendungenOfferte.Designer.vb">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</Compile>
@@ -182,6 +188,9 @@
<EmbeddedResource Include="rptSendungen.resx">
<DependentUpon>rptSendungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenZollpruefung.resx">
<DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="subRptSendungenOfferte.resx">
<DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
</EmbeddedResource>
@@ -209,6 +218,10 @@
<None Include="Resources\road.jpg" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
<Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
<Name>DAKOSY_Worker_lib</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
@@ -232,23 +245,20 @@
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<None Include="Resources\NKD.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\WAI.png" />
<None Include="Resources\QS.png" />
<None Include="Resources\NKD.png" />
<None Include="Resources\LEX.png" />
<None Include="Resources\SBG.png" />
</ItemGroup>
<ItemGroup>
<Content Include="Resources\SUB.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="Resources\WAI.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\QS.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<Content Include="Resources\SBG.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="Resources\SUB.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\UNISPED.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\IMEX.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.

View File

@@ -60,6 +60,16 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _SUB() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_SUB", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
'''</summary>
@@ -69,5 +79,75 @@ Namespace My.Resources
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property IMEX() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("IMEX", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property LEX() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("LEX", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property NKD() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("NKD", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property QS() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("QS", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property SBG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("SBG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property UNISPED() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("UNISPED", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property WAI() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("WAI", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@@ -121,4 +121,28 @@
<data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NKD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="QS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\QS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UNISPED" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\UNISPED.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

Binary file not shown.

After

Width:  |  Height:  |  Size: 185 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 196 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 265 KiB

After

Width:  |  Height:  |  Size: 182 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 271 KiB

After

Width:  |  Height:  |  Size: 186 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 267 KiB

After

Width:  |  Height:  |  Size: 182 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 266 KiB

After

Width:  |  Height:  |  Size: 196 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 197 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 265 KiB

After

Width:  |  Height:  |  Size: 181 KiB

View File

@@ -1461,13 +1461,13 @@ Partial Public Class rptSendungen
'
Me.SubReport.CanGrow = False
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 1.181102!
Me.SubReport.Height = 2.762992!
Me.SubReport.Left = 0.6704725!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 9.55197!
Me.SubReport.Width = 3.346457!
Me.SubReport.Top = 8.886615!
Me.SubReport.Width = 4.137795!
'
'txtFrachtfuehrer_Bar_BelegNr2
'

View File

@@ -1,9 +1,10 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSendungen
Public Class rptSendungen
Public VALUES As New rptSendungenValues
Public imgPath As String
Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Sub New()
@@ -14,10 +15,11 @@ Public Class rptSendungen
End Sub
Sub New(VALUES As rptSendungenValues, imgPath As String)
Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
InitializeComponent()
Me.VALUES = VALUES
Me.imgPath = imgPath
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
init()
End Sub
@@ -163,6 +165,13 @@ Public Class rptSendungen
SubReport.Report = s
End If
End If
If True Then
If ZOLLANMELDUNG IsNot Nothing Then
Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
SubReport.Report = s
End If
End If
End Sub

View File

@@ -0,0 +1,400 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptSendungenZollpruefung
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(subRptSendungenZollpruefung))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColliGewichtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATREUR1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRg = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgabenKto = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnmelder = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVertreter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerBestLandZst = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPraefAufRef = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSB = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSB, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3, Me.TextBox9, Me.TextBox1, Me.txtWarenbezeichung, Me.txtColliGewichtPreis, Me.txtATREUR1, Me.txtRg, Me.txtAbgabenKto, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAnmelder, Me.TextBox7, Me.txtVertreter, Me.txtVerBestLandZst, Me.txtPraefAufRef, Me.txtSB, Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN})
Me.Detail.Height = 2.218504!
Me.Detail.Name = "Detail"
'
'TextBox3
'
Me.TextBox3.CanGrow = False
Me.TextBox3.Height = 0.1456693!
Me.TextBox3.Left = 0!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox3.Text = "Abgabenkto:"
Me.TextBox3.Top = 1.056299!
Me.TextBox3.Width = 0.9228347!
'
'TextBox9
'
Me.TextBox9.CanGrow = False
Me.TextBox9.Height = 0.1456693!
Me.TextBox9.Left = 0!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox9.Text = "Pr<EFBFBD>f. auf Rg.:"
Me.TextBox9.Top = 0.91063!
Me.TextBox9.Width = 0.9228347!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.1456693!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox1.Text = "ATR/EUR1:"
Me.TextBox1.Top = 0.6192915!
Me.TextBox1.Width = 0.9228347!
'
'txtWarenbezeichung
'
Me.txtWarenbezeichung.CanGrow = False
Me.txtWarenbezeichung.Height = 0.2535433!
Me.txtWarenbezeichung.Left = 0!
Me.txtWarenbezeichung.Name = "txtWarenbezeichung"
Me.txtWarenbezeichung.Style = "font-size: 8pt; ddo-char-set: 1"
Me.txtWarenbezeichung.Text = Nothing
Me.txtWarenbezeichung.Top = 0.168504!
Me.txtWarenbezeichung.Width = 4.03189!
'
'txtColliGewichtPreis
'
Me.txtColliGewichtPreis.Height = 0.1685039!
Me.txtColliGewichtPreis.Left = 0!
Me.txtColliGewichtPreis.Name = "txtColliGewichtPreis"
Me.txtColliGewichtPreis.Style = "font-weight: bold; text-align: left"
Me.txtColliGewichtPreis.Text = Nothing
Me.txtColliGewichtPreis.Top = 0!
Me.txtColliGewichtPreis.Width = 2.988189!
'
'txtATREUR1
'
Me.txtATREUR1.Height = 0.1456693!
Me.txtATREUR1.Left = 0.8811024!
Me.txtATREUR1.Name = "txtATREUR1"
Me.txtATREUR1.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATREUR1.Text = Nothing
Me.txtATREUR1.Top = 0.6192912!
Me.txtATREUR1.Width = 3.150787!
'
'txtRg
'
Me.txtRg.Height = 0.1456693!
Me.txtRg.Left = 0.8811024!
Me.txtRg.Name = "txtRg"
Me.txtRg.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtRg.Text = Nothing
Me.txtRg.Top = 0.7649607!
Me.txtRg.Width = 3.150787!
'
'txtAbgabenKto
'
Me.txtAbgabenKto.Height = 0.1456693!
Me.txtAbgabenKto.Left = 0.8811024!
Me.txtAbgabenKto.Name = "txtAbgabenKto"
Me.txtAbgabenKto.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAbgabenKto.Text = Nothing
Me.txtAbgabenKto.Top = 1.056299!
Me.txtAbgabenKto.Width = 3.150787!
'
'TextBox2
'
Me.TextBox2.CanGrow = False
Me.TextBox2.Height = 0.1456693!
Me.TextBox2.Left = 0!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox2.Text = "Handels-Rg.:"
Me.TextBox2.Top = 0.7649607!
Me.TextBox2.Width = 0.9228347!
'
'TextBox4
'
Me.TextBox4.CanGrow = False
Me.TextBox4.Height = 0.1456693!
Me.TextBox4.Left = 0!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox4.Text = "Absender:"
Me.TextBox4.Top = 1.266142!
Me.TextBox4.Width = 0.8811023!
'
'TextBox5
'
Me.TextBox5.CanGrow = False
Me.TextBox5.Height = 0.1456693!
Me.TextBox5.Left = 0!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox5.Text = "Empf<EFBFBD>nger:"
Me.TextBox5.Top = 1.411811!
Me.TextBox5.Width = 0.8811023!
'
'TextBox6
'
Me.TextBox6.CanGrow = False
Me.TextBox6.Height = 0.1456693!
Me.TextBox6.Left = 0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox6.Text = "Anmelder:"
Me.TextBox6.Top = 1.55748!
Me.TextBox6.Width = 0.8811023!
'
'txtAbsender
'
Me.txtAbsender.CanGrow = False
Me.txtAbsender.Height = 0.1456693!
Me.txtAbsender.Left = 0.8811024!
Me.txtAbsender.Name = "txtAbsender"
Me.txtAbsender.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAbsender.Text = Nothing
Me.txtAbsender.Top = 1.266143!
Me.txtAbsender.Width = 3.150787!
'
'txtEmpfaenger
'
Me.txtEmpfaenger.CanGrow = False
Me.txtEmpfaenger.Height = 0.1456693!
Me.txtEmpfaenger.Left = 0.8811024!
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtEmpfaenger.Text = Nothing
Me.txtEmpfaenger.Top = 1.411811!
Me.txtEmpfaenger.Width = 3.150787!
'
'txtAnmelder
'
Me.txtAnmelder.CanGrow = False
Me.txtAnmelder.Height = 0.1456693!
Me.txtAnmelder.Left = 0.8811024!
Me.txtAnmelder.Name = "txtAnmelder"
Me.txtAnmelder.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtAnmelder.Text = Nothing
Me.txtAnmelder.Top = 1.55748!
Me.txtAnmelder.Width = 3.150787!
'
'TextBox7
'
Me.TextBox7.CanGrow = False
Me.TextBox7.Height = 0.1456693!
Me.TextBox7.Left = 0!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox7.Text = "Vertreter:"
Me.TextBox7.Top = 1.70315!
Me.TextBox7.Width = 0.8811023!
'
'txtVertreter
'
Me.txtVertreter.CanGrow = False
Me.txtVertreter.Height = 0.1456693!
Me.txtVertreter.Left = 0.8811024!
Me.txtVertreter.Name = "txtVertreter"
Me.txtVertreter.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtVertreter.Text = Nothing
Me.txtVertreter.Top = 1.70315!
Me.txtVertreter.Width = 3.150787!
'
'txtVerBestLandZst
'
Me.txtVerBestLandZst.Height = 0.1456693!
Me.txtVerBestLandZst.Left = 0!
Me.txtVerBestLandZst.Name = "txtVerBestLandZst"
Me.txtVerBestLandZst.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtVerBestLandZst.Text = Nothing
Me.txtVerBestLandZst.Top = 0.4220473!
Me.txtVerBestLandZst.Width = 4.031889!
'
'txtPraefAufRef
'
Me.txtPraefAufRef.Height = 0.1456693!
Me.txtPraefAufRef.Left = 0.8811024!
Me.txtPraefAufRef.Name = "txtPraefAufRef"
Me.txtPraefAufRef.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtPraefAufRef.Text = Nothing
Me.txtPraefAufRef.Top = 0.91063!
Me.txtPraefAufRef.Width = 3.150787!
'
'txtSB
'
Me.txtSB.CanGrow = False
Me.txtSB.Height = 0.1685039!
Me.txtSB.Left = 2.791339!
Me.txtSB.Name = "txtSB"
Me.txtSB.Style = "font-weight: bold; text-align: right"
Me.txtSB.Text = Nothing
Me.txtSB.Top = 0!
Me.txtSB.Width = 1.169291!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox8
'
Me.TextBox8.CanGrow = False
Me.TextBox8.Height = 0.1456693!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 9pt; ddo-char-set: 1"
Me.TextBox8.Text = "ATC/MRN:"
Me.TextBox8.Top = 1.848819!
Me.TextBox8.Width = 0.8811023!
'
'txtATCMRN
'
Me.txtATCMRN.CanGrow = False
Me.txtATCMRN.Height = 0.1456693!
Me.txtATCMRN.Left = 0.8811024!
Me.txtATCMRN.Name = "txtATCMRN"
Me.txtATCMRN.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtATCMRN.Text = Nothing
Me.txtATCMRN.Top = 1.848819!
Me.txtATCMRN.Width = 3.150787!
'
'barcodeATCMRN
'
Me.barcodeATCMRN.Height = 0.1964569!
Me.barcodeATCMRN.HyperLink = Nothing
Me.barcodeATCMRN.ImageData = Nothing
Me.barcodeATCMRN.Left = 0.7889764!
Me.barcodeATCMRN.Name = "barcodeATCMRN"
Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.barcodeATCMRN.Top = 2.022048!
Me.barcodeATCMRN.Width = 3.242913!
'
'subRptSendungenZollpruefung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.03189!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSB, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtWarenbezeichung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents txtColliGewichtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATREUR1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRg As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbgabenKto As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnmelder As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVertreter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerBestLandZst As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtPraefAufRef As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtSB As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
End Class

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>

View File

@@ -0,0 +1,47 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class subRptSendungenZollpruefung
Dim ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
Sub New(ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ZOLLANMELDUNG = ZOLLANMELDUNG
' 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 ZOLLANMELDUNG IsNot Nothing Then
'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
txtColliGewichtPreis.Text = ZOLLANMELDUNG.Colli & " " & ZOLLANMELDUNG.Gewicht & " " & ZOLLANMELDUNG.Rechnungspreis
txtAbgabenKto.Text &= ZOLLANMELDUNG.AbgabenKonto
txtRg.Text &= ZOLLANMELDUNG.Handelsrechnung
txtPraefAufRef.Text = ZOLLANMELDUNG.Pr<EFBFBD>ferenzAufRechnung
txtATREUR1.Text &= ZOLLANMELDUNG.Praeferenznachweis
txtWarenbezeichung.Text = ZOLLANMELDUNG.Warenbezeichung
txtVerBestLandZst.Text = ZOLLANMELDUNG.VerBestLandZst
txtAbsender.Text = ZOLLANMELDUNG.Absender
txtEmpfaenger.Text = ZOLLANMELDUNG.Empfaenger
txtAnmelder.Text = ZOLLANMELDUNG.Anmelder
txtVertreter.Text = ZOLLANMELDUNG.Vertreter
txtATCMRN.Text = ZOLLANMELDUNG.ATCMRN
If ZOLLANMELDUNG.ATCMRN <> "" Then
barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(ZOLLANMELDUNG.ATCMRN, 1, True, 20)
End If
txtSB.Text = ZOLLANMELDUNG.Sachbearbeiter
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'If ABF_ART <= 0 Then Exit Sub
'If AbfKostKdnr <= 0 Then Exit Sub
'Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
End Sub
End Class