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

Mailsender und startOptions (AMBAR)

Browse Source
This commit is contained in:
d.breimaier
2024-05-14 10:53:21 +02:00
parent ced1793aaa
commit 830a6de720
4 changed files with 284 additions and 172 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -96,7 +96,7 @@ Public Class frmStartOptions
'doIDSPlatts()
'Exit Sub
'PARAM=""
'PARAM = "AMBAR_VERAG_BUCHUNGEN"
'Standart-Errorverhalten ist MAIL
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
If PARAM <> "" Then
@@ -512,6 +512,13 @@ Public Class frmStartOptions
If DELETE_Kundenumsaetze(lastyears) Then
INSERT_Kundenumsaetze(lastyears)
End If
Case "AMBAR_VERAG_BUCHUNGEN"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmInfo(PARAM)
f.Show()
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24,, "", True)
closeMe()
'------------------------------
Case Else
'Nur bei manuellem Start wird der fehler ausgegeben
@@ -3154,7 +3161,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked)
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
showPic(bool, PictureBox12)
@@ -3671,17 +3678,28 @@ Public Class frmStartOptions
End Try
End Function
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, buchungenAMBAR.Click
If cbxSyskaWdh.Checked And txtSyskaWdhDateiname.Text = "" Then
MsgBox("Dateiname angeben!") : Exit Sub
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False
If cboSYSKAFirma._value = "" Then
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""))
Else
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""))
End If
Select Case sender.name
Case "Button7" '
If cboSYSKAFirma._value = "" Then
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""))
Else
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""))
End If
Case "buchungenAMBAR"
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""), True)
End Select
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
@@ -4325,10 +4343,11 @@ Public Class frmStartOptions
End Sub
Private Sub LinkLabel51_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel51.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim CHAT As New cMessenger.cMessenger_Chat
showPic(CHAT.setOldChatsInactiv(MyTextBox3.Text), PictureBox23)
End Sub
End Class