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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-12-13 21:30:05 +01:00
parent 65ee38135e
commit 56fe11bc97
26 changed files with 3960 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -191,8 +191,11 @@ Public Class usrcntlAktDetailsATILLANeu
SND = SENDUNG_LIST(0)
End If
Dim SYSTEM = "DAKOSY"
' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy"))
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"))
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), System)
AddHandler f.FormClosed, Sub()
initdgvZollAnmeldungen()
End Sub
@@ -210,6 +213,10 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
SGSNCTSToolStripMenuItem.Visible = True
End If
timer.Interval = 100
reload(AvisoID)
@@ -1227,14 +1234,14 @@ Public Class usrcntlAktDetailsATILLANeu
cntxtZollantrag.Show(Cursor.Position)
End Sub
Sub genZollantrag(ncts_Art)
Sub genZollantrag(ncts_Art, Optional ZOLL_SYSTEM = "DAKOSY")
Try
Me.Cursor = Cursors.WaitCursor
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
Dim f As New SDL.frmZollanmeldung(ncts_Art, Nothing, AVISO, SND, Now.ToString("yy"))
Dim f As New SDL.frmZollanmeldung(ncts_Art, Nothing, AVISO, SND, Now.ToString("yy"), ZOLL_SYSTEM)
AddHandler f.FormClosed, Sub()
initdgvZollAnmeldungen()
End Sub
@@ -1300,5 +1307,7 @@ Public Class usrcntlAktDetailsATILLANeu
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True)
End Sub
Private Sub SGSNCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SGSNCTSToolStripMenuItem.Click
genZollantrag("T2", "SGS")
End Sub
End Class