stammref, template

This commit is contained in:
2026-03-02 08:25:48 +01:00
parent 2cac04acc6
commit 61a7b3d011
4 changed files with 15 additions and 10 deletions

View File

@@ -770,16 +770,16 @@ Public Class usrCntlATLAS_EZA
End Sub
Private Sub DateiimportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportToolStripMenuItem.Click
'----- Kann ansonten keine Version freigeben!!!
'Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA)
'f.ShowDialog(Me.FindForm)
'EZA = f.EZA
'Me.FindForm.SuspendLayout()
'POSITIONEN.setValues(EZA, True)
'btnPositionen.PerformClick()
'Me.FindForm.ResumeLayout()
Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA)
f.ShowDialog(Me.FindForm)
EZA = f.EZA
Me.FindForm.SuspendLayout()
POSITIONEN.setValues(EZA, True)
btnPositionen.PerformClick()
Me.FindForm.ResumeLayout()
End Sub

View File

@@ -252,12 +252,16 @@
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GLO", "GLO"))
cboNL.changeItem("IME")
Case "ATIL"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO"))
cboNL.changeItem("SUW")
Case "UNAT"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSP", "ATSP"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSPED", "ATSPED"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DESPED", "DESPED"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL", "ZOLL"))
cboNL.changeItem("ATSP")
End Select