Greenpulse DYEZA

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb

@@ -475,6 +475,50 @@ list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eza_BezugsnummerBEAnteilZL", eza_
         Return Nothing
     End Function
 
+    Shared Function LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEZA
+        Try
+            Dim EZA As New cDakosyEZA
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                '  Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT *  FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " ) AS T order by eza_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE eza_dyaAnmID=dySt_dyId order by dySt_ts desc)  desc,eza_LetzteBearbeitung desc  ", conn)
+                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE isnull(eza_MRN,eza_ANR) LIKE @MRN " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " order by eza_LetzteBearbeitung desc ", conn)
+                    '    MsgBox("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName Like " & bezugsNr & " " & If(checkValidStatus, " And eza_status BETWEEN 40 And 90 ", "") & " order by eza_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE eza_dyaAnmID=dy_id order by dySt_ts desc)  desc,eza_LetzteBearbeitung desc  ")
+                    cmd.Parameters.AddWithValue("@MRN", MRN)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In EZA.getParameterList()
+                            Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(EZA, Nothing)
+                            Else
+                                propInfo.SetValue(EZA, dr.Item(l.Text))
+                            End If
+                        Next
+
+                        If loadALL Then
+                            EZA.LOAD_Unterlagen()
+                            EZA.LOAD_Warenposition()
+
+                            EZA.LOAD_Adressen()
+                            EZA.LOAD_Aufschub()
+                            EZA.LOAD_BEAnteilZLAVUV()
+                            EZA.LOAD_SumABeendigungsAnteil()
+                        End If
+
+                        dr.Close()
+                        Return EZA
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+    End Function
+
 
     Public Function UPDATE_Status(status As Integer) As String
         If eza_Id > 0 Then

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb

