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

SND Atilla EXG

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-22 13:31:21 +01:00
parent 0cf3ccd1fb
commit d94c7676b6
9 changed files with 184 additions and 63 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.7.5")> <Assembly: AssemblyVersion("4.0.7.8")>
<Assembly: AssemblyFileVersion("4.0.7.5")> <Assembly: AssemblyFileVersion("4.0.7.8")>

3
Aviso/frmATEZ_NCTS.vb
View File

@@ -391,6 +391,7 @@ Public Class frmATEZ_NCTS
getBezugsnr(BezugsNr) getBezugsnr(BezugsNr)
txtLKWId.Text = AVISO.LKW_Nr txtLKWId.Text = AVISO.LKW_Nr
sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False) cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
txtTransporttemp.Text = AVISO.TransportTemperatur txtTransporttemp.Text = AVISO.TransportTemperatur
@@ -445,7 +446,7 @@ Public Class frmATEZ_NCTS
when [anh_Art] = 'Sonstiges' then 'OTHER' when [anh_Art] = 'Sonstiges' then 'OTHER'
when [anh_Art] ='' then 'OTHER' End when [anh_Art] ='' then 'OTHER' End
[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=733587) And anh_Typ = 'PDF' WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
ORDER BY anh_SendungsId desc, ORDER BY anh_SendungsId desc,
case case
when [anh_Art] = 'ATR-EUR1' then 0 when [anh_Art] = 'ATR-EUR1' then 0

63
Aviso/frmHauptfenster.vb
View File

@@ -165,29 +165,36 @@ Public Class frmHauptfenster
Private Sub StartPipeListener() Private Sub StartPipeListener()
listenerThread = New System.Threading.Thread(Sub() listenerThread = New System.Threading.Thread(Sub()
Dim pipeName As String = $"AVISO_{Process.GetCurrentProcess().Id}" Try
Dim pipeSecurity As New PipeSecurity()
pipeSecurity.AddAccessRule(New PipeAccessRule(Environment.UserName, PipeAccessRights.FullControl, AccessControlType.Allow))
Console.WriteLine($"Waiting for messages on pipe {pipeName}...") Dim pipeName As String = $"AVISO_{Process.GetCurrentProcess().Id}"
Dim pipeSecurity As New PipeSecurity()
pipeSecurity.AddAccessRule(New PipeAccessRule(Environment.UserName, PipeAccessRights.FullControl, AccessControlType.Allow))
While True Console.WriteLine($"Waiting for messages on pipe {pipeName}...")
Using server = New NamedPipeServerStream(pipeName, PipeDirection.In, 1, PipeTransmissionMode.Byte, PipeOptions.None, 0, 0, pipeSecurity)
Try
server.WaitForConnection()
Using reader = New StreamReader(server, Encoding.UTF8) While True
Dim message = reader.ReadLine() Using server = New NamedPipeServerStream(pipeName, PipeDirection.In, 1, PipeTransmissionMode.Byte, PipeOptions.None, 0, 0, pipeSecurity)
Try
server.WaitForConnection()
ProcessMessage(message) Using reader = New StreamReader(server, Encoding.UTF8)
End Using Dim message = reader.ReadLine()
server.Disconnect() ProcessMessage(message)
Catch ex As Exception End Using
Console.WriteLine("Fehler im Listener: " & ex.Message)
End Try server.Disconnect()
End Using Catch ex As Exception
End While Console.WriteLine("Fehler im Listener: " & ex.Message)
End Try
End Using
End While
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub) End Sub)
listenerThread.IsBackground = True listenerThread.IsBackground = True
listenerThread.Start() listenerThread.Start()
@@ -206,7 +213,14 @@ Public Class frmHauptfenster
Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs) Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
MyBase.OnFormClosed(e) MyBase.OnFormClosed(e)
listenerThread.Abort() Try
If listenerThread IsNot Nothing Then
listenerThread.Abort()
End If
Catch ex As Exception
End Try
End Sub End Sub
'---------------------------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------
@@ -1325,8 +1339,7 @@ Public Class frmHauptfenster
Exit Sub Exit Sub
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s
@@ -2543,7 +2556,7 @@ Public Class frmHauptfenster
zoll.Show() zoll.Show()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -3340,7 +3353,7 @@ Public Class frmHauptfenster
'MsgBox(MIC.ImportShipmentMessage.ImportShipment.Shipment.company) 'MsgBox(MIC.ImportShipmentMessage.ImportShipment.Shipment.company)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
@@ -4030,8 +4043,8 @@ Public Class frmHauptfenster
' Iteriere über jedes Fenster in der Liste ' Iteriere über jedes Fenster in der Liste
For Each frm As Form In openForms For Each frm As Form In openForms
' Prüfe, ob das Fenster nicht das aktuelle ist ' Prüfe, ob das Fenster nicht das aktuelle Fenster
If frm IsNot Me Then If frm.GetType.ToString <> "AVISO.frmHauptfenster" And frm.GetType.ToString <> "AVISO.frmLogin" Then
' Schließe das Fenster, unabhängig davon, ob es modal oder nicht ist ' Schließe das Fenster, unabhängig davon, ob es modal oder nicht ist
frm.Close() frm.Close()
End If End If

