'' ------------------------------------------------------------------------------ '' '' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com '' TESTJSONListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse '' '' ------------------------------------------------------------------------------ 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 TESTJSON Partial Public Class BeyannameBilgi #Region "Private fields" Private _beyanname_no As String Private _rejim As String Private _gUMRUK As String Private _basitlestirilmis_usul As String Private _yuk_belgeleri_sayisi As Integer Private _kap_adedi As Integer Private _ticaret_ulkesi As String Private _referans_no As String Private _birlik_kayit_numarasi As String Private _birlik_kripto_numarasi As String Private _cikis_ulkesi As String Private _gidecegi_ulke As String Private _gidecegi_sevk_ulkesi As String Private _cikistaki_aracin_tipi As String Private _cikistaki_aracin_kimligi As String Private _cikistaki_aracin_ulkesi As String Private _teslim_sekli As String Private _teslim_yeri As String Private _konteyner As String Private _sinirdaki_aracin_tipi As String Private _sinirdaki_aracin_kimligi As String Private _sinirdaki_aracin_ulkesi As String Private _toplam_fatura_dovizi As String Private _toplan_navlun_dovizi As String Private _sinirdaki_tasima_sekli As String Private _alici_satici_iliskisi As String Private _toplam_sigorta_dovizi As String Private _yukleme_bosaltma_yeri As String Private _toplam_yurt_disi_harcamalarin_dovizi As String Private _banka_kodu As String Private _esyanin_bulundugu_yer As String Private _varis_gumruk_idaresi As String Private _antrepo_kodu As String Private _tasarlanan_guzergah As String Private _giris_gumruk_idaresi As String Private _islemin_niteligi As String Private _aciklamalar As String Private _kullanici_kodu As String Private _referans_tarihi As String Private _odeme As String Private _odeme_araci As String Private _musavir_referansi As String Private _gonderici_vergi_no As String Private _alici_vergi_no As String Private _beyan_sahibi_vergi_no As String Private _musavir_vergi_no As String Private _asil_sorumlu_vergi_no As String Private _firma_bilgi As ArrayOfFirma Private _teminat As ArrayOfTeminat Private _ozetbeyanlar As ArrayOfOzetbeyan Private _kalemler As ArrayOfKalem Private _sorular_cevaplar As ArrayOfSoru_Cevap Private _dokumanlar As ArrayOfDokuman Private _vergiler As ArrayOfVergi Private _kiymetBildirim As ArrayOfKiymet Private _mail1 As String Private _mail2 As String Private _mail3 As String Private _mobil1 As String Private _mobil2 As String Private _fazlaMesaiID As String Private _limanKodu As String Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._kiymetBildirim = New ArrayOfKiymet() Me._vergiler = New ArrayOfVergi() Me._dokumanlar = New ArrayOfDokuman() Me._sorular_cevaplar = New ArrayOfSoru_Cevap() Me._kalemler = New ArrayOfKalem() Me._ozetbeyanlar = New ArrayOfOzetbeyan() Me._teminat = New ArrayOfTeminat() Me._firma_bilgi = New ArrayOfFirma() End Sub Public Property Beyanname_no() As String Get Return Me._beyanname_no End Get Set Me._beyanname_no = Value End Set End Property Public Property Rejim() As String Get Return Me._rejim End Get Set Me._rejim = Value End Set End Property Public Property GUMRUK() As String Get Return Me._gUMRUK End Get Set Me._gUMRUK = Value End Set End Property Public Property Basitlestirilmis_usul() As String Get Return Me._basitlestirilmis_usul End Get Set Me._basitlestirilmis_usul = Value End Set End Property Public Property Yuk_belgeleri_sayisi() As Integer Get Return Me._yuk_belgeleri_sayisi End Get Set Me._yuk_belgeleri_sayisi = Value End Set End Property Public Property Kap_adedi() As Integer Get Return Me._kap_adedi End Get Set Me._kap_adedi = Value End Set End Property Public Property Ticaret_ulkesi() As String Get Return Me._ticaret_ulkesi End Get Set Me._ticaret_ulkesi = Value End Set End Property Public Property Referans_no() As String Get Return Me._referans_no End Get Set Me._referans_no = Value End Set End Property Public Property Birlik_kayit_numarasi() As String Get Return Me._birlik_kayit_numarasi End Get Set Me._birlik_kayit_numarasi = Value End Set End Property Public Property Birlik_kripto_numarasi() As String Get Return Me._birlik_kripto_numarasi End Get Set Me._birlik_kripto_numarasi = Value End Set End Property Public Property Cikis_ulkesi() As String Get Return Me._cikis_ulkesi End Get Set Me._cikis_ulkesi = Value End Set End Property Public Property Gidecegi_ulke() As String Get Return Me._gidecegi_ulke End Get Set Me._gidecegi_ulke = Value End Set End Property Public Property Gidecegi_sevk_ulkesi() As String Get Return Me._gidecegi_sevk_ulkesi End Get Set Me._gidecegi_sevk_ulkesi = Value End Set End Property Public Property Cikistaki_aracin_tipi() As String Get Return Me._cikistaki_aracin_tipi End Get Set Me._cikistaki_aracin_tipi = Value End Set End Property Public Property Cikistaki_aracin_kimligi() As String Get Return Me._cikistaki_aracin_kimligi End Get Set Me._cikistaki_aracin_kimligi = Value End Set End Property Public Property Cikistaki_aracin_ulkesi() As String Get Return Me._cikistaki_aracin_ulkesi End Get Set Me._cikistaki_aracin_ulkesi = Value End Set End Property Public Property Teslim_sekli() As String Get Return Me._teslim_sekli End Get Set Me._teslim_sekli = Value End Set End Property Public Property Teslim_yeri() As String Get Return Me._teslim_yeri End Get Set Me._teslim_yeri = Value End Set End Property Public Property Konteyner() As String Get Return Me._konteyner End Get Set Me._konteyner = Value End Set End Property Public Property Sinirdaki_aracin_tipi() As String Get Return Me._sinirdaki_aracin_tipi End Get Set Me._sinirdaki_aracin_tipi = Value End Set End Property Public Property Sinirdaki_aracin_kimligi() As String Get Return Me._sinirdaki_aracin_kimligi End Get Set Me._sinirdaki_aracin_kimligi = Value End Set End Property Public Property Sinirdaki_aracin_ulkesi() As String Get Return Me._sinirdaki_aracin_ulkesi End Get Set Me._sinirdaki_aracin_ulkesi = Value End Set End Property Public Property Toplam_fatura_dovizi() As String Get Return Me._toplam_fatura_dovizi End Get Set Me._toplam_fatura_dovizi = Value End Set End Property Public Property Toplan_navlun_dovizi() As String Get Return Me._toplan_navlun_dovizi End Get Set Me._toplan_navlun_dovizi = Value End Set End Property Public Property Sinirdaki_tasima_sekli() As String Get Return Me._sinirdaki_tasima_sekli End Get Set Me._sinirdaki_tasima_sekli = Value End Set End Property Public Property Alici_satici_iliskisi() As String Get Return Me._alici_satici_iliskisi End Get Set Me._alici_satici_iliskisi = Value End Set End Property Public Property Toplam_sigorta_dovizi() As String Get Return Me._toplam_sigorta_dovizi End Get Set Me._toplam_sigorta_dovizi = Value End Set End Property Public Property Yukleme_bosaltma_yeri() As String Get Return Me._yukleme_bosaltma_yeri End Get Set Me._yukleme_bosaltma_yeri = Value End Set End Property Public Property Toplam_yurt_disi_harcamalarin_dovizi() As String Get Return Me._toplam_yurt_disi_harcamalarin_dovizi End Get Set Me._toplam_yurt_disi_harcamalarin_dovizi = Value End Set End Property Public Property Banka_kodu() As String Get Return Me._banka_kodu End Get Set Me._banka_kodu = Value End Set End Property Public Property Esyanin_bulundugu_yer() As String Get Return Me._esyanin_bulundugu_yer End Get Set Me._esyanin_bulundugu_yer = Value End Set End Property Public Property Varis_gumruk_idaresi() As String Get Return Me._varis_gumruk_idaresi End Get Set Me._varis_gumruk_idaresi = Value End Set End Property Public Property Antrepo_kodu() As String Get Return Me._antrepo_kodu End Get Set Me._antrepo_kodu = Value End Set End Property Public Property Tasarlanan_guzergah() As String Get Return Me._tasarlanan_guzergah End Get Set Me._tasarlanan_guzergah = Value End Set End Property Public Property Giris_gumruk_idaresi() As String Get Return Me._giris_gumruk_idaresi End Get Set Me._giris_gumruk_idaresi = Value End Set End Property Public Property Islemin_niteligi() As String Get Return Me._islemin_niteligi End Get Set Me._islemin_niteligi = Value End Set End Property Public Property Aciklamalar() As String Get Return Me._aciklamalar End Get Set Me._aciklamalar = Value End Set End Property Public Property Kullanici_kodu() As String Get Return Me._kullanici_kodu End Get Set Me._kullanici_kodu = Value End Set End Property Public Property Referans_tarihi() As String Get Return Me._referans_tarihi End Get Set Me._referans_tarihi = Value End Set End Property Public Property Odeme() As String Get Return Me._odeme End Get Set Me._odeme = Value End Set End Property Public Property Odeme_araci() As String Get Return Me._odeme_araci End Get Set Me._odeme_araci = Value End Set End Property Public Property Musavir_referansi() As String Get Return Me._musavir_referansi End Get Set Me._musavir_referansi = Value End Set End Property Public Property Gonderici_vergi_no() As String Get Return Me._gonderici_vergi_no End Get Set Me._gonderici_vergi_no = Value End Set End Property Public Property Alici_vergi_no() As String Get Return Me._alici_vergi_no End Get Set Me._alici_vergi_no = Value End Set End Property Public Property Beyan_sahibi_vergi_no() As String Get Return Me._beyan_sahibi_vergi_no End Get Set Me._beyan_sahibi_vergi_no = Value End Set End Property Public Property Musavir_vergi_no() As String Get Return Me._musavir_vergi_no End Get Set Me._musavir_vergi_no = Value End Set End Property Public Property Asil_sorumlu_vergi_no() As String Get Return Me._asil_sorumlu_vergi_no End Get Set Me._asil_sorumlu_vergi_no = Value End Set End Property Public Property Firma_bilgi() As ArrayOfFirma Get Return Me._firma_bilgi End Get Set Me._firma_bilgi = Value End Set End Property Public Property Teminat() As ArrayOfTeminat Get Return Me._teminat End Get Set Me._teminat = Value End Set End Property Public Property Ozetbeyanlar() As ArrayOfOzetbeyan Get Return Me._ozetbeyanlar End Get Set Me._ozetbeyanlar = Value End Set End Property Public Property Kalemler() As ArrayOfKalem Get Return Me._kalemler End Get Set Me._kalemler = Value End Set End Property Public Property Sorular_cevaplar() As ArrayOfSoru_Cevap Get Return Me._sorular_cevaplar End Get Set Me._sorular_cevaplar = Value End Set End Property Public Property Dokumanlar() As ArrayOfDokuman Get Return Me._dokumanlar End Get Set Me._dokumanlar = Value End Set End Property Public Property Vergiler() As ArrayOfVergi Get Return Me._vergiler End Get Set Me._vergiler = Value End Set End Property Public Property KiymetBildirim() As ArrayOfKiymet Get Return Me._kiymetBildirim End Get Set Me._kiymetBildirim = Value End Set End Property Public Property mail1() As String Get Return Me._mail1 End Get Set Me._mail1 = Value End Set End Property Public Property mail2() As String Get Return Me._mail2 End Get Set Me._mail2 = Value End Set End Property Public Property mail3() As String Get Return Me._mail3 End Get Set Me._mail3 = Value End Set End Property Public Property mobil1() As String Get Return Me._mobil1 End Get Set Me._mobil1 = Value End Set End Property Public Property mobil2() As String Get Return Me._mobil2 End Get Set Me._mobil2 = Value End Set End Property Public Property FazlaMesaiID() As String Get Return Me._fazlaMesaiID End Get Set Me._fazlaMesaiID = Value End Set End Property Public Property LimanKodu() As String Get Return Me._limanKodu End Get Set Me._limanKodu = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(BeyannameBilgi)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current BeyannameBilgi 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 BeyannameBilgi object ''' ''' string workflow markup to deserialize ''' Output BeyannameBilgi 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 BeyannameBilgi, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BeyannameBilgi) 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 BeyannameBilgi) 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 BeyannameBilgi Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), BeyannameBilgi) 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 BeyannameBilgi Return CType(Serializer.Deserialize(s), BeyannameBilgi) End Function #End Region ''' ''' Serializes current BeyannameBilgi 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 BeyannameBilgi object ''' ''' string xml file to load and deserialize ''' Output BeyannameBilgi 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 BeyannameBilgi, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, BeyannameBilgi) 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 BeyannameBilgi) 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 BeyannameBilgi 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 ArrayOfFirma #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfFirma)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfFirma 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 ArrayOfFirma object ''' ''' string workflow markup to deserialize ''' Output ArrayOfFirma 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 ArrayOfFirma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfFirma) 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 ArrayOfFirma) 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 ArrayOfFirma Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfFirma) 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 ArrayOfFirma Return CType(Serializer.Deserialize(s), ArrayOfFirma) End Function #End Region ''' ''' Serializes current ArrayOfFirma 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 ArrayOfFirma object ''' ''' string xml file to load and deserialize ''' Output ArrayOfFirma 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 ArrayOfFirma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfFirma) 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 ArrayOfFirma) 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 ArrayOfFirma 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 ArrayOfKiymet #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKiymet)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfKiymet 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 ArrayOfKiymet object ''' ''' string workflow markup to deserialize ''' Output ArrayOfKiymet 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 ArrayOfKiymet, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKiymet) 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 ArrayOfKiymet) 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 ArrayOfKiymet Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKiymet) 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 ArrayOfKiymet Return CType(Serializer.Deserialize(s), ArrayOfKiymet) End Function #End Region ''' ''' Serializes current ArrayOfKiymet 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 ArrayOfKiymet object ''' ''' string xml file to load and deserialize ''' Output ArrayOfKiymet 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 ArrayOfKiymet, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKiymet) 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 ArrayOfKiymet) 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 ArrayOfKiymet 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 ArrayOfVergi #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfVergi)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfVergi 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 ArrayOfVergi object ''' ''' string workflow markup to deserialize ''' Output ArrayOfVergi 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 ArrayOfVergi, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfVergi) 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 ArrayOfVergi) 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 ArrayOfVergi Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfVergi) 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 ArrayOfVergi Return CType(Serializer.Deserialize(s), ArrayOfVergi) End Function #End Region ''' ''' Serializes current ArrayOfVergi 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 ArrayOfVergi object ''' ''' string xml file to load and deserialize ''' Output ArrayOfVergi 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 ArrayOfVergi, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfVergi) 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 ArrayOfVergi) 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 ArrayOfVergi 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 ArrayOfDokuman #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfDokuman)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfDokuman 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 ArrayOfDokuman object ''' ''' string workflow markup to deserialize ''' Output ArrayOfDokuman 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 ArrayOfDokuman, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfDokuman) 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 ArrayOfDokuman) 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 ArrayOfDokuman Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfDokuman) 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 ArrayOfDokuman Return CType(Serializer.Deserialize(s), ArrayOfDokuman) End Function #End Region ''' ''' Serializes current ArrayOfDokuman 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 ArrayOfDokuman object ''' ''' string xml file to load and deserialize ''' Output ArrayOfDokuman 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 ArrayOfDokuman, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfDokuman) 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 ArrayOfDokuman) 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 ArrayOfDokuman 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 ArrayOfSoru_Cevap #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfSoru_Cevap)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfSoru_Cevap 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 ArrayOfSoru_Cevap object ''' ''' string workflow markup to deserialize ''' Output ArrayOfSoru_Cevap 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 ArrayOfSoru_Cevap, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap Return CType(Serializer.Deserialize(s), ArrayOfSoru_Cevap) End Function #End Region ''' ''' Serializes current ArrayOfSoru_Cevap 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 ArrayOfSoru_Cevap object ''' ''' string xml file to load and deserialize ''' Output ArrayOfSoru_Cevap 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 ArrayOfSoru_Cevap, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap) 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 ArrayOfSoru_Cevap 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 ArrayOfKalem #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKalem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfKalem 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 ArrayOfKalem object ''' ''' string workflow markup to deserialize ''' Output ArrayOfKalem 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 ArrayOfKalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKalem) 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 ArrayOfKalem) 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 ArrayOfKalem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKalem) 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 ArrayOfKalem Return CType(Serializer.Deserialize(s), ArrayOfKalem) End Function #End Region ''' ''' Serializes current ArrayOfKalem 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 ArrayOfKalem object ''' ''' string xml file to load and deserialize ''' Output ArrayOfKalem 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 ArrayOfKalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKalem) 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 ArrayOfKalem) 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 ArrayOfKalem 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 ArrayOfOzetbeyan #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfOzetbeyan)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfOzetbeyan 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 ArrayOfOzetbeyan object ''' ''' string workflow markup to deserialize ''' Output ArrayOfOzetbeyan 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 ArrayOfOzetbeyan, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan Return CType(Serializer.Deserialize(s), ArrayOfOzetbeyan) End Function #End Region ''' ''' Serializes current ArrayOfOzetbeyan 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 ArrayOfOzetbeyan object ''' ''' string xml file to load and deserialize ''' Output ArrayOfOzetbeyan 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 ArrayOfOzetbeyan, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan) 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 ArrayOfOzetbeyan 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 ArrayOfTeminat #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTeminat)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfTeminat 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 ArrayOfTeminat object ''' ''' string workflow markup to deserialize ''' Output ArrayOfTeminat 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 ArrayOfTeminat, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTeminat) 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 ArrayOfTeminat) 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 ArrayOfTeminat Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTeminat) 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 ArrayOfTeminat Return CType(Serializer.Deserialize(s), ArrayOfTeminat) End Function #End Region ''' ''' Serializes current ArrayOfTeminat 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 ArrayOfTeminat object ''' ''' string xml file to load and deserialize ''' Output ArrayOfTeminat 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 ArrayOfTeminat, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTeminat) 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 ArrayOfTeminat) 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 ArrayOfTeminat 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 firma #Region "Private fields" Private _tip As String Private _ulke_kodu As String Private _posta_kodu As String Private _kimlik_turu As String Private _faks As String Private _no As String Private _adi_unvani As String Private _cadde_s_no As String Private _telefon As String Private _il_ilce As String Private Shared sSerializer As XmlSerializer #End Region Public Property Tip() As String Get Return Me._tip End Get Set Me._tip = Value End Set End Property Public Property Ulke_kodu() As String Get Return Me._ulke_kodu End Get Set Me._ulke_kodu = Value End Set End Property Public Property Posta_kodu() As String Get Return Me._posta_kodu End Get Set Me._posta_kodu = Value End Set End Property Public Property Kimlik_turu() As String Get Return Me._kimlik_turu End Get Set Me._kimlik_turu = Value End Set End Property Public Property Faks() As String Get Return Me._faks End Get Set Me._faks = Value End Set End Property Public Property No() As String Get Return Me._no End Get Set Me._no = Value End Set End Property Public Property Adi_unvani() As String Get Return Me._adi_unvani End Get Set Me._adi_unvani = Value End Set End Property Public Property Cadde_s_no() As String Get Return Me._cadde_s_no End Get Set Me._cadde_s_no = Value End Set End Property Public Property Telefon() As String Get Return Me._telefon End Get Set Me._telefon = Value End Set End Property Public Property Il_ilce() As String Get Return Me._il_ilce End Get Set Me._il_ilce = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(firma)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current firma 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 firma object ''' ''' string workflow markup to deserialize ''' Output firma 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 firma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, firma) 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 firma) 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 firma Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), firma) 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 firma Return CType(Serializer.Deserialize(s), firma) End Function #End Region ''' ''' Serializes current firma 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 firma object ''' ''' string xml file to load and deserialize ''' Output firma 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 firma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, firma) 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 firma) 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 firma 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 Teminat #Region "Private fields" Private _teminat_sekli As String Private _global_teminat_no As String Private _aciklama As String Private _diger_tutar_referansi As String Private Shared sSerializer As XmlSerializer #End Region Public Property Teminat_sekli() As String Get Return Me._teminat_sekli End Get Set Me._teminat_sekli = Value End Set End Property Public Property Global_teminat_no() As String Get Return Me._global_teminat_no End Get Set Me._global_teminat_no = Value End Set End Property Public Property Aciklama() As String Get Return Me._aciklama End Get Set Me._aciklama = Value End Set End Property Public Property Diger_tutar_referansi() As String Get Return Me._diger_tutar_referansi End Get Set Me._diger_tutar_referansi = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Teminat)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Teminat 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 Teminat object ''' ''' string workflow markup to deserialize ''' Output Teminat 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 Teminat, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Teminat) 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 Teminat) 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 Teminat Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Teminat) 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 Teminat Return CType(Serializer.Deserialize(s), Teminat) End Function #End Region ''' ''' Serializes current Teminat 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 Teminat object ''' ''' string xml file to load and deserialize ''' Output Teminat 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 Teminat, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Teminat) 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 Teminat) 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 Teminat 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 Ozetbeyan #Region "Private fields" Private _ozbyacma_bilgi As ArrayOfTasimasenetleri Private _ozetbeyan_no As String Private _ozetbeyan_islem_kapsami As String Private _ambar_ici As String Private _baska_rejim As String Private _aciklama As String Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._ozbyacma_bilgi = New ArrayOfTasimasenetleri() End Sub Public Property ozbyacma_bilgi() As ArrayOfTasimasenetleri Get Return Me._ozbyacma_bilgi End Get Set Me._ozbyacma_bilgi = Value End Set End Property Public Property Ozetbeyan_no() As String Get Return Me._ozetbeyan_no End Get Set Me._ozetbeyan_no = Value End Set End Property Public Property Ozetbeyan_islem_kapsami() As String Get Return Me._ozetbeyan_islem_kapsami End Get Set Me._ozetbeyan_islem_kapsami = Value End Set End Property Public Property Ambar_ici() As String Get Return Me._ambar_ici End Get Set Me._ambar_ici = Value End Set End Property Public Property Baska_rejim() As String Get Return Me._baska_rejim End Get Set Me._baska_rejim = Value End Set End Property Public Property Aciklama() As String Get Return Me._aciklama End Get Set Me._aciklama = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Ozetbeyan)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Ozetbeyan 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 Ozetbeyan object ''' ''' string workflow markup to deserialize ''' Output Ozetbeyan 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 Ozetbeyan, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Ozetbeyan) 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 Ozetbeyan) 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 Ozetbeyan Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Ozetbeyan) 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 Ozetbeyan Return CType(Serializer.Deserialize(s), Ozetbeyan) End Function #End Region ''' ''' Serializes current Ozetbeyan 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 Ozetbeyan object ''' ''' string xml file to load and deserialize ''' Output Ozetbeyan 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 Ozetbeyan, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Ozetbeyan) 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 Ozetbeyan) 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 Ozetbeyan 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 ArrayOfTasimasenetleri #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTasimasenetleri)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfTasimasenetleri 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 ArrayOfTasimasenetleri object ''' ''' string workflow markup to deserialize ''' Output ArrayOfTasimasenetleri 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 ArrayOfTasimasenetleri, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri Return CType(Serializer.Deserialize(s), ArrayOfTasimasenetleri) End Function #End Region ''' ''' Serializes current ArrayOfTasimasenetleri 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 ArrayOfTasimasenetleri object ''' ''' string xml file to load and deserialize ''' Output ArrayOfTasimasenetleri 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 ArrayOfTasimasenetleri, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri) 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 ArrayOfTasimasenetleri 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 tasimasenetleri #Region "Private fields" Private _tasima_senedi_no As String Private _tasimasatir_bilgi As ArrayOfTasimasatirlari Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._tasimasatir_bilgi = New ArrayOfTasimasatirlari() End Sub Public Property Tasima_senedi_no() As String Get Return Me._tasima_senedi_no End Get Set Me._tasima_senedi_no = Value End Set End Property Public Property tasimasatir_bilgi() As ArrayOfTasimasatirlari Get Return Me._tasimasatir_bilgi End Get Set Me._tasimasatir_bilgi = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tasimasenetleri)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current tasimasenetleri 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 tasimasenetleri object ''' ''' string workflow markup to deserialize ''' Output tasimasenetleri 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 tasimasenetleri, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tasimasenetleri) 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 tasimasenetleri) 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 tasimasenetleri Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tasimasenetleri) 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 tasimasenetleri Return CType(Serializer.Deserialize(s), tasimasenetleri) End Function #End Region ''' ''' Serializes current tasimasenetleri 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 tasimasenetleri object ''' ''' string xml file to load and deserialize ''' Output tasimasenetleri 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 tasimasenetleri, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tasimasenetleri) 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 tasimasenetleri) 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 tasimasenetleri 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 ArrayOfTasimasatirlari #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTasimasatirlari)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfTasimasatirlari 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 ArrayOfTasimasatirlari object ''' ''' string workflow markup to deserialize ''' Output ArrayOfTasimasatirlari 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 ArrayOfTasimasatirlari, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari Return CType(Serializer.Deserialize(s), ArrayOfTasimasatirlari) End Function #End Region ''' ''' Serializes current ArrayOfTasimasatirlari 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 ArrayOfTasimasatirlari object ''' ''' string xml file to load and deserialize ''' Output ArrayOfTasimasatirlari 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 ArrayOfTasimasatirlari, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari) 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 ArrayOfTasimasatirlari 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 tasimasatirlari #Region "Private fields" Private _tasima_satir_no As String Private _ambar_kodu As String Private Shared sSerializer As XmlSerializer #End Region Public Property Tasima_satir_no() As String Get Return Me._tasima_satir_no End Get Set Me._tasima_satir_no = Value End Set End Property Public Property Ambar_kodu() As String Get Return Me._ambar_kodu End Get Set Me._ambar_kodu = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tasimasatirlari)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current tasimasatirlari 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 tasimasatirlari object ''' ''' string workflow markup to deserialize ''' Output tasimasatirlari 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 tasimasatirlari, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tasimasatirlari) 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 tasimasatirlari) 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 tasimasatirlari Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tasimasatirlari) 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 tasimasatirlari Return CType(Serializer.Deserialize(s), tasimasatirlari) End Function #End Region ''' ''' Serializes current tasimasatirlari 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 tasimasatirlari object ''' ''' string xml file to load and deserialize ''' Output tasimasatirlari 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 tasimasatirlari, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tasimasatirlari) 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 tasimasatirlari) 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 tasimasatirlari 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 kalem #Region "Private fields" Private _tamamlayici_bilgi As ArrayOfTamamlayici Private _tcgbacmakapatma_bilgi As ArrayOfTcgbacmakapatma Private _marka_model_bilgi As ArrayOfMarka Private _konteyner_Bilgi As ArrayOfKonteyner Private _vergiMuafiyetleri As ArrayOfVergiMuafiyeti Private _havacilikYakitTurleri As ArrayOfHavacilikYakitTuru Private _odemeSekilleri As ArrayOfOdemeSekli Private _gtip As String Private _imalatci_firma_bilgisi As String Private _kalem_sira_no As Integer Private _mensei_ulke As String Private _tamamlayici_olcu_birimi As String Private _uluslararasi_anlasma As String Private _algilama_birimi_1 As String Private _algilama_birimi_2 As String Private _muafiyetler_1 As String Private _muafiyetler_2 As String Private _muafiyetler_3 As String Private _muafiyetler_4 As String Private _muafiyetler_5 As String Private _algilama_birimi_3 As String Private _teslim_sekli As String Private _ek_kod As String Private _ozellik As String Private _fatura_miktarinin_dovizi As String Private _navlun_miktarinin_dovizi As String Private _sigorta_miktarinin_dovizi As String Private _tarifedeki_tanimi As String Private _ticari_tanimi As String Private _marka As String Private _numara As String Private _cinsi As String Private _miktar_birimi As String Private _mahrece_iade As String Private _ikincil_islem As String Private _satir_no As String Private _kdv_orani As String Private _kullanilmis_esya As String Private _aciklama_44 As String Private _imalatci_Vergino As String Private _yurtici_Diger_Aciklama As String Private _muafiyet_Aciklamasi As String Private _referans_Tarihi As String Private _yurtDisi_Komisyon_Dovizi As String Private _yurtDisi_Demuraj_Dovizi As String Private _yurtDisi_Royalti_Dovizi As String Private _yurtDisi_Faiz_Dovizi As String Private _yurtDisi_Diger_Dovizi As String Private _yurtDisi_Diger_Aciklama As String Private _kalem_Islem_Niteligi As String Private _giris_Cikis_Amaci As String Private _giris_Cikis_Amaci_Aciklama As String Private _sTM_IlKodu As String Private _esyaGeriGelmeSebebi As String Private _esyaGeriGelmeSebebiAciklamasi As String Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._odemeSekilleri = New ArrayOfOdemeSekli() Me._havacilikYakitTurleri = New ArrayOfHavacilikYakitTuru() Me._vergiMuafiyetleri = New ArrayOfVergiMuafiyeti() Me._konteyner_Bilgi = New ArrayOfKonteyner() Me._marka_model_bilgi = New ArrayOfMarka() Me._tcgbacmakapatma_bilgi = New ArrayOfTcgbacmakapatma() Me._tamamlayici_bilgi = New ArrayOfTamamlayici() End Sub Public Property tamamlayici_bilgi() As ArrayOfTamamlayici Get Return Me._tamamlayici_bilgi End Get Set Me._tamamlayici_bilgi = Value End Set End Property Public Property tcgbacmakapatma_bilgi() As ArrayOfTcgbacmakapatma Get Return Me._tcgbacmakapatma_bilgi End Get Set Me._tcgbacmakapatma_bilgi = Value End Set End Property Public Property marka_model_bilgi() As ArrayOfMarka Get Return Me._marka_model_bilgi End Get Set Me._marka_model_bilgi = Value End Set End Property Public Property konteyner_Bilgi() As ArrayOfKonteyner Get Return Me._konteyner_Bilgi End Get Set Me._konteyner_Bilgi = Value End Set End Property Public Property VergiMuafiyetleri() As ArrayOfVergiMuafiyeti Get Return Me._vergiMuafiyetleri End Get Set Me._vergiMuafiyetleri = Value End Set End Property Public Property HavacilikYakitTurleri() As ArrayOfHavacilikYakitTuru Get Return Me._havacilikYakitTurleri End Get Set Me._havacilikYakitTurleri = Value End Set End Property Public Property OdemeSekilleri() As ArrayOfOdemeSekli Get Return Me._odemeSekilleri End Get Set Me._odemeSekilleri = Value End Set End Property Public Property Gtip() As String Get Return Me._gtip End Get Set Me._gtip = Value End Set End Property Public Property Imalatci_firma_bilgisi() As String Get Return Me._imalatci_firma_bilgisi End Get Set Me._imalatci_firma_bilgisi = Value End Set End Property Public Property Kalem_sira_no() As Integer Get Return Me._kalem_sira_no End Get Set Me._kalem_sira_no = Value End Set End Property Public Property Mensei_ulke() As String Get Return Me._mensei_ulke End Get Set Me._mensei_ulke = Value End Set End Property Public Property Tamamlayici_olcu_birimi() As String Get Return Me._tamamlayici_olcu_birimi End Get Set Me._tamamlayici_olcu_birimi = Value End Set End Property Public Property Uluslararasi_anlasma() As String Get Return Me._uluslararasi_anlasma End Get Set Me._uluslararasi_anlasma = Value End Set End Property Public Property Algilama_birimi_1() As String Get Return Me._algilama_birimi_1 End Get Set Me._algilama_birimi_1 = Value End Set End Property Public Property Algilama_birimi_2() As String Get Return Me._algilama_birimi_2 End Get Set Me._algilama_birimi_2 = Value End Set End Property Public Property Muafiyetler_1() As String Get Return Me._muafiyetler_1 End Get Set Me._muafiyetler_1 = Value End Set End Property Public Property Muafiyetler_2() As String Get Return Me._muafiyetler_2 End Get Set Me._muafiyetler_2 = Value End Set End Property Public Property Muafiyetler_3() As String Get Return Me._muafiyetler_3 End Get Set Me._muafiyetler_3 = Value End Set End Property Public Property Muafiyetler_4() As String Get Return Me._muafiyetler_4 End Get Set Me._muafiyetler_4 = Value End Set End Property Public Property Muafiyetler_5() As String Get Return Me._muafiyetler_5 End Get Set Me._muafiyetler_5 = Value End Set End Property Public Property Algilama_birimi_3() As String Get Return Me._algilama_birimi_3 End Get Set Me._algilama_birimi_3 = Value End Set End Property Public Property Teslim_sekli() As String Get Return Me._teslim_sekli End Get Set Me._teslim_sekli = Value End Set End Property Public Property Ek_kod() As String Get Return Me._ek_kod End Get Set Me._ek_kod = Value End Set End Property Public Property Ozellik() As String Get Return Me._ozellik End Get Set Me._ozellik = Value End Set End Property Public Property Fatura_miktarinin_dovizi() As String Get Return Me._fatura_miktarinin_dovizi End Get Set Me._fatura_miktarinin_dovizi = Value End Set End Property Public Property Navlun_miktarinin_dovizi() As String Get Return Me._navlun_miktarinin_dovizi End Get Set Me._navlun_miktarinin_dovizi = Value End Set End Property Public Property Sigorta_miktarinin_dovizi() As String Get Return Me._sigorta_miktarinin_dovizi End Get Set Me._sigorta_miktarinin_dovizi = Value End Set End Property Public Property Tarifedeki_tanimi() As String Get Return Me._tarifedeki_tanimi End Get Set Me._tarifedeki_tanimi = Value End Set End Property Public Property Ticari_tanimi() As String Get Return Me._ticari_tanimi End Get Set Me._ticari_tanimi = Value End Set End Property Public Property Marka() As String Get Return Me._marka End Get Set Me._marka = Value End Set End Property Public Property Numara() As String Get Return Me._numara End Get Set Me._numara = Value End Set End Property Public Property Cinsi() As String Get Return Me._cinsi End Get Set Me._cinsi = Value End Set End Property Public Property Miktar_birimi() As String Get Return Me._miktar_birimi End Get Set Me._miktar_birimi = Value End Set End Property Public Property Mahrece_iade() As String Get Return Me._mahrece_iade End Get Set Me._mahrece_iade = Value End Set End Property Public Property Ikincil_islem() As String Get Return Me._ikincil_islem End Get Set Me._ikincil_islem = Value End Set End Property Public Property Satir_no() As String Get Return Me._satir_no End Get Set Me._satir_no = Value End Set End Property Public Property Kdv_orani() As String Get Return Me._kdv_orani End Get Set Me._kdv_orani = Value End Set End Property Public Property Kullanilmis_esya() As String Get Return Me._kullanilmis_esya End Get Set Me._kullanilmis_esya = Value End Set End Property Public Property Aciklama_44() As String Get Return Me._aciklama_44 End Get Set Me._aciklama_44 = Value End Set End Property Public Property Imalatci_Vergino() As String Get Return Me._imalatci_Vergino End Get Set Me._imalatci_Vergino = Value End Set End Property Public Property Yurtici_Diger_Aciklama() As String Get Return Me._yurtici_Diger_Aciklama End Get Set Me._yurtici_Diger_Aciklama = Value End Set End Property Public Property Muafiyet_Aciklamasi() As String Get Return Me._muafiyet_Aciklamasi End Get Set Me._muafiyet_Aciklamasi = Value End Set End Property Public Property Referans_Tarihi() As String Get Return Me._referans_Tarihi End Get Set Me._referans_Tarihi = Value End Set End Property Public Property YurtDisi_Komisyon_Dovizi() As String Get Return Me._yurtDisi_Komisyon_Dovizi End Get Set Me._yurtDisi_Komisyon_Dovizi = Value End Set End Property Public Property YurtDisi_Demuraj_Dovizi() As String Get Return Me._yurtDisi_Demuraj_Dovizi End Get Set Me._yurtDisi_Demuraj_Dovizi = Value End Set End Property Public Property YurtDisi_Royalti_Dovizi() As String Get Return Me._yurtDisi_Royalti_Dovizi End Get Set Me._yurtDisi_Royalti_Dovizi = Value End Set End Property Public Property YurtDisi_Faiz_Dovizi() As String Get Return Me._yurtDisi_Faiz_Dovizi End Get Set Me._yurtDisi_Faiz_Dovizi = Value End Set End Property Public Property YurtDisi_Diger_Dovizi() As String Get Return Me._yurtDisi_Diger_Dovizi End Get Set Me._yurtDisi_Diger_Dovizi = Value End Set End Property Public Property YurtDisi_Diger_Aciklama() As String Get Return Me._yurtDisi_Diger_Aciklama End Get Set Me._yurtDisi_Diger_Aciklama = Value End Set End Property Public Property Kalem_Islem_Niteligi() As String Get Return Me._kalem_Islem_Niteligi End Get Set Me._kalem_Islem_Niteligi = Value End Set End Property Public Property Giris_Cikis_Amaci() As String Get Return Me._giris_Cikis_Amaci End Get Set Me._giris_Cikis_Amaci = Value End Set End Property Public Property Giris_Cikis_Amaci_Aciklama() As String Get Return Me._giris_Cikis_Amaci_Aciklama End Get Set Me._giris_Cikis_Amaci_Aciklama = Value End Set End Property Public Property STM_IlKodu() As String Get Return Me._sTM_IlKodu End Get Set Me._sTM_IlKodu = Value End Set End Property Public Property EsyaGeriGelmeSebebi() As String Get Return Me._esyaGeriGelmeSebebi End Get Set Me._esyaGeriGelmeSebebi = Value End Set End Property Public Property EsyaGeriGelmeSebebiAciklamasi() As String Get Return Me._esyaGeriGelmeSebebiAciklamasi End Get Set Me._esyaGeriGelmeSebebiAciklamasi = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(kalem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current kalem 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 kalem object ''' ''' string workflow markup to deserialize ''' Output kalem 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 kalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, kalem) 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 kalem) 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 kalem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), kalem) 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 kalem Return CType(Serializer.Deserialize(s), kalem) End Function #End Region ''' ''' Serializes current kalem 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 kalem object ''' ''' string xml file to load and deserialize ''' Output kalem 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 kalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, kalem) 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 kalem) 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 kalem 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 ArrayOfTamamlayici #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTamamlayici)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfTamamlayici 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 ArrayOfTamamlayici object ''' ''' string workflow markup to deserialize ''' Output ArrayOfTamamlayici 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 ArrayOfTamamlayici, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTamamlayici) 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 ArrayOfTamamlayici) 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 ArrayOfTamamlayici Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTamamlayici) 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 ArrayOfTamamlayici Return CType(Serializer.Deserialize(s), ArrayOfTamamlayici) End Function #End Region ''' ''' Serializes current ArrayOfTamamlayici 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 ArrayOfTamamlayici object ''' ''' string xml file to load and deserialize ''' Output ArrayOfTamamlayici 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 ArrayOfTamamlayici, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTamamlayici) 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 ArrayOfTamamlayici) 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 ArrayOfTamamlayici 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 ArrayOfTcgbacmakapatma #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfTcgbacmakapatma)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfTcgbacmakapatma 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 ArrayOfTcgbacmakapatma object ''' ''' string workflow markup to deserialize ''' Output ArrayOfTcgbacmakapatma 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 ArrayOfTcgbacmakapatma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma Return CType(Serializer.Deserialize(s), ArrayOfTcgbacmakapatma) End Function #End Region ''' ''' Serializes current ArrayOfTcgbacmakapatma 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 ArrayOfTcgbacmakapatma object ''' ''' string xml file to load and deserialize ''' Output ArrayOfTcgbacmakapatma 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 ArrayOfTcgbacmakapatma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma) 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 ArrayOfTcgbacmakapatma 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 ArrayOfMarka #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfMarka)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfMarka 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 ArrayOfMarka object ''' ''' string workflow markup to deserialize ''' Output ArrayOfMarka 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 ArrayOfMarka, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfMarka) 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 ArrayOfMarka) 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 ArrayOfMarka Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfMarka) 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 ArrayOfMarka Return CType(Serializer.Deserialize(s), ArrayOfMarka) End Function #End Region ''' ''' Serializes current ArrayOfMarka 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 ArrayOfMarka object ''' ''' string xml file to load and deserialize ''' Output ArrayOfMarka 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 ArrayOfMarka, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfMarka) 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 ArrayOfMarka) 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 ArrayOfMarka 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 ArrayOfKonteyner #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKonteyner)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfKonteyner 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 ArrayOfKonteyner object ''' ''' string workflow markup to deserialize ''' Output ArrayOfKonteyner 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 ArrayOfKonteyner, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKonteyner) 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 ArrayOfKonteyner) 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 ArrayOfKonteyner Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKonteyner) 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 ArrayOfKonteyner Return CType(Serializer.Deserialize(s), ArrayOfKonteyner) End Function #End Region ''' ''' Serializes current ArrayOfKonteyner 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 ArrayOfKonteyner object ''' ''' string xml file to load and deserialize ''' Output ArrayOfKonteyner 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 ArrayOfKonteyner, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKonteyner) 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 ArrayOfKonteyner) 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 ArrayOfKonteyner 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 ArrayOfVergiMuafiyeti #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfVergiMuafiyeti)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfVergiMuafiyeti 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 ArrayOfVergiMuafiyeti object ''' ''' string workflow markup to deserialize ''' Output ArrayOfVergiMuafiyeti 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 ArrayOfVergiMuafiyeti, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti Return CType(Serializer.Deserialize(s), ArrayOfVergiMuafiyeti) End Function #End Region ''' ''' Serializes current ArrayOfVergiMuafiyeti 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 ArrayOfVergiMuafiyeti object ''' ''' string xml file to load and deserialize ''' Output ArrayOfVergiMuafiyeti 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 ArrayOfVergiMuafiyeti, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti) 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 ArrayOfVergiMuafiyeti 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 ArrayOfHavacilikYakitTuru #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfHavacilikYakitTuru)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfHavacilikYakitTuru 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 ArrayOfHavacilikYakitTuru object ''' ''' string workflow markup to deserialize ''' Output ArrayOfHavacilikYakitTuru 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 ArrayOfHavacilikYakitTuru, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru Return CType(Serializer.Deserialize(s), ArrayOfHavacilikYakitTuru) End Function #End Region ''' ''' Serializes current ArrayOfHavacilikYakitTuru 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 ArrayOfHavacilikYakitTuru object ''' ''' string xml file to load and deserialize ''' Output ArrayOfHavacilikYakitTuru 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 ArrayOfHavacilikYakitTuru, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru) 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 ArrayOfHavacilikYakitTuru 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 ArrayOfOdemeSekli #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfOdemeSekli)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfOdemeSekli 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 ArrayOfOdemeSekli object ''' ''' string workflow markup to deserialize ''' Output ArrayOfOdemeSekli 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 ArrayOfOdemeSekli, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli Return CType(Serializer.Deserialize(s), ArrayOfOdemeSekli) End Function #End Region ''' ''' Serializes current ArrayOfOdemeSekli 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 ArrayOfOdemeSekli object ''' ''' string xml file to load and deserialize ''' Output ArrayOfOdemeSekli 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 ArrayOfOdemeSekli, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli) 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 ArrayOfOdemeSekli 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 tamamlayici #Region "Private fields" Private _tamamlayici_bilgi As String Private _tamamlayici_bilgi_orani As String Private Shared sSerializer As XmlSerializer #End Region Public Property Tamamlayici_bilgi() As String Get Return Me._tamamlayici_bilgi End Get Set Me._tamamlayici_bilgi = Value End Set End Property Public Property Tamamlayici_bilgi_orani() As String Get Return Me._tamamlayici_bilgi_orani End Get Set Me._tamamlayici_bilgi_orani = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tamamlayici)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current tamamlayici 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 tamamlayici object ''' ''' string workflow markup to deserialize ''' Output tamamlayici 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 tamamlayici, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tamamlayici) 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 tamamlayici) 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 tamamlayici Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tamamlayici) 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 tamamlayici Return CType(Serializer.Deserialize(s), tamamlayici) End Function #End Region ''' ''' Serializes current tamamlayici 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 tamamlayici object ''' ''' string xml file to load and deserialize ''' Output tamamlayici 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 tamamlayici, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tamamlayici) 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 tamamlayici) 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 tamamlayici 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 tcgbacmakapatma #Region "Private fields" Private _kapatilan_beyanname_no As String Private _kapatilan_kalem_no As Integer Private _aciklama As String Private Shared sSerializer As XmlSerializer #End Region Public Property Kapatilan_beyanname_no() As String Get Return Me._kapatilan_beyanname_no End Get Set Me._kapatilan_beyanname_no = Value End Set End Property Public Property Kapatilan_kalem_no() As Integer Get Return Me._kapatilan_kalem_no End Get Set Me._kapatilan_kalem_no = Value End Set End Property Public Property Aciklama() As String Get Return Me._aciklama End Get Set Me._aciklama = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(tcgbacmakapatma)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current tcgbacmakapatma 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 tcgbacmakapatma object ''' ''' string workflow markup to deserialize ''' Output tcgbacmakapatma 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 tcgbacmakapatma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tcgbacmakapatma) 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 tcgbacmakapatma) 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 tcgbacmakapatma Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), tcgbacmakapatma) 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 tcgbacmakapatma Return CType(Serializer.Deserialize(s), tcgbacmakapatma) End Function #End Region ''' ''' Serializes current tcgbacmakapatma 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 tcgbacmakapatma object ''' ''' string xml file to load and deserialize ''' Output tcgbacmakapatma 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 tcgbacmakapatma, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, tcgbacmakapatma) 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 tcgbacmakapatma) 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 tcgbacmakapatma 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 Marka #Region "Private fields" Private _marka_Turu As String Private _marka_Tescil_No As String Private _marka_Adi As String Private _referans_No As String Private _model_Yili As String Private _model As String Private _motor_hacmi As String Private _silindir_adedi As Integer Private _renk As String Private _motorTipi As String Private _motorNo As String Private _motorGucu As Integer Private _vites As String Private _iMEINo As String Private Shared sSerializer As XmlSerializer #End Region Public Property Marka_Turu() As String Get Return Me._marka_Turu End Get Set Me._marka_Turu = Value End Set End Property Public Property Marka_Tescil_No() As String Get Return Me._marka_Tescil_No End Get Set Me._marka_Tescil_No = Value End Set End Property Public Property Marka_Adi() As String Get Return Me._marka_Adi End Get Set Me._marka_Adi = Value End Set End Property Public Property Referans_No() As String Get Return Me._referans_No End Get Set Me._referans_No = Value End Set End Property Public Property Model_Yili() As String Get Return Me._model_Yili End Get Set Me._model_Yili = Value End Set End Property Public Property Model() As String Get Return Me._model End Get Set Me._model = Value End Set End Property Public Property Motor_hacmi() As String Get Return Me._motor_hacmi End Get Set Me._motor_hacmi = Value End Set End Property Public Property Silindir_adedi() As Integer Get Return Me._silindir_adedi End Get Set Me._silindir_adedi = Value End Set End Property Public Property Renk() As String Get Return Me._renk End Get Set Me._renk = Value End Set End Property Public Property MotorTipi() As String Get Return Me._motorTipi End Get Set Me._motorTipi = Value End Set End Property Public Property MotorNo() As String Get Return Me._motorNo End Get Set Me._motorNo = Value End Set End Property Public Property MotorGucu() As Integer Get Return Me._motorGucu End Get Set Me._motorGucu = Value End Set End Property Public Property Vites() As String Get Return Me._vites End Get Set Me._vites = Value End Set End Property Public Property IMEINo() As String Get Return Me._iMEINo End Get Set Me._iMEINo = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Marka)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Marka 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 Marka object ''' ''' string workflow markup to deserialize ''' Output Marka 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 Marka, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Marka) 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 Marka) 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 Marka Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Marka) 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 Marka Return CType(Serializer.Deserialize(s), Marka) End Function #End Region ''' ''' Serializes current Marka 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 Marka object ''' ''' string xml file to load and deserialize ''' Output Marka 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 Marka, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Marka) 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 Marka) 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 Marka 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 Konteyner #Region "Private fields" Private _konteyner_No As String Private _ulke_Kodu As String Private Shared sSerializer As XmlSerializer #End Region Public Property Konteyner_No() As String Get Return Me._konteyner_No End Get Set Me._konteyner_No = Value End Set End Property Public Property Ulke_Kodu() As String Get Return Me._ulke_Kodu End Get Set Me._ulke_Kodu = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Konteyner)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Konteyner 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 Konteyner object ''' ''' string workflow markup to deserialize ''' Output Konteyner 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 Konteyner, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Konteyner) 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 Konteyner) 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 Konteyner Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Konteyner) 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 Konteyner Return CType(Serializer.Deserialize(s), Konteyner) End Function #End Region ''' ''' Serializes current Konteyner 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 Konteyner object ''' ''' string xml file to load and deserialize ''' Output Konteyner 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 Konteyner, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Konteyner) 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 Konteyner) 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 Konteyner 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 VergiMuafiyeti #Region "Private fields" Private _vergiMuafiyetKodu As String Private Shared sSerializer As XmlSerializer #End Region Public Property VergiMuafiyetKodu() As String Get Return Me._vergiMuafiyetKodu End Get Set Me._vergiMuafiyetKodu = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VergiMuafiyeti)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current VergiMuafiyeti 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 VergiMuafiyeti object ''' ''' string workflow markup to deserialize ''' Output VergiMuafiyeti 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 VergiMuafiyeti, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VergiMuafiyeti) 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 VergiMuafiyeti) 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 VergiMuafiyeti Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VergiMuafiyeti) 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 VergiMuafiyeti Return CType(Serializer.Deserialize(s), VergiMuafiyeti) End Function #End Region ''' ''' Serializes current VergiMuafiyeti 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 VergiMuafiyeti object ''' ''' string xml file to load and deserialize ''' Output VergiMuafiyeti 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 VergiMuafiyeti, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, VergiMuafiyeti) 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 VergiMuafiyeti) 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 VergiMuafiyeti 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 HavacilikYakitTuru #Region "Private fields" Private _vergiNumarasi As String Private _faturaTarihi As String Private _faturaNumarasi As String Private _toplamFaturaMiktar As String Private _yakitTuru As String Private Shared sSerializer As XmlSerializer #End Region Public Property VergiNumarasi() As String Get Return Me._vergiNumarasi End Get Set Me._vergiNumarasi = Value End Set End Property Public Property FaturaTarihi() As String Get Return Me._faturaTarihi End Get Set Me._faturaTarihi = Value End Set End Property Public Property FaturaNumarasi() As String Get Return Me._faturaNumarasi End Get Set Me._faturaNumarasi = Value End Set End Property Public Property ToplamFaturaMiktar() As String Get Return Me._toplamFaturaMiktar End Get Set Me._toplamFaturaMiktar = Value End Set End Property Public Property YakitTuru() As String Get Return Me._yakitTuru End Get Set Me._yakitTuru = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(HavacilikYakitTuru)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current HavacilikYakitTuru 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 HavacilikYakitTuru object ''' ''' string workflow markup to deserialize ''' Output HavacilikYakitTuru 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 HavacilikYakitTuru, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HavacilikYakitTuru) 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 HavacilikYakitTuru) 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 HavacilikYakitTuru Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), HavacilikYakitTuru) 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 HavacilikYakitTuru Return CType(Serializer.Deserialize(s), HavacilikYakitTuru) End Function #End Region ''' ''' Serializes current HavacilikYakitTuru 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 HavacilikYakitTuru object ''' ''' string xml file to load and deserialize ''' Output HavacilikYakitTuru 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 HavacilikYakitTuru, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, HavacilikYakitTuru) 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 HavacilikYakitTuru) 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 HavacilikYakitTuru 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 OdemeSekli #Region "Private fields" Private _odemeSekliKodu As String Private _tBFID As String Private Shared sSerializer As XmlSerializer #End Region Public Property OdemeSekliKodu() As String Get Return Me._odemeSekliKodu End Get Set Me._odemeSekliKodu = Value End Set End Property Public Property TBFID() As String Get Return Me._tBFID End Get Set Me._tBFID = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(OdemeSekli)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current OdemeSekli 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 OdemeSekli object ''' ''' string workflow markup to deserialize ''' Output OdemeSekli 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 OdemeSekli, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, OdemeSekli) 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 OdemeSekli) 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 OdemeSekli Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), OdemeSekli) 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 OdemeSekli Return CType(Serializer.Deserialize(s), OdemeSekli) End Function #End Region ''' ''' Serializes current OdemeSekli 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 OdemeSekli object ''' ''' string xml file to load and deserialize ''' Output OdemeSekli 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 OdemeSekli, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, OdemeSekli) 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 OdemeSekli) 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 OdemeSekli 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 Soru_Cevap #Region "Private fields" Private _kalem_no As Integer Private _soru_no As String Private _cevap As String Private Shared sSerializer As XmlSerializer #End Region Public Property Kalem_no() As Integer Get Return Me._kalem_no End Get Set Me._kalem_no = Value End Set End Property Public Property Soru_no() As String Get Return Me._soru_no End Get Set Me._soru_no = Value End Set End Property Public Property Cevap() As String Get Return Me._cevap End Get Set Me._cevap = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Soru_Cevap)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Soru_Cevap 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 Soru_Cevap object ''' ''' string workflow markup to deserialize ''' Output Soru_Cevap 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 Soru_Cevap, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Soru_Cevap) 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 Soru_Cevap) 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 Soru_Cevap Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Soru_Cevap) 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 Soru_Cevap Return CType(Serializer.Deserialize(s), Soru_Cevap) End Function #End Region ''' ''' Serializes current Soru_Cevap 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 Soru_Cevap object ''' ''' string xml file to load and deserialize ''' Output Soru_Cevap 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 Soru_Cevap, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Soru_Cevap) 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 Soru_Cevap) 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 Soru_Cevap 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 Dokuman #Region "Private fields" Private _kalem_no As Integer Private _kod As String Private _dogrulama As String Private _belge_tarihi As String Private _referans As String Private _vize_Tarihi As String Private Shared sSerializer As XmlSerializer #End Region Public Property Kalem_no() As Integer Get Return Me._kalem_no End Get Set Me._kalem_no = Value End Set End Property Public Property Kod() As String Get Return Me._kod End Get Set Me._kod = Value End Set End Property Public Property Dogrulama() As String Get Return Me._dogrulama End Get Set Me._dogrulama = Value End Set End Property Public Property Belge_tarihi() As String Get Return Me._belge_tarihi End Get Set Me._belge_tarihi = Value End Set End Property Public Property Referans() As String Get Return Me._referans End Get Set Me._referans = Value End Set End Property Public Property Vize_Tarihi() As String Get Return Me._vize_Tarihi End Get Set Me._vize_Tarihi = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Dokuman)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Dokuman 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 Dokuman object ''' ''' string workflow markup to deserialize ''' Output Dokuman 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 Dokuman, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Dokuman) 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 Dokuman) 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 Dokuman Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Dokuman) 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 Dokuman Return CType(Serializer.Deserialize(s), Dokuman) End Function #End Region ''' ''' Serializes current Dokuman 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 Dokuman object ''' ''' string xml file to load and deserialize ''' Output Dokuman 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 Dokuman, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Dokuman) 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 Dokuman) 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 Dokuman 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 Vergi #Region "Private fields" Private _kalem_no As Integer Private _kod As String Private _aciklama As String Private _oran As String Private _odeme_sekli As String Private Shared sSerializer As XmlSerializer #End Region Public Property Kalem_no() As Integer Get Return Me._kalem_no End Get Set Me._kalem_no = Value End Set End Property Public Property Kod() As String Get Return Me._kod End Get Set Me._kod = Value End Set End Property Public Property Aciklama() As String Get Return Me._aciklama End Get Set Me._aciklama = Value End Set End Property Public Property Oran() As String Get Return Me._oran End Get Set Me._oran = Value End Set End Property Public Property Odeme_sekli() As String Get Return Me._odeme_sekli End Get Set Me._odeme_sekli = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Vergi)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Vergi 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 Vergi object ''' ''' string workflow markup to deserialize ''' Output Vergi 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 Vergi, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Vergi) 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 Vergi) 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 Vergi Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Vergi) 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 Vergi Return CType(Serializer.Deserialize(s), Vergi) End Function #End Region ''' ''' Serializes current Vergi 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 Vergi object ''' ''' string xml file to load and deserialize ''' Output Vergi 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 Vergi, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Vergi) 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 Vergi) 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 Vergi 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 Kiymet #Region "Private fields" Private _teslimSekli As String Private _faturaTarihiSayisi As String Private _sozlesmeTarihiSayisi As String Private _gumrukIdaresiKarari As String Private _aliciSatici As String Private _munasebet As String Private _emsal As String Private _aliciSaticiAyrintilar As String Private _kisitlamalar As String Private _edim As String Private _kisitlamalarAyrintilar As String Private _royalti As String Private _royaltiKosullar As String Private _saticiyaIntikal As String Private _saticiyaIntikalKosullar As String Private _sehirYer As String Private _taahutname As String Private _kiymetKalemler As ArrayOfKiymetKalem Private Shared sSerializer As XmlSerializer #End Region Public Sub New() MyBase.New Me._kiymetKalemler = New ArrayOfKiymetKalem() End Sub Public Property TeslimSekli() As String Get Return Me._teslimSekli End Get Set Me._teslimSekli = Value End Set End Property Public Property FaturaTarihiSayisi() As String Get Return Me._faturaTarihiSayisi End Get Set Me._faturaTarihiSayisi = Value End Set End Property Public Property SozlesmeTarihiSayisi() As String Get Return Me._sozlesmeTarihiSayisi End Get Set Me._sozlesmeTarihiSayisi = Value End Set End Property Public Property GumrukIdaresiKarari() As String Get Return Me._gumrukIdaresiKarari End Get Set Me._gumrukIdaresiKarari = Value End Set End Property Public Property AliciSatici() As String Get Return Me._aliciSatici End Get Set Me._aliciSatici = Value End Set End Property Public Property Munasebet() As String Get Return Me._munasebet End Get Set Me._munasebet = Value End Set End Property Public Property Emsal() As String Get Return Me._emsal End Get Set Me._emsal = Value End Set End Property Public Property AliciSaticiAyrintilar() As String Get Return Me._aliciSaticiAyrintilar End Get Set Me._aliciSaticiAyrintilar = Value End Set End Property Public Property Kisitlamalar() As String Get Return Me._kisitlamalar End Get Set Me._kisitlamalar = Value End Set End Property Public Property Edim() As String Get Return Me._edim End Get Set Me._edim = Value End Set End Property Public Property KisitlamalarAyrintilar() As String Get Return Me._kisitlamalarAyrintilar End Get Set Me._kisitlamalarAyrintilar = Value End Set End Property Public Property Royalti() As String Get Return Me._royalti End Get Set Me._royalti = Value End Set End Property Public Property RoyaltiKosullar() As String Get Return Me._royaltiKosullar End Get Set Me._royaltiKosullar = Value End Set End Property Public Property SaticiyaIntikal() As String Get Return Me._saticiyaIntikal End Get Set Me._saticiyaIntikal = Value End Set End Property Public Property SaticiyaIntikalKosullar() As String Get Return Me._saticiyaIntikalKosullar End Get Set Me._saticiyaIntikalKosullar = Value End Set End Property Public Property SehirYer() As String Get Return Me._sehirYer End Get Set Me._sehirYer = Value End Set End Property Public Property Taahutname() As String Get Return Me._taahutname End Get Set Me._taahutname = Value End Set End Property Public Property KiymetKalemler() As ArrayOfKiymetKalem Get Return Me._kiymetKalemler End Get Set Me._kiymetKalemler = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(Kiymet)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current Kiymet 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 Kiymet object ''' ''' string workflow markup to deserialize ''' Output Kiymet 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 Kiymet, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Kiymet) 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 Kiymet) 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 Kiymet Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), Kiymet) 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 Kiymet Return CType(Serializer.Deserialize(s), Kiymet) End Function #End Region ''' ''' Serializes current Kiymet 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 Kiymet object ''' ''' string xml file to load and deserialize ''' Output Kiymet 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 Kiymet, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, Kiymet) 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 Kiymet) 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 Kiymet 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 ArrayOfKiymetKalem #Region "Private fields" Private Shared sSerializer As XmlSerializer #End Region Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(ArrayOfKiymetKalem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current ArrayOfKiymetKalem 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 ArrayOfKiymetKalem object ''' ''' string workflow markup to deserialize ''' Output ArrayOfKiymetKalem 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 ArrayOfKiymetKalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem Return CType(Serializer.Deserialize(s), ArrayOfKiymetKalem) End Function #End Region ''' ''' Serializes current ArrayOfKiymetKalem 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 ArrayOfKiymetKalem object ''' ''' string xml file to load and deserialize ''' Output ArrayOfKiymetKalem 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 ArrayOfKiymetKalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem) 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 ArrayOfKiymetKalem 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 KiymetKalem #Region "Private fields" Private _kiymetKalemNo As Integer Private _beyannameKalemNo As Integer Private _digerOdemelerNiteligi As String Private Shared sSerializer As XmlSerializer #End Region Public Property KiymetKalemNo() As Integer Get Return Me._kiymetKalemNo End Get Set Me._kiymetKalemNo = Value End Set End Property Public Property BeyannameKalemNo() As Integer Get Return Me._beyannameKalemNo End Get Set Me._beyannameKalemNo = Value End Set End Property Public Property DigerOdemelerNiteligi() As String Get Return Me._digerOdemelerNiteligi End Get Set Me._digerOdemelerNiteligi = Value End Set End Property Private Shared ReadOnly Property Serializer() As XmlSerializer Get If (sSerializer Is Nothing) Then sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(KiymetKalem)) End If Return sSerializer End Get End Property #Region "Serialize/Deserialize" ''' ''' Serializes current KiymetKalem 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 KiymetKalem object ''' ''' string workflow markup to deserialize ''' Output KiymetKalem 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 KiymetKalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KiymetKalem) 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 KiymetKalem) 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 KiymetKalem Dim stringReader As System.IO.StringReader = Nothing Try stringReader = New System.IO.StringReader(input) Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), KiymetKalem) 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 KiymetKalem Return CType(Serializer.Deserialize(s), KiymetKalem) End Function #End Region ''' ''' Serializes current KiymetKalem 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 KiymetKalem object ''' ''' string xml file to load and deserialize ''' Output KiymetKalem 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 KiymetKalem, ByRef exception As System.Exception) As Boolean exception = Nothing obj = CType(Nothing, KiymetKalem) 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 KiymetKalem) 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 KiymetKalem 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