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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-27 22:57:00 +01:00
parent fa670231f7
commit 14a7113144
22 changed files with 872 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1079,8 +1079,8 @@ Public Class cDakosyEZA
SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50) SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50)
End If End If
End If End If
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_TeilnehmerEORI, "") ' If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(ADR.ezaAd_TeilnehmerEORI, "")
If If(SPEDITIONSBUCH.Absender, "").Trim.Replace(",", "") = String.Empty Then SPEDITIONSBUCH.Absender = ""
End If End If
@@ -1089,7 +1089,7 @@ Public Class cDakosyEZA
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL) Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL)
If AD IsNot Nothing Then If AD IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
End If End If
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then
SPEDITIONSBUCH.Empfänger = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim SPEDITIONSBUCH.Empfänger = (If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "") & " " & If(ADR.ezaAd_NameFirma1, "")).trim
@@ -1101,7 +1101,8 @@ Public Class cDakosyEZA
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50) SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50)
End If End If
End If End If
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_TeilnehmerEORI, "") 'If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= " " & If(ADR.ezaAd_TeilnehmerEORI, "")
If If(SPEDITIONSBUCH.Empfänger, "").Trim.Replace(",", "") = String.Empty Then SPEDITIONSBUCH.Empfänger = ""
End If End If

1
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -529,6 +529,7 @@ Public Class cZOLL_IMPORT
If SPEDITIONSBUCH.Abfertigungsart <= 0 Then SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID If SPEDITIONSBUCH.Abfertigungsart <= 0 Then SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling
If SPEDITIONSBUCH.PersonalnummerQS <= 0 Then SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA If SPEDITIONSBUCH.PersonalnummerQS <= 0 Then SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA
If SPEDITIONSBUCH.PersonalnummerAbklTR <= 0 Then SPEDITIONSBUCH.PersonalnummerAbklTR = SENDUNG.tblSnd_AbklaerungTR_MA
If SENDUNG.tblSnd_FilialeAbklaerung IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_FilialeAbklaerung) AndAlso SENDUNG.tblSnd_FilialeAbklaerung > 0 Then If SENDUNG.tblSnd_FilialeAbklaerung IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_FilialeAbklaerung) AndAlso SENDUNG.tblSnd_FilialeAbklaerung > 0 Then
SPEDITIONSBUCH.FilialenNrAbklaerung = SENDUNG.tblSnd_FilialeAbklaerung SPEDITIONSBUCH.FilialenNrAbklaerung = SENDUNG.tblSnd_FilialeAbklaerung

4
UID/Dienstplan/cFeiertage.vb
View File

@@ -70,8 +70,8 @@
Exit For Exit For
End If End If
Next i Next i
Dim ErsterAdvent As Date = DateAdd("d", -21, VierterAdvent) Dim ErsterAdvent As Date = VierterAdvent.AddDays(-21) ' DateAdd("d", -21, VierterAdvent)
Return DateAdd("d", -11, ErsterAdvent) 'BussUndBettag Return ErsterAdvent.AddDays(-11) ' DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
End Get End Get
End Property End Property

11
UID/My Project/Resources.Designer.vb generated
View File

