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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:31:25 +02:00
parent 2c80644224
commit 289037b7f3
28 changed files with 1882 additions and 702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -58,6 +58,15 @@ Public Class frmStartOptions
cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23"))
cboBMDUnispedFirma.changeItem("")
cboSYSKAFirma.Items.Clear()
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "1"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "11"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "7"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Front-Office Suben eG", "17"))
cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19"))
cboSYSKAFirma.changeItem("")
Dim PARAM = ""
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist
@@ -114,7 +123,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
UPDATE_SMS()
closeMe()
Case "DY_EINARBEITUNG_UNISPED"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
@@ -123,7 +132,6 @@ Public Class frmStartOptions
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "MDM_EINARBEITUNG"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmMDMNachrichtenVerarbeitung(True)
@@ -226,7 +234,7 @@ Public Class frmStartOptions
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL")
where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL", 20)
If dt IsNot Nothing Then
For Each row In dt.Rows
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
@@ -1865,11 +1873,11 @@ Public Class frmStartOptions
Function UPDATE_SMS() As Boolean
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%'", "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL")
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id"))
cSMS.checkSMSStatus()
cSMS.checkSMSStatus(True)
Next
End If
Return True
@@ -1879,5 +1887,21 @@ Public Class frmStartOptions
End Try
End Function
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False
If cboSYSKAFirma._value = "" Then
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False)
Else
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked)
End If
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False
If cboSYSKAFirma._value = "" Then
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked,, False)
Else
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(cboSYSKAFirma._value, CheckBox7.Checked)
End If
End Sub
End Class