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

Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2023-01-27 13:44:28 +01:00
parent 8f3925d4cf 424af199ed
commit 8684bd0f56
9 changed files with 313 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

114
DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb
View File

@@ -665,49 +665,113 @@ Public Class cDakosyAES
Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
If If(Me.aes_firma, "") = "IMEX" Then
If countSpedbuchEntrys(5501, Me.AES_ObjectName) = 0 Then
SPEDBUCH.FilialenNr = 5501
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
Dim cZOLL_IMPORT As New cZOLL_IMPORT
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.aes_firma, "") <> "", Me.aes_firma, "VERAG")
If DY.dy_SendungsId IsNot Nothing Then
'Filiale erkennen:
Dim filialeBez = ""
Dim filiale = cDakosyEZA.getFiliale(Me.aes_ObjectName, filialeBez)
Dim abfertigungsnummer = cDakosyEZA.getAbfertigungsnummer(Me.aes_ObjectName)
If abfertigungsnummer = "" Then
cDakosyEZA.getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId)
End If
If filiale <> "" And abfertigungsnummer <> "" Then
If cDakosyEZA.countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA ", "" & Me.aes_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
SPEDBUCH.FilialenNr = filiale
SPEDBUCH.AbfertigungsNr = abfertigungsnummer
SPEDBUCH.NewUNTER_NR()
SPEDBUCH.AtlasBezNrNCTS = Me.aes_ObjectName
SPEDBUCH.Abfertigungsart = "7"
SPEDBUCH.Abfertigungsanzahl = 1
SPEDBUCH.Fakturiert = 0
SPEDBUCH.AtlasBezNrAES = Me.aes_ObjectName
SPEDBUCH.Zollsystem = "D"
SPEDBUCH.Sachbearbeiter = "AUTO"
SPEDBUCH.AvisoID = DY.dy_AvisoId
SPEDBUCH.SendungID = DY.dy_SendungsId
Dim ZOLL_IMPORT As New cZOLL_IMPORT
Dim notfound = False
DakosyAESDatenbereitstellung(SPEDBUCH, Me.AES_ObjectName, notfound)
Dim posAnzahl = 0
SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, "", "", notfound, True,, Me.aes_ObjectName)
If Not notfound Then
Return SPEDBUCH.SAVE
If notfound Then Return False
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA !!", "" & Me.aes_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
' MsgBox(SPEDBUCH.FilialenNr & " - " & SPEDBUCH.AbfertigungsNr)
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
If SPEDBUCH.SAVE Then
VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True)
Return True
Else
Return False
End If
' MsgBox(SQL.getValueTxtBySql("select count(*) FROM [VERAG].[dbo].[Speditionsbuch] where AbfertigungsNr = 18035380", "FMZOLL"))
End If
End If
If DY.dy_SendungsId IsNot Nothing Then
Else
Return False 'Ohne Sendungsverweis kein eintrag...
End If
Return SPEDBUCH.SAVE
Else
If False Then 'NOCH NCIHT....
If DY.dy_SendungsId IsNot Nothing Then
Else
Return False 'Ohne Sendungsverweis kein eintrag...
End If
Return SPEDBUCH.SAVE
End If
End If
Return False
End Function
'Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
' Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
' If If(Me.aes_firma, "") = "IMEX" Then
' If countSpedbuchEntrys(5501, Me.AES_ObjectName) = 0 Then
' SPEDBUCH.FilialenNr = 5501
' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
' SPEDBUCH.NewUNTER_NR()
' SPEDBUCH.AtlasBezNrNCTS = Me.aes_ObjectName
' SPEDBUCH.Zollsystem = "D"
' Dim notfound = False
' DakosyAESDatenbereitstellung(SPEDBUCH, Me.AES_ObjectName, notfound)
' If Not notfound Then
' Return SPEDBUCH.SAVE
' Else
' Return False
' End If
' End If
' If DY.dy_SendungsId IsNot Nothing Then
' Else
' Return False 'Ohne Sendungsverweis kein eintrag...
' End If
' Return SPEDBUCH.SAVE
' Else
' If False Then 'NOCH NCIHT....
' If DY.dy_SendungsId IsNot Nothing Then
' Else
' Return False 'Ohne Sendungsverweis kein eintrag...
' End If
' Return SPEDBUCH.SAVE
' End If
' End If
' Return False
'End Function
Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, AES_Nr As String, ByVal notFound As Boolean)
Dim DY As DAKOSY_Worker.cDakosyAES = DAKOSY_Worker.cDakosyAES.LOADByBezugsNr(AES_Nr, True)
If DY Is Nothing Then

