neu2

Aviso/frmGesSich.vb

@@ -2,7 +2,7 @@
 
 Public Class frmGesSich
 
-    Public Property GesamtsichNr As String = ""
+    Public Property GesamtsichNr As Integer
     Public Property MakeDate As DateTime = Nothing
     Property GesSichRef As cGesamtSicherheitsReferenz
     Property Standort As String = ""
@@ -32,7 +32,7 @@ Public Class frmGesSich
     End Sub
 
     Private Sub frmGesamtsicherheit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        If GesamtsichNr = "" Or Neu = True Then
+        If nixzunull(GesamtsichNr) = 0 Or Neu = True Then
             panOben.Enabled = False : panOben.Enabled = False
             panOverlay.Visible = True
             cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
@@ -50,8 +50,7 @@ Public Class frmGesSich
 
     Public Sub LoadDGV()
         lblSaldo.Text = "Saldo: € " & GesSichRef.Saldo.ToString("N")
-        lblGestellungNr.Text = "Gesamtsicherheitsnummer: " & GesamtsichNr
-
+        lblGestellungNr.Text = ""
         Dim sqladd1 As String = ""
         If GesSichRef.UstEnabled Then sqladd1 &= ", FORMAT(((Warenwert + Sicherheitsbetrag) * " & GesSichRef.Ust & "/100), 'C', 'de-DE') as Ust"
         If GesSichRef.ATR Then sqladd1 &= ", ATRJN"
@@ -75,8 +74,8 @@ Public Class frmGesSich
             Me.FilialNummer = dt.Rows(0).Item("FilialNummer")
             Me.Abfertigungsnummer = dt.Rows(0).Item("Abfertigungsnummer")
 
-            If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= ", FilialNr: " & Me.FilialNummer
-            If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= ", Abfertigungsnummer: " & Me.Abfertigungsnummer
+            If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer
+            If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "Abfertigungsnummer: " & Me.Abfertigungsnummer
         End If
 
 
@@ -122,9 +121,9 @@ Public Class frmGesSich
                 .Columns("Saldo").Visible = False
                 Select Case GesSichRef.ATR
                     Case True
-                        .Columns("Kennnummer").HeaderText = "CRN"
-                    Case Else
                         .Columns("Kennnummer").HeaderText = "ATC / MRN"
+                    Case Else
+                        .Columns("Kennnummer").HeaderText = "CRN"
                 End Select
                 .Columns("Kennnummer").Width = 120
                 .Columns("DateTime").Width = 140
@@ -329,7 +328,7 @@ Public Class frmGesSich
     End Sub
 
     Public Function TestIfExist(KennnummerStr As String, Optional ByVal lkw As String = "")
-        If lkw = "" And Me.GesamtsichNr.Length > 0 Then lkw = GesamtsichNr
+        If lkw = "" And Me.GesamtsichNr > 0 Then lkw = GesamtsichNr
 
         Dim SQLString As String = "Select * from [tblGesamtsicherheit] where Kennnummer = '" & KennnummerStr & "'"
         Dim dt As New DataTable
@@ -517,7 +516,7 @@ Public Class cSicherheit
     Property saldo As Double
     Property standort As String
     Property Art As String
-    Property GesamtsichNr As String
+    Property GesamtsichNr As Integer
     Property Ust As Integer
     Property Freitext As String
     Property FilialNummer As Integer