From e525487c5ed17426d1a2f182e9e9b319991487f8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 15 Sep 2023 22:29:47 +0200 Subject: [PATCH] Double to String-Vergleich korrigiert --- Aviso/Anhänge/frmSendungAnhangImport.vb | 3 ++- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmATEZ_NCTS.vb | 2 +- Aviso/frmSendungsdetailsNEU.vb | 2 +- Aviso/usrcntlAktDetailsATILLANeu.vb | 3 ++- 5 files changed, 8 insertions(+), 6 deletions(-) diff --git a/Aviso/Anhänge/frmSendungAnhangImport.vb b/Aviso/Anhänge/frmSendungAnhangImport.vb index cbb5355..3a5dd0a 100644 --- a/Aviso/Anhänge/frmSendungAnhangImport.vb +++ b/Aviso/Anhänge/frmSendungAnhangImport.vb @@ -1431,7 +1431,8 @@ Public Class frmSendungAnhangImport da_id = DS.da_id destPath = DS.GET_TOP1_PATH fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName) - Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId) + Dim fi As New FileInfo(sourcePath) + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId,, fi.Length) If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False anhId = ANH.anh_id Return True diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 8804c5f..cf6ca1a 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index ce0b7f4..7ea99b6 100644 --- a/Aviso/frmATEZ_NCTS.vb +++ b/Aviso/frmATEZ_NCTS.vb @@ -221,7 +221,7 @@ Public Class frmATEZ_NCTS Else - If azetId = -1 Then atezData.fehlerbeschreibung = "Request has been sent, but no header received!" + If azetId = "-1" Then atezData.fehlerbeschreibung = "Request has been sent, but no header received!" atezData.status = "Sent" atezData.atezId = IIf(azetId IsNot Nothing, azetId, "") Return atezData.SAVE() diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 3dda6e0..e1f9b4a 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -6415,7 +6415,7 @@ Public Class frmSendungsdetailsNEU Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp If e.KeyCode = Keys.Delete Then If dgvATEZNCTS.SelectedRows.Count > 0 Then - If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Or IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then + If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then If dgvATEZNCTS.SelectedRows(0).Cells("Status").Value = "Sent" Then MsgBox("Bereits gesendete Request können nicht gelöscht werden!") Exit Sub diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb index 69c6294..bf53431 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.vb @@ -1690,7 +1690,7 @@ Public Class usrcntlAktDetailsATILLANeu Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp If e.KeyCode = Keys.Delete Then If dgvATEZNCTS.SelectedRows.Count > 0 Then - If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Or IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then + If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then If dgvATEZNCTS.SelectedRows(0).Cells("Status").Value = "Sent" Then MsgBox("Bereits gesendete Request können nicht gelöscht werden!") Exit Sub @@ -1702,6 +1702,7 @@ Public Class usrcntlAktDetailsATILLANeu End If End If + End If End If End Sub