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

Merge: Routen, AVISO-Ansicht

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-10-10 14:10:47 +02:00
parent b44f5efd69 fe6bcdb8eb
commit 4dcbcbab96
12 changed files with 7951 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Aviso/Aviso.vbproj
View File

@@ -534,6 +534,18 @@
<Compile Include="frmFreigabeSetzenAnhaenge.vb"> <Compile Include="frmFreigabeSetzenAnhaenge.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmNCTSRouten.Designer.vb">
<DependentUpon>frmNCTSRouten.vb</DependentUpon>
</Compile>
<Compile Include="frmNCTSRouten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmRoutendauerBerechnen.Designer.vb">
<DependentUpon>frmRoutendauerBerechnen.vb</DependentUpon>
</Compile>
<Compile Include="frmRoutendauerBerechnen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSndVorgeschriebenSetzen.Designer.vb"> <Compile Include="frmSndVorgeschriebenSetzen.Designer.vb">
<DependentUpon>frmSndVorgeschriebenSetzen.vb</DependentUpon> <DependentUpon>frmSndVorgeschriebenSetzen.vb</DependentUpon>
</Compile> </Compile>
@@ -1047,6 +1059,12 @@
<EmbeddedResource Include="frmFreigabeSetzenAnhaenge.resx"> <EmbeddedResource Include="frmFreigabeSetzenAnhaenge.resx">
<DependentUpon>frmFreigabeSetzenAnhaenge.vb</DependentUpon> <DependentUpon>frmFreigabeSetzenAnhaenge.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNCTSRouten.resx">
<DependentUpon>frmNCTSRouten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmRoutendauerBerechnen.resx">
<DependentUpon>frmRoutendauerBerechnen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSndVorgeschriebenSetzen.resx"> <EmbeddedResource Include="frmSndVorgeschriebenSetzen.resx">
<DependentUpon>frmSndVorgeschriebenSetzen.vb</DependentUpon> <DependentUpon>frmSndVorgeschriebenSetzen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

47
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -75,6 +75,7 @@ Partial Class frmEintragAviso
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblAktenuebersicht = New System.Windows.Forms.Label() Me.lblAktenuebersicht = New System.Windows.Forms.Label()
Me.grpAviso = New System.Windows.Forms.GroupBox() Me.grpAviso = New System.Windows.Forms.GroupBox()
Me.cbxEintreffenAus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblTeamFraechter = New System.Windows.Forms.Label() Me.lblTeamFraechter = New System.Windows.Forms.Label()
Me.lblTeamAvisierer = New System.Windows.Forms.Label() Me.lblTeamAvisierer = New System.Windows.Forms.Label()
Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -82,7 +83,7 @@ Partial Class frmEintragAviso
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.lblErr_KdNr = New System.Windows.Forms.Label() Me.lblErr_KdNr = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button() Me.btnStreckendauerBerechnen = New System.Windows.Forms.Button()
Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label() Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
Me.txtAvisiererAuftragsNr = New System.Windows.Forms.TextBox() Me.txtAvisiererAuftragsNr = New System.Windows.Forms.TextBox()
Me.lblAvisiererAtrNr = New System.Windows.Forms.Label() Me.lblAvisiererAtrNr = New System.Windows.Forms.Label()
@@ -728,6 +729,7 @@ Partial Class frmEintragAviso
' '
'grpAviso 'grpAviso
' '
Me.grpAviso.Controls.Add(Me.cbxEintreffenAus)
Me.grpAviso.Controls.Add(Me.lblTeamFraechter) Me.grpAviso.Controls.Add(Me.lblTeamFraechter)
Me.grpAviso.Controls.Add(Me.lblTeamAvisierer) Me.grpAviso.Controls.Add(Me.lblTeamAvisierer)
Me.grpAviso.Controls.Add(Me.cboTransportmittelart) Me.grpAviso.Controls.Add(Me.cboTransportmittelart)
@@ -735,7 +737,7 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.PictureBox1) Me.grpAviso.Controls.Add(Me.PictureBox1)
Me.grpAviso.Controls.Add(Me.Button1) Me.grpAviso.Controls.Add(Me.Button1)
Me.grpAviso.Controls.Add(Me.lblErr_KdNr) Me.grpAviso.Controls.Add(Me.lblErr_KdNr)
Me.grpAviso.Controls.Add(Me.Button5) Me.grpAviso.Controls.Add(Me.btnStreckendauerBerechnen)
Me.grpAviso.Controls.Add(Me.lblErrVorraussuchtlEintreffen) Me.grpAviso.Controls.Add(Me.lblErrVorraussuchtlEintreffen)
Me.grpAviso.Controls.Add(Me.txtAvisiererAuftragsNr) Me.grpAviso.Controls.Add(Me.txtAvisiererAuftragsNr)
Me.grpAviso.Controls.Add(Me.lblAvisiererAtrNr) Me.grpAviso.Controls.Add(Me.lblAvisiererAtrNr)
@@ -788,6 +790,17 @@ Partial Class frmEintragAviso
Me.grpAviso.TabStop = False Me.grpAviso.TabStop = False
Me.grpAviso.Text = "Aviso" Me.grpAviso.Text = "Aviso"
' '
'cbxEintreffenAus
'
Me.cbxEintreffenAus._allowedValuesFreiText = Nothing
Me.cbxEintreffenAus._allowFreiText = True
Me.cbxEintreffenAus._value = ""
Me.cbxEintreffenAus.FormattingEnabled = True
Me.cbxEintreffenAus.Location = New System.Drawing.Point(218, 99)
Me.cbxEintreffenAus.Name = "cbxEintreffenAus"
Me.cbxEintreffenAus.Size = New System.Drawing.Size(81, 21)
Me.cbxEintreffenAus.TabIndex = 51
'
'lblTeamFraechter 'lblTeamFraechter
' '
Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
@@ -878,17 +891,16 @@ Partial Class frmEintragAviso
Me.lblErr_KdNr.Text = "Kunden-Nummer eingeben!" Me.lblErr_KdNr.Text = "Kunden-Nummer eingeben!"
Me.lblErr_KdNr.Visible = False Me.lblErr_KdNr.Visible = False
' '
'Button5 'btnStreckendauerBerechnen
' '
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnStreckendauerBerechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.btnStreckendauerBerechnen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button5.Location = New System.Drawing.Point(272, 48) Me.btnStreckendauerBerechnen.Location = New System.Drawing.Point(279, 45)
Me.Button5.Name = "Button5" Me.btnStreckendauerBerechnen.Name = "btnStreckendauerBerechnen"
Me.Button5.Size = New System.Drawing.Size(119, 21) Me.btnStreckendauerBerechnen.Size = New System.Drawing.Size(118, 21)
Me.Button5.TabIndex = 7 Me.btnStreckendauerBerechnen.TabIndex = 7
Me.Button5.Text = "Berechnen" Me.btnStreckendauerBerechnen.Text = "Berechnen"
Me.Button5.UseVisualStyleBackColor = True Me.btnStreckendauerBerechnen.UseVisualStyleBackColor = True
Me.Button5.Visible = False
' '
'lblErrVorraussuchtlEintreffen 'lblErrVorraussuchtlEintreffen
' '
@@ -896,9 +908,9 @@ Partial Class frmEintragAviso
Me.lblErrVorraussuchtlEintreffen.ForeColor = System.Drawing.Color.Red Me.lblErrVorraussuchtlEintreffen.ForeColor = System.Drawing.Color.Red
Me.lblErrVorraussuchtlEintreffen.Location = New System.Drawing.Point(147, 69) Me.lblErrVorraussuchtlEintreffen.Location = New System.Drawing.Point(147, 69)
Me.lblErrVorraussuchtlEintreffen.Name = "lblErrVorraussuchtlEintreffen" Me.lblErrVorraussuchtlEintreffen.Name = "lblErrVorraussuchtlEintreffen"
Me.lblErrVorraussuchtlEintreffen.Size = New System.Drawing.Size(244, 13) Me.lblErrVorraussuchtlEintreffen.Size = New System.Drawing.Size(250, 13)
Me.lblErrVorraussuchtlEintreffen.TabIndex = 8 Me.lblErrVorraussuchtlEintreffen.TabIndex = 8
Me.lblErrVorraussuchtlEintreffen.Text = "Datum kann icht kleiner als Erfassungsdatum sein!" Me.lblErrVorraussuchtlEintreffen.Text = "Datum kann nicht kleiner als Erfassungsdatum sein!"
Me.lblErrVorraussuchtlEintreffen.Visible = False Me.lblErrVorraussuchtlEintreffen.Visible = False
' '
'txtAvisiererAuftragsNr 'txtAvisiererAuftragsNr
@@ -1323,9 +1335,9 @@ Partial Class frmEintragAviso
' '
Me.datVoraussichtlichesEintreffen.CustomFormat = "dd.MM.yyyy" Me.datVoraussichtlichesEintreffen.CustomFormat = "dd.MM.yyyy"
Me.datVoraussichtlichesEintreffen.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.datVoraussichtlichesEintreffen.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.datVoraussichtlichesEintreffen.Location = New System.Drawing.Point(177, 48) Me.datVoraussichtlichesEintreffen.Location = New System.Drawing.Point(171, 47)
Me.datVoraussichtlichesEintreffen.Name = "datVoraussichtlichesEintreffen" Me.datVoraussichtlichesEintreffen.Name = "datVoraussichtlichesEintreffen"
Me.datVoraussichtlichesEintreffen.Size = New System.Drawing.Size(89, 20) Me.datVoraussichtlichesEintreffen.Size = New System.Drawing.Size(96, 20)
Me.datVoraussichtlichesEintreffen.TabIndex = 6 Me.datVoraussichtlichesEintreffen.TabIndex = 6
Me.datVoraussichtlichesEintreffen.Value = New Date(2020, 1, 23, 0, 0, 0, 0) Me.datVoraussichtlichesEintreffen.Value = New Date(2020, 1, 23, 0, 0, 0, 0)
Me.datVoraussichtlichesEintreffen.Visible = False Me.datVoraussichtlichesEintreffen.Visible = False
@@ -2009,7 +2021,7 @@ Partial Class frmEintragAviso
Friend WithEvents txtAvisiererAuftragsNr As TextBox Friend WithEvents txtAvisiererAuftragsNr As TextBox
Friend WithEvents lblAvisiererAtrNr As Label Friend WithEvents lblAvisiererAtrNr As Label
Friend WithEvents lblErrVorraussuchtlEintreffen As Label Friend WithEvents lblErrVorraussuchtlEintreffen As Label
Friend WithEvents Button5 As Button Friend WithEvents btnStreckendauerBerechnen As Button
Friend WithEvents lblVoraussEintreff As Label Friend WithEvents lblVoraussEintreff As Label
Friend WithEvents datVoraussichtlichesEintreffen As DateTimePicker Friend WithEvents datVoraussichtlichesEintreffen As DateTimePicker
Friend WithEvents columnName As DataGridViewTextBoxColumn Friend WithEvents columnName As DataGridViewTextBoxColumn
@@ -2025,4 +2037,5 @@ Partial Class frmEintragAviso
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents lblTeamFraechter As Label Friend WithEvents lblTeamFraechter As Label
Friend WithEvents lblTeamAvisierer As Label Friend WithEvents lblTeamAvisierer As Label
Friend WithEvents cbxEintreffenAus As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class End Class

