neu2

Aviso/My Project/Resources.Designer.vb

@@ -22,10 +22,10 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>
     Friend Module Resources
 
         Private resourceMan As Global.System.Resources.ResourceManager
@@ -35,7 +35,7 @@ Namespace My.Resources
         '''<summary>
         '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -50,13 +50,13 @@ Namespace My.Resources
         '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
         '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
         Friend Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
             Set
-                resourceCulture = value
+                resourceCulture = Value
             End Set
         End Property
 

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