@@ -0,0 +1,177 @@
+Imports System.Globalization
+Imports Newtonsoft.Json
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class cDakosyEZA_Greenpulse
+
+    ' ==========================================================
+    ' BuildByMrn_DY: Erzeugt Kafka-Objekt aus cDakosyEZA (DY)
+    ' ==========================================================
+    Public Shared Function BuildByMrn(eza As cDakosyEZA) As cATEZ_Greenpulse_KafkaDecs
+        If eza Is Nothing Then Throw New ArgumentNullException(NameOf(eza))
+
+        ' --- Adressen (Heuristik: CN=Importer, CZ=Exporter, DT=Declarant) ---
+        Dim importer = GuessAddressByType(eza.eza_ADRESSEN, {"CN", "IM", "IMP"})
+        Dim exporter = GuessAddressByType(eza.eza_ADRESSEN, {"CZ", "EX", "EXP"})
+        Dim declarant = GuessAddressByType(eza.eza_ADRESSEN, {"DT", "DEC", "ANM", "DECLARANT"})
+
+        ' --- Rechnungsdaten (Unterlagen N380) ---
+        Dim inv = eza.eza_UNTERLAGEN?.FirstOrDefault(Function(u) SafeStr(u.ezaUl_Art).Equals("N380", StringComparison.OrdinalIgnoreCase) _
+                                                         AndAlso Not String.IsNullOrWhiteSpace(SafeStr(u.ezaUl_Nummer)))
+
+        ' --- Kopf/Zielschema ---
+        Dim dest As New cATEZ_Greenpulse_KafkaDecs With {
+      .Declaration = New cATEZ_Greenpulse_KafkaDecs.DeclarationNode With {
+        .DeclarationSourceId = SafeStr(eza.eza_ANR),                         ' interne Bezugsnr./ANR
+        .DeclarationNo = SafeStr(eza.eza_MRN),                               ' MRN, falls vorhanden
+        .DeclarationDate = ToDateYMD(FirstNonEmpty(eza.eza_Anmeldedatum, eza.eza_Erstellung)),
+        .RequestedProcedure = SafeStr(eza.eza_VerfahrenBeantragtCode),       ' z.B. "40"
+        .PreviousProcedure = "",                                             ' ggf. unten aus Position ableiten
+        .Goods = New List(Of cATEZ_Greenpulse_KafkaDecs.GoodItem)()
+      },
+      .Parties = New cATEZ_Greenpulse_KafkaDecs.PartiesNode With {
+        .ImporterIdentificationNumber = FirstNonEmptyStr(importer?.ezaAd_TeilnehmerEORI, importer?.ezaAd_AdressCode),
+        .ExporterIdentificationNumber = FirstNonEmptyStr(exporter?.ezaAd_TeilnehmerEORI, exporter?.ezaAd_AdressCode),
+        .ReportingDeclarantEORINumber = FirstNonEmptyStr(declarant?.ezaAd_TeilnehmerEORI, declarant?.ezaAd_AdressCode),
+        .TypeOfRepresentation = SafeStr(eza.eza_VertretungsVerhaeltnisCode)
+      },
+      .Commercial = New cATEZ_Greenpulse_KafkaDecs.CommercialNode With {
+        .InvoiceNumbers = If(inv IsNot Nothing, SafeStr(inv.ezaUl_Nummer), ""),
+        .InvoiceDate = If(inv IsNot Nothing, ToDateYMD(inv.ezaUl_DatumAusstellung), "")
+      },
+      .ExporterDetails = New cATEZ_Greenpulse_KafkaDecs.ExporterDetailsNode With {
+        .ExporterTitle = FirstNonEmptyStr(exporter?.ezaAd_NameFirma1, exporter?.ezaAd_NameFirma2),
+        .ExporterEmail = "",
+        .ExporterPhone = ""
+      },
+      .ImporterDetails = New cATEZ_Greenpulse_KafkaDecs.ImporterDetailsNode With {
+        .ImporterTitle = FirstNonEmptyStr(importer?.ezaAd_NameFirma1, importer?.ezaAd_NameFirma2),
+        .ImporterEmail = "",
+        .ImporterPhone = "",
+        .ImporterCountryCodeOrMemberState = SafeStr(importer?.ezaAd_LandCode),
+        .ImporterSubdivision = "",
+        .ImporterCity = SafeStr(importer?.ezaAd_Ort),
+        .ImporterStreet = MergeStreet(importer),
+        .ImporterStreetAdditional = SafeStr(importer?.ezaAd_StrasseHausNr2),
+        .ImporterAddressNumber = "",
+        .ImporterPostCode = SafeStr(importer?.ezaAd_PLZ),
+        .ImporterPoBox = "",
+        .ImporterCoordinateLongitudeX = "",
+        .ImporterCoordinateLatitudeY = ""
+      }
+    }
+
+        ' --- Warenpositionen -> Goods ---
+        If eza.eza_WARENPOS IsNot Nothing Then
+            For Each wp In eza.eza_WARENPOS
+                Dim gi As New cATEZ_Greenpulse_KafkaDecs.GoodItem With {
+          .CommodityCode = SafeStr(wp.ezaWP_WarennummerEZT),
+          .OriginCountryCode = SafeStr(wp.ezaWP_UrsprungslandCode),
+          .NetMass = ToInvariantStr(wp.ezaWP_Eigenmasse),
+          .TypeOfMeasurementUnit = UnitCodeToKafkaName(FirstNonEmptyStr(wp.ezaWP_WarenMasseinheit1, wp.ezaWP_AHStatMengeMasseinheit, "KGM")),
+          .SpecialProcedures = New cATEZ_Greenpulse_KafkaDecs.SpecialProceduresNode With {
+            .MemberStateAutharization = SafeStr(importer?.ezaAd_LandCode),                  ' Heuristik
+            .DischargeBillWaiver = "",
+            .Authorisation = FirstNonEmptyStr(wp.ezaWP_Bewilligungsnummer, eza.eza_BewilligungsIDZLAVUV),
+            .StartTime = "",
+            .EndTime = "",
+            .Deadline = ""
+          }
+        }
+                dest.Declaration.Goods.Add(gi)
+            Next
+        End If
+
+        ' --- Previous/Requested Procedure ggf. aus erster Position ziehen ---
+        Dim wp0 = eza.eza_WARENPOS?.FirstOrDefault()
+        If wp0 IsNot Nothing Then
+            If String.IsNullOrWhiteSpace(dest.Declaration.RequestedProcedure) Then
+                dest.Declaration.RequestedProcedure = SafeStr(wp0.ezaWP_Zollverfahren)
+            End If
+            dest.Declaration.PreviousProcedure = SafeStr(wp0.ezaWP_VerfahrensCodeVorangegangenesVerfahren)
+        End If
+
+        Return dest
+    End Function
+
+    ' JSON-Wrapper
+    Public Shared Function BuildJsonByMrn(eza As cDakosyEZA, Optional pretty As Boolean = True) As String
+        Dim obj = BuildByMrn(eza)
+        Return obj.ToJson(pretty)
+    End Function
+
+    ' -----------------------------
+    ' Helper (ggf. einmalig zentral)
+    ' -----------------------------
+    Private Shared Function GuessAddressByType(list As List(Of cDakosy_EZA_Adressen), types As IEnumerable(Of String)) As cDakosy_EZA_Adressen
+        If list Is Nothing Then Return Nothing
+        Dim setTypes = New HashSet(Of String)(types.Select(Function(t) t.ToUpperInvariant()))
+        Dim hit = list.FirstOrDefault(Function(a) setTypes.Contains(SafeStr(a.ezaAd_AdressTyp).ToUpperInvariant()))
+        If hit IsNot Nothing Then Return hit
+        Dim hitEori = list.FirstOrDefault(Function(a) Not String.IsNullOrWhiteSpace(SafeStr(a.ezaAd_TeilnehmerEORI)))
+        If hitEori IsNot Nothing Then
+            Return hitEori
+        Else
+            Return list.FirstOrDefault()
+        End If
+    End Function
+
+    Private Shared Function MergeStreet(addr As cDakosy_EZA_Adressen) As String
+        If addr Is Nothing Then Return ""
+        Dim s1 = SafeStr(addr.ezaAd_StrasseHausNr1)
+        Dim s2 = SafeStr(addr.ezaAd_StrasseHausNr2)
+        If s2 <> "" Then Return (s1 & " " & s2).Trim()
+        Return s1
+    End Function
+
+    Private Shared Function UnitCodeToKafkaName(code As String) As String
+        Select Case SafeStr(code).ToUpperInvariant()
+            Case "KGM" : Return "Kilograms"
+            Case "TNE", "T" : Return "Tonnes"
+            Case "LTR" : Return "Litres"
+            Case "NAR", "NMB" : Return "Number of items"
+            Case Else : Return code
+        End Select
+    End Function
+
+    Private Shared Function ToDateYMD(value As Object) As String
+        If value Is Nothing Then Return ""
+        Dim dt As DateTime
+        If DateTime.TryParse(SafeStr(value), dt) Then
+            Return dt.ToString("yyyy-MM-dd", CultureInfo.InvariantCulture)
+        End If
+        Return ""
+    End Function
+
+    Private Shared Function ToInvariantStr(value As Object) As String
+        If value Is Nothing Then Return ""
+        If TypeOf value Is IFormattable Then
+            Return DirectCast(value, IFormattable).ToString(Nothing, CultureInfo.InvariantCulture)
+        End If
+        Return Convert.ToString(value, CultureInfo.InvariantCulture)
+    End Function
+
+    Private Shared Function SafeStr(o As Object) As String
+        If o Is Nothing Then Return ""
+        Dim s = Convert.ToString(o).Trim()
+        Return If(s, "")
+    End Function
+
+    Private Shared Function FirstNonEmpty(ParamArray values() As Object) As Object
+        For Each v In values
+            If v IsNot Nothing AndAlso Not String.IsNullOrWhiteSpace(SafeStr(v)) Then
+                Return v
+            End If
+        Next
+        Return Nothing
+    End Function
+
+    Private Shared Function FirstNonEmptyStr(ParamArray values() As Object) As String
+        For Each v In values
+            Dim s = SafeStr(v)
+            If Not String.IsNullOrWhiteSpace(s) Then Return s
+        Next
+        Return ""
+    End Function
+
+End Class