@@ -525,6 +525,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property sfsdf3sdfsdf3sdfsdfsdf() As String
Get
Return ResourceManager.GetString("sfsdf3sdfsdf3sdfsdfsdf", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -655,7 +664,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 2.0.0 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 2.0.1 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get

5
UID/My Project/Resources.resx
View File

@@ -188,7 +188,7 @@
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value> <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>2.0.0</value> <value>2.0.1</value>
</data> </data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -304,4 +304,7 @@
<data name="personGray_w" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="personGray_w" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sfsdf3sdfsdf3sdfsdfsdf" xml:space="preserve">
<value />
</data>
</root> </root>

107
UID/usrctlProcedures.Designer.vb generated
View File

@@ -100,10 +100,13 @@ Partial Class usrctlProcedures
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.Button27 = New System.Windows.Forms.Button()
Me.Button26 = New System.Windows.Forms.Button() Me.Button26 = New System.Windows.Forms.Button()
Me.Button27 = New System.Windows.Forms.Button()
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.CheckBox5 = New System.Windows.Forms.CheckBox()
Me.Button29 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -731,7 +734,7 @@ Partial Class usrctlProcedures
' '
'Button23 'Button23
' '
Me.Button23.Location = New System.Drawing.Point(606, 161) Me.Button23.Location = New System.Drawing.Point(618, 344)
Me.Button23.Name = "Button23" Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(75, 23) Me.Button23.Size = New System.Drawing.Size(75, 23)
Me.Button23.TabIndex = 41 Me.Button23.TabIndex = 41
@@ -778,7 +781,7 @@ Partial Class usrctlProcedures
' '
'TextBox10 'TextBox10
' '
Me.TextBox10.Location = New System.Drawing.Point(694, 241) Me.TextBox10.Location = New System.Drawing.Point(690, 335)
Me.TextBox10.Multiline = True Me.TextBox10.Multiline = True
Me.TextBox10.Name = "TextBox10" Me.TextBox10.Name = "TextBox10"
Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -787,7 +790,7 @@ Partial Class usrctlProcedures
' '
'TextBox11 'TextBox11
' '
Me.TextBox11.Location = New System.Drawing.Point(824, 241) Me.TextBox11.Location = New System.Drawing.Point(820, 335)
Me.TextBox11.Multiline = True Me.TextBox11.Multiline = True
Me.TextBox11.Name = "TextBox11" Me.TextBox11.Name = "TextBox11"
Me.TextBox11.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox11.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -796,7 +799,7 @@ Partial Class usrctlProcedures
' '
'TextBox12 'TextBox12
' '
Me.TextBox12.Location = New System.Drawing.Point(694, 356) Me.TextBox12.Location = New System.Drawing.Point(690, 450)
Me.TextBox12.Multiline = True Me.TextBox12.Multiline = True
Me.TextBox12.Name = "TextBox12" Me.TextBox12.Name = "TextBox12"
Me.TextBox12.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox12.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
@@ -806,7 +809,7 @@ Partial Class usrctlProcedures
'Label11 'Label11
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(691, 225) Me.Label11.Location = New System.Drawing.Point(687, 319)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(94, 13) Me.Label11.Size = New System.Drawing.Size(94, 13)
Me.Label11.TabIndex = 28 Me.Label11.TabIndex = 28
@@ -815,7 +818,7 @@ Partial Class usrctlProcedures
'Label12 'Label12
' '
Me.Label12.AutoSize = True Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(821, 225) Me.Label12.Location = New System.Drawing.Point(817, 319)
Me.Label12.Name = "Label12" Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(96, 13) Me.Label12.Size = New System.Drawing.Size(96, 13)
Me.Label12.TabIndex = 28 Me.Label12.TabIndex = 28
@@ -824,20 +827,29 @@ Partial Class usrctlProcedures
'Label13 'Label13
' '
Me.Label13.AutoSize = True Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(691, 340) Me.Label13.Location = New System.Drawing.Point(687, 434)
Me.Label13.Name = "Label13" Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(119, 13) Me.Label13.Size = New System.Drawing.Size(119, 13)
Me.Label13.TabIndex = 28 Me.Label13.TabIndex = 28
Me.Label13.Text = "Änderung bei vorh. Kd.:" Me.Label13.Text = "Änderung bei vorh. Kd.:"
' '
'Label14 'Button26
' '
Me.Label14.Location = New System.Drawing.Point(756, 156) Me.Button26.Location = New System.Drawing.Point(755, 104)
Me.Label14.Name = "Label14" Me.Button26.Name = "Button26"
Me.Label14.Size = New System.Drawing.Size(145, 13) Me.Button26.Size = New System.Drawing.Size(145, 49)
Me.Label14.TabIndex = 53 Me.Button26.TabIndex = 54
Me.Label14.Text = "0/0" Me.Button26.Text = "UNISPED EXCEL Importieren"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight Me.Button26.UseVisualStyleBackColor = True
'
'Button27
'
Me.Button27.Location = New System.Drawing.Point(756, 50)
Me.Button27.Name = "Button27"
Me.Button27.Size = New System.Drawing.Size(145, 49)
Me.Button27.TabIndex = 50
Me.Button27.Text = "UNISPED MDB Importieren"
Me.Button27.UseVisualStyleBackColor = True
' '
'CheckBox4 'CheckBox4
' '
@@ -851,28 +863,52 @@ Partial Class usrctlProcedures
Me.CheckBox4.Text = "TESTSYSTEM" Me.CheckBox4.Text = "TESTSYSTEM"
Me.CheckBox4.UseVisualStyleBackColor = True Me.CheckBox4.UseVisualStyleBackColor = True
' '
'Button27 'Label14
' '
Me.Button27.Location = New System.Drawing.Point(756, 50) Me.Label14.Location = New System.Drawing.Point(756, 156)
Me.Button27.Name = "Button27" Me.Label14.Name = "Label14"
Me.Button27.Size = New System.Drawing.Size(145, 49) Me.Label14.Size = New System.Drawing.Size(145, 13)
Me.Button27.TabIndex = 50 Me.Label14.TabIndex = 53
Me.Button27.Text = "UNISPED MDB Importieren" Me.Label14.Text = "0/0"
Me.Button27.UseVisualStyleBackColor = True Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
' '
'Button26 'Label15
' '
Me.Button26.Location = New System.Drawing.Point(755, 104) Me.Label15.Location = New System.Drawing.Point(756, 254)
Me.Button26.Name = "Button26" Me.Label15.Name = "Label15"
Me.Button26.Size = New System.Drawing.Size(145, 49) Me.Label15.Size = New System.Drawing.Size(145, 13)
Me.Button26.TabIndex = 54 Me.Label15.TabIndex = 57
Me.Button26.Text = "UNISPED EXCEL Importieren" Me.Label15.Text = "0/0"
Me.Button26.UseVisualStyleBackColor = True Me.Label15.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'CheckBox5
'
Me.CheckBox5.AutoSize = True
Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox5.Location = New System.Drawing.Point(756, 179)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(98, 17)
Me.CheckBox5.TabIndex = 56
Me.CheckBox5.Text = "TESTSYSTEM"
Me.CheckBox5.UseVisualStyleBackColor = True
'
'Button29
'
Me.Button29.Location = New System.Drawing.Point(755, 202)
Me.Button29.Name = "Button29"
Me.Button29.Size = New System.Drawing.Size(145, 49)
Me.Button29.TabIndex = 58
Me.Button29.Text = "AMBAR EXCEL Importieren"
Me.Button29.UseVisualStyleBackColor = True
' '
'usrctlProcedures 'usrctlProcedures
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.CheckBox5)
Me.Controls.Add(Me.Button29)
Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.CheckBox4) Me.Controls.Add(Me.CheckBox4)
Me.Controls.Add(Me.Button27) Me.Controls.Add(Me.Button27)
@@ -1008,8 +1044,11 @@ Partial Class usrctlProcedures
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label Friend WithEvents Label12 As Label
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents Label14 As Label
Friend WithEvents CheckBox4 As CheckBox
Friend WithEvents Button27 As Button
Friend WithEvents Button26 As Button Friend WithEvents Button26 As Button
Friend WithEvents Button27 As Button
Friend WithEvents CheckBox4 As CheckBox
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
Friend WithEvents CheckBox5 As CheckBox
Friend WithEvents Button29 As Button
End Class End Class

