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-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL.sln
View File

@@ -1,7 +1,7 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.29509.3
# Visual Studio 15
VisualStudioVersion = 15.0.28307.106
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
EndProject
@@ -17,10 +17,10 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "VER
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -101,16 +101,6 @@ Global
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.Build.0 = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.Build.0 = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Any CPU.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.Build.0 = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
@@ -123,6 +113,16 @@ Global
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.Build.0 = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.Build.0 = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Any CPU.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Mixed Platforms.Build.0 = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE

2
SDL/Administration/Auswertungen/frmZollUserStat.vb
View File

@@ -10,7 +10,7 @@ Public Class frmZollUserStat
' sql &= " FROM [Speditionsbuch] INNER JOIN [Personal] ON [ID]=[Personalnummer] "
' sql &= " WHERE 1=1 AND "
Dim sql As String = " SELECT mit_nname + ' ' + mit_vname as [Name], mit_niederlassung , "
sql &= " (SELECT TOP 1 isnull([dstma_wochenStunden],0) FROM [SQLGUIDE01.verag.ost.dmn\SQLEXPRESS].ADMIN.dbo.tblDienstMitarb where [dstma_mitId]=mit_id ) as dstma_wochenStunden, "
sql &= " (SELECT TOP 1 isnull([dstma_wochenStunden],0) FROM [SQLGUIDE01.verag.ost.dmn].ADMIN.dbo.tblDienstMitarb where [dstma_mitId]=mit_id ) as dstma_wochenStunden, "
sql &= " isnull((SELECT sum(Abfertigungsanzahl) as anzahl FROM [Speditionsbuch] WHERE Abfertigungsdatum BETWEEN '" & MyTextBox1.Text & "' AND '" & MyTextBox3.Text & "' "
If MyListBox1.SelectedItems.Count > 0 Then sql &= " AND Abfertigungsart IN (" & getValues() & ") "

2
SDL/Checkliste/frmCheckliste.vb
View File

@@ -336,7 +336,7 @@ Public Class frmCheckliste
End If
Dim newPathToAttach As String = "F:\PROGRAMME\UID_DATA\PDFAnhang\" & rowId & "\" & value
Try
IO.File.Copy(fd.FileName, newPathToAttach, True) 'Das ausgewwählte PDF ins F Verzeichnis schieben
System.IO.File.Copy(fd.FileName, newPathToAttach, True) 'Das ausgewwählte PDF ins F Verzeichnis schieben
d.att_pfad = newPathToAttach
d.att_name = value
cDbFunctions.insertAttachment(d, rowId)

21
SDL/Fakturierung/cFakturierung.vb
View File

@@ -420,6 +420,10 @@ Public Class cFakturierung
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case 21 '"UNISPED"
rpt.txtBank1.Text = "????"
rpt.txtBank2.Text = "????"
Case 20 '"IMEX"
If Rechnung.RechnungsLandKz = "TR" Then
'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -473,6 +477,10 @@ Public Class cFakturierung
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA.Firma_ID
Case 21 '"UNISPED"
rpt.txtBank1.Text = "????"
rpt.txtBank2.Text = "????"
Case 20 '"IMEX"
If RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -516,6 +524,10 @@ Public Class cFakturierung
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA.Firma_ID
Case 21 '"UNISPED"
rpt.txtBank1.Text = "????"
rpt.txtBank2.Text = "????"
Case 20 '"IMEX"
If RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -636,6 +648,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
End Select
@@ -1023,6 +1036,9 @@ Public Class cFakturierung
Case 20 'Imex
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
Case 21 'UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
@@ -1384,6 +1400,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
End Select
@@ -1619,6 +1636,8 @@ Public Class cFakturierung
Select Case Firma_id
Case 20
firma = "'IMEX'"
Case 21
firma = "'UNISPED'"
Case Else
firma = "'VERAG','ALL'"
End Select
@@ -1684,6 +1703,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
End Select
@@ -1693,7 +1713,6 @@ Public Class cFakturierung
End If
rpt.txtVermerk.Text = strText
rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
rpt.lblRgNr.Text = ROW("RechnungsNr")
rpt.lblRgDatum.Text = ROW("RechnungsDatum")

283
SDL/Formulare/CMR/usrcntlCMR.Designer.vb generated
View File

@@ -23,24 +23,15 @@ Partial Class usrcntlCMR
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel3 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.LinkLabel7 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel6 = New System.Windows.Forms.LinkLabel()
Me.lbl_errCMR_1 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.dgvLadungenKurz = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvLadungen = New System.Windows.Forms.DataGridView()
Me.ZeNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.anz = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.art = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bez = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.statNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.umfang = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxKurz = New System.Windows.Forms.CheckBox()
Me.lblKurz = New System.Windows.Forms.Label()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
@@ -85,8 +76,17 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFrachtführer = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.LinkLabel6 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel7 = New System.Windows.Forms.LinkLabel()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ZeNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.anz = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.art = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bez = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.statNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.umfang = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Panel3.SuspendLayout()
CType(Me.dgvLadungenKurz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvLadungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -157,6 +157,28 @@ Partial Class usrcntlCMR
Me.Panel3.Size = New System.Drawing.Size(857, 786)
Me.Panel3.TabIndex = 0
'
'LinkLabel7
'
Me.LinkLabel7.AutoSize = True
Me.LinkLabel7.BackColor = System.Drawing.Color.White
Me.LinkLabel7.Location = New System.Drawing.Point(453, 1024)
Me.LinkLabel7.Name = "LinkLabel7"
Me.LinkLabel7.Size = New System.Drawing.Size(33, 13)
Me.LinkLabel7.TabIndex = 496
Me.LinkLabel7.TabStop = True
Me.LinkLabel7.Text = "IMEX"
'
'LinkLabel6
'
Me.LinkLabel6.AutoSize = True
Me.LinkLabel6.BackColor = System.Drawing.Color.White
Me.LinkLabel6.Location = New System.Drawing.Point(161, 1024)
Me.LinkLabel6.Name = "LinkLabel6"
Me.LinkLabel6.Size = New System.Drawing.Size(33, 13)
Me.LinkLabel6.TabIndex = 495
Me.LinkLabel6.TabStop = True
Me.LinkLabel6.Text = "IMEX"
'
'lbl_errCMR_1
'
Me.lbl_errCMR_1.AutoSize = True
@@ -191,14 +213,14 @@ Partial Class usrcntlCMR
Me.dgvLadungenKurz.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvLadungenKurz.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLadungenKurz.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn6})
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungenKurz.DefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle1.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.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungenKurz.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvLadungenKurz.GridColor = System.Drawing.Color.Gray
Me.dgvLadungenKurz.Location = New System.Drawing.Point(32, 519)
Me.dgvLadungenKurz.Name = "dgvLadungenKurz"
@@ -206,30 +228,6 @@ Partial Class usrcntlCMR
Me.dgvLadungenKurz.Size = New System.Drawing.Size(796, 165)
Me.dgvLadungenKurz.TabIndex = 490
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.Width = 50
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Art der Verpack."
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 110
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn4.HeaderText = "Bezeichnung"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.HeaderText = "Brutto Gewicht"
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.Width = 274
'
'dgvLadungen
'
Me.dgvLadungen.AllowUserToAddRows = False
@@ -238,14 +236,14 @@ Partial Class usrcntlCMR
Me.dgvLadungen.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvLadungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLadungen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ZeNr, Me.anz, Me.art, Me.bez, Me.statNr, Me.gewicht, Me.umfang})
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungen.DefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle2.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
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvLadungen.GridColor = System.Drawing.Color.Gray
Me.dgvLadungen.Location = New System.Drawing.Point(32, 519)
Me.dgvLadungen.Name = "dgvLadungen"
@@ -254,47 +252,6 @@ Partial Class usrcntlCMR
Me.dgvLadungen.TabIndex = 17
Me.dgvLadungen.Visible = False
'
'ZeNr
'
Me.ZeNr.HeaderText = "Zeichen/Nr."
Me.ZeNr.Name = "ZeNr"
Me.ZeNr.Width = 75
'
'anz
'
Me.anz.HeaderText = "Anzahl"
Me.anz.Name = "anz"
Me.anz.Width = 50
'
'art
'
Me.art.HeaderText = "Art der Verpack."
Me.art.Name = "art"
Me.art.Width = 107
'
'bez
'
Me.bez.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.bez.HeaderText = "Bezeichnung"
Me.bez.Name = "bez"
'
'statNr
'
Me.statNr.HeaderText = "Statistik Nr."
Me.statNr.Name = "statNr"
Me.statNr.Width = 84
'
'gewicht
'
Me.gewicht.HeaderText = "Brutto Gewicht"
Me.gewicht.Name = "gewicht"
'
'umfang
'
Me.umfang.HeaderText = "Umfang"
Me.umfang.Name = "umfang"
Me.umfang.Width = 90
'
'cbxKurz
'
Me.cbxKurz.AutoSize = True
@@ -388,7 +345,7 @@ Partial Class usrcntlCMR
'
Me.PictureBox4.BackColor = System.Drawing.Color.White
Me.PictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox4.Image = Global.SDL.My.Resources.search
Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.search
Me.PictureBox4.Location = New System.Drawing.Point(805, 286)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(17, 17)
@@ -399,7 +356,7 @@ Partial Class usrcntlCMR
'
Me.PictureBox3.BackColor = System.Drawing.Color.White
Me.PictureBox3.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox3.Image = Global.SDL.My.Resources.search
Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.search
Me.PictureBox3.Location = New System.Drawing.Point(805, 151)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(17, 17)
@@ -410,7 +367,7 @@ Partial Class usrcntlCMR
'
Me.PictureBox2.BackColor = System.Drawing.Color.White
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Image = Global.SDL.My.Resources.search
Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.search
Me.PictureBox2.Location = New System.Drawing.Point(398, 151)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(17, 17)
@@ -421,7 +378,7 @@ Partial Class usrcntlCMR
'
Me.PictureBox1.BackColor = System.Drawing.Color.White
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Image = Global.SDL.My.Resources.search
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.search
Me.PictureBox1.Location = New System.Drawing.Point(398, 23)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(17, 17)
@@ -473,6 +430,7 @@ Partial Class usrcntlCMR
Me.txtAusgefertigtAm._TimeOnly = False
Me.txtAusgefertigtAm._value = ""
Me.txtAusgefertigtAm._Waehrung = False
Me.txtAusgefertigtAm._WaehrungZeichen = True
Me.txtAusgefertigtAm.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAusgefertigtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAusgefertigtAm.Location = New System.Drawing.Point(301, 919)
@@ -600,6 +558,7 @@ Partial Class usrcntlCMR
Me.txtAnhängerKg._TimeOnly = False
Me.txtAnhängerKg._value = ""
Me.txtAnhängerKg._Waehrung = False
Me.txtAnhängerKg._WaehrungZeichen = True
Me.txtAnhängerKg.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAnhängerKg.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAnhängerKg.Location = New System.Drawing.Point(255, 1212)
@@ -623,6 +582,7 @@ Partial Class usrcntlCMR
Me.txtKfzKg._TimeOnly = False
Me.txtKfzKg._value = ""
Me.txtKfzKg._Waehrung = False
Me.txtKfzKg._WaehrungZeichen = True
Me.txtKfzKg.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtKfzKg.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtKfzKg.Location = New System.Drawing.Point(255, 1189)
@@ -646,6 +606,7 @@ Partial Class usrcntlCMR
Me.txtAnhänger._TimeOnly = False
Me.txtAnhänger._value = Nothing
Me.txtAnhänger._Waehrung = False
Me.txtAnhänger._WaehrungZeichen = True
Me.txtAnhänger.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAnhänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAnhänger.Location = New System.Drawing.Point(91, 1212)
@@ -669,6 +630,7 @@ Partial Class usrcntlCMR
Me.txtDatum._TimeOnly = False
Me.txtDatum._value = ""
Me.txtDatum._Waehrung = False
Me.txtDatum._WaehrungZeichen = True
Me.txtDatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtDatum.Location = New System.Drawing.Point(78, 421)
@@ -691,6 +653,7 @@ Partial Class usrcntlCMR
Me.txtKfz._TimeOnly = False
Me.txtKfz._value = Nothing
Me.txtKfz._Waehrung = False
Me.txtKfz._WaehrungZeichen = True
Me.txtKfz.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtKfz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtKfz.Location = New System.Drawing.Point(91, 1189)
@@ -714,6 +677,7 @@ Partial Class usrcntlCMR
Me.txtAusgefertigtIn._TimeOnly = False
Me.txtAusgefertigtIn._value = Nothing
Me.txtAusgefertigtIn._Waehrung = False
Me.txtAusgefertigtIn._WaehrungZeichen = True
Me.txtAusgefertigtIn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAusgefertigtIn.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAusgefertigtIn.Location = New System.Drawing.Point(106, 919)
@@ -736,6 +700,7 @@ Partial Class usrcntlCMR
Me.txtLand._TimeOnly = False
Me.txtLand._value = Nothing
Me.txtLand._Waehrung = False
Me.txtLand._WaehrungZeichen = True
Me.txtLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtLand.Location = New System.Drawing.Point(78, 398)
@@ -758,6 +723,7 @@ Partial Class usrcntlCMR
Me.txtOrt._TimeOnly = False
Me.txtOrt._value = Nothing
Me.txtOrt._Waehrung = False
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtOrt.Location = New System.Drawing.Point(78, 375)
@@ -793,6 +759,7 @@ Partial Class usrcntlCMR
Me.txtAnweisungenDesAbsenders._TimeOnly = False
Me.txtAnweisungenDesAbsenders._value = Nothing
Me.txtAnweisungenDesAbsenders._Waehrung = False
Me.txtAnweisungenDesAbsenders._WaehrungZeichen = True
Me.txtAnweisungenDesAbsenders.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAnweisungenDesAbsenders.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAnweisungenDesAbsenders.Location = New System.Drawing.Point(42, 709)
@@ -841,6 +808,7 @@ Partial Class usrcntlCMR
Me.txtBesondereVereinbarungen._TimeOnly = False
Me.txtBesondereVereinbarungen._value = Nothing
Me.txtBesondereVereinbarungen._Waehrung = False
Me.txtBesondereVereinbarungen._WaehrungZeichen = True
Me.txtBesondereVereinbarungen.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtBesondereVereinbarungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBesondereVereinbarungen.Location = New System.Drawing.Point(449, 852)
@@ -890,6 +858,7 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsLand._TimeOnly = False
Me.txtAuslieferungsLand._value = Nothing
Me.txtAuslieferungsLand._Waehrung = False
Me.txtAuslieferungsLand._WaehrungZeichen = True
Me.txtAuslieferungsLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAuslieferungsLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAuslieferungsLand.Location = New System.Drawing.Point(78, 317)
@@ -912,6 +881,7 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsort._TimeOnly = False
Me.txtAuslieferungsort._value = Nothing
Me.txtAuslieferungsort._Waehrung = False
Me.txtAuslieferungsort._WaehrungZeichen = True
Me.txtAuslieferungsort.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAuslieferungsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.txtAuslieferungsort.Location = New System.Drawing.Point(78, 294)
@@ -939,7 +909,7 @@ Partial Class usrcntlCMR
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.CMR
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.CMR
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Dock = System.Windows.Forms.DockStyle.Top
Me.pic.Location = New System.Drawing.Point(0, 0)
@@ -948,27 +918,80 @@ Partial Class usrcntlCMR
Me.pic.TabIndex = 3
Me.pic.TabStop = False
'
'LinkLabel6
'DataGridViewTextBoxColumn2
'
Me.LinkLabel6.AutoSize = True
Me.LinkLabel6.BackColor = System.Drawing.Color.White
Me.LinkLabel6.Location = New System.Drawing.Point(161, 1024)
Me.LinkLabel6.Name = "LinkLabel6"
Me.LinkLabel6.Size = New System.Drawing.Size(33, 13)
Me.LinkLabel6.TabIndex = 495
Me.LinkLabel6.TabStop = True
Me.LinkLabel6.Text = "IMEX"
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.Width = 50
'
'LinkLabel7
'DataGridViewTextBoxColumn3
'
Me.LinkLabel7.AutoSize = True
Me.LinkLabel7.BackColor = System.Drawing.Color.White
Me.LinkLabel7.Location = New System.Drawing.Point(453, 1024)
Me.LinkLabel7.Name = "LinkLabel7"
Me.LinkLabel7.Size = New System.Drawing.Size(33, 13)
Me.LinkLabel7.TabIndex = 496
Me.LinkLabel7.TabStop = True
Me.LinkLabel7.Text = "IMEX"
Me.DataGridViewTextBoxColumn3.HeaderText = "Art der Verpack."
Me.DataGridViewTextBoxColumn3.MaxInputLength = 50
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 110
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn4.HeaderText = "Bezeichnung"
Me.DataGridViewTextBoxColumn4.MaxInputLength = 80
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.HeaderText = "Brutto Gewicht"
Me.DataGridViewTextBoxColumn6.MaxInputLength = 53
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.Width = 274
'
'ZeNr
'
Me.ZeNr.HeaderText = "Zeichen/Nr."
Me.ZeNr.MaxInputLength = 50
Me.ZeNr.Name = "ZeNr"
Me.ZeNr.Width = 75
'
'anz
'
Me.anz.HeaderText = "Anzahl"
Me.anz.MaxInputLength = 50
Me.anz.Name = "anz"
Me.anz.Width = 50
'
'art
'
Me.art.HeaderText = "Art der Verpack."
Me.art.Name = "art"
Me.art.Width = 107
'
'bez
'
Me.bez.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.bez.HeaderText = "Bezeichnung"
Me.bez.MaxInputLength = 80
Me.bez.Name = "bez"
'
'statNr
'
Me.statNr.HeaderText = "Statistik Nr."
Me.statNr.MaxInputLength = 10
Me.statNr.Name = "statNr"
Me.statNr.Width = 84
'
'gewicht
'
Me.gewicht.HeaderText = "Brutto Gewicht"
Me.gewicht.MaxInputLength = 53
Me.gewicht.Name = "gewicht"
'
'umfang
'
Me.umfang.HeaderText = "Umfang"
Me.umfang.MaxInputLength = 53
Me.umfang.Name = "umfang"
Me.umfang.Width = 90
'
'usrcntlCMR
'
@@ -1009,13 +1032,6 @@ Partial Class usrcntlCMR
Public WithEvents txtUnterschriftFrachtführer As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtUnterschriftAbsender As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtBesondereVereinbarungen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents ZeNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents anz As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents art As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents bez As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents statNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents gewicht As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents umfang As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lbl_errCMR_1 As System.Windows.Forms.Label
Friend WithEvents lbl_errCMR_20 As System.Windows.Forms.Label
@@ -1042,13 +1058,20 @@ Partial Class usrcntlCMR
Friend WithEvents LinkLabel3 As System.Windows.Forms.LinkLabel
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
Public WithEvents dgvLadungenKurz As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents cbxKurz As System.Windows.Forms.CheckBox
Friend WithEvents lblKurz As System.Windows.Forms.Label
Public WithEvents txtAbsender As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents LinkLabel7 As LinkLabel
Friend WithEvents LinkLabel6 As LinkLabel
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As DataGridViewTextBoxColumn
Friend WithEvents ZeNr As DataGridViewTextBoxColumn
Friend WithEvents anz As DataGridViewTextBoxColumn
Friend WithEvents art As DataGridViewTextBoxColumn
Friend WithEvents bez As DataGridViewTextBoxColumn
Friend WithEvents statNr As DataGridViewTextBoxColumn
Friend WithEvents gewicht As DataGridViewTextBoxColumn
Friend WithEvents umfang As DataGridViewTextBoxColumn
End Class

6
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlSonstigesPDF.vb
View File

@@ -16,9 +16,9 @@
Sub New(PFAD)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
If IO.File.Exists(PFAD) Then
If System.IO.File.Exists(PFAD) Then
Me.PFAD = PFAD
Me.lblText.Text = IO.Path.GetFileName(PFAD)
Me.lblText.Text = System.IO.Path.GetFileName(PFAD)
End If
End Sub
@@ -36,7 +36,7 @@
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
If IO.File.Exists(PFAD) Then Process.Start(PFAD)
If System.IO.File.Exists(PFAD) Then Process.Start(PFAD)
End Sub
Private Sub usrcntlFormOhneFelder_Load(sender As Object, e As EventArgs) Handles Me.Load

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

@@ -138,7 +138,7 @@
DataGridView.Rows.Clear()
dgvZusatzleistung.Rows.Clear()
Select VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
Select Case MyComboBox1._value
Case "VZ"
@@ -167,8 +167,8 @@
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
@@ -288,8 +288,8 @@
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
@@ -408,8 +408,8 @@
DataGridView.ClearSelection()
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim zoll As New SDL.frmKundenUebersichtZOLL
zoll.Show()
End Sub
@@ -422,6 +422,7 @@
Private Sub DataGridView_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.UserDeletedRow
initRowNr()
End Sub
Sub initRowNr()
Dim cnt = 1
For Each r As DataGridViewRow In DataGridView.Rows

32
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -184,11 +184,25 @@
End Function
Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
txtEustProzent.changeItem("0,19")
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
txtEustProzent.changeItem("0,16")
Else
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
txtEustProzent.changeItem("0,19")
End If
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
@@ -324,7 +338,13 @@
Case "CS"
txtEustProzent.changeItem("0,20")
Case "AG"
txtEustProzent.changeItem("0,19")
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
txtEustProzent.changeItem("0,16")
Else
txtEustProzent.changeItem("0,19")
End If
End Select
End If
End Sub

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

@@ -1396,7 +1396,7 @@ Public Class FormularManagerNEU
Shared Function SonstPDF(usrCntl As usrcntlSonstigesPDF) As String
If IO.File.Exists(usrCntl.PFAD) Then
If System.IO.File.Exists(usrCntl.PFAD) Then
Return usrCntl.PFAD
End If
Return ""
@@ -2910,12 +2910,12 @@ Public Class FormularManagerNEU
Shared Function getPosNrByLNr(dt As DataTable, dt2 As DataTable, LNr As String) As String
For i = 0 To dt.Rows.Count - 1
If dt.Rows(i)("LNr") = LNr Then
If dt.Rows(i)("LNr") IsNot DBNull.Value AndAlso dt.Rows(i)("LNr") = LNr Then
Return If(dt.Rows(i)("Pos"), "")
End If
Next
For i = 0 To dt2.Rows.Count - 1
If dt2.Rows(i)("ZLNr") = LNr Then
If dt2.Rows(i)("ZLNr") IsNot DBNull.Value AndAlso dt2.Rows(i)("ZLNr") = LNr Then
Return "0"
End If
Next
@@ -3992,7 +3992,7 @@ Public Class FormularManagerNEU
usrCntl.lblCRsaved.ForeColor = Color.Green
' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId)
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId, , cVorauskasse.vk_Betrag)
cVorauskasse.SAVE() 'VermerkId speichern
Return True
Else

41
SDL/My Project/Resources.Designer.vb generated
View File

@@ -668,6 +668,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property flagge_tr() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flagge_tr", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -728,15 +738,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property hjkgv5tghj() As String
Get
Return ResourceManager.GetString("hjkgv5tghj", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1073,6 +1074,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property oregon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("oregon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1940,6 +1951,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property unisped_aeo_AT() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("unisped_aeo_AT", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -2081,7 +2102,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.5.7 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.6.8 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

52
SDL/My Project/Resources.resx
View File

@@ -169,9 +169,6 @@
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.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>
@@ -232,9 +229,6 @@
<data name="nurIran" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nurIran.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rechnung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -250,6 +244,9 @@
<data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -259,6 +256,9 @@
<data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxZoomIn_Enter1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -298,6 +298,9 @@
<data name="frejus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\frejus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -421,9 +424,6 @@
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -436,6 +436,9 @@
<data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -529,6 +532,9 @@
<data name="beleg_rot_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -565,8 +571,8 @@
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -577,8 +583,8 @@
<data name="ids_bg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ids_bg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -623,7 +629,7 @@
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.1.5.7</value>
<value>1.1.6.8</value>
</data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -727,6 +733,9 @@
<data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Telefonliste_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Telefonliste_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -748,19 +757,16 @@
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Telefonliste_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Telefonliste_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="oregon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\oregon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hjkgv5tghj" xml:space="preserve">
<value />
<data name="unisped_aeo_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

532
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.Designer.vb generated Normal file
View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptKontrolleLKW_NCTSTR
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 PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptKontrolleLKW_NCTSTR))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.Line, Me.lblSBValue, Me.Label2, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblMRNValue, Me.lblBuergschaft, Me.Label4, Me.Label9, Me.lblGestDatValue})
Me.PageHeader.Height = 0.1903543!
Me.PageHeader.Name = "PageHeader"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1895669!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.2307087!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "LKW-Kz"
Me.lblBezugsnummer.Top = 0.0007874016!
Me.lblBezugsnummer.Width = 0.8492126!
'
'Line
'
Me.Line.Height = 0.00008200109!
Me.Line.Left = 0.0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.1901575!
Me.Line.Width = 7.677083!
Me.Line.X1 = 0.0!
Me.Line.X2 = 7.677083!
Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 4.396851!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblSBValue.Text = "Sachbearb."
Me.lblSBValue.Top = 0.0007874016!
Me.lblSBValue.Width = 0.7681097!
'
'Label2
'
Me.Label2.Height = 0.1377953!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.220867!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label2.Text = "Sicherheit"
Me.Label2.Top = 0.0007874016!
Me.Label2.Width = 0.7972444!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.9177166!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0007874016!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 3.199213!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.002165282!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.959056!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.003346407!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 5.125984!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: bold"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0007874072!
Me.lblBuergschaft.Width = 1.16811!
'
'Label4
'
Me.Label4.Height = 0.1377953!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.888189!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Si-Sum"
Me.Label4.Top = 0.0!
Me.Label4.Width = 0.7972444!
'
'Label9
'
Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr"
Me.Label9.Top = 0.0003937008!
Me.Label9.Width = 0.2035433!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.790158!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.001181102!
Me.lblGestDatValue.Width = 0.6299216!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNr, Me.lblSiBetragValue, Me.lblLKW, Me.SubReport})
Me.Detail.Height = 0.1464567!
Me.Detail.Name = "Detail"
'
'lblNr
'
Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500."
Me.lblNr.Top = 0.008661418!
Me.lblNr.Width = 0.2657481!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.695276!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.008661417!
Me.lblSiBetragValue.Width = 0.9901576!
'
'lblLKW
'
Me.lblLKW.Height = 0.1374016!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 0.2307087!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 8pt; font-weight: bold"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.009055119!
Me.lblLKW.Width = 1.05315!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1374016!
Me.SubReport.Left = 0.9177166!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.008661418!
Me.SubReport.Width = 6.100394!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2250984!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.067693!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.212992!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02509842!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.677083!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.0!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS LKW-Liste"
Me.lblText1.Top = 0.0472441!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004023314!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.4555119!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.4555119!
Me.Label7.Width = 2.437795!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7, Me.Label10})
Me.ReportHeader1.Height = 0.7207352!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Label10
'
Me.Label10.Height = 0.4082677!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.909843!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-weight: bold"
Me.Label10.Text = "ZOLL AT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten aus ZOLARIS / E-ZOLL"
Me.Label10.Top = 0.0472441!
Me.Label10.Width = 1.965748!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzLKWs, Me.lblAnzT})
Me.ReportFooter1.Height = 0.6272475!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:"
Me.Label1.Top = 0.3129922!
Me.Label1.Width = 0.8141733!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0000002533197!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Versandscheine:"
Me.Label3.Top = 0.4795276!
Me.Label3.Width = 1.283858!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.997245!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.3129922!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.622048!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.3125984!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzLKWs
'
Me.lblAnzLKWs.Height = 0.1374017!
Me.lblAnzLKWs.HyperLink = Nothing
Me.lblAnzLKWs.Left = 1.283858!
Me.lblAnzLKWs.Name = "lblAnzLKWs"
Me.lblAnzLKWs.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzLKWs.Text = "0"
Me.lblAnzLKWs.Top = 0.3129922!
Me.lblAnzLKWs.Width = 0.5122049!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.283858!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049!
'
'rptKontrolleLKW_Dakosy
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.673228!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzLKWs As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

762
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.resx Normal file
View File

