neu

Aviso/frmAddAktenvermerkShort.vb

@@ -92,7 +92,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
+ btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click
 
 
         If sender Is Nothing Then
@@ -180,6 +180,8 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
             End If
         ElseIf sender Is btnSonstiges Then
             insertVermerk(txtSonstiges.Text, 46)
+        ElseIf sender Is btnDispoangefordert Then
+            insertVermerk("Dispoliste angefordert", 57)
         End If