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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-05-31 22:26:21 +02:00
parent a40477b387
commit 6e3e35ac70
37 changed files with 2287 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

734
TELOTEK_Worker_lib/TELOTEC/vifDec.Designer.vb generated
View File

@@ -1,6 +1,6 @@
'' ------------------------------------------------------------------------------
'' <auto-generated>
'' Generated by Xsd2Code++. Version 4.4.0.7
'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com
'' <NameSpace>vifDec</NameSpace><Collection>List</Collection><codeType>VisualBasic</codeType><EnableDataBinding>False</EnableDataBinding><GenerateCloneMethod>False</GenerateCloneMethod><GenerateDataContracts>False</GenerateDataContracts><DataMemberNameArg>OnlyIfDifferent</DataMemberNameArg><DataMemberOnXmlIgnore>False</DataMemberOnXmlIgnore><CodeBaseTag>Net45</CodeBaseTag><InitializeFields>All</InitializeFields><GenerateUnusedComplexTypes>True</GenerateUnusedComplexTypes><GenerateUnusedSimpleTypes>True</GenerateUnusedSimpleTypes><GenerateXMLAttributes>True</GenerateXMLAttributes><OrderXMLAttrib>False</OrderXMLAttrib><EnableLazyLoading>False</EnableLazyLoading><VirtualProp>False</VirtualProp><PascalCase>False</PascalCase><AutomaticProperties>False</AutomaticProperties><PropNameSpecified>None</PropNameSpecified><PrivateFieldName>StartWithUnderscore</PrivateFieldName><PrivateFieldNamePrefix></PrivateFieldNamePrefix><EnableRestriction>False</EnableRestriction><RestrictionMaxLenght>False</RestrictionMaxLenght><RestrictionRegEx>False</RestrictionRegEx><RestrictionRange>False</RestrictionRange><ValidateProperty>False</ValidateProperty><ClassNamePrefix></ClassNamePrefix><ClassLevel>Public</ClassLevel><PartialClass>True</PartialClass><ClassesInSeparateFiles>False</ClassesInSeparateFiles><ClassesInSeparateFilesDir></ClassesInSeparateFilesDir><TrackingChangesEnable>False</TrackingChangesEnable><GenTrackingClasses>False</GenTrackingClasses><HidePrivateFieldInIDE>False</HidePrivateFieldInIDE><EnableSummaryComment>False</EnableSummaryComment><EnableAppInfoSettings>False</EnableAppInfoSettings><EnableExternalSchemasCache>False</EnableExternalSchemasCache><EnableDebug>False</EnableDebug><EnableWarn>True</EnableWarn><ExcludeImportedTypes>True</ExcludeImportedTypes><ExpandNesteadAttributeGroup>True</ExpandNesteadAttributeGroup><CleanupCode>False</CleanupCode><EnableXmlSerialization>True</EnableXmlSerialization><SerializeMethodName>Serialize</SerializeMethodName><DeserializeMethodName>Deserialize</DeserializeMethodName><SaveToFileMethodName>SaveToFile</SaveToFileMethodName><LoadFromFileMethodName>LoadFromFile</LoadFromFileMethodName><EnableEncoding>False</EnableEncoding><EnableXMLIndent>True</EnableXMLIndent><IndentChar>Indent2Space</IndentChar><NewLineAttr>False</NewLineAttr><OmitXML>False</OmitXML><Encoder>UTF8</Encoder><Serializer>XmlSerializer</Serializer><sspNullable>False</sspNullable><sspString>False</sspString><sspCollection>False</sspCollection><sspComplexType>False</sspComplexType><sspSimpleType>False</sspSimpleType><sspEnumType>False</sspEnumType><XmlSerializerEvent>False</XmlSerializerEvent><BaseClassName>EntityBase</BaseClassName><UseBaseClass>False</UseBaseClass><GenBaseClass>False</GenBaseClass><CustomUsings></CustomUsings><AttributesToExlude></AttributesToExlude>
'' </auto-generated>
'' ------------------------------------------------------------------------------
@@ -21,11 +21,11 @@ Namespace vifDec
System.SerializableAttribute(),
System.Diagnostics.DebuggerStepThroughAttribute(),
System.ComponentModel.DesignerCategoryAttribute("code"),
System.Xml.Serialization.XmlRootAttribute("interfaceData", [Namespace]:="", IsNullable:=False)>
System.Xml.Serialization.XmlRootAttribute("interfaceData", [Namespace]:="", IsNullable:=True)>
Partial Public Class InterfaceDataType
#Region "Private fields"
Private _interfaceType As InterfaceDataTypeInterfaceType
Private _interfaceType As String
Private _vifDec As List(Of vifDec)
@@ -37,7 +37,7 @@ Namespace vifDec
Me._vifDec = New List(Of vifDec)()
End Sub
Public Property interfaceType() As InterfaceDataTypeInterfaceType
Public Property interfaceType() As String
Get
Return Me._interfaceType
End Get
@@ -211,15 +211,6 @@ Namespace vifDec
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)>
Public Enum InterfaceDataTypeInterfaceType
'''<remarks/>
vifDec
End Enum
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Diagnostics.DebuggerStepThroughAttribute(),
@@ -471,17 +462,32 @@ Namespace vifDec
Private _ctrlRslt_DLimit As System.Nullable(Of Date)
Private _carrTra_Na As String
Private _carrTra_Strt As String
Private _carrTra_Pst As String
Private _carrTra_Cty As String
Private _carrTra_Ctry As String
Private _carrTra_TIN As String
Private _vifDecAdjust As List(Of vifDecAdjust)
Private _vifDecItem As List(Of vifDecItem)
Private _vifDecGrteeRef As List(Of vifDecGrteeRef)
Private _vifDecTotDuties As List(Of vifDecTotDuties)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._vifDecTotDuties = New List(Of vifDecTotDuties)()
Me._vifDecGrteeRef = New List(Of vifDecGrteeRef)()
Me._vifDecItem = New List(Of vifDecItem)()
Me._vifDecAdjust = New List(Of vifDecAdjust)()
@@ -1703,6 +1709,66 @@ Namespace vifDec
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property CarrTra_Na() As String
Get
Return Me._carrTra_Na
End Get
Set
Me._carrTra_Na = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property CarrTra_Strt() As String
Get
Return Me._carrTra_Strt
End Get
Set
Me._carrTra_Strt = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property CarrTra_Pst() As String
Get
Return Me._carrTra_Pst
End Get
Set
Me._carrTra_Pst = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property CarrTra_Cty() As String
Get
Return Me._carrTra_Cty
End Get
Set
Me._carrTra_Cty = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property CarrTra_Ctry() As String
Get
Return Me._carrTra_Ctry
End Get
Set
Me._carrTra_Ctry = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property CarrTra_TIN() As String
Get
Return Me._carrTra_TIN
End Get
Set
Me._carrTra_TIN = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute("vifDecAdjust")>
Public Property vifDecAdjust() As List(Of vifDecAdjust)
Get
@@ -1733,6 +1799,16 @@ Namespace vifDec
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute("vifDecTotDuties")>
Public Property vifDecTotDuties() As List(Of vifDecTotDuties)
Get
Return Me._vifDecTotDuties
End Get
Set
Me._vifDecTotDuties = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
@@ -2228,6 +2304,274 @@ Namespace vifDec
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Diagnostics.DebuggerStepThroughAttribute(),
System.ComponentModel.DesignerCategoryAttribute("code")>
Partial Public Class vifDecTotDuties
#Region "Private fields"
Private _mandant_ID As String
Private _bereich_ID As String
Private _referenz_ID As String
Private _comIndicator As Byte
Private _totDuties_ID As Integer
Private _ty As String
Private _amnt As System.Nullable(Of Double)
Private _tyInd As String
Private _erstelldatum As System.Nullable(Of Date)
Private Shared sSerializer As XmlSerializer
#End Region
Public Property Mandant_ID() As String
Get
Return Me._mandant_ID
End Get
Set
Me._mandant_ID = Value
End Set
End Property
Public Property Bereich_ID() As String
Get
Return Me._bereich_ID
End Get
Set
Me._bereich_ID = Value
End Set
End Property
Public Property Referenz_ID() As String
Get
Return Me._referenz_ID
End Get
Set
Me._referenz_ID = Value
End Set
End Property
Public Property ComIndicator() As Byte
Get
Return Me._comIndicator
End Get
Set
Me._comIndicator = Value
End Set
End Property
Public Property TotDuties_ID() As Integer
Get
Return Me._totDuties_ID
End Get
Set
Me._totDuties_ID = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Ty() As String
Get
Return Me._ty
End Get
Set
Me._ty = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Amnt() As System.Nullable(Of Double)
Get
Return Me._amnt
End Get
Set
Me._amnt = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property TyInd() As String
Get
Return Me._tyInd
End Get
Set
Me._tyInd = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Erstelldatum() As System.Nullable(Of Date)
Get
Return Me._erstelldatum
End Get
Set
Me._erstelldatum = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecTotDuties))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serializes current vifDecTotDuties object into an XML string
''' </summary>
''' <returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes workflow markup into an vifDecTotDuties object
''' </summary>
''' <param name="input">string workflow markup to deserialize</param>
''' <param name="obj">Output vifDecTotDuties object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecTotDuties, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, vifDecTotDuties)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecTotDuties) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As vifDecTotDuties
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecTotDuties)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As vifDecTotDuties
Return CType(Serializer.Deserialize(s), vifDecTotDuties)
End Function
#End Region
''' <summary>
''' Serializes current vifDecTotDuties object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an vifDecTotDuties object
''' </summary>
''' <param name="fileName">string xml file to load and deserialize</param>
''' <param name="obj">Output vifDecTotDuties object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecTotDuties, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, vifDecTotDuties)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecTotDuties) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As vifDecTotDuties
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Diagnostics.DebuggerStepThroughAttribute(),
@@ -2532,6 +2876,357 @@ Namespace vifDec
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Diagnostics.DebuggerStepThroughAttribute(),
System.ComponentModel.DesignerCategoryAttribute("code")>
Partial Public Class vifDecDutyCalc
#Region "Private fields"
Private _mandant_ID As String
Private _bereich_ID As String
Private _referenz_ID As String
Private _comIndicator As Byte
Private _pos_ID As Integer
Private _dutyCalc_ID As Integer
Private _ty As String
Private _baseD As System.Nullable(Of Date)
Private _curr As String
Private _unit As String
Private _base As System.Nullable(Of Double)
Private _rate As String
Private _rateUsed As String
Private _amnt As System.Nullable(Of Double)
Private _meaID As System.Nullable(Of Integer)
Private _tyInd As String
Private Shared sSerializer As XmlSerializer
#End Region
Public Property Mandant_ID() As String
Get
Return Me._mandant_ID
End Get
Set
Me._mandant_ID = Value
End Set
End Property
Public Property Bereich_ID() As String
Get
Return Me._bereich_ID
End Get
Set
Me._bereich_ID = Value
End Set
End Property
Public Property Referenz_ID() As String
Get
Return Me._referenz_ID
End Get
Set
Me._referenz_ID = Value
End Set
End Property
Public Property ComIndicator() As Byte
Get
Return Me._comIndicator
End Get
Set
Me._comIndicator = Value
End Set
End Property
Public Property Pos_ID() As Integer
Get
Return Me._pos_ID
End Get
Set
Me._pos_ID = Value
End Set
End Property
Public Property DutyCalc_ID() As Integer
Get
Return Me._dutyCalc_ID
End Get
Set
Me._dutyCalc_ID = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Ty() As String
Get
Return Me._ty
End Get
Set
Me._ty = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property BaseD() As System.Nullable(Of Date)
Get
Return Me._baseD
End Get
Set
Me._baseD = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Curr() As String
Get
Return Me._curr
End Get
Set
Me._curr = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Unit() As String
Get
Return Me._unit
End Get
Set
Me._unit = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Base() As System.Nullable(Of Double)
Get
Return Me._base
End Get
Set
Me._base = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Rate() As String
Get
Return Me._rate
End Get
Set
Me._rate = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property RateUsed() As String
Get
Return Me._rateUsed
End Get
Set
Me._rateUsed = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property Amnt() As System.Nullable(Of Double)
Get
Return Me._amnt
End Get
Set
Me._amnt = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property MeaID() As System.Nullable(Of Integer)
Get
Return Me._meaID
End Get
Set
Me._meaID = Value
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=True)>
Public Property TyInd() As String
Get
Return Me._tyInd
End Get
Set
Me._tyInd = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then
sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecDutyCalc))
End If
Return sSerializer
End Get
End Property
#Region "Serialize/Deserialize"
''' <summary>
''' Serializes current vifDecDutyCalc object into an XML string
''' </summary>
''' <returns>string XML value</returns>
Public Overridable Function Serialize() As String
Dim streamReader As System.IO.StreamReader = Nothing
Dim memoryStream As System.IO.MemoryStream = Nothing
Try
memoryStream = New System.IO.MemoryStream()
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
xmlWriterSettings.Indent = True
xmlWriterSettings.IndentChars = " "
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
Serializer.Serialize(xmlWriter, Me)
memoryStream.Seek(0, SeekOrigin.Begin)
streamReader = New System.IO.StreamReader(memoryStream)
Return streamReader.ReadToEnd
Finally
If (Not (streamReader) Is Nothing) Then
streamReader.Dispose()
End If
If (Not (memoryStream) Is Nothing) Then
memoryStream.Dispose()
End If
End Try
End Function
''' <summary>
''' Deserializes workflow markup into an vifDecDutyCalc object
''' </summary>
''' <param name="input">string workflow markup to deserialize</param>
''' <param name="obj">Output vifDecDutyCalc object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecDutyCalc, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, vifDecDutyCalc)
Try
obj = Deserialize(input)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecDutyCalc) As Boolean
Dim exception As System.Exception = Nothing
Return Deserialize(input, obj, exception)
End Function
Public Overloads Shared Function Deserialize(ByVal input As String) As vifDecDutyCalc
Dim stringReader As System.IO.StringReader = Nothing
Try
stringReader = New System.IO.StringReader(input)
Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecDutyCalc)
Finally
If (Not (stringReader) Is Nothing) Then
stringReader.Dispose()
End If
End Try
End Function
Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As vifDecDutyCalc
Return CType(Serializer.Deserialize(s), vifDecDutyCalc)
End Function
#End Region
''' <summary>
''' Serializes current vifDecDutyCalc object into file
''' </summary>
''' <param name="fileName">full path of outupt xml file</param>
''' <param name="exception">output Exception value if failed</param>
''' <returns>true if can serialize and save into file; otherwise, false</returns>
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
exception = Nothing
Try
SaveToFile(fileName)
Return True
Catch e As System.Exception
exception = e
Return False
End Try
End Function
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
Dim streamWriter As System.IO.StreamWriter = Nothing
Try
Dim xmlString As String = Serialize()
Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName)
streamWriter = xmlFile.CreateText
streamWriter.WriteLine(xmlString)
streamWriter.Close()
Finally
If (Not (streamWriter) Is Nothing) Then
streamWriter.Dispose()
End If
End Try
End Sub
''' <summary>
''' Deserializes xml markup from file into an vifDecDutyCalc object
''' </summary>
''' <param name="fileName">string xml file to load and deserialize</param>
''' <param name="obj">Output vifDecDutyCalc object</param>
''' <param name="exception">output Exception value if deserialize failed</param>
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecDutyCalc, ByRef exception As System.Exception) As Boolean
exception = Nothing
obj = CType(Nothing, vifDecDutyCalc)
Try
obj = LoadFromFile(fileName)
Return True
Catch ex As System.Exception
exception = ex
Return False
End Try
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecDutyCalc) As Boolean
Dim exception As System.Exception = Nothing
Return LoadFromFile(fileName, obj, exception)
End Function
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As vifDecDutyCalc
Dim file As System.IO.FileStream = Nothing
Dim sr As System.IO.StreamReader = Nothing
Try
file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read)
sr = New System.IO.StreamReader(file)
Dim xmlString As String = sr.ReadToEnd
sr.Close()
file.Close()
Return Deserialize(xmlString)
Finally
If (Not (file) Is Nothing) Then
file.Dispose()
End If
If (Not (sr) Is Nothing) Then
sr.Dispose()
End If
End Try
End Function
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"),
System.SerializableAttribute(),
System.Diagnostics.DebuggerStepThroughAttribute(),
@@ -4247,11 +4942,14 @@ Namespace vifDec
Private _vifDecSpecMent As List(Of vifDecSpecMent)
Private _vifDecDutyCalc As List(Of vifDecDutyCalc)
Private Shared sSerializer As XmlSerializer
#End Region
Public Sub New()
MyBase.New
Me._vifDecDutyCalc = New List(Of vifDecDutyCalc)()
Me._vifDecSpecMent = New List(Of vifDecSpecMent)()
Me._vifDecSupplUnt = New List(Of vifDecSupplUnt)()
Me._vifDecPrevAdmRef = New List(Of vifDecPrevAdmRef)()
@@ -4545,6 +5243,16 @@ Namespace vifDec
End Set
End Property
<System.Xml.Serialization.XmlElementAttribute("vifDecDutyCalc")>
Public Property vifDecDutyCalc() As List(Of vifDecDutyCalc)
Get
Return Me._vifDecDutyCalc
End Get
Set
Me._vifDecDutyCalc = Value
End Set
End Property
Private Shared ReadOnly Property Serializer() As XmlSerializer
Get
If (sSerializer Is Nothing) Then

