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

SpedBuchRPT

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-23 15:56:08 +02:00
parent f73f77b76f
commit 7df3fa1c96
9 changed files with 198 additions and 758 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/My Project/Resources.resx
View File

@@ -368,7 +368,7 @@
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="aeo_CS" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="aeo_CS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>F:\Grafik\VERAG\AEO\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\aeo_CS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="verag_Card" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="verag_Card" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\verag_Card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\verag_Card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

BIN
SDL/Resources/AEO_CS.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 48 KiB

BIN
SDL/Resources/Verag_Customs_Service_AEO1.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 8.1 KiB

15
SDL/SDL.vbproj
View File

@@ -912,6 +912,11 @@
<Compile Include="mdm\usrcntlFremdrechnungen.vb"> <Compile Include="mdm\usrcntlFremdrechnungen.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="seriendruck\usrCntlFakturierung.Designer.vb"> <Compile Include="seriendruck\usrCntlFakturierung.Designer.vb">
<DependentUpon>usrCntlFakturierung.vb</DependentUpon> <DependentUpon>usrCntlFakturierung.vb</DependentUpon>
</Compile> </Compile>
@@ -966,11 +971,6 @@
<Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_divers.vb"> <Compile Include="mdm\usrCntlMDMDatenverarbeitungAuswertungen_divers.vb">
<SubType>UserControl</SubType> <SubType>UserControl</SubType>
</Compile> </Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="OriginalArchiv_ATR\frmATR.Designer.vb"> <Compile Include="OriginalArchiv_ATR\frmATR.Designer.vb">
<DependentUpon>frmATR.vb</DependentUpon> <DependentUpon>frmATR.vb</DependentUpon>
</Compile> </Compile>
@@ -2988,9 +2988,7 @@
<Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.Designer.vb"> <Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.Designer.vb">
<DependentUpon>rptSpeditionsberichtKdSpez.vb</DependentUpon> <DependentUpon>rptSpeditionsberichtKdSpez.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.vb"> <Compile Include="Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.vb" />
<SubType>Component</SubType>
</Compile>
<Compile Include="Speditionsbuch\rptSpeditionsberichtKunde.Designer.vb"> <Compile Include="Speditionsbuch\rptSpeditionsberichtKunde.Designer.vb">
<DependentUpon>rptSpeditionsberichtKunde.vb</DependentUpon> <DependentUpon>rptSpeditionsberichtKunde.vb</DependentUpon>
</Compile> </Compile>
@@ -4972,6 +4970,7 @@
<None Include="Resources\search.png" /> <None Include="Resources\search.png" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<None Include="Resources\Verag_Customs_Service_AEO1.jpg" />
<EmbeddedResource Include="My Project\license.elic.xml" /> <EmbeddedResource Include="My Project\license.elic.xml" />
<Content Include="My Project\licensePDFPro.elic.xml" /> <Content Include="My Project\licensePDFPro.elic.xml" />
<Content Include="My Project\licensePDFViewer.elic.xml" /> <Content Include="My Project\licensePDFViewer.elic.xml" />

78
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsberichtKdSpez.Designer.vb generated
View File

