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-03-26 09:15:35 +01:00
parent 3798fda0b8 299719ef24
commit fd995d80d5
8 changed files with 1259 additions and 831 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
UID/usrctlProcedures.Designer.vb generated
View File

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

132
UID/usrctlProcedures.vb
View File

@@ -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\elotec ncts 02 2025\ATILLA _ DUR.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 = "T2" '"T1" '"T2"
TELANM.Hea_DecTy = "T2" '"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")

364
cNCTSPartnerWorker/MAVI/CC015B_VersandanmeldungFinal/CC015B.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

12
initATLASAufschubkonten/cGetMsgType.vb
View File

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

117
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

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

145
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -161,6 +161,8 @@ Partial Class frmStartOptions
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label50 = New System.Windows.Forms.Label()
Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.Label49 = New System.Windows.Forms.Label()
Me.Button28 = New System.Windows.Forms.Button()
@@ -194,12 +196,9 @@ Partial Class frmStartOptions
Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel72 = New System.Windows.Forms.LinkLabel()
Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel()
Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox()
Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel70 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel67 = New System.Windows.Forms.LinkLabel()
Me.cbxITalt = New System.Windows.Forms.CheckBox()
@@ -273,6 +272,9 @@ Partial Class frmStartOptions
Me.LinkLabel43 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel44 = New System.Windows.Forms.LinkLabel()
Me.Label24 = New System.Windows.Forms.Label()
Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -308,6 +310,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1066,6 +1069,7 @@ Partial Class frmStartOptions
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.LinkLabel73)
Me.TabPage1.Controls.Add(Me.LinkLabel68)
Me.TabPage1.Controls.Add(Me.PictureBox26)
Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -1131,10 +1135,10 @@ Partial Class frmStartOptions
Me.LinkLabel68.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel68.Location = New System.Drawing.Point(18, 393)
Me.LinkLabel68.Name = "LinkLabel68"
Me.LinkLabel68.Size = New System.Drawing.Size(52, 13)
Me.LinkLabel68.Size = New System.Drawing.Size(127, 13)
Me.LinkLabel68.TabIndex = 151
Me.LinkLabel68.TabStop = True
Me.LinkLabel68.Text = "KN8 EZT"
Me.LinkLabel68.Text = "KN8 EZT Statistik Austria"
'
'PictureBox26
'
@@ -2137,6 +2141,8 @@ Partial Class frmStartOptions
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.Label50)
Me.TabPage3.Controls.Add(Me.MyTextBox6)
Me.TabPage3.Controls.Add(Me.CheckBox9)
Me.TabPage3.Controls.Add(Me.Label49)
Me.TabPage3.Controls.Add(Me.Button28)
@@ -2169,6 +2175,40 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True
'
'Label50
'
Me.Label50.AutoSize = True
Me.Label50.Location = New System.Drawing.Point(548, 305)
Me.Label50.Name = "Label50"
Me.Label50.Size = New System.Drawing.Size(29, 13)
Me.Label50.TabIndex = 149
Me.Label50.Text = "Top:"
'
'MyTextBox6
'
Me.MyTextBox6._DateTimeOnly = False
Me.MyTextBox6._numbersOnly = False
Me.MyTextBox6._numbersOnlyKommastellen = ""
Me.MyTextBox6._numbersOnlyTrennzeichen = False
Me.MyTextBox6._Prozent = False
Me.MyTextBox6._ShortDateNew = False
Me.MyTextBox6._ShortDateOnly = False
Me.MyTextBox6._TimeOnly = False
Me.MyTextBox6._TimeOnly_Seconds = False
Me.MyTextBox6._value = "200"
Me.MyTextBox6._Waehrung = False
Me.MyTextBox6._WaehrungZeichen = False
Me.MyTextBox6.ForeColor = System.Drawing.Color.Black
Me.MyTextBox6.Location = New System.Drawing.Point(583, 302)
Me.MyTextBox6.MaxLength = 18
Me.MyTextBox6.MaxLineLength = -1
Me.MyTextBox6.MaxLines_Warning = ""
Me.MyTextBox6.MaxLines_Warning_Label = Nothing
Me.MyTextBox6.Name = "MyTextBox6"
Me.MyTextBox6.Size = New System.Drawing.Size(150, 20)
Me.MyTextBox6.TabIndex = 148
Me.MyTextBox6.Text = "200"
'
'CheckBox9
'
Me.CheckBox9.AutoSize = True
@@ -2486,12 +2526,9 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.LinkLabel73)
Me.TabPage4.Controls.Add(Me.LinkLabel69)
Me.TabPage4.Controls.Add(Me.LinkLabel72)
Me.TabPage4.Controls.Add(Me.txtPloseJahr)
Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst)
Me.TabPage4.Controls.Add(Me.txtUTADate)
Me.TabPage4.Controls.Add(Me.TextBox3)
Me.TabPage4.Controls.Add(Me.cbxIDSUmbenenen)
Me.TabPage4.Controls.Add(Me.txtIDSYear)
Me.TabPage4.Controls.Add(Me.LinkLabel70)
Me.TabPage4.Controls.Add(Me.LinkLabel67)
Me.TabPage4.Controls.Add(Me.cbxITalt)
@@ -2565,6 +2602,9 @@ Partial Class frmStartOptions
Me.TabPage4.Controls.Add(Me.LinkLabel43)
Me.TabPage4.Controls.Add(Me.LinkLabel44)
Me.TabPage4.Controls.Add(Me.Label24)
Me.TabPage4.Controls.Add(Me.txtPloseJahr)
Me.TabPage4.Controls.Add(Me.txtUTADate)
Me.TabPage4.Controls.Add(Me.txtIDSYear)
Me.TabPage4.Controls.Add(Me.txtUTAYear)
Me.TabPage4.Controls.Add(Me.txtKdNr)
Me.TabPage4.Controls.Add(Me.txtBatchNrofTransaction)
@@ -3582,6 +3622,84 @@ Partial Class frmStartOptions
Me.Label24.TabIndex = 30
Me.Label24.Text = "Import"
'
'txtPloseJahr
'
Me.txtPloseJahr._DateTimeOnly = False
Me.txtPloseJahr._numbersOnly = True
Me.txtPloseJahr._numbersOnlyKommastellen = ""
Me.txtPloseJahr._numbersOnlyTrennzeichen = False
Me.txtPloseJahr._Prozent = False
Me.txtPloseJahr._ShortDateNew = False
Me.txtPloseJahr._ShortDateOnly = False
Me.txtPloseJahr._TimeOnly = False
Me.txtPloseJahr._TimeOnly_Seconds = False
Me.txtPloseJahr._value = ""
Me.txtPloseJahr._Waehrung = False
Me.txtPloseJahr._WaehrungZeichen = False
Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window
Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red
Me.txtPloseJahr.Location = New System.Drawing.Point(725, 111)
Me.txtPloseJahr.MaxLength = 10
Me.txtPloseJahr.MaxLineLength = -1
Me.txtPloseJahr.MaxLines_Warning = ""
Me.txtPloseJahr.MaxLines_Warning_Label = Nothing
Me.txtPloseJahr.Name = "txtPloseJahr"
Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20)
Me.txtPloseJahr.TabIndex = 158
Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtUTADate
'
Me.txtUTADate._DateTimeOnly = False
Me.txtUTADate._numbersOnly = False
Me.txtUTADate._numbersOnlyKommastellen = ""
Me.txtUTADate._numbersOnlyTrennzeichen = False
Me.txtUTADate._Prozent = False
Me.txtUTADate._ShortDateNew = False
Me.txtUTADate._ShortDateOnly = True
Me.txtUTADate._TimeOnly = False
Me.txtUTADate._TimeOnly_Seconds = False
Me.txtUTADate._value = ""
Me.txtUTADate._Waehrung = False
Me.txtUTADate._WaehrungZeichen = True
Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window
Me.txtUTADate.ForeColor = System.Drawing.Color.Red
Me.txtUTADate.Location = New System.Drawing.Point(537, 448)
Me.txtUTADate.MaxLength = 10
Me.txtUTADate.MaxLineLength = -1
Me.txtUTADate.MaxLines_Warning = ""
Me.txtUTADate.MaxLines_Warning_Label = Nothing
Me.txtUTADate.Name = "txtUTADate"
Me.txtUTADate.Size = New System.Drawing.Size(66, 20)
Me.txtUTADate.TabIndex = 156
Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtIDSYear
'
Me.txtIDSYear._DateTimeOnly = False
Me.txtIDSYear._numbersOnly = True
Me.txtIDSYear._numbersOnlyKommastellen = ""
Me.txtIDSYear._numbersOnlyTrennzeichen = False
Me.txtIDSYear._Prozent = False
Me.txtIDSYear._ShortDateNew = False
Me.txtIDSYear._ShortDateOnly = False
Me.txtIDSYear._TimeOnly = False
Me.txtIDSYear._TimeOnly_Seconds = False
Me.txtIDSYear._value = ""
Me.txtIDSYear._Waehrung = False
Me.txtIDSYear._WaehrungZeichen = True
Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window
Me.txtIDSYear.ForeColor = System.Drawing.Color.Red
Me.txtIDSYear.Location = New System.Drawing.Point(24, 387)
Me.txtIDSYear.MaxLength = 10
Me.txtIDSYear.MaxLineLength = -1
Me.txtIDSYear.MaxLines_Warning = ""
Me.txtIDSYear.MaxLines_Warning_Label = Nothing
Me.txtIDSYear.Name = "txtIDSYear"
Me.txtIDSYear.Size = New System.Drawing.Size(66, 20)
Me.txtIDSYear.TabIndex = 155
Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtUTAYear
'
Me.txtUTAYear._DateTimeOnly = False
@@ -4096,6 +4214,17 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'LinkLabel73
'
Me.LinkLabel73.AutoSize = True
Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel73.Location = New System.Drawing.Point(18, 419)
Me.LinkLabel73.Name = "LinkLabel73"
Me.LinkLabel73.Size = New System.Drawing.Size(148, 13)
Me.LinkLabel73.TabIndex = 152
Me.LinkLabel73.TabStop = True
Me.LinkLabel73.Text = "KN8 EZT DE Stat.Bundesamt"
'
'frmStartOptions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