@@ -0,0 +1,762 @@
<?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>
<data name="picVERAG.ImageData" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v
cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw
b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB
AQEBCQIAAAAAAAAAAAAAAB6TAAAekwAAAQEBAQoPAgAAAB6TAAACAhmTAACJUE5HDQoaCgAAAA1JSERS
AAAJOgAAAZIIBgAAAMnO7JoAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh
cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJKeSURBVHhe7N0LvG1T3f/xczgOh1MuIbekSC4VXZyuShfy
pHokSRc93dOF7qX7qVS6SXcSqXZFqVQq3aQ7SegiIkmJJCKh4/D/f3+W09pzr+/eZ+21xxxrzDk/vV7v
1//1Hw97jPWbYy5jrfFdc8z7f//v/wEAAAAAAAAAAAAAAABA0WwjAAAAAAAAAAAAAAAAAJTENgIAAAAA
AAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTE
NgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAA
AAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAA
AAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABA
SWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAA
AAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIA
AAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAA
AJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAA
AAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwj
AAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAA
AABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENuY0b8lS
AAAAAAAAAACAJlhTNpedZHd5qrxQXiPvkA/Lp+Urcor8WM6S38pFcon881Y3yP9DNjfKitqHP0lck3CO
xHX6hcR1+5acIJ+TY+RD8l5ZKi+VZ8u+soc8RHaQO8ha4uZN57g9QQAAgBRsY05u8QMAAAAAAAAAAJDR
qrKF7CxPklfJ++WLcppEKOY6cQEaYLL/yF/lN/JD+bx8UCIM9wyJgNw9ZF1xc7EV3J4gAABACrYxJ7f4
AQAAAAAAAAAAqMEmspscIBFkOlHOlWXiQitAneLJUvEkqS/LoRJPB9tFNhA3fxvD7QkCAACkYBvroEXN
T8Qt4lB1vWwsA4tCoFCryNni5jN6uK/TeYm4GgNopngEvLvXUZb40tVdP6Btph5f8SuJDYc4auSbEr/C
PloOkzfLK+T/5NFyf9labifuPgKAYSwR9/6ENOJ9Pb7DcLUH0E4LJY6X21/i2LE4juxKce8RQIn+LjFv
IwAVx+TdWdxcL5LbKwQAAEjBNtZBi5oHi1uoYVB86BpYFAKFikftunmMvkPE1Q6zR9AJaBeCTs1A0AmY
nXgSwMXyMzle4vPdQbKPxEYbYSgA04mjbdz7CtJ5mrjaA2iHreQpEkeEnSpxfJh7LwCaLMJP8X1KfE96
N5kv7n4YO7dXCAAAkIJtrIsWNvErWLcwQ1V8MX5HGVgYAoVZUy4RN4/RE5vD64irH2aPoBPQLgSdmoGg
E5DeNXKmHCtvlMfL9rKauPsQQPs9Rtz7BdKKJ/bFE17cNQDQPPEd+tPlGIn72933QNv9TT4te8ticffK
WLh9QgAAgBRsY120sLmnuIUYBsWHs4GFIVCYN4ibv+iLX++72mE0BJ2AdiHo1AwEnYB8bpRfypESR6zE
E6BWF3dvAmiPBfJbce8LSO/F4q4DgPLF++Uu8l45T9w9DnTZDfI1earEj5TdfZSN2ycEAABIwTbWSYub
48QtwFC1XLaVgcUhUIiN5Fpx8xc9l8oicfXDaAg6Ae1C0KkZCDoB4xWbFXGc1dtkd7mtuHsVQHM9S9z9
j3rEkT+3EXctAJQnQt+Pk8/IleLuawCD/iVHy87i7q3auT1CAACAFGxjnbS42VoixOMWXqj6vAwsDoFC
HC5u3qLveeJqh9ERdALahaBTMxB0AsoSn6cj+PQ6uZfMF3fvAmiG+HEMR8Ln92Zx1wNAGVaReHJTPOXy
KnH3MYDhxbHZT5Osx7e6PUIAAIAUbGPdtMCJDyhusYVBcdzfwAIRGLPthMDizC6QeJy2qx9GR9AJaBeC
Ts1A0Ako22USP0J4uMSmoLuPAZQrQovu3ka94gnVG4q7JgDGJ+7LeF+8WNy9C2Bu/irx/WqWUwjc/iAA
AEAKtrFuWuDcQa4Xt9BC1TdkYIEIjNmJ4uYr+p4ornaYG4JOQLsQdGoGgk5Ac8TGxQeEH8wAzbC+XC3u
fkb94v3SXRcA+T1A4mi6ZeLuVwBpRZjwuVLrD3Xd/iAAAEAKtjEHLXIOFbfAwqAHysAiERiT+KW4m6fo
+6VwhEg9CDoB7ULQqRkIOgHNdIbE5sVtxN3bAMYvgjbu/kUeEai4s7hrAyCP+J7xFHH3KID6/Vpq239y
e4MAAAAp2MYctMiJX61dI25xhar4sDewSATGII7CiBCPm6foe6S4+mHuCDoB7ULQqRkIOgHNFvfwO2Qj
cfc4gPHYUnhyyfhNiLs+AOoV352dKu6+BJDfx2UdcffryNzeIAAAQAq2MRctdJaKW1RhEMEJlGA/cfMT
fd8XVzukQdAJaBeCTs1A0AlohxvkcNlE3L0OIK9jxd2ryOtm2UHcNQKQ3vbyLXH3I4Dx+pMkfbqT2xcE
AABIwTbmooXOYrlC3KIKVacLR2FhnBbJn8XNT/TdT1z9kAZBJ6BdCDo1A0EnoF2uk4NlbXH3PID63Ufc
/Ynx+Lq46wQgndvJR2W5uPsQQBniHn2DJNmLcvuCAAAAKdjGnLTYeam4BRUG7SkDi0Ugk9eKm5fo+7K4
2iEdgk5AuxB0agaCTkA7XS5PEnffA6jXyeLuS4zPg8VdKwBzF99pXybu3gNQpuNkTXH39NDcniAAAEAK
tjEnLXbiKTEXi1tMoeocWUUGFoxAzTaUa8TNS/TEr122E1c/pEPQCWgXgk7NQNAJaLdvyubi7n8A6e0h
7l7EeP1M3PUCMLp4itNnxN1zAMr3c9lI3P09FLcnCAAAkIJtzOnWBc+zxC2kMGg/qSwWgQw+JG4+ou8T
4mqHtAg6Ae1C0KkZCDoB7XeVPE7cewCAdOLHa78Wdx9i/HiSOpDOg+Qv4u41AM1xgWwm7j5fKbcnCAAA
kIJtzOnWBc8COU/cQgpVsbBcTSoLRqBGdxXOz5/ZDcKv4PMg6AS0C0GnZiDoBHTHYcLnTaA+zxR376EM
8ST1VcVdOwDDi+9u+C4RaI+Rw05uTxAAACAF25jTpEXPPuIWURi0v0yuHVCnr4ibh+g7VFztkB5BJ6Bd
CDo1A0EnoFtOksXi3g8AjG6R8HST8kUYzV0/ACsXYemjxN1bAJotwk4biLv3p+X2BAEAAFKwjTlNWvTM
lzPFLaJQFV+MxRdkk+sH1OEh4uYg+q6R9cXVD+kRdALahaBTMxB0ArrnFzLrjQwAM3q1uPsNZblY+M4N
mL015Vvi7isA7XCaxL3u3gMstycIAACQgm3MacrCZ3dxCygMeqlMrR+QUoQPY4PDzT/0vVFc/VAPgk5A
uxB0agaCTkA3/VoIOwFp3E7472lzvFzcdQTgrS0/EXc/AWiXOP0h9g3ce8EAtycIAACQgm3MySx+ThG3
gELVFcJxAqjTk8XNPfRdLtyHeRF0AtqFoFMzsDELdFf88CE2L917A4DhxXHn7h5DmeI7t3XEXUsAVbeR
eMqLu5cAtNPrxL0fDHB7ggAAACnYxpzM4ucB4hZPGMSTZFCXNeQicfMOfQeKqx/qQ9AJaBeCTs1A0Ano
th/IauLeHwCs3J1kmbj7C+V6m7jrCaBvoXxP3D0EoL1ukoeIe1+ocHuCAAAAKdjGnNziR74mbgGFqth0
Wk9cDYG5eJW4OYe+P0p8oePqh/oQdALahaBTMxB0AvBRce8PAFbuM+LuK5Tt37KxuGsKoHd01XHi7h8A
7XeprCvu/eG/3J4gAABACrYxJ7f4kR3kZnELKFQdIq6GwKjWFzY0V+5p4uqHehF0AtqFoFMzsC4AEJ4r
7j0CwPTuJe5+QjN8RNx1BbBk6evF3TcAuuMYce8P/+X2BAEAAFKwjTm5xc+t+MXbcK4TfmGGlD4gbq6h
79eyirj6oV4EnYB2IejUDASdAITrZVtx7xMAvO+Ku5/QDDfKVuKuLdBljxZ+pAwg7CbufeIWbk8QAAAg
BduYk1v83Cq+SIgvFNziCVUfFFdDYLbuIsvEzTP0PUZc/VA/gk5AuxB0agaCTgBW+KWsJu69AkDVI8Xd
R2iWOJrLXV+gq+I7ez4fAFjhQlko7v3C7gkCAACkYBtzcoufSQ4Xt3hCVQRTNhdXQ2A2vihujqHvJ+Jq
hzwIOgHtQtCpGdjIADDZm8W9VwDoiycAny3uHkLzxBGE7joDXbOq/EzcfQKgu14u7j3D7gkCAACkYBtz
coufSeJItng8vls8oWql5yEDK/EgcXMLVTuLqx/yIOgEtAtBp2Yg6ARgshtkS3HvFwB6nibu/kEzfVvc
dQa65vXi7hEA3XaVrCcD7xtuTxAAACAF25iTW/xM8U5xiydULZdtxNUQWJn5cpq4uYW+r4urH/Ih6AS0
C0GnZiDoBGAq1sXA9BbJxeLuHTTXw8Vdb6Ar7ik3irs/AOAQGXjvcHuCAAAAKdjGnNziZ4pIgrO5Mpzj
xNUQWJl9xM0p9N0sO4irH/Ih6AS0C0GnZmAtDsB5pLj3DKDrXinunkGznS7xIzF3zYG2i+M4+YEkgJlc
I+tI5f3D7QkCAACkYBtzmrrwmQaPxR1e/LrG1RCYzkK5UNx8Qt+EuPohL4JOQLsQdGoGgk4AnNjwZNMf
qFpX4vgWd8+g+fYWd92BtnuOuHsCACZ7nVTeP9yeIAAAQAq2MaepC59pLJa/iVs8oYojBDBbLxc3l9C3
TLYUVz/kRdAJaBeCTs1A0AnAdPYU974BdNV7xN0raIfzZIG4aw+0VQQ4Lxd3TwDAZH+X1eW/7yFuTxAA
ACAF25jT5EXPShwobvGEQQ8QV0Ngqjgakl+brtyHxNUP+RF0AtqFoFMzEHQCMJ0zxL1vAF10R7lB3L2C
9niuuOsPtNX7xN0LAODsI/99D3F7ggAAACnYxpwmL3pWIo7X+pO4xROqThFXQ2CqQ8XNIfRdKxuJqx/y
I+gEtAtBp2Yg6ARgJjuLe+8AuubT4u4RtMtfZZG4OQC0zcZyvbh7AQCc78l/30fcniAAAEAKtjGnyYue
ITxd3OIJg3YVV0NghTtLHMnm5g/6DhZXP4wHQSegXQg6NQNBJwAzOV7cewfQJTvKzeLuEbTPq8XNA6Bt
DhN3DwDATLaSW95H3J4gAABACrYxpxULniGtKueIWzyh6jSZL66OQPi8uLmDvitkHXH1w3gQdALahaBT
MxB0AjCT5XIHce8fQFd8R9z9gXaKtdG64uYC0BabC09zAjCKN8gt7yVuTxAAACAF25jTigXPLOwlbvGE
QXuKqyFwf3FzBlWvEFc/jA9BJ6BdCDo1A0EnACvzOnHvH0AXPELcfYF2e5e4+QC0RcxxN/cBYGXOklve
S9yeIAAAQAq2MacVC55ZiKcU/VzcAgpVv5FVxNUR3RX30E/EzRn0/VkWiashxoegE9AuBJ2agaATgJU5
T9z7B9B28Z3LL8XdF2i3eNLNpuLmBdB0a8lV4uY+AAxjS7F7ggAAACnYxpxisTMCfi03vKeIqyG66/Hi
5gqqniWufhgvgk5AuxB0agaCTgCGsUTcewjQZk8Vdz+gG44UNy+Apttf3JwHgGG9UuyeIAAAQAq2MadY
7IzoZHELKFRdIAvE1RDds1DOFzdX0HeucN+UiaAT0C4EnZqBoBOAYRwq7j0EaKvV5SJx9wO6YblsI25+
AE0VT4L/nbg5DwDD+o7YPUEAAIAUbGNOsdgZ0X3FLaAw6HniaojuebG4OYKqeOqVqx/Gj6AT0C4EnZqB
oBOAYcSPbNx7CNBWLxd3L6BbvihufgBN9QBxcx0AZuMGWcPtCQIAAKRgG3PSYmcuYnPMLaJQ9WdZJK6G
6I515B/i5gj6fi7x6zVXQ4wfQSegXQg6NQNBJwDD2k7c+wjQNvH5+kpx9wG6h6M70SaHi5vnADBbj3B7
ggAAACnYxpy02JmL+BL1ZnGLKFRFOMDVEN3xHnFzA1UPF1c/lIGgE9AuBJ2agaATgGEdJO59BGibd4q7
B9BNJ4ubJ0DTxJGcV4mb5wAwW293e4IAAAAp2MactNiZq0+KW0Sh6gpZLK6GaL8tJB4X6+YG+m45OxxF
I+gEtAtBp2Yg6ARgWN8V9z4CtMkd5Hpx9wC6azdx8wVokseLm98AMIrvuj1BAACAFGxjTlrszNWdZJm4
hRSq3iCuhmi/z4qbE6i6j7j6oRwEnYB2IejUDASdAAzrOlko7r0EaItjxM1/dNuZwjH4aLpjxc1vABjF
NbKK2xcEAACYK9uYkxY6KXxQ3EIKVbFJta64GqK9dhI3H1D1BXH1Q1kIOgHtQtCpGQg6AZiNB4l7LwHa
4B5ys7i5DzxJ3LwBmmA1uVrc3AaAUW3n9gUBAADmyjbmpIVOChvLteIWUqg6RFwN0V4/EjcX0LdcthZX
P5SFoBPQLgSdmoGgE4DZeL249xKgDb4pbt4D4QKJsIibO0DpdhU3rwFgLvZz+4IAAABzZRtz0kInlbeL
W0ih6t8SwTBXQ7TP48TNA1QdKa5+KA9BJ6BdCDo1A0EnALPxdXHvJUDTPVzcnAcme6G4+QOUjhMTANTh
ELcvCAAAMFe2MSctdFJZR9iEGc4HxNUQ7bJAzhM3B9B3vWwqroYoD0EnoF0IOjUDa2wAs3GZuPcSoMnm
yy/EzXlgsktlsbh5BJTsj+LmNADMxVfdviAAAMBc2cactNBJ6SBxiylULZPNxdUQ7fEicdcfVe8SVz+U
iaAT0C4EnZqBoBOA2eKHBGibJ4mb64DDEZ5omi3EzWUAmKsL3b4gAADAXNnGnLTQSWmRxC+n3IIKVUeL
qyHaYW35u7hrj77YuF1PXA1RJoJOQLsQdGoGgk4AZuux4t5PgCZaKBeKm+uAE2un9cXNJ6BETxc3lwFg
rm6WNdzeIAAAwFzYxpy0yEntBeIWVKhaLluLqyGa7xBx1x1VrxVXP5SLoBPQLgSdmoGgE4DZeoO49xOg
ifgMglEcKm4+ASU6Rtw8BoAUtnF7gwAAAHNhG3PSIie1+KXdH8QtqFB1rLgaotniWMLrxV1z9MXT39YS
V0OUi00GoF0IOjUDQScAszUh7v0EaJp15Apx8xyYyQ0S38+4eQWU5iJx8xgAUtjd7Q0CAADMhW3MSYuc
OuwnbkGFqnhs6D3F1RDN9Wlx1xtV8fQ3Vz+UjaAT0C4EnZqBoBOA2fqluPcToGneLm6OA8P4hLh5BZRk
Y3HzFwBS2d/tDQIAAMyFbcxJi5w6rCK/FreoQtXXxNUQzXRviQCbu9bou0BWE1dDlI2gE9AuBJ2agaAT
gNm6Vtz7CdAkmwpPS57edaYNVTfJ9uLmF1CKx4qbvxiveP+Ip9H/Qr4uH5N3yuvlxfJ0eZw8Qu4rO8qd
ZItb3VHiqYRNtq6seD0h3k/jR9u7yO6yp/yfPFcOknfJxyW+Z/iRnCP/EFdf5PV2tzcIAAAwF7YxJy1y
6vK/4hZVGHQ/cTVE83xf3DVG1ZPF1Q/lI+gEtAtBp2Yg6ARgFJuIe08BmuIocXMbPU+S2IB3/zf0fUXc
/AJK8RZxcxf1i89ZP5Qj5ZWyl9xH4ilbq4q7Xpi9tWQbeaQ8W2LOf0EiCLVc3LVBWp9ye4MAAABzYRtz
0iKnTqeKW1ih6hRx9UOzPEbc9UXVmRJPfXM1RPkIOg1qw6/00F3xhaO711EWgk4ARsEPatBkd5N4moab
21iy9AyZLw+d1IbpPUDcPANKEE8LcvMWacXTLr8tB0t8h7uZuOuBvBbKPeQpcrj8Ttz1w9x80+0NAgAA
zIVtzEmLnDrFY0zdwgqD4jG3roZohgXCB7HhPEpcDdEMBJ0GRVjE1QoAUiHoVHWxTA3toRluJ3HsRRzt
EcddPFPiCJDY4PuruOuN0T1R3HsK0AQnipvX6Jn8HRK1Wrl4Ysvk+QWU5DJx8xZz90t5kzxQ4rtbV3+U
ZwPZWz4tV4q7tpid093eIAAAwFzYxpy0yKnbt8QtrlAVT7+KX+O5GqJ8+4u7rqj6gbj6oTkIOg2KjVtX
KwBIhaBT1UXi6oTmiyMtDpBYM7prj9l5hbg6A6XjR3Mz+65Mrlc8/Yqjf1bu0TK5bkAJ1hc3XzG6c+W1
srm4mqNZVpcI7/P5YG4udnuDAAAAc2Ebc9Iip273Fre4wqA9xdUQZbuN/E3cNUXV/cXVEM1B0GkQQScA
dSPoVEXQqRu2lMPkenHzACv3AXG1BUoWPwA7XdycRk98zza1bh8X98+i71fCMfoozYPFzVfM3kmyq/BD
4vaK75V/Ku76Y2bXu71BAACAubCNOWmRk8Px4hZYqPq18KVL88TZ7u56ouor4uqHZiHoNIigE4C6EXSq
IujULRvLMeLmAmZ2nLiaAiV7grj5jJ5jxdVtE/m3uH8HffuJqx8wLs8RN1cxvAi+xNF0rr5onwiyHSj/
ETcfML0Fbn8QAABgVLYxJy1wcthWeIz2cJ4sroYo02bCr8xX7mbZXlwN0SwEnQYRdAJQN4JOVQSduime
fvsPcXMC3tTjrYDSLZQLxM1nLFm6TLYSV7vwVnH/Hvr+KDHPXP2AcXifuLmKlYvvY18k/Gi4m+4rfxc3
N+Ct4/YHAQAARmUbc9ICJ5ejxS2wUBVf6i0QV0OU5xPiriOq4lf4rn5oHoJOgwg6AagbQacqgk7dtbXE
JrWbFxgUTwx2dQRKdYC4uYyeD4mr2wocqz+cF4urHzAO3xQ3TzGzP8s9xdUU3bGN8N+94d3R7Q8CAACM
yjbmpAVOLpsLjxQdznPF1RBl2UHiSUXuGqIvfnV6R3E1RPMQdBpE0AlA3Qg6VRF06rYt5K/i5gaqok6u
hkCJbis8mWF618pG4mo32QvF/fvoi3m2WFz9gNzOFTdPMb34kXA8Yd/VE91zL+Ho1uFs7/YHAQAARmUb
c9ICJ6fDxC2yUHWxLBJXQ5QjjoJw1w9Vcd+7+qGZCDoNIugEoG4EnaoIOiGOqrhR3PxAX/zgwNUPKNHB
4uYxet4irm5TxRPCzxP3N9C3VFz9gNzi+DU3R+HFMcYzHeGJbnqGuPmCqp3c/iAAAMCobGNOWuDktIHE
r9DcQgtVESZwNUQZHiXuuqEq7ve4710N0UwEnQYRdAJQN4JOVQSdEAhFDGehuPoBJdlErhM3h9F7AlEc
S+dq5zxO3N9BX3xXsaG4+gG5xPdlbn5ieruKqyXwdXFzBn27uP1BAACAUdnGnLTAyS1+heYWWqi6XHiU
dplWld+Iu26o4leS7UPQaRBBJwB1I+hURdAJYXX5g7g5gj7WKWiCI8XNX/QcKK5uM/mxuL+Fvg+Iqx2Q
y73FzU14h4qrIxC2lHiaqZs76CHoBAAAkrKNOWmBk9vacoW4xRaqXieuhhivZ4u7XqiK+5ywXvsQdBrE
BiKAuhF0qiLohBWeLm6OoG8LcbUDSrGtLBc3f7Fk6R9llCez3V/c30NfbIjfSVz9gBx4+trw/ixriasj
sMIR4uYPegg6AQCApGxjTlrgjMMrxC22UBWbWmyglyWCO5eKu16o4vjFdiLoNIj3aQB1I+hURdAJKyyQ
i8XNE/RsJ652QCm+Km7uouep4uo2jOPF/U30fVpc7YAcXiBuXmJQhNtdDYHJthY3f9DzCLc/CAAAMCrb
mJMWOOOwSC4Rt+BC1TvE1RDj8WZx1wlVf5JRfnWK8hF0GkTQCUDdCDpVEXTCZG8TN0/Qs6O4ugEl2Fnc
vEXPWbKKuNoN4y7CMT4zu1nuIa5+QN2WipuXqDpfItzuaghM9QNx8whLlu7p9gcBAABGZRtz0gJnXJ4r
bsGFqmtlI3E1RF6byL/FXSdU8Uur9iLoNIigE4C6EXSqIuiEybYRN0/Q80BxdQPGbb6cKm7eomd3cbWb
jQ+K+9vo+7q42gF1+7C4OYmq2ENw9QOc/cXNIxB0AgAAidnGnLTAGZf4JcYF4hZdqDpMXA2R18fFXR9U
/Vbm8qtTlI2g0yCCTgDqRtCpiqATpuJz5fR2EVczYNz2Fjdn0fN9cXWbrQ3kanF9oO/B4uoH1Ok4cfMR
fVfJmuLqBzibiptLWLJ0N7c/CAAAMCrbmJMWOOO0r7hFF6riUeObi6sh8ri73CTu+qBqT3E1RDsQdBpE
0AlA3Qg6VRF0wlT8IGF6BJ1Qovjh2+/FzVn0LBFXu1G8Tlwf6PupuNoBdfqeuPmIvsPF1Q6YSXxedPOp
63Zx+4MAAACjso05aYEzTvHUlzPFLbxQdZS4GiKPk8RdF1T9TFz90B4EnQYRdAJQN4JOVQSdMNV+4uYK
CDqhTC8UN1/Rc7y4uo1qkfxFXF/o+19x9QPq8itxcxF9DxJXO2AmnxU3n7qOoBMAAEjKNuakBc647SFu
4YWq5XIXcTVEvXYTd00w6CHiaoj2IOg0iKATgLoRdKoi6ISpdhQ3V7Bk6cPE1QwYl8XyN3HzFb3vfrYW
V7u5eIa4/tB3jqwqrn5AHXjqzMwuk/iRtKsdMJMDxc2priPoBAAAkrKNOWmBU4IfiVt8oepYcfVDfeID
Nb+wGs43xdUQ7ULQaRBBJwB1I+hURdAJU60hHDPt8UQnlOYt4uYqeuo6ponvNoYTgTBXP6AOV4ibh+g5
WlzdgJV5lLg51XUEnQAAQFK2MSctcEqws7jFF6pulvi1sqsh6sGvHocTc/Oe4mqIdiHoNIigE4C6EXSq
IugEh6cieASdUJKN5VpxcxVLll4nUSNXuxR2F9cv+i6WCM+6+gGpXS9uHqJnH3F1A1ZmO3FzqusIOgEA
gKRsY05a4JTiG+IWYKj6qrj6Ib015RJx1wFVcfa5qyHah6DTIIJOAOpG0KmKoBOcU8XNl67jaGmU5Ahx
8xQ9bxNXt5S+K65v9L1cXO2AlOaLm3/o20hc7YCVie/03Zzquge4/UEAAIBR2cactMApRTwNxi3AMOh+
4mqItN4grv6oulG2EldDtA9Bp0EEnQDUjaBTFUEnOF8RN1+6jicCoxR3leXi5il6R1jl+FwR373FE5nd
GNCT61qg22KOufmHnvPE1Q0Y1tXi5laX7eD2BwEAAEZlG3PSAqckx4pbhKHq++Lqh3TiV0M8Un84HxFX
Q7QTQadBfAkOoG4EnaoIOsE5Rtx86TqCTijFl8TNUfS8TFzd6vBpcWNA38Hiagekspm4uYeez4irGzCs
v4mbW122hdsfBAAAGJVtzEkLnJLEU2H4hd9wHi6uhkiDR+oP5zrZWFwN0U4EnQYRdAJQN4JOVQSd4HxI
3HzpOoJOKMEDxc1P9Fwsq4urXR3uKNeLGwt64odvfNeBOm0hbu6hJ2f4E+0Unxnd3OqyDdz+IAAAwKhs
Y05a4JTmY+IWYqg6VVz9MHfbCYG74bxdXA3RXgSdBhF0AlA3gk5VBJ3gHCZuvnTdluLqBeT0E3HzEz3/
J65udXq3uLGgj6dXo04EnWbGD3wxV78WN7e6bE23PwgAADAq25iTFjiliUf38suy4fyvuBpibk4UV29U
XSkEPLqHoNMg7gMAdSPoVEXQCQ5BJ48nkmDc9hI3N9ETG7GriKtdneIzzD/EjQk9N0o8ed7VD5grgk4z
21Rc3YBhvUXiaGvcyu0NAgAAzIVtzEmLnBK9V9yHHFSdLeP4QqzN4hdDrtYY9CpxNUS7EXQaRNAJQN0I
OlURdIJD0MlbJK5eQA4L5DxxcxM9jxZXuxxeKm5M6PucuNoBc3U3cXMOS5ZeI65mAEbg9gQBAABSsI05
ucVPAdaXq8V92EHVvuJqiNmL0NiZ4uqMqkuETZNuIug0iKATgLoRdKoi6ASHoNOgZeJqBeTyPHFzEz0/
FFe3XBbKheLGhr57iasfMBc7iptvWLL0LHE1AzACtycIAACQgm3MyS1+CvEmcR92UHWBxK8kXQ0xO/uJ
qzEGPUdcDdF+BJ0GEXQCUDeCTlUEneAcKW6+dNnl4moF5LBYLhU3N9Fzf3G1yyl+POfGhr5vi6sdMBcE
naZ3griaARiB2xMEAABIwTbm5BY/hYgvxa4Q94EHVc8WV0MML55O9Gdx9UXV74VwXXcRdBpE0AlA3Qg6
VRF0gvNJcfOly2Ld7moF5PBGcfMSPV8WV7fc5svp4saIvoeJqx8wKoJO0/uQuJoBGIHbEwQAAEjBNubk
Fj8FYUN9OBfL6uJqiOG8VlxtMegJ4mqIbuB9eRBBJwB1I+hURdAJzlfFzZcui/CCqxVQt9vLteLmJZYs
XS7biqvdODxE3DjR93OJUJirHzAKgk7Te724mgEYgdsTBAAASME25uQWPwWJ8E6EeNyHHlRF+MDVECu3
oVwjrq6oOkP4cq/bCDoNIugEoG4EnaoIOsH5sbj50mUniasVULcPi5uT6Pm4uLqN09fEjRV9e4urHTAK
gk7Te764mgEYgdsTBAAASME25uQWP4V5prgPPaj6m8Rxf66GmBlfwg5vV3E1RHcQdBpE0AlA3Qg6VRF0
gnOOuPnSZUeKqxVQp60lnljk5iSWLL1eNhVXu3HaTrhuMztPOMYfqRB0mt4+4moGYARuTxAAACAF25iT
W/wUJr5EOFfcBx9UxfFrroaY3l2FL/OG8z1xNUS3EHQCmoEnPbYLQacqgk5wrhQ3X7rszeJqBdTpeHHz
ET3vEle3EkQ40o0Zfc8RVztgtgg6Te/h4moGYARuTxAAACAF25iTW/wU6AniPvigKjbBeLLI7HxFXC0x
aIm4GqJbCDoBzUDQqV0IOlURdMJUtxU3V7qODXnkdj9xcxE9V0nJ39lsLNeKGzt6LpFF4uoHzAZBp+nt
IK5mAEbg9gQBAABSsI05ucVPgebLGeI+/KDq7eJqiEEPEVdDDPqiuBqiewg6Ac1A0KldCDpVEXTCVPcQ
N1e6bndx9QLq8iNxcxE9rxRXt5LEk+Dc2NH3anG1A2aDoNP0SjzeE2gstycIAACQgm3MyS1+CvVIcR9+
UBW/vru9uBqiL8JzvxBXQ1TF0X7biKsjuoegE9AMBJ3ahaBTFUEnTLWnuLnSdduLqxdQh8eKm4fo+bM0
4UlAi+Uyca8BPTxNHSkQdJoe9xeQkNsTBAAASME25uQWPwU7RdwHIFQdJq5+6HuquNph0FHiaohuIugE
NANBp3Yh6FRF0AlTvUXcXOm624irF5DaAvmduHmInmeKq12J9hf3GtD3TnG1A4ZF0Gl6BJ2AhNyeIAAA
QAq2MSe3+CnY/cV9AELVf2RzcTXEkqVrSGyQudqh6nq5g7g6opsIOgHNQNCpXQg6VRF0wlRfFzdXuuxi
cbUC6vAccfMQPedIhMFc7UoUYz1X3GtBT3xXwvFamAuCTtNbTVzNAIzA7QkCAACkYBtzcoufwn1V3Icg
VH1cXP2wZOmrxNUMg94rroboLoJOQDMQdGoXgk5VBJ0w1aXi5kqXnSSuVkBqawr34Mz+V1ztShZjdq8F
fUeKqx0wDIJO03P1AjAitycIAACQgm3MyS1+Cnd3uVncByH0LZetxNWwy9YXNguHE3WKerk6orsIOgHN
QNCpXVi7VBF0wmT3EDdPuu5QcfUCUnu9uDmInp+Iq1sT/Ejca0JPfO92V3G1A1aGoNP0XL265hRxtQFS
2MXtEwIAAMyWbcxJC5smmhC3SEPV58TVr8s+KK5WGBRfWLsaotsIOgHNQNCpXQg6VRF0wmQ8rdV7prh6
ASltINeIm4PoeZC42jXBfcW9JvQdL652wMoQdPKuFlevriHohDoRdAIAAEnYxpy0sGmieFLRMnELNfTF
k6/iF86uhl10F7lRXK1QdZksFldHdBtBJ6AZCDq1C0GnKoJOmCyeluLmSdfdT1y9gJT4IdHMviaubk3y
eXGvDX07iasdMBOCTl587nH16hqCTqgTQScAAJCEbcxJC5um+oi4hRqqThBXvy76orgaYdCLxNUQIOgE
NANBp3Yh6FRF0AkrbCtujnTdTcKPFlA3foA2s/jh2d3E1a5JthSu88xOFlc7YCYEnTyCTj0EnVAngk4A
ACAJ25iTFjZNtbFcL26xhip+zdt7XLyrDQZdKAvF1REg6AQ0A0GndiHoVEXQCSscKm6OdN3Z4uoFpPQF
cfMPPZ8QV7cmer+414i+3cTVDpgOQSePoFMPQSfUiaATAABIwjbmpIVNkx0ibrGGqu+Jq19XzJfTxNUG
g54qro5AIOgENANBp3Yh6FRF0Akhfvhynbg50nUfE1czIJU4qsvNPfTEj/I2F1e7JlpfWIvM7JcS3z25
+gEOQSePoFMPQSfUiaATAABIwjbmpIVNk60rfNkynIeKq2EX7CuuJhgUv/5eRVwdgUDQCWgGgk7twnq3
iqATwhHi5gf44QLqxwbszN4rrm5NdpC414q++O7J1Q5wCDp5BJ16+O8s6kTQCQAAJGEbc9LCpuleJ27B
hqpTxdWv7eIItjiKzdUEgx4tro7ACgSdgGYg6NQuBJ2qCDrhwXKzuPmBJUs3E1c3IIX4zOjmHXriv9m3
E1e7Jlskfxb3mtFzgawmrn7AVASdPIJOPQSdUCeCTgAAIAnbmJMWNk23WC4Vt2hD1WPF1bDNXi6uFhj0
I3E1BCYj6AQ0A0GndiHoVEXQqdsixMPnv+n9TlzdgBRWld+Im3voea242rXB/4l7zeh7gbjaAVMRdPII
OvUQdEKdCDoBAIAkbGNOWti0wQHiFm2oOku6dCzZenKVuFpg0APF1RGYjKAT0AwEndqFoFMVQafuipDT
ueLmBXraeGQWyvEscfMOPX+VePKRq10bxPdJcdy9e+3oiSDuWuLqB0xG0Mkj6NRD0Al1IugEAACSsI05
aWHTBnE8WWx4uIUbqvYVV8M2ep+4GmDQ18TVEJiKoBPQDASd2oWgUxVBp266r3Bs0so9VFz9gLmKAM8l
4uYdep4jrnZtspu4146+14urHTAZQSePoFMPQSfUiaATAABIwjbmpIVNWzxd3MINVefLAnE1bJMtZZm4
GqDqZrm7uDoCUxF0ApqBoFO7EHSqIujULevIO2W5uPmAvssljhZzdQTmKo5kc/MOPedJF75rCd8WVwP0
xLptfXG1A1Yg6OQRdOoh6IQ6EXQCAABJ2MactLBpi3iE9jniFm+oisfNuxq2yefFvXYM+rS4GgIOQSeg
GQg6tQtBpyqCTt2woRwkV4ibBxh0uLhaAnMVoQ3+WzSzx4urXRvtIPGDKVcH9HCMKFaGoJNH0KmHoBPq
RNAJAAAkYRtz0sKmTfYUt3hD1cUSx/25GrbB/cW9bgyKp17dSVwdAYegE9AMBJ3ahc3lKoJO7bWpPFO+
LDeKu/6Y3gPF1RWYq8PEzTn0nCbzxdWurT4prhbouV42F1c7IBB08gg69RB0Qp0IOgEAgCRsY05a2LRJ
fLEUXzC5BRyq2roBGnPgJ+JeMwZ9QFwdgekQdAKagaBTuxB0qiLo1DxxnFMcQXc72ULuJo+UOH78zXKC
/EHc9cZwzhVXe2Cu7iwcCz+zh4irXZvdQSLM4+qBnk+Iqx0QCDp5BJ16CDqhTgSdAABAErYxJy1s2ubh
4hZwqLpMFourYZPtLe71YtC1cntxdQSmQ9AJaAaCTu1C0AnAyvC+j7p8TtycQ883xNWtCw4RVxP03CTb
iasdQNDJI+jUQ9AJdSLoBAAAkrCNOWlh00bfE7eIQ9VrxNWvqeI4vgvEvVYMeou4OgIzIegENAMb3u1C
0AnATK6R24p7/wDm4j7i5hx6bpYdxNWuC+JJfVeIqw164omFrnYAQSePoFMPQSfUiaATAABIwjbmpIVN
Gy0Rt4hDVXx4jC+mXA2b6MXiXicGxZeRbIZgFASdgGYg6NQuBJ0AzCSequLeO4C54kdkM/u0uLp1Cd/D
rNwDxNUO3UbQySPo1EPQCXUi6AQAAJKwjTlpYdNWXxa3kEPVweLq1zQR2PqHuNeIQS8TV0dgZQg6Ac1A
0KldCDoBmE4cR72+uPcOYC7+R9ycQ88y2UJc7boknqz9B3E1Qs8PxdUO3UbQySPo1EPQCXUi6AQAAJKw
jTlpYdNWcQ5+PEbcLebQF1+MbyCuhk3yHnGvD4MuljXE1RFYGYJOQDMQdGoXgk4AptOWH66gLKvIr8TN
OfS8T1ztumgfcTVC3x7iaofuIujkEXTqIeiEOhF0AgAASdjGnLSwabNjxC3mUHWYuPo1xZ3kP+JeGwY9
U1wdgWEQdAKagaBTuxB0AuD8VRaLe98A5uLp4uYceq4RnqTWN19OE1cr9JwtESB09UM3EXTyCDr1EHRC
nQg6AQCAJGxjTlrYtNkdJR4n7hZ06LteNhdXwyb4rLjXhUHnyAJxdQSGQdAJaAaCTu1C0AmA80Rx7xnA
XCySP4ubc+h5g7jaddnO4mqFvv3E1Q7dRNDJI+jUQ9AJdSLoBAAAkrCNOWlh03YfELegQ9XHxNWvdDuJ
ez3wHieujsCwCDoBzUDQqV0IOgGY6gRx7xfAXL1a3JxDz6XCk9S8r4irGXr+KAvF1Q7dQ9DJI+jUQ9AJ
dSLoBAAAkrCNOWlh03YbybXiFnXoWy5biathyX4k7vVgUDxKPh4p7+oIDIugE9AMBJ3ahaATgMniyLoN
xL1fAHOxnvDfnJm9QFztsGTpNhLfLbm6oedAcbVD9xB08gg69RB0Qp0IOgEAgCRsY05a2HTB28Qt6lAV
R8C5+pUqnk7kXge8h4qrIzAbBJ2AZiDo1C5sOgNYIUIErOtRl/eKm3fouUA4Cn5mh4urHXouF54IhkDQ
ySPo1EPQCXUi6AQAAJKwjTlpYdMF68iV4hZ26LtZ7i6uhqWJLxd/L+51YNC3xNURmC2CTkAzEHRqF4JO
AFZ4kbj3CWCutpD/iJt36NlHXO3Qx1PVV26puNqhWwg6eQSdegg6oU4EnQAAQBK2MSctbLri1eIWdqg6
QVz9ShNf8Lvxw7uXuDoCs0XQCWgGgk7tQtAJQIin7bj3CCCFCXHzDj2/EI6CH86bxNUQPREE4/hREHTy
CDr1EHRCnQg6AQCAJGxjTlrYdMUiuVTc4g5V9xNXw1KsLX8XN3YMOk5cHYFREHQCmoGgU7sQdAJwhBCy
QF3ihzHxhGc399DzcHG1w6A4mo3v32b2fnG1Q3cQdPIIOvUQdEKdCDoBAIAkbGNOWth0yfPFLe5Q9V1x
9SvFIeLGjUHL5S7i6giMgqAT0AwEndqFoBPQbR8VQk6oU3wH4OYeer4trm6Y3nPF1RI9yySOi3S1QzcQ
dPIIOvUQdEKdCDoBAIAkbGNOWth0yUK5QNwCD1W7iKvhuN1Rrhc3ZgyKX367OgKjIugENANBp3Yh6AR0
11Ih5IQ67SZu7qHvnuJqh+ktkHPE1RM9nxZXO3QDQSePoFMPQSfUiaATAABIwjbmpIVN1zxF3AIPVaeK
q9+4xRdBbrwYFIGwjcXVERgVQSegGQg6tQtBJ6B7rpOnintPAFJZRc4SNwfR81lxtcPKPUZcTdETx0Xe
Q1zt0H4EnTyCTj0EnVAngk4AACAJ25iTFjZdE1/k/UrcIg9V8aWUq+G43FviiyA3Vgx6p7g6AnNB0Alo
BoJO7ULQCeiW84TNb+Swn7g5iJ44XmxLcbXDcH4grrboOVFc3dB+BJ08gk49BJ1QJ4JOAAAgCduYkxY2
XfRYcYs8VJ0pEQxzNRyH74sbJwbFFwPriKsjMBcEnYBmIOjULgSdgO74kKwp7r0ASGkN+ZO4eYieD4qr
HYa3k7jaom9ncbVDuxF08gg69RB0Qp0IOgEAgCRsY05a2HTVT8Ut9FC1r7j65cYjz2fnIHF1BOaKoBPQ
DASd2oWgE9B+v5UHinsPAOrwCnFzET3XyobiaofZOVZcjdET30+6uqHdCDp5BJ16CDqhTgSdAABAErYx
Jy1sumoXcQs9VMWxCQvE1TCX6P9ccePDoEtlkbhaAnNF0AloBoJO7ULQCWivv8uLZNyfudAt68pV4uYk
et4srnaYvTtLHAPo6oye/xVXO7QXQScv3itcvbqGoBPqRNAJAAAkYRtz0sKmy04St9hD1TPE1S+X/cWN
C17Uy9URSIGgE9AMBJ3ahaAT0D5XSDyFdbG4+x6o07vFzUv0XC7cm2m9T1yt0RNP9VtFXO3QTgSdpufq
1TUEnVAngk4AACAJ25iTFjZddi9xiz1UXSwLxdWwbreRv4kbFwZdIPwaHHUi6AQ0A0GndiHoBLTH7yWe
4ESIAuOyuVwvbn6i5wBxtcPobiesZ2Y27h8ZIi+CTtNbQ1zNuoSgE+pE0AkAACRhG3PSwqbrviBuwYeq
A8XVr24HixsPvCeKqyOQCkEnoBkIOrULG4NAs0Wo5HPycJkv7j4HcvmUuHkKYLziR4YEPLqDoNP01hFX
sy4h6IQ6EXQCAABJ2MactLDpurvKcnGLPvRdKmuJq2FdNhN+aTq8M4WNE9SNoBPQDASd2oWgE9A8/5YT
5CnC05tQih3kZnFzFsD4vUzcvYv2Ieg0vduLq1mXEHRCnQg6AQCAJGxjTlrYYMnSo8Qt+lB1kLj61eUY
ceOA90hxdQRSIugENANBp3Yh6AQ0w9nyHol1+eri7mdgnL4lbu4CKMMVsra4+xftQtBpeluJq1mXEHRC
nQg6AQCAJGxjTlrYYMnSzeUGcQs/9F0luR4fzC9NZ+f74uoIpEbQadAdJd4bgZKwwd4uBJ2AZrhaviwv
lK3F3c/AuDxC3LwFUJaDxd3DaBeCTtO7r7iadQlBJ9SJoBMAAEjCNuakhQ16DhO38EPVW8XVL7Xviusf
3v3E1RFIjaDToAiVuFoBQCoEnYBm+oMcIvEjDndvA7nEEee/FDdPAZTlWtlY3L2M9iDoNL09xNWsSwg6
oU4EnQAAQBK2MSctbNCzvsSXCW7xh76oUdTK1TCVR4nrG178atzVEagDQadBBJ0A1I2gE9B858obhc1r
jMNTxM1LAGX6sLh7Ge1B0Gl6zxFXsy4h6IQ6EXQCAABJ2MactLBB31Jxiz9UxdOvXP1SWCC/EdcvBt0k
24mrJVAHgk6DCDoBqBtBJ6A9bpTj5CHi7ncgtYXyR3HzEUCZlslW4u5ptANBp+nlOk2gZASdUCeCTgAA
IAnbmJMWNui7rVwhbgGIvuvlDuJqOFfxqx3XJ7xPiKsjUBeCToMIOgGoG0EnoJ1Old3F3fdAKi8TN/8A
lO1z4u5ptANBp+kdI65mXULQCXUi6AQAAJKwjTlpYYOql4tbAKLqCHH1m4vFcqm4/jDoBtlcXC2BuhB0
GkTQCUDdCDoB7fYTebC4+x+Yi1in/kPcvANQvnuKu7fRfASdpvczcTXrkviOPP4bjtHcXdzcQg9BJwAA
kIRtzEkLG1Qtkr+IWwSib7mkfoz2m8X1Be994uoI1Img06D4EsXVCgBSIegEdMOE3F7c+wAwineKm2sA
muFb4u5tNB9Bp+ldJa5mwLBWFze30EPQCQAAJGEbc9LCBoM4Pm04nxFXv1FsIv8W1w8GXSPri6slUCeC
ToMIOgGoG0EnoDtic+95Ml/c+wEwrM0kjp138wxAczxM3D2OZiPoNLNNxdUNGNZl4uYWCDoBAIBEbGNO
Wthg0AI5X9xCEH03y93E1XC2jhLXB7w3iqsjUDeCToMIOgGoG0EnoHu+KRuKe08AhnG0uLkFoFl+LoRf
24eg08weK65uwLBOFTe3QNAJAAAkYhtz0sIG3r7iFoKoOkFc/WYjzs2O0JT7+xh0ucRZ7a6WQN0IOg0i
6ASgbgSdgG66RO4v7n0BmAmfsYF2eby4ex3NRdBpZm8VVzdgWJ8XN7dA0AkAACRiG3PSwgZe/FrqTHGL
QVQtEVfDYZ0k7u/CO1BcHYEcCDoNIugEoG4EnYDuWiZPFffeAEzn6+LmE4BmOlfi6fPufkczEXSa2Sni
6gYM62Pi5hYIOgEAgERsY05a2GB6/yNuMYiqb4ur3zB2E/c34V0kC8XVEsiBoNMggk4A6kbQCcArxL0/
AFM9TNwcAtBszxF3z6OZthZ3ndFzgywSVztgGO8SN7dA0AkAACRiG3PSwgYz+6G4BSGqdhFXv5msIr8S
9/fgPU1cLYFcCDoNIugEoG4EnQCEg8S9RwArxJOpfyFu/gBotjjOlOBHe2wh7jqjbw9xtQOGcai4eQWC
TgAAIBHbmJMWNpjZg8QtCFH1U3H1m8mzxP0teL+WCIe5WgK5EHQaRNAJQN0IOgFY4aXi3ieAsK+4eQOg
HV4l7t5H8xB0WrkjxNUOGMbHxc0rEHQCAACJ2MactLDByn1d3KIQVbP5pc2aEr9Gc38H3mPF1RLIiaDT
IIJOAOpG0AnACjfL48W9V6Db4ojzP4ibNwDa4Srh82c7EHRauctlNXH1A1bmOHHzCgSdAABAIrYxJy1s
sHI7Snyh7BaG6DtT4lH5roZTvUHc34D3E3F1BHIj6DSIL5oB1I2gE4DJ/i33EPd+ge46UNx8AdAu7xT3
HoBmWU/c9UXVo8XVD1iZH4ibUyDoBAAAErGNOWlhg+F8TtzCEFVPFFe/yTaSa8X9+/AeLK6WQG4EnQYR
dAJQN4JOAKb6vSwW956B7llbrhA3VwC0y/Wyibj3AjTH6uKuL6q+Jq5+wMpcJm5OgaATAABIxDbmpIUN
hrOVLBe3OETfubJAXA1X+Ji4fxdeHJ3o6giMA0GnQQSdANSNoBMAJz5XufcMdM/bxM0RAO3E+3873Cju
+qIvTljYUlz9gOlsKm4+oYegEwAASMI25qSFDYZ3hLjFIaqeLq5+YXshMDa8+EC/g7haAuNA0GkQQScA
dSPoBGA6Dxf3voHuiM28eMKLmx8A2im+V9ta3HsCmuNKcdcXVUeJqx8wnaeKm0voIegEAACSsI05aWGD
4fEF4nAuloXianiiuH8H3mfE1REYF4JOgwg6AagbQScA0zlPVhP33oFuiA1gNzcAtNvx4t4T0BwXibu2
qIpg313E1RBwjhU3l9BD0AkAACRhG3PSwgaz825xC0RUHSBTaxe/Nnb/LLxlwuOZURqCToMIOgGoG0En
ADN5sbj3DrQfT0wGum0nce8NaIazxV1XDPq6uBoCU91GrhM3j9BD0AkAACRhG3PSwgazs76w2bRyl8qa
sqJuq8iZ4v5ZeB+SyXMPKAFBp0EEnQDUjbUngJnEZ681xL1/oN2+Jm5OAOiG74l7b0AzfF/cdYX3OHF1
BCZ7qbj5gz6CTgAAIAnbmJMWNpi9N4pbJKLqIFlRs/+7tQ3DuVY2lsnzDigBQadBBJ0A1I2gE4CV2V/c
+wfa68Hi5gKAbtlV3HsEysfxWrPzd+G7UsxkLYkfALj5gz6CTgAAIAnbmJMWNpi9xXK5uIUi+q6UCAAs
kj/f2obhHCxu7gHjRtBpEEEnAHUj6ARgZf4kq4p7D0H7zJefi5sLALrllxLvCe69AmV7v7hriun9UBaK
qyfwdnHzBlUEnQAAQBK2MSctbDAaNvuH8xZ57ZQ2zOwfQnACpeK9bxD3K4C6EXQCMIxHiXsPQfs8Qdwc
ANBNTxT3XoGyvUbc9cTMjhbCfZjqfrJc3JxBFUEnAACQhG3MSQsbjCZ+PXKxuMUi+uIItmumtGFmrxA3
54ASEHQaRNAJQN0IOgEYxnHi3kPQLqvJBeLmAIBuiveEBeLeM1CuZ4m7nli5jwphJ6ywqXCaxPAIOgEA
gCRsY05a2GB0zxC3WARGFR/K4qg/N9+AEhB0GkTQCUDdCDoBGMYNwrqk/V4k7voD6LYXiHvPQLkeKe5a
YjjHyuriaovu2EB+LW6OwCPoBAAAkrCNOWlhg9HFr6V+J27BCIzi2eLmGlAKgk6D2FAEUDeCTgCGtZ+4
9xG0w23kcnHXHkC3XSpriXvvQJnuIu5aYnhnyJbi6ov2i2vP3szsEXQCAABJ2MactLDB3Dxe3IIRmK1z
hUeNo3QEnQYRdAJQN4JOAIb1KXHvI2iHt4q77gAQXifuvQNlWig3ibuWGN6/5RXCd6rdspdcKW5OYGYE
nQAAQBK2MSctbDA3cR74L8QtGoHZiNCcm2NASQg6DSLoBKBuBJ0ADCue6BGfUd17CZptY4nNXHfdASDE
mvF24t5DUKY/ibuWmL1zJMIvrIPabVOJYwvdHMBwCDoBAIAkbGNOWthg7nYTt2gEhnW68EEcTUDQaRBB
JwB1I+gEYDbuJu69BM12pLjrDQCTvVfcewjK9H1x1xGj+408S9YQV3M00ybybrle3HXH8Ag6AQCAJGxj
TlrYII1TxC0cgWE8XNy8AkpD0GkQQScAdSPoVHWxxHsvyraRbCF3lwfJHvIUebV8UL4oZ8kN4q4zRvd0
ce8laK5tZbm46w0Ak0UIYHNx7yUoz8fEXUfMXXyG+qg8UFYRV3+ULY4jjB+YxxOclom7zpg9gk4AACAJ
25iTFjZI437iFo7AynxX3JwCSkTQaVBs5rpaAUAqBJ2qLhJXJzTTqrK17CMfkl/LzeKuPYZzmLhao7lO
EHetAcA5Wtx7CcpzgLhriLT+KofL42RtcdcCZVhXniyflavEXU/MDUEnAACQhG3MSQsbpMOXjxjFfcTN
J6BEBJ0GEXQCUDeCTlUEndovjqaINcfPxc0BzCyOwXF1RTPFE9HcdQaA6cQT4LYT956CsjxE3DVEfW6S
X8gH5EkSgXue+DQeCyWe/vpc+bicI/zgoX4EnQAAQBK2MSctbJDO3YTFOGbjC+LmElAqgk6DCDoBqBtB
pyqCTt3yAPmmuLkA73JxtUTzzJefirvOADCT+DGme19BWeL7BHf9kNe18jP5hMQxy/Hkp50kjmKO/xa7
a4fhrCXbyK7yDDlE4v3pPOFY3vEg6AQAAJKwjTlpYYO0Pi1uAQlMFR/m7ipuHgGlIugEtNfTxd33GD+C
TlUEnbrpkXKJuDmBQauLqyOa5fHiri8ADOP+4t5bUJY/ibt+KMMyic8fP5FjJZ4E9VZ5hTxHniC7yX1l
R9lStrhVPKU0wmwrlPzkqNVk8ljDerLitcTritcXP0LYRfaUOHr6WfJKeYccIfGj3u/Jb4Sj58p0T7dP
CAAAMFu2MSctbJBWLPrjA5BbRAKTHSluDgElI+gEtBdBp3IRdKoi6NRdt5c4asTNC1TdWVwN0RwL5Pfi
ri8ADOMH4t5fUJYvibt+AFCHHd0+IQAAwGzZxpy0sEF6Hxa3iARWuF42FTd/gJIRdALai6BTuQg6VRF0
6ra15dfi5gb6HiSufmiOF4i7tgAwG3uIe49BOV4u7toBQB22c/uEAAAAs2Ubc9LCBultLNeJW0gC4d3i
5g5QOoJOQHsRdCoXQacqgk6IpxVdI25+oCeOPHO1QzMslsvEXVsAmI2zpeTjstA78sxdOwCow0ZunxAA
AGC2bGNOWtigHoeIW0gCsVkZZ5y7eQOUjqAT0F4EncpF0KmKoBPCAeLmB3p4T2+2peKuKwCM4qni3mtQ
htWEH8wCyGWh2ycEAACYLduYkxY2qMc6wqYUnNeJmzNAExB0AtqLTfFysaasIuiEsEDOEzdHsGTpc8TV
DeXbSK4Vd10BYBQXykJx7zkow/fFXTsASOlfbo8QAABgFLYxJy1uUJ/XiFtQorsulbXEzRegCQg6Ae1F
0KlcBJ2qCDphhWeImyPordlczVC+j4q7pgAwFweKe89BGV4t7roBQEoXuD1CAACAUdjGnLS4QX0i0BLB
FreoRDe9QNxcAZqCoBPQXgSdykXQqYqgE1ZYU7g/vIPE1Qxlu6ssF3dNAWAuLpfF4t57MH53F3fdACCl
77k9QgAAgFHYxpy0uEG9XiRuUYnuuUB4VDiajqAT0F4EncpFkKOKoBMmO0rcPOm6peLqhbJ9Sdz1BIAU
3iTuvQdluFjcdQOAVD7u9ggBAABGYRtz0uIG9Ypgyx/FLSzRLU8WN0eAJiHoBLQXQadyEXSqIuiEyfYW
N0+6jqBT8zxA3LUEgFT+JeuLew/C+HF0KYC6vd7tEQIAAIzCNuakxQ3q9zRxC0t0x5myirj5ATQJQSeg
vQg6lYugUxVBJ0y2jtwsbq50GUGn5vmxuGsJACm9X9x7EMbvEeKuGQCk8ni3RwgAADAK25iTFjeoXwRc
fitucYlueJS4uQE0DUEnoL0IOpWLoFMVQSdMFUdEu7nSZQSdmmVPcdcRAFJbJluIey/CeMX3x5eIu24A
kMJWbo8QAABgFLYxJy1ukAdfXHbXD8TNCaCJCDoB7UXQqVwEnaoIOmGqL4qbK11G0Kk5Fsi54q4jANTh
U+LejzB+7xZ3zQBgruL40vlujxAAAGAUtjEnLW6Qx3w5VdwiE+32AHFzAmgigk5AexF0KhdBpyqCTpjq
YHFzpcsIOjXH88RdQwCoSxz5endx70kYrx3FXTMAmKsfuf1BAACAUdnGnLTAQT4PE7fIRHt9RdxcAJqK
oBPQXgSdykXQqYqgE6Z6vri50mUEnZphsVwq7hoCQJ1OFPe+hPH7ubhrBgBzcbDbHwQAABiVbcxJCxzk
9R1xC020T/xCbntx8wBoKoJOQHsRdCoXQacqgk6YimPCBxF0aoY3iLt+AJDDzuLemzBeTxV3vQBgLh7h
9gcBAABGZRtz0gIHee0kbqGJ9vmkuDkANBlBJ6C9CDqVi6BTFUEnTPVgcXOlywg6lW9D+Ze464dBf5WN
ZR1gGuvLheLmD7yfiHt/wngtFJ72ByCl/8iabn8QAABgVLYxJy1wkN+XxC040R7L5I7irj/QZASdgPYi
6FQugk5VBJ0w1Y7i5kqXEXQq34fEXTt4rFMwjL3EzR9M77HiaonxeqO46wUAo/im2xsEAACYC9uYkxY5
yG87WS5u0Yl2OEzctQeajqAT0F5sIJaLoFMVQSdMtYO4udJlBJ3Kdhe5Udy1w6DTZRVxtQSmOkXcPIL3
W+H+Kk88pYzPAABSeY7bGwQAAJgL25iTFjkYj2PELTrRfNfKBuKuO9B0BJ2A9iLoVC42OaoIOmGqLcTN
lS4j6FS248VdN3gPEFdHwImn/N0sbi7B43NAmeK/5e56AcBsxH8TN3R7gwAAAHNhG3PSIgfjsbnE8WZu
8YlmY1MBbUbQCWgvNjjKRdCpiqATpiLoNIjPJOW6r7hrBu9z4uoIzORIcfMJ3sWyurhaYnxuK1eIu2YA
MKxvuH1BAACAubKNOWmhg/F5v7jFJ5orvoC4jbjrDbQBQSegvQg6lYugUxVBJ0xF0GkQQady/VDcNcOg
6+QO4uoIzOT2co24eQXvZeJqifF6pbjrBQDDerzbFwQAAJgr25iTFjoYn/jiJY45cwtQNFOEQNy1BtqC
oBPQXgSdykXQqYqgE6Yi6DSIoFOZHiPuesFjHmMuXi1uXsGLH+6tLa6WGJ+Fcq64awYAK3OZrOb2BQEA
AObKNuakhQ7G663iFqFonnjUd3wB4a4z0BYEnYD2IuhULoJOVQSdMBVBp0EERMqzQH4r7nph0J9lTXG1
BIYRR7FdKG5+wYvvKF0tMV67irteALAyr3d7ggAAACnYxpy02MF4rSP/ELcQRbOwQYwuIOgEtBf/HSsX
Qacqgk6YiqDTIIJO5Xm2uGsF70ni6gjMxl7i5he8eOr8RuJqifH6grhrBgDTiSNc13F7ggAAACnYxpy0
2MH4vUrcYhTNEb/MXUXc9QXahKAT0F4EncpF0KmKoBOmIug0iKBTWeLJRH8Vd60w6KcyX1wtgdk6Rdw8
g/dhcXXEeG0s/FAWwGwcInZPEAAAIAXbmFMsdjB2i+RScQtSNMOe4q4t0DYEnYD2IuhULoJOVQSdMBVB
p0EEncryenHXCYNuliXi6giMYkeJeeXmGwYtk63E1RLj9Xhx1wwApopg5Lpi9wQBAABSsI05xWIHRdhf
3KIU5fuZuGsKtBFBJ6C9CDqVi6BTFUEnTEXQaRBBp3KsL1eLu04YdIy4OgJzcaS4+Qbvs+LqiPH7pLhr
BgCTvUhued9we4IAAAAp2MacVix4MHYL5AJxC1OUbRdx1xRoI4JOQHsRdCoXQacqgk6YiqDTIIJO5fiA
uGuEQdfKJuLqCMzF7eUacfMOg+IJWPcUV0uM122F748BzOQ3EntNt7xvuD1BAACAFGxjTisWPCjCk8Ut
TlGub4q7lkBbEXQC2ougU7kIOlURdMJUBJ0GEXQqw5YSx0C5a4RBrxFXRyCFV4ubd/C+Ja6OGL+7SQRD
3XUD0G3L5T7y3/cMtycIAACQgm3MafKiB2O3ipwtbpGK8vALN3QRQSegvQg6lYugUxVBJ0xF0GkQQacy
HCfu+mDQH2UNcXUEUlhdLhQ3/+A9VFwtMX57i7tmALrtbVJ5v3B7ggAAACnYxpymLnwwdo8Rt0hFeT4n
7hoCbUbQCWgvgk7lIuhURdAJUxF0GkTQafx2Endt4MWmvasjkNJe4uYfvNNkvrhaYvzeKu66AeimeM9e
KJX3CrcnCAAAkIJtzGnqwgdF+Im4xSrKcaNsJe76AW1G0AloL4JO5SLoVEXQCVMRdBpE0Gn8vi/u2mDQ
KeJqCNQh5pubh/AeL66OGL8IoR0t7roB6Ja/yWYy8F7h9gQBAABSsI05ucUPxu4h4hasKMdHxV07oO0I
OgHtRdCpXASdqgg6YSqCToMIOo3XHuKuCwbFkfA7iqsjUIeYbzHv3HzEoHNlgbhaYvxWlRPEXTsA3bBM
pj1q1O0JAgAApGAbc3KLHxThJHELV4zfdbKxuOsGtB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/FZRX4t7rpg
0BHi6gjU6Uhx8xHes8XVEWVYJCeLu3YA2i2Cu/uKe2+4hdsTBAAASME25uQWPyjCPcUtXjF+bxd3zYAu
IOgEtBdBp3IRdKoi6ISpCDoNIug0Ps8Ud00w6GrZUFwdgTrdXq4RNy8x6C8SYRpXS5RhTSHsBHTPgeLe
E/7L7QkCAACkYBtzcosfFOM4cQtYjM9Vso646wV0AUEnoL0IOpWLoFMVQSdMRdBpEEGn8YggQAQC3DXB
oFeKqyOQw6vFzUt4rxJXR5Qjwk6cEAB0x0pDTsHtCQIAAKRgG3Nyix8UY2tZLm4hi/Hgix10HUEnoL0I
OpWLoFMVQSdMRdBpEEGn8XiNuOuBQb+XheLqCOSwulwobn5iED/8a4Z4X/2cuGsIoB1ukniCqHsPGOD2
BAEAAFKwjTm5xQ+K8nFxC1rkd4nwqG50HUEnoL0IOpWLoFMVQSdMRdBpEEGn/NYX3q+H91hxdQRy2kvc
/IT3DnF1RFnmy1vEXUMAzRbHrj5a3L1vuT1BAACAFGxjTm7xg6JsLteLW9gir+eKu0ZAlxB0AtqLoFO5
2DivIuiEqQg6DSLolN+h4q4FBn1bXA2BcThF3DzFoPh+cmNxdUR5niw3iLuWAJrnAtlO3P0+LbcnCAAA
kIJtzMktflAcvjAdv3is/gJx1wfoEoJOQHsRdCoXQacqgk6YiqDTIIJOed1Jlom7FqiK4/m3F1dHYBx2
lJvFzVcM+pi4OqJM95eLxV1LAM1xrIx0fKjbEwQAAEjBNubkFj8oTjwC/1/iFrnIYx9x1wboGoJOQHsR
dCoXQacqgk6YiqDTIIJOeX1G3HXAoA+LqyEwTkeKm68YFGHFrcXVEWVaT74s7noCKFscVbefuHt7KG5P
EAAAIAXbmJNb/KBI8UW1W+yifmdInG/vrgvQNQSdgPYi6FQugk5VBJ0wFUGnQQSd8rm3uGuAQVdKbLi7
OgLjdHuJzWQ3bzHoC+LqiHLF95ovlH+Lu6YAyhPvtZuJu6eH5vYEAQAAUrCNObnFD4p0G7lC3KIX9dpV
3DUBuoigE9BeBJ3KRdCpiqATpiLoNIigUz7fE3cNMOhAcTUESvBqcfMW3n3E1RFli6NWvy3umgIow/my
u7h7eNbcniAAAEAKtjEnt/hBsV4mbvGL+pws7loAXUXQCWgvgk7lIuhURdAJUxF0GkTQKY//EVd/DPqd
LBBXR6AEq8uF4uYvBkXI09UR5YunO8Vnv7+Ju7YAxuPP8hxJul5ye4IAAAAp2Mac3OIHxVokF4tbCKMe
S8RdC6CrCDoB7UXQqVwEnaoIOmEqgk6DCDrVbxU5W1z9MeiR4uoIlGQvcfMXHk9Ab7bbyjvkenHXF0Ae
f5QDJPZ+3L06J25PEAAAIAXbmJNb/KBozxa3IEZ6XxR3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUv6eJ
qz0GfV1cDYES/UDcPMagMySeDuTqiOaIddQxslzcdQZQj1PlCVLrEy/dniAAAEAKtjEnt/hB0WLh+3tx
i2OkEx/utxV3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUL562PLxlcldxdQRKdC+5Wdx8xqB9xNURzbOV
HCHxvu2uNYC5u1I+KDuIuw+Tc3uCAAAAKdjGnNziB8WLLxHcQhnpHCWu9kDXEXQC2ougU7kIOlURdMJU
BJ0GEXSq1yvF1R2DDhVXQ6BkR4ubzxh0gdT6NBJkdwd5u1wu7poDmJ04HjJOjniirCHuvquN2xMEAABI
wTbm5BY/KF48FvpMcQtnzF18+NhcXO2BriPoBLQXQadyEXSqIuiEqQg6DSLoVJ/1hPfl4fxd1hFXR6Bk
G8m/xM1rDHq+uDqi2VaXOKb1x+KuO4DpXSXHyb6yWNw9loXbEwQAAEjBNubkFj9ohN3FLaIxd+8VV3MA
BJ2ANiPoVC421KsIOmEqgk6DCDrVJz4vuppj0PPE1RBogteIm9cYdKmsKa6OaIc7y+vlPHFzAOi6m+QX
8g55kKwq7l7Kzu0JAgAApGAbc3KLHzTGD8QtrDG62EhcX1y9ARB0AtqMoFO5CDpVEXTCVASdBhF0qscd
5QZxNUfVr6SYTT5gBHG80B/FzW8Mep24OqJ97iFxvU+Tm8XNB6DtbpSfy3vk0bK2uPtl7NyeIAAAQAq2
MSe3+EFjPFDcQhuje4O4WgPoIegEtBdBp3IRdKoi6ISpCDoNIuhUj0+LqzcGPVRcDYEmeYK4+Y1BsV69
nbg6or3imMenysflAnFzA2i6eFrT72RCDpD7SRzt6O6J4rg9QQAAgBRsY05u8YNG+Zq4BThm7zIZ65nZ
QAMQdALai6BTuQg6VRF0wlQEnQYRdEpvR+HJFcP5krgaAk30Q3HzHIPiySauhuiOzeSJcoh8R64UN1eA
EsU670/ybXmfPEPuLYvEzfdGcHuCAAAAKdjGnNziB40Svx5YB0msJa7GAPp4zwHaa6G4+x7jF4/Bd9es
q24rrk7orlXEzZUuiyOXXK0wOtbBw2NNgTbh3h/ebcTVEN0WgfT/kfjh3EfkZPmzEB7GOMQRxOfKSfIx
eY08XuJIxkYHmqbj9gQBAABSsI05ucUPAAAAAAAAAABADVaTCEHtLE+RCJx8WD4vp0gcFfZ3cWEVYKqr
5Hw5VU6UIySecPo8ebTcR+KoRTcXW83tCQIAAKRgG3Nyix8AAAAAAAAAAIAxWiC3l7vKfWU32UeeK6+U
N8thcrgcI1+Wb0iEpc6Qs+S3Esdfh8skjgYPy8WFZlCPm2RF7f8mK65JXJ+4Tj+WeOLXCfI5iesZ1/bt
8mrZX54se8iDZHuJ8FKE5tzcgbg9QQAAgBRsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQEls
IwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAA
AAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAA
AAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACU
xDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAA
AAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAA
AAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAA
QElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAA
AAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYC
AAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAA
AACUxDYCAAAAAICqeUuW5raxPESeJa+TD8hn5dtyipwmZ03xMzlZviRHy7vlpfIEWSLriOsLAAAA5bmt
3FueKK+SQyXWg1+XH8vUteBPJNaJ35D452It+Ep5sjxQWAtiaO4zUZdMTEwAdVtH7iP7yCvl3RL/+6qc
ImcZ0f59OV6OkLfJi2QPuassFNfXrLh7AgBKYhsBAAAAAECV+/I/oY1kb3mPxKbVv+T/1eQSibDU2+TR
cjtxY2q7Y2Tq5mAJfimxQRniOn1BPi6xsfkmeYH8r8Sm5+3FvbY2+Zy4OnXZ12QNcfXK5URxY8spNvO/
IyfIJyXCoBEK3V/iHtlR1hU3fvTUeX99SFyfdYjwhxsDen4qEZ52tatDW+bVOCyQ+0kEkyK0fqG4tdxc
/UVOkoPlEbKmuPF0Ra61xi7i+s8hfjzhxjSKW95T3OeltnHhj8K9Rlwwpi5LxY0D3trySIm6fUP+LP+v
BjfJb+VTcoDsIPPFjWla7p4AgJLYRgAAAAAAUDXPbxrMxT0kgiuni9uEyuVmiadDLZV7ihtr26wm14mr
R9PcIGdKBD1eIQ+XtmxYxutYJu51d11sTLua5bCBuDGV6kr5oRwuz5MdZFVxr61LctxfMVdc36mdKq5/
9L1YXO1Sa9O8ymVt2U+Ol2vEvea6xTX7vhwgOUNxJci51jhDVhE3jrpFqM2NaVQvcZ+X2saFPwp2X1ku
LvhSl9+IGwv67i4RbPqJ5L4+k/1NPi1PkDXEjbXC3RMAUBLbCAAAAAAAqub5TYPZuo08V2Kjw20alOAc
eY1sKO41tEE8LcG99rb4j8STGiLUEUfeuBo0QTz5wL2+rlsui8XVLIc9xY2rSeKpeV+V58tm4l5n29V9
f50vrt/UCEQOZydx9UutLfOqbhF2eaTEU5viv9nutY7LTfI9eYpEMNyNv01yrzX+T9w46hZBNjeeUd3X
fV5qGxf+KFQEV84VF3Cp23rixtRld5IIN/1BXM3G7Wo5WpaIG/8t3D0BACWxjQAAAAAAoGqe3zQY1joS
T0z6p7jNghLFk4KOkm3EvaYmiycfudfcRv+Wj8qW4mpRsteLe01d9wtx9coljth042qqeKpdbAA/XVYX
95rbqO776xPi+k3toeL6R9+1EkeiufqlVve8Olpcv02xSF4ofxD3+koTR9zFMXqxjnWvpw1yrzWipjEP
3FjqkvpJpvG3FrjPS23jwh+Fere4QEsOjxE3pq6Jo+EeJSeJq1OpfiyPlYGj7dw9AQAlsY0AAAAAAKBq
nt84WJk4Hukl0qSA01Tx9JiPy6biXmMTnSDutbZZXMcPyXrialKieCqVey1d915x9cqlzceEXS5vlCY/
CW1Ydd9fzxTXb2pvENc/+uJau9rVoS3zKrWFcqBcJu51le4qicBTG8Og41hrRLjKjaUuqZ9kerL7rNRG
U4Mfhbqf3CQuxJLDu8SNqytWkX0ljvFz9WmK0+RB8t/X5u4JACiJbQQAAAAAAFXz/MbBTHaQ08VtEDRR
HPX0IonjVtzrbYr5coW419gFf5e9xNWmJBESvEbca+i6ODrO1SyHOCbsRnHjapN4j3i55HoKTm457q+t
xfWd2rfF9Y++XKGKNs2rlPaQpjzBaWXi6MBdxb3OJhrXWiPW1BuJG1MdUj/J9C3us1IbTQ59FGqcR9at
cKq4sXXBrnK2uLo0VfzvdmLvCQAoiW0EAAAAAABV8/zGwXTiWJJl4jYHmu6Hsom4190E24p7XV3zYYkn
TLgaleCe4saN8T6Vq2vHhP1aHiCuFk1W9/31N3H9phYhhTiWzY0BfTuLq19q9xLXfyq55lUqEWT5srjX
0nQfkdzHr9VhnGuNj4kbUx1Sz8Pd3GelNoqwR+HGeWTdCstkTXHja6vN5QRx9WiDy2QPd08AQElsIwAA
AAAAqJrnNw6miqedfEbcpkCbxGZjBB5cDUr3XHGvqYt+IGuLq9O4xRE/bsxd9xtx9coljnVz42qzm+Rg
adPTneq+v74ort/U7iOuf/TdIGuIq19qbZlXKcST9/4h7nW0RQRBm/iErcnGudaII4XvJm5cqcXTPN0Y
RhH/TVzsPiu10YQPuZRi3EfWTfZQcWNsm/nyArlWXB3a5s0y390bAFAC2wgAAAAAAKrm+Y2DySIwcoq4
TYE2iidWPUFcLUr2KXGvp6vOlhLDTp8XN96ui6douHrl0uVjwiIYuL64ujRN3ffXS8X1m9pLxPWPvngK
o6tdHdoyr+ZiNTlM3Pjb6CppavA9jHutcZK4caW0jbi+R3WG+5zUVhM+7FKCEo6sm+wN4sbZJhvKSeJe
f5t9QRa5+wMAxs02AgAAAACAqnl+82CFCIqcIW5DoM3iV91PF1eTUl0o7rV02amS64kfw7pU3Fi7bl9x
9cqBY8KWLP2jxKaxq0+T1H1/7SSu39SOF9c/+uJpZK52dWjLvBrVOvJdcWNvswi+7yWuJqUrYa2xm7ix
pfJscf2O6v3uc1JbTfjASwlKOLJusm+LG2dbPEguEffau+BkWdPdIwAwTrYRAAAAAABUzfObB2GhnCxu
M6ALIuz0WHG1Kc0m4l4Dliw9WlzNxmFLcWNEbw67muVwb3Fj6po4AmgHcTVqgrrvrwjD5TrmL45RdWNA
3yPF1S61Ns2rUWwmvxM39i5o0lpwhVLWGr+SVcSNMYVjxPU7qr3d56S2mvChl3Er6ci6FeIotwXixtt0
z5Bl4l53l3xdVnX3CQCMi20EAAAAAABV8/zmQThK3EZAl1wnO4qrT0meKG786Cllk/L/xI2v6y4QV69c
XixuXF0UxzXdXVydSlf3/RVPtHH9pra1uP7Rt1wWi6tfam2ZV6PYSuJpb27cXRJPdtpZXI1KVNJaI566
5MaYwvni+hzVRu5zUltN+ODLOJV2ZN1k9xE35iZ7q7jX2lWHuvsEAMbFNgIAAAAAgKp5fvMgjupwmwBd
FBspcYSfq1MpPihu7Oi5SOIJZa52OR0pbnxd9wlx9crlC+LG1VWXyJ3E1apkdd9fS8X1m9qzxPWPvtPF
1a4Odc+rN4nrd9zuKH8RN+Yu+odsIa5WpSlprRFH6NURStxIXH+jOt99RmqzCR9+GafSjqyb7KXixtxE
8+Uj4l5n1z3F3SsAMA62EQAAAAAAVM0b3DxYR+III7cRULf41fyVEsGUCBjF/xv//+vF/fO5jDuIsTJn
ihs3+vYXV7uczhU3tq57urh65XKZuHGlEEc+nbUSv5V4r4vjyuI90P2d3H4juZ6Yk0rd99fDxfWbGoHI
lXuPuNrVoS3zajZuL/GkPTfenK6WCFutWA+Oa226wmmymrialaS0tcabxY1zLvYW19eoPuE+I7XZhA/B
jMvOcrO48EkJvihu3E0TIaePinuN43CFXCTny1/kX+L+uVz+KZu6+wUAcrONAAAAAACgat7g5sFbxW0C
pHaznCpvkUdKPEFkVXFjCrHxdn95phwjfxL3d+vyUHHjGrfbyk3ixpxC/G0XzphOBDtiQzJcIf8R93dz
O1tc/XLZQNy4Uoqau2tSujuLq1kOcTSTq2UKEVpaJK7fmawv95SnyLsk3ifjqC7XR52+JG58Jar7/or6
ryWu79R2kgivunslhXhil3uNqfxTXL8p7Squdqm1aV4NKwKOZ4gbb50i1P4ZeYbEPTBd0DKezril7CmH
yC/F/b265Hqy26hyrDVm69+yqbjxjuowcX2N6lnuM1KbTfggzDisKRF0ccGTUlwubuxN80Fxry+HC+QD
8iTZTuKoQjfGVWVLeZzEU77OEff36vIVd78AQG62EQAAAAAAVM2rbhxEaOZacZsAqcTG3uFyV5na/2w9
UCL0lOMpKPHUlVXEjWOcdhc33lRiw931OxuxYRnXezc5QOKaxRMaXH91upu48eUQm7JuTCndW1zfmF48
TcrVMoWfietzFOvJc+QX4vqqS/TpxlOauu+vn4vrt4k+JO41pvIOcf020ePEvcZUSptX8+Ur4sZalx/L
/8pMQfeV2U6OkBvF9ZFShLcjIOvGUYIca41RpH4yahxf6foZ1V3dZ6Q2m/Ahk3E4TFzgpDTbiBt/U7xa
3Ouq0/USx+TdW9yYhrWTHCeujzrs4u4ZAMjJNgIAAAAAgKp51Y2D+CW92wBIJY7TuI9M7Xeu4okw3xLX
Z0r7iet/nA4WN9ZUPiiu3xS2lfj7OTYnw0vEjSOH94obUyr/krlsFHfVUeLqmUI8jcn1OVePkDhazvWZ
WgRftxA3jpLUfX8dKq7fJoonIrnXmMqjxPXbRF2bV3HEmBtnHeLpj6mP7dtecjzh6cvi+i9B3XN2VPEU
1x3EjXm2Ijyf8imHl7vPR2034QMluZV+ZN1kzxb3Gpogno7kXlOdPi4bixvPqGK+xJOhXH8p/czdMwCQ
k20EAAAAAABV86qbB3WGheIJPnGkxtQ+U4knEcSRIq7vVE4U1/c4nSJurKnsI67flOJJRH8R139KnxPX
fw6niRtTKnHvun4xs/PE1TOFx4rrM4UFEkEq129qTTjCru77ay9x/TbN2lLnUacRZlhHXN9N1KV5FaGj
uH5unKl9VNYQN465WlO+Kq7flOJ4Udf/uNU9Z+fie+LGPFsR9nV/f1Rfcp+P2m7CB0lyquPIut+btlQ+
Ke51lC6OifuXuNdUh7/Ig8WNJYX15DRxfafEU50AjJVtBAAAAAAAVfP6GwdxLNs14jYBUniMTO6vLm8S
1/+oYuPvj/J1iaPyXJ/jslCuEzfuVDYW13dqcRTM38SNIZUzxPVdt9h4Tfn0AecN4vrG9DYUV8tU4rg5
129KT5U6gysrPERc/yXIcX/FXHF9N03dR53+Sly/TdSleXU7+au4MaYU71VxfK0bQ0qLJI4FdGNIZUJc
3+OUY87O1aPFjX02Uv+o4aXu81HbTfgQSU6pj6w7Rfad0pbSheJeR8lWl1+Jez11+LGsL24sKa0tZ4sb
QyqfdfcNAORiGwEAAAAAQNW8/sbBXW/9wr8uq8vk/uoST3b6prgxzCSOT4uj9eLpJXEc3FMkfrEfG0eu
nxLcT9xrSeUP4vqtyx7ixpHKn8T1W7eHiRtPSruI6xvTi6epuFqm8FtxfdbhReLGkNLJ4vouQd33Vzz1
y/XbRG8T9xpT+Yi4fpuo7nkV6w3X7zh8RtwYU3u+uP7rEOHpG8SNI4X/SATEXN/jkmOtMVfnSDyR0I1/
WN8R97dHtZP7fNR2Ez5AkkvqI+uWSTy56M6T2uqwibjXU6pDxb2OOnxVFokbRx3uIteJG0sK/5H13L0D
ADnYRgAAAAAAUDWvv3FQ9wZJzicX3EmWiRvH9XKWfFbeKBF22F5WE/e3SvZKca8xlU+K67dOPxM3lhT+
Ka7PusU8c+NJJeZ6yYG8Uh0qrp4pHC6uz7p8Xtw4UtpJXN/jVvf99XFx/TbRD8S9xlSeJK7fJurKvNpV
3PhSi5Cd679Odb7Hh/3F9Tsudc/ZVOYSeIuQ1LXi/u4o4m8tcJ+P2m7Ch0dyqOPIurfLir9/xa1tdYgn
Rk1+LSXbSW4S9zpS+54sFDeOOr1W3HhSeaq7dwAgB9sIAAAAAACq5vU3Dx4vbhMglefI5P7qFkGDU+UY
iUBQHJ13Z4kj+tw/30RfEVfrVJ4trt86vVXcWFK4Ulyfdfu2uPGkEvPc9YuZ1Xm0URwp5/qsy6aScvPX
+Zi4vset7vvr6eL6bZo46rTOJ9yEO4jru4m6MK8i4B1PlnLjS+nHsqq4MdQpQu9x/LAbUwrfEtfvuNQ9
Z1O5XG4r7jWszH3E/c1Rfdd9NuqCCR8cySH1kXV/lAhPrfj7J4n751L4kEx+LaVaRc4U9xpS+53EUXJu
HHWL6/4PceNKYcLdOwCQg20EAAAAAABV8/qbB3UHna4RjtdKJ47o+4e4Wqeyjbi+63SguLGkcL64PusU
m7t1B1DeJa5vTG8tWS6unilsIa7fOtX99JKrZZG4vsclx/0VR2C5vpvmAeJeXyrjOhq0Dl2ZV/FkHTe2
lGLtF4Ej138Op4kbVwoRHFxDXL+5pZ6zcZyza0/l7eJex8q8WNzfG9VS99moCyZ8cKRuqY+sC4+SyX0c
LO6fS+FsmdxXqZ4hbvypxdFx24gbQy7vFje2FH7o7h0AyME2AgAAAACAqnn9zYPdbv3Sv26fkB1lct+Y
ve3E1TeVv4vrt251PtHp++L6rFPqpw84jxXXN6b3CHG1TOEv4vqs25bixpPSHuL6Hpe676/LxPXbRK8W
9xpT+Yy4fpuoC/MqQouXihtfSi8T138uda4pwoPE9Ztb6jn7BqnzaVhxjPTm4l7LTI4T9/dG9Qj32agL
JnxopE51HFl3vEzt57Hi/tkUIqS1jkztsyRxhNzF4saf2gvEjSGne4sb22z9S86ReCLYkfIGuYu7dwAg
B9sIAAAAAACq5vU3D+LpAm4ToC5ny9sknjIRx6dMHgtW7nni6prKl8X1W7c44saNJ4UPiOuzTi8RN5aU
bieub0xvqbhapnCsuD5zOFPcmFIZxz00k7rvry+I67eJvibuNaayv7h+m6gL8yrH05x+L3Fkous/l73E
jS2VqKPrN7fUczaeSnj0lLbUJsS9lplcJO5vjSKe6rjYfTbqggkfGqnTB8QFTEYVwZTNZGo/G4v751OZ
+gSp0uwvbtypnSZxRJ4bQ07z5e/ixrjCjRJHHP5QPiPvkOfLHnIPWdfdIwAwTrYRAAAAAABUzetvHqwi
/xS3GVC36ySetnOw7Cmj/Mq7az4trpapvFxcv3W6v7ixpLKvuH7rdLy4saTyW3H9YmbfFVfPFF4ors8c
DhE3plQioOr6HZe67684Jsn12zRx1OmV4l5jKncT13cTtX1exXyIEJIbW0p7i+s/p7uLG1sqh4nrN7eU
czbW5DFHNpJ/3dpWl3gSlXs9zsbi/saoTnefi7piwodG6vJQcQGUuXipuL7CJeL+nRQOEddnCSL0k/qp
WdO5v7gxjMNRcrp8Sd4vL5d95H6yiQwEstw9AQAlsY0AAAAAAKBqXnUT4YviNgPGITZlI4zwHnmKbC+r
ytQxd9UfxdUtlSXi+q3LbSRCO24sKdwk64vru05xRJEbTyqHi+sX01sg14qrZwr3ENdvDo8XN6ZU4gkY
q4vrexzqvr/uLa7fpon/frrXl0r89zrC0q7vJmr7vNpV3LhSOkdKmBPx3303vlS+Ka7f3FLO2dNlxd99
za1tdfmhTH4dM3mcuL8xqve5z0VdMTX4UaPFEk/TcWGZUZ0lC8T1F04Q9++l8GNxfZZgd3FjTu2r4vpv
DHdPAEBJbCMAAAAAAKiaV91EiF/fu82AUlwvp8lHZD/ZWqa+hi7YVFx9Uvm3RBjE9V2HteVkcWNJ5Tvi
+q7TXcSNJaW/ylmFiSOy1hBXkxLsJK6WKcRT8ca5ub+tuHGldC9xfedW9/0VYbi2hGvjWDn3GlM5UVy/
TdSFeRXHa7qxpRQBddd3bnE0shtfKvHfPNdvTqnn7BGy4m/Hf8vrDtZHgGny65nOO8X9+6Pay30u6goX
/qjJh8WFZUZ1s8STelxfK7xO3L+bwn9kDXH9jtvnxY05tZ3F9d8Y7p4AgJLYRgAAAAAAUDWvuokQ4ZaL
xW0IlOoK+YYcJPeTLjz1KY5gc7VI5Xvi+q1DPDmqrUfoPEPcWLognhjialKCl4obcwrxXuT6zGUtceNK
adhN6brVfX99W1y/TTQh7jWmEv/9df02Ud3z6lvi+s1lsdT5RLtwuSwU1/84uDGmcoG4PnNKPWcjGDn5
7z9R3D+XSqwBI5A2uU/nB+L+/VFt6D4XdYULf9SgjiPrjhDX12S7ift3U3mwuH7HaW25Xtx4U/qluP4b
xd0TAFAS2wgAAAAAAKrmDW4kxJOS3IZAU1wt8XSJF8udxb3GpvuQuNeeypvF9ZvKfHmQHCc3ixtDSrER
mfMJVSscJW48bRfXdB1xNSlBnUd0xjE/rs+c4sl3bmypHCCu39zqvr/eIK7fJrpI3GtM5YHi+m2its+r
vcSNK6V3iet7HOoOf8aRca7fnFLP2Xjq4eS/H2u2H4v7Z1M5UCb3OVWs4eJpo+7fHcV57jNRl7jwR2J1
HFl3uawrrr/J1hP376fyWnH9jtO+4saa2gHi+m8Ud08AQElsIwAAAAAAqJo3uJkQGxrfF7cx0ES/kbfJ
PcW93iaKo1Lca03lEeL6HUXMp40lNsLjKQHHyJ/F9VuXeNqBG1vdzhM3nrY7R1w9SvE3ceNOYWdxfeZ0
pbixpbJUXL+51X1/PVRcv02zmbjXl8oNsrq4vpuo7fPq4+LGldLdxfU9DhuIG2MqcVyp6zenlHP2RnH3
832kzmD6P2SmgHQcmer+vVEd5T4TdYkLfySW+si6sJ+4vpzzxf2NFE4S1+c4fVrcWFO6STYU13+juHsC
AEpiGwEAAAAAQNU8v6GwicSv1N3mQJNF6CmeRnIbca+7CdaWm8S9vlQiqBJhqlH9QeIJInGsYN1jXZlf
yirialmnDcWNpwuOFFeTEmwtbswp/EfWENdvTrFh7MaXSglPa6n7/orN/jXF9d00dR91+iNx/TZRF+ZV
/PfZjS2VOIbM9TsudxM3zlTGHXRKPWfPENdPiKC6+3dSeY+4fsPzxf07o3qG+0zUJS78kVAdR9Z9X+aL
6885VtzfSeFqWVVcv+NyqbixpvQjcX03jrsnAKAkthEAAAAAAFTN8xsKIY6u+Je4DYKmi42peCpJhIbc
ay/Z7uJeEwYtl3gKgatj3R4vbkxd8ExxNSnBs8SNOYU42sf1mVvd79uHies3p7rvr1PF9dtEHxb3GlN5
h7h+m6jt82ojceNKqaRj60Lda6Y/ies3l9RzNo5Gdv2E+BHEteL+vRQiLHwncX1/Sty/M6q7uM9EXeLC
H4nUcWTdMtlWXH/Tebm4v5XKPcX1Ow5bihtjaq8S1/+w7iFnNcAZsr27bwAgF9sIAAAAAACq5vkNhRUe
JFeL2yRog8slgg9xvJp7/SWKY/jca8Gg14urYQ7vEzemLthWXE1K8AlxY07hEHF95rSauLGlNNNTN3Kp
+/4q4TWmcra415jK/4jrt4naPq8eLW5cKUWwyPU9LvEUTzfOVOJJoa7fXFLP2SeL62eFN4j791L5vLh+
Ux7PF0+stZ+JumTCB1FSqOPIureJ62smDxb3t1I5UFy/4/AkcWNMbTtx/Q8raub+bone5+4bAMjFNgIA
AAAAgKr4sn8l7iFxDJnbLGiLb0k86cC9/tL8QNxrQNUXZRxH1q1wurhxtV0cm1ZycPB8ceNOYQ9xfeYU
T8NwY0spnobn+s6p7vtrT3H9Nk08tfBmca8xhfjbTXwy4nTaPq9eI25cqcRTFBeL63tcDhc31lROFtdv
Lqnn7J3F9bPCIrlY3L+byv1lcp/rivvnRnW82M9EXTLhgyhzVceRdX+QReL6m8lacpO4v5nC58X1Ow5v
FzfGlC4S1/ds1HmcYGp7u/sGAHKxjQAAAAAAoCq+7B/CevIlcRsGbfFXGdcxZ8NaKNeLGz/6YuNxTXE1
zCE2emPD142t7b4hriYlqPPYpgh8xGas6zenh4obX0oHius7lxz31wbi+m6aeNqSe32pxNOiXL9N1IV5
dbS4caVylrh+x+k0cWNNJY5Uc/3mkHrO/k1cP1M9Sdy/n8pPZXJgeldx/9yoXiz2M1GXTPggylzUcWRd
+B9x/Q3jt+L+ZgqXietzHL4kbowpxf9c37Nxsbi/XaIN3H0DALnYRgAAAAAAUBVf9s/C3lL3L7nH6Vp5
mLjXXoL4lbsbN/pOknGGnMIjxI2tC14nriYliPcvN+YUfi2uz9xeJm58KT1RXN+51H1/nSuu3yZ6u7jX
mMqHxfXbRF2YVxECdmNL5TPi+h2XWAvUHV57s7i+c0g9Z08Q189UEUKKMJL7G6nsIyv6i3WF+2dGdW+x
n4m6ZMIHUebiY+ICI3PxBXF9DesT4v5uKluJ6ze3X4obX0r7i+t7WJuJ+7sl+q27ZwAgJ9sIAAAAAACq
4sv+WYpjK14i8QQkt4HQdNfIvcS99nF7lbgxo+d9sqq42uUUR3u58XVByUHBw8SNOYWPiusztwgauPGl
dF9xfedS9/31MXH9NtEPxb3GVPYV128TdWFe/U7c2FKJo/Fcv+OSI3Q8zuBn6jn7anH9OEvE/Y1ULpR4
imn09eVb21KIHzTcsk50n4m6ZMKHUUa1m7jAyFxcI5uK629YLxT3t1N5hrh+c/u7uPGldDdxfQ/rieL+
bokOd/cMAORkGwEAAAAAQFV82T+i2ICITc7vyE3iNhSa6k9yO3Gve5y+Km68XRehu8eIq9k4fFfcONsu
3gfiKB1XkxL8Qty4U3iyuD5ziqds5Aig3lZc/7nUfX89TVy/TRP/jb5B3GtMZTNxfTdRF+ZVHE3mxpZK
HGnm+h2XCD+7caa0rbi+c0g9Z3cW1890JsT9nVReLtHPJZPa5urbcsv43WeiLpnwYZRR3FbqOJLsJeL6
m42dxP3tVI4W129uN4sbXyo3ymri+h7W+8X97RLt6+4ZAMjJNgIAAAAAgKoVX/jP0YbyfDlFbhS3udA0
nxL3WsclQgxXihtrV/1H3iNri6vZOCyQeGKAG2/bnSmuJiWIAFadRxhtLq7fnHYUN7aU/iiu71xy3F93
Ftd30zxQ3OtL5SJx/TZRV+bVP8WNLZVdxPU7LvFUIDfOVK6SVcT1XbfUczbW7vHEVtfXdCLoeJ24v5dC
zNe7T2mbqzfKLeN3n4m6ZMKHUUZxpLiwyFycKQvE9Tcbq0uEdFwfKZwvrt+c1hE3tpTOFdf3bPxc3N8u
0UbungGAnGwjAAAAAACoWvGFf0LxtI/HyRFygbiNhqbYSdxrHIftxY2xi66X90sJ4ZKpYs64MXfBR8TV
pAS7ihtzCvEEONdnbm8XN76U4gkeru9c6r6/4olYrt8mOkjca0xl3HMhpbqP4SplXrmxpXRXcf2OQxxB
7MaY0oni+s4h9Xvhz8X1szJ1H/n4G9M2F/89Xtd9JuqSCR9Gma06jqyLpxPdV1x/ozhdXD+pbCSu31w2
EDeulE4Q1/ew1pTl4v52ac5z9wsA5GYbAQAAAABA1Yov/Gu0sewjH5A4OqpJT3w6QdxrGof9xY2xS/4s
sam2vrgaleBl4sae0lmF+l9xNSnBW8TVMoXPiOszp3iqyMXixpfS88T1n0vd99dx4vptoghhuNeYSvw3
yfXbRF2ZV/EURDe+VLYQ1+84xJrTjTGlA8X1nUPqORv1cv2szJryF3F/szTxVMcY7y1jd5+JumTCB1Jm
o64j6z4qrr9RHS6un1T2FtdvLluIG1dK8dQu1/ewHiLu75bo4+5+AYDcbCMAAAAAAKha8YV/RqvLfeQ5
cricLnVvvo0qNkU2Evc6counZ7gxtl0czRKbxI+RVcXVpiRfEvc6UvmduH4xs5PF1TOFEgIfjxY3ttTu
IK7/XOq+vw4Q12/TRPCt7qNO4ymDru8m6sq8+oe48aWyrrh+c4t15hXixpjSOI8jTD1nnySun2E8Rdzf
LM2p8t9xu89EXTLhAymzUceRdSGOgzsrob+K6yeV94urTy7rixtXSu8R1/ewXiPu75boqe5+AYDcbCMA
AAAAAKia/KX/GK0mcczIivDTL+UmcRsVuT1b3Jhzu0jc+NrmBvmpvEsivBEblq4epbpc3OtK5WPi+sX0
Fsh14uqZwt3E9ZvTj8SNLaV4Ip/rO6e67697iuu3aWJOuteXSoSo5ovru4m6Mq/qXkesI67f3J4pbnwp
nSGu71xSz9m5PI0r3gtOE/d3S/Ie+e+43WeiLpnwgZRh1XFkXVP9UlyNclkkblwpLRXX97BOFPd3S7SZ
u18AIDfbCAAAAAAAqiZ/6V+YxbKrvEm+J+N66tOnxI0vp83EjS2VOE7QHUWWUvyS/hT5isQTmo6SCDO9
Sp4uD5c7SjyJxNWgCe4qrr4pPU1c35jefcXVMoUIfIx7zj5M3NhSe6m4/nOp+/66Wprw1Lhh1H3U6dfE
9dtEXZpXESJ3Y0xlc3H95vYrceNL6SXi+s4h9ZyNo+dcP7PxAHF/uyR7yn/H7D4TdcmED6QMo64j65rq
JomauFrlEmNwY0tlLk90mi//EPd3S3Ohu1cAYBxsIwAAAAAAqJr8pX/h1pI4viyeaHONuE2MOsSGmRtP
TvuKG1sq8TQY1y9m51ni6pvSncT1jem9XFwtUzhRXJ+5xJM04klLbmwpRdB0fXFjyKXu++skcf020WfE
vcZUXi2u3ybq0rz6vLgxphJP5nT95rS7uLGlFE+eXE9c/zmknrPHiutntj4n7u+XYgP573jdZ6IumfCh
lGHUdWRdk+0urla51H0832fF9TuMu4j7myU6xt0rADAOthEAAAAAAFRN/tK/QdaUl8m14jYzUrpK3Bhy
+rC4saXyDnH9YnY+Ia6+qVwirl/M7Mvi6pnCQeL6zCVHuC6U8GS7uu+v14nrt4n+JO41phJPb3H9NlGX
5tWbxY0xlceJ6zeXCH7+XNzYUjpaXP+5pJ6zLxTXz2zFE72uF9fHuJ0rlfG6z0RdMuFDKSvDkXXeweLq
lcsp4saVyq/E9TuMeKLTMXJWIv8UN8YUnu7uFQAYB9sIAAAAAACqpn7xP8mGcjd5pMRxWbGh/36JY8fi
CUC/l43F/bu57CTxy3q3qZGS6zuns8WNK5X/EdcvZud8cfVNJdVTF7rm7+LqmcI4Ax8byT/FjSu17cWN
Iae676+HiOu3ae4g7vWlEv/NXSiu7ybq0rx6orgxpvIWcf3mEkErN66UbpZtxfWfS+o5u4O4fkYRc8D1
MW5HSmWs7jNRl0z4UMpM1hGOrPN+IK5muRwhblyp3Czries7p8VyhbgxprCFu1cAYBxsIwAAAAAAXTZv
ydLVZFNZInEM3PNkqRwuX5XT5C+yTNxGwVTxVKXKxsEYfEDc2FJy/eaytsTGmhtXCvG3ow/XN4YXoRNX
35ReJK5vTG8bcbVMYZyBj3hyydfFjSu1L4obQ05131/x37xF4vpumieJe42p/FBcv03UtXm1mbhxpvID
cf3msLrUHVoLcTyb6z+X1HM2wrKriOtrFHHM9F/F9TVO/yeVsbrPSV0y4YMkM4mn8rhwCCYmbpCF4uqW
wwHixpXS88T1ndNbxY0thT+7+wQAxsU2AgAAAADQNfN6GxixUX25uC//5+JiGfeTHfYVN7ZUrhHXby7x
tCU3rlTiaVGuX8zOE8TVN6WUT13oiueIq2UK4wx8vE3cmFK7Ue4ibgw51X1//Uxcv030EXGvMZW3i+u3
ibo4r84TN9YUbpII4rh+6xZH8LoxpRTvh1uJ6z+X1HP2G+L6mYuni+trnLaUyjjdZ6YumfBBkunsIS4c
gr4HiqtdDvcUN6aUzpE4hs71n8M2EoEyN7YUJtx9AgDjYhsBAAAAAOiaeb1NGfelfypxpF1l8yCzuoNA
fxTXby6xqezGlcqHxfWL2YljHV19U7laUj51oSs+Ka6eKYwj8BFPcnqzuPHU4VBx48it7vvrXeL6baJf
iXuNqbTpqNMuzqsYkxtrKuM4vi6OWK7zyZcrvFtc/zmlnrOvEdfPXMRa5Rfi+huHS2VgnO4zU5dM+DCJ
E0fWXSIuHIK+g8TVL4dV5HJx40rpmeL6r9vqcrq4MaXybHefAMC42EYAAAAAALpoXr3HefxH7isDmwiZ
vF7cuFL5prh+c4mnxrhxpRJPxHL9YnbOEFffVMY9D5vqD+LqmULuwMc68gVxY6nDn2SxuLHkVvf99Vhx
/TZNzJE6Ax/xxJ42HXXaxXl1D3FjTeVfsom4vusQryeCwG4sKcUTTG8jbgw5pZ6zO4vrZ64eJK6/cThO
BsboPi91yYQPlDgcWTecE8XVL5cjxY0rpStlc3H91yWeIvUpceNJaSt3nwDAuNhGAAAAAAC6aN6Spe8T
9+V/Kn+XcRyrFZvwfxE3plTi6Smu7xziWMAbxI0rlU3F9Y3hxTyMAICrbyp1PHWh7TYWV8sUIkySK/AR
T8fYT+KpFG4sdYmnpLjx5Jbj/rqduL6b5lHiXl8qZ4nrt4m6PK9OEzfeVL4tq4rrO6V7Saw/3RhS203c
GHJKPWdjfbmGuL5SiICR6ze3A2RgfO7zUpdM+FDJVBxZN7yrJJ6s5OqYw87ixpXaL2VtcWNILer5UXHj
SOkyd48AwDjZRgAAAAAAumheL4TkvvxPKX7F/0QZ2EyoyerydXFjSenB4vrP4QHixpTKuI/la4vYAHX1
Tamupy602T7iapnC2eL6TGkteab8VtwY6hThWDemcaj7/or6un6b6B3iXmMqHxLXbxN1eV49QdyYU/qM
rCau/xSeLP8W13dqpcz71HP2x+L6SWULqTusP4x7ysD43OelLpnwwZLJOLJu9u4hrpY5xJOPfi1uXKn9
VNYXN45UIkz1VXH9p3asu0cAYJxsIwAAAAAAXTVvydIfiNsASO2rsp0MbCoktL3UfeRMuEjmixtDDq8W
N65UPi2uX8zOW8TVN5U4HrLOpy601QfE1TOFuja+by9Pl8/LNeL6rtupEkFSN75xqPv+Olxcv030I3Gv
MZU2HXXa5XkVT4mLp3O5cacUR+/eWdwYRrW55DzCM9aapbwfpp6zh4jrJ6W6w5crE/8dtU8Xc5+VumTC
h0sm48i62XuhuFrm8n/ixlWHi+WR4sYxV3vJn8X1W4f93T0CAONkGwEAAAAA6Kp5S5Y+WtwmQB3iWKd4
2lI8NSCeSjKwwTCiOKbkGFkurt/UloobRy4nihtXKs8T1y9m52Rx9U2l7qcutNUvxdUzhbkEPuJIytis
v5/sJW+Q4+UCcX3l9FeJI//cuMel7vvrqeL6bZoIY3DU6fC6Pq8eJm7cqV0v8YS4uQaedpSPyTJx/dTh
crmjuPGMQ+o5u4e4flK6jVwmrv8cThI3LvtZqUsmfMBkhbqOrPuXnDVGV4obVyrHiqtnLqvKb8WNrS6n
yKNlNXFjGtbqso+cKq6fOm3j7hEAGCfbCAAAAABAl81bsvQ74jYC6hRPozlF4lfdT5MHySYysOkwRfwz
8c/G000+KueL+/t1uVrWFze2HOKJC1eKG1sq24rrG8NbINeJq28qMQ/i6RtNc4C4muUQm6s3iatnCueJ
e81OPBkuXCX/FPf3ShDveXHMqavnuOS4v+J4Jdd30zxQ3OtLpU1HnTKveibEjb0up8nBEsH7CD5Nd7Rd
hEHvIREojSfzxfun+3t1itBgSUfGpp6z8YOEdcT1lVocwerGkMPrxY3Jfk7qkgkfNgl1HlkXTxxyfeby
ZnHjSiXq5vrN6eHixla3v0sEvV4gD5YNJY7Tc2MM68ku8iI5Tq4S93frFuOe7+4RABgn2wgAAAAAQJfN
W7L0bnKjuM2AcYhN/0slNlAjyHTxrW11P5ViGC+VgY2RjOJauXGlcoWM81i+toin8rj6YsnSv4irWQ67
ixsTvNhAL2lTf4W6769xztHUDhL3GlNp01GnzKuedSXG6l5DLvHUpAgyxRPtYiwRuHT/XE4Rkn28uJqN
S+o5+ytx/dQhgvt1PmFxJruIG5P9nNQlEz58Euo6si6e/DNT8CWHup5UNdmdxPWd01HixpbbjfJXuUh+
JxfI5XKDuH9+HI539wcAjJttBAAAAACg6+YtWfo6cZsB6PuZrCoDGyMZ7S9ubKl8RVy/mJ1XiKsvliw9
VlzNcoinhrgxYVAEC0oMOYW6769xztHU4rhY9xpTadNRp8yrvgjQ5DwOrnQRcnqKuFqNU+o5+xFx/dTl
weLGUaeY12uKG4/9jNQlEz4gU1cQaJlsJ67PnDYSN76Uniau75wWy7nixoeqF7n7AwDGzTYCAAAAANB1
83q/rK57Q7TJ/i6by8CmSGafETe+VGLTzPWL2TlBXH2xZOmLxNUshzgu040JVfFEvfuIq2EJ6r6/Xiiu
36aJ/67H0YjuNaaynbi+m4h5VbWfuNfRNRFyepa4Go1b6jkbxwK6fur0JXFjqUv8aMGN4xbuM1KXTAyG
Y24nl4oLg8zV28T1OQ4XixtjKkeK6ze3beRqcWNE393d/QEA42YbAQAAAADALWGn28qZ4jYGuiyOb3qA
DGyIjMGfxI0xlXiKg+sXw4uj/yIY5+qLJUvvLq5udVsocS+7MaEv/htQQqhzOjnurx3E9d00ca+515fK
P6QtR50yr7w4rte9lq6Ip//sLa4241bHnN1MXF91urP8R9x46vAuceO4hft81CUTg8GYz4gLgszVhbJI
XJ/j8CVx40wlnqTk+h2HneU6cePExMSVsoq7PwBg3GwjAAAAAADombdk6QbyK3GbA10UwYiHycBmyBjc
QdwYU4nXupq4vjG8bcTVF0uWXinxlBlXt7pFiM+NCX2Hyxri6leKuu+vf8q45mhqzxf3GlP5qrh+m6ju
eRVHQTZ1Xr1E3Gtqu8sljlZzNSlB6jl7kbh+cninuDHV4bHixnAL99moSyaqgZg9xQVBUniUTO1vnA4S
N86UNhDX9zg8TAg7eSe4ewMASmAbAQAAAABA37wlS9eWk8VtEHRJ/FL+/jKwETImTxI3zlS+L65fzM5z
xNUXS5Z+RVzNcniluDFhydLLZC9xdStN3ffXN8T120SfFfcaU3mVuH6biHk1szjS7Hpxr62NzpAtxNWi
FKnn7IS4fnKIJ8r+Tdy4UruduDHcwn0u6pKJfhAmjqy7TFwQZK6Ol8l9lWBXcWNN6XHi+h6Xe0tdxxI2
2UvcvQEAJbCNAAAAAACgal7vyT7vlZvFbRS03elS2ibXR8SNNZW3iusXs/NJcfXFkqWvEFezHCJk5cbU
ZfH+frTMuPFbmLrvr9eI67eJLhb3GlMpKQg8V8yrldtJ4qk/7vW1yfskjjp1NShJ6jn7PHH95JIjJH6O
uL7/y30m6pKJfgimriPr/iWbyeS+SrC2uPGmdKi4vsdpE/mxuPE2Vbyet05pm417uXsDAEpgGwEAAAAA
QNWkL/0fKn8St2HQRjfJwVLiEW51Hym4m7h+MTt/EFdfLFm6RFzN6jZfrhA3pq76qYzresxF3ffXzuL6
bZrNxb2+VOLpPk0IgwyLeTWcdeXz4l5j050vTbpOqefsduL6yWVVqXude4S4vv/LfSbqkole+KXOI+te
KpODNiU5X9yYUzldXL/jtkBeJ/8RN+4meZ8slLtNapuNq2VVd28AQAlsIwAAAAAAqJryxf9tJMI/14nb
OGiLU6XUjf91pM6na0XAa7G4vjG8jcXVF0uWXisLxNWtbtuKG1MXnSmPEVen0tV9f/1H1hDXd9M8Wdxr
TOUH4vptIubV7O0tl4h7vU3zb3mtNOkapZ6z/5AIBLu+cnqYuPGlsp+4fv/LfSbqkol6j6w7SyJUMzVo
U4q6nmK1wnJZLK7vEmwjPxM39tJdLLvJitcyX/4m7p+dyYnuvgCAUthGAAAAAABQ5b78l03loxJPcnAb
CE0Vx/vE5kcJmzzTeZS4sadyhrh+MTtPFFdfLFn6bXE1yyGO5HFj6pKTZXcp+X1uZeq+v34irt8miv9W
u9eYytvE9dtEzKvRrAjBR4jVve7SRQDtMInQkHt9JUs9Z+NoV9fPOJwgbowp3Elcn//lPhN1yUR9YZ+b
5X6yIohSonjalBt7SruK67sUERB6slwobvylWSbvltvI1NdyrLh/ZyavcPcFAJTCNgIAAAAAgCr35f8k
G8ib5FJxGwlNEeGeeOrFuJ4yMxvvEPcaUnm/uH4xOx8UV18sWfp6cTXL4dPixtR28R59qMQTrVxdmqbu
++sQcf020a/FvcZUIjTn+m0i5tXc3F4i8NSU40GvlFhTbSLu9TRB6jn7SnH9jMNWskzcOOfiL+L6q3Cf
ibpiot4j646QqUGU0jxQ3NhTerO4vksTx78dIKUGniLgdLhsLm78YX9x/+5M7uvuDQAohW0EAAAAAABV
7st/Y1WJzc7PSlN+0f83iQ2i+4l7TaX6kbjXk0ocQ+P6xezEsWCuvliy9CHiapbDH8WNqY3Ol3hKSRwB
FO/Rrh5NVff99Whx/TbNulL3Uadri+u7iZhXaSyS58tp4uowTjFnvy9PlRinG3+TpJ6zpa2J3y1unHNx
rLi+Ktxnoi6YqPfIustlXZkaRCnNWnKTuNeQysni+i7VKhIBuBh3PJXLvaacrpBDZaaA0wp3Efc3pnOt
LHD3BwCUwjYCAAAAAIAq9+X/Sqwuu0k8Geh34jYZxiE2e38h75SmbvzHE6fqPi5wI3F9Y3hrSWymuvp2
3Q2yhri61S3mthtT00VNz5UTJZ5Oso808QimYdV9f8V/K9YT13fTRADZvcZUzhLXbxMxr+qxpRwksf4a
138X/y3x/ri/bChunE2Ues5eJwvF9TUu68jfxY13VC8U11eF+0zUBRMTE++YFPhIbT+ZGkIp1a/EvYZU
/i2riuu7dJvIy+VUyRl6ipp9RZ4g8aQpN7bp/EXc33ROcvcGAJTENgIAAAAAgCr35f8s3U72kDjO5ASJ
p4zUvdm1XC6QL8jr5FHSlg3Gt0hsLtfhm+L6xOzFUwhcjbtuQly9cjlCYhy/l4tm6U/yzxFEEMm9T4X4
v03+Z+MopejrtxLBgFPka/I5iSfQxbF/sVn/BHmANPnIpbmo8/6K/065PpsonljzDXGvM4VxHkNZB+ZV
veLpX/FUq/fIDyXe79z74lz9Qb4kr5YHSgTw3XjaIOWcPUZcH+P2DHHjHdX24vqpcJ+JumBiYmJHOasG
n5P5MjWAUqqDxb2OVN4ort+mWU/iSU8flDPkOnHhoVH8S34k75VHyOrixjCM+J/rwznI3RsAUBLbCAAA
AAAAqtyX/wnEE122lUfKs+WN8gH5tMSv7mNz/6cydXPidIn/W4hNw6MkNnleI8+UeFLTnWU1cf0CAACg
DPH0uUfIs+S18mGJkPp3JdZ6se6bvA6Mo9qi/SvyKYmndL5MHi87ymJx/QCz4j4TdcmED4sAKxNPqYqj
4vaSA+UQ+ZR8S06R02RF2OsXt7adJBGEe6ccII+Tu0ocl+f6GMXeMjloNpOd3D0BACWxjQAAAAAAAAAA
AAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAA
AAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAA
ACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQD+fztySAAADANBbP5NdwZewIGAkAAA
AAAAAAAAUDITAAAAAAAAAACgZCYAAAAAAAAAAEDJTAAAAAAAAAAAgJKZAAAAAAAAAAAAJTMBAAAAAAAA
AABKZgIAAAAAAAAAAJTMBAAAAAAAAAAAKJkJAAAAAAAAAABQMhMAAAAAAAAAAKBkJgAAAAAAAAAAQMe9
D/nIDJsB8H0BAAAAAElFTkSuQmCCCw==
</value>
</data>
<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>

