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

NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 13:18:12 +01:00
parent de1d935624
commit a6964d7082
28 changed files with 3853 additions and 1086 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -83,6 +83,15 @@ Public Class frmStartOptions
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "DY_EINARBEITUNG_UNISPED"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
Dim f As New frmDYNachrichtenVerarbeitung(True)
Me.Visible = False
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "TC_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmTCNachrichtenVerarbeitung(True)
@@ -990,12 +999,32 @@ Public Class frmStartOptions
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim ok As Boolean = False
Select Case MyComboBox1._value
Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text)
Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text)
Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text)
Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
End Select
showPic(ok, PictureBox14)
End Sub
Function getISett ()As cVERAG_Interface_Settings
getISett = New cVERAG_Interface_Settings
getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked
getISett.acticeInterface_TOBB = cbxISett_TOBB.Checked
getISett.acticeInterface_EKOL = cbxISett_EKOL.Checked
getISett.acticeInterface_TEST = cbxISett_TEST.Checked
getISett.acticeInterface_VERAG = cbxISett_VERAG.Checked
getISett.acticeInterface_IMEX = cbxISett_IMEX.Checked
End Function
Private Sub LinkLabel28_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
Dim f As New frmDYNachrichtenVerarbeitung
f.ShowDialog()
Me.Visible = True
End Sub
End Class