60
TELOTEK_Worker_lib/TELOTEC/vifDec.xsd
View File

@@ -1,16 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="interfaceData" type="InterfaceDataType" />
<xs:element name="interfaceData" nillable="true" type="InterfaceDataType" />
<xs:complexType name="InterfaceDataType">
<xs:sequence>
<xs:element name="interfaceType" >
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:enumeration value="vifDec"/>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element minOccurs="1" maxOccurs="unbounded" name="vifDec" type="vifDec" />
<xs:element minOccurs="0" maxOccurs="1" name="interfaceType" type="xs:string" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDec" type="vifDec" />
</xs:sequence>
</xs:complexType>
<xs:complexType name="vifDec">
@@ -137,9 +131,16 @@
<xs:element minOccurs="0" maxOccurs="1" name="DepCO_Ref" nillable="true" type="an..8" />
<xs:element minOccurs="0" maxOccurs="1" name="CtlrRslt_ResCd" nillable="true" type="an..2" />
<xs:element minOccurs="0" maxOccurs="1" name="CtrlRslt_DLimit" nillable="true" type="xs:dateTime" />
<xs:element minOccurs="0" maxOccurs="1" name="CarrTra_Na" nillable="true" type="an..35" />
<xs:element minOccurs="0" maxOccurs="1" name="CarrTra_Strt" nillable="true" type="an..35" />
<xs:element minOccurs="0" maxOccurs="1" name="CarrTra_Pst" nillable="true" type="an..9" />
<xs:element minOccurs="0" maxOccurs="1" name="CarrTra_Cty" nillable="true" type="an..35" />
<xs:element minOccurs="0" maxOccurs="1" name="CarrTra_Ctry" nillable="true" type="an..2" />
<xs:element minOccurs="0" maxOccurs="1" name="CarrTra_TIN" nillable="true" type="an..17" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecAdjust" type="vifDecAdjust" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecItem" type="vifDecItem" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecGrteeRef" type="vifDecGrteeRef" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecTotDuties" type="vifDecTotDuties" />
</xs:sequence>
</xs:complexType>
<xs:complexType name="vifDecAdjust">
@@ -192,6 +193,7 @@
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecPrevAdmRef" type="vifDecPrevAdmRef" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecSupplUnt" type="vifDecSupplUnt" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecSpecMent" type="vifDecSpecMent" />
<xs:element minOccurs="0" maxOccurs="unbounded" name="vifDecDutyCalc" type="vifDecDutyCalc" />
</xs:sequence>
</xs:complexType>
<xs:complexType name="vifDecContainer">
@@ -276,6 +278,26 @@
<xs:element minOccurs="0" maxOccurs="1" name="ExCtry" nillable="true" type="an..2" />
</xs:sequence>
</xs:complexType>
<xs:complexType name="vifDecDutyCalc">
<xs:sequence>
<xs:element minOccurs="1" maxOccurs="1" name="Mandant_ID" type="an..6" />
<xs:element minOccurs="1" maxOccurs="1" name="Bereich_ID" type="an..6" />
<xs:element minOccurs="1" maxOccurs="1" name="Referenz_ID" type="an..36" />
<xs:element minOccurs="1" maxOccurs="1" name="ComIndicator" type="xs:unsignedByte" />
<xs:element minOccurs="1" maxOccurs="1" name="Pos_ID" type="xs:int" />
<xs:element minOccurs="1" maxOccurs="1" name="DutyCalc_ID" type="xs:int" />
<xs:element minOccurs="0" maxOccurs="1" name="Ty" nillable="true" type="an..3" />
<xs:element minOccurs="0" maxOccurs="1" name="BaseD" nillable="true" type="xs:dateTime" />
<xs:element minOccurs="0" maxOccurs="1" name="Curr" nillable="true" type="an..3" />
<xs:element minOccurs="0" maxOccurs="1" name="Unit" nillable="true" type="an..4" />
<xs:element minOccurs="0" maxOccurs="1" name="Base" nillable="true" type="xs:double" />
<xs:element minOccurs="0" maxOccurs="1" name="Rate" nillable="true" type="an..200" />
<xs:element minOccurs="0" maxOccurs="1" name="RateUsed" nillable="true" type="an..200" />
<xs:element minOccurs="0" maxOccurs="1" name="Amnt" nillable="true" type="xs:double" />
<xs:element minOccurs="0" maxOccurs="1" name="MeaID" nillable="true" type="xs:int" />
<xs:element minOccurs="0" maxOccurs="1" name="TyInd" nillable="true" type="an..1" />
</xs:sequence>
</xs:complexType>
<xs:complexType name="vifDecGrteeRef">
<xs:sequence>
<xs:element minOccurs="1" maxOccurs="1" name="Mandant_ID" type="an..6" />
@@ -292,6 +314,19 @@
<xs:element minOccurs="0" maxOccurs="1" name="Curr" nillable="true" type="an..3" />
</xs:sequence>
</xs:complexType>
<xs:complexType name="vifDecTotDuties">
<xs:sequence>
<xs:element minOccurs="1" maxOccurs="1" name="Mandant_ID" type="an..6" />
<xs:element minOccurs="1" maxOccurs="1" name="Bereich_ID" type="an..6" />
<xs:element minOccurs="1" maxOccurs="1" name="Referenz_ID" type="an..36" />
<xs:element minOccurs="1" maxOccurs="1" name="ComIndicator" type="xs:unsignedByte" />
<xs:element minOccurs="1" maxOccurs="1" name="TotDuties_ID" type="xs:int" />
<xs:element minOccurs="0" maxOccurs="1" name="Ty" nillable="true" type="an..3" />
<xs:element minOccurs="0" maxOccurs="1" name="Amnt" nillable="true" type="xs:double" />
<xs:element minOccurs="0" maxOccurs="1" name="TyInd" nillable="true" type="an..1" />
<xs:element minOccurs="0" maxOccurs="1" name="Erstelldatum" nillable="true" type="xs:dateTime" />
</xs:sequence>
</xs:complexType>
<xs:simpleType name="an..6">
<xs:restriction base="xs:string">
<xs:maxLength value="6" />
@@ -453,6 +488,13 @@
<xs:whiteSpace value="collapse" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..200">
<xs:restriction base="xs:string">
<xs:maxLength value="200" />
<xs:minLength value="1" />
<xs:whiteSpace value="collapse" />
</xs:restriction>
</xs:simpleType>
<xs:simpleType name="an..24">
<xs:restriction base="xs:string">
<xs:maxLength value="24" />