6
Aviso/frmEintragAviso.resx
View File

@@ -216,6 +216,12 @@
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

28
Aviso/frmEintragAviso.vb
View File

@@ -2,7 +2,8 @@
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports System.Data.OleDb Imports System.Data.OleDb
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Drawing.Printing Imports System.Drawing.Printing
Imports System.Linq.Expressions
Public Class frmEintragAviso Public Class frmEintragAviso
' Public frmHilf As frmMain ' Public frmHilf As frmMain
@@ -527,6 +528,7 @@ Public Class frmEintragAviso
dtpAvisoEingangZeit.Enabled = bearb dtpAvisoEingangZeit.Enabled = bearb
End If End If
'cbxEintreffenAus.fillWithSQL("SELECT [nctsr_dauer_in_tagen], [nctsr_von] FROM [tblNTCSRouten] ", False, "FMZOLL", False)
initAttachment() initAttachment()
@@ -1836,4 +1838,28 @@ Public Class frmEintragAviso
End Sub End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnStreckendauerBerechnen.Click
Dim destination As String = ""
If cboGrenzstelle._value = "???" AndAlso txtBestimmungszollstelle._value IsNot "" Then
destination = txtBestimmungszollstelle._value
Else
destination = cboGrenzstelle._value
End If
If destination Is "" Or destination Is Nothing Then
MsgBox("Zur Berechnung muss vorher eine Grenzstelle/Zollstelle ausgewählt werden!")
Else
Dim frmRouteBerechnen = New frmRoutendauerBerechnen(destination)
If frmRouteBerechnen.ShowDialog() = DialogResult.OK Then
datVoraussichtlichesEintreffen.Value = frmRouteBerechnen.calculatedDate
End If
End If
End Sub
End Class End Class

10
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -71,6 +71,7 @@ Partial Class frmHauptfenster
Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AlleStatusMailsSchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AlleStatusMailsSchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -558,7 +559,7 @@ Partial Class frmHauptfenster
' '
'AdministrationToolStripMenuItem 'AdministrationToolStripMenuItem
' '
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem}) Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem, Me.AlleStatusMailsSchickenToolStripMenuItem, Me.RoutenverwaltungToolStripMenuItem})
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(184, 22) Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
Me.AdministrationToolStripMenuItem.Text = "Administration" Me.AdministrationToolStripMenuItem.Text = "Administration"
@@ -642,6 +643,12 @@ Partial Class frmHauptfenster
Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22) Me.AlleStatusMailsSchickenToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken" Me.AlleStatusMailsSchickenToolStripMenuItem.Text = "Alle Status Mails schicken"
' '
'RoutenverwaltungToolStripMenuItem
'
Me.RoutenverwaltungToolStripMenuItem.Name = "RoutenverwaltungToolStripMenuItem"
Me.RoutenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.RoutenverwaltungToolStripMenuItem.Text = "Routenverwaltung"
'
'ToolStripSeparator4 'ToolStripSeparator4
' '
Me.ToolStripSeparator4.Name = "ToolStripSeparator4" Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -2015,6 +2022,7 @@ Partial Class frmHauptfenster
Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3) Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
Me.SplitContainer2.Size = New System.Drawing.Size(815, 300) Me.SplitContainer2.Size = New System.Drawing.Size(815, 300)
Me.SplitContainer2.SplitterDistance = 164 Me.SplitContainer2.SplitterDistance = 164
Me.SplitContainer2.SplitterDistance = 111
Me.SplitContainer2.SplitterWidth = 1 Me.SplitContainer2.SplitterWidth = 1
Me.SplitContainer2.TabIndex = 0 Me.SplitContainer2.TabIndex = 0
' '

198
Aviso/frmHauptfenster.vb
View File