1224
initATLASAufschubkonten/frmStartOptions.resx
View File

File diff suppressed because it is too large Load Diff

66
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -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()
@@ -1901,8 +1905,8 @@ Public Class frmStartOptions
End Function
Function getPlattsAufschlag_SONDER_Lukenda(outletGroug As String) As Double
If outletGroug.Contains("4473") Then Return 0.032 - 0.015
If outletGroug.Contains("4474") Then Return 0.032 - 0.015
If outletGroug.Contains("4473") Then Return 0.032 - 0.015 - 0.0065 ' SUBEN
If outletGroug.Contains("4474") Then Return 0.032 - 0.015 - 0.0065 ' SUBEN
If outletGroug.Contains("4493") Then Return 0.032 - 0.015
If outletGroug.Contains("4485") Then Return 0.032 - 0.015
If outletGroug.Contains("4486") Then Return 0.032 - 0.015
@@ -3972,17 +3976,17 @@ Public Class frmStartOptions
End If
SDL.Sachbearbeiter = "ASFINAG"
Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
If Validto <> "" Then
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1)))
End If
SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID"))
SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie"))
SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status"))
SDL.SAVE()
End If
@@ -4028,21 +4032,21 @@ Public Class frmStartOptions
End If
SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
Dim Validto = SQl.checkNullStr(row.Item("contractDate"))
SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber"))
SDL.KartenNr = SQl.checkNullStr(row.Item("cardNumber"))
If Validto <> "" Then
'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2))
SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken!
End If
SDL.OBUID = SQL.checkNullStr(row.Item("OBUID"))
SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate"))
SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory"))
SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory"))
SDL.Status = SQL.checkNullStr(row.Item("status"))
SDL.Nationalitaet = SQL.checkNullStr(row.Item("nationality"))
SDL.CO2Kategorie = SQL.checkNullStr(row.Item("CO2EmissionsClass"))
SDL.OBUID = SQl.checkNullStr(row.Item("OBUID"))
SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate"))
SDL.Kategorie = SQl.checkNullStr(row.Item("vehicleCategory"))
SDL.Schadstoffklasse = SQl.checkNullStr(row.Item("emissionCategory"))
SDL.Status = SQl.checkNullStr(row.Item("status"))
SDL.Nationalitaet = SQl.checkNullStr(row.Item("nationality"))
SDL.CO2Kategorie = SQl.checkNullStr(row.Item("CO2EmissionsClass"))
SDL.SAVE()
End If
@@ -5520,11 +5524,13 @@ Public Class frmStartOptions
Me.Cursor = Cursors.Default
End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
VERAG_PROG_ALLGEMEIN.cATEZ_ncts_api.query_declarations(datTranscodeVon._value, datTranscodeBis._value, cbxOverrideNCTSFin.Checked)
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
@@ -5605,19 +5611,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
Dim kdNrPlose As Integer = -1
@@ -5803,5 +5820,14 @@ Public Class frmStartOptions
End If
End Sub
Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
Me.Cursor = Cursors.WaitCursor
Try
Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT()
showPic(erg, PictureBox26)
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
End Class