From 361c5ffc5da734161cca99f4ec58b0b7176d3743 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 23 Oct 2024 10:07:30 +0200 Subject: [PATCH] StartOptions --- .../frmAsfinag_NachrichtenVerarbeitung.vb | 2 +- initATLASAufschubkonten/frmStartOptions.vb | 29 +++++++++++++++++-- 2 files changed, 27 insertions(+), 4 deletions(-) diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb index a9804ef..ea6be5d 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb @@ -234,7 +234,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung i = i + 1 Next 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) j = j + 1 Next diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 39e27be..ba41307 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -83,7 +83,7 @@ Public Class frmStartOptions Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS - PARAM = "" + PARAM = "ASFINAG_IMPORT_TO_SDL" 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 @@ -529,8 +529,9 @@ Public Class frmStartOptions AddHandler fmTTR.FormClosed, AddressOf closeMe Case "ASFINAG_IMPORT_TO_SDL" - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False ASFINAG_LKW(False) + closeMe() Case "ABGLEICH_KUNDENUEMSAETZE" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -574,6 +575,8 @@ Public Class frmStartOptions Dim dt As New DataTable If fehler <> "" Then API.UPDTAE_ERR(, fehler, "createJWT") + closeMe() + Exit Sub Else Dim totalPages = 0 Dim batchrequestNr = 0 @@ -581,6 +584,7 @@ Public Class frmStartOptions fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, True) If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions") + closeMe() Exit Sub End If If totalPages > 1 Then @@ -589,14 +593,17 @@ Public Class frmStartOptions fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i) If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getTransactionsFromBatchNrAndPage") + closeMe() Exit Sub End If i = i + 1 Next End If API.UPDTAE_OK(,, PARAM) + closeMe() End If + 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") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -607,6 +614,8 @@ Public Class frmStartOptions If fehler <> "" Then API.UPDTAE_ERR(, fehler, "createJWT") + closeMe() + Exit Sub Else Dim totalPages = 0 Dim batchrequestNr = 0 @@ -615,13 +624,15 @@ Public Class frmStartOptions If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestSettlements") - Me.Visible = True + closeMe() Exit Sub End If API.UPDTAE_OK(,, PARAM) + closeMe() End If + 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") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -632,6 +643,7 @@ Public Class frmStartOptions If fehler <> "" Then API.UPDTAE_ERR(, fehler, "createJWT") + closeMe() Exit Sub Else Dim totalPages = 0 @@ -639,11 +651,14 @@ Public Class frmStartOptions fehler = mse.getCustomers(token, dt) If fehler <> "" Then API.UPDTAE_ERR(, fehler, "getCustomers") + closeMe() Exit Sub End If API.UPDTAE_OK(,, PARAM) + closeMe() End If + 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") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -655,10 +670,13 @@ Public Class frmStartOptions If fehler <> "" Then API.UPDTAE_ERR(, fehler, "createJWT") + closeMe() + Exit Sub Else fehler = mse.getInvoices(token, invoice, Today(), Today(), True) If fehler <> "" Then API.UPDTAE_ERR("Datum: " & Today(), fehler, "getInvoices") + closeMe() Exit Sub End If @@ -673,6 +691,7 @@ Public Class frmStartOptions fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0) If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromInvoiceID") + closeMe() Exit Sub End If If totalPages > 1 Then @@ -683,6 +702,7 @@ Public Class frmStartOptions If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getSettlementsFromBatchNrAndPage") + closeMe() Exit Sub End If Next @@ -692,8 +712,11 @@ Public Class frmStartOptions End If API.UPDTAE_OK(,, PARAM) + closeMe() + Exit Sub End If + Case "USTVA_SUMMEM_BERECHNEN" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim ok As Boolean = False