@@ -49,6 +49,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.lblFrachtfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblFrachtfKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKdOpt = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtKdOpt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblKdAuftragNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -117,7 +118,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblKdAuftragNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblLKWNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLKWNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAbs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBarzahlungsbetrag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -147,6 +148,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKdOpt, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtKdOpt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKdAuftragNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -195,7 +197,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKdAuftragNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -205,8 +207,8 @@ Partial Public Class rptSpeditionsberichtKdSpez
' '
'Detail 'Detail
' '
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLKWNr, Me.lblAbs, Me.lblBarzahlungsbetrag, Me.lblBarTital, Me.lblBezugsNr, Me.lblPosNr, Me.lblAbfertigungsart, Me.lblAbfDatum, Me.Label2, Me.Label14, Me.Label15, Me.Label16, Me.lblEmpf, Me.lblAuftr, Me.lblFrachtf, Me.lblRohmasse, Me.txtPackst<EFBFBD>cke, Me.txtVermerk, Me.Label7, Me.Label21, Me.lblRechnungsBetrag, Me.lblRechnungsbetragInEur, Me.lblWaehrung, Me.lblAnzahl, Me.lblAbsKdNr, Me.lblEmpfKdNr, Me.lblAuftrKdNr, Me.lblFrachtfKdNr, Me.txtKdOpt, Me.Line3, Me.lblKdAuftragNr}) Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLKWNr, Me.lblAbs, Me.lblBarzahlungsbetrag, Me.lblBarTital, Me.lblBezugsNr, Me.lblPosNr, Me.lblAbfertigungsart, Me.lblAbfDatum, Me.Label2, Me.Label14, Me.Label15, Me.Label16, Me.lblEmpf, Me.lblAuftr, Me.lblFrachtf, Me.lblRohmasse, Me.txtPackst<EFBFBD>cke, Me.txtVermerk, Me.Label7, Me.Label21, Me.lblRechnungsBetrag, Me.lblRechnungsbetragInEur, Me.lblWaehrung, Me.lblAnzahl, Me.lblAbsKdNr, Me.lblEmpfKdNr, Me.lblAuftrKdNr, Me.lblFrachtfKdNr, Me.txtKdOpt, Me.Line3, Me.lblKdAuftragNr, Me.Label11})
Me.Detail.Height = 1.013227! Me.Detail.Height = 1.02033!
Me.Detail.KeepTogether = True Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail" Me.Detail.Name = "Detail"
' '
@@ -232,7 +234,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
"ar-set: 1" "ar-set: 1"
Me.lblAbs.Text = "VERAG" Me.lblAbs.Text = "VERAG"
Me.lblAbs.Top = 0.03149607! Me.lblAbs.Top = 0.03149607!
Me.lblAbs.Width = 2.155906! Me.lblAbs.Width = 2.005118!
' '
'lblBarzahlungsbetrag 'lblBarzahlungsbetrag
' '
@@ -242,7 +244,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.lblBarzahlungsbetrag.Name = "lblBarzahlungsbetrag" Me.lblBarzahlungsbetrag.Name = "lblBarzahlungsbetrag"
Me.lblBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblBarzahlungsbetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBarzahlungsbetrag.Text = "250.000,00" Me.lblBarzahlungsbetrag.Text = "250.000,00"
Me.lblBarzahlungsbetrag.Top = 0.03149607! Me.lblBarzahlungsbetrag.Top = 0.5023623!
Me.lblBarzahlungsbetrag.Width = 0.6708655! Me.lblBarzahlungsbetrag.Width = 0.6708655!
' '
'lblBarTital 'lblBarTital
@@ -253,7 +255,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.lblBarTital.Name = "lblBarTital" Me.lblBarTital.Name = "lblBarTital"
Me.lblBarTital.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.lblBarTital.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBarTital.Text = "Bar:" Me.lblBarTital.Text = "Bar:"
Me.lblBarTital.Top = 0.03149607! Me.lblBarTital.Top = 0.5023623!
Me.lblBarTital.Width = 0.5751972! Me.lblBarTital.Width = 0.5751972!
' '
'lblBezugsNr 'lblBezugsNr
@@ -556,12 +558,23 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.Line3.LineColor = System.Drawing.Color.LightGray Me.Line3.LineColor = System.Drawing.Color.LightGray
Me.Line3.LineWeight = 1.0! Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3" Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8708662! Me.Line3.Top = 1.013386!
Me.Line3.Width = 7.475196! Me.Line3.Width = 7.475196!
Me.Line3.X1 = 0.002755906! Me.Line3.X1 = 0.002755906!
Me.Line3.X2 = 7.477952! Me.Line3.X2 = 7.477952!
Me.Line3.Y1 = 0.8708662! Me.Line3.Y1 = 1.013386!
Me.Line3.Y2 = 0.8708662! Me.Line3.Y2 = 1.013386!
'
'lblKdAuftragNr
'
Me.lblKdAuftragNr.CanGrow = False
Me.lblKdAuftragNr.Height = 0.1574803!
Me.lblKdAuftragNr.Left = 0!
Me.lblKdAuftragNr.Name = "lblKdAuftragNr"
Me.lblKdAuftragNr.Style = "font-size: 8pt; ddo-char-set: 1"
Me.lblKdAuftragNr.Text = "Auftrag:T1713072"
Me.lblKdAuftragNr.Top = 0.6598426!
Me.lblKdAuftragNr.Width = 1.474409!
' '
'PageFooter 'PageFooter
' '
@@ -623,7 +636,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
' '
Me.picVERAG.Height = 0.4169292! Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.281889! Me.picVERAG.Left = 5.281889!
Me.picVERAG.Name = "picVERAG" Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -669,23 +682,23 @@ Partial Public Class rptSpeditionsberichtKdSpez
' '
Me.lblFilterTxt.Height = 0.1377953! Me.lblFilterTxt.Height = 0.1377953!
Me.lblFilterTxt.HyperLink = Nothing Me.lblFilterTxt.HyperLink = Nothing
Me.lblFilterTxt.Left = 0.01023626! Me.lblFilterTxt.Left = 0.01023622!
Me.lblFilterTxt.Name = "lblFilterTxt" Me.lblFilterTxt.Name = "lblFilterTxt"
Me.lblFilterTxt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1" Me.lblFilterTxt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblFilterTxt.Text = "Filter:" Me.lblFilterTxt.Text = "Filter:"
Me.lblFilterTxt.Top = 0.7673229! Me.lblFilterTxt.Top = 0.6968504!
Me.lblFilterTxt.Visible = False Me.lblFilterTxt.Visible = False
Me.lblFilterTxt.Width = 4.312599! Me.lblFilterTxt.Width = 4.312599!
' '
'txtFilter 'txtFilter
' '
Me.txtFilter.CanShrink = True Me.txtFilter.CanShrink = True
Me.txtFilter.Height = 0.1480315! Me.txtFilter.Height = 0.218504!
Me.txtFilter.Left = 0! Me.txtFilter.Left = 0!
Me.txtFilter.Name = "txtFilter" Me.txtFilter.Name = "txtFilter"
Me.txtFilter.Style = "font-size: 8pt; ddo-char-set: 1" Me.txtFilter.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.txtFilter.Text = "-" Me.txtFilter.Text = "-"
Me.txtFilter.Top = 0.9051182! Me.txtFilter.Top = 0.8346457!
Me.txtFilter.Visible = False Me.txtFilter.Visible = False
Me.txtFilter.Width = 7.480316! Me.txtFilter.Width = 7.480316!
' '
@@ -941,7 +954,6 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.Label35.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" Me.Label35.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.Label35.Text = "Rechnung:" Me.Label35.Text = "Rechnung:"
Me.Label35.Top = 0.1874016! Me.Label35.Top = 0.1874016!
Me.Label35.Visible = False
Me.Label35.Width = 0.5751972! Me.Label35.Width = 0.5751972!
' '
'lblGesSumRechnungsbetrag 'lblGesSumRechnungsbetrag
@@ -954,7 +966,6 @@ Partial Public Class rptSpeditionsberichtKdSpez
" ddo-char-set: 1" " ddo-char-set: 1"
Me.lblGesSumRechnungsbetrag.Text = "250.000,00" Me.lblGesSumRechnungsbetrag.Text = "250.000,00"
Me.lblGesSumRechnungsbetrag.Top = 0.1874016! Me.lblGesSumRechnungsbetrag.Top = 0.1874016!
Me.lblGesSumRechnungsbetrag.Visible = False
Me.lblGesSumRechnungsbetrag.Width = 0.734252! Me.lblGesSumRechnungsbetrag.Width = 0.734252!
' '
'Label39 'Label39
@@ -1256,7 +1267,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.Label6.Left = 6.231496! Me.Label6.Left = 6.231496!
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label6.Text = "Zahlungsbetrag" Me.Label6.Text = "Abfertigungsstelle"
Me.Label6.Top = 0.06732279! Me.Label6.Top = 0.06732279!
Me.Label6.Width = 1.246063! Me.Label6.Width = 1.246063!
' '
@@ -1300,20 +1311,19 @@ Partial Public Class rptSpeditionsberichtKdSpez
Me.GroupFooter4.Height = 0! Me.GroupFooter4.Height = 0!
Me.GroupFooter4.Name = "GroupFooter4" Me.GroupFooter4.Name = "GroupFooter4"
' '
'lblKdAuftragNr 'Label11
' '
Me.lblKdAuftragNr.CanGrow = False Me.Label11.Height = 0.472441!
Me.lblKdAuftragNr.Height = 0.1574803! Me.Label11.HyperLink = Nothing
Me.lblKdAuftragNr.Left = 0! Me.Label11.Left = 6.078347!
Me.lblKdAuftragNr.Name = "lblKdAuftragNr" Me.Label11.Name = "Label11"
Me.lblKdAuftragNr.Style = "font-size: 8pt; ddo-char-set: 1" Me.Label11.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblKdAuftragNr.Text = "Auftrag:T1713072" Me.Label11.Text = "-"
Me.lblKdAuftragNr.Top = 0.6598426! Me.Label11.Top = 0.03149607!
Me.lblKdAuftragNr.Width = 1.474409! Me.Label11.Width = 1.396851!
' '
'rptSpeditionsberichtKdSpez 'rptSpeditionsberichtKdSpez
' '
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008! Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008! Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008! Me.PageSettings.Margins.Right = 0.3937008!
@@ -1369,6 +1379,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblAuftrKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFrachtfKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKdOpt, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtKdOpt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKdAuftragNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1417,7 +1428,7 @@ Partial Public Class rptSpeditionsberichtKdSpez
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKdAuftragNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
@@ -1489,9 +1500,6 @@ Partial Public Class rptSpeditionsberichtKdSpez
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label19 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
@@ -1520,4 +1528,8 @@ Partial Public Class rptSpeditionsberichtKdSpez
Public WithEvents lblGesGesSumLKWsAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblGesGesSumLKWsAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents lblKdAuftragNr As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents lblKdAuftragNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label19 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class End Class

