neu
This commit is contained in:
@@ -1079,8 +1079,8 @@ Public Class cDakosyEZA
|
||||
SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50)
|
||||
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
|
||||
|
||||
|
||||
@@ -1089,7 +1089,7 @@ Public Class cDakosyEZA
|
||||
Dim AD = getAdresseFromEORI(ADR.ezaAd_TeilnehmerEORI, ADR.ezaAd_TeilnehmerNLNR, SQL)
|
||||
If AD IsNot Nothing Then
|
||||
SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr
|
||||
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff
|
||||
SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff 'Oranier Küchentechnik GmbH; Haiger
|
||||
End If
|
||||
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
|
||||
@@ -1101,7 +1101,8 @@ Public Class cDakosyEZA
|
||||
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50)
|
||||
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
|
||||
|
||||
@@ -529,6 +529,7 @@ Public Class cZOLL_IMPORT
|
||||
If SPEDITIONSBUCH.Abfertigungsart <= 0 Then SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling
|
||||
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
|
||||
SPEDITIONSBUCH.FilialenNrAbklaerung = SENDUNG.tblSnd_FilialeAbklaerung
|
||||
|
||||
@@ -70,8 +70,8 @@
|
||||
Exit For
|
||||
End If
|
||||
Next i
|
||||
Dim ErsterAdvent As Date = DateAdd("d", -21, VierterAdvent)
|
||||
Return DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
|
||||
Dim ErsterAdvent As Date = VierterAdvent.AddDays(-21) ' DateAdd("d", -21, VierterAdvent)
|
||||
Return ErsterAdvent.AddDays(-11) ' DateAdd("d", -11, ErsterAdvent) 'BussUndBettag
|
||||
End Get
|
||||
|
||||
End Property
|
||||
|
||||
11
UID/My Project/Resources.Designer.vb
generated
11
UID/My Project/Resources.Designer.vb
generated
@@ -525,6 +525,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
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>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -655,7 +664,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 2.0.0 ähnelt.
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 2.0.1 ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Version() As String
|
||||
Get
|
||||
|
||||
@@ -188,7 +188,7 @@
|
||||
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
|
||||
</data>
|
||||
<data name="Version" xml:space="preserve">
|
||||
<value>2.0.0</value>
|
||||
<value>2.0.1</value>
|
||||
</data>
|
||||
<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>
|
||||
@@ -304,4 +304,7 @@
|
||||
<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>
|
||||
</data>
|
||||
<data name="sfsdf3sdfsdf3sdfsdfsdf" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
</root>
|
||||
107
UID/usrctlProcedures.Designer.vb
generated
107
UID/usrctlProcedures.Designer.vb
generated
@@ -100,10 +100,13 @@ Partial Class usrctlProcedures
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = 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.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.TabPage1.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -731,7 +734,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button23.TabIndex = 41
|
||||
@@ -778,7 +781,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'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.Name = "TextBox10"
|
||||
Me.TextBox10.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
@@ -787,7 +790,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'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.Name = "TextBox11"
|
||||
Me.TextBox11.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
@@ -796,7 +799,7 @@ Partial Class usrctlProcedures
|
||||
'
|
||||
'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.Name = "TextBox12"
|
||||
Me.TextBox12.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
@@ -806,7 +809,7 @@ Partial Class usrctlProcedures
|
||||
'Label11
|
||||
'
|
||||
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.Size = New System.Drawing.Size(94, 13)
|
||||
Me.Label11.TabIndex = 28
|
||||
@@ -815,7 +818,7 @@ Partial Class usrctlProcedures
|
||||
'Label12
|
||||
'
|
||||
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.Size = New System.Drawing.Size(96, 13)
|
||||
Me.Label12.TabIndex = 28
|
||||
@@ -824,20 +827,29 @@ Partial Class usrctlProcedures
|
||||
'Label13
|
||||
'
|
||||
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.Size = New System.Drawing.Size(119, 13)
|
||||
Me.Label13.TabIndex = 28
|
||||
Me.Label13.Text = "Änderung bei vorh. Kd.:"
|
||||
'
|
||||
'Label14
|
||||
'Button26
|
||||
'
|
||||
Me.Label14.Location = New System.Drawing.Point(756, 156)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label14.TabIndex = 53
|
||||
Me.Label14.Text = "0/0"
|
||||
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
Me.Button26.Location = New System.Drawing.Point(755, 104)
|
||||
Me.Button26.Name = "Button26"
|
||||
Me.Button26.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button26.TabIndex = 54
|
||||
Me.Button26.Text = "UNISPED EXCEL Importieren"
|
||||
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
|
||||
'
|
||||
@@ -851,28 +863,52 @@ Partial Class usrctlProcedures
|
||||
Me.CheckBox4.Text = "TESTSYSTEM"
|
||||
Me.CheckBox4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button27
|
||||
'Label14
|
||||
'
|
||||
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
|
||||
Me.Label14.Location = New System.Drawing.Point(756, 156)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label14.TabIndex = 53
|
||||
Me.Label14.Text = "0/0"
|
||||
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Button26
|
||||
'Label15
|
||||
'
|
||||
Me.Button26.Location = New System.Drawing.Point(755, 104)
|
||||
Me.Button26.Name = "Button26"
|
||||
Me.Button26.Size = New System.Drawing.Size(145, 49)
|
||||
Me.Button26.TabIndex = 54
|
||||
Me.Button26.Text = "UNISPED EXCEL Importieren"
|
||||
Me.Button26.UseVisualStyleBackColor = True
|
||||
Me.Label15.Location = New System.Drawing.Point(756, 254)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(145, 13)
|
||||
Me.Label15.TabIndex = 57
|
||||
Me.Label15.Text = "0/0"
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
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.CheckBox4)
|
||||
Me.Controls.Add(Me.Button27)
|
||||
@@ -1008,8 +1044,11 @@ Partial Class usrctlProcedures
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents Label12 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 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
|
||||
|
||||
@@ -2489,7 +2489,7 @@ Public Class usrctlProcedures
|
||||
If s.ToString.Length > l Then
|
||||
Return s.Substring(0, l)
|
||||
End If
|
||||
Return s
|
||||
Return s.ToString
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("getTrimedString: " & ex.Message & ex.StackTrace)
|
||||
@@ -2985,8 +2985,269 @@ Public Class usrctlProcedures
|
||||
|
||||
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)
|
||||
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
||||
' Dim fi As New FileInfo(d)
|
||||
|
||||
11
VERAGMonitoring/My Project/Resources.Designer.vb
generated
11
VERAGMonitoring/My Project/Resources.Designer.vb
generated
@@ -71,7 +71,16 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<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>
|
||||
Friend ReadOnly Property version() As String
|
||||
Get
|
||||
|
||||
@@ -118,10 +118,13 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="version" xml:space="preserve">
|
||||
<value>1.3.3</value>
|
||||
<value>1.3.6</value>
|
||||
</data>
|
||||
<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">
|
||||
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="sdfsdfsdf3sdfsdf" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
</root>
|
||||
@@ -401,6 +401,8 @@ Public Class cBrgDb
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
|
||||
Try
|
||||
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_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)
|
||||
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
|
||||
|
||||
|
||||
@@ -35,7 +35,7 @@ Public Class frmMain
|
||||
ico = icoVERAGMonitoring
|
||||
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 btnZusBel.Visible = True
|
||||
If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True
|
||||
@@ -97,6 +97,21 @@ Public Class frmMain
|
||||
Button2.Visible = 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
|
||||
|
||||
|
||||
@@ -210,7 +225,7 @@ Public Class frmMain
|
||||
'TELOTEC AT WOCHE
|
||||
Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
|
||||
'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)))
|
||||
|
||||
'ZOLARIS AT TAG
|
||||
@@ -985,6 +1000,14 @@ Public Class frmMain
|
||||
Dim frmShowData = New frmShowData("BRG", brg_AT, Now.AddDays(-6), Now)
|
||||
frmShowData.Show()
|
||||
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
|
||||
|
||||
|
||||
|
||||
@@ -1,6 +1,14 @@
|
||||
Module Update
|
||||
|
||||
Dim F_PFAD = "F:\Programme\VERAGMonitoring\"
|
||||
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")
|
||||
Else
|
||||
For i As Integer = 1 To 3 Step 1
|
||||
@@ -21,11 +29,11 @@
|
||||
Environment.Exit(0)
|
||||
End Sub
|
||||
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
|
||||
IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
|
||||
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)
|
||||
Next
|
||||
Next
|
||||
@@ -60,4 +68,35 @@
|
||||
Return False
|
||||
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
|
||||
@@ -104,6 +104,11 @@
|
||||
</None>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="VERAGMonitoringUPDATER_Settings.txt">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- 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.
|
||||
|
||||
@@ -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\
|
||||
@@ -67,5 +67,32 @@ Public Class cMAVIGetMsgType
|
||||
Return False
|
||||
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
|
||||
|
||||
@@ -21,4 +21,5 @@ Public Class cVERAG_Interface_Settings
|
||||
Property acticeInterface_VERAG As Boolean = True
|
||||
Property acticeInterface_IMEX As Boolean = True
|
||||
|
||||
Property acticeInterface_GASTONSCHUL_OUT As Boolean = True
|
||||
End Class
|
||||
|
||||
@@ -106,6 +106,20 @@
|
||||
' '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)
|
||||
' 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
|
||||
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)
|
||||
@@ -115,7 +129,6 @@
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'If getFTP_Paths(GRN, IF_Obj) Then
|
||||
' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId)
|
||||
' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided)
|
||||
@@ -317,6 +330,7 @@
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean
|
||||
cVERAG_Interface_Settings = ISett
|
||||
Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
|
||||
@@ -414,6 +428,7 @@
|
||||
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_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"))
|
||||
|
||||
Return True
|
||||
@@ -449,6 +464,23 @@
|
||||
Return False
|
||||
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
|
||||
Try
|
||||
If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER
|
||||
@@ -2078,3 +2110,59 @@
|
||||
|
||||
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
|
||||
@@ -410,6 +410,207 @@ Public Class cMAVIWorker
|
||||
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
|
||||
Try
|
||||
readNCTS_BestaetigungZollXML_GUA_INF = ""
|
||||
|
||||
@@ -1937,7 +1937,7 @@ Public Class cWorker_NCTS
|
||||
If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
|
||||
STATUS.SAVE()
|
||||
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
|
||||
|
||||
NCTS_TMP.insertIntoSpedBuch(DY_TMP)
|
||||
|
||||
@@ -5527,7 +5527,8 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
Dim LeistungsNr = 0
|
||||
If A.AbgabeArt IsNot Nothing Then
|
||||
' 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
|
||||
Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL
|
||||
|
||||
@@ -199,9 +199,11 @@ Public Class frmStartOptions
|
||||
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True)
|
||||
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
|
||||
'Nur bei manuellem Start wird der fehler ausgegeben
|
||||
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 = ""
|
||||
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
|
||||
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
|
||||
@@ -329,7 +331,7 @@ Public Class frmStartOptions
|
||||
|
||||
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 +'%'", "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
|
||||
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
|
||||
@@ -353,6 +355,78 @@ Public Class frmStartOptions
|
||||
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
|
||||
|
||||
' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
@@ -364,6 +364,23 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
|
||||
If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
|
||||
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
|
||||
NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
|
||||
End Select
|
||||
|
||||
Reference in New Issue
Block a user