From 25faaa5a155f6802507dc22d610f28137af6933e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 8 Aug 2025 11:26:48 +0200 Subject: [PATCH] Start, IDS, Procedures --- UID/usrctlProcedures.vb | 28 +++++++++++++- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 38 ++++++++++++++++++- initATLASAufschubkonten/frmStartOptions.vb | 4 +- 3 files changed, 65 insertions(+), 5 deletions(-) diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 8697a1c..838a432 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -3459,6 +3459,8 @@ Public Class usrctlProcedures Dim kdnr_tmp = "" Try + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim fd As New OpenFileDialog If fd.ShowDialog = DialogResult.OK Then If fd.FileName.ToLower.EndsWith(".csv") Then @@ -3688,9 +3690,33 @@ Public Class usrctlProcedures End If Else + + Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3)) + If STDOF.hasEntry Then + + Dim save As Boolean = False + + If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then + save = True + STDOF.LeistungsBez_EN = isleernothing(currentRow(12)) + End If + If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then + save = True + STDOF.LeistungsBez_RO = isleernothing(currentRow(13)) + End If + If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then + save = True + STDOF.LeistungsBez_TR = isleernothing(currentRow(14)) + End If + + If save Then STDOF.SAVE() + + End If + + 'MsgBox(currentRow(2)) End If - End If + End If End If 'For Each currentField In currentRow diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index bd3ebca..efc91f4 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -104,6 +104,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnEinarbeiten.Click + + If programName.Contains("IDS") Then + If Not vbYes = MsgBox("Wurde der Batch-Jop für die Erstellung der COPY_INVOICE manuell ausgeführt?", vbYesNoCancel) Then + Exit Sub + End If + + End If + Me.Enabled = False Try Label5.Visible = True @@ -329,10 +337,36 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 10) Case "INVOICEBYCOUNTRY" + Dim i1 = Dateiname.LastIndexOf(".pdf") Dim i2 = Dateiname.LastIndexOf("_") + 1 - invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, (Dateiname.LastIndexOf(".pdf") - (Dateiname.LastIndexOf("_") + 1))) - country = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, 2) + + 'die RechnungNr steht nun nicht mehr am Ende, sondern an vorletzter Position!!! + '0060003421_31072025_GEOB00018288RO_DE00725749.pdf + Dim underscoreIndexes As New List(Of Integer) + For i As Integer = 0 To Dateiname.Length - 1 + If Dateiname(i) = "_"c Then + underscoreIndexes.Add(i) + End If + Next + + Dim invoiceNo_New As String = "" + + If underscoreIndexes.Count >= 2 Then + ' Position des vorletzten Unterstrichs + Dim secondLastUnderscore As Integer = underscoreIndexes(underscoreIndexes.Count - 2) + ' Substring ab vorletztem Unterstrich bis Ende + invoiceNo_New = Dateiname.Substring(secondLastUnderscore + 1, ((i2 - 1) - (secondLastUnderscore + 1))) + End If + + If invoiceNo_New <> "" Then + invoiceNo = invoiceNo_New + country = invoiceNo_New.Substring(0, 2) + Else + invoiceNo = Dateiname.Substring(Dateiname.LastIndexOf("_") + 1, (Dateiname.LastIndexOf(".pdf") - (Dateiname.LastIndexOf("_") + 1))) + country = Dateiname.Substring(Dateiname.LastIndexOf("_"), 2) + + End If If IsNumeric(country) Then country = "SE" 'wenn kein Land angegeben, dann SCHWEDEN! diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index d968fc6..09f77b5 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -4762,9 +4762,9 @@ Public Class frmStartOptions For Each node As XmlElement In doc.GetElementsByTagName("kurs") Dim wk If art = 1 Then - wk = New cFremdwaehrungskurse() + wk = New cFremdwaehrungskurse() ' notierte Währungen Else - wk = New cWaehrungskurseNEU() + wk = New cWaehrungskurseNEU() 'nicht notierte Währungen End If If node.Attributes("id") IsNot Nothing Then wk.fw_id = node.Attributes("id").Value If node.HasChildNodes Then