DAKOSY_Worker/DAKOSY_Worker_lib.vbproj

@@ -108,6 +108,7 @@
     <Compile Include="DAKOSY\ATLAS\EZA\BefundVereinfachteZollanmeldung\BefundVereinfachteZollanmeldung_008.designer.vb" />
     <Compile Include="DAKOSY\ATLAS\EZA\BefundVereinfachteZollanmeldung\BefundVereinfachteZollanmeldung_009.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\EZA\cDakosyEZA.vb" />
+    <Compile Include="DAKOSY\ATLAS\EZA\cDakosyEZA_Greenpulse.vb" />
     <Compile Include="DAKOSY\ATLAS\EZA\EntscheidungAnmeldung\EntscheidungAnmeldung_003.Designer.vb" />
     <Compile Include="DAKOSY\ATLAS\EZA\EntscheidungAnmeldung\EntscheidungAnmeldung_004.designer.vb" />
     <Compile Include="DAKOSY\ATLAS\EZA\EntscheidungAnmeldung\EntscheidungAnmeldung_005.Designer.vb" />

UID/usrctlProcedures.Designer.vb

@@ -144,7 +144,7 @@ Partial Class usrctlProcedures
         Me.Button43 = New System.Windows.Forms.Button()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Button49 = New System.Windows.Forms.Button()
