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
2021-03-09 15:25:39 +01:00
parent c6423afb6a
commit 6eee074497
11 changed files with 302 additions and 176 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -127,6 +127,13 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
insertVermerk("DE Zoll eingereicht", 17)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "DE")
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
' Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
'End If
End If
ElseIf sender Is btnDEZollDIGITAL Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -145,6 +152,13 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
insertVermerk("AT Zoll eingereicht", 19)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then
' Try
' Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(myAviso, "AT")
' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, (New System.Drawing.Printing.PrinterSettings).PrinterName)
' Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
'End If
End If
ElseIf sender Is btnLKWStandzeitWE Then
insertVermerk("LKW Standzeit Wochenende", 21)