627
SDL/Speditionsbuch/Nacherfassung/rptSpeditionsberichtKdSpez.resx
View File

File diff suppressed because one or more lines are too long

126
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb generated
View File

@@ -23,12 +23,12 @@ Partial Class usrCntlSpeditionsBuchSuche
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche))
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -202,6 +202,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label45 = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label()
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox()
Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlRechts.SuspendLayout() Me.pnlRechts.SuspendLayout()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -667,35 +668,35 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.DataGridView.AllowUserToDeleteRows = False Me.DataGridView.AllowUserToDeleteRows = False
Me.DataGridView.AllowUserToOrderColumns = True Me.DataGridView.AllowUserToOrderColumns = True
Me.DataGridView.AllowUserToResizeRows = False Me.DataGridView.AllowUserToResizeRows = False
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle8 Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.Location = New System.Drawing.Point(450, 0) Me.DataGridView.Location = New System.Drawing.Point(450, 0)
Me.DataGridView.Name = "DataGridView" Me.DataGridView.Name = "DataGridView"
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.DataGridView.Size = New System.Drawing.Size(770, 200) Me.DataGridView.Size = New System.Drawing.Size(770, 200)
Me.DataGridView.TabIndex = 0 Me.DataGridView.TabIndex = 0
' '
@@ -722,35 +723,35 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.dgvLKW.AllowUserToOrderColumns = True Me.dgvLKW.AllowUserToOrderColumns = True
Me.dgvLKW.AllowUserToResizeRows = False Me.dgvLKW.AllowUserToResizeRows = False
Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvLKW.Location = New System.Drawing.Point(0, 0) Me.dgvLKW.Location = New System.Drawing.Point(0, 0)
Me.dgvLKW.Name = "dgvLKW" Me.dgvLKW.Name = "dgvLKW"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvLKW.Size = New System.Drawing.Size(450, 200) Me.dgvLKW.Size = New System.Drawing.Size(450, 200)
Me.dgvLKW.TabIndex = 35 Me.dgvLKW.TabIndex = 35
Me.dgvLKW.Visible = False Me.dgvLKW.Visible = False
@@ -923,7 +924,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
Me.MenuStrip1.Location = New System.Drawing.Point(715, 158) Me.MenuStrip1.Location = New System.Drawing.Point(715, 158)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(283, 27) Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
Me.MenuStrip1.TabIndex = 89 Me.MenuStrip1.TabIndex = 89
Me.MenuStrip1.Text = "Kundenauswertungen" Me.MenuStrip1.Text = "Kundenauswertungen"
' '
@@ -941,7 +942,7 @@ Partial Class usrCntlSpeditionsBuchSuche
' '
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
' '
@@ -949,14 +950,14 @@ Partial Class usrCntlSpeditionsBuchSuche
' '
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem" Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem"
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)" Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)"
' '
'ZFThyrnauZeitraumAuswählenToolStripMenuItem 'ZFThyrnauZeitraumAuswählenToolStripMenuItem
' '
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem" Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)" Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
' '
@@ -964,7 +965,7 @@ Partial Class usrCntlSpeditionsBuchSuche
' '
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem" Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30) Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)" Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
' '
@@ -1260,6 +1261,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel1.Controls.Add(Me.cbxRptDetailsZahlungsdetails)
Me.Panel1.Controls.Add(Me.cboDetailberichtKdAtrNr) Me.Panel1.Controls.Add(Me.cboDetailberichtKdAtrNr)
Me.Panel1.Controls.Add(Me.Label38) Me.Panel1.Controls.Add(Me.Label38)
Me.Panel1.Controls.Add(Me.Label44) Me.Panel1.Controls.Add(Me.Label44)
@@ -2821,6 +2823,17 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.SplitContainer.SplitterWidth = 2 Me.SplitContainer.SplitterWidth = 2
Me.SplitContainer.TabIndex = 3 Me.SplitContainer.TabIndex = 3
' '
'cbxRptDetailsZahlungsdetails
'
Me.cbxRptDetailsZahlungsdetails.AutoSize = True
Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79)
Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails"
Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17)
Me.cbxRptDetailsZahlungsdetails.TabIndex = 58
Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails"
Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False
'
'usrCntlSpeditionsBuchSuche 'usrCntlSpeditionsBuchSuche
' '
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -3037,4 +3050,5 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents SendungsdetailsÖffnenToolStripMenuItem As ToolStripMenuItem Friend WithEvents SendungsdetailsÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cbxRptDetailsZahlungsdetails As CheckBox
End Class End Class

