diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
index 14cd2d1..48d05f4 100644
--- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb
+++ b/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
diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb
new file mode 100644
index 0000000..b9f52e1
--- /dev/null
+++ b/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
diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
index 86dceab..660fe90 100644
--- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
+++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj
@@ -108,6 +108,7 @@
+
diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb
index de61d53..993a85e 100644
--- a/UID/usrctlProcedures.Designer.vb
+++ b/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.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
diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb
index fd6a37a..44785b1 100644
--- a/UID/usrctlProcedures.vb
+++ b/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)
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index ed37a3c..21c920f 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -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