BAR Sendungsdetails

Aviso/frmSendungsdetailsNEU.vb

@@ -1321,6 +1321,7 @@ Public Class frmSendungsdetailsNEU
             ' txtBarBelegBetrag._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_betrag, String.Empty)
             txtBARzuKassieren._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_BARzuKassieren, String.Empty)
 
+
             '  cboAufschub._value = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub, "")
             cboZolltarif.changeItem(loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AngabeZolltarif, 0))
 
@@ -7268,4 +7269,11 @@ Public Class frmSendungsdetailsNEU
                             sequence)
     End Function
 
+    Private Sub txtBARzuKassieren_TextChanged(sender As Object, e As EventArgs) Handles txtBARzuKassieren.TextChanged
+        If txtBARzuKassieren.Text <> "" And (IsNumeric(txtBARzuKassieren.Text.Replace("€", "").Trim) AndAlso CDbl(txtBARzuKassieren.Text) <> 0) Then
+            Panel22.BackColor = Color.Yellow
+        Else
+            Panel22.BackColor = Color.FromArgb(255, 255, 192)
+        End If
+    End Sub
 End Class