ATEZ status
This commit is contained in:
30
UID/usrctlProcedures.Designer.vb
generated
30
UID/usrctlProcedures.Designer.vb
generated
@@ -24,6 +24,7 @@ Partial Class usrctlProcedures
|
||||
Private Sub InitializeComponent()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.CheckBox6 = New System.Windows.Forms.CheckBox()
|
||||
Me.TextBox15 = New System.Windows.Forms.TextBox()
|
||||
Me.Button37 = New System.Windows.Forms.Button()
|
||||
Me.Button41 = New System.Windows.Forms.Button()
|
||||
@@ -126,7 +127,7 @@ Partial Class usrctlProcedures
|
||||
Me.Button33 = New System.Windows.Forms.Button()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.CheckBox6 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button43 = New System.Windows.Forms.Button()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage3.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
@@ -170,6 +171,16 @@ Partial Class usrctlProcedures
|
||||
Me.TabPage3.Text = "TabPage3"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox6
|
||||
'
|
||||
Me.CheckBox6.AutoSize = True
|
||||
Me.CheckBox6.Location = New System.Drawing.Point(18, 55)
|
||||
Me.CheckBox6.Name = "CheckBox6"
|
||||
Me.CheckBox6.Size = New System.Drawing.Size(90, 17)
|
||||
Me.CheckBox6.TabIndex = 65
|
||||
Me.CheckBox6.Text = "ForceRefresh"
|
||||
Me.CheckBox6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox15
|
||||
'
|
||||
Me.TextBox15.Location = New System.Drawing.Point(185, 55)
|
||||
@@ -1106,20 +1117,20 @@ Partial Class usrctlProcedures
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'CheckBox6
|
||||
'Button43
|
||||
'
|
||||
Me.CheckBox6.AutoSize = True
|
||||
Me.CheckBox6.Location = New System.Drawing.Point(18, 55)
|
||||
Me.CheckBox6.Name = "CheckBox6"
|
||||
Me.CheckBox6.Size = New System.Drawing.Size(90, 17)
|
||||
Me.CheckBox6.TabIndex = 65
|
||||
Me.CheckBox6.Text = "ForceRefresh"
|
||||
Me.CheckBox6.UseVisualStyleBackColor = True
|
||||
Me.Button43.Location = New System.Drawing.Point(694, 29)
|
||||
Me.Button43.Name = "Button43"
|
||||
Me.Button43.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button43.TabIndex = 65
|
||||
Me.Button43.Text = "TELOTEC NCTS"
|
||||
Me.Button43.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrctlProcedures
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.Button43)
|
||||
Me.Controls.Add(Me.Button33)
|
||||
Me.Controls.Add(Me.lblStatus)
|
||||
Me.Controls.Add(Me.Button32)
|
||||
@@ -1293,4 +1304,5 @@ Partial Class usrctlProcedures
|
||||
Friend WithEvents TextBox15 As TextBox
|
||||
Friend WithEvents Button37 As Button
|
||||
Friend WithEvents CheckBox6 As CheckBox
|
||||
Friend WithEvents Button43 As Button
|
||||
End Class
|
||||
|
||||
@@ -16,6 +16,8 @@ Imports System.Xml.Serialization
|
||||
Imports System.Xml
|
||||
Imports System.Data.OleDb
|
||||
Imports Chilkat
|
||||
Imports TELOTEC_Worker
|
||||
Imports GrapeCity
|
||||
'Imports Microsoft.Office.Interop
|
||||
|
||||
Public Class usrctlProcedures
|
||||
@@ -3759,6 +3761,136 @@ Public Class usrctlProcedures
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click
|
||||
|
||||
|
||||
' Pfad zur Excel-Datei anpassen
|
||||
Dim filePath As String = "D:\Andreas\TMP\TELENM\Garantiebeträge 122024-012025-IMEX.xlsx"
|
||||
|
||||
' Excel Anwendung starten
|
||||
Dim excelApp As New Excel.Application
|
||||
Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)
|
||||
Dim excelSheet As Excel.Worksheet = CType(excelWorkbook.Sheets(1), Excel.Worksheet)
|
||||
Dim excelRange As Excel.Range = excelSheet.UsedRange
|
||||
|
||||
' Zeilenanzahl ermitteln
|
||||
Dim rowCount As Integer = excelRange.Rows.Count
|
||||
Dim colCount As Integer = excelRange.Columns.Count
|
||||
|
||||
' Zeile für Zeile durchlaufen
|
||||
For i As Integer = 2 To rowCount
|
||||
Dim rowData As String = ""
|
||||
|
||||
|
||||
Dim TELANM = cTelotec_Anmeldung.LOAD_ByBezugsNr(excelRange.Cells(i, 4).Value)
|
||||
If TELANM Is Nothing Then
|
||||
TELANM = New cTelotec_Anmeldung
|
||||
End If
|
||||
|
||||
TELANM.telanm_ART = "T1" '"T2"
|
||||
TELANM.Hea_DecTy = "T1" '"T2"
|
||||
TELANM.telanm_BezugsNr = excelRange.Cells(i, 4).Value
|
||||
TELANM.Refs_LRN = excelRange.Cells(i, 4).Value
|
||||
TELANM.telanm_Status = 50
|
||||
TELANM.telanm_Status_KEWILL_Equivalent = 50
|
||||
TELANM.telanm_CRN = excelRange.Cells(i, 5).Value
|
||||
TELANM.Refs_CRN = excelRange.Cells(i, 5).Value
|
||||
TELANM.telanm_Erstellung = CDate(excelRange.Cells(i, 6).Value)
|
||||
TELANM.telanm_LetzteBearbeitung = TELANM.telanm_Erstellung
|
||||
TELANM.dec_CreateDate = TELANM.telanm_Erstellung
|
||||
TELANM.Hea_AccDT = TELANM.telanm_Erstellung
|
||||
|
||||
TELANM.Mandant_ID = excelRange.Cells(i, 2).Value
|
||||
TELANM.telanm_firma = excelRange.Cells(i, 2).Value
|
||||
TELANM.dec_ProzessArt = "TA"
|
||||
TELANM.Hea_Simp = 0
|
||||
|
||||
TELANM.Hea_DecDT = "TA"
|
||||
TELANM.Hea_DecDT = TELANM.telanm_Erstellung
|
||||
TELANM.Hea_DecPlc = ""
|
||||
|
||||
|
||||
TELANM.Transp_DepIdnt = excelRange.Cells(i, 3).Value
|
||||
TELANM.Transp_CrossIdnt = excelRange.Cells(i, 3).Value
|
||||
|
||||
TELANM.Represent_Na = excelRange.Cells(i, 8).Value
|
||||
|
||||
TELANM.DepCO_Ref = excelRange.Cells(i, 12).Value
|
||||
TELANM.DestCO_Ref = excelRange.Cells(i, 13).Value
|
||||
TELANM.telnam_aktuellsteNachricht = 1
|
||||
TELANM.Bereich_ID = 0
|
||||
TELANM.Hea_TotItem = 1
|
||||
TELANM.ComIndicator = 1
|
||||
TELANM.Referenz_ID = TELANM.Refs_LRN '& TELANM.telanm_Erstellung.ToString("ddMMyyHHmm")
|
||||
|
||||
Dim GRT As New cTelotec_Sicherheit
|
||||
|
||||
GRT.Mandant_ID = TELANM.Mandant_ID
|
||||
GRT.Bereich_ID = TELANM.Bereich_ID
|
||||
GRT.Referenz_ID = TELANM.Referenz_ID
|
||||
GRT.ComIndicator = TELANM.ComIndicator
|
||||
GRT.GrteeRef_ID = 1
|
||||
|
||||
GRT.GRN = excelRange.Cells(i, 9).Value
|
||||
GRT.GVal = excelRange.Cells(i, 10).Value
|
||||
GRT.Curr = excelRange.Cells(i, 11).Value
|
||||
GRT.GrteeRef_GTy = 0
|
||||
|
||||
TELANM.SICHERHEIT.Clear()
|
||||
|
||||
TELANM.SICHERHEIT.Add(GRT)
|
||||
|
||||
TELANM.SAVE()
|
||||
|
||||
' MsgBox(TELANM.telanm_id)
|
||||
|
||||
''Stat 60Hizufüg
|
||||
'TELANM.telanm_id = Nothing
|
||||
'TELANM.telanm_Status = 60
|
||||
'TELANM.telanm_Status_KEWILL_Equivalent = 60
|
||||
|
||||
'TELANM.SAVE()
|
||||
|
||||
|
||||
Next
|
||||
|
||||
'For j As Integer = 1 To colCount
|
||||
' Dim cellValue As Object = excelRange.Cells(i, j).Value
|
||||
' If cellValue IsNot Nothing Then
|
||||
' rowData &= cellValue.ToString() & vbTab ' Werte mit Tabulator trennen
|
||||
' End If
|
||||
' Next
|
||||
' Console.WriteLine(rowData) ' Zeile ausgeben
|
||||
'Next
|
||||
|
||||
' Cleanup
|
||||
excelWorkbook.Close(False)
|
||||
excelApp.Quit()
|
||||
|
||||
' Excel-Objekte korrekt freigeben
|
||||
ReleaseObject(excelRange)
|
||||
ReleaseObject(excelSheet)
|
||||
ReleaseObject(excelWorkbook)
|
||||
ReleaseObject(excelApp)
|
||||
|
||||
Console.WriteLine("Excel-Daten wurden erfolgreich ausgelesen.")
|
||||
Console.ReadKey()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
' Methode zum Freigeben der COM-Objekte
|
||||
Private Sub ReleaseObject(ByVal obj As Object)
|
||||
Try
|
||||
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
|
||||
obj = Nothing
|
||||
Catch ex As Exception
|
||||
obj = Nothing
|
||||
Finally
|
||||
GC.Collect()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
'Private Sub Button26_Click(sender As Object, e As EventArgs)
|
||||
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
|
||||
@@ -338,6 +338,18 @@ Public Class cGetMsgType
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
Shared Function isAES_E_EXP_FUP_DEXPFE(doc As XmlDocument) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
|
||||
If doc.GetElementsByTagName("DEXPFE").Count > 0 Then
|
||||
'If doc.GetElementsByTagName("Version").Count > 0 Then
|
||||
' VERSION = doc.GetElementsByTagName("Version")(0).InnerText
|
||||
'End If
|
||||
Return True
|
||||
End If
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function isEZA_SumAErledigungsinformationCDXWare(doc As XmlDocument, ByRef VERSION As String) As Boolean
|
||||
If doc.HasChildNodes Then
|
||||
|
||||
@@ -451,6 +451,15 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
'End Select
|
||||
End If
|
||||
|
||||
|
||||
'AES/EZA: Wiedervorlage zur Ausfuhr
|
||||
If Not found And cGetMsgType.isAES_E_EXP_FUP_DEXPFE(doc) Then
|
||||
MsgBox("HALLLO")
|
||||
If readAES_E_EXP_FUP_DEXPFE(doc) <> "" Then found = True
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'
|
||||
|
||||
'------------------------------------------
|
||||
@@ -5750,6 +5759,114 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Function readAES_E_EXP_FUP_DEXPFE(doc As XmlDocument) As String
|
||||
Try
|
||||
Dim xmlDoc As New XmlDocument()
|
||||
' xmlDoc.LoadXml(xmlContent)
|
||||
If doc.GetElementsByTagName("LRN").Count > 0 Then
|
||||
|
||||
Dim LRN = doc.GetElementsByTagName("LRN")(0).InnerText
|
||||
readAES_E_EXP_FUP_DEXPFE = LRN
|
||||
|
||||
|
||||
If LRN.Replace("-", "/").Contains("/") AndAlso LRN.Length >= 13 Then
|
||||
Dim split = LRN.Replace("-", "/").Split("/")
|
||||
If split(0).Length = 4 AndAlso split(1).Length >= 8 Then
|
||||
' LRN passt vom Format!, suche nach DY_ANM:
|
||||
Dim dy_id As String = ""
|
||||
If LRN.ToString.Length > 15 Then
|
||||
dy_id = SQL.getValueTxtBySql("SELECT isnull(dy_Id,-1) FROM tblDakosy_Zollanmeldungen where [dy_BezugsNr]='" & LRN.ToString.Trim & "'", "FMZOLL")
|
||||
If dy_id = "" Then
|
||||
dy_id = SQL.getValueTxtBySql("SELECT isnull(dy_Id,-1) FROM tblDakosy_Zollanmeldungen where '" & LRN.ToString.Trim & "' LIKE [dy_BezugsNr] +'%' and LEN(dy_BezugsNr)>=13", "FMZOLL")
|
||||
End If
|
||||
Else
|
||||
dy_id = SQL.getValueTxtBySql("SELECT isnull(dy_Id,-1) FROM tblDakosy_Zollanmeldungen where [dy_BezugsNr]='" & LRN.ToString.Trim & "'", "FMZOLL")
|
||||
End If
|
||||
|
||||
'-------------------------------------------
|
||||
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
|
||||
'-------------------------------------------
|
||||
' DY Anmeldung gefunden
|
||||
'-------------------------------------------
|
||||
Dim DY_ANM = New cDakosy_Zollanmeldungen(dy_id)
|
||||
Dim AES_TMP = cDakosyAES.LOADByAnmIDFull(dy_id, False)
|
||||
If DY_ANM IsNot Nothing AndAlso DY_ANM.dy_AvisoId IsNot Nothing AndAlso DY_ANM.dy_SendungsId IsNot Nothing Then
|
||||
|
||||
|
||||
|
||||
If True Then
|
||||
'Benachrichtigung
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & DY_ANM.dy_SendungsId & "'", "AVISO", -1)
|
||||
Dim art = "B"
|
||||
|
||||
'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
|
||||
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
|
||||
sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & DY_ANM.dy_SendungsId & "'", "AVISO", -1)
|
||||
art = "B"
|
||||
End If
|
||||
|
||||
'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
|
||||
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
|
||||
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & DY_ANM.dy_AvisoId & "'", "AVISO", -1)
|
||||
art = "B"
|
||||
End If
|
||||
|
||||
'Wenn Benutzer des LKWs nicht online, Team...
|
||||
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
|
||||
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & DY_ANM.dy_SendungsId & "'", "AVISO", -1)
|
||||
art = "T"
|
||||
End If
|
||||
|
||||
'Wenn TEAM nicht gefunden, Firma...
|
||||
If sendToID <= 0 Then
|
||||
If AES_TMP IsNot Nothing AndAlso AES_TMP.aes_firma IsNot Nothing AndAlso AES_TMP.aes_firma <> "" Then
|
||||
sendToID = AES_TMP.aes_firma
|
||||
art = "F"
|
||||
End If
|
||||
End If
|
||||
If sendToID = "" Then sendToID = "VERAG" 'DEFAULT
|
||||
'Wenn gefunden
|
||||
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
|
||||
|
||||
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_ANM.dy_AvisoId & "'", "AVISO")
|
||||
|
||||
Select Case statusAVISO
|
||||
'Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben,,VERAG_PROG_ALLGEMEIN.cGlobal.erfasst Nue
|
||||
' Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
|
||||
'Nicht
|
||||
Case Else
|
||||
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AES_NachfrageVerbleib
|
||||
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), ""))
|
||||
End Select
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "TXT_Nachfrage_Verbleib - Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Return LRN
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML(doc As XmlDocument) As String
|
||||
Try
|
||||
readEZA_FreierVerkehrAktVeredelUmwandlungXML = ""
|
||||
|
||||
1556
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
1556
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -301,6 +301,10 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(Now.AddDays(-3), Now, False)
|
||||
closeMe()
|
||||
Case "NCTS_FREMD_UPDATE_MRN" 'TRANSCODE NCTS UPDATEN solange status <>60,90
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
updateATEZStatusByMRNTop(500)
|
||||
closeMe()
|
||||
Case "UID_Pruefung"
|
||||
Dim f As New frmInfo(PARAM)
|
||||
f.Show()
|
||||
@@ -5522,6 +5526,7 @@ Public Class frmStartOptions
|
||||
End Sub
|
||||
|
||||
Private Sub Button27_Click(sender As Object, e As EventArgs) Handles btnTestATEZ.Click
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(MyTextBox5.Text)
|
||||
|
||||
End Sub
|
||||
@@ -5602,19 +5607,30 @@ Public Class frmStartOptions
|
||||
|
||||
Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
|
||||
|
||||
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (200) ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
|
||||
' Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id] FROM [tblNCTS_FREMD] where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
|
||||
Dim top = 200
|
||||
If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
|
||||
top = CInt(MyTextBox6._value)
|
||||
End If
|
||||
|
||||
updateATEZStatusByMRNTop(top)
|
||||
End Sub
|
||||
|
||||
Sub updateATEZStatusByMRNTop(top As Integer)
|
||||
Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN FROM [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
|
||||
If dt IsNot Nothing Then
|
||||
Label49.Text = "-"
|
||||
Dim cnt = 1
|
||||
For Each r In dt.Rows
|
||||
Label49.Text = cnt & "/" & dt.Rows.Count
|
||||
Me.Refresh()
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.get_ie015_xml_by_mrn(r("ncts_MRN"))
|
||||
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.updateStatusByMRN(r("ncts_MRN"))
|
||||
Next
|
||||
Label49.Text = dt.Rows.Count & "fin"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
|
||||
If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user