@@ -1161,32 +1161,32 @@ Public Class frmHauptfenster
" when [Status] =1 then 5 " & " when [Status] =1 then 5 " &
" else 1 " & " else 1 " &
" END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID") " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
End If End If
'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " & 'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
' " FROM Aviso " & ' " FROM Aviso " &
' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " & ' " WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
' " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " & ' " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " &
' "ORDER BY case " & ' "ORDER BY case " &
' " when [Status] =3 then 0 " & ' " when [Status] =3 then 0 " &
' " when [Status] =0 then 1 " & ' " when [Status] =0 then 1 " &
' " when [Status] =99 then 2 " & ' " when [Status] =99 then 2 " &
' " when [Status] =4 then 3 " & ' " when [Status] =4 then 3 " &
' " when [Status] =1 then 4 " & ' " when [Status] =1 then 4 " &
' " when [Status] =5 then 4 " & ' " when [Status] =5 then 4 " &
' " when [Status] =0 then 5 " & ' " when [Status] =0 then 5 " &
' " END, Ankunft" ' " END, Ankunft"
'Public Const Status_Erfasst = 0 'Public Const Status_Erfasst = 0
'Public Const Status_Vorbereitet = 4 'Public Const Status_Vorbereitet = 4
'Public Const Status_Vorgeschrieben = 5 'Public Const Status_Vorgeschrieben = 5
'Public Const Status_Freigegeben = 1 'Public Const Status_Freigegeben = 1
'Public Const Status_NichtEingetroffen = 2 'Public Const Status_NichtEingetroffen = 2
'Public Const Status_Ankunft = 3 'Public Const Status_Ankunft = 3
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts... If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...
@@ -4129,6 +4129,14 @@ Public Class frmHauptfenster
Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html") Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html")
End Sub End Sub
Private Sub RoutenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RoutenverwaltungToolStripMenuItem.Click
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
Dim f As New frmNCTSRouten()
f.ShowDialog(Me)
End Sub
Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
@@ -4579,64 +4587,64 @@ Public Class AvisoStatusFunctions
If GrenzstelleMail = "" And art <> 5 Then If GrenzstelleMail = "" And art <> 5 Then
'---------------------------------------- '----------------------------------------
Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL! Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
If GrenzstelleMail <> "" Then
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
If Not IsNothing(Standort) Then
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO" End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
If GrenzstelleMail <> "" Then Dim anhaenge As New List(Of String)
Dim Standort As New cStandort hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
If Not IsNothing(Standort) Then
Select Case art
Case 1, 3
If Standort.eMail_Ankunft_Betreff <> "" Then
hBetreff = Standort.eMail_Ankunft_Betreff
hBody = Standort.eMail_Ankunft_Text
End If
Case 2, 4
If Standort.eMail_Freigabe_Betreff <> "" Then
hBetreff = Standort.eMail_Freigabe_Betreff
hBody = Standort.eMail_Freigabe_Text
End If
Case 5
If Standort.eMail_Status_Betreff <> "" Then
hBetreff = Standort.eMail_Status_Betreff
hBody = Standort.eMail_Status_Text
End If
End Select
End If
End If
Dim anhaenge As New List(Of String)
hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
hBody = hBody.Replace("%0", "<br>") hBody = hBody.Replace("%0", "<br>")
hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht! hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX" 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
' Case "VERAG" ' Case "VERAG"
' Case "UNISPED" ' Case "UNISPED"
' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz ' hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
'End Select 'End Select
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId) Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
API.api_EMail = EMails API.api_EMail = EMails
API.api_EMailCC = EMails_CC API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = hBetreff API.api_EMailSubject = hBetreff
API.api_EMailText = hBody API.api_EMailText = hBody
API.api_EMailAttCnt = anhaenge.Count API.api_EMailAttCnt = anhaenge.Count
If ForceMail <> "" Then If ForceMail <> "" Then
@@ -4672,25 +4680,25 @@ Public Class AvisoStatusFunctions
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)") AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
Else Else
API.UPDTAE_ERR() API.UPDTAE_ERR()
AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)") AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
End If
End If End If
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If End If
'OLD ----------------------------------
If False Then
Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
If hBody <> "" Then hMail += "&Body=" & hBody
Try
System.Diagnostics.Process.Start(hMail)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
End Try
End If
' ----------------------------------
End If
End Sub End Sub
@@ -6063,10 +6071,10 @@ Public Class AvisoStatusFunctions
Dim AtcMrn = "" Dim AtcMrn = ""
Dim DsId = "" Dim DsId = ""
Dim DsId2 = "" Dim DsId2 = ""
Dim frist = "" Dim frist = ""
Dim gestellungsadresse = "<td><td/>" Dim gestellungsadresse = "<td><td/>"
Dim found = False Dim found = False
Select Case s.tblSnd_Abfertigungsart_ID Select Case s.tblSnd_Abfertigungsart_ID
Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>" gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
@@ -6133,10 +6141,10 @@ Public Class AvisoStatusFunctions
End If End If
End If End If
Case Else Case Else
getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2) getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
If s.tblSnd_Abfertigungsart_ID = 23 Then If s.tblSnd_Abfertigungsart_ID = 23 Then
s.LOAD_HANDLING() s.LOAD_HANDLING()
For Each hd In s.HANDLING For Each hd In s.HANDLING
AtcMrn &= hd.sndhdg_nr & ", " AtcMrn &= hd.sndhdg_nr & ", "
Next Next
If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2) If AtcMrn.EndsWith(", ") Then AtcMrn = AtcMrn.Substring(0, AtcMrn.Length - 2)

472
Aviso/frmNCTSRouten.Designer.vb generated Normal file
View File