1
Aviso/frmNotify.Designer.vb generated
View File

@@ -115,7 +115,6 @@ Partial Class frmNotify
Me.ShowIcon = False Me.ShowIcon = False
Me.ShowInTaskbar = False Me.ShowInTaskbar = False
Me.Text = "frmNotify" Me.Text = "frmNotify"
Me.TopMost = True
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.Header.ResumeLayout(False) Me.Header.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)

33
Aviso/frmNotify.vb
View File

@@ -1,4 +1,28 @@
Public Class frmNotify Imports System.Runtime.InteropServices
Public Class frmNotify
' WinAPI-Funktion importieren
<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function SetWindowPos(
ByVal hWnd As IntPtr,
ByVal hWndInsertAfter As IntPtr,
ByVal X As Integer,
ByVal Y As Integer,
ByVal cx As Integer,
ByVal cy As Integer,
ByVal uFlags As UInteger
) As Boolean
End Function
' Konstante für SetWindowPos
Private Const SWP_NOACTIVATE As UInteger = &H10
Private Const SWP_NOMOVE As UInteger = &H2
Private Const SWP_NOSIZE As UInteger = &H1
Private Shared ReadOnly HWND_TOPMOST As New IntPtr(-1)
Public Y As Integer = 0 Public Y As Integer = 0
Public AvisoID As Integer = 0 Public AvisoID As Integer = 0
@@ -69,6 +93,13 @@
Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
Timer.Interval = TimerInterval Timer.Interval = TimerInterval
lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default) lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default)
' Fenster in den Vordergrund bringen, ohne Fokus zu erzwingen
SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE)
'If Y = 0 Then 'If Y = 0 Then
'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10) 'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10)
' Else ' Else

2
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -5668,7 +5668,7 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem27, Me.ToolStripMenuItem26, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.CMRBestätigungToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem, Me.ToolStripSeparator1, Me.dynMailsToolStripMenuItem}) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem27, Me.ToolStripMenuItem26, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.CMRBestätigungToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem, Me.ToolStripSeparator1, Me.dynMailsToolStripMenuItem})
Me.ContextMenuStrip1.Name = "cntxtAnh" Me.ContextMenuStrip1.Name = "cntxtAnh"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 422) Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 400)
' '
'ToolStripMenuItem15 'ToolStripMenuItem15
' '

4
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -7435,4 +7435,8 @@ Public Class frmSendungsdetailsNEU
End Try End Try
End Sub End Sub
Private Sub txteori_Pruef_TextChanged(sender As Object, e As EventArgs) Handles txteori_Pruef.TextChanged
End Sub
End Class End Class

