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" />