@@ -0,0 +1,472 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmNCTSRouten
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.btnOK = New System.Windows.Forms.Button()
Me.btn_Cancel = New System.Windows.Forms.Button()
Me.btnNeu = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.pnlNCTSRouten = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.txtVonRegion = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblWarningTransportmittel = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cbxTransportmittel = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.sbxNach = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblWarningRoute = New System.Windows.Forms.Label()
Me.lblWarningAZS = New System.Windows.Forms.Label()
Me.lblWarningDauer = New System.Windows.Forms.Label()
Me.lblWarningBST = New System.Windows.Forms.Label()
Me.sbxVon = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtDauer = New System.Windows.Forms.TextBox()
Me.cbxRoutenart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.dgvNCTSRouten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlNCTSRouten.SuspendLayout()
CType(Me.dgvNCTSRouten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(478, 468)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 1
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btn_Cancel
'
Me.btn_Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btn_Cancel.Location = New System.Drawing.Point(12, 477)
Me.btn_Cancel.Name = "btn_Cancel"
Me.btn_Cancel.Size = New System.Drawing.Size(75, 23)
Me.btn_Cancel.TabIndex = 2
Me.btn_Cancel.Text = "Abbrechen"
Me.btn_Cancel.UseVisualStyleBackColor = True
'
'btnNeu
'
Me.btnNeu.Image = Global.AVISO.My.Resources.Resources.plus
Me.btnNeu.Location = New System.Drawing.Point(509, 170)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(44, 31)
Me.btnNeu.TabIndex = 29
Me.btnNeu.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(478, 468)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 31
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
Me.btnSave.Visible = False
'
'pnlNCTSRouten
'
Me.pnlNCTSRouten.Controls.Add(Me.txtVonRegion)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningTransportmittel)
Me.pnlNCTSRouten.Controls.Add(Me.Label5)
Me.pnlNCTSRouten.Controls.Add(Me.cbxTransportmittel)
Me.pnlNCTSRouten.Controls.Add(Me.txtNach)
Me.pnlNCTSRouten.Controls.Add(Me.txtVon)
Me.pnlNCTSRouten.Controls.Add(Me.cbxVon)
Me.pnlNCTSRouten.Controls.Add(Me.sbxNach)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningRoute)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningAZS)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningDauer)
Me.pnlNCTSRouten.Controls.Add(Me.lblWarningBST)
Me.pnlNCTSRouten.Controls.Add(Me.sbxVon)
Me.pnlNCTSRouten.Controls.Add(Me.Label2)
Me.pnlNCTSRouten.Controls.Add(Me.Label1)
Me.pnlNCTSRouten.Controls.Add(Me.Label3)
Me.pnlNCTSRouten.Controls.Add(Me.Label4)
Me.pnlNCTSRouten.Controls.Add(Me.cbxNach)
Me.pnlNCTSRouten.Controls.Add(Me.txtDauer)
Me.pnlNCTSRouten.Controls.Add(Me.cbxRoutenart)
Me.pnlNCTSRouten.Location = New System.Drawing.Point(12, 4)
Me.pnlNCTSRouten.Name = "pnlNCTSRouten"
Me.pnlNCTSRouten.Size = New System.Drawing.Size(491, 197)
Me.pnlNCTSRouten.TabIndex = 30
'
'txtVonRegion
'
Me.txtVonRegion._DateTimeOnly = False
Me.txtVonRegion._numbersOnly = False
Me.txtVonRegion._numbersOnlyKommastellen = ""
Me.txtVonRegion._numbersOnlyTrennzeichen = True
Me.txtVonRegion._Prozent = False
Me.txtVonRegion._ShortDateNew = False
Me.txtVonRegion._ShortDateOnly = False
Me.txtVonRegion._TimeOnly = False
Me.txtVonRegion._TimeOnly_Seconds = False
Me.txtVonRegion._value = ""
Me.txtVonRegion._Waehrung = False
Me.txtVonRegion._WaehrungZeichen = True
Me.txtVonRegion.Enabled = False
Me.txtVonRegion.ForeColor = System.Drawing.Color.Black
Me.txtVonRegion.Location = New System.Drawing.Point(104, 91)
Me.txtVonRegion.MaxLineLength = -1
Me.txtVonRegion.MaxLines_Warning = ""
Me.txtVonRegion.MaxLines_Warning_Label = Nothing
Me.txtVonRegion.Name = "txtVonRegion"
Me.txtVonRegion.ReadOnly = True
Me.txtVonRegion.Size = New System.Drawing.Size(67, 20)
Me.txtVonRegion.TabIndex = 43
'
'lblWarningTransportmittel
'
Me.lblWarningTransportmittel.AutoSize = True
Me.lblWarningTransportmittel.ForeColor = System.Drawing.Color.Red
Me.lblWarningTransportmittel.Location = New System.Drawing.Point(356, 156)
Me.lblWarningTransportmittel.Name = "lblWarningTransportmittel"
Me.lblWarningTransportmittel.Size = New System.Drawing.Size(105, 13)
Me.lblWarningTransportmittel.TabIndex = 42
Me.lblWarningTransportmittel.Text = "Bitte Route angeben"
Me.lblWarningTransportmittel.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(356, 116)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 41
Me.Label5.Text = "Transportmittel:"
'
'cbxTransportmittel
'
Me.cbxTransportmittel._allowedValuesFreiText = Nothing
Me.cbxTransportmittel._allowFreiText = False
Me.cbxTransportmittel._value = ""
Me.cbxTransportmittel.Enabled = False
Me.cbxTransportmittel.FormattingEnabled = True
Me.cbxTransportmittel.Location = New System.Drawing.Point(356, 132)
Me.cbxTransportmittel.Name = "cbxTransportmittel"
Me.cbxTransportmittel.Size = New System.Drawing.Size(121, 21)
Me.cbxTransportmittel.TabIndex = 40
'
'txtNach
'
Me.txtNach._DateTimeOnly = False
Me.txtNach._numbersOnly = False
Me.txtNach._numbersOnlyKommastellen = ""
Me.txtNach._numbersOnlyTrennzeichen = True
Me.txtNach._Prozent = False
Me.txtNach._ShortDateNew = False
Me.txtNach._ShortDateOnly = False
Me.txtNach._TimeOnly = False
Me.txtNach._TimeOnly_Seconds = False
Me.txtNach._value = ""
Me.txtNach._Waehrung = False
Me.txtNach._WaehrungZeichen = True
Me.txtNach.Enabled = False
Me.txtNach.ForeColor = System.Drawing.Color.Black
Me.txtNach.Location = New System.Drawing.Point(220, 91)
Me.txtNach.MaxLineLength = -1
Me.txtNach.MaxLines_Warning = ""
Me.txtNach.MaxLines_Warning_Label = Nothing
Me.txtNach.Name = "txtNach"
Me.txtNach.ReadOnly = True
Me.txtNach.Size = New System.Drawing.Size(100, 20)
Me.txtNach.TabIndex = 39
'
'txtVon
'
Me.txtVon._DateTimeOnly = False
Me.txtVon._numbersOnly = False
Me.txtVon._numbersOnlyKommastellen = ""
Me.txtVon._numbersOnlyTrennzeichen = True
Me.txtVon._Prozent = False
Me.txtVon._ShortDateNew = False
Me.txtVon._ShortDateOnly = False
Me.txtVon._TimeOnly = False
Me.txtVon._TimeOnly_Seconds = False
Me.txtVon._value = ""
Me.txtVon._Waehrung = False
Me.txtVon._WaehrungZeichen = True
Me.txtVon.Enabled = False
Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(10, 91)
Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing
Me.txtVon.Name = "txtVon"
Me.txtVon.ReadOnly = True
Me.txtVon.Size = New System.Drawing.Size(88, 20)
Me.txtVon.TabIndex = 38
'
'cbxVon
'
Me.cbxVon._allowedValuesFreiText = New String() {"Test"}
Me.cbxVon._allowFreiText = False
Me.cbxVon._value = ""
Me.cbxVon.Enabled = False
Me.cbxVon.FormattingEnabled = True
Me.cbxVon.Location = New System.Drawing.Point(10, 25)
Me.cbxVon.Name = "cbxVon"
Me.cbxVon.Size = New System.Drawing.Size(121, 21)
Me.cbxVon.TabIndex = 37
'
'sbxNach
'
Me.sbxNach._allowFreitext = True
Me.sbxNach._AllowSetValue = False
Me.sbxNach._allowSpaceAsSplitter = False
Me.sbxNach._autoSizeGross = False
Me.sbxNach._hideIfListEmpty = True
Me.sbxNach._value = Nothing
Me.sbxNach.conn_art = "FMZOLL"
Me.sbxNach.dgvpos = "LEFT"
Me.sbxNach.DISPLAY_PARAM = Nothing
Me.sbxNach.Enabled = False
Me.sbxNach.INVISIBLE_COLUMNS = Nothing
Me.sbxNach.key_visible = False
Me.sbxNach.KEYPARAM = Nothing
Me.sbxNach.Location = New System.Drawing.Point(221, 65)
Me.sbxNach.Name = "sbxNach"
Me.sbxNach.searchActive = True
Me.sbxNach.Size = New System.Drawing.Size(161, 20)
Me.sbxNach.SQL_ORDER_BY = Nothing
Me.sbxNach.SQL_SELECT = Nothing
Me.sbxNach.SQL_WHERE = Nothing
Me.sbxNach.SQL_WhereParamList = Nothing
Me.sbxNach.TabIndex = 36
Me.sbxNach.usrcntl = Nothing
Me.sbxNach.Visible = False
'
'lblWarningRoute
'
Me.lblWarningRoute.AutoSize = True
Me.lblWarningRoute.ForeColor = System.Drawing.Color.Red
Me.lblWarningRoute.Location = New System.Drawing.Point(10, 156)
Me.lblWarningRoute.Name = "lblWarningRoute"
Me.lblWarningRoute.Size = New System.Drawing.Size(105, 13)
Me.lblWarningRoute.TabIndex = 35
Me.lblWarningRoute.Text = "Bitte Route angeben"
Me.lblWarningRoute.Visible = False
'
'lblWarningAZS
'
Me.lblWarningAZS.AutoSize = True
Me.lblWarningAZS.ForeColor = System.Drawing.Color.Red
Me.lblWarningAZS.Location = New System.Drawing.Point(10, 49)
Me.lblWarningAZS.Name = "lblWarningAZS"
Me.lblWarningAZS.Size = New System.Drawing.Size(135, 13)
Me.lblWarningAZS.TabIndex = 34
Me.lblWarningAZS.Text = "Bitte Abgangs-ZS angeben"
Me.lblWarningAZS.Visible = False
'
'lblWarningDauer
'
Me.lblWarningDauer.AutoSize = True
Me.lblWarningDauer.ForeColor = System.Drawing.Color.Red
Me.lblWarningDauer.Location = New System.Drawing.Point(218, 156)
Me.lblWarningDauer.Name = "lblWarningDauer"
Me.lblWarningDauer.Size = New System.Drawing.Size(90, 13)
Me.lblWarningDauer.TabIndex = 33
Me.lblWarningDauer.Text = "Dauer nicht gültig"
Me.lblWarningDauer.Visible = False
'
'lblWarningBST
'
Me.lblWarningBST.AutoSize = True
Me.lblWarningBST.ForeColor = System.Drawing.Color.Red
Me.lblWarningBST.Location = New System.Drawing.Point(217, 49)
Me.lblWarningBST.Name = "lblWarningBST"
Me.lblWarningBST.Size = New System.Drawing.Size(155, 13)
Me.lblWarningBST.TabIndex = 32
Me.lblWarningBST.Text = "Bitte Bestimmungs-ZS angeben"
Me.lblWarningBST.Visible = False
'
'sbxVon
'
Me.sbxVon._allowFreitext = True
Me.sbxVon._AllowSetValue = False
Me.sbxVon._allowSpaceAsSplitter = False
Me.sbxVon._autoSizeGross = False
Me.sbxVon._hideIfListEmpty = True
Me.sbxVon._value = Nothing
Me.sbxVon.conn_art = "FMZOLL"
Me.sbxVon.dgvpos = "LEFT"
Me.sbxVon.DISPLAY_PARAM = Nothing
Me.sbxVon.Enabled = False
Me.sbxVon.INVISIBLE_COLUMNS = Nothing
Me.sbxVon.key_visible = False
Me.sbxVon.KEYPARAM = Nothing
Me.sbxVon.Location = New System.Drawing.Point(10, 65)
Me.sbxVon.Name = "sbxVon"
Me.sbxVon.searchActive = True
Me.sbxVon.Size = New System.Drawing.Size(161, 20)
Me.sbxVon.SQL_ORDER_BY = Nothing
Me.sbxVon.SQL_SELECT = Nothing
Me.sbxVon.SQL_WHERE = Nothing
Me.sbxVon.SQL_WhereParamList = Nothing
Me.sbxVon.TabIndex = 30
Me.sbxVon.usrcntl = Nothing
Me.sbxVon.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(217, 10)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(111, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Bestimmungszollstelle:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(7, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(91, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Abgangszollstelle:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(10, 116)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Route:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(217, 117)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(90, 13)
Me.Label4.TabIndex = 5
Me.Label4.Text = "Dauer (in Tagen):"
'
'cbxNach
'
Me.cbxNach._allowedValuesFreiText = New String() {"Test"}
Me.cbxNach._allowFreiText = False
Me.cbxNach._value = ""
Me.cbxNach.Enabled = False
Me.cbxNach.FormattingEnabled = True
Me.cbxNach.Location = New System.Drawing.Point(221, 26)
Me.cbxNach.Name = "cbxNach"
Me.cbxNach.Size = New System.Drawing.Size(121, 21)
Me.cbxNach.TabIndex = 2
'
'txtDauer
'
Me.txtDauer.Enabled = False
Me.txtDauer.Location = New System.Drawing.Point(220, 133)
Me.txtDauer.Name = "txtDauer"
Me.txtDauer.Size = New System.Drawing.Size(100, 20)
Me.txtDauer.TabIndex = 4
'
'cbxRoutenart
'
Me.cbxRoutenart._allowedValuesFreiText = Nothing
Me.cbxRoutenart._allowFreiText = False
Me.cbxRoutenart._value = ""
Me.cbxRoutenart.Enabled = False
Me.cbxRoutenart.FormattingEnabled = True
Me.cbxRoutenart.Location = New System.Drawing.Point(10, 132)
Me.cbxRoutenart.Name = "cbxRoutenart"
Me.cbxRoutenart.Size = New System.Drawing.Size(121, 21)
Me.cbxRoutenart.TabIndex = 3
'
'dgvNCTSRouten
'
Me.dgvNCTSRouten.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvNCTSRouten.AllowUserToAddRows = False
Me.dgvNCTSRouten.AllowUserToDeleteRows = False
Me.dgvNCTSRouten.AllowUserToResizeColumns = False
Me.dgvNCTSRouten.AllowUserToResizeRows = False
Me.dgvNCTSRouten.BackgroundColor = System.Drawing.Color.White
Me.dgvNCTSRouten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvNCTSRouten.Location = New System.Drawing.Point(12, 217)
Me.dgvNCTSRouten.MultiSelect = False
Me.dgvNCTSRouten.Name = "dgvNCTSRouten"
Me.dgvNCTSRouten.ReadOnly = True
Me.dgvNCTSRouten.RowHeadersVisible = False
Me.dgvNCTSRouten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvNCTSRouten.Size = New System.Drawing.Size(541, 243)
Me.dgvNCTSRouten.TabIndex = 10
'
'frmNCTSRouten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(565, 503)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.pnlNCTSRouten)
Me.Controls.Add(Me.dgvNCTSRouten)
Me.Controls.Add(Me.btn_Cancel)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnNeu)
Me.Name = "frmNCTSRouten"
Me.Text = "frmNCTSRouten"
Me.pnlNCTSRouten.ResumeLayout(False)
Me.pnlNCTSRouten.PerformLayout()
CType(Me.dgvNCTSRouten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents btnOK As Button
Friend WithEvents btn_Cancel As Button
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents txtDauer As TextBox
Friend WithEvents cbxRoutenart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxNach As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents dgvNCTSRouten As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnNeu As Button
Friend WithEvents pnlNCTSRouten As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents sbxVon As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents lblWarningRoute As Label
Friend WithEvents lblWarningAZS As Label
Friend WithEvents lblWarningDauer As Label
Friend WithEvents lblWarningBST As Label
Friend WithEvents btnSave As Button
Friend WithEvents sbxNach As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents cbxVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtNach As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As Label
Friend WithEvents cbxTransportmittel As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWarningTransportmittel As Label
Friend WithEvents txtVonRegion As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

120
Aviso/frmNCTSRouten.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

340
Aviso/frmNCTSRouten.vb Normal file
View File

@@ -0,0 +1,340 @@

Imports System.Security.Authentication.ExtendedProtection
Imports DocumentFormat.OpenXml.Drawing
Imports GrapeCity.ActiveReports.Document.Section
Imports VERAG_PROG_ALLGEMEIN
Public Class frmNCTSRouten
Dim routenId As Integer = -1
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim currentRoute As New VERAG_PROG_ALLGEMEIN.cNCTSRouten
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Private Sub frmNCTSRouten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
init()
End Sub
Sub init()
initDGVRouten()
'Abgangszollstelle/Gebiet - woher kommt der LKW
cbxVon.Items.Clear()
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Istanbul", "TR341300"))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("München", "DE001526"))
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankara", "TR061500"))
'cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cbxVon.changeItem("")
sbxVon.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]",
{" [Code]", "Description"},
" (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ",
" left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
'Bestimmungszollstelle - an Welcher Zollstelle kommt der LKW
cbxNach.Items.Clear()
cbxNach.fillWithSQL("SELECT [grz_ZollamtDST],[grz_Grenzstelle] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,)
cbxNach.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
cbxNach.changeItem("")
sbxNach.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]",
{" [Code]", "Description"},
" (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ",
" left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
cbxRoutenart.Items.Clear()
cbxRoutenart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxRoutenart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Landweg", "Landweg"))
cbxRoutenart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Seeweg", "Seeweg"))
cbxRoutenart.changeItem("")
cbxTransportmittel.Items.Clear()
cbxTransportmittel.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
'aktuell nur der Defaultwert "LKW" verfügbar!
cbxTransportmittel.changeItem("LKW")
txtDauer.Text = ""
txtVon.Text = ""
txtVonRegion.Text = ""
txtNach.Text = ""
dgvNCTSRouten.ClearSelection()
DisableUserControl()
End Sub
Sub initDGVRouten()
dgvNCTSRouten.Enabled = True
With dgvNCTSRouten
.Columns.Clear()
.DataSource = sql.loadDgvBySql("SELECT [nctsr_id],[nctsr_von],[nctsr_von_region],[nctsr_nach],[nctsr_dauer_in_tagen],[nctsr_route], [nctsr_transportmittel] FROM [VERAG].[dbo].[tblNTCSRouten]",
"VERAG")
' .RowTemplate.Height = 30
.Columns("nctsr_id").Visible = False
.Columns("nctsr_von").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("nctsr_von").HeaderText = "Von"
.Columns("nctsr_von_region").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("nctsr_von_region").HeaderText = "Herkunftsregion"
.Columns("nctsr_nach").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("nctsr_nach").HeaderText = "Nach"
.Columns("nctsr_dauer_in_tagen").Visible = True
.Columns("nctsr_dauer_in_tagen").Width = 50
.Columns("nctsr_dauer_in_tagen").HeaderText = "Dauer"
.Columns("nctsr_dauer_in_tagen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("nctsr_route").Visible = True
.Columns("nctsr_route").Width = 100
.Columns("nctsr_route").HeaderText = "Route"
.Columns("nctsr_route").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
.Columns("nctsr_transportmittel").HeaderText = "Transportmittel"
.Columns("nctsr_transportmittel").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With
End Sub
Private Sub saveRoute(curRoute As cNCTSRouten)
curRoute.nctsr_von = txtVon._value.ToString 'IIf(sbxVon._value Is Nothing Or sbxVon._value = "", cbxVon._value, sbxVon._value)
curRoute.nctsr_von_region = txtVonRegion._value.ToString
curRoute.nctsr_nach = txtNach._value.ToString 'IIf(sbxNach._value Is Nothing Or sbxNach._value = "", cbxNach._value, sbxNach._value)
curRoute.nctsr_route = cbxRoutenart._value
curRoute.nctsr_dauer_in_tagen = CInt(txtDauer.Text)
curRoute.nctsr_transportmittel = cbxTransportmittel._value
If Not curRoute.SAVE() Then
Me.DialogResult = Windows.Forms.DialogResult.None
End If
dgvNCTSRouten.GetOrder()
initDGVRouten()
dgvNCTSRouten.SetOrder()
setOKButton()
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
dgvNCTSRouten.ClearSelection()
dgvNCTSRouten.Enabled = False
currentRoute = New VERAG_PROG_ALLGEMEIN.cNCTSRouten With {
.nctsr_von = "",
.nctsr_von_region = "",
.nctsr_nach = "",
.nctsr_dauer_in_tagen = 0,
.nctsr_route = "",
.nctsr_transportmittel = ""
}
loadChangedDSToPanel(currentRoute)
EnableUserControl()
setSaveButton()
End Sub
Sub setSaveButton()
btnSave.Visible = True
btnOK.Visible = False
End Sub
Sub setOKButton()
btnSave.Visible = False
btnOK.Visible = True
End Sub
Private Sub loadChangedDSToPanel(curRoute As VERAG_PROG_ALLGEMEIN.cNCTSRouten)
txtVon.Text = curRoute.nctsr_von.ToString
txtVonRegion.Text = curRoute.nctsr_von_region.ToString
txtNach.Text = curRoute.nctsr_nach.ToString
cbxRoutenart._value = curRoute.nctsr_route.ToString
txtDauer.Text = curRoute.nctsr_dauer_in_tagen.ToString
cbxTransportmittel._value = curRoute.nctsr_transportmittel.ToString
For Each c As Control In pnlNCTSRouten.Controls
If TypeOf (c) Is CheckBox Then
AddHandler CType(c, ComboBox).SelectedValueChanged, AddressOf SomethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
Next
End Sub
Private Sub checkDestination()
End Sub
Private Sub SomethingChanged(sender As Object, e As EventArgs)
setSaveButton()
End Sub
Private Sub btn_OK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Close()
End Sub
Private Sub btn_Cancel_Click(sender As Object, e As EventArgs) Handles btn_Cancel.Click
Close()
End Sub
Private Sub EnableUserControl()
For Each c As Control In pnlNCTSRouten.Controls
c.Enabled = True
Next
End Sub
Private Sub DisableUserControl()
For Each c As Control In pnlNCTSRouten.Controls
c.Enabled = False
Next
End Sub
Private Sub dgvNCTSRouten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvNCTSRouten.SelectionChanged
If dgvNCTSRouten.SelectedRows.Count > 0 Then
EnableUserControl()
Dim rowindex = dgvNCTSRouten.SelectedRows(0).Index
currentRoute = New VERAG_PROG_ALLGEMEIN.cNCTSRouten(dgvNCTSRouten.SelectedRows(0).Cells("nctsr_id").Value)
loadChangedDSToPanel(currentRoute)
cbxVon.changeItem("")
cbxNach.changeItem("")
If dgvNCTSRouten.Enabled = False Then Exit Sub
routenId = dgvNCTSRouten.SelectedRows(0).Cells("nctsr_id").Value
End If
End Sub
Private Sub sbxVon_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles sbxVon.PreviewKeyDown
If sender Is sbxVon Then sbxVon.FireReturn() : e.IsInputKey = True : Me.DialogResult = DialogResult.None
If sender Is sbxNach Then sbxNach.FireReturn() : e.IsInputKey = True : Me.DialogResult = DialogResult.None
End Sub
Public Function GetTxtDauer() As TextBox
Return txtDauer
End Function
Function checkUserInput(txtDauer As TextBox) As Boolean
Dim validInputs As Boolean = True
lblWarningBST.Visible = False
lblWarningAZS.Visible = False
lblWarningDauer.Visible = False
lblWarningRoute.Visible = False
'If (cbxVon._value = "" Or cbxVon._value Is Nothing) Then
If (txtVon._value = "") Then
lblWarningAZS.Visible = True
validInputs = False
End If
'If (cbxNach._value = "" Or cbxNach._value Is Nothing) Then
If (txtNach._value = "") Then
lblWarningBST.Visible = True
validInputs = False
End If
If (cbxVon._value = "???" AndAlso sbxVon._value Is Nothing) Then
lblWarningAZS.Visible = True
validInputs = False
End If
If (cbxNach._value = "???" AndAlso sbxNach._value Is Nothing) Then
lblWarningAZS.Visible = True
validInputs = False
End If
If (Not IsNumeric(txtDauer.Text) Or txtDauer.Text = "") Then
lblWarningDauer.Visible = True
validInputs = False
End If
If cbxRoutenart._value = "" Or cbxRoutenart._value Is Nothing Then
lblWarningRoute.Visible = True
validInputs = False
End If
If cbxTransportmittel._value = "" Or cbxTransportmittel._value Is Nothing Then
lblWarningTransportmittel.Visible = True
validInputs = False
End If
Return validInputs
End Function
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If checkUserInput(GetTxtDauer()) Then saveRoute(currentRoute)
End Sub
Private Sub cbxVon_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxVon.SelectedValueChanged
If cbxVon._value.ToString = "???" Then
setSearchboxVisible(sbxVon, True)
Else
txtVon.Text = cbxVon._value.ToString
txtVonRegion.Text = cbxVon.Text.ToString
setSearchboxVisible(sbxVon, False)
sbxVon.Clear()
End If
End Sub
Private Sub cbxNach_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxNach.SelectedValueChanged
If cbxNach._value.ToString = "???" Then
setSearchboxVisible(sbxNach, True)
Else
txtNach.Text = cbxNach._value.ToString
setSearchboxVisible(sbxNach, False)
sbxNach.Clear()
End If
End Sub
Sub setSearchboxVisible(searchbox As VERAG_PROG_ALLGEMEIN.MySearchBox, visible As Boolean)
searchbox.Visible = visible
End Sub
Sub cbxNach_ValueChanged() Handles sbxNach.VALUE_CHANGED
If cbxNach._value = "???" AndAlso sbxNach._value <> "" Then
txtNach.Text = sbxNach._value
End If
End Sub
End Class

289
Aviso/frmRoutendauerBerechnen.Designer.vb generated Normal file
View File

@@ -0,0 +1,289 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmRoutendauerBerechnen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRoutendauerBerechnen))
Me.btnMinus = New System.Windows.Forms.Button()
Me.btnPlus = New System.Windows.Forms.Button()
Me.cbxVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblBZS = New System.Windows.Forms.Label()
Me.lblAZS = New System.Windows.Forms.Label()
Me.txtNach = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.txbAbgangsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txbVoraussichtlichesEintreffen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblWarning = New System.Windows.Forms.Label()
Me.lblDauer = New System.Windows.Forms.Label()
Me.lblberechneteDauer = New System.Windows.Forms.Label()
Me.lbWarningDateIsPast = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'btnMinus
'
Me.btnMinus.Location = New System.Drawing.Point(192, 102)
Me.btnMinus.Name = "btnMinus"
Me.btnMinus.Size = New System.Drawing.Size(29, 23)
Me.btnMinus.TabIndex = 16
Me.btnMinus.Text = "-"
Me.btnMinus.UseVisualStyleBackColor = True
'
'btnPlus
'
Me.btnPlus.Location = New System.Drawing.Point(263, 102)
Me.btnPlus.Name = "btnPlus"
Me.btnPlus.Size = New System.Drawing.Size(29, 23)
Me.btnPlus.TabIndex = 15
Me.btnPlus.Text = "+"
Me.btnPlus.UseVisualStyleBackColor = True
'
'cbxVon
'
Me.cbxVon._allowedValuesFreiText = Nothing
Me.cbxVon._allowFreiText = False
Me.cbxVon._value = ""
Me.cbxVon.FormattingEnabled = True
Me.cbxVon.Location = New System.Drawing.Point(11, 39)
Me.cbxVon.Name = "cbxVon"
Me.cbxVon.Size = New System.Drawing.Size(121, 21)
Me.cbxVon.TabIndex = 13
'
'lblBZS
'
Me.lblBZS.AutoSize = True
Me.lblBZS.Location = New System.Drawing.Point(189, 23)
Me.lblBZS.Name = "lblBZS"
Me.lblBZS.Size = New System.Drawing.Size(111, 13)
Me.lblBZS.TabIndex = 12
Me.lblBZS.Text = "Bestimmungszollstelle:"
'
'lblAZS
'
Me.lblAZS.AutoSize = True
Me.lblAZS.Location = New System.Drawing.Point(8, 23)
Me.lblAZS.Name = "lblAZS"
Me.lblAZS.Size = New System.Drawing.Size(91, 13)
Me.lblAZS.TabIndex = 11
Me.lblAZS.Text = "Abgangszollstelle:"
'
'txtNach
'
Me.txtNach._DateTimeOnly = False
Me.txtNach._numbersOnly = False
Me.txtNach._numbersOnlyKommastellen = ""
Me.txtNach._numbersOnlyTrennzeichen = True
Me.txtNach._Prozent = False
Me.txtNach._ShortDateNew = False
Me.txtNach._ShortDateOnly = False
Me.txtNach._TimeOnly = False
Me.txtNach._TimeOnly_Seconds = False
Me.txtNach._value = ""
Me.txtNach._Waehrung = False
Me.txtNach._WaehrungZeichen = True
Me.txtNach.ForeColor = System.Drawing.Color.Black
Me.txtNach.Location = New System.Drawing.Point(192, 39)
Me.txtNach.MaxLineLength = -1
Me.txtNach.MaxLines_Warning = ""
Me.txtNach.MaxLines_Warning_Label = Nothing
Me.txtNach.Name = "txtNach"
Me.txtNach.ReadOnly = True
Me.txtNach.Size = New System.Drawing.Size(109, 20)
Me.txtNach.TabIndex = 10
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(223, 173)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(71, 23)
Me.btnOK.TabIndex = 17
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(8, 173)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(71, 23)
Me.btnCancel.TabIndex = 18
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'txbAbgangsdatum
'
Me.txbAbgangsdatum._DateTimeOnly = False
Me.txbAbgangsdatum._numbersOnly = False
Me.txbAbgangsdatum._numbersOnlyKommastellen = ""
Me.txbAbgangsdatum._numbersOnlyTrennzeichen = False
Me.txbAbgangsdatum._Prozent = False
Me.txbAbgangsdatum._ShortDateNew = True
Me.txbAbgangsdatum._ShortDateOnly = True
Me.txbAbgangsdatum._TimeOnly = False
Me.txbAbgangsdatum._TimeOnly_Seconds = False
Me.txbAbgangsdatum._value = ""
Me.txbAbgangsdatum._Waehrung = False
Me.txbAbgangsdatum._WaehrungZeichen = False
Me.txbAbgangsdatum.ForeColor = System.Drawing.Color.Black
Me.txbAbgangsdatum.Location = New System.Drawing.Point(11, 79)
Me.txbAbgangsdatum.MaxLength = 10
Me.txbAbgangsdatum.MaxLineLength = -1
Me.txbAbgangsdatum.MaxLines_Warning = ""
Me.txbAbgangsdatum.MaxLines_Warning_Label = Nothing
Me.txbAbgangsdatum.Name = "txbAbgangsdatum"
Me.txbAbgangsdatum.Size = New System.Drawing.Size(100, 20)
Me.txbAbgangsdatum.TabIndex = 19
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 63)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(81, 13)
Me.Label1.TabIndex = 20
Me.Label1.Text = "Abgangsdatum:"
'
'txbVoraussichtlichesEintreffen
'
Me.txbVoraussichtlichesEintreffen._DateTimeOnly = False
Me.txbVoraussichtlichesEintreffen._numbersOnly = False
Me.txbVoraussichtlichesEintreffen._numbersOnlyKommastellen = ""
Me.txbVoraussichtlichesEintreffen._numbersOnlyTrennzeichen = False
Me.txbVoraussichtlichesEintreffen._Prozent = False
Me.txbVoraussichtlichesEintreffen._ShortDateNew = True
Me.txbVoraussichtlichesEintreffen._ShortDateOnly = True
Me.txbVoraussichtlichesEintreffen._TimeOnly = False
Me.txbVoraussichtlichesEintreffen._TimeOnly_Seconds = False
Me.txbVoraussichtlichesEintreffen._value = ""
Me.txbVoraussichtlichesEintreffen._Waehrung = False
Me.txbVoraussichtlichesEintreffen._WaehrungZeichen = False
Me.txbVoraussichtlichesEintreffen.ForeColor = System.Drawing.Color.Black
Me.txbVoraussichtlichesEintreffen.Location = New System.Drawing.Point(192, 79)
Me.txbVoraussichtlichesEintreffen.MaxLength = 10
Me.txbVoraussichtlichesEintreffen.MaxLineLength = -1
Me.txbVoraussichtlichesEintreffen.MaxLines_Warning = ""
Me.txbVoraussichtlichesEintreffen.MaxLines_Warning_Label = Nothing
Me.txbVoraussichtlichesEintreffen.Name = "txbVoraussichtlichesEintreffen"
Me.txbVoraussichtlichesEintreffen.ReadOnly = True
Me.txbVoraussichtlichesEintreffen.Size = New System.Drawing.Size(100, 20)
Me.txbVoraussichtlichesEintreffen.TabIndex = 21
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(189, 63)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(90, 13)
Me.Label2.TabIndex = 22
Me.Label2.Text = "voraus. Eintreffen"
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(5, 102)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(152, 13)
Me.lblWarning.TabIndex = 23
Me.lblWarning.Text = "Bitte Abgangsdatum eingeben!"
Me.lblWarning.Visible = False
'
'lblDauer
'
Me.lblDauer.AutoSize = True
Me.lblDauer.Location = New System.Drawing.Point(5, 128)
Me.lblDauer.Name = "lblDauer"
Me.lblDauer.Size = New System.Drawing.Size(84, 13)
Me.lblDauer.TabIndex = 24
Me.lblDauer.Text = "Dauer in Tagen:"
Me.lblDauer.Visible = False
'
'lblberechneteDauer
'
Me.lblberechneteDauer.AutoSize = True
Me.lblberechneteDauer.Location = New System.Drawing.Point(95, 128)
Me.lblberechneteDauer.Name = "lblberechneteDauer"
Me.lblberechneteDauer.Size = New System.Drawing.Size(0, 13)
Me.lblberechneteDauer.TabIndex = 25
Me.lblberechneteDauer.Visible = False
'
'lbWarningDateIsPast
'
Me.lbWarningDateIsPast.AutoSize = True
Me.lbWarningDateIsPast.ForeColor = System.Drawing.Color.Red
Me.lbWarningDateIsPast.Location = New System.Drawing.Point(5, 141)
Me.lbWarningDateIsPast.Name = "lbWarningDateIsPast"
Me.lbWarningDateIsPast.Size = New System.Drawing.Size(231, 13)
Me.lbWarningDateIsPast.TabIndex = 26
Me.lbWarningDateIsPast.Text = "Datum des Eintreffens liegt in der Verangenheit!"
Me.lbWarningDateIsPast.Visible = False
'
'frmRoutendauerBerechnen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(317, 208)
Me.Controls.Add(Me.lbWarningDateIsPast)
Me.Controls.Add(Me.lblberechneteDauer)
Me.Controls.Add(Me.lblDauer)
Me.Controls.Add(Me.lblWarning)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txbVoraussichtlichesEintreffen)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txbAbgangsdatum)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnMinus)
Me.Controls.Add(Me.btnPlus)
Me.Controls.Add(Me.cbxVon)
Me.Controls.Add(Me.lblBZS)
Me.Controls.Add(Me.lblAZS)
Me.Controls.Add(Me.txtNach)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmRoutendauerBerechnen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = " Routendauer berechnen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnMinus As Button
Friend WithEvents btnPlus As Button
Friend WithEvents cbxVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblBZS As Label
Friend WithEvents lblAZS As Label
Friend WithEvents txtNach As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnOK As Button
Friend WithEvents btnCancel As Button
Friend WithEvents txbAbgangsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents txbVoraussichtlichesEintreffen As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents lblWarning As Label
Friend WithEvents lblDauer As Label
Friend WithEvents lblberechneteDauer As Label
Friend WithEvents lbWarningDateIsPast As Label
End Class

