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

Digicust und ATEZ

Browse Source
This commit is contained in:
d.breimaier
2023-09-13 17:18:46 +02:00
parent 78a8564267
commit 0c601a9402
3 changed files with 166 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmDigicust.vb
View File

@@ -124,7 +124,7 @@ Public Class frmDigicust
sendDigicustData(dig_sendung, api, settings)
sendDigicustData(dig_sendung, api, settings, cbxAviso.Checked)
Me.Cursor = Cursors.Default
@@ -136,7 +136,7 @@ Public Class frmDigicust
End Sub
Private Sub sendDigicustData(dig As cDigicustSendungen, api As cDigicustAPI, settings As cDigicustSettings)
Private Sub sendDigicustData(dig As cDigicustSendungen, api As cDigicustAPI, settings As cDigicustSettings, withAvisoData As Boolean)
Dim failreDesc As String
@@ -147,7 +147,7 @@ Public Class frmDigicust
Exit Sub
End If
If api.uploadingCase(dig, settings, dgvAnhaenge) Then
If api.uploadingCase(dig, settings, dgvAnhaenge, withAvisoData) Then
dig.SAVE()
Me.Close()
End If