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

Merge branch 'ADMIN' of https://verag.visualstudio.com/ADMIN/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-02 16:37:44 +02:00
parent 5ae21921e8 f044a6d42f
commit 72d5d41ee7
5 changed files with 775 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
UID/usrCntlDatenarchiv.vb
View File

@@ -76,6 +76,23 @@ Public Class usrCntlDatenarchiv
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
DatenarchivBind = New cEasyBinding(BIND_DB)
Dim sqlstr As String = ""
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
DatenarchivBind.initBinding("SELECT " & TopMax & " [Param_name],[Param_value], [Param_system] FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), table)
DataGridView.DataSource = DatenarchivBind.bindingdataTable
Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "Param_system")
For Each d As DataRow In distinctDT.Rows
If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
Next
Me.usrCntlDatenarchiv_Load(sender, e) Me.usrCntlDatenarchiv_Load(sender, e)
End Sub End Sub

167
initATLASAufschubkonten/cUTA.vb
View File

@@ -22,7 +22,7 @@ Public Class cUTA
'Einträge in tblUTALeistungen machen, wenn Fakturierwarenart und Lieferland noch nicht in der Tabelle enthalten sind. 'Einträge in tblUTALeistungen machen, wenn Fakturierwarenart und Lieferland noch nicht in der Tabelle enthalten sind.
Dim query = "INSERT INTO tblUTALeistungen (Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr ) Dim query = "INSERT INTO tblUTALeistungen (Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr )
Select Case tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr Select tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr
From tblUTAImport INNER Join tblUTAFakturierwarenarten On tblUTAImport.Fakturierwarenart = tblUTAFakturierwarenarten.Fakturierwarenart From tblUTAImport INNER Join tblUTAFakturierwarenarten On tblUTAImport.Fakturierwarenart = tblUTAFakturierwarenarten.Fakturierwarenart
Group By tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr Group By tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr
HAVING((((SELECT tblUTALeistungen.Fakturierwarenart FROM tblUTALeistungen WHERE tblUTALeistungen.Fakturierwarenart=tblUTAImport.Fakturierwarenart And tblUTALeistungen.Lieferland=tblUTAImport.Lieferland)) Is Null))" HAVING((((SELECT tblUTALeistungen.Fakturierwarenart FROM tblUTALeistungen WHERE tblUTALeistungen.Fakturierwarenart=tblUTAImport.Fakturierwarenart And tblUTALeistungen.Lieferland=tblUTAImport.Lieferland)) Is Null))"
@@ -35,8 +35,8 @@ Public Class cUTA
Property Übertragungsnummer As Integer Property Übertragungsnummer As Integer
Property ErstellDatumUhrzeit As DateTime Property ErstellDatumUhrzeit As DateTime
Property Absender_ID As Integer Property Absender_ID As Object = Nothing
Property Empfänger_ID As Integer Property Empfänger_ID As Object = Nothing
Property Filler_Feld_5 As Object = Nothing Property Filler_Feld_5 As Object = Nothing
Property Abrechnungsnummer As Object = Nothing Property Abrechnungsnummer As Object = Nothing
Property DTF_Format As Object = Nothing Property DTF_Format As Object = Nothing
@@ -243,8 +243,8 @@ Public Class cUTA
Property Steuerliches_Lieferland As String Property Steuerliches_Lieferland As String
Property Steuerliche_Produktgruppe As String Property Steuerliche_Produktgruppe As String
Property Leistungsort_verlagerbar As Char Property Leistungsort_verlagerbar As Char
Property archiviertDatum As Object Property abgerechnetDatum As Object
Property archiv As Boolean = False Property abgerechnet As Boolean = False
Public hasEntry = False Public hasEntry = False
@@ -345,8 +345,8 @@ Public Class cUTA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliches_Lieferland", Steuerliches_Lieferland)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliches_Lieferland", Steuerliches_Lieferland))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliche_Produktgruppe", Steuerliche_Produktgruppe)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliche_Produktgruppe", Steuerliche_Produktgruppe))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsort_verlagerbar", Leistungsort_verlagerbar)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsort_verlagerbar", Leistungsort_verlagerbar))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet))
Return list Return list
End Function End Function
@@ -441,92 +441,92 @@ Public Class cUTA
Property ErstellDatumUhrzeit As DateTime Property ErstellDatumUhrzeit As DateTime
Property Übertragungsnummer As Integer Property Übertragungsnummer As Integer
Property Übertragungsposition As Integer Property Übertragungsposition As Integer
Property Abrechnungsnummer As Double Property Abrechnungsnummer As Object
Property Datum_für_Lieferungen_und_Leistungen_bis As DateTime Property Datum_für_Lieferungen_und_Leistungen_bis As DateTime
Property Rechnungsempfänger_Kundennummer As Integer Property Rechnungsempfänger_Kundennummer As Integer
Property Abrechnungsdatum As DateTime Property Abrechnungsdatum As DateTime
Property Kundennummer As Integer Property Kundennummer As Integer
Property Kartennummer As String Property Kartennummer As Object
Property Belegdatum As DateTime Property Belegdatum As DateTime
Property Akzeptanzstellennummer As Double Property Akzeptanzstellennummer As Object
Property Standort_der_Akzeptanzstelle As String Property Standort_der_Akzeptanzstelle As Object
Property Lieferland As String Property Lieferland As Object
Property Belegnummer_des_Lieferanten As String Property Belegnummer_des_Lieferanten As Object
Property Kilometerstand As Double Property Kilometerstand As Object
Property Fakturierwarenart As String Property Fakturierwarenart As Object
Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Char Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Object
Property Menge As Double Property Menge As Object
Property SB_BT As Char Property SB_BT As Object
Property Umsatzsteuerprozentsatz As Double Property Umsatzsteuerprozentsatz As Object
Property Lieferlandwährung_ISO As String Property Lieferlandwährung_ISO As Object
Property Einzelpreis_Netto_in_Lieferlandwährung As Double Property Einzelpreis_Netto_in_Lieferlandwährung As Object
Property Einzelpreis_Brutto_in_Lieferlandwährung As Double Property Einzelpreis_Brutto_in_Lieferlandwährung As Object
Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Double Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Object
Property Betrag_Service_in_Lieferlandwährung As Double Property Betrag_Service_in_Lieferlandwährung As Object
Property Betrag_Nachlass_in_Lieferlandwährung As Double Property Betrag_Nachlass_in_Lieferlandwährung As Object
Property Gesamtbetrag_Netto_in_Lieferlandwährung As Double Property Gesamtbetrag_Netto_in_Lieferlandwährung As Object
Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Double Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Object
Property Darstellwährung_ISO As String Property Darstellwährung_ISO As Object
Property Betrag_Service_in_Darstellwährung As Double Property Betrag_Service_in_Darstellwährung As Object
Property Betrag_Nachlass_in_Darstellwährung As Double Property Betrag_Nachlass_in_Darstellwährung As Object
Property Gesamtbetrag_Netto_in_Darstellwährung As Double Property Gesamtbetrag_Netto_in_Darstellwährung As Object
Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Double Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Object
Property Gesamtbetrag_Brutto_in_Darstellwährung As Double Property Gesamtbetrag_Brutto_in_Darstellwährung As Object
Property Prägetext_i_d_R_KFZ_Kennzeichen As String Property Prägetext_i_d_R_KFZ_Kennzeichen As Object
Property Kunden_Kostenstelle_1 As String Property Kunden_Kostenstelle_1 As Object
Property Kartentyp As String Property Kartentyp As Object
Property Filler_Feld_35 As Char Property Filler_Feld_35 As Object
Property Filler_Feld_36 As String Property Filler_Feld_36 As Object
Property KZ_Autobahn As Char Property KZ_Autobahn As Object
Property INFO_Feld As String Property INFO_Feld As Object
Property KFZ_Kennzeichen As String Property KFZ_Kennzeichen As Object
Property Filler_Feld_40 As Char Property Filler_Feld_40 As Object
Property Buchungsart As Char Property Buchungsart As Object
Property Buchungsgrund As Char Property Buchungsgrund As Object
Property Filler_Feld_43 As Char Property Filler_Feld_43 As Object
Property Informationsbeleg As Char Property Informationsbeleg As Object
Property Belegherkunft As Char Property Belegherkunft As Object
Property Filler_Feld_46 As String Property Filler_Feld_46 As Object
Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object
Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object
Property Rechnungsdatum As DateTime Property Rechnungsdatum As DateTime
Property Umsatzsteuerprozentsatz_informativ As Double Property Umsatzsteuerprozentsatz_informativ As Object
Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Double Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Object
Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Double Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Object
Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Double Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Object
Property Fälligkeitsdatum As DateTime Property Fälligkeitsdatum As DateTime
Property Zahlungsziel_in_Tagen As Integer Property Zahlungsziel_in_Tagen As Integer
Property Zahlungsart As String Property Zahlungsart As Object
Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As String Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As Object
Property TC_Rechnungsdatum As DateTime Property TC_Rechnungsdatum As DateTime
Property Zahlungszielgruppe As String Property Zahlungszielgruppe As Object
Property Kunden_Kostenstelle_2 As String Property Kunden_Kostenstelle_2 As Object
Property Lieferzeit As String Property Lieferzeit As Object
Property Fremdkartennummer As String Property Fremdkartennummer As Object
Property OnBoardUnitID As String Property OnBoardUnitID As Object
Property KFZ_Kennzeichen_komprimiert As String Property KFZ_Kennzeichen_komprimiert As Object
Property Kartenkategorie As String Property Kartenkategorie As Object
Property Rechnungsnummer_pro_Lieferland As Double Property Rechnungsnummer_pro_Lieferland As Object
Property Autobahnauffahrt As String Property Autobahnauffahrt As Object
Property Autobahnausfahrt As String Property Autobahnausfahrt As Object
Property Rabattschlüssel_der_französischen_Autobahngesellschaften As Integer Property Rabattschlüssel_der_französischen_Autobahngesellschaften As Integer
Property Nummer_Belastungsanzeige As Double Property Nummer_Belastungsanzeige As Object
Property Betreuungsstelle As String Property Betreuungsstelle As Object
Property Filler_Feld_72 As String Property Filler_Feld_72 As Object
Property Akzeptanz_Medium As String Property Akzeptanz_Medium As Object
Property Steuerkategorie As String Property Steuerkategorie As Object
Property UTA_Beleg_ID As String Property UTA_Beleg_ID As Object
Property UTA_Normalbeleg_ID As String Property UTA_Normalbeleg_ID As Object
Property Gebühren_Bescheinigung_von As DateTime Property Gebühren_Bescheinigung_von As DateTime
Property Gebühren_Bescheinigung_bis As DateTime Property Gebühren_Bescheinigung_bis As DateTime
Property Herausgeber_Nutzer_Nummer As String Property Herausgeber_Nutzer_Nummer As Object
Property Maßeinheit As String Property Maßeinheit As Object
Property Land_der_Akzeptanzstelle As String Property Land_der_Akzeptanzstelle As Object
Property Postleitzahl_der_Akzeptanzstelle As String Property Postleitzahl_der_Akzeptanzstelle As Object
Property Steuerliches_Lieferland As String Property Steuerliches_Lieferland As Object
Property Steuerliche_Produktgruppe As String Property Steuerliche_Produktgruppe As Object
Property Leistungsort_verlagerbar As Char Property Leistungsort_verlagerbar As Object
Property UStVAn_ID As String Property UStVAn_ID As Object
Public hasEntry = False Public hasEntry = False
@@ -726,7 +726,7 @@ Public Class cUTA
Property ErstellDatumUhrzeit As DateTime Property ErstellDatumUhrzeit As DateTime
Property Übertragungsnummer As Integer Property Übertragungsnummer As Integer
Property Anzahl_Sätze As Integer Property Anzahl_Sätze As Integer
Property Checksumme As Double Property Checksumme As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -1099,7 +1099,6 @@ Public Class cUTA
.SAVE() .SAVE()
Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID) Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
clfArchiv.Übertragungsnummer = .Übertragungsnummer clfArchiv.Übertragungsnummer = .Übertragungsnummer
clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit
@@ -1196,7 +1195,7 @@ Public Class cUTA
If curChecksumme < 0 Then If curChecksumme < 0 Then
curChecksumme = 0 - curChecksumme curChecksumme = 0 - curChecksumme
End If End If
If Trim(Mid(strZeile, 16, 18) / 100) <> curChecksumme Then If Trim(Mid(strZeile, 16, 18) / 100) <> Math.Round(curChecksumme, 2) Then
MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden") MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden")
'Return False 'Return False
End If End If

