ich serialisiere mehrere Klassen.
PHP Code:
Sub Generiere_Status30()
Dim formatter As Xml.Serialization.XmlSerializer
Dim stream As System.IO.Stream
Dim Dateiname As String = ""
Dim Auftrag As New auftrag
Dim Nachricht As New nachricht
Dim Quittung As New quittung
Dim conMySQL As New MySql.Data.MySqlClient.MySqlConnection(Get_Connection_String)
Dim cmdMySQL As MySql.Data.MySqlClient.MySqlCommand
Dim readMySQL As MySql.Data.MySqlClient.MySqlDataReader
Dim query As String
Dateiname = "GEODIS_EXP" & "45" & "_" & Format(Now, "yyyyMMddHHmmss") & ".xml"
'query = "SELECT * FROM EXP_SEND WHERE KundenNr= 'G7106' AND Status=" & "45" & " AND AnKunden_Einlagerung is NULL AND Eingang > '2016-03-15'"
Dim dt As DateTime = DateTime.Parse(DateTime.UtcNow.ToString())
With Quittung
.nachricht.empfaenger = nachrichtEmpfaenger.XXXX
.nachricht.sender = nachrichtSender.XXXX
.nachricht.uhrzeit = dt.ToString("HH:mm:ss")
.nachricht.datum = dt.Date
.nachricht.nr = "1189"
.nachricht.typ = nachrichtenTyp.FreigegebenerAuftrag
.nachricht.datei = Dateiname
End With
With Nachricht
.typ = nachrichtenTyp.Quittung
.nr = "1189"
.datum = dt.Date
.uhrzeit = dt.ToString("HH:mm:ss")
.sender = nachrichtEmpfaenger.XXXX
.empfaenger = nachrichtSender.XXX
.user = "FileTranfer"
.telefon = "+494216490978"
.email = "sadsa"
End With
With Auftrag
.nr.GWRef = "123456"
.status.code = "30"
.status.bezeichnung = "freigegeben"
.status.uhrzeit = dt.ToString("HH:mm:ss")
End With
'Für die DLL Dateien als XML Exportieren
formatter = New Xml.Serialization.XmlSerializer(GetType(auftrag))
stream = System.IO.File.Open(parameter.Verz_Temp & Dateiname, System.IO.FileMode.Create)
formatter.Serialize(stream, Auftrag)
stream.Close()
Datei_nach_OSIS_OUT_und_Archiv(Dateiname)
End Sub
Wie schaffe ich es "Augtrag", "Quittung" und "nachricht" mit dem"formatter" zu serialisieren?
Muss ich in meinem XML Schema eine Oberklasse o.ä generieren?
Brauche bitte schnell Hilfe
Danke