72
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -54,7 +54,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tbVermerke = New System.Windows.Forms.TabPage() Me.tbVermerke = New System.Windows.Forms.TabPage()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.tbZollanmeldungen = New System.Windows.Forms.TabPage() Me.tbZollanmeldungen = New System.Windows.Forms.TabPage()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView() Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView()
@@ -69,6 +68,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbAnhaenge = New System.Windows.Forms.TabPage() Me.tbAnhaenge = New System.Windows.Forms.TabPage()
Me.dgvanhaenge = New System.Windows.Forms.DataGridView() Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel()
Me.Button14 = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button() Me.Button13 = New System.Windows.Forms.Button()
Me.btnImportAssi = New System.Windows.Forms.Button() Me.btnImportAssi = New System.Windows.Forms.Button()
Me.btnQuckScan = New System.Windows.Forms.Button() Me.btnQuckScan = New System.Windows.Forms.Button()
@@ -159,7 +159,8 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button14 = New System.Windows.Forms.Button() Me.EXPAusfuhrGestellungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.pnlDetailsRechts.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -279,17 +280,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Text = "Vermerk eintragen" Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True Me.tbVermerke.UseVisualStyleBackColor = True
' '
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'tbZollanmeldungen 'tbZollanmeldungen
' '
Me.tbZollanmeldungen.Controls.Add(Me.Panel1) Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
@@ -576,6 +566,19 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Panel5.Size = New System.Drawing.Size(561, 70) Me.Panel5.Size = New System.Drawing.Size(561, 70)
Me.Panel5.TabIndex = 112 Me.Panel5.TabIndex = 112
' '
'Button14
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Image)
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(1, 0)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(133, 36)
Me.Button14.TabIndex = 114
Me.Button14.Text = "PDF " & Global.Microsoft.VisualBasic.ChrW(13) & "zusammenführen"
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button14.UseVisualStyleBackColor = True
'
'Button13 'Button13
' '
Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button13.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1695,44 +1698,44 @@ Partial Class usrcntlAktDetailsATILLANeu
'ToolStripSeparator2 'ToolStripSeparator2
' '
Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(152, 6) Me.ToolStripSeparator2.Size = New System.Drawing.Size(206, 6)
' '
'NCTST2ToolStripMenuItem 'NCTST2ToolStripMenuItem
' '
Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem" Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem"
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand" Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
' '
'AESToolStripMenuItem 'AESToolStripMenuItem
' '
Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem" Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem"
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.AESToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.AESToolStripMenuItem.Text = "AES - Ausfuhr" Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(206, 6)
' '
'SGSNCTSToolStripMenuItem 'SGSNCTSToolStripMenuItem
' '
Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem" Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem"
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS" Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS"
Me.SGSNCTSToolStripMenuItem.Visible = False Me.SGSNCTSToolStripMenuItem.Visible = False
' '
'cntxtZollantrag 'cntxtZollantrag
' '
Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem, Me.NCTSATEZToolStripMenuItem}) Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem, Me.NCTSATEZToolStripMenuItem, Me.EXPAusfuhrGestellungToolStripMenuItem})
Me.cntxtZollantrag.Name = "cntxtZollantrag" Me.cntxtZollantrag.Name = "cntxtZollantrag"
Me.cntxtZollantrag.Size = New System.Drawing.Size(156, 104) Me.cntxtZollantrag.Size = New System.Drawing.Size(210, 148)
Me.cntxtZollantrag.Text = "Zollantrag" Me.cntxtZollantrag.Text = "Zollantrag"
' '
'NCTSATEZToolStripMenuItem 'NCTSATEZToolStripMenuItem
' '
Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem" Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem"
Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(155, 22) Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ" Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ"
Me.NCTSATEZToolStripMenuItem.Visible = False Me.NCTSATEZToolStripMenuItem.Visible = False
' '
@@ -1769,18 +1772,22 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30) Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)" Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
' '
'Button14 'EXPAusfuhrGestellungToolStripMenuItem
' '
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.EXPAusfuhrGestellungToolStripMenuItem.Name = "EXPAusfuhrGestellungToolStripMenuItem"
Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Image) Me.EXPAusfuhrGestellungToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.EXPAusfuhrGestellungToolStripMenuItem.Text = "EXG - Ausfuhr-Gestellung"
Me.Button14.Location = New System.Drawing.Point(1, 0) '
Me.Button14.Name = "Button14" 'UsrCntlVermerkeATilla1
Me.Button14.Size = New System.Drawing.Size(133, 36) '
Me.Button14.TabIndex = 114 Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.Button14.Text = "PDF " & Global.Microsoft.VisualBasic.ChrW(13) & "zusammenführen" Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Button14.UseVisualStyleBackColor = True Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
' '
'usrcntlAktDetailsATILLANeu 'usrcntlAktDetailsATILLANeu
' '
@@ -1963,4 +1970,5 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents btnImportAssi As Button Friend WithEvents btnImportAssi As Button
Friend WithEvents Button13 As Button Friend WithEvents Button13 As Button
Friend WithEvents Button14 As Button Friend WithEvents Button14 As Button
Friend WithEvents EXPAusfuhrGestellungToolStripMenuItem As ToolStripMenuItem
End Class End Class

65
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1810,4 +1810,69 @@ Public Class usrcntlAktDetailsATILLANeu
End Try End Try
End If End If
End Sub End Sub
Private Sub EXPAusfuhrGestellungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EXPAusfuhrGestellungToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
Me.Refresh()
Me.Cursor = Cursors.WaitCursor
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
If SENDUNG_LIST IsNot Nothing Then
SND = SENDUNG_LIST(0)
Else
MsgBox("Keine Sendung!")
Exit Sub
End If
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim Standort As String = ""
Select Case SND.FilialenNr
Case 4803, 4809
Standort = "VERAG AG"
Case 5601
Standort = "Unisped GmbH"
Case 5701
Standort = "AMBAR GmbH"
Case 4810, 5103, 5901
Standort = "VERAG GmbH"
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 frMZA As New SDL.frmZollanmeldung("EXG", Nothing, AVISO, SND, Now.ToString("yy"))
frMZA.Show()
AddHandler frMZA.FormClosed, Sub()
' initdgvZollAnmeldungen()
End Sub
Me.Cursor = Cursors.Default
End If
End Sub
End Class End Class