6334
Aviso/frmRoutendauerBerechnen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

203
Aviso/frmRoutendauerBerechnen.vb Normal file
View File

@@ -0,0 +1,203 @@
Imports System.CodeDom
Imports DocumentFormat.OpenXml.Bibliography
Imports DocumentFormat.OpenXml.Drawing
Imports Org.BouncyCastle.Utilities
Imports SDL
Imports Therefore.API
Public Class frmRoutendauerBerechnen
Public calculatedDate As New DateTime
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim destination As String = ""
Dim departure As String
Dim transportmittel As String = "LKW" 'Defaultvalue -> wird in Zukunft ev. noch erweitert (LKW, Sprinter, etc.)
Dim days As Integer = -1
Dim calcDays As Integer = -1
Dim destinationShortcut As String = ""
Sub New(dest As String)
InitializeComponent()
destination = dest
End Sub
Function findDestinationAndReplaceToShortCut(destination As String) As String
Dim shortcut As String
shortcut = CStr(SQL.DLookup("[grz_ZollamtDST]", "[tblGrenzstelle]", "[grz_Grenzstelle]= '" & destination & "'", "AVISO", ""))
Return shortcut
End Function
Private Sub frmRoutendauerBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtNach.Text = destination
destinationShortcut = findDestinationAndReplaceToShortCut(destination)
If destinationShortcut = "" Then
initComboboxDeparture(destination)
Else
initComboboxDeparture(destinationShortcut)
End If
txbAbgangsdatum._value = ""
End Sub
Sub initComboboxDeparture(destination As String)
cbxVon.Items.Clear()
cbxVon.fillWithSQL("SELECT [nctsr_von], [nctsr_von_region] FROM [tblNTCSRouten] WHERE [nctsr_nach] = '" & destination & "'", False, "FMZOLL", False)
cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxVon.changeItem("")
If cbxVon._value = "" Then
MsgBox("Es wurde für die Bestimmungszollstelle " & txtNach.Text & " keine Route definiert." & vbCrLf & "Bitte voraus. Datum des Eintreffens manuell eingeben!")
End If
End Sub
Private Sub btnPlus_Click(sender As Object, e As EventArgs) Handles btnPlus.Click
If checkIfDepartureDateIsFilled() = False Then Exit Sub
addDaysToGivenDate(txbVoraussichtlichesEintreffen, 1)
calcDays += 1
checkIfDepatureDateIsNotPast()
End Sub
Private Sub btnMinus_Click(sender As Object, e As EventArgs) Handles btnMinus.Click
If checkIfDepartureDateIsFilled() = False Then Exit Sub
addDaysToGivenDate(txbVoraussichtlichesEintreffen, -1)
calcDays -= 1
checkIfDepatureDateIsNotPast()
End Sub
Function lookUpTripDuration() As Integer
Dim departure As String
departure = cbxVon._value
Try
days = CInt(SQL.DLookup("nctsr_dauer_in_tagen", "tblNTCSRouten", "[nctsr_von]='" & departure & "' AND [nctsr_nach]= '" & destinationShortcut & "' AND [nctsr_route]= 'Landweg' AND [nctsr_transportmittel]= '" & transportmittel & "'", "VERAG", 0))
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return days
End Function
Private Sub addDaysToGivenDate(givenDate As VERAG_PROG_ALLGEMEIN.MyTextBox, days As Integer)
txbVoraussichtlichesEintreffen._value = Convert.ToDateTime(givenDate._value).AddDays(days)
txbVoraussichtlichesEintreffen.Show()
lblberechneteDauer.Text = CStr(calcDuration())
lblberechneteDauer.Visible = True
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
calculatedDate = CDate(txbVoraussichtlichesEintreffen._value)
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Close()
End Sub
Private Sub txbAbgangsdatum_TextChanged(sender As Object, e As EventArgs) Handles txbAbgangsdatum.TextChanged, cbxVon.SelectedValueChanged
If checkIfDepartureDateIsFilled() = False Then Exit Sub
days = lookUpTripDuration()
calcDays = days
If days >= 0 Then
addDaysToGivenDate(txbAbgangsdatum, days)
End If
checkIfDepatureDateIsNotPast()
End Sub
Function checkIfDepartureDateIsFilled() As Boolean
Dim isFilled = False
If txbAbgangsdatum._value = "" Then
lblWarning.Visible = True
lblDauer.Visible = False
lblberechneteDauer.Text = ""
lblberechneteDauer.Visible = False
btnOK.DialogResult = DialogResult.None
Else
lblWarning.Visible = False
isFilled = True
lblDauer.Visible = True
btnOK.DialogResult = DialogResult.OK
End If
Return isFilled
End Function
Function checkIfDepatureDateIsNotPast() As Boolean
Dim depatureDateIsNotPast = False
If txbVoraussichtlichesEintreffen._value <> "" Then
If CDate(txbVoraussichtlichesEintreffen._value) >= CDate(Today().ToShortDateString) Then
depatureDateIsNotPast = True
lbWarningDateIsPast.Visible = False
btnOK.DialogResult = DialogResult.OK
btnMinus.Enabled = True
Else
btnOK.DialogResult = DialogResult.None
lbWarningDateIsPast.Visible = True
btnMinus.Enabled = False
End If
End If
Return depatureDateIsNotPast
End Function
Function calcDuration() As Integer
Dim result As Integer = 0
If txbVoraussichtlichesEintreffen._value <> "" Then
Dim StartDate = Convert.ToDateTime(txbAbgangsdatum._value)
Dim EndDate = Convert.ToDateTime(txbVoraussichtlichesEintreffen._value)
result = (EndDate - StartDate).Days
If (result < 0) Then
MsgBox("Transportdauer kann nicht negativ sein!")
btnOK.DialogResult = DialogResult.None
Else
btnOK.DialogResult = DialogResult.OK
End If
End If
Return result
End Function
End Class