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
2022-03-21 09:19:52 +01:00
parent 4491b88deb
commit a4ad6cc8c8
68 changed files with 12141 additions and 6529 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -105,7 +105,7 @@ Public Class frmAddAktenvermerkShort
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click, btnDEZollDIGITAL.Click, btnLKWumgemeldet.Click
If sender Is Nothing Then
MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
@@ -176,6 +176,8 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
VermerkeDAL.UpdateGrenzstelle(myAviso.AvisoID, "WAI")
ElseIf sender Is btnNKD Then
insertVermerk("Nach NKD weitergegeben", 40)
ElseIf sender Is btnLKWumgemeldet Then
insertVermerk("LKW umgemeldet", 94)
ElseIf sender Is btnSFD Then
insertVermerk("Nach Spielfeld (Lex) weitergegeben", 41)
ElseIf sender Is btnQS Then
@@ -282,4 +284,5 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End Try
End Sub
End Class