26
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -13,6 +13,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim allowClose = False Dim allowClose = False
Dim deleteFilesAfterDownload = False Dim deleteFilesAfterDownload = False
Dim renameFilesAfterDownload = False
Dim rmc As New cRMC Dim rmc As New cRMC
Dim uta As New cUTA Dim uta As New cUTA
Dim programName As String Dim programName As String
@@ -27,13 +28,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
Sub New(programName As String, allowClose As Boolean, deleteFilesAfterDownload As Boolean) 'autostart Sub New(programName As String, allowClose As Boolean, deleteFilesAfterDownload As Boolean, renameFilesAfterDownload As Boolean) 'autostart
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
Me.programName = programName Me.programName = programName
Me.allowClose = allowClose Me.allowClose = allowClose
Me.deleteFilesAfterDownload = deleteFilesAfterDownload Me.deleteFilesAfterDownload = deleteFilesAfterDownload
Me.renameFilesAfterDownload = renameFilesAfterDownload
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub End Sub
@@ -100,7 +102,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If programName.Contains("RMC") Then If programName.Contains("RMC") Then
DownloadFtpDirectory(rmc.API_STRING & "/", New NetworkCredential(rmc.API.Rows(0).Item("api_user").ToString, rmc.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload) DownloadFtpDirectory(rmc.API_STRING & "/", New NetworkCredential(rmc.API.Rows(0).Item("api_user").ToString, rmc.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload)
ElseIf programName.Contains("UTA") Then ElseIf programName.Contains("UTA") Then
DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year) DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year, renameFilesAfterDownload)
ElseIf programName.Contains("IDS") Then ElseIf programName.Contains("IDS") Then
'DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, False, "/TRX/" & Now.Year) 'DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, False, "/TRX/" & Now.Year)
End If End If
@@ -212,7 +214,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
'End If 'End If
Next Next
End Sub End Sub
Function DownloadSFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean, Path As String) As Integer Function DownloadSFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean, Path As String, renameAfterDownload As Boolean) As Integer
Dim ConnectionInfo As New ConnectionInfo(url, "22", credentials.UserName, New PasswordAuthenticationMethod(credentials.UserName, credentials.Password)) Dim ConnectionInfo As New ConnectionInfo(url, "22", credentials.UserName, New PasswordAuthenticationMethod(credentials.UserName, credentials.Password))
@@ -224,7 +226,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim targetFile As SftpFile Dim targetFile As SftpFile
For Each file As SftpFile In files For Each file As SftpFile In files
If file.IsRegularFile AndAlso file.Name.ToLower.Contains(".uta") AndAlso file.Length > 0 Then If file.IsRegularFile AndAlso file.Name.ToLower.EndsWith(".uta") AndAlso file.Length > 0 AndAlso IIf(renameAfterDownload, Not file.Name.ToLower.StartsWith("_"), True) Then
Dim remoteFileName = "/" & file.Name Dim remoteFileName = "/" & file.Name
Dim filePath = uta.VERARBEITUNG_PFAD & If(IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name) Dim filePath = uta.VERARBEITUNG_PFAD & If(IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name)
@@ -235,6 +237,13 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
client.DownloadFile(Path + remoteFileName, downloadedFile) client.DownloadFile(Path + remoteFileName, downloadedFile)
If IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen If IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen
If IO.File.Exists(filePath) AndAlso Not deleteAfterDownload And renameAfterDownload Then
Dim remoteFileNameRenamed = "/_" & file.Name
client.RenameFile(Path + remoteFileName, Path + remoteFileNameRenamed) 'verarbeitete Datei kennzeichnen mit beginnenden "_"
End If
downloadedFile.Dispose() downloadedFile.Dispose()
@@ -333,6 +342,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren! 'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren!
'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen! 'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen!
If fi.Name.ToString.StartsWith("invoice_") Then If fi.Name.ToString.StartsWith("invoice_") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d)) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
@@ -381,6 +391,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
If Not found Then If Not found Then
If readUTA(d) <> "" Then found = True If readUTA(d) <> "" Then found = True
End If End If
If found Then cntDatenEingelesen += 1 If found Then cntDatenEingelesen += 1
@@ -574,7 +585,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
RMC.rmc_betragNetto = SQL.isleernothing(currentRow(9)) RMC.rmc_betragNetto = SQL.isleernothing(currentRow(9))
RMC.rmc_betragMWST = SQL.isleernothing(currentRow(10)) RMC.rmc_betragMWST = SQL.isleernothing(currentRow(10))
RMC.rmc_betragBrutto = SQL.isleernothing(currentRow(11)) RMC.rmc_betragBrutto = SQL.isleernothing(currentRow(11))
RMC.rmc_waehrung = SQL.isleernothing(currentRow(12))
Dim waherung = SQL.isleernothing(currentRow(12))
If waherung IsNot Nothing Then
RMC.rmc_waehrung = IIf(waherung.ToString.Length > 3, waherung.ToString.Substring(0, 3), waherung)
End If
RMC.rmc_euroBrutto = SQL.isleernothing(currentRow(13)) RMC.rmc_euroBrutto = SQL.isleernothing(currentRow(13))
RMC.rmc_pdfFileName = "invoice_" & RMC.rmc_kdNr & "_" & filenr & "_" & RMC.rmc_sammelReNr & IIf(fileType = "netto", "_nto_e_verag.pdf", "_bto_e_verag.pdf") RMC.rmc_pdfFileName = "invoice_" & RMC.rmc_kdNr & "_" & filenr & "_" & RMC.rmc_sammelReNr & IIf(fileType = "netto", "_nto_e_verag.pdf", "_bto_e_verag.pdf")

