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

merge

Browse Source
This commit is contained in:
d.breimaier
2025-09-23 14:57:30 +02:00
parent 79e6765c62 e85eaa7bfb
commit bf6eb37000
6 changed files with 252 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
View File

@@ -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

177
DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb Normal file
View File

@@ -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

1
DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
View File

@@ -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" />

18
UID/usrctlProcedures.Designer.vb generated
View File

@@ -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.Button49.Name = "Button49"
Me.Button49.Size = New System.Drawing.Size(75, 23)
Me.Button49.TabIndex = 66
Me.Button49.Text = "Kafka TEST"
Me.Button49.UseVisualStyleBackColor = True
Me.Button99.Location = New System.Drawing.Point(741, 654)
Me.Button99.Name = "Button99"
Me.Button99.Size = New System.Drawing.Size(75, 23)
Me.Button99.TabIndex = 66
Me.Button99.Text = "Kafka TEST"
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

16
UID/usrctlProcedures.vb
View File

@@ -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)

22
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -3120,11 +3120,11 @@ Public Class frmStartOptions
End Function
Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True) 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, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True, finanzOnline)
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, 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, veroegerungMs)
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, veroegerungMs)
'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
End Function
@@ -3263,12 +3263,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
@@ -3725,7 +3725,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)
@@ -4209,12 +4209,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
@@ -4365,7 +4365,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