154
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb Normal file
View File

@@ -0,0 +1,154 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptKontrolleLKW_NCTSTR
Public datVon As Date
Public datBis As Date
Public FIRMA As String = "ATILLA"
Dim operatorID = "1"
Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = Nothing
'Public brg As String = "05DE0000000009345," 'default brg
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
End Sub
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
End Sub
'''''''' ADD AT RUNTIME:
'Dim d As New GrapeCity.ActiveReports.SectionReportModel.TextBox
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "T-Kontrolle Dakosy "
'lblHeader.Text = Me.Name
'Format + R<>nder setzen
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
Me.PageSettings.Margins.Left = 0.3
Me.PageSettings.Margins.Right = 0.3
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim firmaStr = ""
If FIRMA = "MAVI" Then
firmaStr = " AND [ncts_Partnersystem] IN('MAVI') "
ElseIf FIRMA = "ATEZ" Then
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
sqlStr &= " WHERE cast (ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast(ncts_Eroeffnung as date),ncts_Befoerderungsmittel_KennzeichenAbgang"
sqlStr &= " order by cast(ncts_Eroeffnung as date)"
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast(ncts_Eroeffnung as date) as AnmeldungsDatum FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
sqlStrSUB &= " WHERE cast(ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast(ncts_Eroeffnung as date),ncts_ObjectName"
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000)
lblText1.Text = lblText1.Text & " - " & FIRMA
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "" '"B<>rgschaft: " & brg
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Dim nr As Integer = 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)
lblLKW.Text = CStr(Fields.Item("Kennzeichen").Value)
lblNr.Text = anzLkw & "."
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
If SUB_DATA IsNot Nothing Then
Dim subrpt As New subrptKontrolleLKW_Dakosy
subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()
'For Each c As DataColumn In dt.Columns
'c.AllowDBNull = True
'Next
For Each r In SUB_DATA.Rows
If r("AnmeldungsDatum") = subrpt.AnmeldungsDatum And r("Kennzeichen") = subrpt.Kennzeichen Then
' dt.Rows.Add(r)
dt.ImportRow(r)
End If
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
AddHandler Me.SubReport.Report.ReportEnd, Sub()
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW_Dakosy).AnzT
End Sub
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Drawing.Color.White
Else
Detail.BackColor = Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