419
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -169,6 +169,26 @@ Partial Class frmStartOptions
Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.LinkLabel61 = New System.Windows.Forms.LinkLabel()
Me.Label40 = New System.Windows.Forms.Label()
Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel59 = New System.Windows.Forms.LinkLabel()
Me.Label39 = New System.Windows.Forms.Label()
Me.Label38 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.LinkLabel58 = New System.Windows.Forms.LinkLabel()
Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel57 = New System.Windows.Forms.LinkLabel()
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.LinkLabel56 = New System.Windows.Forms.LinkLabel()
Me.datVon = New System.Windows.Forms.DateTimePicker()
Me.LinkLabel55 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel54 = New System.Windows.Forms.LinkLabel()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.cbxDateienlöschenUTA = New System.Windows.Forms.CheckBox()
Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel() Me.LinkLabel53 = New System.Windows.Forms.LinkLabel()
Me.Label36 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label()
Me.Label35 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label()
@@ -176,7 +196,6 @@ Partial Class frmStartOptions
Me.Label33 = New System.Windows.Forms.Label() Me.Label33 = New System.Windows.Forms.Label()
Me.Label32 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label()
Me.Label31 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label()
Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() Me.LinkLabel52 = New System.Windows.Forms.LinkLabel()
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label()
@@ -196,6 +215,7 @@ Partial Class frmStartOptions
Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel()
Me.Label24 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label()
Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox()
@@ -223,10 +243,6 @@ Partial Class frmStartOptions
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox()
Me.cbxDateienlöschenUTA = New System.Windows.Forms.CheckBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2129,6 +2145,22 @@ Partial Class frmStartOptions
' '
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.LinkLabel61)
Me.TabPage4.Controls.Add(Me.Label40)
Me.TabPage4.Controls.Add(Me.txtTransactionID)
Me.TabPage4.Controls.Add(Me.LinkLabel59)
Me.TabPage4.Controls.Add(Me.Label39)
Me.TabPage4.Controls.Add(Me.Label38)
Me.TabPage4.Controls.Add(Me.Label37)
Me.TabPage4.Controls.Add(Me.LinkLabel58)
Me.TabPage4.Controls.Add(Me.txtBatchNr)
Me.TabPage4.Controls.Add(Me.LinkLabel57)
Me.TabPage4.Controls.Add(Me.DateTimePicker2)
Me.TabPage4.Controls.Add(Me.DateTimePicker1)
Me.TabPage4.Controls.Add(Me.LinkLabel56)
Me.TabPage4.Controls.Add(Me.datVon)
Me.TabPage4.Controls.Add(Me.LinkLabel55)
Me.TabPage4.Controls.Add(Me.LinkLabel54)
Me.TabPage4.Controls.Add(Me.TextBox2) Me.TabPage4.Controls.Add(Me.TextBox2)
Me.TabPage4.Controls.Add(Me.TextBox1) Me.TabPage4.Controls.Add(Me.TextBox1)
Me.TabPage4.Controls.Add(Me.cbxDateienlöschenUTA) Me.TabPage4.Controls.Add(Me.cbxDateienlöschenUTA)
@@ -2140,7 +2172,6 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.Label33) Me.TabPage4.Controls.Add(Me.Label33)
Me.TabPage4.Controls.Add(Me.Label32) Me.TabPage4.Controls.Add(Me.Label32)
Me.TabPage4.Controls.Add(Me.Label31) Me.TabPage4.Controls.Add(Me.Label31)
Me.TabPage4.Controls.Add(Me.cbxRMC)
Me.TabPage4.Controls.Add(Me.LinkLabel52) Me.TabPage4.Controls.Add(Me.LinkLabel52)
Me.TabPage4.Controls.Add(Me.Label30) Me.TabPage4.Controls.Add(Me.Label30)
Me.TabPage4.Controls.Add(Me.Label29) Me.TabPage4.Controls.Add(Me.Label29)
@@ -2160,6 +2191,7 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.LinkLabel43) Me.TabPage4.Controls.Add(Me.LinkLabel43)
Me.TabPage4.Controls.Add(Me.LinkLabel44) Me.TabPage4.Controls.Add(Me.LinkLabel44)
Me.TabPage4.Controls.Add(Me.Label24) Me.TabPage4.Controls.Add(Me.Label24)
Me.TabPage4.Controls.Add(Me.cbxRMC)
Me.TabPage4.Controls.Add(Me.txtTBLNr) Me.TabPage4.Controls.Add(Me.txtTBLNr)
Me.TabPage4.Controls.Add(Me.txtTWLNr) Me.TabPage4.Controls.Add(Me.txtTWLNr)
Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Location = New System.Drawing.Point(4, 22)
@@ -2169,11 +2201,250 @@ Partial Class frmStartOptions
Me.TabPage4.Text = "VERAG 360" Me.TabPage4.Text = "VERAG 360"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'LinkLabel61
'
Me.LinkLabel61.AutoSize = True
Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel61.Location = New System.Drawing.Point(658, 272)
Me.LinkLabel61.Name = "LinkLabel61"
Me.LinkLabel61.Size = New System.Drawing.Size(158, 13)
Me.LinkLabel61.TabIndex = 118
Me.LinkLabel61.TabStop = True
Me.LinkLabel61.Text = "fehlende Transaktionen abrufen"
'
'Label40
'
Me.Label40.AutoSize = True
Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label40.Location = New System.Drawing.Point(658, 155)
Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(20, 13)
Me.Label40.TabIndex = 116
Me.Label40.Text = "ID"
'
'txtTransactionID
'
Me.txtTransactionID._DateTimeOnly = False
Me.txtTransactionID._numbersOnly = True
Me.txtTransactionID._numbersOnlyKommastellen = ""
Me.txtTransactionID._numbersOnlyTrennzeichen = False
Me.txtTransactionID._Prozent = False
Me.txtTransactionID._ShortDateNew = False
Me.txtTransactionID._ShortDateOnly = False
Me.txtTransactionID._TimeOnly = False
Me.txtTransactionID._TimeOnly_Seconds = False
Me.txtTransactionID._value = ""
Me.txtTransactionID._Waehrung = False
Me.txtTransactionID._WaehrungZeichen = True
Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window
Me.txtTransactionID.ForeColor = System.Drawing.Color.Black
Me.txtTransactionID.Location = New System.Drawing.Point(691, 152)
Me.txtTransactionID.MaxLength = 10
Me.txtTransactionID.MaxLineLength = -1
Me.txtTransactionID.MaxLines_Warning = ""
Me.txtTransactionID.MaxLines_Warning_Label = Nothing
Me.txtTransactionID.Name = "txtTransactionID"
Me.txtTransactionID.Size = New System.Drawing.Size(85, 20)
Me.txtTransactionID.TabIndex = 115
Me.txtTransactionID.Text = "1001723285"
Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'LinkLabel59
'
Me.LinkLabel59.AutoSize = True
Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel59.Location = New System.Drawing.Point(670, 175)
Me.LinkLabel59.Name = "LinkLabel59"
Me.LinkLabel59.Size = New System.Drawing.Size(149, 13)
Me.LinkLabel59.TabIndex = 114
Me.LinkLabel59.TabStop = True
Me.LinkLabel59.Text = "Transaktionen von ID abrufen"
'
'Label39
'
Me.Label39.AutoSize = True
Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label39.Location = New System.Drawing.Point(657, 218)
Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(28, 13)
Me.Label39.TabIndex = 113
Me.Label39.Text = "von"
'
'Label38
'
Me.Label38.AutoSize = True
Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label38.Location = New System.Drawing.Point(649, 336)
Me.Label38.Name = "Label38"
Me.Label38.Size = New System.Drawing.Size(23, 13)
Me.Label38.TabIndex = 112
Me.Label38.Text = "bis"
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label37.Location = New System.Drawing.Point(649, 317)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(28, 13)
Me.Label37.TabIndex = 111
Me.Label37.Text = "von"
'
'LinkLabel58
'
Me.LinkLabel58.AutoSize = True
Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel58.Location = New System.Drawing.Point(663, 76)
Me.LinkLabel58.Name = "LinkLabel58"
Me.LinkLabel58.Size = New System.Drawing.Size(126, 13)
Me.LinkLabel58.TabIndex = 110
Me.LinkLabel58.TabStop = True
Me.LinkLabel58.Text = "Neueste Kunden abrufen"
'
'txtBatchNr
'
Me.txtBatchNr._DateTimeOnly = False
Me.txtBatchNr._numbersOnly = True
Me.txtBatchNr._numbersOnlyKommastellen = ""
Me.txtBatchNr._numbersOnlyTrennzeichen = False
Me.txtBatchNr._Prozent = False
Me.txtBatchNr._ShortDateNew = False
Me.txtBatchNr._ShortDateOnly = False
Me.txtBatchNr._TimeOnly = False
Me.txtBatchNr._TimeOnly_Seconds = False
Me.txtBatchNr._value = ""
Me.txtBatchNr._Waehrung = False
Me.txtBatchNr._WaehrungZeichen = True
Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window
Me.txtBatchNr.ForeColor = System.Drawing.Color.Black
Me.txtBatchNr.Location = New System.Drawing.Point(666, 102)
Me.txtBatchNr.MaxLength = 3
Me.txtBatchNr.MaxLineLength = -1
Me.txtBatchNr.MaxLines_Warning = ""
Me.txtBatchNr.MaxLines_Warning_Label = Nothing
Me.txtBatchNr.Name = "txtBatchNr"
Me.txtBatchNr.Size = New System.Drawing.Size(30, 20)
Me.txtBatchNr.TabIndex = 109
Me.txtBatchNr.Text = "0"
Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'LinkLabel57
'
Me.LinkLabel57.AutoSize = True
Me.LinkLabel57.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel57.Location = New System.Drawing.Point(663, 125)
Me.LinkLabel57.Name = "LinkLabel57"
Me.LinkLabel57.Size = New System.Drawing.Size(166, 13)
Me.LinkLabel57.TabIndex = 108
Me.LinkLabel57.TabStop = True
Me.LinkLabel57.Text = "Transaktionen von Batch abrufen"
'
'DateTimePicker2
'
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker2.Location = New System.Drawing.Point(684, 330)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.Size = New System.Drawing.Size(85, 20)
Me.DateTimePicker2.TabIndex = 107
'
'DateTimePicker1
'
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.DateTimePicker1.Location = New System.Drawing.Point(684, 311)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20)
Me.DateTimePicker1.TabIndex = 106
'
'LinkLabel56
'
Me.LinkLabel56.AutoSize = True
Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel56.Location = New System.Drawing.Point(649, 353)
Me.LinkLabel56.Name = "LinkLabel56"
Me.LinkLabel56.Size = New System.Drawing.Size(114, 13)
Me.LinkLabel56.TabIndex = 105
Me.LinkLabel56.TabStop = True
Me.LinkLabel56.Text = "Transaktionen abrufen"
'
'datVon
'
Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datVon.Location = New System.Drawing.Point(691, 218)
Me.datVon.Name = "datVon"
Me.datVon.Size = New System.Drawing.Size(85, 20)
Me.datVon.TabIndex = 104
'
'LinkLabel55
'
Me.LinkLabel55.AutoSize = True
Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel55.Location = New System.Drawing.Point(658, 246)
Me.LinkLabel55.Name = "LinkLabel55"
Me.LinkLabel55.Size = New System.Drawing.Size(108, 13)
Me.LinkLabel55.TabIndex = 103
Me.LinkLabel55.TabStop = True
Me.LinkLabel55.Text = "Rechnungen abrufen"
'
'LinkLabel54
'
Me.LinkLabel54.AutoSize = True
Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel54.Location = New System.Drawing.Point(663, 59)
Me.LinkLabel54.Name = "LinkLabel54"
Me.LinkLabel54.Size = New System.Drawing.Size(157, 13)
Me.LinkLabel54.TabIndex = 102
Me.LinkLabel54.TabStop = True
Me.LinkLabel54.Text = "Neueste Transaktionen abrufen"
'
'TextBox2
'
Me.TextBox2.BackColor = System.Drawing.SystemColors.Menu
Me.TextBox2.Location = New System.Drawing.Point(263, 81)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(72, 55)
Me.TextBox2.TabIndex = 101
Me.TextBox2.Text = "Dateien nach Import von FTP löschen"
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.Menu
Me.TextBox1.Location = New System.Drawing.Point(425, 51)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(89, 51)
Me.TextBox1.TabIndex = 100
Me.TextBox1.Text = "Dateien nach Import von FTP umbenennen"
'
'cbxDateienlöschenUTA
'
Me.cbxDateienlöschenUTA.AutoSize = True
Me.cbxDateienlöschenUTA.Checked = True
Me.cbxDateienlöschenUTA.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDateienlöschenUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDateienlöschenUTA.Location = New System.Drawing.Point(404, 65)
Me.cbxDateienlöschenUTA.Name = "cbxDateienlöschenUTA"
Me.cbxDateienlöschenUTA.Size = New System.Drawing.Size(15, 14)
Me.cbxDateienlöschenUTA.TabIndex = 99
Me.cbxDateienlöschenUTA.UseVisualStyleBackColor = True
'
'cbxDateienlöschenRMC
'
Me.cbxDateienlöschenRMC.AutoSize = True
Me.cbxDateienlöschenRMC.Checked = True
Me.cbxDateienlöschenRMC.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDateienlöschenRMC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDateienlöschenRMC.Location = New System.Drawing.Point(241, 105)
Me.cbxDateienlöschenRMC.Name = "cbxDateienlöschenRMC"
Me.cbxDateienlöschenRMC.Size = New System.Drawing.Size(15, 14)
Me.cbxDateienlöschenRMC.TabIndex = 98
Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True
'
'LinkLabel53 'LinkLabel53
' '
Me.LinkLabel53.AutoSize = True Me.LinkLabel53.AutoSize = True
Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel53.Location = New System.Drawing.Point(432, 161) Me.LinkLabel53.Location = New System.Drawing.Point(416, 109)
Me.LinkLabel53.Name = "LinkLabel53" Me.LinkLabel53.Name = "LinkLabel53"
Me.LinkLabel53.Size = New System.Drawing.Size(82, 13) Me.LinkLabel53.Size = New System.Drawing.Size(82, 13)
Me.LinkLabel53.TabIndex = 97 Me.LinkLabel53.TabIndex = 97
@@ -2184,7 +2455,7 @@ Partial Class frmStartOptions
' '
Me.Label36.AutoSize = True Me.Label36.AutoSize = True
Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label36.Location = New System.Drawing.Point(709, 87) Me.Label36.Location = New System.Drawing.Point(663, 35)
Me.Label36.Name = "Label36" Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(42, 13) Me.Label36.Size = New System.Drawing.Size(42, 13)
Me.Label36.TabIndex = 96 Me.Label36.TabIndex = 96
@@ -2194,7 +2465,7 @@ Partial Class frmStartOptions
' '
Me.Label35.AutoSize = True Me.Label35.AutoSize = True
Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label35.Location = New System.Drawing.Point(564, 87) Me.Label35.Location = New System.Drawing.Point(549, 35)
Me.Label35.Name = "Label35" Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(42, 13) Me.Label35.Size = New System.Drawing.Size(42, 13)
Me.Label35.TabIndex = 95 Me.Label35.TabIndex = 95
@@ -2204,7 +2475,7 @@ Partial Class frmStartOptions
' '
Me.Label34.AutoSize = True Me.Label34.AutoSize = True
Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label34.Location = New System.Drawing.Point(417, 87) Me.Label34.Location = New System.Drawing.Point(401, 35)
Me.Label34.Name = "Label34" Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(42, 13) Me.Label34.Size = New System.Drawing.Size(42, 13)
Me.Label34.TabIndex = 94 Me.Label34.TabIndex = 94
@@ -2215,7 +2486,7 @@ Partial Class frmStartOptions
Me.Label33.AutoSize = True Me.Label33.AutoSize = True
Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label33.ForeColor = System.Drawing.Color.Red Me.Label33.ForeColor = System.Drawing.Color.Red
Me.Label33.Location = New System.Drawing.Point(709, 61) Me.Label33.Location = New System.Drawing.Point(663, 9)
Me.Label33.Name = "Label33" Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(39, 16) Me.Label33.Size = New System.Drawing.Size(39, 16)
Me.Label33.TabIndex = 93 Me.Label33.TabIndex = 93
@@ -2226,7 +2497,7 @@ Partial Class frmStartOptions
Me.Label32.AutoSize = True Me.Label32.AutoSize = True
Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label32.ForeColor = System.Drawing.Color.Red Me.Label32.ForeColor = System.Drawing.Color.Red
Me.Label32.Location = New System.Drawing.Point(564, 61) Me.Label32.Location = New System.Drawing.Point(549, 9)
Me.Label32.Name = "Label32" Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(32, 16) Me.Label32.Size = New System.Drawing.Size(32, 16)
Me.Label32.TabIndex = 92 Me.Label32.TabIndex = 92
@@ -2237,28 +2508,17 @@ Partial Class frmStartOptions
Me.Label31.AutoSize = True Me.Label31.AutoSize = True
Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label31.ForeColor = System.Drawing.Color.Red Me.Label31.ForeColor = System.Drawing.Color.Red
Me.Label31.Location = New System.Drawing.Point(417, 61) Me.Label31.Location = New System.Drawing.Point(401, 9)
Me.Label31.Name = "Label31" Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(38, 16) Me.Label31.Size = New System.Drawing.Size(38, 16)
Me.Label31.TabIndex = 91 Me.Label31.TabIndex = 91
Me.Label31.Text = "UTA" Me.Label31.Text = "UTA"
' '
'cbxRMC
'
Me.cbxRMC._allowedValuesFreiText = Nothing
Me.cbxRMC._allowFreiText = False
Me.cbxRMC._value = ""
Me.cbxRMC.FormattingEnabled = True
Me.cbxRMC.Location = New System.Drawing.Point(241, 177)
Me.cbxRMC.Name = "cbxRMC"
Me.cbxRMC.Size = New System.Drawing.Size(80, 21)
Me.cbxRMC.TabIndex = 90
'
'LinkLabel52 'LinkLabel52
' '
Me.LinkLabel52.AutoSize = True Me.LinkLabel52.AutoSize = True
Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel52.Location = New System.Drawing.Point(238, 161) Me.LinkLabel52.Location = New System.Drawing.Point(238, 152)
Me.LinkLabel52.Name = "LinkLabel52" Me.LinkLabel52.Name = "LinkLabel52"
Me.LinkLabel52.Size = New System.Drawing.Size(109, 13) Me.LinkLabel52.Size = New System.Drawing.Size(109, 13)
Me.LinkLabel52.TabIndex = 84 Me.LinkLabel52.TabIndex = 84
@@ -2269,7 +2529,7 @@ Partial Class frmStartOptions
' '
Me.Label30.AutoSize = True Me.Label30.AutoSize = True
Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label30.Location = New System.Drawing.Point(238, 87) Me.Label30.Location = New System.Drawing.Point(238, 65)
Me.Label30.Name = "Label30" Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(42, 13) Me.Label30.Size = New System.Drawing.Size(42, 13)
Me.Label30.TabIndex = 83 Me.Label30.TabIndex = 83
@@ -2280,7 +2540,7 @@ Partial Class frmStartOptions
Me.Label29.AutoSize = True Me.Label29.AutoSize = True
Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label29.ForeColor = System.Drawing.Color.Red Me.Label29.ForeColor = System.Drawing.Color.Red
Me.Label29.Location = New System.Drawing.Point(238, 61) Me.Label29.Location = New System.Drawing.Point(238, 39)
Me.Label29.Name = "Label29" Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(40, 16) Me.Label29.Size = New System.Drawing.Size(40, 16)
Me.Label29.TabIndex = 82 Me.Label29.TabIndex = 82
@@ -2291,7 +2551,7 @@ Partial Class frmStartOptions
Me.Label28.AutoSize = True Me.Label28.AutoSize = True
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label28.ForeColor = System.Drawing.Color.Red Me.Label28.ForeColor = System.Drawing.Color.Red
Me.Label28.Location = New System.Drawing.Point(18, 61) Me.Label28.Location = New System.Drawing.Point(18, 39)
Me.Label28.Name = "Label28" Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(72, 16) Me.Label28.Size = New System.Drawing.Size(72, 16)
Me.Label28.TabIndex = 81 Me.Label28.TabIndex = 81
@@ -2301,7 +2561,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel49.AutoSize = True Me.LinkLabel49.AutoSize = True
Me.LinkLabel49.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel49.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel49.Location = New System.Drawing.Point(16, 294) Me.LinkLabel49.Location = New System.Drawing.Point(16, 272)
Me.LinkLabel49.Name = "LinkLabel49" Me.LinkLabel49.Name = "LinkLabel49"
Me.LinkLabel49.Size = New System.Drawing.Size(136, 13) Me.LinkLabel49.Size = New System.Drawing.Size(136, 13)
Me.LinkLabel49.TabIndex = 80 Me.LinkLabel49.TabIndex = 80
@@ -2311,7 +2571,7 @@ Partial Class frmStartOptions
'Label25 'Label25
' '
Me.Label25.AutoSize = True Me.Label25.AutoSize = True
Me.Label25.Location = New System.Drawing.Point(165, 224) Me.Label25.Location = New System.Drawing.Point(165, 202)
Me.Label25.Name = "Label25" Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(32, 13) Me.Label25.Size = New System.Drawing.Size(32, 13)
Me.Label25.TabIndex = 78 Me.Label25.TabIndex = 78
@@ -2323,7 +2583,7 @@ Partial Class frmStartOptions
Me.cbxTestFTP.Checked = True Me.cbxTestFTP.Checked = True
Me.cbxTestFTP.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxTestFTP.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxTestFTP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxTestFTP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxTestFTP.Location = New System.Drawing.Point(19, 31) Me.cbxTestFTP.Location = New System.Drawing.Point(145, 10)
Me.cbxTestFTP.Name = "cbxTestFTP" Me.cbxTestFTP.Name = "cbxTestFTP"
Me.cbxTestFTP.Size = New System.Drawing.Size(123, 17) Me.cbxTestFTP.Size = New System.Drawing.Size(123, 17)
Me.cbxTestFTP.TabIndex = 77 Me.cbxTestFTP.TabIndex = 77
@@ -2347,7 +2607,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox21.BackgroundImage = CType(resources.GetObject("PictureBox21.BackgroundImage"), System.Drawing.Image) Me.PictureBox21.BackgroundImage = CType(resources.GetObject("PictureBox21.BackgroundImage"), System.Drawing.Image)
Me.PictureBox21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox21.Location = New System.Drawing.Point(98, 161) Me.PictureBox21.Location = New System.Drawing.Point(98, 139)
Me.PictureBox21.Name = "PictureBox21" Me.PictureBox21.Name = "PictureBox21"
Me.PictureBox21.Size = New System.Drawing.Size(18, 18) Me.PictureBox21.Size = New System.Drawing.Size(18, 18)
Me.PictureBox21.TabIndex = 40 Me.PictureBox21.TabIndex = 40
@@ -2358,7 +2618,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel47.AutoSize = True Me.LinkLabel47.AutoSize = True
Me.LinkLabel47.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel47.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel47.Location = New System.Drawing.Point(16, 161) Me.LinkLabel47.Location = New System.Drawing.Point(16, 139)
Me.LinkLabel47.Name = "LinkLabel47" Me.LinkLabel47.Name = "LinkLabel47"
Me.LinkLabel47.Size = New System.Drawing.Size(84, 13) Me.LinkLabel47.Size = New System.Drawing.Size(84, 13)
Me.LinkLabel47.TabIndex = 39 Me.LinkLabel47.TabIndex = 39
@@ -2369,7 +2629,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel46.AutoSize = True Me.LinkLabel46.AutoSize = True
Me.LinkLabel46.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel46.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel46.Location = New System.Drawing.Point(16, 182) Me.LinkLabel46.Location = New System.Drawing.Point(16, 160)
Me.LinkLabel46.Name = "LinkLabel46" Me.LinkLabel46.Name = "LinkLabel46"
Me.LinkLabel46.Size = New System.Drawing.Size(120, 13) Me.LinkLabel46.Size = New System.Drawing.Size(120, 13)
Me.LinkLabel46.TabIndex = 38 Me.LinkLabel46.TabIndex = 38
@@ -2380,7 +2640,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox19.BackgroundImage = CType(resources.GetObject("PictureBox19.BackgroundImage"), System.Drawing.Image) Me.PictureBox19.BackgroundImage = CType(resources.GetObject("PictureBox19.BackgroundImage"), System.Drawing.Image)
Me.PictureBox19.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox19.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox19.Location = New System.Drawing.Point(118, 268) Me.PictureBox19.Location = New System.Drawing.Point(118, 246)
Me.PictureBox19.Name = "PictureBox19" Me.PictureBox19.Name = "PictureBox19"
Me.PictureBox19.Size = New System.Drawing.Size(18, 18) Me.PictureBox19.Size = New System.Drawing.Size(18, 18)
Me.PictureBox19.TabIndex = 37 Me.PictureBox19.TabIndex = 37
@@ -2391,7 +2651,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox18.BackgroundImage = CType(resources.GetObject("PictureBox18.BackgroundImage"), System.Drawing.Image) Me.PictureBox18.BackgroundImage = CType(resources.GetObject("PictureBox18.BackgroundImage"), System.Drawing.Image)
Me.PictureBox18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox18.Location = New System.Drawing.Point(118, 238) Me.PictureBox18.Location = New System.Drawing.Point(118, 216)
Me.PictureBox18.Name = "PictureBox18" Me.PictureBox18.Name = "PictureBox18"
Me.PictureBox18.Size = New System.Drawing.Size(18, 18) Me.PictureBox18.Size = New System.Drawing.Size(18, 18)
Me.PictureBox18.TabIndex = 36 Me.PictureBox18.TabIndex = 36
@@ -2402,7 +2662,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel41.AutoSize = True Me.LinkLabel41.AutoSize = True
Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel41.Location = New System.Drawing.Point(16, 268) Me.LinkLabel41.Location = New System.Drawing.Point(16, 246)
Me.LinkLabel41.Name = "LinkLabel41" Me.LinkLabel41.Name = "LinkLabel41"
Me.LinkLabel41.Size = New System.Drawing.Size(94, 13) Me.LinkLabel41.Size = New System.Drawing.Size(94, 13)
Me.LinkLabel41.TabIndex = 35 Me.LinkLabel41.TabIndex = 35
@@ -2413,7 +2673,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel42.AutoSize = True Me.LinkLabel42.AutoSize = True
Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel42.Location = New System.Drawing.Point(16, 243) Me.LinkLabel42.Location = New System.Drawing.Point(16, 221)
Me.LinkLabel42.Name = "LinkLabel42" Me.LinkLabel42.Name = "LinkLabel42"
Me.LinkLabel42.Size = New System.Drawing.Size(99, 13) Me.LinkLabel42.Size = New System.Drawing.Size(99, 13)
Me.LinkLabel42.TabIndex = 34 Me.LinkLabel42.TabIndex = 34
@@ -2423,7 +2683,7 @@ Partial Class frmStartOptions
'Label23 'Label23
' '
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label23.Location = New System.Drawing.Point(16, 216) Me.Label23.Location = New System.Drawing.Point(16, 194)
Me.Label23.Name = "Label23" Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(111, 19) Me.Label23.Size = New System.Drawing.Size(111, 19)
Me.Label23.TabIndex = 33 Me.Label23.TabIndex = 33
@@ -2433,7 +2693,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel43.AutoSize = True Me.LinkLabel43.AutoSize = True
Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel43.Location = New System.Drawing.Point(16, 111) Me.LinkLabel43.Location = New System.Drawing.Point(16, 89)
Me.LinkLabel43.Name = "LinkLabel43" Me.LinkLabel43.Name = "LinkLabel43"
Me.LinkLabel43.Size = New System.Drawing.Size(114, 13) Me.LinkLabel43.Size = New System.Drawing.Size(114, 13)
Me.LinkLabel43.TabIndex = 32 Me.LinkLabel43.TabIndex = 32
@@ -2444,7 +2704,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel44.AutoSize = True Me.LinkLabel44.AutoSize = True
Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel44.Location = New System.Drawing.Point(16, 136) Me.LinkLabel44.Location = New System.Drawing.Point(16, 114)
Me.LinkLabel44.Name = "LinkLabel44" Me.LinkLabel44.Name = "LinkLabel44"
Me.LinkLabel44.Size = New System.Drawing.Size(138, 13) Me.LinkLabel44.Size = New System.Drawing.Size(138, 13)
Me.LinkLabel44.TabIndex = 31 Me.LinkLabel44.TabIndex = 31
@@ -2455,12 +2715,23 @@ Partial Class frmStartOptions
' '
Me.Label24.AutoSize = True Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label24.Location = New System.Drawing.Point(16, 87) Me.Label24.Location = New System.Drawing.Point(16, 65)
Me.Label24.Name = "Label24" Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(42, 13) Me.Label24.Size = New System.Drawing.Size(42, 13)
Me.Label24.TabIndex = 30 Me.Label24.TabIndex = 30
Me.Label24.Text = "Import" Me.Label24.Text = "Import"
' '
'cbxRMC
'
Me.cbxRMC._allowedValuesFreiText = Nothing
Me.cbxRMC._allowFreiText = False
Me.cbxRMC._value = ""
Me.cbxRMC.FormattingEnabled = True
Me.cbxRMC.Location = New System.Drawing.Point(241, 168)
Me.cbxRMC.Name = "cbxRMC"
Me.cbxRMC.Size = New System.Drawing.Size(80, 21)
Me.cbxRMC.TabIndex = 90
'
'txtTBLNr 'txtTBLNr
' '
Me.txtTBLNr._DateTimeOnly = False Me.txtTBLNr._DateTimeOnly = False
@@ -2476,7 +2747,7 @@ Partial Class frmStartOptions
Me.txtTBLNr._Waehrung = False Me.txtTBLNr._Waehrung = False
Me.txtTBLNr._WaehrungZeichen = True Me.txtTBLNr._WaehrungZeichen = True
Me.txtTBLNr.ForeColor = System.Drawing.Color.Red Me.txtTBLNr.ForeColor = System.Drawing.Color.Red
Me.txtTBLNr.Location = New System.Drawing.Point(165, 268) Me.txtTBLNr.Location = New System.Drawing.Point(165, 246)
Me.txtTBLNr.MaxLineLength = -1 Me.txtTBLNr.MaxLineLength = -1
Me.txtTBLNr.MaxLines_Warning = "" Me.txtTBLNr.MaxLines_Warning = ""
Me.txtTBLNr.MaxLines_Warning_Label = Nothing Me.txtTBLNr.MaxLines_Warning_Label = Nothing
@@ -2500,7 +2771,7 @@ Partial Class frmStartOptions
Me.txtTWLNr._Waehrung = False Me.txtTWLNr._Waehrung = False
Me.txtTWLNr._WaehrungZeichen = True Me.txtTWLNr._WaehrungZeichen = True
Me.txtTWLNr.ForeColor = System.Drawing.Color.Red Me.txtTWLNr.ForeColor = System.Drawing.Color.Red
Me.txtTWLNr.Location = New System.Drawing.Point(165, 240) Me.txtTWLNr.Location = New System.Drawing.Point(165, 218)
Me.txtTWLNr.MaxLineLength = -1 Me.txtTWLNr.MaxLineLength = -1
Me.txtTWLNr.MaxLines_Warning = "" Me.txtTWLNr.MaxLines_Warning = ""
Me.txtTWLNr.MaxLines_Warning_Label = Nothing Me.txtTWLNr.MaxLines_Warning_Label = Nothing
@@ -2815,50 +3086,6 @@ Partial Class frmStartOptions
Me.Button21.Text = "AAS Sendung 24h" Me.Button21.Text = "AAS Sendung 24h"
Me.Button21.UseVisualStyleBackColor = True Me.Button21.UseVisualStyleBackColor = True
' '
'cbxDateienlöschenRMC
'
Me.cbxDateienlöschenRMC.AutoSize = True
Me.cbxDateienlöschenRMC.Checked = True
Me.cbxDateienlöschenRMC.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDateienlöschenRMC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDateienlöschenRMC.Location = New System.Drawing.Point(241, 127)
Me.cbxDateienlöschenRMC.Name = "cbxDateienlöschenRMC"
Me.cbxDateienlöschenRMC.Size = New System.Drawing.Size(15, 14)
Me.cbxDateienlöschenRMC.TabIndex = 98
Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True
'
'cbxDateienlöschenUTA
'
Me.cbxDateienlöschenUTA.AutoSize = True
Me.cbxDateienlöschenUTA.Checked = True
Me.cbxDateienlöschenUTA.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDateienlöschenUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDateienlöschenUTA.Location = New System.Drawing.Point(420, 127)
Me.cbxDateienlöschenUTA.Name = "cbxDateienlöschenUTA"
Me.cbxDateienlöschenUTA.Size = New System.Drawing.Size(15, 14)
Me.cbxDateienlöschenUTA.TabIndex = 99
Me.cbxDateienlöschenUTA.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.SystemColors.Menu
Me.TextBox1.Location = New System.Drawing.Point(441, 103)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(73, 55)
Me.TextBox1.TabIndex = 100
Me.TextBox1.Text = "Dateien nach Import von FTP löschen"
'
'TextBox2
'
Me.TextBox2.BackColor = System.Drawing.SystemColors.Menu
Me.TextBox2.Location = New System.Drawing.Point(263, 103)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(72, 55)
Me.TextBox2.TabIndex = 101
Me.TextBox2.Text = "Dateien nach Import von FTP löschen"
'
'frmStartOptions 'frmStartOptions
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3116,4 +3343,20 @@ Partial Class frmStartOptions
Friend WithEvents cbxDateienlöschenUTA As CheckBox Friend WithEvents cbxDateienlöschenUTA As CheckBox
Friend WithEvents TextBox2 As TextBox Friend WithEvents TextBox2 As TextBox
Friend WithEvents TextBox1 As TextBox Friend WithEvents TextBox1 As TextBox
Friend WithEvents LinkLabel54 As LinkLabel
Friend WithEvents LinkLabel55 As LinkLabel
Friend WithEvents datVon As DateTimePicker
Friend WithEvents LinkLabel56 As LinkLabel
Friend WithEvents DateTimePicker2 As DateTimePicker
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents txtBatchNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel57 As LinkLabel
Friend WithEvents LinkLabel58 As LinkLabel
Friend WithEvents Label40 As Label
Friend WithEvents txtTransactionID As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents LinkLabel59 As LinkLabel
Friend WithEvents Label39 As Label
Friend WithEvents Label38 As Label
Friend WithEvents Label37 As Label
Friend WithEvents LinkLabel61 As LinkLabel
End Class End Class

