Warenorte, etc.

Aviso/frmWarenorte.vb

@@ -196,7 +196,7 @@ Public Class frmWarenorte
         WarenortNew.wo_bezeichnung = txtBezeichnung.Text
         WarenortNew.wo_aktiv = cbxAktiv.Checked
         WarenortNew.wo_ort = txtOrt.Text
-        WarenortNew.wo_grenzstelle = cbxGrenzstelle._value
+        WarenortNew.wo_grenzstelle = IIf(cbxGrenzstelle._value = "", DBNull.Value, cbxGrenzstelle._value)
         WarenortNew.wo_firma = cbxFirmaChange._value
         WarenortNew.wo_cluster = txtCluster.Text
         WarenortNew.wo_knnr = txtKennr.Text
@@ -208,12 +208,12 @@ Public Class frmWarenorte
         WarenortNew.wo_ze = cxZE.Checked
         WarenortNew.wo_zv = cxZV.Checked
 
-        If cbxGrenzstelle._value = "" Then
-            lblWarning.Text = "Grenzstelle muss ausgewählt werden!"
-            Exit Sub
-        Else
-            lblWarning.Text = ""
-        End If
+        'If cbxGrenzstelle._value = "" Then
+        '    lblWarning.Text = "Grenzstelle muss ausgewählt werden!"
+        '    Exit Sub
+        'Else
+        '    lblWarning.Text = ""
+        'End If
 
         WarenortNew.SAVE()
         dgvWarenorteNew.GetOrder()