neu
This commit is contained in:
@@ -1203,6 +1203,7 @@ Public Class cDakosy_EZA_Adressen
|
||||
Property ezaAd_Bewilligungsnummer As Object = Nothing ' VARCHAR (35) NULL,
|
||||
Property ezaAd_BewilligungsFachVerfahren As Object = Nothing ' VARCHAR (35) NULL,
|
||||
Property ezaAd_BewilligungsnummerEndverwender As Object = Nothing ' VARCHAR (35) NULL,
|
||||
' Property ezaAd_VERAGKdNr As Object = Nothing ' VARCHAR (35) NULL,
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -1233,6 +1234,7 @@ Public Class cDakosy_EZA_Adressen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_Bewilligungsnummer", ezaAd_Bewilligungsnummer)) ' VARCHAR (35) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsFachVerfahren", ezaAd_BewilligungsFachVerfahren)) ' VARCHAR (35) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_BewilligungsnummerEndverwender", ezaAd_BewilligungsnummerEndverwender)) ' VARCHAR (35) NULL,
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAd_VERAGKdNr", ezaAd_VERAGKdNr)) ' VARCHAR (35) NULL,
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
@@ -866,7 +866,7 @@ Public Class cDakosyNCTSOut
|
||||
SPEDITIONSBUCH.Abfertigungsart = 6
|
||||
For Each s In DY.ncts_SICHERHEITSANGABEN
|
||||
Select Case If(s.nctsSA_GRN, "")
|
||||
Case "15TR0004000020917", "12TR0004000004665" : SPEDITIONSBUCH.Abfertigungsart = 34
|
||||
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" : SPEDITIONSBUCH.Abfertigungsart = 34
|
||||
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
|
||||
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
|
||||
End Select
|
||||
|
||||
@@ -84,7 +84,20 @@ Public Class cDakosy_Zollanmeldungen
|
||||
Dim split = Me.dy_BezugsNr.Split("/")
|
||||
If split.Length >= 2 Then
|
||||
srchStrFiliale = split(0)
|
||||
srchStrAbf = split(1)
|
||||
|
||||
'Wenn Abfertigungsnummer korrekt gefunden wurde...
|
||||
If IsNumeric(split(1)) Then
|
||||
srchStrAbf = split(1)
|
||||
Else
|
||||
Dim tmp = ""
|
||||
'Bis zum ersten Buchstaben...
|
||||
For Each s In split(1)
|
||||
If IsNumeric(s) Then : tmp &= s
|
||||
Else : Exit For : End If
|
||||
Next
|
||||
srchStrAbf = tmp
|
||||
End If
|
||||
|
||||
' ElseIf Then
|
||||
' srchStrAbf = split(X)
|
||||
Else
|
||||
|
||||
@@ -10,7 +10,8 @@
|
||||
<AssemblyName>DAKOSY_Worker</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
@@ -73,6 +74,7 @@
|
||||
<Compile Include="cDakosy_Statusmeldungen.vb" />
|
||||
<Compile Include="cDY_Statusliste.vb" />
|
||||
<Compile Include="cDakosy_Stammreferenzen.vb" />
|
||||
<Compile Include="cZollsysteme_Aktenbeschriftung.vb" />
|
||||
<Compile Include="cZOLL_IMPORT.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\AES\ERROR\e_err_nck.Designer.vb" />
|
||||
<Compile Include="DAKOSY\ATLAS\AES\e_exp_dat_DEXPDE.Designer.vb" />
|
||||
|
||||
8
DAKOSY_Worker/My Project/Application.Designer.vb
generated
8
DAKOSY_Worker/My Project/Application.Designer.vb
generated
@@ -1,10 +1,10 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
|
||||
47
DAKOSY_Worker/My Project/Resources.Designer.vb
generated
47
DAKOSY_Worker/My Project/Resources.Designer.vb
generated
@@ -1,40 +1,41 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
@@ -44,17 +45,17 @@ Namespace My.Resources
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
60
DAKOSY_Worker/My Project/Settings.Designer.vb
generated
60
DAKOSY_Worker/My Project/Settings.Designer.vb
generated
@@ -1,10 +1,10 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.42000
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
@@ -13,42 +13,42 @@ Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "Automatische My.Settings-Speicherfunktion"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
|
||||
@@ -27,6 +27,8 @@ Public Class cIMPORT_Codelisten
|
||||
Return Import_I0400(TESTSYSTEM)
|
||||
Case "I0200"
|
||||
Return Import_I0200(TESTSYSTEM)
|
||||
Case "I0700"
|
||||
Return Import_I0700(TESTSYSTEM)
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
@@ -469,6 +471,60 @@ Public Class cIMPORT_Codelisten
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function Import_I0700(TESTSYSTEM) As Boolean
|
||||
Dim MyData As String = ""
|
||||
Try
|
||||
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
||||
|
||||
Using WC As New System.Net.WebClient()
|
||||
' C0008_URL()
|
||||
WC.Encoding = ASCIIEncoding.UTF8
|
||||
Dim URL = cDY_Paramter.GET_PARAM_ByName("I0700_URL", TESTSYSTEM)
|
||||
If URL = String.Empty Then Return False
|
||||
' MsgBox(URL)
|
||||
MyData = WC.DownloadString(URL)
|
||||
Dim doc As New XmlDocument()
|
||||
doc.LoadXml(MyData)
|
||||
|
||||
Dim LC As New cMasseinheit
|
||||
If doc.HasChildNodes Then
|
||||
If doc.GetElementsByTagName("Codelist").Count > 0 Then
|
||||
If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then
|
||||
For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes
|
||||
' MsgBox(Entry.SelectNodes("Code")(0).InnerText)
|
||||
Dim Code = ""
|
||||
Dim Qualifier = ""
|
||||
Dim CodeQualifier = ""
|
||||
Dim Description = ""
|
||||
Dim StartDate = Nothing
|
||||
Dim EndDate = Nothing
|
||||
If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText
|
||||
If Entry.SelectNodes("Qualifier").Count > 0 Then Qualifier = Entry.SelectNodes("Qualifier")(0).InnerText
|
||||
If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
|
||||
If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText)
|
||||
If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText)
|
||||
|
||||
LC.Add(New cMasseinheit.cMasseinheitI0700(Code, Qualifier, Code & Qualifier, Description, StartDate, EndDate))
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If LC.Count > 0 Then
|
||||
Return LC.INSERT_DB(TESTSYSTEM)
|
||||
End If
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -513,6 +569,54 @@ Class cWaehrungsliste
|
||||
|
||||
End Class
|
||||
|
||||
Class cMasseinheit
|
||||
Inherits List(Of cMasseinheitI0700)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Function INSERT_DB(TESTSSYSTEM) As Boolean
|
||||
|
||||
If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_I0700_Masseinheiten]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
|
||||
Dim ok = True
|
||||
For Each l In Me
|
||||
Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Qualifier", l.Qualifier))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("CodeQualifier", l.CodeQualifier))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate))
|
||||
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate))
|
||||
If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_I0700_Masseinheiten] (Code, Qualifier,CodeQualifier,Description, StartDate, EndDate) VALUES (@Code,@Qualifier,@CodeQualifier,@Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
|
||||
ok = False
|
||||
End If
|
||||
Next
|
||||
Return ok
|
||||
End If
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Class cMasseinheitI0700
|
||||
Property Code As String = ""
|
||||
Property Qualifier As String = ""
|
||||
Property CodeQualifier As String = ""
|
||||
|
||||
Property Description As String = ""
|
||||
Property StartDate As Object = Nothing
|
||||
Property EndDate As Object = Nothing
|
||||
|
||||
Sub New(Code, Qualifier, CodeQualifier, Description, StartDate, EndDate)
|
||||
Me.Code = Code
|
||||
Me.Qualifier = Qualifier
|
||||
Me.CodeQualifier = CodeQualifier
|
||||
Me.Description = Description
|
||||
Me.StartDate = StartDate
|
||||
Me.EndDate = EndDate
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class cEZA_Unterlagearten
|
||||
Inherits List(Of cEZA_UnterlageartenI0200)
|
||||
|
||||
@@ -253,7 +253,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
End Function
|
||||
'Zollsystem 0,1
|
||||
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
Public Function IMPORT(SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, avisoLinkId As Integer, SendungId As Integer, strManNr As String, strManNl As String, Zollsystem As String, EZA_Nr As String, NCTS_Nr As String, ByRef notFound As Boolean, Optional autoImport As Boolean = False, Optional Personalnummer As Integer = -1) As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
||||
|
||||
Me.SPEDITIONSBUCH = SPEDITIONSBUCH
|
||||
Me.strManNr = strManNr
|
||||
@@ -497,28 +497,28 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
'Wenn Packstücke im Aviso eingegeben wurden, werden diese in das Speditionbuch gespeichert
|
||||
If packstueckeAVISO_TMP.Trim <> "" Then
|
||||
SPEDITIONSBUCH.Packstücke = packstueckeAVISO_TMP
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Bemerkungen = packstueckeZOLL_TMP
|
||||
SPEDITIONSBUCH.Packstücke = packstueckeAVISO_TMP
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Bemerkungen = packstueckeZOLL_TMP
|
||||
Else
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP
|
||||
End If
|
||||
|
||||
'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL
|
||||
If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then
|
||||
If IsNumeric(RohmasseAviso) Then
|
||||
SPEDITIONSBUCH.Rohmasse = CInt(RohmasseAviso)
|
||||
End If
|
||||
End If
|
||||
|
||||
' If autoImport And Not notFound Then
|
||||
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
|
||||
'Überstellungs-T
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
Else
|
||||
If packstueckeZOLL_TMP.Trim <> "" Then SPEDITIONSBUCH.Packstücke = packstueckeZOLL_TMP
|
||||
End If
|
||||
|
||||
'Wenn Gewicht im Aviso eingegeben ist, aber keine Rohmasse von ATLAS/EZOLL
|
||||
If IsNull(SPEDITIONSBUCH.Rohmasse) And Not IsNull(RohmasseAviso) Then
|
||||
If IsNumeric(RohmasseAviso) Then
|
||||
SPEDITIONSBUCH.Rohmasse = CInt(RohmasseAviso)
|
||||
End If
|
||||
End If
|
||||
|
||||
' If autoImport And Not notFound Then
|
||||
If SENDUNG IsNot Nothing AndAlso SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then
|
||||
'Überstellungs-T
|
||||
SPEDITIONSBUCH.Abfertigungsart = 5
|
||||
Else
|
||||
SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
End If
|
||||
SPEDITIONSBUCH.Abfertigungsart = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
|
||||
|
||||
@@ -531,7 +531,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
If SPEDITIONSBUCH.Währungsschlüssel Is Nothing OrElse (IsNumeric(SPEDITIONSBUCH.Währungsschlüssel) AndAlso SPEDITIONSBUCH.Währungsschlüssel <= 0) Then SPEDITIONSBUCH.Währungsschlüssel = 900
|
||||
|
||||
|
||||
If Personalnummer > 0 Then SPEDITIONSBUCH.Personalnummer = Personalnummer
|
||||
'notFound = Me.notFound
|
||||
|
||||
If autoImport AndAlso Not checkIfAutoOK() Then
|
||||
@@ -609,7 +609,7 @@ Public Class cZOLL_IMPORT
|
||||
|
||||
|
||||
|
||||
Function checkIfAutoOK() As Boolean
|
||||
Public Function checkIfAutoOK() As Boolean
|
||||
Try
|
||||
|
||||
If If(SPEDITIONSBUCH.Personalnummer, "") = "" Then Return False
|
||||
|
||||
649
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
Normal file
649
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
Normal file
@@ -0,0 +1,649 @@
|
||||
Public Class cZollsysteme_Aktenbeschriftung
|
||||
|
||||
Property Praeferenznachweis As String
|
||||
Property Handelsrechnung As String
|
||||
Property PräferenzAufRechnung As String
|
||||
|
||||
Property Colli As String
|
||||
Property Gewicht As String
|
||||
Property Rechnungspreis As String
|
||||
Property Warenbezeichung As String
|
||||
|
||||
Property AbgabenKonto As String
|
||||
Property Garantie As String
|
||||
|
||||
Property Absender As String
|
||||
Property Empfaenger As String
|
||||
Property Anmelder As String
|
||||
Property Vertreter As String
|
||||
Property Sachbearbeiter As String
|
||||
|
||||
Property VerBestLandZst As String
|
||||
|
||||
Property ATCMRN As String
|
||||
|
||||
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
'Sub New(BezugsNr, Abfertigungsart)
|
||||
' getDataByBezugsnummer(BezugsNr, Abfertigungsart)
|
||||
'End Sub
|
||||
|
||||
Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
Case "UNISPED"
|
||||
Case Else
|
||||
Select Case Abfertigungsart
|
||||
Case 38, 26 'AT
|
||||
' getADFrom_EZOLL
|
||||
Case 1, 2, 3, 28
|
||||
If load_EZA_FromDAKOSY(BezugsNr) Then Return True
|
||||
'... and Systeme
|
||||
|
||||
Case 5, 6
|
||||
If load_NCTS_FromDAKOSY(BezugsNr) Then Return True
|
||||
End Select
|
||||
End Select
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function addIfNotExists(ByRef LIST As List(Of String), addstring As String) As List(Of String)
|
||||
If addstring = "" Then Return LIST
|
||||
For Each s In LIST
|
||||
If s = addstring Then Return LIST
|
||||
Next
|
||||
LIST.Add(addstring)
|
||||
Return LIST
|
||||
End Function
|
||||
|
||||
Function listToString(ByRef LIST As List(Of String)) As String
|
||||
listToString = ""
|
||||
For Each s In LIST
|
||||
listToString &= ", " & s
|
||||
Next
|
||||
If listToString <> "" Then listToString = listToString.Substring(2)
|
||||
End Function
|
||||
|
||||
Function load_EZA_FromDAKOSY(BezugsNr) As Boolean
|
||||
Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True)
|
||||
If EZA Is Nothing Then Return False
|
||||
Return load_EZA_FromDAKOSY(EZA)
|
||||
End Function
|
||||
|
||||
Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean
|
||||
Try
|
||||
If EZA Is Nothing Then Return Nothing
|
||||
EZA.LOAD_Warenposition()
|
||||
|
||||
'
|
||||
If IsNumeric(If(EZA.eza_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(EZA.eza_GesamtRohmasse).ToString("N1") & " kg"
|
||||
If IsNumeric(If(EZA.eza_Rechnungspreis, "")) Then Me.Rechnungspreis = CDbl(EZA.eza_Rechnungspreis).ToString("N2")
|
||||
Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
|
||||
ATCMRN = If(EZA.eza_ANR, "")
|
||||
|
||||
' Me.Rechnungspreis &= " " & If(EZA.eza_Rechnungswaehrung, "")
|
||||
'Property Absender As String
|
||||
'Property Empfaenger As String
|
||||
'Property Anmelder As String
|
||||
|
||||
Dim RG_List As New List(Of String)
|
||||
Dim ATR_List As New List(Of String)
|
||||
Dim PAR_List As New List(Of String) ' präfAufRg
|
||||
Dim Colli As Integer = 0
|
||||
Dim cnt As Integer = 0
|
||||
If EZA.eza_WARENPOS.Count > 0 Then
|
||||
Me.Warenbezeichung = EZA.eza_WARENPOS.Count & " POS: "
|
||||
Me.Warenbezeichung &= If(EZA.eza_WARENPOS.Count = 1, If(EZA.eza_WARENPOS(0).ezaWP_Warenbezeichnung, ""), "* diverse *")
|
||||
For Each POS In EZA.eza_WARENPOS
|
||||
For Each UL In POS.ezaWP_UNTERLAGEN
|
||||
If UL.ezaWpUl_Art IsNot Nothing Then
|
||||
Select Case UL.ezaWpUl_Art
|
||||
Case "N380", "N325" : addIfNotExists(RG_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
|
||||
Case "N018", "N954" : addIfNotExists(ATR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
|
||||
Case "N864" : addIfNotExists(PAR_List, (If(UL.ezaWpUl_DatumAusstellung, "") & " " & If(UL.ezaWpUl_Nummer, "")).trim)
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
If IsNumeric(If(POS.ezaWP_PackstueckAnzahl, "")) Then Colli += POS.ezaWP_PackstueckAnzahl
|
||||
cnt += 1
|
||||
Next
|
||||
End If
|
||||
Me.Colli = Colli & " Pk."
|
||||
|
||||
For Each AD In EZA.eza_ADRESSEN
|
||||
If AD.ezaAd_AdressTyp IsNot Nothing Then
|
||||
Dim Anschrift = (If(AD.ezaAd_TeilnehmerEORI, "") & " " & If(AD.ezaAd_NameFirma1, "") & " " & If(AD.ezaAd_LandCode, "") & " " & If(AD.ezaAd_Ort, "")).ToString.Trim
|
||||
Select Case AD.ezaAd_AdressTyp
|
||||
Case "CZ" : Absender = Anschrift
|
||||
Case "CN" : Empfaenger = Anschrift
|
||||
Case "DT" : Anmelder = Anschrift
|
||||
Case "CB" : Vertreter = Anschrift
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
Sachbearbeiter = If(EZA.eza_Bearbeiter, "")
|
||||
|
||||
VerBestLandZst = If(EZA.eza_VersendungsLandCode, "") & " --> " & If(EZA.eza_Bestimmungsland, "")
|
||||
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
|
||||
If If(EZA.eza_Bestimmungsland, "") = "DE" Then
|
||||
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", DE00" & EZA.eza_AdressierteZollstelle
|
||||
Else
|
||||
If If(EZA.eza_AdressierteZollstelle, "") <> "" Then VerBestLandZst &= ", " & EZA.eza_AdressierteZollstelle
|
||||
End If
|
||||
|
||||
|
||||
Handelsrechnung = listToString(RG_List)
|
||||
Praeferenznachweis = listToString(ATR_List)
|
||||
PräferenzAufRechnung = listToString(PAR_List)
|
||||
|
||||
Dim AUFSCHUB_List As New List(Of String)
|
||||
For Each AB In EZA.eza_AUFSCHUB
|
||||
addIfNotExists(AUFSCHUB_List, (If(AB.ezaAfb_KontoNr, "")).Trim)
|
||||
Next
|
||||
|
||||
AbgabenKonto = listToString(AUFSCHUB_List)
|
||||
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(BezugsNr) As Boolean
|
||||
Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True)
|
||||
If NCTS Is Nothing Then Return False
|
||||
Return load_NCTS_FromDAKOSY(NCTS)
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(NCTS As DAKOSY_Worker.cDakosyNCTSOut) As Boolean
|
||||
Try
|
||||
If NCTS Is Nothing Then Return Nothing
|
||||
NCTS.LOAD_Warenposition()
|
||||
|
||||
'
|
||||
If IsNumeric(If(NCTS.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
||||
|
||||
' Me.Rechnungspreis &= " " & If(NCTS.NCTS_Rechnungswaehrung, "")
|
||||
'Property Absender As String
|
||||
'Property Empfaenger As String
|
||||
'Property Anmelder As String
|
||||
|
||||
Dim RG_List As New List(Of String)
|
||||
Dim ATR_List As New List(Of String)
|
||||
Dim PAR_List As New List(Of String) ' präfAufRg
|
||||
Dim Colli As Integer = 0
|
||||
Dim cnt As Integer = 0
|
||||
Dim Warenwert As Double = 0
|
||||
Dim WarenwertWaehrung As String = ""
|
||||
|
||||
If NCTS.ncts_WARENPOS.Count > 0 Then
|
||||
Me.Warenbezeichung = NCTS.ncts_WARENPOS.Count & " POS: "
|
||||
Me.Warenbezeichung &= If(NCTS.ncts_WARENPOS.Count = 1, If(NCTS.ncts_WARENPOS(0).nctsWP_Warenbezeichnung, ""), "* diverse *")
|
||||
For Each POS In NCTS.ncts_WARENPOS
|
||||
For Each UL In POS.nctsWP_UNTERLAGEN
|
||||
If UL.nctsWpUl_Typ IsNot Nothing Then
|
||||
Select Case UL.nctsWpUl_Typ
|
||||
Case "380" : addIfNotExists(RG_List, If(UL.nctsWpUl_Referenz, ""))
|
||||
End Select
|
||||
End If
|
||||
Next
|
||||
For Each UL In POS.nctsWP_PACKSTUECKE
|
||||
If IsNumeric(If(UL.nctsWpPk_PackstueckeAnzahl, "")) Then Colli += UL.nctsWpPk_PackstueckeAnzahl
|
||||
Next
|
||||
|
||||
If cnt = 0 Then WarenwertWaehrung = If(POS.nctsWP_WarenwertWaehrung, "")
|
||||
If IsNumeric(If(POS.nctsWP_Warenwert, "")) Then Warenwert += POS.nctsWP_Warenwert
|
||||
|
||||
cnt += 1
|
||||
Next
|
||||
End If
|
||||
Me.Colli = Colli & " Pk."
|
||||
Me.Rechnungspreis = Warenwert.ToString("N2") & " " & WarenwertWaehrung
|
||||
|
||||
|
||||
Absender = (If(NCTS.ncts_Versender_EORI, "") & " " & If(NCTS.ncts_Versender_Name, "") & " " & If(NCTS.ncts_Versender_Land, "") & " " & If(NCTS.ncts_Versender_Ort, "")).ToString.Trim
|
||||
Empfaenger = (If(NCTS.ncts_Empfaenger_EORI, "") & " " & If(NCTS.ncts_Empfaenger_Name, "") & " " & If(NCTS.ncts_Empfaenger_Land, "") & " " & If(NCTS.ncts_Empfaenger_Ort, "")).ToString.Trim
|
||||
Anmelder = (If(NCTS.ncts_Hauptverpflichteter_EORI, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Name, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Land, "") & " " & If(NCTS.ncts_Hauptverpflichteter_Ort, "")).ToString.Trim
|
||||
Sachbearbeiter = If(NCTS.ncts_Bearbeiter, "")
|
||||
|
||||
|
||||
ATCMRN = If(If(NCTS.ncts_MRN, "") = "", If(NCTS.ncts_ANR, ""), If(NCTS.ncts_MRN, ""))
|
||||
|
||||
VerBestLandZst = If(NCTS.ncts_VersendungsLandCode, "") & " --> "
|
||||
If VerBestLandZst.Trim.StartsWith("-->") Then VerBestLandZst = VerBestLandZst.Replace("-->", "")
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand1, "") <> "" Then VerBestLandZst &= "" & NCTS.ncts_SumA_BefoerderungsrouteLand1
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand2, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand2
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand3, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand3
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand4, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand4
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand5, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand5
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand6, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand6
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand7, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand7
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand8, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand8
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand9, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand9
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand10, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand10
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand11, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand11
|
||||
If If(NCTS.ncts_SumA_BefoerderungsrouteLand12, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_SumA_BefoerderungsrouteLand12
|
||||
VerBestLandZst &= " --> " & If(NCTS.ncts_BestimmungslandCode, "") & ", "
|
||||
|
||||
VerBestLandZst &= If(NCTS.ncts_AbgangsDienststellennummer, "") & " --> "
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer1, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer1
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer2, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer2
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer3, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer3
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer4, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer4
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer5, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer5
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer6, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer6
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer7, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer7
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer8, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer8
|
||||
If If(NCTS.ncts_DurchgangszollstelleDienststellnummer9, "") <> "" Then VerBestLandZst &= ", " & NCTS.ncts_DurchgangszollstelleDienststellnummer9
|
||||
|
||||
If If(NCTS.ncts_BestimmungsstelleDienststellennummer, "") <> "" Then VerBestLandZst &= " --> " & NCTS.ncts_BestimmungsstelleDienststellennummer
|
||||
|
||||
VerBestLandZst = VerBestLandZst.Replace(" --> --> ", " --> ")
|
||||
|
||||
Handelsrechnung = listToString(RG_List)
|
||||
Praeferenznachweis = listToString(ATR_List)
|
||||
PräferenzAufRechnung = listToString(PAR_List)
|
||||
|
||||
Dim AUFSCHUB_List As New List(Of String)
|
||||
Dim GRNBetrag As Double = 0
|
||||
For Each AB In NCTS.ncts_SICHERHEITSANGABEN
|
||||
addIfNotExists(AUFSCHUB_List, (If(AB.nctsSA_GRN, "")).Trim)
|
||||
If IsNumeric(If(AB.nctsSA_AbgabenBetrag, "")) Then GRNBetrag += AB.nctsSA_AbgabenBetrag
|
||||
Next
|
||||
|
||||
Garantie = listToString(AUFSCHUB_List)
|
||||
Garantie &= ", " & GRNBetrag.ToString("C2")
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function load_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As Boolean
|
||||
Try
|
||||
If DY_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP Is Nothing Then Return Nothing
|
||||
NCTS_TMP.LOAD_Warenposition()
|
||||
|
||||
Me.Colli = If(NCTS_TMP.ncts_GesamtAnzahlPackstuecke, "") & " Pk."
|
||||
If IsNumeric(If(NCTS_TMP.ncts_GesamtRohmasse, "")) Then Me.Gewicht = CDbl(NCTS_TMP.ncts_GesamtRohmasse).ToString("N1") & " kg"
|
||||
|
||||
|
||||
Dim RG_List As New List(Of String)
|
||||
Dim ATR_List As New List(Of String)
|
||||
Dim NAR_List As New List(Of String)
|
||||
|
||||
For Each POS In NCTS_TMP.ncts_WARENPOS
|
||||
For Each UL In POS.nctsWP_UNTERLAGEN
|
||||
If UL.nctsWpUl_Typ = 380 Then addIfNotExists(RG_List, UL.nctsWpUl_Referenz)
|
||||
If UL.nctsWpUl_Typ = 380 Then addIfNotExists(ATR_List, UL.nctsWpUl_Referenz)
|
||||
If UL.nctsWpUl_Typ = 380 Then addIfNotExists(NAR_List, UL.nctsWpUl_Referenz)
|
||||
Next
|
||||
Next
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
If dEZOLL Is Nothing Then Return Nothing
|
||||
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
||||
|
||||
Dim r As DataRow = dEZOLL.Rows(0)
|
||||
|
||||
Return genVERAG_OUT_NCTS_FromEZOLLByAnmId(r.Item("AnmID"), UniqueId)
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim LRN = ""
|
||||
Try
|
||||
|
||||
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
|
||||
|
||||
Dim Bestimmungszollstelle = ""
|
||||
Dim Bürgschaft = ""
|
||||
|
||||
Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
|
||||
" FROM zsAnmRefs" &
|
||||
" WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" &
|
||||
" ORDER BY GeaendertAm DESC", "EZOLL")
|
||||
|
||||
If dEZOLL Is Nothing Then Return Nothing
|
||||
If dEZOLL.Rows.Count = 0 Then Return Nothing
|
||||
|
||||
'TextBox2.ForeColor = Color.Green
|
||||
Dim r As DataRow = dEZOLL.Rows(0)
|
||||
|
||||
LRN = r.Item("LRN")
|
||||
|
||||
If Not SQL.IsNull(r.Item("OperatorID")) Then
|
||||
Select Case r.Item("OperatorID")
|
||||
Case "1"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "2"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "SBG"
|
||||
|
||||
Case "3"
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
VERAG_NCTS.Department = "NKD"
|
||||
Case "4", "5"
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "6"
|
||||
If LRN.StartsWith("4801") Then
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
Else
|
||||
VERAG_NCTS.Company = "VERAG"
|
||||
End If
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
Case "8"
|
||||
VERAG_NCTS.Company = "DURMAZ"
|
||||
VERAG_NCTS.Department = "SBG"
|
||||
Return Nothing
|
||||
Case Else
|
||||
VERAG_NCTS.Company = "ATILLA"
|
||||
VERAG_NCTS.Department = "SUB"
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = r.Item("CRN")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = LRN
|
||||
|
||||
Select Case (SQL.getValueTxtBySql("SELECT ErledigungsTypID FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
Case "F"
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case "FB"
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
Case Else
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
End Select
|
||||
|
||||
Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmHea.Rows().Count > 0 Then
|
||||
Dim rDTzsAnmHea = DTzsAnmHea.Rows(0)
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy")
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0")
|
||||
VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT"))
|
||||
End If
|
||||
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL"))
|
||||
|
||||
'BestimmungsstelleDienststelle
|
||||
Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmDestCo.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref")
|
||||
End If
|
||||
|
||||
' Kennzeichen
|
||||
Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmTransp.Rows().Count > 0 Then
|
||||
If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt")
|
||||
End If
|
||||
End If
|
||||
|
||||
'Versender
|
||||
Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmSender.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry")
|
||||
End If
|
||||
If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
'Empfänger
|
||||
Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmConeeTra.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry")
|
||||
End If
|
||||
If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
'Frächter
|
||||
Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL")
|
||||
If DTzsAnmCarrier.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Carrier.Name = DTzsAnmCarrier.Rows(0).Item("Na")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry")
|
||||
If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "")
|
||||
End If
|
||||
|
||||
|
||||
' Tabelle zsAnmGrteeGrteeRef lesen.
|
||||
Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" &
|
||||
" FROM zsAnmGrteeGrteeRef" &
|
||||
" WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" &
|
||||
" ORDER BY GrteeID, GrteeRefID", "EZOLL")
|
||||
|
||||
If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0
|
||||
For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows()
|
||||
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN")
|
||||
If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal")
|
||||
Next
|
||||
End If
|
||||
|
||||
'POSITIONEN
|
||||
Dim cntPos = 1
|
||||
Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL")
|
||||
If DTzsAnmGdsitem.Rows().Count > 0 Then
|
||||
For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows()
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
|
||||
Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL")
|
||||
If DTzsAnmGdsitemPk.Rows().Count > 0 Then
|
||||
For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows()
|
||||
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind")
|
||||
If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr")
|
||||
Next
|
||||
End If
|
||||
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross")
|
||||
|
||||
V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
|
||||
UniqueId = AnmID
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function getGRTY_fromEZOLL(LRN As String) As String
|
||||
Try
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts
|
||||
Try
|
||||
If NCTS_TMP Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing
|
||||
If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing
|
||||
|
||||
' VERAG_NCTS.Version = "1.0.2" Automaitsch, weil default
|
||||
|
||||
If NCTS_TMP.telanm_firma <> "" Then
|
||||
VERAG_NCTS.Company = NCTS_TMP.telanm_firma
|
||||
Else
|
||||
VERAG_NCTS.Company = "IMEX"
|
||||
End If
|
||||
VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung
|
||||
|
||||
|
||||
'VERAG_NCTS.InternalReference.OfficeCode = If(
|
||||
'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung
|
||||
Select Case NCTS_TMP.telanm_Status
|
||||
Case < 50
|
||||
VERAG_NCTS.ProcessData.Status = 0
|
||||
Case 50, 53
|
||||
VERAG_NCTS.ProcessData.Status = 50
|
||||
Case 60
|
||||
VERAG_NCTS.ProcessData.Status = 60
|
||||
End Select
|
||||
|
||||
VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate
|
||||
|
||||
VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "")
|
||||
VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "")
|
||||
VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "")
|
||||
|
||||
VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.CtrlRslt_DLimit, "")
|
||||
VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "")
|
||||
VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "")
|
||||
VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp
|
||||
VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "")
|
||||
|
||||
'Versender
|
||||
VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
||||
'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
||||
VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
||||
|
||||
'Empfänger
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "")
|
||||
'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "")
|
||||
VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "")
|
||||
|
||||
''Frächter
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "")
|
||||
''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "")
|
||||
'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "")
|
||||
|
||||
If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "")
|
||||
VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0")
|
||||
End If
|
||||
|
||||
VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0")
|
||||
Dim cntPos = 1
|
||||
If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then
|
||||
For Each POS In NCTS_TMP.POSITIONSDATEN
|
||||
Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_nctsNCTS_DataPosition
|
||||
V_POS.PosNr = cntPos
|
||||
Dim pkGes = 0
|
||||
Dim pkArt = ""
|
||||
If POS.PACKSTUECKE IsNot Nothing Then
|
||||
For Each PK In POS.PACKSTUECKE
|
||||
If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt
|
||||
If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt
|
||||
If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind
|
||||
Next
|
||||
End If
|
||||
V_POS.Quantity = pkGes
|
||||
V_POS.Packaging = pkArt
|
||||
V_POS.GrossWeight = POS.Item_Gross
|
||||
V_POS.GoodsDescription = POS.Item_GdsDes
|
||||
|
||||
VERAG_NCTS.NCTS_Data.Position.Add(V_POS)
|
||||
cntPos += 1
|
||||
Next
|
||||
End If
|
||||
UniqueId = NCTS_TMP.telanm_id
|
||||
|
||||
'If XMLFilePath = "" Then
|
||||
' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\"
|
||||
' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
|
||||
' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml"
|
||||
'End If
|
||||
|
||||
|
||||
'VERAG_NCTS.SaveToFile(XMLFilePath)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return Nothing
|
||||
End Try
|
||||
Return VERAG_NCTS
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function insertFTPLOG(filePath As String, user As String, NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem As String)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','" & vorsystem & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem)
|
||||
Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user