1
SDL/Reports/Zoll/rptKontrolleLKW_Zolaris.vb
View File

@@ -51,6 +51,7 @@ Public Class rptKontrolleLKW_Zolaris
'If FIRMA = "DURMAZ" Then mandant = "SUW"
If FIRMA = "ATILLA" Then operatorID = "'5','6'"
If FIRMA = "DURMAZ" Then operatorID = "'8'"
Dim sqlStr As String = " SELECT DepIdnt, vw.AnmeldungsDatum,COUNT(*) ,SUM(GarantieWert) as GarantieWert FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Daten<65>bernahme as vw"
sqlStr &= " inner join [ezoll].[dbo].[zsAnmTransp] on [zsAnmTransp].AnmID=vw.AnmID and vw.OperatorID=[zsAnmTransp].OperatorID"

88
SDL/Reports/Zoll/rptTGestellungskontrolle.Designer.vb generated
View File

@@ -19,6 +19,7 @@ Partial Public Class rptTGestellungskontrolle
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptTGestellungskontrolle))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatus = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffenerSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -27,10 +28,10 @@ Partial Public Class rptTGestellungskontrolle
Me.lblArbeitsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnnahme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestellung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
@@ -38,7 +39,6 @@ Partial Public Class rptTGestellungskontrolle
Me.lblEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
@@ -58,6 +58,7 @@ Partial Public Class rptTGestellungskontrolle
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzAbf = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -66,8 +67,8 @@ Partial Public Class rptTGestellungskontrolle
CType(Me.lblArbeitsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -75,7 +76,6 @@ Partial Public Class rptTGestellungskontrolle
CType(Me.lblEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -99,6 +99,17 @@ Partial Public Class rptTGestellungskontrolle
Me.PageHeader.Height = 0.186554!
Me.PageHeader.Name = "PageHeader"
'
'Label2
'
Me.Label2.Height = 0.1480315!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.423622!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold"
Me.Label2.Text = "MRN"
Me.Label2.Top = 0.03110239!
Me.Label2.Width = 1.212598!
'
'Label11
'
Me.Label11.Height = 0.1480315!
@@ -114,7 +125,7 @@ Partial Public Class rptTGestellungskontrolle
'
Me.lblStatus.Height = 0.1478346!
Me.lblStatus.HyperLink = Nothing
Me.lblStatus.Left = 0.0!
Me.lblStatus.Left = 0!
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Style = "font-size: 8pt; font-weight: bold"
Me.lblStatus.Text = "St."
@@ -183,21 +194,10 @@ Partial Public Class rptTGestellungskontrolle
Me.lblGestellung.Left = 3.288189!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Gestellung"
Me.lblGestellung.Text = "Gest.Frist"
Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.6125984!
'
'Label2
'
Me.Label2.Height = 0.1480315!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.423622!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold"
Me.Label2.Text = "MRN"
Me.Label2.Top = 0.03110239!
Me.Label2.Width = 1.212598!
'
'Label9
'
Me.Label9.Height = 0.1478346!
@@ -212,12 +212,12 @@ Partial Public Class rptTGestellungskontrolle
'Line1
'
Me.Line1.Height = 0.00008200109!
Me.Line1.Left = 0.0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276!
Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0.0!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096!
@@ -228,11 +228,22 @@ Partial Public Class rptTGestellungskontrolle
Me.Detail.Height = 0.1411417!
Me.Detail.Name = "Detail"
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.423621!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = -2.220446E-16!
Me.lblMRNValue.Width = 1.212598!
'
'lblStatValue
'
Me.lblStatValue.Height = 0.1374016!
Me.lblStatValue.HyperLink = Nothing
Me.lblStatValue.Left = 0.0!
Me.lblStatValue.Left = 0!
Me.lblStatValue.Name = "lblStatValue"
Me.lblStatValue.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.lblStatValue.Text = "00"
@@ -258,7 +269,7 @@ Partial Public Class rptTGestellungskontrolle
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Top = 0!
Me.lblSiBetragValue.Width = 0.8011808!
'
'lblBezugsnrValue
@@ -280,7 +291,7 @@ Partial Public Class rptTGestellungskontrolle
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Style = "font-size: 8pt; font-weight: normal"
Me.lblEmpfaenger.Text = "Empf<EFBFBD>nger"
Me.lblEmpfaenger.Top = 0.0!
Me.lblEmpfaenger.Top = 0!
Me.lblEmpfaenger.Width = 1.198425!
'
'lblAnDatValue
@@ -305,17 +316,6 @@ Partial Public Class rptTGestellungskontrolle
Me.lblGestDatValue.Top = 2.793968E-9!
Me.lblGestDatValue.Width = 0.6275587!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.423621!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = -2.220446E-16!
Me.lblMRNValue.Width = 1.212598!
'
'Label10
'
Me.Label10.Height = 0.1374016!
@@ -379,12 +379,12 @@ Partial Public Class rptTGestellungskontrolle
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0.0!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864!
@@ -403,14 +403,14 @@ Partial Public Class rptTGestellungskontrolle
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.0!
Me.lblText1.Left = 0!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS Gestellungskontrolle"
@@ -449,7 +449,7 @@ Partial Public Class rptTGestellungskontrolle
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe Abfertigungen:"
@@ -460,7 +460,7 @@ Partial Public Class rptTGestellungskontrolle
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0!
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Positionen:"
@@ -485,7 +485,7 @@ Partial Public Class rptTGestellungskontrolle
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.617717!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" & _
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.1704725!
@@ -526,12 +526,13 @@ Partial Public Class rptTGestellungskontrolle
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
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" & _
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.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
@@ -540,8 +541,8 @@ Partial Public Class rptTGestellungskontrolle
CType(Me.lblArbeitsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
@@ -549,7 +550,6 @@ Partial Public Class rptTGestellungskontrolle
CType(Me.lblEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()

30
SDL/Reports/Zoll/rptTGestellungskontrolleDY.Designer.vb generated
View File

@@ -125,7 +125,7 @@ Partial Public Class rptTGestellungskontrolleDY
'
Me.lblStatus.Height = 0.1478346!
Me.lblStatus.HyperLink = Nothing
Me.lblStatus.Left = 0.0!
Me.lblStatus.Left = 0!
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Style = "font-size: 8pt; font-weight: bold"
Me.lblStatus.Text = "St."
@@ -195,7 +195,7 @@ Partial Public Class rptTGestellungskontrolleDY
Me.lblGestellung.Left = 3.266143!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Gestellung"
Me.lblGestellung.Text = "Gest.Frist"
Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.6125984!
'
@@ -213,12 +213,12 @@ Partial Public Class rptTGestellungskontrolleDY
'Line1
'
Me.Line1.Height = 0.00008200109!
Me.Line1.Left = 0.0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276!
Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0.0!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096!
@@ -244,7 +244,7 @@ Partial Public Class rptTGestellungskontrolleDY
'
Me.lblStatValue.Height = 0.1374016!
Me.lblStatValue.HyperLink = Nothing
Me.lblStatValue.Left = 0.0!
Me.lblStatValue.Left = 0!
Me.lblStatValue.Name = "lblStatValue"
Me.lblStatValue.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.lblStatValue.Text = "00"
@@ -270,7 +270,7 @@ Partial Public Class rptTGestellungskontrolleDY
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Top = 0!
Me.lblSiBetragValue.Width = 0.8011808!
'
'lblBezugsnrValue
@@ -381,12 +381,12 @@ Partial Public Class rptTGestellungskontrolleDY
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0.0!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864!
@@ -405,14 +405,14 @@ Partial Public Class rptTGestellungskontrolleDY
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.0!
Me.lblText1.Left = 0!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS Gestellungskontrolle"
@@ -451,7 +451,7 @@ Partial Public Class rptTGestellungskontrolleDY
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe Abfertigungen:"
@@ -462,7 +462,7 @@ Partial Public Class rptTGestellungskontrolleDY
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0!
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Positionen:"
@@ -487,7 +487,7 @@ Partial Public Class rptTGestellungskontrolleDY
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.617717!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" & _
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.1704725!
@@ -528,10 +528,10 @@ Partial Public Class rptTGestellungskontrolleDY
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
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" & _
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.Label2, System.ComponentModel.ISupportInitialize).EndInit()

165
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR.Designer.vb generated Normal file
View File

@@ -0,0 +1,165 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptKontrolleLKW_NCTSTR
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 PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptKontrolleLKW_NCTSTR))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0.0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblGestDatValue, Me.lblMRNValue, Me.lblBuergschaft})
Me.Detail.Height = 0.1405511!
Me.Detail.Name = "Detail"
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.479134!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 0.0!
Me.lblSBValue.Width = 0.76811!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 5.30315!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Width = 0.7972445!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.0!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.281496!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.001377882!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 2.880315!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.0003937008!
Me.lblGestDatValue.Width = 0.5988189!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.041339!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.002559008!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.208268!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0!
Me.lblBuergschaft.Width = 1.16811!
'
'PageFooter
'
Me.PageFooter.Height = 0.0!
Me.PageFooter.Name = "PageFooter"
'
'subrptDurmazKontrolleLKW
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