1
TELOTEK_Worker_lib/TELOTEC_Worker_lib.vbproj
View File

@@ -65,6 +65,7 @@
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="cTC_Functions.vb" />
<Compile Include="cTC_Statusliste.vb" />
<Compile Include="cTC_Paramter.vb" />
<Compile Include="cTelokec.vb" />

425
TELOTEK_Worker_lib/cTC_Functions.vb Normal file
View File

@@ -0,0 +1,425 @@
Imports Renci.SshNet
Imports System.IO
Public Class cTC_Functions
Shared Function send_Data_To_TC(file, dySt_BezugsNr, dy_Id, FRIMA_DY)
Try
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then
' MsgBox("Sie haben keine Sendeberechtigung.")
' Return False
'End If
If Not IO.File.Exists(file) Then Return False
Dim fi As New System.IO.FileInfo(file)
Dim UPLOAD_PFAD = TELOTEC_Worker.cTC_Paramter.GET_PARAM_ByName("TELOTEC_PFAD_SEND", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
'Datei hochladen
IO.File.Copy(file, destFilenameTMP)
' If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(F) 'Datei nach erfolgreichem Herunterladen vom Server löschen
'Gültiger Filename
Dim destFilename = UPLOAD_PFAD & If(IO.File.Exists(UPLOAD_PFAD & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen
'Dim STATUS As New TELOTEC_Worker.cTC_Status
'STATUS.dySt_BezugsNr = dySt_BezugsNr
'STATUS.dySt_artMitteilung = "VERAG_SND"
'STATUS.dySt_dyArt = "" '"NCTS" 'T1/T2
'STATUS.dySt_status = TELOTEC_Worker.cDY_Statusliste.S_03
''STATUS.dySt_ergCode = "ANR"
'STATUS.dySt_ergCode = "SND"
'STATUS.dySt_ergMitteilung = "An Dakosy gesendet"
'STATUS.dySt_ergZeitpunkt = Now
'STATUS.dySt_dyId = dy_Id
'STATUS.SAVE()
Return True
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
End Function
'Shared Function send_Data_To_Dakosy_FTP_file(file, FRIMA_DY, Optional misc = False)
' Try
' If Not IO.File.Exists(file) Then Return False
' Dim F As New System.IO.FileInfo(file)
' Dim DY_server = ""
' Dim DY_name = ""
' Dim DY_pwd = ""
' Dim DY_port = ""
' Dim DY_PFAD_IN = ""
' Dim DY_PFAD_IN_KD = ""
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
' If FRIMA_DY = "" Then FRIMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD, FRIMA_DY)
' Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
' Using client = New SftpClient(ConnectionInfo)
' client.Connect()
' 'client.Create(file, file)
' If misc Then
' client.ChangeDirectory(DY_PFAD_IN_KD) 'DY_PFAD_IN.Replace("gebox", "misc"))
' Else
' client.ChangeDirectory(DY_PFAD_IN)
' End If
' If IO.File.Exists(file) Then
' 'MsgBox(file)
' Using uplfileStream = System.IO.File.OpenRead(file)
' client.UploadFile(uplfileStream, "." & F.Name, True)
' client.RenameFile("." & F.Name, F.Name)
' End Using
' client.Disconnect()
' Else
' MsgBox("Sendedatei nicht gefunden!")
' End If
' End Using
' Return True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
' End Try
'End Function
Shared Function getKDData() As DataTable
Dim sqlstr = "SELECT TOP 999 * "
sqlstr &= " ,(SELECT TOP 1 [Länderverzeichnis für die Außenhandelsstatistik].LandKz AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel"
sqlstr &= " WHERE Währungstabelle.LandKz=[Adressen].LandKz) as LandKzISO2"
sqlstr &= " FROM [Kunden] inner join Adressen on AdressenNr=KundenNr"
sqlstr &= " where DakosyExport Is null And EORITIN Is Not null"
'sqlstr &= " and KundenNrZentrale=KundenNr "
sqlstr &= " and Auswahl='A' "
sqlstr &= " order by Kunden.[Geändert am] desc"
' MsgBox(sqlstr)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.loadDgvBySql(sqlstr, "FMZOLL")
End Function
Shared Function getKDDataByKdNr(KdNR As Integer) As DataTable
Dim sqlstr = "SELECT TOP 1 * "
sqlstr &= " ,(SELECT TOP 1 [Länderverzeichnis für die Außenhandelsstatistik].LandKz AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel"
sqlstr &= " WHERE Währungstabelle.LandKz=[Adressen].LandKz) as LandKzISO2"
sqlstr &= " FROM [Kunden] inner join Adressen on AdressenNr=KundenNr"
sqlstr &= " where " '/*DakosyExport Is null And EORITIN Is Not null */"
sqlstr &= " KundenNr='" & KdNR & "' "
sqlstr &= " order by Kunden.[Geändert am] desc"
' MsgBox(sqlstr)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.loadDgvBySql(sqlstr, "FMZOLL")
End Function
Shared Function updateKdDakosyExportDate(KdNR As Integer) As Boolean
Dim sqlstr = "update [Kunden] SET [DakosyExport]=getDate() WHERE KundenNr='" & KdNR & "' "
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
'Shared Function sendData(Optional defaultFolder As String = "") ', Optional Dakosy_Mandant As String = "VERG")
' Dim Dakosy_Mandant = "VERG"
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "UNISPED" : Dakosy_Mandant = "UNAT"
' 'Case Else
' ' Dakosy_Mandant = "VERG"
' End Select
' Dim dt = TELOTEC_Worker.cTC_Functions.getKDData
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
' Dim saveFile = ""
' If TELOTEC_Worker.cTC_Functions.generateVERAGKdData(dt, getDefaultFolder_SEND, saveFile, Dakosy_Mandant) Then
' If cTC_Functions.send_Data_To_Dakosy_FTP_file(saveFile, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, True) Then
' For Each ROW As DataRow In dt.Rows
' updateKdDakosyExportDate(ROW("KundenNr"))
' Next
' Return True
' End If
' End If
' End If
' Return False
'End Function
'Shared Function sendDataByKdNr(KdNr As Integer, Optional defaultFolder As String = "") ', Optional Dakosy_Mandant As String = "VERG")
' Dim Dakosy_Mandant = "VERG"
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "UNISPED" : Dakosy_Mandant = "UNAT"
' 'Case Else
' ' Dakosy_Mandant = "VERG"
' End Select
' 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
' ' MsgBox("Übertrag derzeit nicht möglich!")
' ' Return False
' 'End If
' Dim dt = TELOTEC_Worker.cTC_Functions.getKDDataByKdNr(KdNr)
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
' Dim saveFile = ""
' If TELOTEC_Worker.cTC_Functions.generateVERAGKdData(dt, getDefaultFolder_SEND, saveFile, Dakosy_Mandant) Then
' If cTC_Functions.send_Data_To_Dakosy_FTP_file(saveFile, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, True) Then
' updateKdDakosyExportDate(KdNr)
' Return True
' End If
' End If
' End If
' Return False
'End Function
Shared Function getDefaultFolder_SEND() As String
Try
getDefaultFolder_SEND = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir(False) & "TELOTEC\" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TESTSYSTEM", "ECHTSYSTEM") & "\Ausgang_Kundendaten\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex As Exception
Try
getDefaultFolder_SEND = "C:\TEMP\" ' Path.GetTempPath
If Not IO.Directory.Exists(getDefaultFolder_SEND) Then
IO.Directory.CreateDirectory(getDefaultFolder_SEND)
End If
Catch ex2 As Exception
MsgBox(ex2.Message & ex2.StackTrace)
getDefaultFolder_SEND = ""
End Try
End Try
End Function
'Shared Function generateVERAGKdData(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean
' Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant)
' 'Alle mit V2
' '---------------------
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant)
' Select Case Dakosy_Mandant
' Case "UNAT" : Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant)
' Case Else : Return generateVERAGKdData_V1(dt, path, saveFile, Dakosy_Mandant)
' End Select
'End Function
'Shared Function generateVERAGKdData_V1(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean
' Try
' Dim Interface_VERSION = "003"
' Dim XML As New TELOTEC_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORT
' For Each ROW As DataRow In dt.Rows
' Dim KD As New TELOTEC_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDaten
' KD.Dakosy_Mandant = Dakosy_Mandant
' KD.KundenNr = ROW("KundenNr")
' KD.EORI = ROW("EORITIN")
' If ROW("EORITIN_NL") Is DBNull.Value OrElse If(ROW("EORITIN_NL"), "") = "" Then
' KD.EORI_Niederlassung = "0000"
' Else
' KD.EORI_Niederlassung = ROW("EORITIN_NL")
' End If
' If ROW("Ordnungsbegriff") IsNot DBNull.Value Then KD.Kurzname = ROW("Ordnungsbegriff")
' If ROW("Name 1") IsNot DBNull.Value Then KD.Name1 = ROW("Name 1")
' If ROW("Name 2") IsNot DBNull.Value Then KD.Name2 = ROW("Name 2")
' If ROW("UstIdKz") IsNot DBNull.Value And ("UstIdNr") IsNot DBNull.Value Then KD.UID_Nr = ROW("UstIdKz") & ROW("UstIdNr")
' KD.Adresse = New TELOTEC_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAdresse
' If ROW("Straße") IsNot DBNull.Value Then KD.Adresse.Strasse = ROW("Straße")
' If ROW("PLZ") IsNot DBNull.Value Then KD.Adresse.Plz = ROW("PLZ")
' If ROW("Ort") IsNot DBNull.Value Then KD.Adresse.Ort = ROW("Ort")
' If ROW("LandKz") IsNot DBNull.Value Then KD.Adresse.LandKz = ROW("LandKzISO2")
' KD.Kontakt = New TELOTEC_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenKontakt
' If ROW("E-Mail") IsNot DBNull.Value Then KD.Kontakt.EMail = ROW("E-Mail")
' If ROW("Telefon") IsNot DBNull.Value Then KD.Kontakt.Tel = ROW("Telefon")
' If ROW("Telefax") IsNot DBNull.Value Then KD.Kontakt.Fax = ROW("Telefax")
' If ROW("Ansprechpartner") IsNot DBNull.Value Then KD.Kontakt.Ansprechpartner = If(ROW("Anrede") IsNot DBNull.Value, ROW("Anrede") & " ", "") & ROW("Ansprechpartner")
' Dim KD_AKTO = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KD.KundenNr)
' If KD_AKTO IsNot Nothing Then
' Dim AKTOLIST = New List(Of VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschub)
' For Each KTO In KD_AKTO
' If If(KTO.kdAkto_bin, "").ToString.Trim <> String.Empty And
' If(KTO.kdAkto_eori, "").ToString.Trim <> String.Empty And
' If(KTO.kdAkto_hauptzollamt, "").ToString.Trim <> String.Empty And
' If(KTO.kdAkto_kontonummer, "").ToString.Trim <> String.Empty Then
' Dim AUFSCH As New TELOTEC_Worker.VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschub
' Select Case KTO.kdAkto_art
' Case "10" : AUFSCH.Art = VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item10
' Case "15" : AUFSCH.Art = VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item15
' Case "20" : AUFSCH.Art = VERAG_KundenStamm_Export.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item20
' End Select
' AUFSCH.BIN = KTO.kdAkto_bin
' AUFSCH.EORI = KTO.kdAkto_eori
' If KTO.kdAkto_eoriNL IsNot Nothing Then AUFSCH.EORI_Niederlassung = KTO.kdAkto_eoriNL Else AUFSCH.EORI_Niederlassung = "0000"
' AUFSCH.Hauptzollamt = KTO.kdAkto_hauptzollamt
' AUFSCH.KontoNr = KTO.kdAkto_kontonummer
' AKTOLIST.Add(AUFSCH)
' If AKTOLIST.Count = 2 Then Exit For 'max. 2 Aufschub
' End If
' Next
' If AKTOLIST.Count > 0 Then KD.Aufschubkonten = AKTOLIST
' End If
' XML.KundenDaten.Add(KD)
' Next
' Dim saveDir = path
' If Not IO.Directory.Exists(saveDir) Then
' IO.Directory.CreateDirectory(saveDir)
' End If
' Dim counter = 1
' While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
' counter += 1
' End While
' saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml"
' XML.SaveToFile(saveFile)
' Return True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
' End Try
'End Function
'Shared Function generateVERAGKdData_V2(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean
' Try
' 'Dim Interface_VERSION = "003"
' Dim XML As New TELOTEC_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORT
' Dim TRANS As New TELOTEC_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTTransaktion
' TRANS.Version = "002"
' TRANS.IOPartner = Dakosy_Mandant
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX" : TRANS.IODivision1 = "IMEX"
' Case "UNISPED" : TRANS.IODivision1 = "UNAT" : TRANS.IOPartner = "UNAT"
' Case "ATILLA" : TRANS.IODivision1 = "ATIL"
' Case Else
' TRANS.IODivision1 = "VERG"
' End Select
' XML.Transaktion = TRANS
' For Each ROW As DataRow In dt.Rows
' Dim KD As New TELOTEC_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDaten
' KD.Dakosy_Mandant = Dakosy_Mandant
' KD.KundenNr = ROW("KundenNr")
' KD.EORI = ROW("EORITIN")
' If ROW("EORITIN_NL") Is DBNull.Value OrElse If(ROW("EORITIN_NL"), "") = "" Then
' KD.EORI_Niederlassung = "0000"
' Else
' KD.EORI_Niederlassung = ROW("EORITIN_NL")
' End If
' If ROW("Ordnungsbegriff") IsNot DBNull.Value Then KD.Kurzname = ROW("Ordnungsbegriff")
' If ROW("Name 1") IsNot DBNull.Value Then KD.Name1 = ROW("Name 1")
' If ROW("Name 2") IsNot DBNull.Value Then KD.Name2 = ROW("Name 2")
' If ROW("UstIdKz") IsNot DBNull.Value And ("UstIdNr") IsNot DBNull.Value Then KD.UID_Nr = ROW("UstIdKz") & ROW("UstIdNr")
' KD.Adresse = New TELOTEC_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAdresse
' If ROW("Straße") IsNot DBNull.Value Then KD.Adresse.Strasse = ROW("Straße")
' If ROW("PLZ") IsNot DBNull.Value Then KD.Adresse.Plz = ROW("PLZ")
' If ROW("Ort") IsNot DBNull.Value Then KD.Adresse.Ort = ROW("Ort")
' If ROW("LandKz") IsNot DBNull.Value Then KD.Adresse.LandKz = ROW("LandKzISO2")
' KD.Kontakt = New TELOTEC_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenKontakt
' If ROW("E-Mail") IsNot DBNull.Value Then KD.Kontakt.EMail = ROW("E-Mail")
' If ROW("Telefon") IsNot DBNull.Value Then KD.Kontakt.Tel = ROW("Telefon")
' If ROW("Telefax") IsNot DBNull.Value Then KD.Kontakt.Fax = ROW("Telefax")
' If ROW("Ansprechpartner") IsNot DBNull.Value Then KD.Kontakt.Ansprechpartner = If(ROW("Anrede") IsNot DBNull.Value, ROW("Anrede") & " ", "") & ROW("Ansprechpartner")
' Dim KD_AKTO = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KD.KundenNr)
' If KD_AKTO IsNot Nothing Then
' Dim AKTOLIST = New List(Of VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschub)
' For Each KTO In KD_AKTO
' If If(KTO.kdAkto_bin, "").ToString.Trim <> String.Empty And
' If(KTO.kdAkto_eori, "").ToString.Trim <> String.Empty And
' If(KTO.kdAkto_hauptzollamt, "").ToString.Trim <> String.Empty And
' If(KTO.kdAkto_kontonummer, "").ToString.Trim <> String.Empty Then
' Dim AUFSCH As New TELOTEC_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschub
' Select Case KTO.kdAkto_art
' Case "10" : AUFSCH.Art = VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item10
' Case "15" : AUFSCH.Art = VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item15
' Case "20" : AUFSCH.Art = VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item20
' End Select
' AUFSCH.BIN = KTO.kdAkto_bin
' AUFSCH.EORI = KTO.kdAkto_eori
' If KTO.kdAkto_eoriNL IsNot Nothing Then AUFSCH.EORI_Niederlassung = KTO.kdAkto_eoriNL Else AUFSCH.EORI_Niederlassung = "0000"
' AUFSCH.Hauptzollamt = KTO.kdAkto_hauptzollamt
' AUFSCH.KontoNr = KTO.kdAkto_kontonummer
' AKTOLIST.Add(AUFSCH)
' If AKTOLIST.Count = 2 Then Exit For 'max. 2 Aufschub
' End If
' Next
' If AKTOLIST.Count > 0 Then KD.Aufschubkonten = AKTOLIST
' End If
' XML.KundenDaten.Add(KD)
' Next
' Dim saveDir = path
' If Not IO.Directory.Exists(saveDir) Then
' IO.Directory.CreateDirectory(saveDir)
' End If
' Dim counter = 1
' While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml")
' counter += 1
' End While
' saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml"
' XML.SaveToFile(saveFile)
' Return True
' Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' Return False
' End Try
'End Function
End Class