67
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
View File

@@ -174,39 +174,40 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB3VJREFUSEu9VntQ1NUe 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDAAACwwBP0AiyAAAB4JJREFUSEu9lntM1FcW
/86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r x0+yNWpdBURGEJ0ZXtVqZX0hFJAB5gVILVbQTRCQ1wwDw7wYGMSCgiI+IoivtbpBwOLqqnUXq30YlVrX
ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ bXAFu6Ua2ShG0jVoq1ZFwQffzb3zhG22/+0vOZnf3Nz8Pjn3nPs9X1qx10yqpnWU27iOEuo0pG6qpMKP
UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C qyljXxkpt6hozdF6qvxkN2XuW0OymiwqO1I33tBUPTNhsypTUpVuydhTOi5jTynNL08mQUEkiQwyEhql
MGn2uYHkVRZLWz5uJwmY1VbNQDUU16ijwr3racWBTZTX+ibF1ueOKWxfNzvz7aqF4WvT13gvX3DAv+r1 JDLKSGiQ8vDKj6AZlkTa+WULEQOqmytJ3VRFS+q1ZDq8hdYc304FTRsosTZ/jKll89zcP1YslW/K3hi8
nhdKYu+r8sMwIcMPNsmzaILWj1wMIeRWGPHngGm7Kkm/p46y21Y7RmzURiRsLyyNqc9pClideNqrPPaG Oul4WMXvu98pThwQF0oxMScU49Ln0ERVKPnqY8jPpPh1YNaBctIdqqG85vWTFdtUipQ9ppKEWs3e8PWp
R3EUJuvUsM8JlGab4YtJWn84ZQfB3RB5zTkvmGwy55Bdtr/JsvxpfLaf3I/P8pP2dMpMciuKoD2nO4kC l2aUJj4IMsdhilYCL00ED7echZikCoN3XiQC9cp7PgVRNC53PnnkhVlDHUbueaH83V0dyuONjNnkV6Sg
65Iq59Ys6Zn+xquPlcXhcDQEY2JeICbmBsBJr4aTLhhT9CFQGMLgqg+Fa34oFLp5mJwTDI+CKMxcseDc Q5dOEUXUpJUvqFrRPfPD94dEZjkm66PgWRABz/xweOsk8NZGYaouBkK9FNN0sZhWGAuhNhpTNFEIMsRh
tOLILo/i6C6PEjbrr9nci6K6phZFdHHUDORQEHyIDU5GfpQBlUXhULEpC8OhMGrAoYGSwQSgggEV+XxP 9pqkrgCzsj3IHN8eVBw//NcWgUVx7f5FivaCpg16EhiiWgWGKHgbYyA0yyEqkkNcJIfIJIfQKIOIhV7K
FwLbtLnwMEbht0ePYFkDDx+gf+C++dfQunOvD7tPHQIleh0ht7LIZrfSSKiElURCWRwxCCjBhBVYA5o8 gUJdLISFMRBqY+CWtQBBxji8ev0a9mfw5Qs8Gxxw/Lc/T5734+DFVlDqjNPkZ1E2+JUoIWZRrITIrHAA
HJ/uA09jNH746Qqu3rqO3mtX8PjxYwlwkc9+vHkNl67/iJt9v8qzkxe6MCrVu5kBo5pVpQzCYKoS/o4E OYyFwRVozdA9OwTTjfG42deLu4/uo+deL4aGhjjgVl8vfnh4D7fv/4CH/T/ztbbr7RiVGdxAfpa4BnGJ
ZDALoAipCTAESl0oXHLVeDZ9Dp7NmAOKtsXWY3vQ0fURKHIsnkl/EbTACeraFAl49JvP+Wy2AIxkQIuH gsPExQqIRwINUgeQHakVGAORNha++RK8mT0fb+bMB8W7YdeZQzjW/gVIOR5js+eBkrwhqc7gwM+//Rpj
JsDJBs4Rm4pBVQxqm+mD0ctmwYU9U+oZnAGFTcmbh0m5gdJo4WS89ck+HPzqOOhVR9PZkmng1pKAH1oD s+cyoLKBZ8cztAKn6KN5iE1yiI0yuOWGYPSqOfDVRkOkk3Igi6kF0ZiUH8GDlk7BR+eO4MSVs6D3J1vX
WkKqZMBppdFcNAH4i9aHcxgGey6gGWWvYP6GbHiWzIdzbrAMqV26L57jHH518Ttc+O9F+f35zk3c6r/D VgRAuUXFgZ+5Au1HKipWIKAkHp4F4fitKgRCoxReBRGYZXkPi7fmYXrxYvjkR/Ej9cheiLeMcbhy63tc
+3M4d+U/6O49jx841GIdPntCeG0KqQXQgSvUvTxGPnDywhnQUi+46Ofh9r278jG7DB84cGsI70SVKrkX //ct/vvjk4d49OwJrtzqQlfvv9DRcw037/Vy4MnO8yxr65HagQJ9FAJLE/gH2q5fBq2cAV9dNB4/f8o/
FzTo8NpmAwKqEvDB2ZM41dONgMp4LGzUI2j1UpTtq5eAR77+zOKhyKEJ0JWrlJZ64pvL38tLEzksSU3l 5pETAoEmgmfHulRUKEVSnRYf7NAjvCIFn3a24WJ3B8LLk7G0XofI9SthOVLLgaevXrBnyGpoBU4zy0Er
cq/fXQdapBwMqZteI0FF+CjOATSLsObQDrR8/g/QTDKd+RG4LeTfH/33KTNg6VAOhaej0rwRWJskL+36 p+PbOzf4Js/8CKTtLeXvuoM1oGUix5H66WQcyo6PlghAcwgbW/eh8eu/gGaTdS2UEGSOt9bwnxdtwBJn
7CC+vdKDu/f7MCr5BTjkBsmicWVAwTLuBZEyNye4Ag+zd5d/uYqffv0Zh7o/wfHvvkQne/Wv3nPyLeH9 DVmmo7KCEVGdxjcduHAC3/V24+lAP0alvwNBfiRvmmnaGK4ygQYlr8356+042dmGOz/dRd/PP6K14xzO
8BxaVSkleuDYt6flRbGym1eC4lVQFWgGq9RBG4iphnBs+KAZmz5qw8qOzTh76QK+v9qLqv2NaDjahpqD fv8NTl29gH/0dPFvseyH19ClSyk1CGe+u8Q3sievYS0oWQyxQeboUoEqAv56ObZ+2oDtXzRj7bEd6Lx9
27H3yw/lG51ff2rJ4fA+dOeiofgpWLzVKC/efzjAVeqLcVrfYW0xVR8O55yXQZpnQGGjQdMIVQe2YOfJ HTfu9qDiaD3qPm9G1Yk9OPzNZ/wbp65+Za/h8HsYWBIPSp6K5buMfOPAy0G45S7EBNXCYdfCXyeHj2YR
DpAbh1SczSDJVGKZQjqiaASgYBtKfE6GxLJ0rW/yP6FkD5l9zID2WQHsYQQ2dA552H3pPHt4CSutPfxn SDYWJB0NCiBUHN+J/W3HQH5kXZtFXKmcRzqiaRiQqQ2lvsWPxP5omzaAkkUQG+QOoJc6HP56BbaecmbY
p3yj86zwUOZwCJD3oOTnEbUxW15q+PgdZpLLnMN+jEn5qyRvC7VNzPSHu9Gcw/Ocw+4Tgzk8PJjDT3GG cfsabty9jbWuGf79lDXDTpYhr6ET6FcSB0p/G3Hb8vimui8/xs2+O3g68AxjMn7HxdsubZ65YQg02mp4
W0QskcMxaeaisQC6FIZiNBfN9ds35CVarEL5301lbWxfB3rNdahK83+/SltFlXqbq9Sfq7RkZJVaqI0B rR0nO847anjSUcOvcPmWs4ZjsmxNYwf6mmIxOisY9x8/4JtouRilf7a2tbFlM+iDac4uLfzlLm1iXRps
x+X4IWhNEn65cwttXzDZxtljxvI4SdCCmB2zAzCJQykAXWQfhpr6sPGP+nCjBBR9KD1UWeVQMI0oGmeD 69IwQlDxyC61S1uJEhM0oYjcmIafnjxC899aQUu8MGv1Ei7QTJgn54VjkjqcA335PYy13sP6/3UPt3Eg
GrZZvlAUajApJwA+lQlI2GxkxomDExeKALTjuTiMaXrNTNPHTMOtMMg0TORiibZ5okrFV4wnR32wiUuL u4c8Q7FLDZnSsKbx0Uvgpl4IoUmGSZpwhJSnIGWHEbMsS+CtWcSBHjkjlKbHpjT9T3Clx0Vp+uxKw67F
+DdzqQ0T8VPJM+UgVnHDC0AFk7fgUtssP/CQBb1ij78d34v3zhwDzZ8gzylegbC6NAkocm3O4RDTjJwW iC5lv2w8TdZFWbW0SMkFfFz2PPwmfTYfxGKdzKalsVxL3dShcFeHgt7zwh/OHsYnl8+AFk/k65QshLQm
w+chV6e5LUTjK/IEeYfAOV8NZx7UlKDEzhMdeJ8LhhZNkeeU6InYjTmDgE9Q2xPjiUMqAFmXjACch3E8 iwNZrW01dCrNyGkxfB7GOsYTu/jCAibeMfAplMBHJwGliLD//DH8teMcaNlUvk6p05G4TeMA/pe0jQSK
gL0KY3C7/y4e/PYQ/Q+GBq/YP+Szew8GzCfmebiM56FDgXr4xGdTFTGoFeDvDWDbNB858fsG7pmfZCCe TFagkI8nV2A0JmQtwAxTAh4/e4oXr17i2Qvn4GXvL1+9xPMXg441Pg9XBTeQwCAZPvHNbOIr+GiyA39p
9qKFrNcjHspy4osiTPQ8QgFrhKZZbKVp1HI8CeIWoXLKH9I01hJDahoG9K5gTcOaReqYEVrGYlLTFEZ0 ALtlhfCJ3z/43AkaHOBXyPV5PTRknfisCVOnn6bwjczTLHfxNBI+nphws6PyLnR6GleLwT2NMQ7BZUld
MYEYKHXXG5TfXsdSsUaqtvhtRlZt2U0vCdVWFnvDndnepNqCeDQFYbxUbS/JamXyNqm2jLms0ixKzWR2 AUVxVh8zwssM8zQmRbuWeZrMAx9SYUsNqZuruGtL3m0sSajN2/suc22WxAeB5niba4uEQBMJd+7a3uXd
rNYsv59O8aapFtW2uKmIhXC1NKFLje+uo4qOTZTbsprm1+eMMbavnZ2xs3KhZlCXLumZMUyXzmZd6m/W GmiwubacBeThcGrW8FA7/7+REUz+dte2fG8RqZoqeTBfavzTZio7tp3yG9fT4lrNGGPLprk5+8uXyhy+
peGsQ4Ue1bA+tWhTDevSIHreoksFoFDdGS0rpfLW8l63u5aS31pOEeszqWJ/A606sIWWsRIXynv53vqx dEX3rGG+dC5NVIXZfKmchMyXGmQkMti9qYy88iPpbbsvZUDmunMa13LnrWpcR9qD1ZT+0WpSbMmlsqN1
+pba6dFrM1PV1UllydvKbJK3ltKLlYvIQffynwNyXv+PBvofzgNyIxLbwtkAAAAASUVORK5CYII= tO74Tlq1r4w779WHa8frGqtnxm/KzZRUplnSd1vGpe8qoXnly0igXfTrQKZg/8/4D84DciO4yFz1AAAA
AElFTkSuQmCC
</value> </value>
</data> </data>
</root> </root>