263
UID/usrctlProcedures.vb
View File

@@ -2489,7 +2489,7 @@ Public Class usrctlProcedures
If s.ToString.Length > l Then If s.ToString.Length > l Then
Return s.Substring(0, l) Return s.Substring(0, l)
End If End If
Return s Return s.ToString
Catch ex As Exception Catch ex As Exception
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace) MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
@@ -2985,8 +2985,269 @@ Public Class usrctlProcedures
End Sub End Sub
Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
Dim StartZeit As Date = DateTime.Now
Dim StopZeit As Date = DateTime.Now
Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked
Dim cnt = 1
'dim listAVISO = New List(Of cAviso)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim kdnr_tmp = ""
Try
Dim fd As New OpenFileDialog
fd.InitialDirectory = "C:\Users\DEVELOPER1\Desktop\"
If fd.ShowDialog = DialogResult.OK Then
If fd.FileName.ToUpper.EndsWith(".XLSX") Then
Dim exclApp As Object 'as Application
Dim Datei As Object 'as WorkBook
Dim Blatt As Object 'as WorkSheet
exclApp = CreateObject("Excel.Application")
' Dim nWeek As Integer
' nWeek = DatePart(DateInterval.WeekOfYear, New Date(2004, 3, 22), _
' FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
' exclApp.Caption = GuiId
exclApp.CutCopyMode = False
Datei = exclApp.Workbooks.Open(fd.FileName)
Blatt = Datei.Worksheets(1)
Datei.Activate()
For index = 2 To Blatt.UsedRange.Rows.Count '2
' MsgBox(Blatt.Range("C" & index).Value)
'Dim valueX As String = ""
Try
'valueX = Blatt.Range("C" & index).Value.ToString
'MsgBox(valueX)
If Blatt.Range("B" & index).Value IsNot Nothing AndAlso Blatt.Range("B" & index).Value.ToString <> "" Then
'MsgBox(Blatt.Range("A" & index).Value)
'MsgBox(Blatt.Range("A" & index).Value IsNot Nothing)
'MsgBox(Blatt.Range("A" & index).Value.ToString <> "")
'MsgBox(IsNumeric(Blatt.Range("A" & index).Value))
Dim kdnr As Integer = 3000001
If Blatt.Range("A" & index).Value IsNot Nothing AndAlso Blatt.Range("A" & index).Value.ToString <> "" AndAlso IsNumeric(Blatt.Range("A" & index).Value) Then
kdnr = CInt(Blatt.Range("A" & index).Value) + 3000000
Else
kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(3020000, 3499999) '+ 1
End If
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
'If True Then 'Not KD.hasEntry Then
' MsgBox((Blatt.Range("C" & index).Value.ToString))
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
Dim KDE As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
AD.Auswahl = "A"
If Blatt.Range("H" & index).Value Is Nothing OrElse Blatt.Range("H" & index).Value.ToString = "" Then
AD.Ordnungsbegriff = getTrimedString(Blatt.Range("B" & index).Value, 40)
Else
AD.Ordnungsbegriff = getTrimedString((Blatt.Range("B" & index).Value) & "; " & (Blatt.Range("H" & index).Value), 40)
End If
AD.Name_1 = getTrimedString(Blatt.Range("B" & index).Value, 40)
AD.Name_2 = Nothing
AD.Straße = getTrimedString(Blatt.Range("C" & index).Value, 40)
If If(AD.Straße, "").trim = "" Then AD.Straße = Nothing
AD.Ort = getTrimedString(Blatt.Range("H" & index).Value, 40)
If If(AD.Ort, "").trim = "" Then AD.Ort = "-"
Dim LandKz = getTrimedString(Blatt.Range("F" & index).Value, 3)
Dim PLZ = getTrimedString(Blatt.Range("G" & index).Value, 7)
AD.PLZ = sql.isleernothing(getTrimedString(PLZ.Trim, 7))
AD.LandKz = sql.isleernothing(getTrimedString(LandKz.Trim, 3))
If Blatt.Range("K" & index).value IsNot Nothing Then
If Blatt.Range("K" & index).Value.ToString.Length > 20 Then
AD.Mobiltelefon = getTrimedString(Blatt.Range("K" & index).Value.ToString, 40)
Else
AD.Telefon = getTrimedString(Blatt.Range("K" & index).Value.ToString, 20)
End If
End If
If If(AD.Telefon, "").trim = "" Then AD.Telefon = Nothing
AD.Mobiltelefon = Nothing
AD.Telefax = Nothing
AD.E_Mail = getTrimedString(Blatt.Range("L" & index).Value, 40)
If If(AD.E_Mail, "").trim = "" Then AD.E_Mail = Nothing
AD.E_Mail2 = Nothing
' AD. = row("Internet1")
If Blatt.Range("J" & index).value IsNot Nothing Then AD.Ansprechpartner = getTrimedString(Blatt.Range("J" & index).Value.ToString, 40)
If If(AD.Ansprechpartner, "").trim = "" Then AD.Ansprechpartner = Nothing
KD.Währungscode = "EUR" 'getTrimedStringACCES(row("Standard FakturenWährung"), 3)
KD.Zahlungsziel = Nothing
' Offerte ??
KDE.kde_BesonderheitenNeu = True
Dim Allg = ""
VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten.DELETE_ALL_KD(kdnr)
If Blatt.Range("M" & index).value IsNot Nothing AndAlso Blatt.Range("M" & index).value <> "" Then
addbesonderheit(kdnr, "ÖFFNUNGSZEITEN: " & Blatt.Range("M" & index).Value.ToString)
End If
If Blatt.Range("Q" & index).value IsNot Nothing AndAlso Blatt.Range("Q" & index).value <> "" Then
addbesonderheit(kdnr, "ZOLLAGENT: " & Blatt.Range("Q" & index).Value.ToString)
End If
If Blatt.Range("I" & index).value IsNot Nothing AndAlso Blatt.Range("I" & index).value <> "" Then
addbesonderheit(kdnr, Blatt.Range("I" & index).Value.ToString)
End If
KD.Besonderheiten = isleernothing(Allg.Trim)
Dim obtmp = getTrimedStringACCES(AD.Ordnungsbegriff, 31)
If AD.doesOrdnungsbegriffExist Then
AD.Ordnungsbegriff = obtmp & " (AMBAR)"
End If
If AD.doesOrdnungsbegriffExist Then
AD.Ordnungsbegriff = obtmp & " (AMBAR2)"
End If
If AD.doesOrdnungsbegriffExist Then
AD.Ordnungsbegriff = obtmp & " (AMBAR3)"
End If
If AD.doesOrdnungsbegriffExist Then
AD.Ordnungsbegriff = obtmp & " (AMBAR4)"
End If
AD.Ordnungsbegriff = getTrimedString(AD.Ordnungsbegriff, 40)
If Blatt.Range("N" & index).value IsNot Nothing AndAlso Blatt.Range("N" & index).value.ToString <> "" AndAlso Blatt.Range("N" & index).value.ToString.Length > 4 Then
Dim uidvalue = Blatt.Range("N" & index).value.trim.ToString.Replace(" ", "")
If IsNumeric(uidvalue.Trim.Substring(2)) Then 'DE
AD.UstIdKz = getTrimedString(uidvalue, 2)
AD.UstIdNr = getTrimedString(uidvalue.Trim.Substring(2), 12)
ElseIf IsNumeric(uidvalue.Trim.Substring(3)) Then 'ATU
AD.UstIdKz = getTrimedString(uidvalue, 2)
AD.UstIdNr = getTrimedString(uidvalue.Trim.Substring(2), 12)
End If
End If
If Blatt.Range("P" & index).value IsNot Nothing Then KD.EORITIN = getTrimedString(Blatt.Range("P" & index).Value.ToString, 17)
KD.KundenNrZentrale = KD.KundenNr
KD.FilialenNr = 5701
If If(KD.Sachbearbeiter, "").trim = "" Then KD.Sachbearbeiter = "AUTO"
KD.Währungscode = "EUR"
KD.Eingegeben_am = Now.ToShortDateString
' AD.Ordnungsbegriff = getTrimedString(AD.Name_1 & "; " & AD.Ort, 50)
AD.Eingegeben_am = Now.ToShortDateString
AD.LandKz = If(isleernothing(cProgramFunctions.getISO1Land(AD.LandKz)), AD.LandKz)
AD.Rechnungsdruck = True
If If(KD.EORITIN, "").trim = "" Then KD.EORITIN = Nothing
KD.Vorlageprovision = 0.01
KD.Kreditaufwendungen = 0.02
KD.Bankspesen = 0
KD.SVS = True
KD.Bankspesen_Mindestbetrag = 0
KD.Sammelrechnung = 0
KD.Steuerschlüssel = 10
KD.Kreditlimit = 2600
KD.Überwachungskunde = 0
KD.Abfertigungsverbot = 0
KD.Rechtsanwalt = 0
KD.Euroeinführung = CDate("01.01.2002")
KD.UStV_Summe3470BetragEUR = 0
KD.UStV_SummeErstattungsbetragEUR = 0
KD.UStV_SummeVorschaubetragEUR = 0
KD.UStV_SummeVorschaubetragEUR_IDS = 0
KD.UStV_SummeVorschaubetragEUR_VERAG = 0
KD.UStV_SummeUmsatzsteuerbetragEUR = 0
KD.UStV_SummeVZBetragEUR = 0
KD.Fiskal_Aktiv = 0
If AD.SAVE() AndAlso KD.SAVE() Then ' AndAlso KDE.SAVE() Then
TextBox10.Text &= AD.AdressenNr & " " & AD.Ordnungsbegriff & vbNewLine
Else
MsgBox("FEHLER: " & index)
End If
'Item(0) = row(0)
'Item(1) = row(1)
'Dim NextListItem As New ListViewItem(Item)
'ListView1.Items.Add(NextListItem)
Label15.Text = cnt & "/" & Blatt.UsedRange.Rows.Count
cnt += 1
Me.Refresh()
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Next
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message & ex.StackTrace)
Finally
End Try
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Sub addbesonderheit(kdnr, text, Optional art = "ZOLL")
Dim KD_BESONSERHEITEN As New VERAG_PROG_ALLGEMEIN.cKundenBesonderheiten
KD_BESONSERHEITEN.kdb_EingetragenAm = Now
KD_BESONSERHEITEN.kdb_history = 0
KD_BESONSERHEITEN.kdb_mitName = "AUTO"
KD_BESONSERHEITEN.kdb_mitId = 4
KD_BESONSERHEITEN.kdb_KundenNr = kdnr
KD_BESONSERHEITEN.kdb_AenderungAm = Now
KD_BESONSERHEITEN.kdb_kategorie = art
KD_BESONSERHEITEN.kdb_text = text
KD_BESONSERHEITEN.kdb_hervorheben = False
'KD_BESONSERHEITEN.kdb_visible =
KD_BESONSERHEITEN.SAVE()
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs) '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") ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d) ' Dim fi As New FileInfo(d)

