'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com '' vifDecListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ Imports System Imports System.Diagnostics Imports System.Xml.Serialization Imports System.Collections Imports System.Xml.Schema Imports System.ComponentModel Imports System.IO Imports System.Text Imports System.Xml Imports System.Collections.Generic Namespace vifDec Partial Public Class InterfaceDataType #Region "Private fields" Private _interfaceType As String Private _vifDec As List(Of vifDec) Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._vifDec = New List(Of vifDec)() End Sub Public Property interfaceType() As String Get Return Me._interfaceType End Get Set Me._interfaceType = Value End Set End Property Public Property vifDec() As List(Of vifDec) Get Return Me._vifDec End Get Set Me._vifDec = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(InterfaceDataType)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current InterfaceDataType object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an InterfaceDataType object ''' ''' string workflow markup to deserialize ''' Output InterfaceDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As InterfaceDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, InterfaceDataType) 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 InterfaceDataType) 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 InterfaceDataType Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), InterfaceDataType) 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 InterfaceDataType Return CType(Serializer.Deserialize(s), InterfaceDataType) End Function #End Region ''' ''' Serializes current InterfaceDataType object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an InterfaceDataType object ''' ''' string xml file to load and deserialize ''' Output InterfaceDataType object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As InterfaceDataType, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, InterfaceDataType) 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 InterfaceDataType) 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 InterfaceDataType 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 Partial Public Class vifDec #Region "Private fields" Private _mandant_ID As String Private _bereich_ID As String Private _referenz_ID As String Private _comIndicator As Byte Private _transferStatus As String Private _dec_ProzessArt As String Private _dec_Anmelde_ID As System.Nullable(Of Integer) Private _dec_Template_ID As System.Nullable(Of Integer) Private _dec_CreateDate As System.Nullable(Of Date) Private _dec_CreatePersonalID As String Private _dec_PreDec_IND As System.Nullable(Of Boolean) Private _dec_TotNet As System.Nullable(Of Double) Private _dec_TotNetSplit_IND As System.Nullable(Of Boolean) Private _refs_LRN As String Private _refs_CRN As String Private _refs_CSRN As String Private _refs_ERN As String Private _refs_FRN As String Private _refs_Stat As String Private _hea_DecTy As String Private _hea_TotItem As System.Nullable(Of Integer) Private _hea_TotPack As System.Nullable(Of Integer) Private _hea_TotGross As System.Nullable(Of Double) Private _hea_DepLNG As String Private _hea_DestLNG As String Private _hea_PayTy As String Private _hea_DefPayRef As String Private _hea_PerPayRef As String Private _hea_PayMet As String Private _hea_AExpRef As System.Nullable(Of Boolean) Private _hea_Fin As String Private _hea_Simp As System.Nullable(Of Boolean) Private _hea_IssD As System.Nullable(Of Date) Private _hea_AuthID As String Private _hea_TransDat As System.Nullable(Of Boolean) Private _hea_WoffD As System.Nullable(Of Date) Private _hea_DecDT As System.Nullable(Of Date) Private _hea_DecPlc As String Private _hea_AccDT As System.Nullable(Of Date) Private _hea_SecInd As String Private _hea_ComRef As String Private _hea_ProArrDT As System.Nullable(Of Date) Private _hea_PlaDepDT As System.Nullable(Of Date) Private _locs_TradCtry As String Private _locs_Disp As String Private _locs_Dest As String Private _locs_GdsLocCd As String Private _locs_GdsLoc As String Private _locs_GdsLocAuth As String Private _locs_LoadPlcCd As String Private _locs_LoadPlc As String Private _locs_CustPlc As String Private _locs_ArrLocCd As String Private _locs_ArrLoc As String Private _locs_ArrLocAuth As String Private _locs_WarTy As String Private _locs_WarCtry As String Private _locs_War As String Private _transp_InMo As String Private _transp_BordMo As String Private _transp_DepTy As String Private _transp_DepIdnt As String Private _transp_DepNat As String Private _transp_CrossTy As String Private _transp_CrossIdnt As String Private _transp_CrossIdntNat As String Private _transp_ContInd As System.Nullable(Of Boolean) Private _valData_TermDelCd As String Private _valData_TermDelPlc As String Private _valData_TermDelSit As String Private _valData_InvCurr As String Private _valData_ExRa As System.Nullable(Of Double) Private _valData_InvVal As System.Nullable(Of Double) Private _valData_TransacCd As String Private _conorTra_Na As String Private _conorTra_Strt As String Private _conorTra_Pst As String Private _conorTra_Cty As String Private _conorTra_Ctry As String Private _conorTra_TIN As String Private _conorTra_UIDCtry As String Private _conorTra_UID As String Private _coneeTra_Na As String Private _coneeTra_Strt As String Private _coneeTra_Pst As String Private _coneeTra_Cty As String Private _coneeTra_Ctry As String Private _coneeTra_TIN As String Private _coneeTra_UIDCtry As String Private _coneeTra_UID As String Private _expTra_Na As String Private _expTra_Strt As String Private _expTra_Pst As String Private _expTra_Cty As String Private _expTra_Ctry As String Private _expTra_TIN As String Private _expTra_UIDCtry As String Private _expTra_UID As String Private _declarant_Na As String Private _declarant_Strt As String Private _declarant_Pst As String Private _declarant_Cty As String Private _declarant_Ctry As String Private _declarant_TIN As String Private _declarant_UIDCtry As String Private _declarant_UID As String Private _declarant_DecRep As System.Nullable(Of Byte) Private _represent_RIN As String Private _represent_Na As String Private _entryCO_Ref As String Private _exitCO_Ref As String Private _survCO_Ref As String Private _destCO_Ref As String Private _presCO_Ref As String Private _msgType As String Private _dec_Lager_ID As String Private _dec_Lag_IND As System.Nullable(Of Boolean) Private _dec_FillPackList_IND As System.Nullable(Of Boolean) Private _dec_Memo As String Private _depCO_Ref As String Private _ctlrRslt_ResCd As String 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)() End Sub 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 TransferStatus() As String Get Return Me._transferStatus End Get Set Me._transferStatus = Value End Set End Property Public Property dec_ProzessArt() As String Get Return Me._dec_ProzessArt End Get Set Me._dec_ProzessArt = Value End Set End Property Public Property dec_Anmelde_ID() As System.Nullable(Of Integer) Get Return Me._dec_Anmelde_ID End Get Set Me._dec_Anmelde_ID = Value End Set End Property Public Property dec_Template_ID() As System.Nullable(Of Integer) Get Return Me._dec_Template_ID End Get Set Me._dec_Template_ID = Value End Set End Property Public Property dec_CreateDate() As System.Nullable(Of Date) Get Return Me._dec_CreateDate End Get Set Me._dec_CreateDate = Value End Set End Property Public Property dec_CreatePersonalID() As String Get Return Me._dec_CreatePersonalID End Get Set Me._dec_CreatePersonalID = Value End Set End Property Public Property dec_PreDec_IND() As System.Nullable(Of Boolean) Get Return Me._dec_PreDec_IND End Get Set Me._dec_PreDec_IND = Value End Set End Property Public Property dec_TotNet() As System.Nullable(Of Double) Get Return Me._dec_TotNet End Get Set Me._dec_TotNet = Value End Set End Property Public Property dec_TotNetSplit_IND() As System.Nullable(Of Boolean) Get Return Me._dec_TotNetSplit_IND End Get Set Me._dec_TotNetSplit_IND = Value End Set End Property Public Property Refs_LRN() As String Get Return Me._refs_LRN End Get Set Me._refs_LRN = Value End Set End Property Public Property Refs_CRN() As String Get Return Me._refs_CRN End Get Set Me._refs_CRN = Value End Set End Property Public Property Refs_CSRN() As String Get Return Me._refs_CSRN End Get Set Me._refs_CSRN = Value End Set End Property Public Property Refs_ERN() As String Get Return Me._refs_ERN End Get Set Me._refs_ERN = Value End Set End Property Public Property Refs_FRN() As String Get Return Me._refs_FRN End Get Set Me._refs_FRN = Value End Set End Property Public Property Refs_Stat() As String Get Return Me._refs_Stat End Get Set Me._refs_Stat = Value End Set End Property Public Property Hea_DecTy() As String Get Return Me._hea_DecTy End Get Set Me._hea_DecTy = Value End Set End Property Public Property Hea_TotItem() As System.Nullable(Of Integer) Get Return Me._hea_TotItem End Get Set Me._hea_TotItem = Value End Set End Property Public Property Hea_TotPack() As System.Nullable(Of Integer) Get Return Me._hea_TotPack End Get Set Me._hea_TotPack = Value End Set End Property Public Property Hea_TotGross() As System.Nullable(Of Double) Get Return Me._hea_TotGross End Get Set Me._hea_TotGross = Value End Set End Property Public Property Hea_DepLNG() As String Get Return Me._hea_DepLNG End Get Set Me._hea_DepLNG = Value End Set End Property Public Property Hea_DestLNG() As String Get Return Me._hea_DestLNG End Get Set Me._hea_DestLNG = Value End Set End Property Public Property Hea_PayTy() As String Get Return Me._hea_PayTy End Get Set Me._hea_PayTy = Value End Set End Property Public Property Hea_DefPayRef() As String Get Return Me._hea_DefPayRef End Get Set Me._hea_DefPayRef = Value End Set End Property Public Property Hea_PerPayRef() As String Get Return Me._hea_PerPayRef End Get Set Me._hea_PerPayRef = Value End Set End Property Public Property Hea_PayMet() As String Get Return Me._hea_PayMet End Get Set Me._hea_PayMet = Value End Set End Property Public Property Hea_AExpRef() As System.Nullable(Of Boolean) Get Return Me._hea_AExpRef End Get Set Me._hea_AExpRef = Value End Set End Property Public Property Hea_Fin() As String Get Return Me._hea_Fin End Get Set Me._hea_Fin = Value End Set End Property Public Property Hea_Simp() As System.Nullable(Of Boolean) Get Return Me._hea_Simp End Get Set Me._hea_Simp = Value End Set End Property Public Property Hea_IssD() As System.Nullable(Of Date) Get Return Me._hea_IssD End Get Set Me._hea_IssD = Value End Set End Property Public Property Hea_AuthID() As String Get Return Me._hea_AuthID End Get Set Me._hea_AuthID = Value End Set End Property Public Property Hea_TransDat() As System.Nullable(Of Boolean) Get Return Me._hea_TransDat End Get Set Me._hea_TransDat = Value End Set End Property Public Property Hea_WoffD() As System.Nullable(Of Date) Get Return Me._hea_WoffD End Get Set Me._hea_WoffD = Value End Set End Property Public Property Hea_DecDT() As System.Nullable(Of Date) Get Return Me._hea_DecDT End Get Set Me._hea_DecDT = Value End Set End Property Public Property Hea_DecPlc() As String Get Return Me._hea_DecPlc End Get Set Me._hea_DecPlc = Value End Set End Property Public Property Hea_AccDT() As System.Nullable(Of Date) Get Return Me._hea_AccDT End Get Set Me._hea_AccDT = Value End Set End Property Public Property Hea_SecInd() As String Get Return Me._hea_SecInd End Get Set Me._hea_SecInd = Value End Set End Property Public Property Hea_ComRef() As String Get Return Me._hea_ComRef End Get Set Me._hea_ComRef = Value End Set End Property Public Property Hea_ProArrDT() As System.Nullable(Of Date) Get Return Me._hea_ProArrDT End Get Set Me._hea_ProArrDT = Value End Set End Property Public Property Hea_PlaDepDT() As System.Nullable(Of Date) Get Return Me._hea_PlaDepDT End Get Set Me._hea_PlaDepDT = Value End Set End Property Public Property Locs_TradCtry() As String Get Return Me._locs_TradCtry End Get Set Me._locs_TradCtry = Value End Set End Property Public Property Locs_Disp() As String Get Return Me._locs_Disp End Get Set Me._locs_Disp = Value End Set End Property Public Property Locs_Dest() As String Get Return Me._locs_Dest End Get Set Me._locs_Dest = Value End Set End Property Public Property Locs_GdsLocCd() As String Get Return Me._locs_GdsLocCd End Get Set Me._locs_GdsLocCd = Value End Set End Property Public Property Locs_GdsLoc() As String Get Return Me._locs_GdsLoc End Get Set Me._locs_GdsLoc = Value End Set End Property Public Property Locs_GdsLocAuth() As String Get Return Me._locs_GdsLocAuth End Get Set Me._locs_GdsLocAuth = Value End Set End Property Public Property Locs_LoadPlcCd() As String Get Return Me._locs_LoadPlcCd End Get Set Me._locs_LoadPlcCd = Value End Set End Property Public Property Locs_LoadPlc() As String Get Return Me._locs_LoadPlc End Get Set Me._locs_LoadPlc = Value End Set End Property Public Property Locs_CustPlc() As String Get Return Me._locs_CustPlc End Get Set Me._locs_CustPlc = Value End Set End Property Public Property Locs_ArrLocCd() As String Get Return Me._locs_ArrLocCd End Get Set Me._locs_ArrLocCd = Value End Set End Property Public Property Locs_ArrLoc() As String Get Return Me._locs_ArrLoc End Get Set Me._locs_ArrLoc = Value End Set End Property Public Property Locs_ArrLocAuth() As String Get Return Me._locs_ArrLocAuth End Get Set Me._locs_ArrLocAuth = Value End Set End Property Public Property Locs_WarTy() As String Get Return Me._locs_WarTy End Get Set Me._locs_WarTy = Value End Set End Property Public Property Locs_WarCtry() As String Get Return Me._locs_WarCtry End Get Set Me._locs_WarCtry = Value End Set End Property Public Property Locs_War() As String Get Return Me._locs_War End Get Set Me._locs_War = Value End Set End Property Public Property Transp_InMo() As String Get Return Me._transp_InMo End Get Set Me._transp_InMo = Value End Set End Property Public Property Transp_BordMo() As String Get Return Me._transp_BordMo End Get Set Me._transp_BordMo = Value End Set End Property Public Property Transp_DepTy() As String Get Return Me._transp_DepTy End Get Set Me._transp_DepTy = Value End Set End Property Public Property Transp_DepIdnt() As String Get Return Me._transp_DepIdnt End Get Set Me._transp_DepIdnt = Value End Set End Property Public Property Transp_DepNat() As String Get Return Me._transp_DepNat End Get Set Me._transp_DepNat = Value End Set End Property Public Property Transp_CrossTy() As String Get Return Me._transp_CrossTy End Get Set Me._transp_CrossTy = Value End Set End Property Public Property Transp_CrossIdnt() As String Get Return Me._transp_CrossIdnt End Get Set Me._transp_CrossIdnt = Value End Set End Property Public Property Transp_CrossIdntNat() As String Get Return Me._transp_CrossIdntNat End Get Set Me._transp_CrossIdntNat = Value End Set End Property Public Property Transp_ContInd() As System.Nullable(Of Boolean) Get Return Me._transp_ContInd End Get Set Me._transp_ContInd = Value End Set End Property Public Property ValData_TermDelCd() As String Get Return Me._valData_TermDelCd End Get Set Me._valData_TermDelCd = Value End Set End Property Public Property ValData_TermDelPlc() As String Get Return Me._valData_TermDelPlc End Get Set Me._valData_TermDelPlc = Value End Set End Property Public Property ValData_TermDelSit() As String Get Return Me._valData_TermDelSit End Get Set Me._valData_TermDelSit = Value End Set End Property Public Property ValData_InvCurr() As String Get Return Me._valData_InvCurr End Get Set Me._valData_InvCurr = Value End Set End Property Public Property ValData_ExRa() As System.Nullable(Of Double) Get Return Me._valData_ExRa End Get Set Me._valData_ExRa = Value End Set End Property Public Property ValData_InvVal() As System.Nullable(Of Double) Get Return Me._valData_InvVal End Get Set Me._valData_InvVal = Value End Set End Property Public Property ValData_TransacCd() As String Get Return Me._valData_TransacCd End Get Set Me._valData_TransacCd = Value End Set End Property Public Property ConorTra_Na() As String Get Return Me._conorTra_Na End Get Set Me._conorTra_Na = Value End Set End Property Public Property ConorTra_Strt() As String Get Return Me._conorTra_Strt End Get Set Me._conorTra_Strt = Value End Set End Property Public Property ConorTra_Pst() As String Get Return Me._conorTra_Pst End Get Set Me._conorTra_Pst = Value End Set End Property Public Property ConorTra_Cty() As String Get Return Me._conorTra_Cty End Get Set Me._conorTra_Cty = Value End Set End Property Public Property ConorTra_Ctry() As String Get Return Me._conorTra_Ctry End Get Set Me._conorTra_Ctry = Value End Set End Property Public Property ConorTra_TIN() As String Get Return Me._conorTra_TIN End Get Set Me._conorTra_TIN = Value End Set End Property Public Property ConorTra_UIDCtry() As String Get Return Me._conorTra_UIDCtry End Get Set Me._conorTra_UIDCtry = Value End Set End Property Public Property ConorTra_UID() As String Get Return Me._conorTra_UID End Get Set Me._conorTra_UID = Value End Set End Property Public Property ConeeTra_Na() As String Get Return Me._coneeTra_Na End Get Set Me._coneeTra_Na = Value End Set End Property Public Property ConeeTra_Strt() As String Get Return Me._coneeTra_Strt End Get Set Me._coneeTra_Strt = Value End Set End Property Public Property ConeeTra_Pst() As String Get Return Me._coneeTra_Pst End Get Set Me._coneeTra_Pst = Value End Set End Property Public Property ConeeTra_Cty() As String Get Return Me._coneeTra_Cty End Get Set Me._coneeTra_Cty = Value End Set End Property Public Property ConeeTra_Ctry() As String Get Return Me._coneeTra_Ctry End Get Set Me._coneeTra_Ctry = Value End Set End Property Public Property ConeeTra_TIN() As String Get Return Me._coneeTra_TIN End Get Set Me._coneeTra_TIN = Value End Set End Property Public Property ConeeTra_UIDCtry() As String Get Return Me._coneeTra_UIDCtry End Get Set Me._coneeTra_UIDCtry = Value End Set End Property Public Property ConeeTra_UID() As String Get Return Me._coneeTra_UID End Get Set Me._coneeTra_UID = Value End Set End Property Public Property ExpTra_Na() As String Get Return Me._expTra_Na End Get Set Me._expTra_Na = Value End Set End Property Public Property ExpTra_Strt() As String Get Return Me._expTra_Strt End Get Set Me._expTra_Strt = Value End Set End Property Public Property ExpTra_Pst() As String Get Return Me._expTra_Pst End Get Set Me._expTra_Pst = Value End Set End Property Public Property ExpTra_Cty() As String Get Return Me._expTra_Cty End Get Set Me._expTra_Cty = Value End Set End Property Public Property ExpTra_Ctry() As String Get Return Me._expTra_Ctry End Get Set Me._expTra_Ctry = Value End Set End Property Public Property ExpTra_TIN() As String Get Return Me._expTra_TIN End Get Set Me._expTra_TIN = Value End Set End Property Public Property ExpTra_UIDCtry() As String Get Return Me._expTra_UIDCtry End Get Set Me._expTra_UIDCtry = Value End Set End Property Public Property ExpTra_UID() As String Get Return Me._expTra_UID End Get Set Me._expTra_UID = Value End Set End Property Public Property Declarant_Na() As String Get Return Me._declarant_Na End Get Set Me._declarant_Na = Value End Set End Property Public Property Declarant_Strt() As String Get Return Me._declarant_Strt End Get Set Me._declarant_Strt = Value End Set End Property Public Property Declarant_Pst() As String Get Return Me._declarant_Pst End Get Set Me._declarant_Pst = Value End Set End Property Public Property Declarant_Cty() As String Get Return Me._declarant_Cty End Get Set Me._declarant_Cty = Value End Set End Property Public Property Declarant_Ctry() As String Get Return Me._declarant_Ctry End Get Set Me._declarant_Ctry = Value End Set End Property Public Property Declarant_TIN() As String Get Return Me._declarant_TIN End Get Set Me._declarant_TIN = Value End Set End Property Public Property Declarant_UIDCtry() As String Get Return Me._declarant_UIDCtry End Get Set Me._declarant_UIDCtry = Value End Set End Property Public Property Declarant_UID() As String Get Return Me._declarant_UID End Get Set Me._declarant_UID = Value End Set End Property Public Property Declarant_DecRep() As System.Nullable(Of Byte) Get Return Me._declarant_DecRep End Get Set Me._declarant_DecRep = Value End Set End Property Public Property Represent_RIN() As String Get Return Me._represent_RIN End Get Set Me._represent_RIN = Value End Set End Property Public Property Represent_Na() As String Get Return Me._represent_Na End Get Set Me._represent_Na = Value End Set End Property Public Property EntryCO_Ref() As String Get Return Me._entryCO_Ref End Get Set Me._entryCO_Ref = Value End Set End Property Public Property ExitCO_Ref() As String Get Return Me._exitCO_Ref End Get Set Me._exitCO_Ref = Value End Set End Property Public Property SurvCO_Ref() As String Get Return Me._survCO_Ref End Get Set Me._survCO_Ref = Value End Set End Property Public Property DestCO_Ref() As String Get Return Me._destCO_Ref End Get Set Me._destCO_Ref = Value End Set End Property Public Property PresCO_Ref() As String Get Return Me._presCO_Ref End Get Set Me._presCO_Ref = Value End Set End Property Public Property MsgType() As String Get Return Me._msgType End Get Set Me._msgType = Value End Set End Property Public Property dec_Lager_ID() As String Get Return Me._dec_Lager_ID End Get Set Me._dec_Lager_ID = Value End Set End Property Public Property dec_Lag_IND() As System.Nullable(Of Boolean) Get Return Me._dec_Lag_IND End Get Set Me._dec_Lag_IND = Value End Set End Property Public Property dec_FillPackList_IND() As System.Nullable(Of Boolean) Get Return Me._dec_FillPackList_IND End Get Set Me._dec_FillPackList_IND = Value End Set End Property Public Property dec_Memo() As String Get Return Me._dec_Memo End Get Set Me._dec_Memo = Value End Set End Property Public Property DepCO_Ref() As String Get Return Me._depCO_Ref End Get Set Me._depCO_Ref = Value End Set End Property Public Property CtlrRslt_ResCd() As String Get Return Me._ctlrRslt_ResCd End Get Set Me._ctlrRslt_ResCd = Value End Set End Property Public Property CtrlRslt_DLimit() As System.Nullable(Of Date) Get Return Me._ctrlRslt_DLimit End Get Set Me._ctrlRslt_DLimit = Value End Set End Property Public Property CarrTra_Na() As String Get Return Me._carrTra_Na End Get Set Me._carrTra_Na = Value End Set End Property Public Property CarrTra_Strt() As String Get Return Me._carrTra_Strt End Get Set Me._carrTra_Strt = Value End Set End Property Public Property CarrTra_Pst() As String Get Return Me._carrTra_Pst End Get Set Me._carrTra_Pst = Value End Set End Property Public Property CarrTra_Cty() As String Get Return Me._carrTra_Cty End Get Set Me._carrTra_Cty = Value End Set End Property Public Property CarrTra_Ctry() As String Get Return Me._carrTra_Ctry End Get Set Me._carrTra_Ctry = Value End Set End Property Public Property CarrTra_TIN() As String Get Return Me._carrTra_TIN End Get Set Me._carrTra_TIN = Value End Set End Property Public Property vifDecAdjust() As List(Of vifDecAdjust) Get Return Me._vifDecAdjust End Get Set Me._vifDecAdjust = Value End Set End Property Public Property vifDecItem() As List(Of vifDecItem) Get Return Me._vifDecItem End Get Set Me._vifDecItem = Value End Set End Property Public Property vifDecGrteeRef() As List(Of vifDecGrteeRef) Get Return Me._vifDecGrteeRef End Get Set Me._vifDecGrteeRef = Value End Set End Property 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 sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDec)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDec object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDec object ''' ''' string workflow markup to deserialize ''' Output vifDec object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDec, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDec) 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 vifDec) 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 vifDec Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDec) 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 vifDec Return CType(Serializer.Deserialize(s), vifDec) End Function #End Region ''' ''' Serializes current vifDec object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDec object ''' ''' string xml file to load and deserialize ''' Output vifDec object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDec, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDec) 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 vifDec) 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 vifDec 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 Partial Public Class vifDecAdjust #Region "Private fields" Private _mandant_ID As String Private _bereich_ID As String Private _referenz_ID As String Private _comIndicator As Byte Private _adjust_ID As Integer Private _adjust_AdjTy As String Private _adjust_Curr As String Private _adjust_ExRa As System.Nullable(Of Double) Private _adjust_Val As System.Nullable(Of Double) Private _adjust_Perc As System.Nullable(Of Double) Private _adjust_SplitCd As String Private _adjust_ValTy As String Private _adjust_InvCon As String Private _adjust_InvConD As System.Nullable(Of Date) Private _telo_ValEur As System.Nullable(Of Double) 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 Adjust_ID() As Integer Get Return Me._adjust_ID End Get Set Me._adjust_ID = Value End Set End Property Public Property Adjust_AdjTy() As String Get Return Me._adjust_AdjTy End Get Set Me._adjust_AdjTy = Value End Set End Property Public Property Adjust_Curr() As String Get Return Me._adjust_Curr End Get Set Me._adjust_Curr = Value End Set End Property Public Property Adjust_ExRa() As System.Nullable(Of Double) Get Return Me._adjust_ExRa End Get Set Me._adjust_ExRa = Value End Set End Property Public Property Adjust_Val() As System.Nullable(Of Double) Get Return Me._adjust_Val End Get Set Me._adjust_Val = Value End Set End Property Public Property Adjust_Perc() As System.Nullable(Of Double) Get Return Me._adjust_Perc End Get Set Me._adjust_Perc = Value End Set End Property Public Property Adjust_SplitCd() As String Get Return Me._adjust_SplitCd End Get Set Me._adjust_SplitCd = Value End Set End Property Public Property Adjust_ValTy() As String Get Return Me._adjust_ValTy End Get Set Me._adjust_ValTy = Value End Set End Property Public Property Adjust_InvCon() As String Get Return Me._adjust_InvCon End Get Set Me._adjust_InvCon = Value End Set End Property Public Property Adjust_InvConD() As System.Nullable(Of Date) Get Return Me._adjust_InvConD End Get Set Me._adjust_InvConD = Value End Set End Property Public Property Telo_ValEur() As System.Nullable(Of Double) Get Return Me._telo_ValEur End Get Set Me._telo_ValEur = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecAdjust)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecAdjust object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecAdjust object ''' ''' string workflow markup to deserialize ''' Output vifDecAdjust object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecAdjust, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecAdjust) 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 vifDecAdjust) 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 vifDecAdjust Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecAdjust) 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 vifDecAdjust Return CType(Serializer.Deserialize(s), vifDecAdjust) End Function #End Region ''' ''' Serializes current vifDecAdjust object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecAdjust object ''' ''' string xml file to load and deserialize ''' Output vifDecAdjust object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecAdjust, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecAdjust) 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 vifDecAdjust) 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 vifDecAdjust 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 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 Public Property Ty() As String Get Return Me._ty End Get Set Me._ty = Value End Set End Property Public Property Amnt() As System.Nullable(Of Double) Get Return Me._amnt End Get Set Me._amnt = Value End Set End Property Public Property TyInd() As String Get Return Me._tyInd End Get Set Me._tyInd = Value End Set End Property 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" ''' ''' Serializes current vifDecTotDuties object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecTotDuties object ''' ''' string workflow markup to deserialize ''' Output vifDecTotDuties object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false 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 ''' ''' Serializes current vifDecTotDuties object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecTotDuties object ''' ''' string xml file to load and deserialize ''' Output vifDecTotDuties object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false 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 Partial Public Class vifDecGrteeRef #Region "Private fields" Private _mandant_ID As String Private _bereich_ID As String Private _referenz_ID As String Private _comIndicator As Byte Private _grteeRef_ID As Integer Private _grtee_GTy As String Private _gRN As String Private _oGR As String Private _acc As String Private _gTIN As String Private _gVal As System.Nullable(Of Double) Private _curr 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 GrteeRef_ID() As Integer Get Return Me._grteeRef_ID End Get Set Me._grteeRef_ID = Value End Set End Property Public Property Grtee_GTy() As String Get Return Me._grtee_GTy End Get Set Me._grtee_GTy = Value End Set End Property Public Property GRN() As String Get Return Me._gRN End Get Set Me._gRN = Value End Set End Property Public Property OGR() As String Get Return Me._oGR End Get Set Me._oGR = Value End Set End Property Public Property Acc() As String Get Return Me._acc End Get Set Me._acc = Value End Set End Property Public Property GTIN() As String Get Return Me._gTIN End Get Set Me._gTIN = Value End Set End Property Public Property GVal() As System.Nullable(Of Double) Get Return Me._gVal End Get Set Me._gVal = Value End Set End Property Public Property Curr() As String Get Return Me._curr End Get Set Me._curr = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecGrteeRef)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecGrteeRef object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecGrteeRef object ''' ''' string workflow markup to deserialize ''' Output vifDecGrteeRef object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecGrteeRef, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecGrteeRef) 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 vifDecGrteeRef) 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 vifDecGrteeRef Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecGrteeRef) 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 vifDecGrteeRef Return CType(Serializer.Deserialize(s), vifDecGrteeRef) End Function #End Region ''' ''' Serializes current vifDecGrteeRef object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecGrteeRef object ''' ''' string xml file to load and deserialize ''' Output vifDecGrteeRef object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecGrteeRef, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecGrteeRef) 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 vifDecGrteeRef) 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 vifDecGrteeRef 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 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 Public Property Ty() As String Get Return Me._ty End Get Set Me._ty = Value End Set End Property Public Property BaseD() As System.Nullable(Of Date) Get Return Me._baseD End Get Set Me._baseD = Value End Set End Property Public Property Curr() As String Get Return Me._curr End Get Set Me._curr = Value End Set End Property Public Property Unit() As String Get Return Me._unit End Get Set Me._unit = Value End Set End Property Public Property Base() As System.Nullable(Of Double) Get Return Me._base End Get Set Me._base = Value End Set End Property Public Property Rate() As String Get Return Me._rate End Get Set Me._rate = Value End Set End Property Public Property RateUsed() As String Get Return Me._rateUsed End Get Set Me._rateUsed = Value End Set End Property Public Property Amnt() As System.Nullable(Of Double) Get Return Me._amnt End Get Set Me._amnt = Value End Set End Property Public Property MeaID() As System.Nullable(Of Integer) Get Return Me._meaID End Get Set Me._meaID = Value End Set End Property 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" ''' ''' Serializes current vifDecDutyCalc object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecDutyCalc object ''' ''' string workflow markup to deserialize ''' Output vifDecDutyCalc object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false 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 ''' ''' Serializes current vifDecDutyCalc object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecDutyCalc object ''' ''' string xml file to load and deserialize ''' Output vifDecDutyCalc object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false 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 Partial Public Class vifDecSpecMent #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 _specMent_ID As Integer Private _inf As String Private _cd As String Private _exEC As System.Nullable(Of Boolean) Private _exCtry 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 SpecMent_ID() As Integer Get Return Me._specMent_ID End Get Set Me._specMent_ID = Value End Set End Property Public Property Inf() As String Get Return Me._inf End Get Set Me._inf = Value End Set End Property Public Property Cd() As String Get Return Me._cd End Get Set Me._cd = Value End Set End Property Public Property ExEC() As System.Nullable(Of Boolean) Get Return Me._exEC End Get Set Me._exEC = Value End Set End Property Public Property ExCtry() As String Get Return Me._exCtry End Get Set Me._exCtry = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecSpecMent)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecSpecMent object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecSpecMent object ''' ''' string workflow markup to deserialize ''' Output vifDecSpecMent object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecSpecMent, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecSpecMent) 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 vifDecSpecMent) 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 vifDecSpecMent Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecSpecMent) 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 vifDecSpecMent Return CType(Serializer.Deserialize(s), vifDecSpecMent) End Function #End Region ''' ''' Serializes current vifDecSpecMent object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecSpecMent object ''' ''' string xml file to load and deserialize ''' Output vifDecSpecMent object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecSpecMent, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecSpecMent) 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 vifDecSpecMent) 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 vifDecSpecMent 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 Partial Public Class vifDecSupplUnt #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 _supplUnt_ID As Integer Private _supplUnt_Unit As String Private _supplUnt_SUQuant As System.Nullable(Of Double) 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 SupplUnt_ID() As Integer Get Return Me._supplUnt_ID End Get Set Me._supplUnt_ID = Value End Set End Property Public Property SupplUnt_Unit() As String Get Return Me._supplUnt_Unit End Get Set Me._supplUnt_Unit = Value End Set End Property Public Property SupplUnt_SUQuant() As System.Nullable(Of Double) Get Return Me._supplUnt_SUQuant End Get Set Me._supplUnt_SUQuant = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecSupplUnt)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecSupplUnt object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecSupplUnt object ''' ''' string workflow markup to deserialize ''' Output vifDecSupplUnt object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecSupplUnt, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecSupplUnt) 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 vifDecSupplUnt) 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 vifDecSupplUnt Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecSupplUnt) 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 vifDecSupplUnt Return CType(Serializer.Deserialize(s), vifDecSupplUnt) End Function #End Region ''' ''' Serializes current vifDecSupplUnt object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecSupplUnt object ''' ''' string xml file to load and deserialize ''' Output vifDecSupplUnt object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecSupplUnt, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecSupplUnt) 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 vifDecSupplUnt) 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 vifDecSupplUnt 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 Partial Public Class vifDecPrevAdmRef #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 _prevRef_ID As Integer Private _prevRef_Cat As String Private _prevRef_PDTy As String Private _prevRef_DRef 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 PrevRef_ID() As Integer Get Return Me._prevRef_ID End Get Set Me._prevRef_ID = Value End Set End Property Public Property PrevRef_Cat() As String Get Return Me._prevRef_Cat End Get Set Me._prevRef_Cat = Value End Set End Property Public Property PrevRef_PDTy() As String Get Return Me._prevRef_PDTy End Get Set Me._prevRef_PDTy = Value End Set End Property Public Property PrevRef_DRef() As String Get Return Me._prevRef_DRef End Get Set Me._prevRef_DRef = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecPrevAdmRef)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecPrevAdmRef object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecPrevAdmRef object ''' ''' string workflow markup to deserialize ''' Output vifDecPrevAdmRef object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecPrevAdmRef, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecPrevAdmRef) 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 vifDecPrevAdmRef) 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 vifDecPrevAdmRef Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecPrevAdmRef) 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 vifDecPrevAdmRef Return CType(Serializer.Deserialize(s), vifDecPrevAdmRef) End Function #End Region ''' ''' Serializes current vifDecPrevAdmRef object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecPrevAdmRef object ''' ''' string xml file to load and deserialize ''' Output vifDecPrevAdmRef object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecPrevAdmRef, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecPrevAdmRef) 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 vifDecPrevAdmRef) 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 vifDecPrevAdmRef 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 Partial Public Class vifDecPack #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 _pack_ID As Integer Private _pack_Mark As String Private _pack_Kind As String Private _pack_Nr As System.Nullable(Of Integer) Private _pack_Piec As System.Nullable(Of Integer) Private _tELO_Gross As System.Nullable(Of Double) 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 Pack_ID() As Integer Get Return Me._pack_ID End Get Set Me._pack_ID = Value End Set End Property Public Property Pack_Mark() As String Get Return Me._pack_Mark End Get Set Me._pack_Mark = Value End Set End Property Public Property Pack_Kind() As String Get Return Me._pack_Kind End Get Set Me._pack_Kind = Value End Set End Property Public Property Pack_Nr() As System.Nullable(Of Integer) Get Return Me._pack_Nr End Get Set Me._pack_Nr = Value End Set End Property Public Property Pack_Piec() As System.Nullable(Of Integer) Get Return Me._pack_Piec End Get Set Me._pack_Piec = Value End Set End Property Public Property TELO_Gross() As System.Nullable(Of Double) Get Return Me._tELO_Gross End Get Set Me._tELO_Gross = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecPack)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecPack object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecPack object ''' ''' string workflow markup to deserialize ''' Output vifDecPack object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecPack, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecPack) 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 vifDecPack) 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 vifDecPack Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecPack) 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 vifDecPack Return CType(Serializer.Deserialize(s), vifDecPack) End Function #End Region ''' ''' Serializes current vifDecPack object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecPack object ''' ''' string xml file to load and deserialize ''' Output vifDecPack object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecPack, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecPack) 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 vifDecPack) 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 vifDecPack 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 Partial Public Class vifDecDocCerts #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 _docCerts_ID As Integer Private _docCerts_DocCd As String Private _docCerts_DTy As String Private _docCerts_DRef As String Private _docCerts_IssD As System.Nullable(Of Date) Private _docCerts_IssCtry As String Private _docCerts_DTIN As String Private _docCerts_UidVid 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 DocCerts_ID() As Integer Get Return Me._docCerts_ID End Get Set Me._docCerts_ID = Value End Set End Property Public Property DocCerts_DocCd() As String Get Return Me._docCerts_DocCd End Get Set Me._docCerts_DocCd = Value End Set End Property Public Property DocCerts_DTy() As String Get Return Me._docCerts_DTy End Get Set Me._docCerts_DTy = Value End Set End Property Public Property DocCerts_DRef() As String Get Return Me._docCerts_DRef End Get Set Me._docCerts_DRef = Value End Set End Property Public Property DocCerts_IssD() As System.Nullable(Of Date) Get Return Me._docCerts_IssD End Get Set Me._docCerts_IssD = Value End Set End Property Public Property DocCerts_IssCtry() As String Get Return Me._docCerts_IssCtry End Get Set Me._docCerts_IssCtry = Value End Set End Property Public Property DocCerts_DTIN() As String Get Return Me._docCerts_DTIN End Get Set Me._docCerts_DTIN = Value End Set End Property Public Property DocCerts_UidVid() As String Get Return Me._docCerts_UidVid End Get Set Me._docCerts_UidVid = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecDocCerts)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecDocCerts object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecDocCerts object ''' ''' string workflow markup to deserialize ''' Output vifDecDocCerts object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecDocCerts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecDocCerts) 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 vifDecDocCerts) 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 vifDecDocCerts Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecDocCerts) 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 vifDecDocCerts Return CType(Serializer.Deserialize(s), vifDecDocCerts) End Function #End Region ''' ''' Serializes current vifDecDocCerts object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecDocCerts object ''' ''' string xml file to load and deserialize ''' Output vifDecDocCerts object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecDocCerts, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecDocCerts) 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 vifDecDocCerts) 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 vifDecDocCerts 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 Partial Public Class vifDecContainer #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 _container_ID As Integer Private _container_CNr 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 Container_ID() As Integer Get Return Me._container_ID End Get Set Me._container_ID = Value End Set End Property Public Property Container_CNr() As String Get Return Me._container_CNr End Get Set Me._container_CNr = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecContainer)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecContainer object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecContainer object ''' ''' string workflow markup to deserialize ''' Output vifDecContainer object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecContainer, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecContainer) 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 vifDecContainer) 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 vifDecContainer Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecContainer) 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 vifDecContainer Return CType(Serializer.Deserialize(s), vifDecContainer) End Function #End Region ''' ''' Serializes current vifDecContainer object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecContainer object ''' ''' string xml file to load and deserialize ''' Output vifDecContainer object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecContainer, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecContainer) 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 vifDecContainer) 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 vifDecContainer 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 Partial Public Class vifDecItem #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 _item_Status As String Private _item_ComCd As String Private _item_GdsDes As String Private _item_Gross As System.Nullable(Of Double) Private _item_Net As System.Nullable(Of Double) Private _item_Orig As String Private _item_ProcCd As String Private _item_ProcAddCd As String Private _item_ItVal As System.Nullable(Of Double) Private _item_Pref As String Private _item_Quota As String Private _item_ValMet As System.Nullable(Of Byte) Private _item_VATInd As System.Nullable(Of Boolean) Private _item_StatVal As System.Nullable(Of Double) Private _survCO_Ref As String Private _telo_Artikel_ID As String Private _telo_ArtikelMenge As System.Nullable(Of Double) Private _telo_ArtikelMEH As String Private _vifDecContainer As List(Of vifDecContainer) Private _vifDecDocCerts As List(Of vifDecDocCerts) Private _vifDecPack As List(Of vifDecPack) Private _vifDecPrevAdmRef As List(Of vifDecPrevAdmRef) Private _vifDecSupplUnt As List(Of vifDecSupplUnt) 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)() Me._vifDecPack = New List(Of vifDecPack)() Me._vifDecDocCerts = New List(Of vifDecDocCerts)() Me._vifDecContainer = New List(Of vifDecContainer)() End Sub 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 Item_Status() As String Get Return Me._item_Status End Get Set Me._item_Status = Value End Set End Property Public Property Item_ComCd() As String Get Return Me._item_ComCd End Get Set Me._item_ComCd = Value End Set End Property Public Property Item_GdsDes() As String Get Return Me._item_GdsDes End Get Set Me._item_GdsDes = Value End Set End Property Public Property Item_Gross() As System.Nullable(Of Double) Get Return Me._item_Gross End Get Set Me._item_Gross = Value End Set End Property Public Property Item_Net() As System.Nullable(Of Double) Get Return Me._item_Net End Get Set Me._item_Net = Value End Set End Property Public Property Item_Orig() As String Get Return Me._item_Orig End Get Set Me._item_Orig = Value End Set End Property Public Property Item_ProcCd() As String Get Return Me._item_ProcCd End Get Set Me._item_ProcCd = Value End Set End Property Public Property Item_ProcAddCd() As String Get Return Me._item_ProcAddCd End Get Set Me._item_ProcAddCd = Value End Set End Property Public Property Item_ItVal() As System.Nullable(Of Double) Get Return Me._item_ItVal End Get Set Me._item_ItVal = Value End Set End Property Public Property Item_Pref() As String Get Return Me._item_Pref End Get Set Me._item_Pref = Value End Set End Property Public Property Item_Quota() As String Get Return Me._item_Quota End Get Set Me._item_Quota = Value End Set End Property Public Property Item_ValMet() As System.Nullable(Of Byte) Get Return Me._item_ValMet End Get Set Me._item_ValMet = Value End Set End Property Public Property Item_VATInd() As System.Nullable(Of Boolean) Get Return Me._item_VATInd End Get Set Me._item_VATInd = Value End Set End Property Public Property Item_StatVal() As System.Nullable(Of Double) Get Return Me._item_StatVal End Get Set Me._item_StatVal = Value End Set End Property Public Property SurvCO_Ref() As String Get Return Me._survCO_Ref End Get Set Me._survCO_Ref = Value End Set End Property Public Property Telo_Artikel_ID() As String Get Return Me._telo_Artikel_ID End Get Set Me._telo_Artikel_ID = Value End Set End Property Public Property Telo_ArtikelMenge() As System.Nullable(Of Double) Get Return Me._telo_ArtikelMenge End Get Set Me._telo_ArtikelMenge = Value End Set End Property Public Property Telo_ArtikelMEH() As String Get Return Me._telo_ArtikelMEH End Get Set Me._telo_ArtikelMEH = Value End Set End Property Public Property vifDecContainer() As List(Of vifDecContainer) Get Return Me._vifDecContainer End Get Set Me._vifDecContainer = Value End Set End Property Public Property vifDecDocCerts() As List(Of vifDecDocCerts) Get Return Me._vifDecDocCerts End Get Set Me._vifDecDocCerts = Value End Set End Property Public Property vifDecPack() As List(Of vifDecPack) Get Return Me._vifDecPack End Get Set Me._vifDecPack = Value End Set End Property Public Property vifDecPrevAdmRef() As List(Of vifDecPrevAdmRef) Get Return Me._vifDecPrevAdmRef End Get Set Me._vifDecPrevAdmRef = Value End Set End Property Public Property vifDecSupplUnt() As List(Of vifDecSupplUnt) Get Return Me._vifDecSupplUnt End Get Set Me._vifDecSupplUnt = Value End Set End Property Public Property vifDecSpecMent() As List(Of vifDecSpecMent) Get Return Me._vifDecSpecMent End Get Set Me._vifDecSpecMent = Value End Set End Property 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 sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(vifDecItem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current vifDecItem object into an XML string ''' ''' string XML value 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 ''' ''' Deserializes workflow markup into an vifDecItem object ''' ''' string workflow markup to deserialize ''' Output vifDecItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As vifDecItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecItem) 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 vifDecItem) 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 vifDecItem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), vifDecItem) 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 vifDecItem Return CType(Serializer.Deserialize(s), vifDecItem) End Function #End Region ''' ''' Serializes current vifDecItem object into file ''' ''' full path of outupt xml file ''' output Exception value if failed ''' true if can serialize and save into file; otherwise, false 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 ''' ''' Deserializes xml markup from file into an vifDecItem object ''' ''' string xml file to load and deserialize ''' Output vifDecItem object ''' output Exception value if deserialize failed ''' true if this Serializer can deserialize the object; otherwise, false Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As vifDecItem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, vifDecItem) 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 vifDecItem) 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 vifDecItem 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 End Namespace