EDIFACT Rechnung erzeugen und an eine bestehendes PDF/A-3 Dokument anhängen
Mit diesem Code Snippet können Sie eine EDIFACT Datei erzeugen und auf der Festplatte speichern und auch an ein PDF/A-3 Dokument anhängen.
Public Sub BuildEdifact()
Dim mInterchange = New EdiInterchange(1, "ZZ", "STDSP5AC", "ZZ", "GTNEXUS", False)
Dim mGroup = mInterchange.CreateGroup(263, "QM", "STDSP5AC", "STDCERTSH")
Dim ediMessage = CreateMessage()
mGroup.AddMessage(ediMessage.data)
mInterchange.SaveXml("sample.xml")
mInterchange.SaveEdi("sample.edi")
mInterchange.SaveEdi("sample.txt", Environment.NewLine)
Dim doc As New PdfDocument("sample.pdf")
doc.AttachEditfactFromStream(New MemoryStream(Encoding.ASCII.GetBytes(mInterchange.Edi)))
End Sub
Dim mInterchange = New EdiInterchange(1, "ZZ", "STDSP5AC", "ZZ", "GTNEXUS", False)
Dim mGroup = mInterchange.CreateGroup(263, "QM", "STDSP5AC", "STDCERTSH")
Dim ediMessage = CreateMessage()
mGroup.AddMessage(ediMessage.data)
mInterchange.SaveXml("sample.xml")
mInterchange.SaveEdi("sample.edi")
mInterchange.SaveEdi("sample.txt", Environment.NewLine)
Dim doc As New PdfDocument("sample.pdf")
doc.AttachEditfactFromStream(New MemoryStream(Encoding.ASCII.GetBytes(mInterchange.Edi)))
End Sub