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

ANhangsarten, addsendeungen, Anhangsimport

Browse Source
This commit is contained in:
d.breimaier
2024-08-28 08:47:38 +02:00
parent d1786e494f
commit a4a7eb3351
6 changed files with 106 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -40,7 +40,7 @@
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Text = frmName
'Me.Text = frmName
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
txtEmpfaenger.initKdBox(Me)

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

@@ -1738,7 +1738,7 @@ Public Class frmSendungAnhangImport
If cboSendungen._value <> "" Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
If SND IsNot Nothing Then
Dim f As New frmAddSendnung(AvisoId, SND, "Sendung bearbeiten")
Dim f As New frmAddSendnung(AvisoId, SND)
If f.ShowDialog(Me) = DialogResult.OK Then
initSendungen()
cboSendungen.changeItem(f.SendungsId)