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

Anhangsarten eigene Form für Adminstration

Browse Source
This commit is contained in:
d.breimaier
2024-03-13 17:31:48 +01:00
parent 3c85713ff0
commit fb978b760b
8 changed files with 417 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb
View File

@@ -1,4 +1,6 @@
Public Class frmSendungAnhangUmbenennenUmkateg
Imports VERAG_PROG_ALLGEMEIN
Public Class frmSendungAnhangUmbenennenUmkateg
Dim nameOLD = ""
Dim artOLD = ""
Sub New(nameOLD As String, artOLD As String)
@@ -13,11 +15,11 @@
Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
cboArt.Items.Clear()
Dim SQLString = "SELECT [aa_name],[aa_bezeichnung] FROM [tblAvisoAnhangsArten] WHERE aa_aktiv=1 and ((aa_firma is null and aa_filiale is null)"
SQLString &= IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.ToString, " OR aa_firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", "")
SQLString &= IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE, " OR filiale = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "'", "")
SQLString &= ")"
cboArt.fillWithSQL(SQLString, False, "AVISO", True)
Dim list As New cAvisoAnhangsarten_LIST(True, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For Each r In list.LIST
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(r.aa_name, r.aa_bezeichnung))
Next
'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
'cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR-EUR1"))