Sendungsdetail, AvisoStatus, etc.

Aviso/frmSendungsdetailsNEU.vb

@@ -1661,6 +1661,20 @@ Public Class frmSendungsdetailsNEU
             End If
             '-------------------------
 
+            'Fressnapf Spezial:
+            '-------------------------
+            If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 757421 Then
+                If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421
+                If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 757421
+                If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421
+                cboAbfertigungsart.changeItem("38")
+                cboAbfertigungsLand.changeItem("AT")
+                If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
+                    cntlAuftr_Abf.lbl.Text = "X"
+                End If
+            End If
+            '-------------------------
+
             Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...