350
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -55,7 +55,7 @@ Public Class cTelotec_Anmeldung
Property Hea_PayMet As Object = Nothing ' INT NULL,
Property Hea_AExpRef As Object = Nothing ' BIT NULL,
Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL,
Property Hea_Simp As Object = Nothing ' BIT Not NULL,
Property Hea_Simp As Boolean = False ' BIT Not NULL,
Property Hea_IssD As Object = Nothing ' Date NULL,
Property Hea_AuthID As Object = Nothing ' VARCHAR(17) NULL,
Property Hea_TransDat As Object = Nothing ' BIT NULL,
@@ -90,7 +90,7 @@ Public Class cTelotec_Anmeldung
Property Transp_CrossTy As Object = Nothing ' INT NULL,
Property Transp_CrossIdnt As Object = Nothing ' VARCHAR(27) NULL,
Property Transp_CrossIdntNat As Object = Nothing ' VARCHAR(2) NULL,
Property Transp_ContInd As Object = Nothing ' BIT NULL,
Property Transp_ContInd As Boolean = False ' BIT NULL,
Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL,
Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL,
Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL,
@@ -146,6 +146,8 @@ Public Class cTelotec_Anmeldung
Property POSITIONSDATEN As New List(Of cTelotec_Positionsdaten)
Property SICHERHEIT As New List(Of cTelotec_Sicherheit)
Property ABGABEN As New List(Of cTelotec_Abgaben)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Sub New()
@@ -170,6 +172,36 @@ Public Class cTelotec_Anmeldung
LOAD()
End Sub
Sub initData()
me.telanm_Status = "00"
Me.telanm_Status_KEWILL_Equivalent = "00"
Me.telanm_Erstellung = Now
Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.telanm_LetzteBearbeitung=now
Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Me.[Mandant_ID] = "IMEX"
Me.[Bereich_ID] = 0
Me.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ")
Me.[ComIndicator] = 1
Me.[dec_ProzessArt] = "TA"
Me.[dec_CreateDate] = Now
Me.[Refs_LRN] = Me.telanm_BezugsNr
Me.[Hea_DecTy] = "IMA" '??
Me.[Hea_TotItem] = 0
Me.[Hea_Simp] = 0
Me.[Hea_DecDT] = CDate(Now.ToShortDateString)
Me.[Hea_DecPlc] = "Suben"
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_id", telanm_id, , True, True))
@@ -331,8 +363,10 @@ Public Class cTelotec_Anmeldung
telanm_id = SQL.doSQLVarListID(telanm_id, sqlstr, "FMZOLL", , list)
If telanm_id > 0 And saveAll Then
SAVE_Positionsdaten()
SAVE_SICHERHEIT
SAVE_Sicherheit()
SAVE_Abgaben()
End If
Return telanm_id > 0
End Function
@@ -379,6 +413,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
POSITIONSDATEN.Clear()
SICHERHEIT.Clear()
ABGABEN.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_id=@telanm_id ", conn)
@@ -398,6 +433,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
LOAD_Positionsdaten()
LOAD_Sicherheit()
LOAD_Abgaben()
End If
End If
dr.Close()
@@ -414,6 +450,7 @@ Public Class cTelotec_Anmeldung
Dim TC As New cTelotec_Anmeldung
TC.POSITIONSDATEN.Clear()
TC.SICHERHEIT.Clear()
TC.ABGABEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@BezugsNr AND [telnam_aktuellsteNachricht]=1 ", conn)
@@ -433,6 +470,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
TC.LOAD_Positionsdaten()
TC.LOAD_Sicherheit()
TC.LOAD_Abgaben()
End If
Return TC
End If
@@ -494,6 +532,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.POSITIONSDATEN.Clear()
NCTS.SICHERHEIT.Clear()
NCTS.ABGABEN.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTelotec_Anmeldung WHERE telanm_id=@telanm_id ", conn)
@@ -513,6 +552,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.LOAD_Positionsdaten()
NCTS.LOAD_Sicherheit()
NCTS.LOAD_Abgaben()
End If
dr.Close()
Return NCTS
@@ -535,6 +575,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.POSITIONSDATEN.Clear()
NCTS.SICHERHEIT.Clear()
NCTS.ABGABEN.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@bezugsNr " & If(MsgType <> "", " AND MsgType=@MsgType ", ""), conn)
@@ -555,6 +596,7 @@ Public Class cTelotec_Anmeldung
If loadALL Then
NCTS.LOAD_Positionsdaten()
NCTS.LOAD_Sicherheit()
NCTS.LOAD_Abgaben()
End If
dr.Close()
Return NCTS
@@ -591,29 +633,22 @@ Public Class cTelotec_Anmeldung
Return False
End Function
'Public Sub UPDATE_DATA()
' Try
' Select Case telanm_ART
' Case "T1", "T2"
' 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert
' Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut
' Dakosy_NCTSOut.LOADByAnmID(telanm_id, False)
' If Dakosy_NCTSOut IsNot Nothing Then
' Me.telanm_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
' Me.telanm_Status = Dakosy_NCTSOut.ncts_Status
' Me.telanm_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
' Me.telanm_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
' Me.telanm_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
' Me.telanm_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
' Me.telanm_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
' End If
' End Select
Public Sub UPDATE_DATA()
Try
'Me.dy_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
'Me.dy_Status = Dakosy_NCTSOut.ncts_Status
'Me.dy_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
'Me.dy_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
'Me.dy_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
'Me.dy_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
'Me.dy_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -678,7 +713,7 @@ Public Class cTelotec_Anmeldung
notFound = False
Select Case art
Case "EZA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
Case "EZA", "EUA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
Case "NCTS" : TELOTECDatenbereitstellung_NCTS(SPEDITIONSBUCH, DY, notFound, PosAnzahl)
End Select
@@ -703,7 +738,7 @@ Public Class cTelotec_Anmeldung
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.eza_Trans_DatumZeit).ToShortDateString
SPEDITIONSBUCH.Abfertigungsart = "1" 'FISKAL !!!!!!!!!!!!
SPEDITIONSBUCH.Abfertigungsart = "1" 'FISKAL !!!!!????
SPEDITIONSBUCH.Versendungsland = DY.Locs_Disp
SPEDITIONSBUCH.Bestimmungsland = DY.Locs_Dest
@@ -991,6 +1026,7 @@ Public Class cTelotec_Anmeldung
End If
Next
l.LOAD_Packstücke()
l.LOAD_Abgaben()
POSITIONSDATEN.Add(l)
End While
dr.Close()
@@ -1030,11 +1066,46 @@ Public Class cTelotec_Anmeldung
End Try
End Sub
Public Sub LOAD_Abgaben()
Try
ABGABEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Abgaben WHERE telAbg_telanmId=@telanm_id ", conn)
cmd.Parameters.AddWithValue("@telanm_id", Me.telanm_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cTelotec_Abgaben
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ABGABEN.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_Packstuecke] WHERE telpospk_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_PositionsdatenAbgaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenAbgaben] WHERE telposAbg_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_Positionsdaten] WHERE telpos_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
@@ -1044,6 +1115,10 @@ Public Class cTelotec_Anmeldung
Dim sqlstr = " DELETE FROM [tblTelotec_Sicherheit] WHERE telgrt_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Abgaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTelotec_Abgaben] WHERE telAbg_telanmId =" & Me.telanm_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Sicherheit() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
@@ -1062,15 +1137,33 @@ Public Class cTelotec_Anmeldung
Return True
End Function
Public Function SAVE_Abgaben() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Abgaben() Then 'And DELETE_SicherheitUnterlagen() And DELETE_SicherheitVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In ABGABEN
p.telAbg_telanmId = telanm_id
If p.INSERT() Then
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Public Function SAVE_Positionsdaten() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Positionsdaten() And DELETE_Packstücke() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
If DELETE_Positionsdaten() And DELETE_Packstücke() And DELETE_PositionsdatenAbgaben() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In POSITIONSDATEN
p.telpos_telanmId = telanm_id
If p.INSERT() Then
p.INSERT_Packstücke(p.telpos_id, Me.telanm_id)
p.INSERT_Abgaben(p.telpos_id, Me.telanm_id)
'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id)
'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id)
Else
@@ -1118,6 +1211,7 @@ Public Class cTelotec_Positionsdaten
Property Telo_ArtikelMEH As Object = Nothing
Property PACKSTUECKE As New List(Of cTelotec_Packstuecke)
Property ABGABEN As New List(Of cTelotec_PositionsdatenAbgaben)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1201,6 +1295,41 @@ Public Class cTelotec_Positionsdaten
End Try
End Sub
Public Function INSERT_Abgaben(telpos_id, telanm_id) As Boolean
For Each p In ABGABEN
p.telposAbg_telanmId = telanm_id
p.telposAbg_telposId = telpos_id
If Not p.INSERT() Then Return False
Next
Return True
End Function
Public Sub LOAD_Abgaben()
Try
ABGABEN.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenAbgaben WHERE telposabg_telposId=@telpos_id ", conn)
cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cTelotec_PositionsdatenAbgaben
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ABGABEN.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getInsertCmd() As String
Try
@@ -1324,8 +1453,6 @@ Public Class cTelotec_Sicherheit
Property PACKSTUECKE As List(Of cTelotec_Packstuecke)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
@@ -1385,3 +1512,168 @@ Public Class cTelotec_Sicherheit
End Class
Public Class cTelotec_Abgaben
Property telAbg_id As Integer
Property telAbg_telanmId As Integer
Property Mandant_ID As Object = Nothing
Property Bereich_ID As Object = Nothing
Property Referenz_ID As Object = Nothing
Property ComIndicator As Boolean
Property TotDuties_ID As Integer
Property Ty As Object = Nothing
Property Amnt As Object = Nothing
Property TyInd As Object = Nothing
Property Erstelldatum As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telAbg_id", telAbg_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telAbg_telanmId", telAbg_telanmId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotDuties_ID", TotDuties_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ty", Ty))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Amnt", Amnt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TyInd", TyInd))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erstelldatum", Erstelldatum))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
telAbg_id = SQL.doSQLVarListID(telAbg_id, getInsertCmd, "FMZOLL", , list)
Return telAbg_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTelotec_Abgaben (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class
Public Class cTelotec_PositionsdatenAbgaben
Property telposAbg_id As Integer
Property telposAbg_telposId As Integer
Property telposAbg_telanmId As Integer
Property Mandant_ID As Object = Nothing
Property Bereich_ID As Object = Nothing
Property Referenz_ID As Object = Nothing
Property ComIndicator As Boolean
Property Pos_ID As Integer
Property DutyCalc_ID As Object = Nothing
Property Ty As Object = Nothing
Property BaseD As Object = Nothing
Property Curr As Object = Nothing
Property Unit As Object = Nothing
Property Base As Object = Nothing
Property Rate As Object = Nothing
Property RateUsed As Object = Nothing
Property Amnt As Object = Nothing
Property MeaID As Object = Nothing
Property TyInd As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_id", telposAbg_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telposId", telposAbg_telposId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telanmId", telposAbg_telanmId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_ID", Pos_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DutyCalc_ID", DutyCalc_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ty", Ty))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BaseD", BaseD))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Curr", Curr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unit", Unit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Base", Base))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rate", Rate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RateUsed", RateUsed))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Amnt", Amnt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MeaID", MeaID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TyInd", TyInd))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
telposAbg_id = SQL.doSQLVarListID(telposAbg_id, getInsertCmd, "FMZOLL", , list)
Return telposAbg_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTelotec_PositionsdatenAbgaben (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
End Class