From 6e428cc58a8d5f104cc3fa9821cd7158d3788273 Mon Sep 17 00:00:00 2001 From: ms Date: Tue, 9 Mar 2021 15:23:12 +0100 Subject: [PATCH] Bugfix Gesamtsicherheiten II --- Aviso/My Project/Resources.Designer.vb | 2 +- Aviso/My Project/Resources.resx | 2 +- Aviso/frmGesSich.vb | 19 +++++++++---------- 3 files changed, 11 insertions(+), 12 deletions(-) diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index 7ad6396..dc2c184 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -1498,7 +1498,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 3.6.2.4 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 3.6.2.9 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index a76285e..9fffee7 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -536,7 +536,7 @@ ..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 3.6.2.4 + 3.6.2.9 ..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/Aviso/frmGesSich.vb b/Aviso/frmGesSich.vb index 98b9f9c..991f8d8 100644 --- a/Aviso/frmGesSich.vb +++ b/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