11
VERAGMonitoring/My Project/Resources.Designer.vb generated
View File

@@ -71,7 +71,16 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.3 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property sdfsdfsdf3sdfsdf() As String
Get
Return ResourceManager.GetString("sdfsdfsdf3sdfsdf", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.3.6 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property version() As String Friend ReadOnly Property version() As String
Get Get

5
VERAGMonitoring/My Project/Resources.resx
View File

@@ -118,10 +118,13 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="version" xml:space="preserve"> <data name="version" xml:space="preserve">
<value>1.3.3</value> <value>1.3.6</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sdfsdfsdf3sdfsdf" xml:space="preserve">
<value />
</data>
</root> </root>

5
VERAGMonitoring/cSqlDb.vb
View File

@@ -401,6 +401,8 @@ Public Class cBrgDb
Return False Return False
End Function End Function
Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
Try Try
Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN() Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
@@ -510,7 +512,8 @@ Public Class cBrgDb
Dim tmp_sub As String = getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where) Dim tmp_sub As String = getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Dim tmp_sbg As String = getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where) Dim tmp_sbg As String = getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Dim tmp_DY As String = getBrgSumFrom_DAKOSY(datumVon, datumBis, statusVon, statusBis, buergschaft, where) Dim tmp_DY As String = getBrgSumFrom_DAKOSY(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Return CDbl(tmp_sub) + CDbl(tmp_sbg) + CDbl(tmp_DY) 'Dim tmp_nctsTR As String = getBrgSumFrom_NCTS_TR(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
Return CDbl(tmp_sub) + CDbl(tmp_sbg) + CDbl(tmp_DY) ' + CDbl(tmp_nctsTR)
End Function End Function

27
VERAGMonitoring/frmMain.vb
View File

@@ -35,7 +35,7 @@ Public Class frmMain
ico = icoVERAGMonitoring ico = icoVERAGMonitoring
AddHandler ico.BalloonTipClicked, AddressOf showMe AddHandler ico.BalloonTipClicked, AddressOf showMe
If Not BRG.checkUser(System.Environment.MachineName, Environment.UserName) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit() If Not (BRG.checkUser(System.Environment.MachineName, Environment.UserName) Or BRG.checkUser("SERVER", Environment.UserName)) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit()
' If allowEinzahlung Then btnEinzahlung.Visible = True ' If allowEinzahlung Then btnEinzahlung.Visible = True
If allowEinzahlung Then btnZusBel.Visible = True If allowEinzahlung Then btnZusBel.Visible = True
If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True
@@ -97,6 +97,21 @@ Public Class frmMain
Button2.Visible = False Button2.Visible = False
Button4.Enabled = False Button4.Enabled = False
Case "VERIMEX"
'cbxBrg_at_VeragAG.Enabled = False
'cbxBrg_de2_VeragAG.Enabled = False
'cbxBrg_at_VeragAG.Checked = False
'cbxBrg_de2_VeragAG.Checked = False
cbxAufschub_de_VeragAG.Checked = False
cbxAufschub_at_VeragAG.Checked = False
cbxAufschub_at_VeragCS.Checked = False
cbxAufschub_at_VeragZS.Checked = False
cbxAufschub_de_VeragAG.Enabled = False
cbxAufschub_at_VeragAG.Enabled = False
cbxAufschub_at_VeragCS.Enabled = False
cbxAufschub_at_VeragZS.Enabled = False
Button2.Visible = False
Button4.Enabled = False
End Select End Select
@@ -210,7 +225,7 @@ Public Class frmMain
'TELOTEC AT WOCHE 'TELOTEC AT WOCHE
Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
'AT WOCHE 'AT WOCHE
Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC + AtWoche_nctsTR
setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at))) setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at)))
'ZOLARIS AT TAG 'ZOLARIS AT TAG
@@ -985,6 +1000,14 @@ Public Class frmMain
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now) Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
frmShowData.Show() frmShowData.Show()
End Sub End Sub
Private Sub cbxBrg_at_Atilla_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Atilla.CheckedChanged
End Sub
Private Sub cbxBrg_at_Imex_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBrg_at_Imex.CheckedChanged
End Sub
End Class End Class