126
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR.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>

74
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW_NCTSTR
Public Kennzeichen As String
' Public OperatorId As Integer
Public AnmeldungsDatum As Date
Public AnzT = 0
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
End Sub
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
' MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
End Sub
'''''''' ADD AT RUNTIME:
'Dim d As New GrapeCity.ActiveReports.SectionReportModel.TextBox
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'Format + R<>nder setzen
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
Me.PageSettings.Margins.Left = 0.3
Me.PageSettings.Margins.Right = 0.3
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
lblBezugsnrValue.Text = nullStr(Fields.Item("ncts_ObjectName").Value)
'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value)
lblMRNValue.Text = nullStr(Fields.Item("ncts_MRN").Value)
'.Text = nullStr(Fields.Item("Pos").Value)
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value)
lblGestDatValue.Text = nullDat(Fields.Item("ncts_GestelltAm").Value)
lblSBValue.Text = nullStr(Fields.Item("ncts_Bearbeiter").Value)
lblBuergschaft.Text = nullStr(Fields.Item("nctsSA_GRN").Value)
If Not Fields.Item("nctsSA_AbgabenBetrag").Value Is DBNull.Value Then
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("nctsSA_AbgabenBetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
End If
AnzT += 1
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
' Detail.BackColor = Drawing.Color.White
Else
' Detail.BackColor = Drawing.Color.WhiteSmoke
End If
End Sub
Function nullStr(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CStr(o)
Catch ex As Exception
Return ""
End Try
End Function
Function nullDat(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CDate(o).ToShortDateString
Catch ex As Exception
Return ""
End Try
End Function
End Class

14
SDL/Reports/frmPrintLayout.vb
View File

@@ -156,6 +156,17 @@ Public Class frmPrintLayout
Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
End Sub
Public Sub AuswertungKontrolleLKW_NCTSTR(datvon, datbis, FIRMA)
Me.Text = "Auswertung LKWs"
Dim report As rptKontrolleLKW_NCTSTR = New rptKontrolleLKW_NCTSTR
report.datVon = datvon
report.datBis = datbis
report.FIRMA = FIRMA
report.erstelltVon = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Viewer.LoadDocument(report)
Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
End Sub
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
Try
@@ -163,8 +174,7 @@ Public Class frmPrintLayout
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Sub
Private Sub exportMenu_Click(sender As Object, e As EventArgs) Handles exportMenu.Click
Exportieren(Viewer.Document, "Auswertung offene Anträge mit Vorauszahlung")

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_HUGO_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/Abholbereit_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/IDS/Abholbereit_IDS_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/MSE/Abholbereit_MSE_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_DE.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_RO.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_TR.dotx
View File

Binary file not shown.

BIN
SDL/Resources/MDM_Schreiben/Abholbereit/UTA/Abholbereit_UTA_YU.dotx
View File

Binary file not shown.

BIN
SDL/Resources/flagge_tr.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 25 KiB

BIN
SDL/Resources/oregon.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.4 KiB

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 54 KiB

110
SDL/SDL.vbproj
View File

@@ -119,6 +119,90 @@
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="IKVM.AWT.WinForms, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.AWT.WinForms.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Beans, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Beans.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Charsets, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Charsets.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Cldrdata, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Cldrdata.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Corba, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Corba.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Core, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Core.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Jdbc, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Jdbc.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Localedata, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Localedata.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Management, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Management.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Media, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Media.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Misc, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Misc.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Naming, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Naming.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Nashorn, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Nashorn.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Remoting, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Remoting.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Security, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Security.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.SwingAWT, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.SwingAWT.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Text, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Text.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Tools, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Tools.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.Util, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.Util.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.API, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.API.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.Bind, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.Bind.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.Crypto, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.Crypto.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.Parse, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.Parse.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.Transform, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.Transform.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.WebServices, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.WebServices.dll</HintPath>
</Reference>
<Reference Include="IKVM.OpenJDK.XML.XPath, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.OpenJDK.XML.XPath.dll</HintPath>
</Reference>
<Reference Include="IKVM.Runtime, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.Runtime.dll</HintPath>
</Reference>
<Reference Include="IKVM.Runtime.JNI, Version=8.0.5449.1, Culture=neutral, PublicKeyToken=13235d27fcbfff58, processorArchitecture=MSIL">
<HintPath>..\packages\IKVM.8.0.5449.1\lib\IKVM.Runtime.JNI.dll</HintPath>
</Reference>
<Reference Include="itextsharp">
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
</Reference>
@@ -210,6 +294,9 @@
<HintPath>..\..\..\AVISO\Aviso\packages\WpfAnimatedGif.1.4.14\lib\net\WpfAnimatedGif.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="ZUGFeRD.NET, Version=1.0.0.0, Culture=neutral, PublicKeyToken=807dc6d06b184af9, processorArchitecture=MSIL">
<HintPath>..\packages\ZUGFeRD.NET.1.0.1\lib\ZUGFeRD.NET.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="ClosedXML.Excel" />
@@ -366,6 +453,18 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.Designer.vb">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</Compile>
<Compile Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.Designer.vb">
<DependentUpon>subrptKontrolleLKW_NCTSTR.vb</DependentUpon>
</Compile>
<Compile Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\AES\usrCntlATLAS_AES.Designer.vb">
<DependentUpon>usrCntlATLAS_AES.vb</DependentUpon>
</Compile>
@@ -2385,6 +2484,12 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.resx">
<DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_NCTSTR.resx">
<DependentUpon>rptKontrolleLKW_NCTSTR.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\Zoll\subrptKontrolleLKW_NCTSTR.resx">
<DependentUpon>subrptKontrolleLKW_NCTSTR.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\AES\usrCntlATLAS_AES.resx">
<DependentUpon>usrCntlATLAS_AES.vb</DependentUpon>
</EmbeddedResource>
@@ -3743,6 +3848,8 @@
<ItemGroup>
<Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.png" />
<None Include="Resources\unisped_aeo_AT.jpg" />
<None Include="Resources\oregon.png" />
<None Include="Resources\Telefonliste_small.png" />
<None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
<None Include="Resources\person_add.jpg" />
@@ -3872,6 +3979,7 @@
<None Include="Resources\FrontOfficeSUB.jpg" />
<None Include="Resources\android-add-contact1.png" />
<None Include="Resources\aviso_messenger.png" />
<None Include="Resources\flagge_tr.png" />
<Content Include="Resources\GS\gsdll32.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
@@ -4005,7 +4113,7 @@
<Name>Gemeinsames</Name>
<EmbedInteropTypes>False</EmbedInteropTypes>
</ProjectReference>
<ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit.vbproj">
<ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj">
<Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
<Name>Parkzeit</Name>
</ProjectReference>

35
SDL/SMS/frmSendSMS.vb
View File

@@ -7,6 +7,8 @@ Public Class frmSendSMS
Public FahrerName As String
Public AvisoId As Integer
Public Kennzeichen As String = ""
Public SMS As VERAG_PROG_ALLGEMEIN.cSMS = Nothing
Sub New()
@@ -213,64 +215,71 @@ Public Class frmSendSMS
End Sub
Sub fillTXT(s)
Sub fillTXT(s, Optional lkwTxt = "LKW/TIR: ")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
Else
txtNachricht.Text = s
End If
If Kennzeichen <> "" Then
txtNachricht.Text &= vbNewLine & lkwTxt & Kennzeichen
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
txtNachricht.Text &= vbNewLine & "VERAG | UNISPED | IMEX"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
fillTXT("Bitte zu VERAG kommen!")
fillTXT("Bitte zu VERAG kommen!", "LKW: ")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
fillTXT("Bitte zu VERAG kommen und den Pass mitnehmen!")
fillTXT("Bitte zu VERAG kommen und den Pass mitnehmen!", "LKW: ")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
fillTXT("Bitte zu VERAG kommen und den Stempel mitnehmen!")
fillTXT("Bitte zu VERAG kommen und den Stempel mitnehmen!", "LKW: ")
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
fillTXT("Bitte zu VERAG kommen und Bargeld mitnehmen: € ")
fillTXT("Bitte zu VERAG kommen und Bargeld mitnehmen: € ", "LKW: ")
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
fillTXT("VERAG ofise geliniz.")
fillTXT("VERAG ofise geliniz.", "TIR: ")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
fillTXT("Pasaportu ile birlikte VERAG ofise geliniz.")
fillTXT("Pasaportu ile birlikte VERAG ofise geliniz.", "TIR: ")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
fillTXT("Firmakasesi ile birlikte VERAG ofise geliniz.")
fillTXT("Firmakasesi ile birlikte VERAG ofise geliniz.", "TIR: ")
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
fillTXT("VERAG ofise, nakit para ile geliniz: € ")
fillTXT("VERAG ofise, nakit para ile geliniz: € ", "TIR: ")
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
fillTXT("Molim Vas dođite u VERAG!")
fillTXT("Molim Vas dođite u VERAG!", "TRUCK: ")
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
fillTXT("Molim Vas dođite u VERAG i ponesite pasos!")
fillTXT("Molim Vas dođite u VERAG i ponesite pasos!", "TRUCK: ")
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
fillTXT("Molim Vas dođite u VERAG i ponesite pečat!")
fillTXT("Molim Vas dođite u VERAG i ponesite pečat!", "TRUCK: ")
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
fillTXT("Molim Vas dođite u VERAG i za platit imate: € ")
fillTXT("Molim Vas dođite u VERAG i za platit imate: € ", "TRUCK: ")
End Sub
Private Sub txtHandyNummer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtHandyNummer.KeyDown

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

@@ -212,6 +212,8 @@ Partial Class frmNacherfassungNEU
Me.Label51 = New System.Windows.Forms.Label()
Me.Label58 = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Label63 = New System.Windows.Forms.Label()
Me.cboGrenze = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtHandlingZuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label60 = New System.Windows.Forms.Label()
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -224,8 +226,8 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label63 = New System.Windows.Forms.Label()
Me.cboGrenze = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAbklärungFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label64 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
@@ -1906,6 +1908,8 @@ Partial Class frmNacherfassungNEU
Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.Label64)
Me.Panel2.Controls.Add(Me.cboAbklärungFiliale)
Me.Panel2.Controls.Add(Me.lblSachbearbeiterIch)
Me.Panel2.Controls.Add(Me.Label52)
Me.Panel2.Controls.Add(Me.Button1)
@@ -2008,7 +2012,7 @@ Partial Class frmNacherfassungNEU
Me.cboQuickStopMa.FormattingEnabled = True
Me.cboQuickStopMa.Location = New System.Drawing.Point(7, 19)
Me.cboQuickStopMa.Name = "cboQuickStopMa"
Me.cboQuickStopMa.Size = New System.Drawing.Size(305, 24)
Me.cboQuickStopMa.Size = New System.Drawing.Size(242, 24)
Me.cboQuickStopMa.TabIndex = 1
'
'lblErrPruefAnzahl
@@ -2069,6 +2073,7 @@ Partial Class frmNacherfassungNEU
Me.txtAvisierer.searchActive = True
Me.txtAvisierer.Size = New System.Drawing.Size(265, 20)
Me.txtAvisierer.TabIndex = 12
Me.txtAvisierer.TIMER_SEARCH = True
Me.txtAvisierer.usrcntl = Nothing
'
'btnAvisiererSrch
@@ -2141,6 +2146,7 @@ Partial Class frmNacherfassungNEU
Me.txtEUFiskalEmpf.searchActive = True
Me.txtEUFiskalEmpf.Size = New System.Drawing.Size(21, 20)
Me.txtEUFiskalEmpf.TabIndex = 70
Me.txtEUFiskalEmpf.TIMER_SEARCH = True
Me.txtEUFiskalEmpf.usrcntl = Nothing
Me.txtEUFiskalEmpf.Visible = False
'
@@ -2169,6 +2175,7 @@ Partial Class frmNacherfassungNEU
Me.txtEndEmpf.searchActive = True
Me.txtEndEmpf.Size = New System.Drawing.Size(265, 20)
Me.txtEndEmpf.TabIndex = 40
Me.txtEndEmpf.TIMER_SEARCH = True
Me.txtEndEmpf.usrcntl = Nothing
'
'txtFraechter
@@ -2196,6 +2203,7 @@ Partial Class frmNacherfassungNEU
Me.txtFraechter.searchActive = True
Me.txtFraechter.Size = New System.Drawing.Size(265, 20)
Me.txtFraechter.TabIndex = 17
Me.txtFraechter.TIMER_SEARCH = True
Me.txtFraechter.usrcntl = Nothing
'
'txtAuftraggeber
@@ -2223,6 +2231,7 @@ Partial Class frmNacherfassungNEU
Me.txtAuftraggeber.searchActive = True
Me.txtAuftraggeber.Size = New System.Drawing.Size(265, 20)
Me.txtAuftraggeber.TabIndex = 23
Me.txtAuftraggeber.TIMER_SEARCH = True
Me.txtAuftraggeber.usrcntl = Nothing
'
'txtEmpfaenger
@@ -2250,6 +2259,7 @@ Partial Class frmNacherfassungNEU
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(265, 20)
Me.txtEmpfaenger.TabIndex = 34
Me.txtEmpfaenger.TIMER_SEARCH = True
Me.txtEmpfaenger.usrcntl = Nothing
'
'txtAbsender
@@ -2277,6 +2287,7 @@ Partial Class frmNacherfassungNEU
Me.txtAbsender.searchActive = True
Me.txtAbsender.Size = New System.Drawing.Size(265, 20)
Me.txtAbsender.TabIndex = 29
Me.txtAbsender.TIMER_SEARCH = True
Me.txtAbsender.usrcntl = Nothing
'
'txtZucker_Aufschub
@@ -3040,6 +3051,28 @@ Partial Class frmNacherfassungNEU
Me.Panel4.Size = New System.Drawing.Size(665, 52)
Me.Panel4.TabIndex = 49
'
'Label63
'
Me.Label63.AutoSize = True
Me.Label63.Location = New System.Drawing.Point(604, 5)
Me.Label63.Name = "Label63"
Me.Label63.Size = New System.Drawing.Size(44, 13)
Me.Label63.TabIndex = 10
Me.Label63.Text = "Grenze:"
'
'cboGrenze
'
Me.cboGrenze._allowedValuesFreiText = Nothing
Me.cboGrenze._allowFreiText = False
Me.cboGrenze._value = ""
Me.cboGrenze.DropDownWidth = 280
Me.cboGrenze.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
Me.cboGrenze.FormattingEnabled = True
Me.cboGrenze.Location = New System.Drawing.Point(607, 21)
Me.cboGrenze.Name = "cboGrenze"
Me.cboGrenze.Size = New System.Drawing.Size(52, 22)
Me.cboGrenze.TabIndex = 11
'
'txtHandlingZuKassieren
'
Me.txtHandlingZuKassieren._DateTimeOnly = False
@@ -3177,27 +3210,28 @@ Partial Class frmNacherfassungNEU
Me.DataGridViewTextBoxColumn5.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
'
'Label63
'cboAbklärungFiliale
'
Me.Label63.AutoSize = True
Me.Label63.Location = New System.Drawing.Point(604, 5)
Me.Label63.Name = "Label63"
Me.Label63.Size = New System.Drawing.Size(44, 13)
Me.Label63.TabIndex = 10
Me.Label63.Text = "Grenze:"
Me.cboAbklärungFiliale._allowedValuesFreiText = Nothing
Me.cboAbklärungFiliale._allowFreiText = False
Me.cboAbklärungFiliale._value = ""
Me.cboAbklärungFiliale.DropDownWidth = 280
Me.cboAbklärungFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!)
Me.cboAbklärungFiliale.FormattingEnabled = True
Me.cboAbklärungFiliale.Location = New System.Drawing.Point(248, 19)
Me.cboAbklärungFiliale.Name = "cboAbklärungFiliale"
Me.cboAbklärungFiliale.Size = New System.Drawing.Size(63, 24)
Me.cboAbklärungFiliale.TabIndex = 12
'
'cboGrenze
'Label64
'
Me.cboGrenze._allowedValuesFreiText = Nothing
Me.cboGrenze._allowFreiText = False
Me.cboGrenze._value = ""
Me.cboGrenze.DropDownWidth = 280
Me.cboGrenze.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!)
Me.cboGrenze.FormattingEnabled = True
Me.cboGrenze.Location = New System.Drawing.Point(607, 21)
Me.cboGrenze.Name = "cboGrenze"
Me.cboGrenze.Size = New System.Drawing.Size(52, 22)
Me.cboGrenze.TabIndex = 11
Me.Label64.AutoSize = True
Me.Label64.ForeColor = System.Drawing.Color.Black
Me.Label64.Location = New System.Drawing.Point(245, 3)
Me.Label64.Name = "Label64"
Me.Label64.Size = New System.Drawing.Size(36, 13)
Me.Label64.TabIndex = 13
Me.Label64.Text = "Filiale:"
'
'frmNacherfassungNEU
'
@@ -3432,4 +3466,6 @@ Partial Class frmNacherfassungNEU
Friend WithEvents txtCMRNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label63 As Label
Public WithEvents cboGrenze As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label64 As Label
Public WithEvents cboAbklärungFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

3
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -299,6 +299,7 @@ Public Class frmNacherfassungNEU
txtCMRNr.Text = If(SPEDITIONSBUCH.SB_CMRNr, "")
cboFilialeHandling.changeItem(If(SPEDITIONSBUCH.FilialenNrHandling, ""))
cboAbklärungFiliale.changeItem(If(SPEDITIONSBUCH.FilialenNrAbklaerung, ""))
txtHandlingZuKassieren._value = SPEDITIONSBUCH.HandlingZuKassieren
cboGrenze.changeItem(If(SPEDITIONSBUCH.Grenzstelle, ""))
@@ -565,6 +566,7 @@ Public Class frmNacherfassungNEU
cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboFilialeHandling.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
cboAbklärungFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
Dim where = ""
@@ -955,6 +957,7 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.FilialenNrHandling = cProgramFunctions.isLeerNothing(cboFilialeHandling._value)
SPEDITIONSBUCH.FilialenNrAbklaerung = cProgramFunctions.isLeerNothing(cboAbklärungFiliale._value)
SPEDITIONSBUCH.HandlingZuKassieren = If(IsNumeric(txtHandlingZuKassieren._value), CDbl(txtHandlingZuKassieren._value), 0)
SPEDITIONSBUCH.Grenzstelle = cProgramFunctions.isLeerNothing(cboGrenze._value)

