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

ATEZ Integration MIC, TC, MODAL

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-06 09:23:25 +02:00
parent 1c1af724c2
commit d702783d1b
34 changed files with 8588 additions and 571 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -8218,18 +8218,61 @@ Public Class frmSendungsdetailsNEU
Private Sub btnATEZNewEZA_Click(sender As Object, e As EventArgs) Handles btnATEZNewEZA.Click
SAVE_ME()
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
Select Case cboAbfertigungsLand._value
Case "DE"
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
Case "UK", "GB"
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_UK_MODAL(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
Case "NL"
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_MIC(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
Case "AT"
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_TELOTEC(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
End Select
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -8343,4 +8386,31 @@ Public Class frmSendungsdetailsNEU
Return value.All(Function(c) Char.IsLetterOrDigit(c))
End Function
Private Sub Button20_Click_2(sender As Object, e As EventArgs) Handles Button20.Click
SAVE_ME()
Try
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_MIC(AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub SUMAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUMAToolStripMenuItem.Click
End Sub
End Class