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

StartOptions

Browse Source
This commit is contained in:
d.breimaier
2024-10-23 10:07:30 +02:00
parent 37234cd747
commit 361c5ffc5d
2 changed files with 27 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb
View File

@@ -234,7 +234,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
i = i + 1 i = i + 1
Next Next
Button1.PerformClick() Button1.PerformClick()
For j As Integer = 0 To 5 For j As Integer = 0 To 10
If Not eingelesen Then System.Threading.Thread.Sleep(20000) If Not eingelesen Then System.Threading.Thread.Sleep(20000)
j = j + 1 j = j + 1
Next Next

29
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -83,7 +83,7 @@ Public Class frmStartOptions
Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
PARAM = "" PARAM = "ASFINAG_IMPORT_TO_SDL"
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
@@ -529,8 +529,9 @@ Public Class frmStartOptions
AddHandler fmTTR.FormClosed, AddressOf closeMe AddHandler fmTTR.FormClosed, AddressOf closeMe
Case "ASFINAG_IMPORT_TO_SDL" Case "ASFINAG_IMPORT_TO_SDL"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
ASFINAG_LKW(False) ASFINAG_LKW(False)
closeMe()
Case "ABGLEICH_KUNDENUEMSAETZE" Case "ABGLEICH_KUNDENUEMSAETZE"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -574,6 +575,8 @@ Public Class frmStartOptions
Dim dt As New DataTable Dim dt As New DataTable
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT") API.UPDTAE_ERR(, fehler, "createJWT")
closeMe()
Exit Sub
Else Else
Dim totalPages = 0 Dim totalPages = 0
Dim batchrequestNr = 0 Dim batchrequestNr = 0
@@ -581,6 +584,7 @@ Public Class frmStartOptions
fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, True) fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, True)
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions") API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions")
closeMe()
Exit Sub Exit Sub
End If End If
If totalPages > 1 Then If totalPages > 1 Then
@@ -589,14 +593,17 @@ Public Class frmStartOptions
fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i) fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i)
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getTransactionsFromBatchNrAndPage") API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getTransactionsFromBatchNrAndPage")
closeMe()
Exit Sub Exit Sub
End If End If
i = i + 1 i = i + 1
Next Next
End If End If
API.UPDTAE_OK(,, PARAM) API.UPDTAE_OK(,, PARAM)
closeMe()
End If End If
Case "MSE_NEWSETTLEMENTS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen) Case "MSE_NEWSETTLEMENTS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen)
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice", "MSE") Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice", "MSE")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -607,6 +614,8 @@ Public Class frmStartOptions
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT") API.UPDTAE_ERR(, fehler, "createJWT")
closeMe()
Exit Sub
Else Else
Dim totalPages = 0 Dim totalPages = 0
Dim batchrequestNr = 0 Dim batchrequestNr = 0
@@ -615,13 +624,15 @@ Public Class frmStartOptions
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestSettlements") API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestSettlements")
Me.Visible = True closeMe()
Exit Sub Exit Sub
End If End If
API.UPDTAE_OK(,, PARAM) API.UPDTAE_OK(,, PARAM)
closeMe()
End If End If
Case "MSE_NEWCUSTOMERS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen) Case "MSE_NEWCUSTOMERS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen)
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice", "MSE") Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice", "MSE")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -632,6 +643,7 @@ Public Class frmStartOptions
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT") API.UPDTAE_ERR(, fehler, "createJWT")
closeMe()
Exit Sub Exit Sub
Else Else
Dim totalPages = 0 Dim totalPages = 0
@@ -639,11 +651,14 @@ Public Class frmStartOptions
fehler = mse.getCustomers(token, dt) fehler = mse.getCustomers(token, dt)
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "getCustomers") API.UPDTAE_ERR(, fehler, "getCustomers")
closeMe()
Exit Sub Exit Sub
End If End If
API.UPDTAE_OK(,, PARAM) API.UPDTAE_OK(,, PARAM)
closeMe()
End If End If
Case "MSE_NEWINVOICES_IMPORT" 'jeweils am 15/letzen Tage des Monats Case "MSE_NEWINVOICES_IMPORT" 'jeweils am 15/letzen Tage des Monats
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice", "MSE") Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE, "MSE - Multiservice", "MSE")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -655,10 +670,13 @@ Public Class frmStartOptions
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR(, fehler, "createJWT") API.UPDTAE_ERR(, fehler, "createJWT")
closeMe()
Exit Sub
Else Else
fehler = mse.getInvoices(token, invoice, Today(), Today(), True) fehler = mse.getInvoices(token, invoice, Today(), Today(), True)
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Datum: " & Today(), fehler, "getInvoices") API.UPDTAE_ERR("Datum: " & Today(), fehler, "getInvoices")
closeMe()
Exit Sub Exit Sub
End If End If
@@ -673,6 +691,7 @@ Public Class frmStartOptions
fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0) fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0)
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromInvoiceID") API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromInvoiceID")
closeMe()
Exit Sub Exit Sub
End If End If
If totalPages > 1 Then If totalPages > 1 Then
@@ -683,6 +702,7 @@ Public Class frmStartOptions
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromBatchNrAndPage") API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromBatchNrAndPage")
closeMe()
Exit Sub Exit Sub
End If End If
Next Next
@@ -692,8 +712,11 @@ Public Class frmStartOptions
End If End If
API.UPDTAE_OK(,, PARAM) API.UPDTAE_OK(,, PARAM)
closeMe()
Exit Sub
End If End If
Case "USTVA_SUMMEM_BERECHNEN" Case "USTVA_SUMMEM_BERECHNEN"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim ok As Boolean = False Dim ok As Boolean = False