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

Barsan-Mails

Browse Source
This commit is contained in:
d.breimaier
2023-10-20 09:26:57 +02:00
parent 106a4e2e35
commit 89a5cf2cde
3 changed files with 55 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAGAddIn/frmAvisoAnfügen.vb
View File

@@ -7,14 +7,16 @@ Public Class frmAvisoAnfuegen
Public SendungsId = -1
Public Bezeichnung = ""
Public PDF_MAIL = ""
Public Art = ""
Public ATT As List(Of String)
Sub New(Bezeichnung)
Sub New(Bezeichnung, Art)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.Bezeichnung = Bezeichnung
Me.Art = Art
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
@@ -42,7 +44,9 @@ Public Class frmAvisoAnfuegen
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bordro", "Bordro"))
If Art <> "" Then cboArt.changeItem(Art)
initAttachment()
End Sub