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

Gesamtsicherheit, ATBGestellung (Sonderfälle lt. Mestan eingebaut).

Browse Source
This commit is contained in:
d.breimaier
2024-11-14 10:02:05 +01:00
parent e810165162
commit 9f6fbd19e7
3 changed files with 54 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.5.5")> <Assembly: AssemblyVersion("4.0.5.7")>
<Assembly: AssemblyFileVersion("4.0.5.5")> <Assembly: AssemblyFileVersion("4.0.5.7")>

2
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -77,7 +77,7 @@ Public Class frmGesamtsicherheitenNEU
panOverlay.Visible = True 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) 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 If datum = Nothing Then datum = Date.Now
nextGessicherheitID = -1 nextGessicherheitID = -1

60
Aviso/usrCntlSND_ATBGestellung.vb
View File

@@ -48,15 +48,35 @@ Public Class usrCntlSND_ATBGestellung
Standort = "Unisped GmbH" Standort = "Unisped GmbH"
Case 5701 Case 5701
Standort = "AMBAR" Standort = "AMBAR"
Case 4810, Case 4810, 5103, 5901
Standort = "VERAG GmbH" Standort = "VERAG GmbH"
Case 5103
Standort = "VERAG CS"
Case 5501 Case 5501
Standort = "IMEX" Standort = "IMEX"
End Select 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) Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
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
@@ -152,20 +172,42 @@ Public Class usrCntlSND_ATBGestellung
Dim Standort As String = "" Dim Standort As String = ""
Select Case SND.FilialenNr Select Case SND.FilialenNr
Case 4803, 4809, 4810 Case 4803, 4809
Standort = "VERAG GmbH" : firmaId = 1 Standort = "VERAG AG" : firmaId = 2
Case 5601 Case 5601
Standort = "Unisped GmbH" : firmaId = 21 Standort = "Unisped GmbH" : firmaId = 21
Case 5701 Case 5701
Standort = "AMBAR" : firmaId = 24 Standort = "AMBAR" : firmaId = 24
Case 5103 Case 4810, 5103, 5901
Standort = "VERAG CS" : firmaId = 11 Standort = "VERAG GmbH" : firmaId = 1
Case 5501 Case 5501
Standort = "IMEX" : firmaId = 20 Standort = "IMEX" : firmaId = 20
End Select 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 GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
Dim frm As New frmGesamtsicherheitenNEU Dim frm As New frmGesamtsicherheitenNEU