45
VERAGMonitoringUPDATER/Update.vb
View File

@@ -1,6 +1,14 @@
Module Update Module Update
Dim F_PFAD = "F:\Programme\VERAGMonitoring\"
Sub Main() Sub Main()
If Not My.Computer.FileSystem.DirectoryExists("F:\Programme\VERAGMonitoring\") Then
If Not System.IO.Directory.Exists(F_PFAD) Then
F_PFAD = getFByIP()
End If
If Not My.Computer.FileSystem.DirectoryExists(F_PFAD) Then
MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR") MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
Else Else
For i As Integer = 1 To 3 Step 1 For i As Integer = 1 To 3 Step 1
@@ -21,11 +29,11 @@
Environment.Exit(0) Environment.Exit(0)
End Sub End Sub
Private Sub FileCopier() Private Sub FileCopier()
For Each file As String In IO.Directory.GetFiles("F:\Programme\VERAGMonitoring\") ' Ermittelt alle Dateien des Ordners For Each file As String In IO.Directory.GetFiles(F_PFAD) ' Ermittelt alle Dateien des Ordners
If cut_file(file).Contains("settings.txt") = False Then If cut_file(file).Contains("settings.txt") = False Then
IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
End If End If
For Each filed As String In IO.Directory.GetDirectories("F:\Programme\VERAGMonitoring\") ' Ermittelt alle Unterordner des Ordners For Each filed As String In IO.Directory.GetDirectories(F_PFAD) ' Ermittelt alle Unterordner des Ordners
My.Computer.FileSystem.CopyDirectory(filed, AppDomain.CurrentDomain.BaseDirectory & cut_file(filed), True) My.Computer.FileSystem.CopyDirectory(filed, AppDomain.CurrentDomain.BaseDirectory & cut_file(filed), True)
Next Next
Next Next
@@ -60,4 +68,35 @@
Return False Return False
End Function End Function
Function getFByIP() As String
Dim default_F = ""
getFByIP = ""
Try
Dim IPADDR As System.Net.IPAddress
IPADDR = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0)
'MsgBox(IPADDR.ToString())
For Each l In System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "VERAGMonitoringUPDATER_Settings.txt")
If l.Contains("|") Then
Dim sp = l.Split("|")
If IPADDR.ToString.Contains(sp(0).Replace("**", "")) Then
getFByIP = sp(1)
End If
Else
default_F = l
End If
Next
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
If getFByIP = "" Then
If default_F <> "" Then
getFByIP = default_F
Else
getFByIP = F_PFAD
End If
End If
End Function
End Module End Module

5
VERAGMonitoringUPDATER/VERAGMonitoringUPDATER.vbproj
View File

@@ -104,6 +104,11 @@
</None> </None>
<None Include="App.config" /> <None Include="App.config" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<Content Include="VERAGMonitoringUPDATER_Settings.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets. Other similar extension points exist, see Microsoft.Common.targets.

9
VERAGMonitoringUPDATER/VERAGMonitoringUPDATER_Settings.txt Normal file
View File

@@ -0,0 +1,9 @@
F:\Programme\VERAGMonitoring\
192.168.0.**|\\share01.verag.ost.dmn\Programme\VERAGMonitoring\
172.16.0.**|\\172.16.0.99\Daten\PROGRAMME\VERAGMonitoring\
192.168.1.**|\\192.168.1.20\daten\VERAG Programme\VERAGMonitoring\
192.168.133.**|\\192.168.133.98\f\Programme\VERAGMonitoring\
172.16.1.**|\\172.16.1.100\f\PROGRAMME\VERAGMonitoring\
192.168.32.**|\\192.168.32.253\Files\Programme\VERAGMonitoring\
192.168.100.**|\\192.168.100.11\Daten\Programme\VERAGMonitoring\
10.4.**|\\10.4.3.17\VERAG gemeinsam\VERAGMonitoring\

27
cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb
View File

@@ -67,5 +67,32 @@ Public Class cMAVIGetMsgType
Return False Return False
End Function End Function
Shared Function isTRNCTS_AbbruchXML_CC009A(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC009A").Count > 0 Then
Return True
End If
End If
Return False
End Function
Shared Function isTRNCTS_RueckweisungXML_CC016A(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC016A").Count > 0 Then
Return True
End If
End If
Return False
End Function
Shared Function isTRNCTS_KeineFreigabeXML_CC051B(doc As XmlDocument) As Boolean
If doc.HasChildNodes Then
If doc.GetElementsByTagName("CC051B").Count > 0 Then
Return True
End If
End If
Return False
End Function
End Class End Class

1
initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb
View File

@@ -21,4 +21,5 @@ Public Class cVERAG_Interface_Settings
Property acticeInterface_VERAG As Boolean = True Property acticeInterface_VERAG As Boolean = True
Property acticeInterface_IMEX As Boolean = True Property acticeInterface_IMEX As Boolean = True
Property acticeInterface_GASTONSCHUL_OUT As Boolean = True
End Class End Class

90
initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb
View File

@@ -106,6 +106,20 @@
' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) ' 'copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId) ' Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) ' copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
Case "GASTON_SCHUL"
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
Dim GASTON_SCHUL_EX As New VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType
GASTON_SCHUL_EX.requestDateTime = Now
GASTON_SCHUL_EX.creationDateTime = NCTS_VERAG_OUT.NCTS_Data.DatDeterminationLimit
GASTON_SCHUL_EX.movementReferenceNumber = NCTS_VERAG_OUT.ProcessData.MRN
GASTON_SCHUL_EX.dispatchCountry = NCTS_VERAG_OUT.NCTS_Data.DepartureCountry
GASTON_SCHUL_EX.destinationCountry = NCTS_VERAG_OUT.NCTS_Data.DestinationCountry
'filePath???
cGASTON_SCHUL_Interface.copyNCTSToFTP_V1_0_0(GASTON_SCHUL_EX, o, vorsystem, "", destFile, UniqueId, checkAlreadyProvided, found)
Case Else Case Else
Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId) Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId)
copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found)
@@ -115,7 +129,6 @@
Next Next
End If End If
'If getFTP_Paths(GRN, IF_Obj) Then 'If getFTP_Paths(GRN, IF_Obj) Then
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided) ' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided)
@@ -317,6 +330,7 @@
End Sub End Sub
Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
cVERAG_Interface_Settings = ISett cVERAG_Interface_Settings = ISett
Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL") Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
@@ -414,6 +428,7 @@
End Select End Select
If cVERAG_Interface_Settings.acticeInterface_EKOL AndAlso isFTP_EKOL_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\EKOL\OUT\", "EKOL")) If cVERAG_Interface_Settings.acticeInterface_EKOL AndAlso isFTP_EKOL_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\EKOL\OUT\", "EKOL"))
If cVERAG_Interface_Settings.acticeInterface_GASTONSCHUL_OUT AndAlso ifGASTON_SCHUL() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\GASTON_SCHUL\OUT\", "GASTON_SCHUL"))
'If cVERAG_Interface_Settings.acticeInterface_TEST AndAlso isFTP_TEST_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TEST\OUT\", "TEST")) 'If cVERAG_Interface_Settings.acticeInterface_TEST AndAlso isFTP_TEST_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TEST\OUT\", "TEST"))
Return True Return True
@@ -449,6 +464,23 @@
Return False Return False
End Function End Function
Shared Function ifGASTON_SCHUL() As Boolean
Try
If GLO_SND IsNot Nothing Then ' FRÄCHTER,AVISIERER
If GLO_SND.tblSnd_NCTSVerzollungsadresse.Contains("GASTON SCHUL") Then
Return True
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
Shared Function isFTP_TEST_NCTS() As Boolean Shared Function isFTP_TEST_NCTS() As Boolean
Try Try
If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
@@ -2078,3 +2110,59 @@
End Class End Class
Class cGASTON_SCHUL_Interface
Shared Sub copyNCTSToFTP_V1_0_0(ByRef GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False)
If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then
If genXMLFile_V1_0_0(GS_OUT, filePath, vorsystem, UniqueId) <> "" Then
frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile)
If IO.File.Exists(destFile) Then
cVERAG_out_ncts.insertFTPLOG(destFile, IF_Obj.CooName, GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem)
found = True
Else
Try
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, GS_OUT.movementReferenceNumber)
Catch
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP")
End Try
End If
End If
End If
End Sub
Shared Function genXMLFile_V1_0_0(GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String
Try
If XMLFilePath = "" Then
Dim dir = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "ZOLL_SCHNITTSTELLEN\GASTON_SCHUL\OUT\" & Now.Year & "\" & Now.ToShortDateString & "\"
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
XMLFilePath = dir & "GASTON_SCHUL_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml"
End If
If GS_OUT IsNot Nothing Then
GS_OUT.SaveToFile(XMLFilePath)
removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return XMLFilePath
End Function
Shared Function removeTypeFromXML(XMLFilePath) As String
Try
Dim fileContents = IO.File.ReadAllText(XMLFilePath)
fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "")
fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "")
IO.File.WriteAllText(XMLFilePath, fileContents)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return XMLFilePath
End Function
End Class

