Moin,
ich muss für die Intrastat eine ASCII-Textdatei in einem festgelegten Format erzeugen. Die Datensatzbeschreibung hat 24 Einträge, Gesamtlänge 130 Byte inkl. CR + LF.
Ich habe mir ein Structure angelegt, diesen mit Daten gefüllt und möchte nun diese Structure-Daten in eine Textdatei speichern. Wie bekomme ich das hin ? Ich bekomme immer " Type mismatch error. Expected String, but got Daten.Wareneingang_Structure, t.Write
(Schon Klar, das ermeckert, aber wie bekomme ich diesen Structure gespeichert ?)
hier mein Code:
// …
Dim t as BinaryStream = BinaryStream.Create(f,True)
Do
i = i + 1
// Wareneingang lesen
App.m_wareneingang = New DataFile.wareneingang_rec // Instant erzeugen
App.m_wareneingang = DataFile.wareneingang_rec.FindByID(i) // Instanz füllen
IF App.m_Wareneingang <> NIL THEN
IF Monat_Jahr_Vergleichen(Monat,Jahr,App.m_Wareneingang.sWareneingang_Buchungsmonat,App.m_Wareneingang.sWareneingang_Buchungsjahr) THEN
IF App.m_Wareneingang.sWareneingang_DiskNr = “” THEN // noch nicht gespeichert
App.o_Wareneingang.Eingang = “1”
App.o_Wareneingang.Anmeldeform = “1”
App.o_Wareneingang.Anmeldemonat = Format(Monat.CDbl, “00”)
App.o_Wareneingang.Null01 = “00”
Paginierung = Paginierung + 1
App.o_Wareneingang.Positionsnummer =Format(Paginierung, “000000”)
App.o_Wareneingang.Leer01 = " "
// … Weitere Zuweisungen insgesamt 24 Stück
App.o_Wareneingang.WaehrungsKz = “2” // 2 = Euro
App.o_Wareneingang.CRLF = CHR(13) + CHR(12) // = 130 Zeichen
// hier ist der Fehler Anfang
t.Write App.o_Wareneingang
// hier ist der Fehler Ende
// Kennzeichnen der verarbeiteten Erfassung
App.m_Wareneingang.sWareneingang_DiskNr = sKennung // Update Datensatz
App.m_Wareneingang.sWareneingang_Datum_uebergeben = ddDate.SQLDate
App.m_Wareneingang.Save
end if
end if
end if
Loop until App.m_Wareneingang = NIL
t.Close
Frank