339
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,7 +6,7 @@ Imports System.Text
Imports System.Xml Imports System.Xml
Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports DocumentFormat.OpenXml.Presentation
Imports DocumentFormat.OpenXml.Wordprocessing Imports DocumentFormat.OpenXml.Wordprocessing
Imports iTextSharp.text.pdf.qrcode.Version Imports iTextSharp.text.pdf.qrcode.Version
Imports Org.BouncyCastle.Asn1.Pkcs Imports Org.BouncyCastle.Asn1.Pkcs
@@ -101,7 +101,7 @@ Public Class frmStartOptions
'doIDSPlatts() 'doIDSPlatts()
'Exit Sub 'Exit Sub
'PARAM = "AMBAR_VERAG_BUCHUNGEN" 'PARAM = "AMBAR_VERAG_BUCHUNGEN_CS"
'Standart-Errorverhalten ist MAIL 'Standart-Errorverhalten ist MAIL
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
If PARAM <> "" Then If PARAM <> "" Then
@@ -984,18 +984,18 @@ Public Class frmStartOptions
Else Else
API.UPDTAE_ERR() API.UPDTAE_ERR()
End If End If
End If
Case "AVM"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If End If
Case "AVM" End If
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then End Select
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
End Select
End If End If
End If End If
@@ -3728,7 +3728,6 @@ Public Class frmStartOptions
End If End If
Case "buchungenAMBAR" Case "buchungenAMBAR"
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "AG"), True) VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "AG"), True)
VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "CS"), True) VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "CS"), True)
End Select End Select
@@ -4276,6 +4275,7 @@ Public Class frmStartOptions
If tbcntr.SelectedIndex = 3 Then If tbcntr.SelectedIndex = 3 Then
checkTBLandTWLNr() checkTBLandTWLNr()
getLatestBatchNrMSE()
End If End If
@@ -4299,9 +4299,18 @@ Public Class frmStartOptions
End Sub End Sub
Private Sub getLatestBatchNrMSE()
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
txtBatchNr.Text = CInt(SQL.getValueTxtBySql("SELECT max([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions] ", "FMZOLL",,, 0))
End Sub
Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
If tbcntr.SelectedIndex = 3 Then If tbcntr.SelectedIndex = 3 Then
checkTBLandTWLNr() checkTBLandTWLNr()
getLatestBatchNrMSE()
End If End If
End Sub End Sub
@@ -4390,7 +4399,7 @@ Public Class frmStartOptions
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
If cbxRMC._value = "" Then Exit Sub If cbxRMC._value = "" Then Exit Sub
Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked) Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked, False)
f.ShowDialog() f.ShowDialog()
Me.Visible = True Me.Visible = True
End Sub End Sub
@@ -4398,8 +4407,306 @@ Public Class frmStartOptions
Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked
Me.Visible = False Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, cbxDateienlöschenUTA.Checked) Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
f.ShowDialog() f.ShowDialog()
Me.Visible = True Me.Visible = True
End Sub End Sub
Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim dt As New DataTable
If fehler <> "" Then
MsgBox(fehler)
Else
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0)
If fehler <> "" Then
MsgBox(fehler)
Exit Sub
End If
If totalPages > 1 Then
For i = 2 To totalPages
If dt.Rows.Count > 0 Then dt.Clear()
fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i)
If fehler <> "" Then
MsgBox(fehler)
Exit Sub
End If
i = i + 1
Next
End If
End If
Me.Visible = True
End Sub
Private Sub LinkLabel55_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel55.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim transactions As New DataTable
Dim invoice As New DataTable
If fehler <> "" Then
MsgBox(fehler)
Else
fehler = mse.getInvoices(token, invoice, datVon.Value, datVon.Value)
If fehler <> "" Then
MsgBox(fehler)
Exit Sub
End If
If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then
Dim dvInvoice As New DataView(invoice)
Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
For Each r As DataRow In distinctInv.Rows
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0)
If fehler <> "" Then
MsgBox(fehler)
Exit Sub
End If
If totalPages > 1 Then
For i = 2 To totalPages
If transactions.Rows.Count > 0 Then transactions.Clear()
fehler = mse.getSettlementsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
If fehler <> "" Then
MsgBox(fehler)
Exit Sub
End If
Next
End If
Next
End If
End If
Me.Visible = True
End Sub
Private Sub LinkLabel56_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel56.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim transactions As New DataTable
Dim invoice As New DataTable
If fehler <> "" Then
MsgBox(fehler)
Else
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getTransactionsFromToDate(token, transactions, DateTimePicker1.Value, DateTimePicker2.Value, batchrequestNr, totalPages, 0)
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
Exit Sub
End If
If totalPages > 1 Then
For i = 2 To totalPages
If transactions.Rows.Count > 0 Then transactions.Clear()
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
Exit Sub
End If
Next
End If
End If
Me.Visible = True
End Sub
Private Sub LinkLabel57_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel57.LinkClicked
If Not IsNumeric(txtBatchNr.Text) Then Exit Sub
If CInt(txtBatchNr.Text) < 1 AndAlso CInt(txtBatchNr.Text) > 100 Then Exit Sub
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim transactions As New DataTable
Dim invoice As New DataTable
If fehler <> "" Then
MsgBox(fehler)
Else
Dim totalPages = 1
Dim batchrequestNr = CInt(txtBatchNr.Text)
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 0)
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
Exit Sub
End If
If totalPages > 1 Then
For i = 2 To totalPages
If transactions.Rows.Count > 0 Then transactions.Rows.Clear()
fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i)
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
Exit Sub
End If
Next
End If
MsgBox("DONE")
End If
Me.Visible = True
End Sub
Private Sub LinkLabel58_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel58.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim dt As New DataTable
If fehler <> "" Then
MsgBox(fehler)
Else
Dim totalPages = 0
Dim batchrequestNr = 0
fehler = mse.getCustomers(token, dt)
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
Exit Sub
End If
End If
Me.Visible = True
End Sub
Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked
If sender Is LinkLabel59 Then
If Not IsNumeric(txtTransactionID.Text) Then
MsgBox("ID muss 10stellige Nr sein!")
Exit Sub
End If
If CInt(txtTransactionID.Text) < 100000000 AndAlso CInt(txtTransactionID.Text) > 199999999 Then
MsgBox("falsche ID")
Exit Sub
End If
End If
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim mse As New cMSEAPI("MSE")
Dim fehler As String = ""
Dim token = mse.createJWT(fehler)
Dim transactions As New DataTable
Dim invoice As New DataTable
If fehler <> "" Then
MsgBox(fehler)
Else
Dim dtTransactionID = New DataTable
If sender Is LinkLabel59 Then
dtTransactionID.Columns.Add("transaction_id", GetType(String))
Dim R As DataRow = dtTransactionID.NewRow
R("transaction_id") = txtTransactionID.Text
dtTransactionID.Rows.Add(R)
Else
dtTransactionID = SQL.loadDgvBySql("select [transaction_id] FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & datVon.Value & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
If dtTransactionID.Rows.Count = 0 Then
MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!")
Me.Visible = True
Exit Sub
End If
If Not vbYes = MsgBox("Möchten Sie die " & dtTransactionID.Rows.Count & " fehlenden Transaktionen nachladen?" & vbNewLine & "Dieser Vorgang dauert je nach Anzahl der Transaktionen etwas.", vbYesNoCancel) Then
Me.Visible = True
Exit Sub
End If
End If
fehler = mse.getTransactionsFromTransactionID(token, transactions, dtTransactionID)
If fehler <> "" Then
MsgBox(fehler)
Me.Visible = True
Exit Sub
End If
End If
Me.Visible = True
End Sub
End Class End Class