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

IDS, etc. Zollern Gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-15 11:34:47 +02:00
parent 817e98a51a
commit 8ff020bde4
2 changed files with 71 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Aviso/usrCntlSND_ATBGestellung.Designer.vb generated
View File

@@ -23,6 +23,7 @@ Partial Class usrCntlSND_ATBGestellung
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.pnlT1 = New System.Windows.Forms.Panel() Me.pnlT1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
@@ -36,7 +37,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label33 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnlT1.SuspendLayout() Me.pnlT1.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -62,6 +62,18 @@ Partial Class usrCntlSND_ATBGestellung
Me.pnlT1.Size = New System.Drawing.Size(549, 125) Me.pnlT1.Size = New System.Drawing.Size(549, 125)
Me.pnlT1.TabIndex = 0 Me.pnlT1.TabIndex = 0
' '
'Button2
'
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(424, 94)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(94, 28)
Me.Button2.TabIndex = 133
Me.Button2.Text = "Saldocheck"
Me.Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = False
'
'PictureBox5 'PictureBox5
' '
Me.PictureBox5.BackgroundImage = Global.AVISO.My.Resources.Resources.fragezeichen1 Me.PictureBox5.BackgroundImage = Global.AVISO.My.Resources.Resources.fragezeichen1
@@ -253,17 +265,6 @@ Partial Class usrCntlSND_ATBGestellung
Me.Label33.TabIndex = 3 Me.Label33.TabIndex = 3
Me.Label33.Text = "Vorpapier / T1:" Me.Label33.Text = "Vorpapier / T1:"
' '
'Button2
'
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(424, 94)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(94, 28)
Me.Button2.TabIndex = 133
Me.Button2.Text = "Saldocheck"
Me.Button2.UseVisualStyleBackColor = True
'
'usrCntlSND_ATBGestellung 'usrCntlSND_ATBGestellung
' '
Me.Controls.Add(Me.pnlT1) Me.Controls.Add(Me.pnlT1)

86
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -97,28 +97,35 @@ Public Class usrCntlSND_ATBGestellung
Standort = Sicherheiten_Standort.IMEX : firmaID = 20 Standort = Sicherheiten_Standort.IMEX : firmaID = 20
End Select End Select
'sonderfälle lt. Mestan 'sonderfälle lt. Mestan
If SND.tblSnd_Zollsystem_Land = "DE" Then If SND.tblSnd_Zollsystem_Land = "DE" Then
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 5501, 4803, 4809, 5103 Case 5501, 4803, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2 Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
End Select End Select
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11 Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 4803, 5303, 4809, 5103 Case 4803, 5303, 4809, 5103
Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11 Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
End Select End Select
End If
End If End If
End If
If isZollern(SND) Then
Standort = Sicherheiten_Standort.ZOLLERN : firmaID = 99
End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID) Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
@@ -183,19 +190,20 @@ Public Class usrCntlSND_ATBGestellung
Dim frm As New frmGesamtsicherheitenNEU() Dim frm As New frmGesamtsicherheitenNEU()
Select Case gessicherheit.gs_standort Select Case gessicherheit.gs_standort
Case "Verag GmbH" Case Sicherheiten_Standort.VERAG_GMBH
firmaId = 2 firmaId = 2
Case "Verag AG" Case Sicherheiten_Standort.VERAG_AG
firmaId = 1 firmaId = 1
Case "Unisped GmbH" Case Sicherheiten_Standort.UNISPED
firmaId = 21 firmaId = 21
Case "AMBAR GmbH" Case Sicherheiten_Standort.AMBAR
firmaId = 24 firmaId = 24
Case "Verag CS" Case Sicherheiten_Standort.VERAG_CS
firmaId = 11 firmaId = 11
Case "IMEX" Case Sicherheiten_Standort.IMEX
firmaId = 20 firmaId = 20
Case Sicherheiten_Standort.ZOLLERN
firmaId = 99
End Select End Select
With frm With frm
@@ -226,15 +234,15 @@ Public Class usrCntlSND_ATBGestellung
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 4803, 4809 Case 4803, 4809
Standort = "VERAG AG" : firmaId = 1 Standort = Sicherheiten_Standort.VERAG_AG : firmaId = 1
Case 5601 Case 5601
Standort = "Unisped GmbH" : firmaId = 21 Standort = Sicherheiten_Standort.UNISPED : firmaId = 21
Case 5701 Case 5701
Standort = "AMBAR GmbH" : firmaId = 24 Standort = Sicherheiten_Standort.AMBAR : firmaId = 24
Case 4810, 5103, 5901 Case 4810, 5103, 5901
Standort = "VERAG GmbH" : firmaId = 2 Standort = Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
Case 5501 Case 5501
Standort = "IMEX" : firmaId = 20 Standort = Sicherheiten_Standort.IMEX : firmaId = 20
End Select End Select
'sonderfälle lt. Mestan 'sonderfälle lt. Mestan
@@ -242,24 +250,33 @@ Public Class usrCntlSND_ATBGestellung
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 5501, 4803, 4809, 5103 Case 5501, 4803, 4809, 5103
Standort = "VERAG GmbH" : firmaId = 2 Standort = Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
End Select End Select
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
Standort = "VERAG CS" : firmaId = 11 Standort = Sicherheiten_Standort.VERAG_CS : firmaId = 11
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 4803, 5303, 4809, 5103 Case 4803, 5303, 4809, 5103
Standort = "VERAG CS" : firmaId = 11 Standort = Sicherheiten_Standort.VERAG_CS : firmaId = 11
End Select End Select
End If End If
End If End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
If isZollern(SND) Then
Standort = Sicherheiten_Standort.ZOLLERN : firmaId = 99
End If
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
Dim frm As New frmGesamtsicherheitenNEU Dim frm As New frmGesamtsicherheitenNEU
@@ -362,7 +379,20 @@ Public Class usrCntlSND_ATBGestellung
Process.Start(webAddress) Process.Start(webAddress)
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Function isZollern(SND As cSendungen)
End Sub Dim zollernKdnr = {772383, 712203}
If zollernKdnr.Contains(SND.tblSnd_AbsenderKdNr) OrElse
zollernKdnr.Contains(SND.tblSnd_AuftraggeberKdNr) OrElse
(SND.tblSnd_AvisiererKdNr IsNot Nothing AndAlso zollernKdnr.Contains(SND.tblSnd_AvisiererKdNr)) OrElse
zollernKdnr.Contains(SND.tblSnd_EmpfaengerKdNr) OrElse
(SND.tblSnd_FrachtfuehrerKdNr IsNot Nothing AndAlso zollernKdnr.Contains(SND.tblSnd_FrachtfuehrerKdNr)) Then
Return True
Else
Return False
End If
End Function
End Class End Class