5
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -863,7 +863,8 @@ Public Class cDakosyEZA
Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
Shared Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If If(abfertigungsnummer, "") = "" Then Return 0
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL")
End Function
@@ -1010,7 +1011,7 @@ Public Class cDakosyEZA
Return ""
End Function
Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
Shared Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
If SND IsNot Nothing Then

91
DAKOSY_Worker/cIMPORT_Codelisten.vb
View File

@@ -3,6 +3,7 @@ Imports System.Xml
Imports System.IO
Imports System.Text
Imports System.Data.SqlClient
Imports DAKOSY_Worker.cAES_ZustaendigeZST
Public Class cIMPORT_Codelisten
@@ -31,6 +32,8 @@ Public Class cIMPORT_Codelisten
Return Import_I0700(TESTSYSTEM)
Case "C0141"
Return Import_C0141(TESTSYSTEM)
Case "I0610"
Return Import_I0610(TESTSYSTEM)
End Select
Return False
End Function
@@ -525,6 +528,53 @@ Public Class cIMPORT_Codelisten
End Function
Shared Function Import_I0610(TESTSYSTEM) As Boolean
Dim MyData As String = ""
Try
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Using WC As New System.Net.WebClient()
' C0008_URL()
WC.Encoding = ASCIIEncoding.UTF8
Dim URL = cDY_Paramter.GET_PARAM_ByName("I0610_URL", TESTSYSTEM, "VERAG")
If URL = String.Empty Then Return False
' MsgBox(URL)
MyData = WC.DownloadString(URL)
Dim doc As New XmlDocument()
doc.LoadXml(MyData)
Dim LC As New cAES_ZustaendigeZST
If doc.HasChildNodes Then
If doc.GetElementsByTagName("Codelist").Count > 0 Then
If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then
For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes
Dim Code = ""
Dim Qualifier = ""
Dim Description = ""
If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText
If Entry.SelectNodes("Qualifier").Count > 0 Then Qualifier = Entry.SelectNodes("Qualifier")(0).InnerText
If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
LC.Add(New cAES_ZustaendigeZST.cAES_ZustaendigeZST_I0610(Code, Qualifier, Description))
Next
End If
End If
End If
If LC.Count > 0 Then
Return LC.INSERT_DB(TESTSYSTEM)
End If
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return False
End Function
Shared Function Import_I0700(TESTSYSTEM) As Boolean
Dim MyData As String = ""
Try
@@ -717,6 +767,47 @@ Class cEZA_Unterlagearten
End Class
Class cAES_ZustaendigeZST
Inherits List(Of cAES_ZustaendigeZST_I0610)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Function INSERT_DB(TESTSSYSTEM) As Boolean
If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_I0610_ZustaendigeZSTAES]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
Dim ok = True
For Each l In Me
Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code))
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Qualifier", l.Qualifier))
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description))
If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_I0610_ZustaendigeZSTAES] (Code, Qualifier, Description) VALUES (@Code, @Qualifier, @Description); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
ok = False
End If
Next
Return ok
End If
Return False
End Function
Class cAES_ZustaendigeZST_I0610
Property Code As String = ""
Property Qualifier As String = ""
Property Description As String = ""
Sub New(Code, Qualifier, Description)
Me.Code = Code
Me.Qualifier = Qualifier
Me.Description = Description
End Sub
End Class
End Class
Class cLaenderCodesC0010
Inherits List(Of cLaenderCodesC0010)

12
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -479,7 +479,7 @@ Public Class cZOLL_IMPORT
End Function
'Zollsystem 0,1
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False, Optional Personalnummer As Integer = -1) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False, Optional Personalnummer As Integer = -1, Optional AES_Nr As String = "") As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
Me.SPEDITIONSBUCH = SPEDITIONSBUCH
Me.strManNr = strManNr
@@ -535,7 +535,10 @@ Public Class cZOLL_IMPORT
notFound = Me.notFound
Case 2 'dakosy
SPEDITIONSBUCH.Zollsystem = "D"
If EZA_Nr <> "" Then
If AES_Nr <> "" Then
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
DAKOSY_Worker.cDakosyEZA.DakosyAESDatenbereitstellung(SPEDITIONSBUCH, AES_Nr, notFound, PosAnzahl)
ElseIf EZA_Nr <> "" Then
If SPEDITIONSBUCH.Abfertigungsart = "7" Then
DAKOSY_Worker.cDakosyEZA.DakosyAESDatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, PosAnzahl)
Else
@@ -544,7 +547,7 @@ Public Class cZOLL_IMPORT
ElseIf NCTS_Nr <> "" Then
' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr
DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound)
End If
Else End If
Me.notFound = notFound
Case 3 'telotec
SPEDITIONSBUCH.Zollsystem = "T"
@@ -680,6 +683,9 @@ Public Class cZOLL_IMPORT
If SPEDITIONSBUCH.Grenzstelle Is Nothing OrElse SPEDITIONSBUCH.Grenzstelle = "" Then
SPEDITIONSBUCH.Grenzstelle = If(Aviso.Grenzstelle, "")
End If
If SPEDITIONSBUCH.Zollstelle Is Nothing OrElse SPEDITIONSBUCH.Zollstelle = "" Then
SPEDITIONSBUCH.Zollstelle = If(Aviso.Zollstelle, "")
End If
End If
End If

