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

Neue Codeliste I0610 (zust.ZA)

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-23 08:14:28 +01:00
parent 311eedea2f
commit 424af199ed
4 changed files with 196 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -195,11 +195,34 @@ Public Class frmStartOptions
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0141", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0141", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0400", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0400", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0010", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0010", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0013", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0013", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0122", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0122", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0200", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0200", False)
Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", False)
Me.Refresh()
closeMe()
End Sub
Case "KD_DATA_DAKOSY"
@@ -1941,7 +1964,13 @@ Public Class frmStartOptions
End Sub
Private Sub LinkLabel12_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel12.LinkClicked
Me.Cursor = Cursors.WaitCursor
Try
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", True) 'TESTSYSTEM
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0127", False) 'ECHTSYSTEM
showPic(erg, PictureBox5)
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub LinkLabel13_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel13.LinkClicked
@@ -3213,4 +3242,14 @@ Public Class frmStartOptions
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub LinkLabel38_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel38.LinkClicked
Me.Cursor = Cursors.WaitCursor
Try
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0610", True) 'TESTSYSTEM
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0610", False) 'ECHTSYSTEM
showPic(erg, PictureBox17)
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
End Class