41
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1232,7 +1232,7 @@ Public Class usrCntlSpeditionsBuchSuche
sqlstr &= " SELECT FilialenNr, AbfertigungsNr,UnterNr, Speditionsbuch.Abfertigungsart as Abfertigungsart ,Abfertigungsdatum, BelegNr, Rohmasse, Vermerk, Packstücke, AbsenderKundenNr, Absender, EmpfängerKundenNr, Empfänger, VermittlerKundenNr, Vermittler, " sqlstr &= " SELECT FilialenNr, AbfertigungsNr,UnterNr, Speditionsbuch.Abfertigungsart as Abfertigungsart ,Abfertigungsdatum, BelegNr, Rohmasse, Vermerk, Packstücke, AbsenderKundenNr, Absender, EmpfängerKundenNr, Empfänger, VermittlerKundenNr, Vermittler, "
sqlstr &= " FrachtführerKundenNr, Frachtführer, AvisiererKundenNr, Avisierer,Währungscode,Barzahlungsbetrag,Rechnungsbetrag, [LKW Kennzeichen]," sqlstr &= " FrachtführerKundenNr, Frachtführer, AvisiererKundenNr, Avisierer,Währungscode,Barzahlungsbetrag,Rechnungsbetrag, [LKW Kennzeichen],"
sqlstr &= " Abfertigungsanzahl, Speditionsbuch.Abfertigungsart, Abfertigungsbezeichnung,AvisoID" & sql_KdAuftragsNr & ",Speditionsbuch.KdAuftragsNrAvisierer,Speditionsbuch.KdAuftragsNrEmpfaenger,Speditionsbuch.KdAuftragsNrFrachtfuehrer, Speditionsbuch.Bemerkungen " sqlstr &= " Abfertigungsanzahl, Speditionsbuch.Abfertigungsart, Abfertigungsbezeichnung,AvisoID" & sql_KdAuftragsNr & ",Speditionsbuch.KdAuftragsNrAvisierer,Speditionsbuch.KdAuftragsNrEmpfaenger,Speditionsbuch.KdAuftragsNrFrachtfuehrer, Speditionsbuch.Bemerkungen,Speditionsbuch.Zollstelle ,Speditionsbuch.Grenzstelle "
sqlstr &= " FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart " sqlstr &= " FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart "
sqlstr &= " LEFT JOIN Währungstabelle on Währungstabelle.Währungsschlüssel=speditionsbuch.Währungsschlüssel WHERE 1=1 " sqlstr &= " LEFT JOIN Währungstabelle on Währungstabelle.Währungsschlüssel=speditionsbuch.Währungsschlüssel WHERE 1=1 "
sqlstr &= getSpedBuchWhere() sqlstr &= getSpedBuchWhere()
@@ -1276,7 +1276,27 @@ Public Class usrCntlSpeditionsBuchSuche
End If End If
End If End If
Dim Zahlungsdetails = cbxRptDetailsZahlungsdetails.Checked
rpt.lblBarTital.Visible = Zahlungsdetails
rpt.lblBarzahlungsbetrag.Visible = Zahlungsdetails
rpt.lblGesGesSumBarzahlungsbetrag.Visible = Zahlungsdetails
rpt.lblGesSumBarzahlungsbetrag.Visible = Zahlungsdetails
rpt.lblGesSumRechnungsbetrag.Visible = Zahlungsdetails
rpt.lblGesGesSumRechnungsbetrag.Visible = Zahlungsdetails
rpt.Label43.Visible = Zahlungsdetails
rpt.Label43.Visible = Zahlungsdetails
rpt.Label34.Visible = Zahlungsdetails
rpt.Label35.Visible = Zahlungsdetails
rpt.Label13.Visible = Zahlungsdetails
rpt.Label17.Visible = Zahlungsdetails
rpt.lblSumRechnungsbetrag.Visible = Zahlungsdetails
rpt.lblSumBarzahlungsbetrag.Visible = Zahlungsdetails
rpt.Label19.Visible = Zahlungsdetails
rpt.Label39.Visible = Zahlungsdetails
rpt.Label46.Visible = Zahlungsdetails
rpt.Label47.Visible = Zahlungsdetails
rpt.lblGesWaehrung.Visible = Zahlungsdetails
rpt.lblGesgesWaehrung.Visible = Zahlungsdetails
If CheckBox1.Checked Then If CheckBox1.Checked Then
rpt.GroupHeader1.DataField = "FilialenNr" 'Gruppierung rpt.GroupHeader1.DataField = "FilialenNr" 'Gruppierung
@@ -1370,6 +1390,23 @@ Public Class usrCntlSpeditionsBuchSuche
End If End If
End If End If
If rpt.txtPackstücke.Text.Length > 550 Then
rpt.txtPackstücke.Text = rpt.txtPackstücke.Text.Substring(0, 550) & "..."
End If
rpt.Label11.Text = ""
If rpt.Fields.Item("Grenzstelle").Value IsNot Nothing Then
If rpt.Fields.Item("Grenzstelle").Value.Replace("???", "").Replace("WO_FREMD", "") = "" Then
rpt.Label11.Text = SQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & If(rpt.Fields.Item("Zollstelle").Value, "") & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL")
Else
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(rpt.Fields.Item("Grenzstelle").Value)
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
rpt.Label11.Text = If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "") & vbNewLine & rpt.Fields.Item("Grenzstelle").Value
End If
End If
End If
rpt.lblAbsKdNr.Text = checkNull(rpt.Fields.Item("AbsenderKundenNr").Value) rpt.lblAbsKdNr.Text = checkNull(rpt.Fields.Item("AbsenderKundenNr").Value)
rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value) rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value)
rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value) rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)