81
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -426,15 +426,33 @@ Public Class usrCntlATLAS_EZA
Try
Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(SENDUNG.VORSYSTEM_Id))
If SH IsNot Nothing Then
Dim ABFERTIGUNGSART = 1 'DEFAULT Fiskal?
EZA.eza_GesamtRohmasse = SH.EZA.TotGrossWeight
If If(SH.EZA.Incoterm, "") <> "" Then EZA.eza_LieferbedingungCode = SH.EZA.Incoterm
If If(SH.EZA.Incoterm, "") <> "" Then
EZA.eza_LieferbedingungCode = SH.EZA.Incoterm
End If
'EZA.pack= SH.EZA.TotPackage
'EZA.eza_Rechnungspreis = SH.EZA.TotGrossWeight
'EZA.eza_Rechnungswaehrung = SENDUNG.tblSnd_WarenwertWaehrung
' If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_BeförderungsmittelGrenzeArt = SH.EZA.TransportModeBorder
' If If(SH.EZA.TransportModeBorder, "") <> "" Then EZA.eza_BeförderungsmittelGrenzeArt = SH.EZA.TransportModeBorder
'If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.bef = SH.EZA.TransportBorderType
If If(SH.EZA.PrePaperCode, "") <> "" Then EZA.eza_VorpapierArtCode = SH.EZA.PrePaperCode
If If(SH.EZA.PrePaperNr, "") <> "" Then EZA.eza_VorpapierNr = SH.EZA.PrePaperNr
If If(SH.EZA.CountryCodeDeparture, "") <> "" Then EZA.eza_VersendungsLandCode = SH.EZA.CountryCodeDeparture
If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.eza_VerkehrszweigInland = SH.EZA.TransportBorderType
If If(SH.EZA.TransportBorderType, "") <> "" Then EZA.eza_VerkehrszweigGrenze = SH.EZA.TransportBorderType
'If If(AD.ezaAd_LandCode, "") = "DE" And AD.ezaAd_PLZ IsNot Nothing Then
' EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(AD.ezaAd_PLZ)
'ElseIf If(AD.ezaAd_LandCode, "") <> "" Then
' EZA.eza_Bestimmungsbundesland = 25
'End If
Dim InvoiceSum As Double = 0.0
Dim InvoiceCurr As String = ""
For Each SH_POS In SH.EZA.POSITIONS
Dim EZA_POS As New DAKOSY_Worker.cDakosy_EZA_Warenposition
EZA_POS.ezaWP_PackstueckAnzahl = SH_POS.NumberOfPackages
@@ -443,27 +461,50 @@ Public Class usrCntlATLAS_EZA
EZA_POS.ezaWP_Warenbezeichnung = SH_POS.GoodsDescription
EZA_POS.ezaWP_WarennummerEZT = SH_POS.GoodsTariff
EZA_POS.ezaWP_UrsprungslandCode = SH_POS.OriginCountryCode
If If(SH_POS.KindOfPackages, "") <> "" Then EZA_POS.ezaWP_PackstueckArt = SH_POS.KindOfPackages
If SH_POS.ItemInvoiceAmount IsNot Nothing Then
EZA_POS.ezaWP_Artikelpreis = SH_POS.ItemInvoiceAmount
EZA_POS.ezaWP_AHStatWert = SH_POS.ItemInvoiceAmount
Else
InvoiceSum += CDbl(SH_POS.ItemInvoiceAmount)
If SH_POS.ItemInvoiceCurrency = "" Then
InvoiceCurr = SH_POS.ItemInvoiceCurrency
ElseIf SH_POS.ItemInvoiceCurrency <> InvoiceCurr Then
InvoiceCurr = "XXX" ' Wenn währung unterschiedlich XX --> kein Übertrag
End If
End If
For Each SH_POS_DOC In SH_POS.DOCUMENTS
Dim bool_add = False
Dim EZA_POS_DOC As New DAKOSY_Worker.cDakosy_EZA_WarenpositionVorgelegteUnterlagen
EZA_POS_DOC.ezaWpUl_DatumAusstellung = SH_POS_DOC.DocumentDate
EZA_POS_DOC.ezaWpUl_Nummer = SH_POS_DOC.DocumentNr
Select Case SH_POS_DOC.DocumentType
Case "CMR" : EZA_POS_DOC.ezaWpUl_Art = "7HHF" : EZA_POS_DOC.ezaWpUl_Bereich = "4" : EZA_POS_DOC.ezaWpUl_VorlageKz = "J" : bool_add = True
Case "INV" : EZA_POS_DOC.ezaWpUl_Art = "N380" : EZA_POS_DOC.ezaWpUl_Bereich = "4" : EZA_POS_DOC.ezaWpUl_VorlageKz = "J" : bool_add = True
Case "ATR" : EZA_POS_DOC.ezaWpUl_Art = "N018" : EZA_POS_DOC.ezaWpUl_Bereich = "6" : EZA_POS_DOC.ezaWpUl_VorlageKz = "J" : bool_add = True
' Case "EX" : EZA_POS_DOC.ezaWpUl_Art = "N380": EZA_POS_DOC.ezaWpUl_Bereich = "4
End Select
If bool_add Then EZA_POS.ezaWP_UNTERLAGEN.Add(EZA_POS_DOC)
Next
EZA.eza_WARENPOS.Add(EZA_POS)
Next
EZA.eza_Rechnungspreis = InvoiceSum
If InvoiceCurr <> "XXX" Then EZA.eza_Rechnungswaehrung = InvoiceCurr
Dim LieferbedingungOrtAbsedner = ""
Dim LieferbedingungOrtEmpfaenger = ""
For Each SH_AD In SH.EZA.ADDRESS
Dim EZA_AD As New DAKOSY_Worker.cDakosy_EZA_Adressen
EZA_AD.ezaAd_AdressTyp = SH_AD.AddressCode
EZA_AD.ezaAd_LandCode = SH_AD.CountryCode
EZA_AD.ezaAd_TeilnehmerEORI = SH_AD.EORI
EZA_AD.ezaAd_TeilnehmerNLNR = SH_AD.NLNR
EZA_AD.ezaAd_NameFirma1 = SH_AD.Name1
EZA_AD.ezaAd_NameFirma2 = SH_AD.Name2
EZA_AD.ezaAd_NameFirma3 = SH_AD.Name3
@@ -473,9 +514,37 @@ Public Class usrCntlATLAS_EZA
EZA_AD.ezaAd_PLZ = SH_AD.PostalCode
EZA_AD.ezaAd_UStIDAnmelder = SH_AD.UStID
If EZA_AD.ezaAd_AdressTyp = "CN" Then 'EMPFÄNGER
EZA_AD.ezaAd_TeilnehmerEORI = SH_AD.EORI
EZA_AD.ezaAd_TeilnehmerNLNR = SH_AD.NLNR
If If(EZA_AD.ezaAd_LandCode, "") = "DE" And EZA_AD.ezaAd_PLZ IsNot Nothing Then
EZA.eza_Bestimmungsbundesland = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(EZA_AD.ezaAd_PLZ)
ElseIf If(EZA_AD.ezaAd_LandCode, "") <> "" Then
EZA.eza_Bestimmungsbundesland = 25
End If
If If(EZA_AD.ezaAd_Ort, "") <> "" Then LieferbedingungOrtEmpfaenger = EZA_AD.ezaAd_Ort
End If
If EZA_AD.ezaAd_AdressTyp = "CZ" Then 'ABSENDER
If If(EZA_AD.ezaAd_Ort, "") <> "" Then LieferbedingungOrtAbsedner = EZA_AD.ezaAd_Ort
End If
EZA.eza_ADRESSEN.Add(EZA_AD)
Next
Select Case If(EZA.eza_LieferbedingungCode, "")
Case ""
Case "EXW", "FCA", "FOB", "FAS"
EZA.eza_LieferbedingungSchluessel = 1
EZA.eza_LieferbedingungOrt = LieferbedingungOrtAbsedner
Case Else
EZA.eza_LieferbedingungSchluessel = 3
EZA.eza_LieferbedingungOrt = LieferbedingungOrtEmpfaenger
End Select
Vorsystem = True
End If

14
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -1074,8 +1074,8 @@ Class DAKOSY_Interface_SEND
End If
Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
If Not IO.Directory.Exists(saveDir) Then
IO.Directory.CreateDirectory(saveDir)
If Not System.IO.Directory.Exists(saveDir) Then
System.IO.Directory.CreateDirectory(saveDir)
End If
saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
@@ -1459,8 +1459,8 @@ Class DAKOSY_Interface_SEND
XML.EinzelAnmeldung.Add(EA)
Dim saveDir = Application.StartupPath & "\Dakosy_SEND\"
If Not IO.Directory.Exists(saveDir) Then
IO.Directory.CreateDirectory(saveDir)
If Not System.IO.Directory.Exists(saveDir) Then
System.IO.Directory.CreateDirectory(saveDir)
End If
saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
@@ -1474,9 +1474,9 @@ Class DAKOSY_Interface_SEND
Shared Sub replaceNullDateXML(XMLFile As String)
Try
If Not IO.File.Exists(XMLFile) Then Exit Sub
Dim lines() As String = IO.File.ReadAllLines(XMLFile)
Using writer = New IO.StreamWriter(XMLFile, False)
If Not System.IO.File.Exists(XMLFile) Then Exit Sub
Dim lines() As String = System.IO.File.ReadAllLines(XMLFile)
Using writer = New System.IO.StreamWriter(XMLFile, False)
For Each line In lines
If Not line.Contains("0001-01-01") Then writer.WriteLine(line)
Next

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/frmDY_LogBuch.Designer.vb generated
View File

@@ -75,6 +75,7 @@ Partial Class frmDY_LogBuch
Me.DataGridView.Name = "DataGridView"
Me.DataGridView.ReadOnly = True
Me.DataGridView.RowHeadersVisible = False
Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DataGridView.Size = New System.Drawing.Size(732, 419)
Me.DataGridView.TabIndex = 1
'

5
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/frmDY_LogBuch.vb
View File

@@ -18,8 +18,8 @@
lblBezugsNr.Text = ""
With DataGridView
.Columns.Clear()
.DataSource = SQL.loadDgvBySql("SELECT isNull([dySt_BezugsNr],'') as dySt_BezugsNr,[dySt_status] as [Status] ,[dySt_ergCode] as [Code] ,[dySt_ergMitteilung] as [Mitteilung] ,isnull(cast([dySt_ergZeitpunkt] as varchar(20)),'') as Zeitstempel" &
" FROM [VERAG].[dbo].[tblDakosy_Statusmeldungen] where dySt_dyId='" & dy_id & "'", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT isNull([dySt_BezugsNr],'') as dySt_BezugsNr,[dySt_status] as [Status] ,[dySt_ergCode] as [Code] ,[dySt_ergMitteilung] as [Mitteilung] ,isnull(cast(convert(varchar,[dySt_ergZeitpunkt] ,113) as varchar(20)),'') as Zeitstempel" &
" FROM [tblDakosy_Statusmeldungen] where dySt_dyId='" & dy_id & "'", "FMZOLL")
If .ColumnCount = 0 Then Exit Sub
@@ -27,6 +27,7 @@
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
.Columns("Mitteilung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.Columns("Zeitstempel").DefaultCellStyle.Format = "dd.MM.yyyy HH:mm:ss"
If .RowCount > 0 Then
lblBezugsNr.Text = .Rows(0).Cells("dySt_BezugsNr").Value

7
SDL/ZOLLSYSTEM/TELOTEC/cTelotecInterface_Send.vb
View File

@@ -1,4 +1,5 @@
Imports TELOTEC_Worker
Imports System.IO
Class cTELOTECInterface_Send
@@ -1142,9 +1143,9 @@ Class cTELOTECInterface_Send
Shared Sub replaceNullDateXML(XMLFile As String)
Try
If Not IO.File.Exists(XMLFile) Then Exit Sub
Dim lines() As String = IO.File.ReadAllLines(XMLFile)
Using writer = New IO.StreamWriter(XMLFile, False)
If Not File.Exists(XMLFile) Then Exit Sub
Dim lines() As String = File.ReadAllLines(XMLFile)
Using writer = New StreamWriter(XMLFile, False)
For Each line In lines
If Not line.Contains("0001-01-01") Then writer.WriteLine(line)
Next

10
SDL/cProgramFunctions.vb
View File

@@ -1076,7 +1076,7 @@ Public Class cProgramFunctions
End If
Dim fn As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Dim clmns As String = ""
For i = 0 To dgv.Columns.Count - 1
' If Not onlyVisible Or (onlyVisible And dgv.Columns(i).Visible = True) Then
@@ -1128,7 +1128,7 @@ Public Class cProgramFunctions
Dim fn As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Dim clmns As String = ""
For i = 0 To dgv.ColumnCount - 1
If Not onlyVisible Or (onlyVisible And dgv.Columns(i).Visible = True) Then
@@ -1173,7 +1173,7 @@ Public Class cProgramFunctions
End If
Dim fn As String = sPath & "tmp_" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim outFile As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Dim clmns As String = ""
For i = 0 To dgv.ColumnCount - 1
If Not onlyVisible Or (onlyVisible And dgv.Columns(i).Visible = True) Then
@@ -1244,8 +1244,8 @@ Public Class cProgramFunctions
Private Shared WithEvents p As New Process
Shared Sub cleartmp(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Nach Beenden des Programmes werden alle temporären Dateien gelöscht
Dim dir = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\Monitoring\tmp\"
If IO.Directory.Exists(dir) Then
For Each file As String In IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
If System.IO.Directory.Exists(dir) Then
For Each file As String In System.IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
Try
My.Computer.FileSystem.DeleteFile(file)
Catch ex As Exception : MsgBox(ex.Message) : End Try

15
SDL/frmMain.vb
View File

@@ -309,10 +309,10 @@ Public Class frmMain
Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick
UpdateUpdater.Enabled = False
Try
Dim aktVersion = "3.0" ' Aktuelle Updater Version
Dim F = "F:\Programme\SDL_install\"
Dim aktVersion = "4.0" ' Aktuelle Updater Version
Dim F = "\\share01\Programme\SDL_install\"
Dim doUpdaterUpdate = False
If IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
If File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
Dim fs As New FileStream(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER_Version.txt", FileMode.Open, FileAccess.Read)
Dim strmReader As New StreamReader(fs)
Dim Version = strmReader.ReadLine
@@ -322,17 +322,18 @@ Public Class frmMain
End If
End If
fs.Close()
strmReader.Close()
Else
doUpdaterUpdate = True
End If
If Not doUpdaterUpdate Then Exit Sub
If IO.Directory.Exists(F) And IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER.exe") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners
IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
If Directory.Exists(F) And File.Exists(AppDomain.CurrentDomain.BaseDirectory & "\SDLUPDATER.exe") Then 'Updater muss auch existieren, sonst wird er auch beim Developer Rechner eingefügt...
For Each file As String In Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners
System.IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
Next
For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
For Each file As String In Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
Next
End If

4
SDL/kassenbuch/Verschluesselung/cCrypt.vb
View File

@@ -47,7 +47,7 @@ Public Class cCrypt
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateEncryptor()
Dim ms As New IO.MemoryStream
Dim ms As New System.IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), _
CryptoStreamMode.Write)
@@ -91,7 +91,7 @@ Public Class cCrypt
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateDecryptor()
Dim ms As New IO.MemoryStream
Dim ms As New System.IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), _
CryptoStreamMode.Write)

11
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -175,14 +175,18 @@ Public Class frmKassenbuch
Dim benutzerTMP = ""
Dim benutzerBezTMP = ""
Dim lgTxt = ""
If master_Kasse Then
benutzerTMP = " AND Benutzer IN (SELECT ID FROM [Personal] WHERE [Standard_RKSV_KasseId]='" & PERSONAL.cRKSV_Kasse.rksv_id & "') "
benutzerBezTMP = " , (SELECT cast(ID as varchar(3))+' '+Name FROM [Personal] WHERE [ID]=b.Benutzer) as BenutzerBez "
Else
benutzerTMP = " And Benutzer=" & PERSONAL.ID & ""
End If
If PERSONAL.isLeihgeldkasse Then
lgTxt = ",[Fahrer],[Passnummer] "
End If
.SET_SQL("SELECT b.rksv_BelegId, b.BelegDat, CASE WHEN b.Belegart=1 THEN 'E' ELSE 'A' END as Belegart,CASE WHEN b.Beleg_TYP='E' THEN rksv_umsatz ELSE (SELECT sum( betrag ) FROM tblEABelegposition WHERE (b.BelegNr = tblEABelegposition.BelegNr) AND (b.BelegDat = tblEABelegposition.BelegDat) AND (b.Benutzer = tblEABelegposition.Benutzer) AND (b.Niederlassung = tblEABelegposition.Niederlassung) AND (b.Mandant = tblEABelegposition.Mandant ) ) END as Betrag, b.Ordnungsbegriff, b.BelegNr, b.Frachtführer, " &
" CASE WHEN b.storniert=1 THEN 'JA' ELSE '' END as [storniert], b.Beleg_TYP ,b.Benutzer " & benutzerBezTMP &
" CASE WHEN b.storniert=1 THEN 'JA' ELSE '' END as [storniert], b.Beleg_TYP ,b.Benutzer " & benutzerBezTMP & lgTxt &
" FROM tblEABelegnummer as b WHERE b.Mandant='" & PERSONAL.Mandant & "' AND b.Niederlassung='" & PERSONAL.Niederlassung & "' " & benutzerTMP & " AND BelegDat BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' " &
" ORDER BY b.rksv_BelegId DESC, b.[upsize_ts] desc;", "FMZOLL")
' .DataSource = SQL.loadDgvBySql("SELECT b.rksv_BelegId, b.BelegDat, CASE WHEN b.Belegart=1 THEN 'E' ELSE 'A' END as Belegart,CASE WHEN b.Beleg_TYP='E' THEN rksv_umsatz ELSE (SELECT sum( betrag ) FROM tblEABelegposition WHERE (b.BelegNr = tblEABelegposition.BelegNr) AND (b.BelegDat = tblEABelegposition.BelegDat) AND (b.Benutzer = tblEABelegposition.Benutzer) AND (b.Niederlassung = tblEABelegposition.Niederlassung) AND (b.Mandant = tblEABelegposition.Mandant ) ) END as Betrag, b.Ordnungsbegriff, b.BelegNr, b.Frachtführer, " &
@@ -213,6 +217,11 @@ Public Class frmKassenbuch
.Columns("storniert").Width = 45
.Columns("Benutzer").Visible = False
If PERSONAL.isLeihgeldkasse Then
.Columns("Fahrer").Visible = False
.Columns("Passnummer").Visible = False
End If
If master_Kasse Then
.Columns("BenutzerBez").HeaderText = "Benutzer" 'gibts bei bei master
End If

16
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -328,6 +328,8 @@
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_GELDEINGANG(True, txtBemerkung.Text)
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
'cVorauskasseOptions.SpeichernVermerkIDAufgehoben(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
@@ -518,12 +520,18 @@ End Class
Public Class cVorauskasseOptions
Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1)
Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1, Optional vk_Betrag = Nothing)
Try
If vk_Betrag Is Nothing Then vk_Betrag = 0
If vk_Betrag.ToString = "" Then vk_Betrag = 0
' MsgBox(vk_Betrag)
Dim veragSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
' MsgBox("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'")
' MsgBox("ThenSELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'")
Dim dt As DataTable = Nothing
If tblSnd_SendungID > 0 Then
dt = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where tblSnd_SendungID='" & tblSnd_SendungID & "' ", "AVISO")
@@ -547,7 +555,7 @@ Public Class cVorauskasseOptions
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Select Case VermerkCodeId
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert"
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "")
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten"
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben"
Case Else : Exit Sub
@@ -566,7 +574,7 @@ Public Class cVorauskasseOptions
Dim veragSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'", "AVISO")
If dt.Rows.Count = 0 Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub
If Not IsNumeric(dt.Rows(0)("tblSnd_SendungID")) Then Exit Sub
veragSQL.doSQL("DELETE TOP (1) FROM [Vermerke] where SendungID='" & dt.Rows(0)("tblSnd_SendungID") & "' AND VermerkeCode='" & VermerkCodeId & "' ", "AVISO")

1
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -279,6 +279,7 @@ Public Class frmKundenUebersichtZOLL
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then KdFirma = KdFirma.Replace("VERAG", "ATILLA")
If (KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER) And
Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then

2
SDL/kunden/frmLKW_AnhaengeDatenarchiv.vb
View File

@@ -116,7 +116,7 @@ Public Class frmLKW_AnhaengeDatenarchiv
zielPfad &= kz & "_" & art & ".pdf"
End If
IO.File.Copy(pfad, zielPfad, True)
System.IO.File.Copy(pfad, zielPfad, True)
Return zielPfad
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)

14
SDL/kunden/usrCntlKundeFiskaldaten.vb
View File

@@ -5,6 +5,11 @@
Dim KundenNr As Integer
Sub New()
InitializeComponent()
End Sub
Sub New(KundenNr)
InitializeComponent()
Me.KundenNr = KundenNr
@@ -78,4 +83,13 @@
Private Sub usrCntlKundeFiskaldaten_Load(sender As Object, e As EventArgs) Handles Me.Load
initFiskal()
End Sub
Sub initFiskal(FISKAL As cFiskal_Daten, KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert)
Me.KundenNr = KundenNr
Me.KUNDE_ERW = KUNDE_ERW
Me.FISKAL = FISKAL
initFiskal()
End Sub
End Class

17
SDL/kunden/usrCntlKundenKontakte.vb
View File

@@ -36,14 +36,15 @@
Sub initDGV()
dgvAufschub.Rows.Clear()
If kdNr > 0 Then
Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL")
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).trim
dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
Next
If dgvAufschub.Columns.Count >= 5 Then
If kdNr > 0 Then
Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL")
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).trim
dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
Next
End If
End If
End If
End Sub

4
SDL/kunden/usrCntlLKW.vb
View File

@@ -123,6 +123,7 @@ Public Class usrCntlLKW
.Columns("KundenNr").Visible = False
.Columns("KfzKennzeichen").Visible = False
.Columns("History").Visible = False
.Columns("Archiviert").Visible = False
.Columns("SDLNr").Width = 40
@@ -197,6 +198,7 @@ Public Class usrCntlLKW
If r.Cells("LKWAbgemeldet").Value IsNot DBNull.Value AndAlso r.Cells("LKWAbgemeldet").Value Then bgred = True
If r.Cells("Gestohlen").Value IsNot DBNull.Value AndAlso r.Cells("Gestohlen").Value Then bgred = True
If r.Cells("GültigBis").Value IsNot DBNull.Value AndAlso CDate(r.Cells("GültigBis").Value) < Now.ToShortDateString Then bgred = True
If r.Cells("Archiviert").Value IsNot DBNull.Value AndAlso r.Cells("Archiviert").Value Then bgred = True
' If r.Cells("TelepassErsatzkarte").Value IsNot DBNull.Value AndAlso CDate(r.Cells("TelepassErsatzkarte").Value) < Now.ToShortDateString Then bgred = True
If bgred Then r.DefaultCellStyle.ForeColor = System.Drawing.Color.Red
@@ -206,7 +208,7 @@ Public Class usrCntlLKW
Private Sub initSDLBinding(Optional srchSdlNr = Nothing, Optional srchHistory = Nothing)
Dim sqlstr As String = " SELECT SDL.KundenNr,SDL.KfzKennzeichen, SDL.SDLNr, SDL.History,Speditionsdienstleistungen.SDLBez,SDL.Bestelldatum,SDL.Lieferdatum,SDL.GültigBis,SDL.KartenNr,SDL.PIN, " &
" sdl.[Ersatzkarte],sdl.[Retourniert],sdl.[Gesperrt],sdl.[Defekt],sdl.[Verloren],sdl.[Gestohlen],sdl.LKWAbgemeldet /*, sdl.Erfassungsdatum,sdl.Änderungsdatum,sdl.Sachbearbeiter*/ " &
" sdl.[Ersatzkarte],sdl.[Retourniert],sdl.[Gesperrt],sdl.[Defekt],sdl.[Verloren],sdl.[Gestohlen],sdl.LKWAbgemeldet /*, sdl.Erfassungsdatum,sdl.Änderungsdatum,sdl.Sachbearbeiter*/ , sdl.Archiviert " &
" FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdnr & " AND KfzKennzeichen='" & kz & "' AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDLTypNr IN (1,2) ORDER BY Speditionsdienstleistungen.SDLBez, SDL.History desc"
dgvSDLLeistungen.SET_SQL(sqlstr, "SDL")
dgvSDLLeistungen.LOAD()

110
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
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 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 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 DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
@@ -295,6 +295,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxFiBu = New System.Windows.Forms.CheckBox()
Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -304,6 +305,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage1.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.tbFiskal.SuspendLayout()
Me.tbVerrechnung.SuspendLayout()
Me.tbVersicherung.SuspendLayout()
Me.tbUmsatz.SuspendLayout()
@@ -886,6 +888,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'tbFiskal
'
Me.tbFiskal.Controls.Add(Me.UsrCntlKundeFiskaldaten1)
Me.tbFiskal.Location = New System.Drawing.Point(4, 22)
Me.tbFiskal.Name = "tbFiskal"
Me.tbFiskal.Size = New System.Drawing.Size(672, 458)
@@ -2247,8 +2250,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2345,8 +2348,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2502,41 +2505,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten"
Me.dgvKreditkarten.ReadOnly = True
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
Me.dgvKreditkarten.RowHeadersVisible = False
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2674,8 +2677,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'dgvUstv_LaenderUndSteuernummern
'
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -2888,8 +2891,8 @@ Partial Class usrcntlKundeBearbeitenFull
'dgvSonst_IDSKunden
'
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3092,8 +3095,8 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1
'
Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Enabled = False
@@ -3921,6 +3924,15 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxFiBuLG.UseVisualStyleBackColor = True
Me.cbxFiBuLG.Visible = False
'
'UsrCntlKundeFiskaldaten1
'
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458)
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3966,6 +3978,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.GroupBox7.PerformLayout()
Me.GroupBox6.ResumeLayout(False)
Me.GroupBox6.PerformLayout()
Me.tbFiskal.ResumeLayout(False)
Me.tbVerrechnung.ResumeLayout(False)
Me.tbVerrechnung.PerformLayout()
Me.tbVersicherung.ResumeLayout(False)
@@ -4266,4 +4279,5 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents Label91 As Label
Friend WithEvents Label92 As Label
Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents UsrCntlKundeFiskaldaten1 As usrCntlKundeFiskaldaten
End Class

12
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -6,7 +6,7 @@ Public Class usrcntlKundeBearbeitenFull
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim FISKAL As cFiskal_Daten = Nothing
Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
Dim sql As New SQL
@@ -111,10 +111,10 @@ Public Class usrcntlKundeBearbeitenFull
Me.Cursor = Cursors.WaitCursor
tbFiskal.Controls.Clear()
USRCNTL_FISK = New usrCntlKundeFiskaldaten(FISKAL, KUNDE_ERW)
USRCNTL_FISK.Dock = DockStyle.Fill
tbFiskal.Controls.Add(USRCNTL_FISK)
' tbFiskal.Controls.Clear()
UsrCntlKundeFiskaldaten1.initFiskal(FISKAL, KUNDE_ERW)
'USRCNTL_FISK.Dock = DockStyle.Fill
'tbFiskal.Controls.Add(USRCNTL_FISK)
checkEORI_Aufschub()
@@ -565,7 +565,7 @@ Public Class usrcntlKundeBearbeitenFull
USRCNTL_FISK.loadinClass(FISKAL, KUNDE_ERW)
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)
Return True
End Function

19
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,4 +1,5 @@
Imports System.Data.OleDb
Imports System.IO
Public Class frmMDMDatenverarbetiung
@@ -276,8 +277,8 @@ Public Class frmMDMDatenverarbetiung
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString
If IO.Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
IO.Directory.CreateDirectory(dir)
If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
Directory.CreateDirectory(dir)
For Each R_PLOSE In dt_Main.Rows
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
@@ -299,15 +300,15 @@ Public Class frmMDMDatenverarbetiung
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren:
Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\"
If IO.Directory.Exists(dirAnhang) Then 'IO.Directory.Delete(dirAnhang, True)
For Each f In IO.Directory.GetFiles(dirAnhang)
IO.File.Delete(f)
If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
For Each f In Directory.GetFiles(dirAnhang)
File.Delete(f)
Next
End If
If Not IO.Directory.Exists(dirAnhang) Then IO.Directory.CreateDirectory(dirAnhang)
If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang)
For Each f In IO.Directory.GetFiles(dir)
IO.File.Copy(f, dirAnhang & (New IO.FileInfo(f)).Name)
For Each f In Directory.GetFiles(dir)
File.Copy(f, dirAnhang & (New FileInfo(f)).Name)
Next
'IN FMZOLL / DB MautD einfügen --> Mautbericht
@@ -371,7 +372,7 @@ Public Class frmMDMDatenverarbetiung
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\MautD.accdb"
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
End If
Dim con As New OleDbConnection(connectionString)

4
SDL/mdm/frmNewData.Designer.vb generated
View File

@@ -370,6 +370,7 @@ Partial Class frmNewData
Me.btnSDL_MautCZ.Text = "MAUT CZ"
Me.btnSDL_MautCZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_MautCZ.UseVisualStyleBackColor = True
Me.btnSDL_MautCZ.Visible = False
'
'btnSDL_ECOTAX
'
@@ -621,6 +622,7 @@ Partial Class frmNewData
'
'KdSearchBox1
'
Me.KdSearchBox1._AlleFirmenCLUSTER = False
Me.KdSearchBox1._AllowSetValue = True
Me.KdSearchBox1._autoSizeGross = False
Me.KdSearchBox1._display_Name1 = False
@@ -629,6 +631,7 @@ Partial Class frmNewData
Me.KdSearchBox1._displayWoelflKd = False
Me.KdSearchBox1._hideIfListEmpty = True
Me.KdSearchBox1._loadKdData = False
Me.KdSearchBox1._UseFIRMA = ""
Me.KdSearchBox1._ValueKdAndName = False
Me.KdSearchBox1.dgvpos = "LEFT"
Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -642,6 +645,7 @@ Partial Class frmNewData
Me.KdSearchBox1.searchActive = True
Me.KdSearchBox1.Size = New System.Drawing.Size(312, 23)
Me.KdSearchBox1.TabIndex = 1
Me.KdSearchBox1.TIMER_SEARCH = True
Me.KdSearchBox1.usrcntl = Nothing
'
'btnAddLeistungVordefiniert

79
SDL/mdm/usrCntlKartenDaten.Designer.vb generated
View File

@@ -23,7 +23,7 @@ Partial Class usrCntlKartenDaten
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnSDL_Alle = New System.Windows.Forms.Button()
@@ -46,6 +46,8 @@ Partial Class usrCntlKartenDaten
Me.btnMANAbgasplakette = New System.Windows.Forms.Button()
Me.btnVERAGParkplatz = New System.Windows.Forms.Button()
Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button()
Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button()
Me.btnFilter = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -79,8 +81,6 @@ Partial Class usrCntlKartenDaten
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button()
Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button()
Me.FlowLayoutPanel.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -185,6 +185,7 @@ Partial Class usrCntlKartenDaten
Me.btnSDL_MautCZ.Text = "CZ MAUT"
Me.btnSDL_MautCZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_MautCZ.UseVisualStyleBackColor = True
Me.btnSDL_MautCZ.Visible = False
'
'btnSDL_MautDE
'
@@ -483,6 +484,40 @@ Partial Class usrCntlKartenDaten
Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_PLOSE.UseVisualStyleBackColor = True
'
'btnSDL_PLOSE_IT
'
Me.btnSDL_PLOSE_IT.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_PLOSE_IT.FlatAppearance.BorderSize = 0
Me.btnSDL_PLOSE_IT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_PLOSE_IT.ForeColor = System.Drawing.Color.Black
Me.btnSDL_PLOSE_IT.Image = Global.SDL.My.Resources.Resources.plose_it
Me.btnSDL_PLOSE_IT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_PLOSE_IT.Location = New System.Drawing.Point(234, 64)
Me.btnSDL_PLOSE_IT.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_PLOSE_IT.Name = "btnSDL_PLOSE_IT"
Me.btnSDL_PLOSE_IT.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_PLOSE_IT.TabIndex = 42
Me.btnSDL_PLOSE_IT.Text = "PLOSE IT"
Me.btnSDL_PLOSE_IT.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_PLOSE_IT.UseVisualStyleBackColor = True
'
'btnSDL_PLOSE_CZ
'
Me.btnSDL_PLOSE_CZ.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_PLOSE_CZ.FlatAppearance.BorderSize = 0
Me.btnSDL_PLOSE_CZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_PLOSE_CZ.ForeColor = System.Drawing.Color.Black
Me.btnSDL_PLOSE_CZ.Image = Global.SDL.My.Resources.Resources.plose_cz
Me.btnSDL_PLOSE_CZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_PLOSE_CZ.Location = New System.Drawing.Point(312, 64)
Me.btnSDL_PLOSE_CZ.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_PLOSE_CZ.Name = "btnSDL_PLOSE_CZ"
Me.btnSDL_PLOSE_CZ.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_PLOSE_CZ.TabIndex = 43
Me.btnSDL_PLOSE_CZ.Text = "PLOSE CZ"
Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True
'
'btnFilter
'
Me.btnFilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -812,8 +847,8 @@ Partial Class usrCntlKartenDaten
Me.dgvSDL.AllowUserToAddRows = False
Me.dgvSDL.AllowUserToDeleteRows = False
Me.dgvSDL.AllowUserToResizeColumns = False
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvSDL.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSDL.Location = New System.Drawing.Point(0, -1)
Me.dgvSDL.Name = "dgvSDL"
@@ -887,40 +922,6 @@ Partial Class usrCntlKartenDaten
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
'
'btnSDL_PLOSE_IT
'
Me.btnSDL_PLOSE_IT.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_PLOSE_IT.FlatAppearance.BorderSize = 0
Me.btnSDL_PLOSE_IT.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_PLOSE_IT.ForeColor = System.Drawing.Color.Black
Me.btnSDL_PLOSE_IT.Image = Global.SDL.My.Resources.Resources.plose_it
Me.btnSDL_PLOSE_IT.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_PLOSE_IT.Location = New System.Drawing.Point(234, 64)
Me.btnSDL_PLOSE_IT.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_PLOSE_IT.Name = "btnSDL_PLOSE_IT"
Me.btnSDL_PLOSE_IT.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_PLOSE_IT.TabIndex = 42
Me.btnSDL_PLOSE_IT.Text = "PLOSE IT"
Me.btnSDL_PLOSE_IT.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_PLOSE_IT.UseVisualStyleBackColor = True
'
'btnSDL_PLOSE_CZ
'
Me.btnSDL_PLOSE_CZ.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_PLOSE_CZ.FlatAppearance.BorderSize = 0
Me.btnSDL_PLOSE_CZ.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_PLOSE_CZ.ForeColor = System.Drawing.Color.Black
Me.btnSDL_PLOSE_CZ.Image = Global.SDL.My.Resources.Resources.plose_cz
Me.btnSDL_PLOSE_CZ.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_PLOSE_CZ.Location = New System.Drawing.Point(312, 64)
Me.btnSDL_PLOSE_CZ.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_PLOSE_CZ.Name = "btnSDL_PLOSE_CZ"
Me.btnSDL_PLOSE_CZ.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_PLOSE_CZ.TabIndex = 43
Me.btnSDL_PLOSE_CZ.Text = "PLOSE CZ"
Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True
'
'usrCntlKartenDaten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

28
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -40,7 +40,7 @@ Public Class usrCntlKartenDaten
End Sub
' Dim show200 = True
Private Sub usrCntlDaten_Load(sender As Object, e As EventArgs) Handles Me.Load
EnableDoubleBuffered(dgvSDL)
' MsgBox("L")
' Exit Sub
' Dim systemType As Type = dgvSDL.GetType()
@@ -60,20 +60,16 @@ Public Class usrCntlKartenDaten
reClick()
End Sub
EnableDoubleBuffered(dgvSDL)
End Sub
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
pi.SetValue(dgv, True, Nothing)
End Sub
Sub init()
dgvInitWait = True
@@ -502,6 +498,8 @@ Public Class usrCntlKartenDaten
dgvSDL.Height = 100
dgvSDL.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
initRtbVermerk(SDLNrTmp, kdNr)
initDGVWidth() 'vor Filter, damit richtige Größe
If Not doFilter Then initFilter()
@@ -796,14 +794,16 @@ Public Class usrCntlKartenDaten
Sub ReloadLeistung()
btnDel.Enabled = (dgvSDL.SelectedRows.Count > 0)
RichTextBoxVermerk.Text = ""
initRtbVermerk(-1)
' MsgBox(dgvInitWait)
If Not dgvInitWait Then
Try
If dgvSDL.SelectedRows.Count > 0 Then
' MsgBox("So")
UsrCntlDatenDetails1.Visible = True
RichTextBoxVermerk.Text = SQL.getValueTxtBySql("SELECT [Vermerk] FROM [KundenSDL] WHERE [KundenNr]=" & dgvSDL.SelectedRows(0).Cells("KundenNr").Value & " AND [SDLNr]=" & dgvSDL.SelectedRows(0).Cells("SDLNr").Value, "SDL")
initRtbVermerk(dgvSDL.SelectedRows(0).Cells("SDLNr").Value, dgvSDL.SelectedRows(0).Cells("KundenNr").Value)
' RichTextBoxVermerk.Text = SQL.getValueTxtBySql("SELECT [Vermerk] FROM [KundenSDL] WHERE [KundenNr]=" & dgvSDL.SelectedRows(0).Cells("KundenNr").Value & " AND [SDLNr]=" & dgvSDL.SelectedRows(0).Cells("SDLNr").Value, "SDL")
If Not SplitContainer1.Panel2Collapsed Then
Me.Cursor = Cursors.WaitCursor
If kdNr_filter = False Then UsrCntlDatenDetails1.showFirma = True
@@ -820,11 +820,21 @@ Public Class usrCntlKartenDaten
End Try
End If
End Sub
Sub initRtbVermerk(SdlNr As Integer, Optional KdNr As Integer = -1)
RichTextBoxVermerk.Text = ""
If SdlNr > 0 And KdNr > 0 Then
RichTextBoxVermerk.Text = SQL.getValueTxtBySql("SELECT [Vermerk] FROM [KundenSDL] WHERE [KundenNr]=" & KdNr & " AND [SDLNr]=" & SdlNr, "SDL")
End If
If RichTextBoxVermerk.Text <> "" Then
RichTextBoxVermerk.BackColor = Color.LightCyan
Else
RichTextBoxVermerk.BackColor = Color.FromArgb(240, 240, 240)
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

