edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Double to String-Vergleich korrigiert

Browse Source
This commit is contained in:
d.breimaier
2023-09-15 22:29:47 +02:00
parent f767b78d92
commit e525487c5e
5 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -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

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.1.6")>
<Assembly: AssemblyFileVersion("3.9.1.6")>
<Assembly: AssemblyVersion("3.9.1.8")>
<Assembly: AssemblyFileVersion("3.9.1.8")>

2
Aviso/frmATEZ_NCTS.vb
View File

@@ -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()

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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

3
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -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