201
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -410,6 +410,207 @@ Public Class cMAVIWorker
End Function End Function
Public Shared Function readNCTS_AbbruchXML_CC009A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_AbbruchXML_CC009A = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC009A>") Then
Dim xmlCC009A = XmlString.Substring(XmlString.IndexOf("<CC009A>"), XmlString.IndexOf("</CC009A>") + 9 - XmlString.IndexOf("<CC009A>"))
' MsgBox(xmlCC029B)
Dim p = Path.GetTempFileName
Dim MRN = ""
If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
End If
Dim Abbruchdatum = Nothing
If doc.GetElementsByTagName("DatOfCanDecHEA146").Count > 0 Then
Try
Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DatOfCanDecHEA146")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlCC009A)
outputFile.Close()
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_MRN = MRN
NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_80
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
readNCTS_AbbruchXML_CC009A = NCTS.ncts_ObjectName
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_AbbruchXML_CC009A = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
FORM.addDGVEinarbeitung("NCTS: Abbruch", readNCTS_AbbruchXML_CC009A)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_AbbruchXML_CC009A = ""
End Try
End Function
Public Shared Function readNCTS_RueckweisungXML_CC016A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_RueckweisungXML_CC016A = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC016A>") Then
Dim xmlCC016A = XmlString.Substring(XmlString.IndexOf("<CC016A>"), XmlString.IndexOf("</CC016A>") + 9 - XmlString.IndexOf("<CC016A>"))
' MsgBox(xmlCC029B)
Dim p = Path.GetTempFileName
Dim LRN = ""
If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then
LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText
End If
Dim Abbruchdatum = Nothing
If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then
Try
Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlCC016A)
outputFile.Close()
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_ObjectName = LRN
NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
readNCTS_RueckweisungXML_CC016A = LRN
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_RueckweisungXML_CC016A = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
FORM.addDGVEinarbeitung("NCTS: Rückweisung", readNCTS_RueckweisungXML_CC016A)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_RueckweisungXML_CC016A = ""
End Try
End Function
Public Shared Function readNCTS_KeineFreigabeXML_CC051B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try
readNCTS_KeineFreigabeXML_CC051B = ""
Dim sw = New StringWriter()
Dim xw = New XmlTextWriter(sw)
doc.WriteTo(xw)
Dim XmlString = sw.ToString()
If XmlString.Contains("<CC051B>") Then
Dim xmlCC051B = XmlString.Substring(XmlString.IndexOf("<CC051B>"), XmlString.IndexOf("</CC051B>") + 9 - XmlString.IndexOf("<CC051B>"))
' MsgBox(xmlCC029B)
Dim p = Path.GetTempFileName
Dim MRN = ""
If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then
MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText
End If
Dim Abbruchdatum = Nothing
If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then
Try
Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Catch ex As Exception
End Try
End If
Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default)
outputFile.Write(xmlCC051B)
outputFile.Close()
Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, "MAVI")
If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
NCTS.ncts_Partnersystem = "MAVI"
NCTS.ncts_MRN = MRN
NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
readNCTS_KeineFreigabeXML_CC051B = NCTS.ncts_ObjectName
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else
readNCTS_KeineFreigabeXML_CC051B = ""
End If
Try
System.IO.File.Delete(p)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
FORM.addDGVEinarbeitung("NCTS: KeineFreigabe", readNCTS_KeineFreigabeXML_CC051B)
End Using
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
readNCTS_KeineFreigabeXML_CC051B = ""
End Try
End Function
Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
Try Try
readNCTS_BestaetigungZollXML_GUA_INF = "" readNCTS_BestaetigungZollXML_GUA_INF = ""