+        Me.Button99 = New System.Windows.Forms.Button()
         Me.Label17 = New System.Windows.Forms.Label()
         Me.Label18 = New System.Windows.Forms.Label()
         Me.Label19 = New System.Windows.Forms.Label()
@@ -1343,18 +1343,18 @@ Partial Class usrctlProcedures
         '
         'Button49
         '
-        Me.Button49.Location = New System.Drawing.Point(741, 654)
+        Me.Button99.Location = New System.Drawing.Point(741, 654)
-        Me.Button49.Name = "Button49"
+        Me.Button99.Name = "Button99"
-        Me.Button49.Size = New System.Drawing.Size(75, 23)
+        Me.Button99.Size = New System.Drawing.Size(75, 23)
-        Me.Button49.TabIndex = 66
+        Me.Button99.TabIndex = 66
-        Me.Button49.Text = "Kafka TEST"
+        Me.Button99.Text = "Kafka TEST"
-        Me.Button49.UseVisualStyleBackColor = True
+        Me.Button99.UseVisualStyleBackColor = True
         '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.Button49)
+        Me.Controls.Add(Me.Button99)
         Me.Controls.Add(Me.Button43)
         Me.Controls.Add(Me.Button33)
         Me.Controls.Add(Me.lblStatus)
@@ -1554,5 +1554,5 @@ Partial Class usrctlProcedures
     Friend WithEvents Label19 As Label
     Friend WithEvents Label18 As Label
     Friend WithEvents Label17 As Label
-    Friend WithEvents Button49 As Button
+    Friend WithEvents Button99 As Button
 End Class

UID/usrctlProcedures.vb

@@ -10,6 +10,7 @@ Imports System.Xml
 Imports System.Xml.Serialization
 Imports Chilkat
 Imports Confluent.Kafka
+Imports DAKOSY_Worker
 Imports GrapeCity
 Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
@@ -586,7 +587,7 @@ Public Class usrctlProcedures
             For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners 
                 Try
 
-                    Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(file)
+                    Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(file)
                     Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create))
                     Dim f = stamper.AcroFields
 
@@ -648,7 +649,7 @@ Public Class usrctlProcedures
         Return file
     End Function
     Sub pdf2()
-        Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
+        Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
 
 
         Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open)
@@ -4147,15 +4148,18 @@ Public Class usrctlProcedures
         Catch ex As Exception
             MessageBox.Show("Datei nicht vorhanden.")
         Finally
+        End Try
 
     End Sub
 
-    Private Sub Button49_Click_1(sender As Object, e As EventArgs) Handles Button49.Click
+    Private Sub Button99_Click_1(sender As Object, e As EventArgs) Handles Button99.Click
         Try
-            Dim mrn As String = "ATC400003850720243230"
+            Dim mrn As String = "25DE7458GCA002Q3R4"
-
+            Dim EZA = cDakosyEZA.LOADByMRN(mrn, True)
+            MsgBox(EZA.eza_MRN)
+            MsgBox(EZA.eza_ObjectName)
             ' Objekt
-            Dim rec = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.BuildByMrn(mrn)
+            Dim rec = cDakosyEZA_Greenpulse.BuildByMrn(EZA)
 
             '  Dim rec = cATEZ_Greenpulse_KafkaDecs.BuildDemo()
             '' JSON (schön formatiert)

initATLASAufschubkonten/frmStartOptions.vb

@@ -3098,11 +3098,11 @@ Public Class frmStartOptions
     End Function
 
 
-    Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True) As Boolean
+    Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
-        getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
+        getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
-        getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
+        getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
-        getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline)
+        getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
-        getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True, finanzOnline)
+        getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True, finanzOnline, veroegerungMs)
         'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
 
     End Function
@@ -3241,12 +3241,12 @@ Public Class frmStartOptions
     Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
         Return True
     End Function
-    Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False, Optional finanzOnline As Boolean = True) As Boolean
+    Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean
         Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
         Try
             VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
             Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), Nothing)
-            Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False, finanzOnline)
+            Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False, finanzOnline, veroegerungMs)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
                 If PDF <> "" Then
@@ -3703,7 +3703,7 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
+        Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value)
         'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked)
         'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
         showPic(bool, PictureBox12)
@@ -4187,12 +4187,12 @@ Public Class frmStartOptions
     Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         '  Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
-        Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
+        Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value)
         showPic(bool, PictureBox12)
     End Sub
     Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
+        Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value)
         showPic(bool, PictureBox12)
     End Sub
 
@@ -4343,7 +4343,7 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
-        Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
+        Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked, txtMsVerz._value)
         showPic(bool, PictureBox12)
     End Sub