6
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -137,7 +137,7 @@ Public Class usrCntlMDMAuswertungen
Dim fn As String = sPath & "WOELFL.csv" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim outFile As IO.StreamWriter = Nothing
Dim outFile As System.IO.StreamWriter = Nothing
Try
outFile = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Catch ex As System.Exception
@@ -186,8 +186,8 @@ Public Class usrCntlMDMAuswertungen
End Sub
Sub cleartmp()
Dim dir = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\MDM\tmp\"
If IO.Directory.Exists(dir) Then
For Each file As String In IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
If System.IO.Directory.Exists(dir) Then
For Each file As String In System.IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
Try
My.Computer.FileSystem.DeleteFile(file)
Catch ex As System.Exception : MsgBox(ex.Message) : End Try

2
SDL/packages.config
View File

@@ -2,8 +2,10 @@
<packages>
<package id="esendex-dotnet-sdk" version="3.8.0" targetFramework="net47" />
<package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" />
<package id="IKVM" version="8.0.5449.1" targetFramework="net47" />
<package id="LiveCharts" version="0.6.7.0" targetFramework="net40-Client" requireReinstallation="True" />
<package id="Newtonsoft.Json" version="12.0.3" targetFramework="net47" />
<package id="TAlex.WPF.Controls" version="2.0.1.0" targetFramework="net40-Client" />
<package id="WpfAnimatedGif" version="1.4.14" targetFramework="net45" />
<package id="ZUGFeRD.NET" version="1.0.1" targetFramework="net47" />
</packages>

16
SDL/zoll/usrCntlAuswertungenFiskal_IntrastatMeldung.vb
View File

@@ -21,15 +21,15 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not IO.Directory.Exists("F:\FMZoll\Intrastat\") Then IO.Directory.CreateDirectory("F:\FMZoll\ZM\")
Dim fs As New FileStream("F:\FMZoll\Intrastat\KA221.ASC", FileMode.Create)
If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\KA221.ASC", FileMode.Create)
Dim sw As New StreamWriter(fs)
' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines);
' XML-Datei anlegen.
' fso = New FileSystemObject
' strPath = fso.BuildPath("F:\FMZoll\ZM", "ZM_Formular_online.xml")
' strPath = fso.BuildPath("\\FMZoll.verag.ost.dmn\FMZoll\ZM", "ZM_Formular_online.xml")
' txt = fso.CreateTextFile(strPath, True, False)
'With txt
@@ -91,23 +91,23 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
' End With
' txt = Nothing
' fso = Nothing
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter F:\FMZoll\ZM\ZM_Formular_online.xml"
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter \\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml"
' rst.Close()
' rst = Nothing
sw.Close()
If Not IO.Directory.Exists("F:\FMZoll\Intrastat\ArchivNEU\") Then IO.Directory.CreateDirectory("F:\FMZoll\Intrastat\ArchivNEU\")
If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\ArchivNEU\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\ArchivNEU\")
Try
IO.File.Copy("F:\FMZoll\Intrastat\KA221.ASC", "F:\FMZoll\Intrastat\ArchivNEU\" & Now.ToString("dd.MM.yyyy HH.mm.ss") & " " & datVon.Value.ToShortDateString & " " & datBis.Value.ToShortDateString & " KA221.ASC")
File.Copy("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\KA221.ASC", "\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\ArchivNEU\" & Now.ToString("dd.MM.yyyy HH.mm.ss") & " " & datVon.Value.ToShortDateString & " " & datBis.Value.ToShortDateString & " KA221.ASC")
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Process.Start("F:\FMZoll\Intrastat\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\")
End If
Catch ex As Exception
@@ -200,6 +200,6 @@ Public Class usrCntlAuswertungenFiskal_IntrastatMeldung
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("F:\FMZoll\Intrastat\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\Intrastat\")
End Sub
End Class

20
SDL/zoll/usrCntlAuswertungenFiskalvertretung_4200.vb
View File

@@ -22,15 +22,15 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not IO.Directory.Exists("F:\FMZoll\ZM\") Then IO.Directory.CreateDirectory("F:\FMZoll\ZM\")
Dim fs As New FileStream("F:\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create)
If Not Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml", FileMode.Create)
Dim sw As New StreamWriter(fs)
' File.AppendAllLines(Path.Combine(mydocpath,"WriteFile.txt"), lines);
' XML-Datei anlegen.
' fso = New FileSystemObject
' strPath = fso.BuildPath("F:\FMZoll\ZM", "ZM_Formular_online.xml")
' strPath = fso.BuildPath("\\FMZoll.verag.ost.dmn\FMZoll\ZM", "ZM_Formular_online.xml")
' txt = fso.CreateTextFile(strPath, True, False)
'With txt
sw.WriteLine("<?xml version=""1.0"" encoding=""UTF-8"" ?>")
@@ -74,15 +74,15 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
' End With
' txt = Nothing
' fso = Nothing
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter F:\FMZoll\ZM\ZM_Formular_online.xml"
' Me!strNachrichtenzeile = "Die XML-Datei finden Sie unter \\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.xml"
' rst.Close()
' rst = Nothing
sw.Close()
'Process.Start("F:\FMZoll\ZM\ZM_Formular_online_TEST.xml")
'Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online_TEST.xml")
Process.Start("F:\FMZoll\ZM\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
End If
Catch ex As Exception
@@ -343,8 +343,8 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If Not IO.Directory.Exists("F:\FMZoll\ZM\") Then IO.Directory.CreateDirectory("F:\FMZoll\ZM\")
Dim fs As New FileStream("F:\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create)
If Not System.IO.Directory.Exists("\\FMZoll.verag.ost.dmn\FMZoll\ZM\") Then System.IO.Directory.CreateDirectory("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
Dim fs As New FileStream("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv", FileMode.Create)
Dim sw As New StreamWriter(fs)
@@ -361,7 +361,7 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Next
sw.Close()
fs.Close()
Process.Start("F:\FMZoll\ZM\ZM_Formular_online.csv")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\ZM_Formular_online.csv")
End If
Catch ex As Exception
@@ -532,6 +532,6 @@ Public Class usrCntlAuswertungenFiskalvertretung_4200
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Process.Start("F:\FMZoll\ZM\")
Process.Start("\\FMZoll.verag.ost.dmn\FMZoll\ZM\")
End Sub
End Class

487
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -43,6 +43,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label2 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button15 = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
Me.picDurmaz = New System.Windows.Forms.PictureBox()
Me.txtJahrDurmaz = New System.Windows.Forms.NumericUpDown()
@@ -113,6 +114,38 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label35 = New System.Windows.Forms.Label()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Label76 = New System.Windows.Forms.Label()
Me.GroupBox11 = New System.Windows.Forms.GroupBox()
Me.Button18 = New System.Windows.Forms.Button()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.txtJahr_NCTSTR = New System.Windows.Forms.NumericUpDown()
Me.cboMonat_NCTSTR = New System.Windows.Forms.ComboBox()
Me.Label77 = New System.Windows.Forms.Label()
Me.datAuswertBis_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label78 = New System.Windows.Forms.Label()
Me.Label79 = New System.Windows.Forms.Label()
Me.Label80 = New System.Windows.Forms.Label()
Me.datAuswertVon_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label81 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.cbxSplittungNachPos_NCTSTR = New System.Windows.Forms.CheckBox()
Me.cbxAnrechnungRefBetrag_NCTSTR = New System.Windows.Forms.CheckBox()
Me.Button16 = New System.Windows.Forms.Button()
Me.Label69 = New System.Windows.Forms.Label()
Me.txtStatBis_NCTSTR = New System.Windows.Forms.TextBox()
Me.txtStatVon_NCTSTR = New System.Windows.Forms.TextBox()
Me.Label70 = New System.Windows.Forms.Label()
Me.Label71 = New System.Windows.Forms.Label()
Me.cboBrg_NCTSTR = New System.Windows.Forms.ComboBox()
Me.Label72 = New System.Windows.Forms.Label()
Me.datBis_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label73 = New System.Windows.Forms.Label()
Me.Label74 = New System.Windows.Forms.Label()
Me.datVon_NCTSTR = New System.Windows.Forms.DateTimePicker()
Me.Label75 = New System.Windows.Forms.Label()
Me.Button17 = New System.Windows.Forms.Button()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.Label52 = New System.Windows.Forms.Label()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
@@ -165,7 +198,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.pnl = New System.Windows.Forms.Panel()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label60 = New System.Windows.Forms.Label()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
@@ -186,6 +218,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.datUnispedVon = New System.Windows.Forms.DateTimePicker()
Me.Label67 = New System.Windows.Forms.Label()
Me.Button14 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -200,6 +233,11 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox5.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox11.SuspendLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtJahr_NCTSTR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox10.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox8.SuspendLayout()
@@ -212,10 +250,10 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout()
Me.pnl.SuspendLayout()
Me.TabPage5.SuspendLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox9.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'Label3
@@ -420,7 +458,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label8.Location = New System.Drawing.Point(8, 581)
Me.Label8.Location = New System.Drawing.Point(8, 721)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(211, 17)
Me.Label8.TabIndex = 12
@@ -428,6 +466,7 @@ Partial Class usrCntlZOLLAuswertungen
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button15)
Me.GroupBox2.Controls.Add(Me.Button6)
Me.GroupBox2.Controls.Add(Me.picDurmaz)
Me.GroupBox2.Controls.Add(Me.txtJahrDurmaz)
@@ -440,17 +479,28 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox2.Controls.Add(Me.datVonDurmaz)
Me.GroupBox2.Controls.Add(Me.Label14)
Me.GroupBox2.Controls.Add(Me.btnNCTSDurmaz)
Me.GroupBox2.Location = New System.Drawing.Point(7, 593)
Me.GroupBox2.Location = New System.Drawing.Point(7, 733)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(705, 97)
Me.GroupBox2.Size = New System.Drawing.Size(705, 145)
Me.GroupBox2.TabIndex = 11
Me.GroupBox2.TabStop = False
'
'Button15
'
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button15.Location = New System.Drawing.Point(6, 57)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(121, 37)
Me.Button15.TabIndex = 14
Me.Button15.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ZOLARIS)"
Me.Button15.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button6.Location = New System.Drawing.Point(6, 57)
Me.Button6.Location = New System.Drawing.Point(6, 95)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(121, 37)
Me.Button6.TabIndex = 13
@@ -784,7 +834,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label17.Location = New System.Drawing.Point(8, 706)
Me.Label17.Location = New System.Drawing.Point(10, 881)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(198, 17)
Me.Label17.TabIndex = 18
@@ -805,7 +855,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox4.Controls.Add(Me.datVonATILLA)
Me.GroupBox4.Controls.Add(Me.Label28)
Me.GroupBox4.Controls.Add(Me.Button2)
Me.GroupBox4.Location = New System.Drawing.Point(7, 718)
Me.GroupBox4.Location = New System.Drawing.Point(9, 893)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(705, 147)
Me.GroupBox4.TabIndex = 17
@@ -1166,12 +1216,17 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(830, 1270)
Me.tbcntr.Size = New System.Drawing.Size(728, 1529)
Me.tbcntr.TabIndex = 22
'
'TabPage1
'
Me.TabPage1.AutoScroll = True
Me.TabPage1.Controls.Add(Me.Label76)
Me.TabPage1.Controls.Add(Me.GroupBox11)
Me.TabPage1.Controls.Add(Me.Label68)
Me.TabPage1.Controls.Add(Me.PictureBox9)
Me.TabPage1.Controls.Add(Me.GroupBox10)
Me.TabPage1.Controls.Add(Me.PictureBox7)
Me.TabPage1.Controls.Add(Me.Label52)
Me.TabPage1.Controls.Add(Me.PictureBox6)
@@ -1199,11 +1254,341 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(822, 1244)
Me.TabPage1.Size = New System.Drawing.Size(720, 1503)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
'
'Label76
'
Me.Label76.AutoSize = True
Me.Label76.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label76.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label76.Location = New System.Drawing.Point(12, 1309)
Me.Label76.Name = "Label76"
Me.Label76.Size = New System.Drawing.Size(214, 17)
Me.Label76.TabIndex = 33
Me.Label76.Text = "Auswertung LKW - OREGON"
'
'GroupBox11
'
Me.GroupBox11.Controls.Add(Me.Button18)
Me.GroupBox11.Controls.Add(Me.PictureBox10)
Me.GroupBox11.Controls.Add(Me.txtJahr_NCTSTR)
Me.GroupBox11.Controls.Add(Me.cboMonat_NCTSTR)
Me.GroupBox11.Controls.Add(Me.Label77)
Me.GroupBox11.Controls.Add(Me.datAuswertBis_NCTSTR)
Me.GroupBox11.Controls.Add(Me.Label78)
Me.GroupBox11.Controls.Add(Me.Label79)
Me.GroupBox11.Controls.Add(Me.Label80)
Me.GroupBox11.Controls.Add(Me.datAuswertVon_NCTSTR)
Me.GroupBox11.Controls.Add(Me.Label81)
Me.GroupBox11.Location = New System.Drawing.Point(9, 1324)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(705, 102)
Me.GroupBox11.TabIndex = 32
Me.GroupBox11.TabStop = False
'
'Button18
'
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button18.Location = New System.Drawing.Point(6, 19)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(121, 37)
Me.Button18.TabIndex = 14
Me.Button18.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(FREMDSYSTEM)"
Me.Button18.UseVisualStyleBackColor = True
'
'PictureBox10
'
Me.PictureBox10.Image = Global.SDL.My.Resources.Resources.oregon
Me.PictureBox10.Location = New System.Drawing.Point(494, 12)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(166, 44)
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox10.TabIndex = 12
Me.PictureBox10.TabStop = False
'
'txtJahr_NCTSTR
'
Me.txtJahr_NCTSTR.Location = New System.Drawing.Point(315, 66)
Me.txtJahr_NCTSTR.Maximum = New Decimal(New Integer() {2050, 0, 0, 0})
Me.txtJahr_NCTSTR.Minimum = New Decimal(New Integer() {1999, 0, 0, 0})
Me.txtJahr_NCTSTR.Name = "txtJahr_NCTSTR"
Me.txtJahr_NCTSTR.Size = New System.Drawing.Size(48, 20)
Me.txtJahr_NCTSTR.TabIndex = 11
Me.txtJahr_NCTSTR.Value = New Decimal(New Integer() {2016, 0, 0, 0})
'
'cboMonat_NCTSTR
'
Me.cboMonat_NCTSTR.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMonat_NCTSTR.FormattingEnabled = True
Me.cboMonat_NCTSTR.Items.AddRange(New Object() {"", "Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"})
Me.cboMonat_NCTSTR.Location = New System.Drawing.Point(186, 65)
Me.cboMonat_NCTSTR.Name = "cboMonat_NCTSTR"
Me.cboMonat_NCTSTR.Size = New System.Drawing.Size(87, 21)
Me.cboMonat_NCTSTR.TabIndex = 11
'
'Label77
'
Me.Label77.AutoSize = True
Me.Label77.Location = New System.Drawing.Point(569, 69)
Me.Label77.Name = "Label77"
Me.Label77.Size = New System.Drawing.Size(23, 13)
Me.Label77.TabIndex = 10
Me.Label77.Text = "bis:"
'
'datAuswertBis_NCTSTR
'
Me.datAuswertBis_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datAuswertBis_NCTSTR.Location = New System.Drawing.Point(598, 66)
Me.datAuswertBis_NCTSTR.Name = "datAuswertBis_NCTSTR"
Me.datAuswertBis_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datAuswertBis_NCTSTR.TabIndex = 9
'
'Label78
'
Me.Label78.AutoSize = True
Me.Label78.Location = New System.Drawing.Point(279, 69)
Me.Label78.Name = "Label78"
Me.Label78.Size = New System.Drawing.Size(30, 13)
Me.Label78.TabIndex = 8
Me.Label78.Text = "Jahr:"
'
'Label79
'
Me.Label79.AutoSize = True
Me.Label79.Location = New System.Drawing.Point(145, 69)
Me.Label79.Name = "Label79"
Me.Label79.Size = New System.Drawing.Size(40, 13)
Me.Label79.TabIndex = 8
Me.Label79.Text = "Monat:"
'
'Label80
'
Me.Label80.AutoSize = True
Me.Label80.Location = New System.Drawing.Point(436, 69)
Me.Label80.Name = "Label80"
Me.Label80.Size = New System.Drawing.Size(28, 13)
Me.Label80.TabIndex = 8
Me.Label80.Text = "von:"
'
'datAuswertVon_NCTSTR
'
Me.datAuswertVon_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datAuswertVon_NCTSTR.Location = New System.Drawing.Point(470, 66)
Me.datAuswertVon_NCTSTR.Name = "datAuswertVon_NCTSTR"
Me.datAuswertVon_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datAuswertVon_NCTSTR.TabIndex = 7
'
'Label81
'
Me.Label81.AutoSize = True
Me.Label81.Location = New System.Drawing.Point(145, 16)
Me.Label81.Name = "Label81"
Me.Label81.Size = New System.Drawing.Size(276, 26)
Me.Label81.TabIndex = 5
Me.Label81.Text = "Liefert eine Liste der im definierten Zeitraum verarbeiteten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Versandscheine (nac" &
"h LKWs gruppiert)."
'
'Label68
'
Me.Label68.AutoSize = True
Me.Label68.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label68.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label68.Location = New System.Drawing.Point(8, 536)
Me.Label68.Name = "Label68"
Me.Label68.Size = New System.Drawing.Size(323, 17)
Me.Label68.TabIndex = 30
Me.Label68.Text = "NCTS Gestellungskontrolle FREMDSYSTEM"
'
'PictureBox9
'
Me.PictureBox9.Image = Global.SDL.My.Resources.Resources.flagge_tr
Me.PictureBox9.Location = New System.Drawing.Point(351, 537)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(29, 16)
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox9.TabIndex = 31
Me.PictureBox9.TabStop = False
'
'GroupBox10
'
Me.GroupBox10.Controls.Add(Me.cbxSplittungNachPos_NCTSTR)
Me.GroupBox10.Controls.Add(Me.cbxAnrechnungRefBetrag_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Button16)
Me.GroupBox10.Controls.Add(Me.Label69)
Me.GroupBox10.Controls.Add(Me.txtStatBis_NCTSTR)
Me.GroupBox10.Controls.Add(Me.txtStatVon_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label70)
Me.GroupBox10.Controls.Add(Me.Label71)
Me.GroupBox10.Controls.Add(Me.cboBrg_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label72)
Me.GroupBox10.Controls.Add(Me.datBis_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label73)
Me.GroupBox10.Controls.Add(Me.Label74)
Me.GroupBox10.Controls.Add(Me.datVon_NCTSTR)
Me.GroupBox10.Controls.Add(Me.Label75)
Me.GroupBox10.Controls.Add(Me.Button17)
Me.GroupBox10.Location = New System.Drawing.Point(7, 548)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(705, 93)
Me.GroupBox10.TabIndex = 29
Me.GroupBox10.TabStop = False
'
'cbxSplittungNachPos_NCTSTR
'
Me.cbxSplittungNachPos_NCTSTR.AutoSize = True
Me.cbxSplittungNachPos_NCTSTR.Location = New System.Drawing.Point(148, 76)
Me.cbxSplittungNachPos_NCTSTR.Name = "cbxSplittungNachPos_NCTSTR"
Me.cbxSplittungNachPos_NCTSTR.Size = New System.Drawing.Size(146, 17)
Me.cbxSplittungNachPos_NCTSTR.TabIndex = 21
Me.cbxSplittungNachPos_NCTSTR.Text = "Splittung nach Positionen"
Me.cbxSplittungNachPos_NCTSTR.UseVisualStyleBackColor = True
'
'cbxAnrechnungRefBetrag_NCTSTR
'
Me.cbxAnrechnungRefBetrag_NCTSTR.AutoSize = True
Me.cbxAnrechnungRefBetrag_NCTSTR.Location = New System.Drawing.Point(148, 59)
Me.cbxAnrechnungRefBetrag_NCTSTR.Name = "cbxAnrechnungRefBetrag_NCTSTR"
Me.cbxAnrechnungRefBetrag_NCTSTR.Size = New System.Drawing.Size(138, 17)
Me.cbxAnrechnungRefBetrag_NCTSTR.TabIndex = 20
Me.cbxAnrechnungRefBetrag_NCTSTR.Text = "Anrechnung Ref Betrag"
Me.cbxAnrechnungRefBetrag_NCTSTR.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button16.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button16.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button16.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button16.Location = New System.Drawing.Point(6, 49)
Me.Button16.Name = "Button16"
Me.Button16.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0)
Me.Button16.Size = New System.Drawing.Size(121, 38)
Me.Button16.TabIndex = 19
Me.Button16.Text = "Excel"
Me.Button16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button16.UseVisualStyleBackColor = True
'
'Label69
'
Me.Label69.AutoSize = True
Me.Label69.Location = New System.Drawing.Point(368, 74)
Me.Label69.Name = "Label69"
Me.Label69.Size = New System.Drawing.Size(10, 13)
Me.Label69.TabIndex = 17
Me.Label69.Text = "-"
'
'txtStatBis_NCTSTR
'
Me.txtStatBis_NCTSTR.Location = New System.Drawing.Point(378, 69)
Me.txtStatBis_NCTSTR.Name = "txtStatBis_NCTSTR"
Me.txtStatBis_NCTSTR.Size = New System.Drawing.Size(23, 20)
Me.txtStatBis_NCTSTR.TabIndex = 16
Me.txtStatBis_NCTSTR.Text = "50"
'
'txtStatVon_NCTSTR
'
Me.txtStatVon_NCTSTR.Location = New System.Drawing.Point(344, 69)
Me.txtStatVon_NCTSTR.Name = "txtStatVon_NCTSTR"
Me.txtStatVon_NCTSTR.Size = New System.Drawing.Size(23, 20)
Me.txtStatVon_NCTSTR.TabIndex = 15
Me.txtStatVon_NCTSTR.Text = "50"
'
'Label70
'
Me.Label70.AutoSize = True
Me.Label70.Location = New System.Drawing.Point(340, 55)
Me.Label70.Name = "Label70"
Me.Label70.Size = New System.Drawing.Size(40, 13)
Me.Label70.TabIndex = 14
Me.Label70.Text = "Status:"
'
'Label71
'
Me.Label71.AutoSize = True
Me.Label71.Location = New System.Drawing.Point(436, 55)
Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(167, 13)
Me.Label71.TabIndex = 13
Me.Label71.Text = "Bürgschaft (keine Auswahl = alle):"
'
'cboBrg_NCTSTR
'
Me.cboBrg_NCTSTR.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboBrg_NCTSTR.DropDownWidth = 350
Me.cboBrg_NCTSTR.FormattingEnabled = True
Me.cboBrg_NCTSTR.Location = New System.Drawing.Point(439, 69)
Me.cboBrg_NCTSTR.Name = "cboBrg_NCTSTR"
Me.cboBrg_NCTSTR.Size = New System.Drawing.Size(221, 21)
Me.cboBrg_NCTSTR.TabIndex = 12
'
'Label72
'
Me.Label72.AutoSize = True
Me.Label72.Location = New System.Drawing.Point(569, 30)
Me.Label72.Name = "Label72"
Me.Label72.Size = New System.Drawing.Size(23, 13)
Me.Label72.TabIndex = 10
Me.Label72.Text = "bis:"
'
'datBis_NCTSTR
'
Me.datBis_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datBis_NCTSTR.Location = New System.Drawing.Point(598, 27)
Me.datBis_NCTSTR.Name = "datBis_NCTSTR"
Me.datBis_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datBis_NCTSTR.TabIndex = 9
'
'Label73
'
Me.Label73.AutoSize = True
Me.Label73.Location = New System.Drawing.Point(436, 11)
Me.Label73.Name = "Label73"
Me.Label73.Size = New System.Drawing.Size(122, 13)
Me.Label73.TabIndex = 8
Me.Label73.Text = "Gestellungsdatum (Frist):"
'
'Label74
'
Me.Label74.AutoSize = True
Me.Label74.Location = New System.Drawing.Point(436, 30)
Me.Label74.Name = "Label74"
Me.Label74.Size = New System.Drawing.Size(28, 13)
Me.Label74.TabIndex = 8
Me.Label74.Text = "von:"
'
'datVon_NCTSTR
'
Me.datVon_NCTSTR.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVon_NCTSTR.Location = New System.Drawing.Point(470, 27)
Me.datVon_NCTSTR.Name = "datVon_NCTSTR"
Me.datVon_NCTSTR.Size = New System.Drawing.Size(93, 20)
Me.datVon_NCTSTR.TabIndex = 7
'
'Label75
'
Me.Label75.AutoSize = True
Me.Label75.Location = New System.Drawing.Point(145, 12)
Me.Label75.Name = "Label75"
Me.Label75.Size = New System.Drawing.Size(278, 39)
Me.Label75.TabIndex = 5
Me.Label75.Text = "Liefert eine Liste der nocht nicht gestellten Abfertigungen," & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "wobei nach dem Gest" &
"llungsdatum im definierten Zeitraum" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "eingeschränkt wird."
'
'Button17
'
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button17.Location = New System.Drawing.Point(6, 12)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(121, 38)
Me.Button17.TabIndex = 4
Me.Button17.Text = "Auswertung starten"
Me.Button17.UseVisualStyleBackColor = True
'
'PictureBox7
'
Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.IMEX_LOGO_simple
@@ -1387,7 +1772,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label46.AutoSize = True
Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label46.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label46.Location = New System.Drawing.Point(10, 1002)
Me.Label46.Location = New System.Drawing.Point(12, 1177)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(199, 17)
Me.Label46.TabIndex = 25
@@ -1406,7 +1791,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox7.Controls.Add(Me.Label50)
Me.GroupBox7.Controls.Add(Me.datVonAmbar)
Me.GroupBox7.Controls.Add(Me.Label51)
Me.GroupBox7.Location = New System.Drawing.Point(7, 1017)
Me.GroupBox7.Location = New System.Drawing.Point(9, 1192)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(705, 102)
Me.GroupBox7.TabIndex = 24
@@ -1520,7 +1905,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label45.AutoSize = True
Me.Label45.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label45.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label45.Location = New System.Drawing.Point(8, 554)
Me.Label45.Location = New System.Drawing.Point(8, 694)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(409, 17)
Me.Label45.TabIndex = 23
@@ -1531,7 +1916,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label44.AutoSize = True
Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label44.Location = New System.Drawing.Point(10, 873)
Me.Label44.Location = New System.Drawing.Point(12, 1048)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(182, 17)
Me.Label44.TabIndex = 22
@@ -1550,7 +1935,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox6.Controls.Add(Me.Label42)
Me.GroupBox6.Controls.Add(Me.datVonImex)
Me.GroupBox6.Controls.Add(Me.Label43)
Me.GroupBox6.Location = New System.Drawing.Point(7, 888)
Me.GroupBox6.Location = New System.Drawing.Point(9, 1063)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(705, 102)
Me.GroupBox6.TabIndex = 18
@@ -1667,7 +2052,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(822, 1244)
Me.TabPage2.Size = New System.Drawing.Size(737, 1503)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1697,7 +2082,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(822, 1244)
Me.TabPage3.Size = New System.Drawing.Size(737, 1503)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1723,7 +2108,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(822, 1244)
Me.TabPage4.Size = New System.Drawing.Size(737, 1503)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
@@ -1736,15 +2121,6 @@ Partial Class usrCntlZOLLAuswertungen
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(830, 57)
Me.pnl.TabIndex = 23
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.Label60)
@@ -1753,7 +2129,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(822, 1244)
Me.TabPage5.Size = New System.Drawing.Size(737, 1503)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -1955,6 +2331,15 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14.Text = "Auswertung starten"
Me.Button14.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(728, 57)
Me.pnl.TabIndex = 23
'
'usrCntlZOLLAuswertungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1964,7 +2349,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(830, 926)
Me.Size = New System.Drawing.Size(728, 926)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -1985,6 +2370,13 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtJahr_NCTSTR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox10.PerformLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox8.ResumeLayout(False)
@@ -2000,13 +2392,13 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.TabPage4.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.TabPage5.ResumeLayout(False)
Me.TabPage5.PerformLayout()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -2174,4 +2566,37 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents datUnispedVon As DateTimePicker
Friend WithEvents Label67 As Label
Friend WithEvents Button14 As Button
Friend WithEvents Button15 As Button
Friend WithEvents Label68 As Label
Friend WithEvents PictureBox9 As PictureBox
Friend WithEvents GroupBox10 As GroupBox
Friend WithEvents cbxSplittungNachPos_NCTSTR As CheckBox
Friend WithEvents cbxAnrechnungRefBetrag_NCTSTR As CheckBox
Friend WithEvents Button16 As Button
Friend WithEvents Label69 As Label
Friend WithEvents txtStatBis_NCTSTR As TextBox
Friend WithEvents txtStatVon_NCTSTR As TextBox
Friend WithEvents Label70 As Label
Friend WithEvents Label71 As Label
Friend WithEvents cboBrg_NCTSTR As ComboBox
Friend WithEvents Label72 As Label
Friend WithEvents datBis_NCTSTR As DateTimePicker
Friend WithEvents Label73 As Label
Friend WithEvents Label74 As Label
Friend WithEvents datVon_NCTSTR As DateTimePicker
Friend WithEvents Label75 As Label
Friend WithEvents Button17 As Button
Friend WithEvents Label76 As Label
Friend WithEvents GroupBox11 As GroupBox
Friend WithEvents Button18 As Button
Friend WithEvents PictureBox10 As PictureBox
Friend WithEvents txtJahr_NCTSTR As NumericUpDown
Friend WithEvents cboMonat_NCTSTR As ComboBox
Friend WithEvents Label77 As Label
Friend WithEvents datAuswertBis_NCTSTR As DateTimePicker
Friend WithEvents Label78 As Label
Friend WithEvents Label79 As Label
Friend WithEvents Label80 As Label
Friend WithEvents datAuswertVon_NCTSTR As DateTimePicker
Friend WithEvents Label81 As Label
End Class

142
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -66,20 +66,24 @@ Public Class usrCntlZOLLAuswertungen
txtJahrATILLA.Value = Now.Year
txtJahrIMEX.Value = Now.Year
txtJahrAmbar.Value = Now.Year
txtJahr_NCTSTR.Value = Now.Year
cboMonatDurmaz.SelectedIndex = Now.AddMonths(-1).Month
cboMonatATILLA.SelectedIndex = Now.AddMonths(-1).Month
cboMonatIMEX.SelectedIndex = Now.AddMonths(-1).Month
cboMonatAmbar.SelectedIndex = Now.AddMonths(-1).Month
cboMonat_NCTSTR.SelectedIndex = Now.AddMonths(-1).Month
Dim d As Date = CDate("01." & Now.Month & "." & Now.Year)
datVon.Value = Now 'd.AddMonths(-3)
datBis.Value = Now.AddDays(3)
datBisDy.Value = Now.AddDays(3)
datUnispedBis.Value = Now.AddDays(3)
datVon_NCTSTR.Value = Now
datBis_NCTSTR.Value = Now.AddDays(3)
ComboBox1.Items.Clear()
ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
ComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG SUBEN", "SUB"))
@@ -156,6 +160,13 @@ Public Class usrCntlZOLLAuswertungen
cboBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrgDy.SelectedIndex = 0
cboBrg_NCTSTR.Items.Clear()
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
cboBrg_NCTSTR.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
cboBrg_NCTSTR.SelectedIndex = 0
End Select
cboBrgEZollTC.Items.Clear()
@@ -318,6 +329,31 @@ Public Class usrCntlZOLLAuswertungen
End If
End Sub
Private Sub Button17_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button17.Click
Dim sqlStr = ""
If cbxSplittungNachPos_NCTSTR.Checked Then
sqlStr = getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False)
Else
sqlStr = getSQL_NCTS_ATLAS_NCTS_TR(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False)
End If
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungTKontrolleDY(sqlStr, datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "")
If exportPDF = "" And exportEXCEL = "" Then
frmPrintLayout.Show()
Else
AddHandler frmPrintLayout.Viewer.LoadCompleted, Sub()
If exportPDF <> "" Then ExportToPDF(frmPrintLayout.Viewer.Document, exportPDF)
If exportEXCEL <> "" Then ExportToExcel(frmPrintLayout.Viewer.Document, exportEXCEL)
End Sub
End If
End Sub
Function getSQL_NCTS_ATLAS_DY(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
@@ -354,6 +390,41 @@ Public Class usrCntlZOLLAuswertungen
End Function
Function getSQL_NCTS_ATLAS_NCTS_TR(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
brg = " AND nctsSA_GRN = '" & brg & "' "
Else
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
brg = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
End If
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Eroeffnung as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as Gestellungsdatum,isnull(nctsSA_AbgabenBetrag,0) as [Sichertheits-Betrag], isnull(nctsSA_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ",(SELECT COUNT(*) FROM tblNCTS_TR_Warenposition where nctsWP_NctsId=ncts_Id) as POS"
If anrechnungsZP Then sqlStr &= ", ncts_Ankunft as AnrechnungRef"
sqlStr &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId"
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
Return sqlStr
End Function
Function getSQL_NCTS_ATLAS_DY_POS(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
@@ -391,6 +462,41 @@ Public Class usrCntlZOLLAuswertungen
End Function
Function getSQL_NCTS_ATLAS_NCTS_TR_POS(datVon As Date, datBis As Date, StatVon As String, Statbis As String, brg As String, nl As String, Optional anrechnungsZP As Boolean = False, Optional showANR As Boolean = True)
If brg <> "" Then
brg = " AND nctsSA_GRN = '" & brg & "' "
Else
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_AT_IMEX As String = "16AT520000G000VA6"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
brg = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_AT_IMEX & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
End If
' Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
Dim sqlStr = " SELECT '' as [Anzahl Verz], isnull(ncts_Status,'') as Status, '' as Niederlassung, isnull(ncts_ObjectName,'') as Bezugsnummer,'' as LfdNr,"
If showANR Then sqlStr &= " isnull(ncts_ANR,'') as ArbNr,"
sqlStr &= " isnull(ncts_Empfaenger_Name,'') as Empfaenger,isnull(ncts_MRN,'') as MRN,ncts_Eroeffnung as Antragsdatum,isnull(ncts_Bearbeiter,'') as Sachbearbeiter,[ncts_Wiedergestellungsdatum] as GestellungsFrist,[ncts_GestelltAm] as GestelltAm,isnull(nctsSA_AbgabenBetrag,0) as [SichertheitsBetrag], isnull(nctsSA_GRN,'') as Buergschaft "
'sql &= " ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
sqlStr &= ", [nctsWP_PositionsNummer] as POS, [nctsWP_Warenbezeichnung] as Warenbezeichnung"
If anrechnungsZP Then sqlStr &= ", ncts_Ankunft as AnrechnungRef"
sqlStr &= ", ncts_AbgangsDienststellennummer as BesAbgZA, ncts_BestimmungsstelleDienststellennummer as BestZA, [nctsWP_Rohmasse] as Rohmasse"
sqlStr &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId inner join tblNCTS_TR_Warenposition on ncts_Id = [nctsWP_NctsId]"
sqlStr &= " WHERE ncts_Status between '" & StatVon & "' and '" & Statbis & "' "
sqlStr &= " " & brg & " "
sqlStr &= " AND CAST(ncts_Wiedergestellungsdatum as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "' "
sqlStr &= " ORDER BY [ncts_Wiedergestellungsdatum] ASC "
Return sqlStr
End Function
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWDAKOSY(datVonATILLA.Text, datBisATILLA.Text, "DURMAZ")
@@ -506,6 +612,13 @@ Public Class usrCntlZOLLAuswertungen
datBisAmbar.Value = d.AddMonths(1).AddDays(-1)
End Sub
Private Sub Nctstr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMonat_NCTSTR.SelectedIndexChanged, txtJahr_NCTSTR.ValueChanged
If cboMonat_NCTSTR.SelectedIndex <= 0 Then Exit Sub
Dim d As Date = CDate("01." & (cboMonat_NCTSTR.SelectedIndex) & "." & txtJahr_NCTSTR.Text)
datAuswertVon_NCTSTR.Value = d
datAuswertBis_NCTSTR.Value = d.AddMonths(1).AddDays(-1)
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
Dim sqlStr = getSQL_NCTS_EZOLL_TELOTEC(datEZOLL_TC_Von.Value, datEZOLL_TC_Bis.Value, txtStatEZoll_TC_Von.Text, txtStatEZoll_TC_Bis.Text, cboBrgEZollTC._value)
@@ -559,4 +672,31 @@ Public Class usrCntlZOLLAuswertungen
End If
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
' MsgBox("Diese Auswertung ist noch nicht verfügbar!")
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKWZOLARIS(datVonDurmaz.Text, datBisDurmaz.Text, "DURMAZ")
frmPrintLayout.Show()
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
If cbxSplittungNachPos_NCTSTR.Checked Then
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_ncts_tr_POS(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(clearDTPosSiBetrag(dt))
End If
Else
Dim dt As DataTable = SQL.loadDgvBySql(getSQL_NCTS_ATLAS_NCTS_TR(datVon_NCTSTR.Text, datBis_NCTSTR.Text, txtStatVon_NCTSTR.Text, txtStatBis_NCTSTR.Text, DirectCast(cboBrg_NCTSTR.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value, "", cbxAnrechnungRefBetrag_NCTSTR.Checked, False), "FMZOLL")
If dt IsNot Nothing Then
cProgramFunctions.genExcelFromDT_NEW(dt)
End If
End If
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "MAVI")
frmPrintLayout.Show()
End Sub
End Class

2
SDLUPDATER/SDLUPDATER_Settings.txt
View File

@@ -1 +1 @@
F:\Programme\SDL\
\\share01\Programme\SDL\

2
SDLUPDATER/SDLUPDATER_Version.txt
View File

@@ -1 +1 @@
3.0
4.0

2
SDLUPDATER/UPDATERfrm.vb
View File

@@ -12,7 +12,7 @@
Dim F As String = "F:\Programme\SDL\" ' WDH TERM
Dim F As String = "\\share01\Programme\SDL\" ' WDH TERM
' Dim F As String = "\\192.168.0.91\f\Programme\SDL\" ' VERAG
' Dim F As String = "\\192.168.0.90\f\Programme\SDL\" 'DEVELOPER
' Dim F As String = "\\172.16.0.99\Daten\Programme\SDL\" ' ATILLA

95
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -172,7 +172,8 @@ Public Class cDatenbankAVISO
End If
Return GlobalConnection
Catch ex As Exception
MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message & ex.StackTrace)
End Try
Return Nothing
End Function
@@ -187,7 +188,8 @@ Public Class cDatenbankAVISO
End If
Return GlobalConnectionFMZOLL
Catch ex As Exception
MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & vbCrLf & vbNewLine & vbCrLf & "Fehler: " & ex.Message)
End Try
Return Nothing
End Function
@@ -213,7 +215,8 @@ Public Class cDatenbankAVISO
conn.Open()
Return conn
Catch ex As Exception
MsgBox("Es konnte keine Verbindung zur ADMIN-Datenbank aufgebaut werden." & vbCrLf & "connStr=" & cSqlDb.GetAVISOConnectionString & vbCrLf & "Fehler: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Es konnte keine Verbindung zur Datenbank aufgebaut werden!! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Es konnte keine Verbindung zur ADMIN-Datenbank aufgebaut werden." & vbCrLf & "connStr=" & cSqlDb.GetAVISOConnectionString & vbCrLf & "Fehler: " & ex.Message)
End Try
Return Nothing
End Function
@@ -242,7 +245,8 @@ Public Class cDatenbankAVISO
Return (conn)
End If
Catch ex As Exception
MsgBox("Fehler bei Datenbank öffnen." & vbCrLf & "connStr=" & cSqlDb.GetAVISOConnectionString & vbCrLf & "Fehler: " & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler bei Datenbank öffnen. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler bei Datenbank öffnen." & vbCrLf & "connStr=" & cSqlDb.GetAVISOConnectionString & vbCrLf & "Fehler: " & ex.Message)
Return Nothing
End Try
End Function
@@ -285,7 +289,8 @@ Public Class cADMIN
Try
If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion"))
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
Finally
dr.Close()
End Try
@@ -421,7 +426,8 @@ Public Class cADMIN
End Using
dr.Close()
Catch ex As Exception
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
End Try
Return ""
End Function
@@ -450,7 +456,8 @@ Public Class cADMIN
' End Using
Return o 'While Schleife wird hier verlassen
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
Return Nothing
@@ -485,7 +492,8 @@ Public Class cADMIN
Return o 'While Schleife wird hier verlassen
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
Return Nothing
@@ -517,7 +525,8 @@ Public Class cADMIN
Return s
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
'MsgBox("3")
Return ""
@@ -538,7 +547,8 @@ Public Class cADMIN
conn.Close()
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
Return False
End Function
@@ -597,7 +607,8 @@ Public Class cMitarbeiterAVISODAL
"Problem in Function 'Anzeigen_Mitarbeiter'")
If antwort <> MsgBoxResult.Retry Then
'Programm wird beendet
MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
Environment.Exit(0)
End If
End Try
@@ -624,7 +635,8 @@ Public Class cMitarbeiterAVISODAL
"Problem in Function 'Anzeigen_cboMitarbeiter'")
If antwort <> MsgBoxResult.Retry Then
'Programm wird beendet
MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
Environment.Exit(0)
End If
End Try
@@ -661,7 +673,8 @@ Public Class cMitarbeiterAVISODAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Mitarbeiterstamm")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden!" & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Mitarbeiterstamm")
End Try
End Using
conn.Close()
@@ -760,7 +773,8 @@ Public Class cFirmenDAL
"Problem in Function 'Anzeigen_Firmen'")
If antwort <> MsgBoxResult.Retry Then
'Programm wird beendet
MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
Environment.Exit(0)
End If
End Try
@@ -787,7 +801,8 @@ Public Class cFirmenDAL
"Problem in Function 'Anzeigen_cboFirma'")
If antwort <> MsgBoxResult.Retry Then
'Programm wird beendet
MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
Environment.Exit(0)
End If
End Try
@@ -1138,7 +1153,8 @@ Public Class cAvisoDAL
End Using
conn.Close()
Catch ex As Exception
MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'Suche_LKW'")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'Suche_LKW'")
End Try
Return Info
End Function
@@ -1179,7 +1195,8 @@ Public Class cAvisoDAL
' End Using
Return myTable 'While Schleife wird hier verlassen
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
End Try
Return Nothing
@@ -1209,7 +1226,8 @@ Public Class cAvisoDAL
conn.Close()
If antwort <> MsgBoxResult.Retry Then
'Programm wird beendet
MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
' Environment.Exit(0)
End If
End Try
@@ -1248,7 +1266,8 @@ Public Class cAvisoDAL
conn.Close()
If antwort <> MsgBoxResult.Retry Then
'Programm wird beendet
MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Programm wird aufgrund eines kritischen Problems beendet." & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
Environment.Exit(0)
End If
End Try
@@ -1268,7 +1287,8 @@ Public Class cAvisoDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler UpdateWarnstufe")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler UpdateWarnstufe")
End Try
End Using
conn.Close()
@@ -1284,7 +1304,8 @@ Public Class cAvisoDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler UpdateWarnstufe")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler UpdateWarnstufe")
End Try
End Using
conn.Close()
@@ -1308,7 +1329,8 @@ Public Class cAvisoDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Aenderungen")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Aenderungen")
End Try
End Using
conn.Close()
@@ -1412,7 +1434,8 @@ Public Class cAvisoDAL
End If
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Aviso")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Aviso")
End Try
End Using
conn.Close()
@@ -1447,7 +1470,8 @@ Public Class cAvisoDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datensatz kann nicht gespeichert werden! " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
Return False
End Try
@@ -1498,7 +1522,8 @@ Public Class cAvisoDAL
End If
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
Return False
End Try
@@ -1521,7 +1546,8 @@ Public Class cAvisoDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
Return False
End Try
@@ -1952,7 +1978,8 @@ Public Class cVermerkeDAL
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
conn.Close()
@@ -1971,7 +1998,7 @@ Public Class cVermerkeDAL
cmd.ExecuteNonQuery()
Return True
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
conn.Close()
@@ -1989,7 +2016,7 @@ Public Class cVermerkeDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
conn.Close()
@@ -2006,7 +2033,7 @@ Public Class cVermerkeDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
conn.Close()
@@ -2023,7 +2050,7 @@ Public Class cVermerkeDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
conn.Close()
@@ -2039,7 +2066,7 @@ Public Class cVermerkeDAL
Try
cmd.ExecuteNonQuery()
Catch ex As SqlException
MsgBox("Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
conn.Close()
@@ -2588,14 +2615,14 @@ Public Class Statistik
End Class
Public Class StatDB
Public Function getAnzahlLkwAnkunft(art As String, ByVal datTmp As Date, i As Integer, firma As String) As Integer
Public Function getAnzahlLkwAnkunft(art As String, ByVal datTmp As Date, i As Integer, firma As String, CLUSTER As String) As Integer
Dim lkws As Integer = 0
Try
Dim cn As New SqlConnection()
' cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
' cn.Open()
cn = cDatenbankAVISO.GetNewOpenConnection()
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis and AND Firma='" & If(firma <> "", firma, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' ", cn)
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [Aviso] where " & art & " between @DatVon and @DatBis " & If(firma <> "", " AND Firma='" & firma & "' ", "") & If(CLUSTER <> "", " AND CLUSTER='" & CLUSTER & "' ", "") & " ", cn)
'DATEADD(dd, 0, DATEDIFF(dd, 0, [Ankunft]))=DATEADD(dd, 0, DATEDIFF(dd, 0, [Freigabe])) AND
Dim VonStr = ""
Dim BisStr = ""

5
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -26,7 +26,7 @@
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDLConnectionString"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=sa;Password=BmWr501956;TrustServerCertificate=False" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
connectionString="Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString"
connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLAS_SBGConnectionString"
@@ -72,9 +72,6 @@
serializeAs="String">
<value>https://finanzonline.bmf.gv.at:443/fonws/ws/session</value>
</setting>
<setting name="asdasdasdasd" serializeAs="String">
<value>asdasdasd</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</applicationSettings>
</configuration>

170
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -121,7 +121,7 @@ Public Class SQL
Try
Return My.MySettings.Default.AVISOConnectionString
Catch ex As Exception
Return "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
End Try
End If
End If
@@ -139,11 +139,15 @@ Public Class SQL
Public Shared Function GetNewOpenConnectionSDL(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
'cn.ConnectionString = My.Resources.connStringSDL_DEV
' IMMER DIE AKTUELLE CONNECTION IN MY.SETTINGS ÄNDERN!!! --> WG. BINDING
cn.ConnectionString = GetSDLConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Try
cn.ConnectionString = GetSDLConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionUID(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
@@ -157,9 +161,16 @@ Public Class SQL
Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetADMINConnectionString()
cn.Open()
Return cn
Try
cn.ConnectionString = GetADMINConnectionString()
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
@@ -171,27 +182,52 @@ Public Class SQL
End Function
Public Shared Function GetNewOpenConnectionFMZOLL(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetFMZOLLConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Try
cn.ConnectionString = GetFMZOLLConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetWEBConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Try
cn.ConnectionString = GetWEBConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM As Boolean, Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetFMZOLLConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Try
cn.ConnectionString = GetFMZOLLConnectionString(TESTSYSTEM) & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionSCANCANON(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetSCANCANONConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Try
cn.ConnectionString = GetSCANCANONConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionATLAS() As SqlConnection
@@ -203,64 +239,104 @@ Public Class SQL
Public Shared Function GetNewOpenConnectionATLAS_SBG() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetATLAS_SBGConnectionString()
Try
cn.ConnectionString = GetATLAS_SBGConnectionString()
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionATLAS_SUBorSBG() As SqlConnection
Dim cn As New SqlConnection()
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "SBG" Then
cn.ConnectionString = GetATLAS_SBGConnectionString()
Else
cn.ConnectionString = GetATLASConnectionString()
End If
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "SBG" Then
cn.ConnectionString = GetATLAS_SBGConnectionString()
Else
cn.ConnectionString = GetATLASConnectionString()
End If
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionEZOLL() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetEZOLLConnectionString()
Try
cn.ConnectionString = GetEZOLLConnectionString()
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionAVISO() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetAVISOConnectionString()
Try
cn.ConnectionString = GetAVISOConnectionString()
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionDISPO() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = GetDISPOConnectionString()
Try
cn.ConnectionString = GetDISPOConnectionString()
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionAVISO_ATILLA() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = My.MySettings.Default.AVISO_ATILLAConnectionString
Try
cn.ConnectionString = My.MySettings.Default.AVISO_ATILLAConnectionString
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
cn.Open()
Return cn
End Function
Public Shared Function GetNewOpenConnectionFMZOLLREAL() As SqlConnection
Dim cn As New SqlConnection()
cn.ConnectionString = My.MySettings.Default.FMZOLL_PRODConnectionString
cn.Open()
Return cn
Try
cn.ConnectionString = My.MySettings.Default.FMZOLL_PRODConnectionString
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
@@ -474,7 +550,7 @@ Public Class SQL
Return defaultReturn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & conn.ConnectionString, System.Reflection.MethodInfo.GetCurrentMethod.Name & sql)
End Try
'MsgBox("3")
Return defaultReturn

2
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -170,7 +170,7 @@ Public Class cAdressen
'MsgBox(sqlstr)
Dim id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 2)
If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 2) '2.Versuch --> Oft Timeout wg.Fmzoll
If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list,,, False, 10) '2.Versuch --> Oft Timeout wg.Fmzoll
If id = -2 Then id = SQL.doSQLVarListID(AdressenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll
' Dim id = SQL.doSQLVarListID(, sqlstr, "FMZOLL", , list)

9
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
View File

@@ -74,8 +74,13 @@ Public Class cAvisoBenachrichtigungen
Return AB.SAVE
End Function
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID) As Boolean
Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID, onlytype) As Boolean
Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID & If(onlytype, " and ab_art='A' ", "")
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_SND([ab_SendungID], onlytype) As Boolean
Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE [ab_SendungID]=" & [ab_SendungID]
Return SQL.doSQL(sqlstr, "AVISO")
End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb
View File

@@ -242,7 +242,7 @@ Public Class cKunde
" commit tran "
' MsgBox(sqlstr)
Dim id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 2)
If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 2) '2.Versuch --> Oft Timeout wg.Fmzoll
If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list,,, False, 10) '2.Versuch --> Oft Timeout wg.Fmzoll
If id = -2 Then id = SQL.doSQLVarListID(KundenNr, sqlstr, "FMZOLL", , list) '3.Versuch --> Oft Timeout wg.Fmzoll
If id > 0 Then

28
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -84,6 +84,8 @@ Public Class cSendungen
Property tblSnd_Fakturiert As Object = Nothing
Property VORSYSTEM As Object = Nothing
Property VORSYSTEM_Id As Object = Nothing
Property tblSnd_FilialeAbklaerung As Object = Nothing
Public saveSachbearbeiter As Boolean = False
@@ -267,6 +269,7 @@ Public Class cSendungen
Me.tblSnd_DakosyRef = SQL.checkNullReturnValue(dr.Item("tblSnd_DakosyRef"), Nothing)
Me.tblSnd_TeamId = SQL.checkNullReturnValue(dr.Item("tblSnd_TeamId"), Nothing)
Me.tblSnd_Fakturiert = SQL.checkNullReturnValue(dr.Item("tblSnd_Fakturiert"), Nothing)
Me.tblSnd_FilialeAbklaerung = SQL.checkNullReturnValue(dr.Item("tblSnd_FilialeAbklaerung"), Nothing)
Me.VORSYSTEM = SQL.checkNullReturnValue(dr.Item("VORSYSTEM"), Nothing)
Me.VORSYSTEM_Id = SQL.checkNullReturnValue(dr.Item("VORSYSTEM_Id"), Nothing)
@@ -279,7 +282,8 @@ Public Class cSendungen
End Using
'Return Nothing
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
' Return Nothing
End Sub
@@ -314,7 +318,8 @@ Public Class cSendungen
'End Using
'Return Nothing
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
' Return Nothing
End Sub
@@ -346,7 +351,8 @@ Public Class cSendungen
'End Using
'Return Nothing
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
' Return Nothing
End Sub
@@ -433,6 +439,7 @@ Public Class cSendungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_DakosyRef", tblSnd_DakosyRef))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_TeamId", tblSnd_TeamId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Fakturiert", tblSnd_Fakturiert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_FilialeAbklaerung", tblSnd_FilialeAbklaerung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM", VORSYSTEM))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM_Id", VORSYSTEM_Id))
@@ -455,7 +462,8 @@ Public Class cSendungen
Return (" UPDATE [tblSendungen] SET " & str & " WHERE tblSnd_SendungID=@tblSnd_SendungID ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
@@ -476,7 +484,8 @@ Public Class cSendungen
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblSendungen (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
@@ -518,7 +527,8 @@ Public Class cSendungen
Return SQL.doSQL(" UPDATE [tblSendungen] SET tblSnd_SpeditionsbuchEingetragen=" & If(tblSnd_SpeditionsbuchEingetragen, 1, 0) & " WHERE tblSnd_SendungID=" & tblSnd_SendungID & " ", "AVISO")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
@@ -588,7 +598,8 @@ Public Class cSendungAbrechnung
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarList(" INSERT INTO [tblSendAbrechnung] (" & str & ") VALUES(" & values & ") ", "AVISO", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
@@ -654,7 +665,8 @@ Public Class cSendHandling
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarList(" INSERT INTO [tblSendHandling] (" & str & ") VALUES(" & values & ") ", "AVISO", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function

3
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -177,6 +177,7 @@ Public Class cSpeditionsbuch
Property FilialenNrHandling As Object = Nothing
Property HandlingZuKassieren As Double = 0
Property FilialenNrAbklaerung As Object = Nothing
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
@@ -335,6 +336,7 @@ Public Class cSpeditionsbuch
Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing)
Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing)
Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing)
Me.FilialenNrAbklaerung = SQL.checkNullReturnValue(dr.Item("FilialenNrAbklaerung"), Nothing)
Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
@@ -442,6 +444,7 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))