2
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -1937,7 +1937,7 @@ Public Class cWorker_NCTS
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
STATUS.SAVE() STATUS.SAVE()
statusTMP = STATUS statusTMP = STATUS
cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP) cVERAG_out_ncts.copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP) 'VERAG SCHNITTSTELLE
' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then ' If If(NCTS_TMP.ncts_firma, "") = "IMEX" Then
NCTS_TMP.insertIntoSpedBuch(DY_TMP) NCTS_TMP.insertIntoSpedBuch(DY_TMP)

3
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -5527,7 +5527,8 @@ Public Class frmDYNachrichtenVerarbeitung
Dim LeistungsNr = 0 Dim LeistungsNr = 0
If A.AbgabeArt IsNot Nothing Then If A.AbgabeArt IsNot Nothing Then
' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...? ' If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010 If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719 Or
CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146) Then '_>TEST Or CInt(A.AufschubkontoNr) = 678010
Select Case A.AbgabeArt.ToString Select Case A.AbgabeArt.ToString
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL

82
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -199,9 +199,11 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True) VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True)
closeMe() closeMe()
Case "UNISPED_BMD"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht
closeMe()
'------------------------------ '------------------------------
Case Else Case Else
'Nur bei manuellem Start wird der fehler ausgegeben 'Nur bei manuellem Start wird der fehler ausgegeben
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
@@ -294,7 +296,7 @@ Public Class frmStartOptions
'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") 'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
Dim dy_id As String = "" Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' ", "FMZOLL") dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' and LEN(ncts_ObjectName)>=13 ", "FMZOLL")
Else Else
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL") dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
End If End If
@@ -329,7 +331,7 @@ Public Class frmStartOptions
Dim dy_id As String = "" Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%'", "FMZOLL") dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If End If
@@ -353,6 +355,78 @@ Public Class frmStartOptions
End If End If
End If End If
'ABD
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
betreff = sp(0).Trim
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
End If
End If
End If
'AVM
ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("AVM - Ausgangsvermerk (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
betreff = sp(0).Trim
Dim dy_id As String = ""
If betreff.ToString.Length > 15 Then
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%' and LEN(eza_ObjectName)>=13", "FMZOLL")
Else
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
End If
' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
DS.da_vorlage = False
Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\"
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
Dim destFull = ""
moveFile(pfad, ZIEL_PFAD, destFull)
If DS.insertDataToDATENSERVER(destFull) Then
If IsNumeric(dy_id) AndAlso dy_id > 0 Then
sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_AVM_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
sql.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde!
End If
End If
End If
End If End If
' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

17
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb
View File

@@ -364,6 +364,23 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
End If End If
Case 7
'NCTS: Cancellation decision CC009A
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then
If cMAVIWorker.readNCTS_AbbruchXML_CC009A(Me, doc) <> "" Then found = True
End If
Case 8
'NCTS: Declaration rejected CC016A
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then
If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(Me, doc) <> "" Then found = True
End If
Case 9
'NCTS: No release for transit – type B CC051B
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then
If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(Me, doc) <> "" Then found = True
End If
Case 10 Case 10
NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
End Select End Select