From 9f6fbd19e7db5326e62f4ef24fb3c1bbfcffbcc2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 14 Nov 2024 10:02:05 +0100 Subject: [PATCH] =?UTF-8?q?Gesamtsicherheit,=20ATBGestellung=20(Sonderf?= =?UTF-8?q?=C3=A4lle=20lt.=20Mestan=20eingebaut).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/My Project/AssemblyInfo.vb | 4 +-- Aviso/frmGesamtsicherheitenNEU.vb | 2 +- Aviso/usrCntlSND_ATBGestellung.vb | 60 ++++++++++++++++++++++++++----- 3 files changed, 54 insertions(+), 12 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index d763738..f8decb2 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index a9bb7fe..05eb662 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -77,7 +77,7 @@ Public Class frmGesamtsicherheitenNEU panOverlay.Visible = True cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) - cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 ORDER BY [wo_reihenfolge] ", True, "AVISO", True) 'AND [wo_firma] = " & firmaId & " + cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND wo_ze = 1 AND [wo_firma] = " & firmaId & " ORDER BY [wo_reihenfolge] ", True, "AVISO", True) ' If datum = Nothing Then datum = Date.Now nextGessicherheitID = -1 diff --git a/Aviso/usrCntlSND_ATBGestellung.vb b/Aviso/usrCntlSND_ATBGestellung.vb index 6b55b0e..de8c7cc 100644 --- a/Aviso/usrCntlSND_ATBGestellung.vb +++ b/Aviso/usrCntlSND_ATBGestellung.vb @@ -48,15 +48,35 @@ Public Class usrCntlSND_ATBGestellung Standort = "Unisped GmbH" Case 5701 Standort = "AMBAR" - Case 4810, + Case 4810, 5103, 5901 Standort = "VERAG GmbH" - Case 5103 - Standort = "VERAG CS" Case 5501 Standort = "IMEX" - End Select + 'sonderfälle lt. Mestan + If SND.tblSnd_Zollsystem_Land = "DE" Then + + Select Case SND.FilialenNr + Case 5501, 4803, 4809, 5103 + Standort = "VERAG GmbH" + End Select + + ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then + + If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA + Standort = "VERAG CS" + ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz + Select Case SND.FilialenNr + Case 4803, 5303, 4809, 5103 + Standort = "VERAG CS" + End Select + + End If + + End If + + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort) If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub @@ -152,20 +172,42 @@ Public Class usrCntlSND_ATBGestellung Dim Standort As String = "" + Select Case SND.FilialenNr - Case 4803, 4809, 4810 - Standort = "VERAG GmbH" : firmaId = 1 + Case 4803, 4809 + Standort = "VERAG AG" : firmaId = 2 Case 5601 Standort = "Unisped GmbH" : firmaId = 21 Case 5701 Standort = "AMBAR" : firmaId = 24 - Case 5103 - Standort = "VERAG CS" : firmaId = 11 + Case 4810, 5103, 5901 + Standort = "VERAG GmbH" : firmaId = 1 Case 5501 Standort = "IMEX" : firmaId = 20 - End Select + 'sonderfälle lt. Mestan + If SND.tblSnd_Zollsystem_Land = "DE" Then + + Select Case SND.FilialenNr + Case 5501, 4803, 4809, 5103 + Standort = "VERAG GmbH" : firmaId = 1 + End Select + + ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then + + If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA + Standort = "VERAG CS" : firmaId = 11 + ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz + Select Case SND.FilialenNr + Case 4803, 5303, 4809, 5103 + Standort = "VERAG CS" : firmaId = 11 + End Select + + End If + + End If + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort) Dim frm As New frmGesamtsicherheitenNEU