1
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -240,6 +240,7 @@ Public Class cUIDPruefung
UID_TMP.uid_UstIdKz = AD.UstIdKz
UID_TMP.uid_UstIdNr = AD.UstIdNr
UID_TMP.uid_stufe = 1
UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
UID_TMP.uid_abfrageUid = requesterCountryCode & requesterVatNumber
' UID.uid_firma =

3
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -197,6 +197,9 @@ Public Class cDATENSERVER
s = s.Replace("ı", "i")
s = s.Replace("€", "E")
s = s.Replace(",", ".")
s = s.Replace("^", "") ' Es gibt Ü, die so geschreiben werden: Ü ....
s = s.Replace("Ì", ".")
s = s.Replace("Ü", "U") ' .... das zum Beispiel

101
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -8,6 +8,8 @@ Public Class frmMessenger
Dim MSG_LISTENDER As New cMessangerListender
Dim topMessages As String = "20"
Dim loaded = False
Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
Public EMOJI_PATH = ""
Dim alloweasteregg = False
@@ -20,6 +22,37 @@ Public Class frmMessenger
End Sub
Sub initEMOJI_PATH()
EMOJI_PATH = EMOJI_PATH_MAIN
Try
Dim IPADDR As System.Net.IPAddress
IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0)
If IPADDR.ToString.Contains("172.16.1.") Then 'WAIDHAUS
EMOJI_PATH = "\\172.16.1.100\f\PROGRAMME\CHAT_EMOJIS\"
End If
If IPADDR.ToString.Contains("192.168.133.") Then 'SALZBURG
EMOJI_PATH = "\\192.168.133.98\f\Programme\CHAT_EMOJIS\"
End If
If IPADDR.ToString.Contains("192.168.32.") Then 'NICKELSDORF
EMOJI_PATH = "\\192.168.32.253\Files\Programme\CHAT_EMOJIS\"
End If
If IPADDR.ToString.Contains("192.168.100") Then 'NEUHAUS
EMOJI_PATH = "\\192.168.100.20\Share\Programme\CHAT_EMOJIS\"
End If
If Not IO.Directory.Exists(EMOJI_PATH) Then
EMOJI_PATH = EMOJI_PATH_MAIN
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick
If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
Dim dgv_ChatID = If(dgvChats.SelectedRows.Count > 0, dgvChats.SelectedRows(0).Cells("chat_id").Value, -1)
@@ -38,6 +71,8 @@ Public Class frmMessenger
End Sub
Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
initEMOJI_PATH()
rtbChatMessage.AllowDrop = True
MSG_LISTENDER.START()
TimerNEW_MESSAGE.Enabled = True
@@ -56,8 +91,12 @@ Public Class frmMessenger
FlowLayoutPanel.Controls.Clear()
If alloweasteregg Then pic.Visible = False
If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
For Each a In IO.Directory.GetFiles(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") '.OrderBy(Function(f) f)
' If IO.Directory.Exists(My.Application.roo "") Then
If IO.Directory.Exists(EMOJI_PATH) Then
For Each a In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
If alloweasteregg Or Not a.Contains("easteregg") Then
If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
@@ -81,38 +120,38 @@ Public Class frmMessenger
End If
End Sub
Sub initEmojisTEST()
FlowLayoutPanel.Controls.Clear()
If alloweasteregg Then pic.Visible = False
'Sub initEmojisTEST()
' FlowLayoutPanel.Controls.Clear()
' If alloweasteregg Then pic.Visible = False
If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\"
If Not IO.Directory.Exists(EmojiPath) Then IO.Directory.CreateDirectory(EmojiPath)
' If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
' Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\"
' If Not IO.Directory.Exists(EmojiPath) Then IO.Directory.CreateDirectory(EmojiPath)
If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then
For Each a In IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
If alloweasteregg Or Not a.Contains("easteregg") Then
If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
' If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then
' For Each a In IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
' If alloweasteregg Or Not a.Contains("easteregg") Then
' If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
Dim p As New PictureBox
p.Size = New Size(40, 40)
p.BackgroundImage = Image.FromFile(a)
p.BackgroundImageLayout = ImageLayout.Zoom
p.Cursor = Cursors.Hand
AddHandler p.Click, Sub()
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
If CHAT IsNot Nothing Then
saveEmoji(a)
End If
End Sub
' Dim p As New PictureBox
' p.Size = New Size(40, 40)
' p.BackgroundImage = Image.FromFile(a)
' p.BackgroundImageLayout = ImageLayout.Zoom
' p.Cursor = Cursors.Hand
' AddHandler p.Click, Sub()
' If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
' If CHAT IsNot Nothing Then
' saveEmoji(a)
' End If
' End Sub
FlowLayoutPanel.Controls.Add(p)
End If
End If
Next
End If
End If
End Sub
' FlowLayoutPanel.Controls.Add(p)
' End If
' End If
' Next
' End If
' End If
'End Sub
Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True)
With dgvChats
@@ -278,7 +317,7 @@ Public Class frmMessenger
Case "EMOJI"
Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(MSG)
Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(Me, MSG)
checkUsrId(MSG, CHAT_ITEM)
' CHAT_ITEM.path = MSG.chatMg_text
' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text

22
VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb
View File

@@ -3,7 +3,7 @@
Public Class usrCntlMessenger_ChatEmoji
Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
Dim frmM As frmMessenger
'Public FI As String = ""
Sub New()
@@ -15,13 +15,13 @@ Public Class usrCntlMessenger_ChatEmoji
End Sub
Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
Sub New(frmM As frmMessenger, CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.CHAT_MSG = CHAT_MSG
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.frmM = frmM
End Sub
Sub setBgCOLOR(BG_COLOR)
' Me.BG_COLOR = BG_COLOR
@@ -36,9 +36,21 @@ Public Class usrCntlMessenger_ChatEmoji
Sub init()
If CHAT_MSG IsNot Nothing Then
' txtChatmessage.Text = CHAT_MSG.chatMg_text
Try
pic.BackgroundImage = Image.FromFile(CHAT_MSG.chatMg_text)
Dim imgPath = CHAT_MSG.chatMg_text
Try
'Dim frmM As frmMessenger = DirectCast(Me.Parent, frmMessenger)
If frmM.EMOJI_PATH <> frmM.EMOJI_PATH_MAIN Then
If IO.File.Exists(imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)) Then
imgPath = imgPath.Replace(frmM.EMOJI_PATH_MAIN, frmM.EMOJI_PATH)
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Try
pic.BackgroundImage = Image.FromFile(imgPath)
pic.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom
Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)

25
VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb generated
View File

@@ -109,12 +109,12 @@ Namespace My
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa"& _
"lse;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=20"& _
"0")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa" &
"lse;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=20" &
"0")>
Public ReadOnly Property AVISOConnectionString() As String
Get
Return CType(Me("AVISOConnectionString"),String)
@@ -136,8 +136,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=fa"& _
"lse;User ID=sa;Password=BmWr501956;")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f"& _
"alse;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property EZOLLConnectionString() As String
Get
Return CType(Me("EZOLLConnectionString"),String)
@@ -291,15 +291,6 @@ Namespace My
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("asdasdasd")> _
Public ReadOnly Property asdasdasdasd() As String
Get
Return CType(Me("asdasdasdasd"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _

7
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -54,9 +54,9 @@
<Setting Name="EZOLLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
<Value Profile="(Default)">Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="AVISOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
@@ -125,9 +125,6 @@
<Setting Name="asdadasdasdasdasdasd" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="asdasdasdasd" Type="System.String" Scope="Application">
<Value Profile="(Default)">asdasdasd</Value>
</Setting>
<Setting Name="AVISO_ATILLAConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;

6
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb
View File

@@ -80,7 +80,7 @@ End Class
Public Class cVERAG_in_TRAviso_document
Public Property DocumentType As String = ""
Public Property DocmentNr As String = ""
Public Property DocumentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
Public Property base64BinaryStream As String = ""
Public Property FileName As String = ""
@@ -332,7 +332,7 @@ Public Class cVERAG_in_TRAvisoAnhaenge
Property trAvAh_id As Integer
Property trAvAh_trAvId As Integer
Property DocumentType As String = ""
Property DocmentNr As String = ""
Property DocumentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property trAvAh_docID As Integer
@@ -348,7 +348,7 @@ Public Class cVERAG_in_TRAvisoAnhaenge
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_id", trAvAh_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_trAvId", trAvAh_trAvId)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DocumentType)) ' DATETIME Default (getdate()) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DocmentNr)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DocumentNr)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DocumentDate)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_docID", trAvAh_docID)) ' VARCHAR(500) Not NULL,

44
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb
View File

@@ -32,9 +32,12 @@ Public Class cVERAG_in_eza_FULL
Sub New(EZA As cVERAG_in_eza)
Me.EZA = EZA
setEZA(EZA)
End Sub
Public Sub setEZA(EZA As cVERAG_in_eza)
Me.EZA = EZA
End Sub
Sub New(shTr_id As Integer)
Me.shTr_id = shTr_id
Me.EZA = New cVERAG_in_eza
@@ -121,6 +124,9 @@ Public Class cVERAG_in_eza_FULL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfPackages", POS.KindOfPackages))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceAmount", POS.ItemInvoiceAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceCurrency", POS.ItemInvoiceCurrency))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmount", POS.ItemAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmountUnitCode", POS.ItemAmountUnitCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Procedure", POS.Procedure))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_ShTrId", Me.shTr_id,,,, True))
@@ -135,7 +141,7 @@ Public Class cVERAG_in_eza_FULL
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_id", Me.shTr_id,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_ShTrId", Me.shTr_id))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DOC.DocmentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_docID", DOC.shTrPosDoc_docID))
@@ -176,7 +182,7 @@ Public Class cVERAG_in_eza_FULL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DOC.DocmentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrId", Me.shTr_id,,,, True))
@@ -395,9 +401,9 @@ Public Class cVERAG_in_eza_FULL
For Each i In getParameterList_ADR(l)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
@@ -457,9 +463,9 @@ Public Class cVERAG_in_eza_FULL
For Each i In getParameterList_DOC(l, -1)
If Not i.isonlyForSave Then
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
End If
@@ -565,7 +571,9 @@ Public Class cVERAG_in_eza_FULL
'jetzt die Standartofferten einfügen
If POS.DOCUMENTS IsNot Nothing Then
For Each p In POS.DOCUMENTS
If INSERT_Position_Document(posId, p) Then
Dim posdocId As Integer
If INSERT_Position_Document(posdocId, p, posId) Then
Else
Return False
End If
@@ -637,7 +645,7 @@ Public Class cVERAG_in_eza_FULL
Public Function INSERT_Position_Document(ByRef posId As Integer, ByRef DOC As cVERAG_in_eza_position_document) As Boolean
Public Function INSERT_Position_Document(ByRef posdocId As Integer, ByRef DOC As cVERAG_in_eza_position_document, posId As Integer) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC, posId)
Dim str As String = ""
@@ -650,7 +658,12 @@ Public Class cVERAG_in_eza_FULL
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
SQL.doSQL("insert into tbltest (test) Values('TT:: " & (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") ") & "')", "FMZOLL")
Return SQL.doSQLVarListID(posdocId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
@@ -757,6 +770,9 @@ Public Class cVERAG_in_eza_position
Public Property KindOfPackages As String = ""
Public Property ItemInvoiceAmount As Object = Nothing
Public Property ItemInvoiceCurrency As String = ""
Public Property ItemAmount As Object = Nothing
Public Property ItemAmountUnitCode As String = ""
Public Property Procedure As String = ""
Public Property DOCUMENTS As New List(Of cVERAG_in_eza_position_document)
@@ -768,7 +784,7 @@ End Class
Public Class cVERAG_in_eza_position_document
Public Property DocumentType As String = ""
Public Property DocmentNr As String = ""
Public Property DocumentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
End Class
@@ -777,7 +793,7 @@ Public Class cVERAG_in_shipment_Document
Property shTrDoc_id As Integer
Property shTrDoc_ShTrId As Integer
Property DocumentType As String = ""
Property DocmentNr As String = ""
Property DocumentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property shTrPosDoc_docID As Object = Nothing

4
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -303,6 +303,7 @@
<Compile Include="Classes\cKundenAufschubkonten.vb" />
<Compile Include="Classes\cKundenDatenblatt.vb" />
<Compile Include="Classes\cKundenKontakte.vb" />
<Compile Include="Classes\cKundenSDL.vb" />
<Compile Include="Classes\cLanguageText.vb" />
<Compile Include="Classes\cMessangerListender.vb" />
<Compile Include="Classes\cMessenger.vb" />
@@ -314,6 +315,7 @@
<Compile Include="Classes\cRechnungsausgang.vb" />
<Compile Include="Classes\cRechnungsnummern.vb" />
<Compile Include="Classes\cSDL.vb" />
<Compile Include="Classes\cSDL_LKW.vb" />
<Compile Include="Classes\cSendMailAttach.vb" />
<Compile Include="Classes\cSession.vb" />
<Compile Include="Classes\cSMS.vb" />
@@ -329,6 +331,7 @@
<Compile Include="Classes\cZollArtikel.vb" />
<Compile Include="Classes\SendFileTo.vb" />
<Compile Include="Classes\USTV\cUSTVAntrag.vb" />
<Compile Include="Classes\_BASE.vb" />
<Compile Include="cProgramFunktions.vb" />
<Compile Include="DATENSERVER\cDATENSERVER.vb" />
<Compile Include="cFMZOLL_Personal.vb" />
@@ -838,6 +841,7 @@
<ItemGroup>
<None Include="Resources\Verag-Spedition-GMBH-Logo.png" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<ProjectExtensions />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.

14
VERAG_PROG_ALLGEMEIN/Web.config
View File

@@ -11,18 +11,18 @@
<connectionStrings>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLASConnectionString" connectionString="Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ADMINConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDL_PRODConnectionString" connectionString="Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FMZOLLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISOConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SDLConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=sa;Password=BmWr501956;TrustServerCertificate=False"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.EZOLLConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.AVISO_ATILLAConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.ATLAS_SBGConnectionString" connectionString="Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UIDConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UID_PRODConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FDConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.UID_PRODConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FDConnectionString" connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.FD_PRODConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;"/>
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.DISPOConnectionStringTEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" providerName=""/>
</connectionStrings>
@@ -38,7 +38,7 @@
<value/>
</setting>
<setting name="DISPOConnectionString" serializeAs="String">
<value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</value>
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</userSettings>

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -14,7 +14,7 @@ Public Class cAllgemein
' Public Shared AVISO_SERVER As String = "[BUCHHALTUNG\SQLEXPRESS]"
'Public Shared AVISO_SERVER As String = "[SQL01.verag.ost.dmn\VERAG]"
'Public Shared AVISO_SERVER As String = "[SQLGUIDE.verag.ost.dmn\VERAG]"
Public Shared AVISO_SERVER As String = "[SQLGUIDE01.verag.ost.dmn\SQLEXPRESS]"
Public Shared AVISO_SERVER As String = "[SQLGUIDE01.verag.ost.dmn]" '"[SQLGUIDE01.verag.ost.dmn]"
'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb"
Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb"

2
VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
View File

@@ -6,7 +6,7 @@ Public Class cErrorHandler
If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW)
Select Case OP
Case ERROR_OP.MAIL
sendERRORperMail(title, message, stack, mailadess, zusatz, functionName)
sendERRORperMail(title & " | " & My.Application.Info.AssemblyName, message, stack, mailadess, zusatz, functionName)
Case ERROR_OP.SHOW
'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler"))