9
cNCTSPartnerWorker/NCTSPartnerWorker.vbproj
View File

@@ -52,9 +52,6 @@
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
<Reference Include="VERAG_PROG_ALLGEMEIN">
<HintPath>..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -109,5 +106,11 @@
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

3
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -2086,6 +2086,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS, DY_TMP, messageID, messageTstmp, , MRN)
' If If(AES_TMP.aes_firma, "") = "IMEX" Then AES_TMP.insertIntoSpedBuch(DY_TMP)
AES_TMP.insertIntoSpedBuch(DY_TMP)
'SaveAES_FirmaNL(AES_TMP, "") 'KEINE NIEDERLASSUNG
@@ -2201,7 +2202,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim AES_TMP As DAKOSY_Worker.cDakosyAES = saveDY_AES(STATUS, DY_TMP, messageID, messageTstmp, , MRN)
'SaveAES_FirmaNL(AES_TMP, "") 'KEINE NIEDERLASSUNG
AES_TMP.insertIntoSpedBuch(DY_TMP)
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE()

48
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -25,6 +25,7 @@ Partial Class frmStartOptions
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
Me.pnl = New System.Windows.Forms.Panel()
Me.Label21 = New System.Windows.Forms.Label()
Me.Button16 = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.Label20 = New System.Windows.Forms.Label()
@@ -159,7 +160,8 @@ Partial Class frmStartOptions
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.LinkLabel38 = New System.Windows.Forms.LinkLabel()
Me.PictureBox17 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbcntr.SuspendLayout()
@@ -184,6 +186,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
@@ -253,6 +256,16 @@ Partial Class frmStartOptions
Me.pnl.Size = New System.Drawing.Size(861, 827)
Me.pnl.TabIndex = 0
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label21.Location = New System.Drawing.Point(264, 298)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(75, 13)
Me.Label21.TabIndex = 69
Me.Label21.Text = "Geschäftsjahr:"
'
'Button16
'
Me.Button16.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -653,6 +666,8 @@ Partial Class frmStartOptions
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.LinkLabel38)
Me.TabPage1.Controls.Add(Me.PictureBox17)
Me.TabPage1.Controls.Add(Me.LinkLabel37)
Me.TabPage1.Controls.Add(Me.PictureBox16)
Me.TabPage1.Controls.Add(Me.Button15)
@@ -1931,15 +1946,27 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
Me.txtGJ_UNISPED.TabIndex = 68
'
'Label21
'LinkLabel38
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label21.Location = New System.Drawing.Point(264, 298)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(75, 13)
Me.Label21.TabIndex = 69
Me.Label21.Text = "Geschäftsjahr:"
Me.LinkLabel38.AutoSize = True
Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel38.Location = New System.Drawing.Point(475, 125)
Me.LinkLabel38.Name = "LinkLabel38"
Me.LinkLabel38.Size = New System.Drawing.Size(141, 13)
Me.LinkLabel38.TabIndex = 59
Me.LinkLabel38.TabStop = True
Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)"
'
'PictureBox17
'
Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox17.Location = New System.Drawing.Point(630, 120)
Me.PictureBox17.Name = "PictureBox17"
Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
Me.PictureBox17.TabIndex = 60
Me.PictureBox17.TabStop = False
Me.PictureBox17.Visible = False
'
'frmStartOptions
'
@@ -1982,6 +2009,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -2121,4 +2149,6 @@ Partial Class frmStartOptions
Friend WithEvents PictureBox16 As PictureBox
Friend WithEvents Label21 As Label
Friend WithEvents txtGJ_UNISPED As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel38 As LinkLabel
Friend WithEvents PictureBox17 As PictureBox
End Class

24
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -140,6 +140,30 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox17.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox16.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

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