Visual Basic Beispiel zur Erzeugung einer EDIFACT Rechnung (INVOIC)

Nachfolgender Code erstelle eine EDIFACT Rechnung mit Hilfe der DLL

Function TestCreateEDIDoc_by_API()
'erstellt eine EDI-Rechnung
Dim odoc As clsicEDIDoc
Dim oBeleg As clsicEDIBeleg
Dim oPos As clsicEDIBelegposition

'-----------------------------------------
' Dokument erzeugen und mit Werten belegen
'-----------------------------------------

Set odoc = New clsicEDIDoc

odoc.oTrennzeichen.bCRLF = True 'Zeilenumbruch nach jedem Segment

odoc.NachrichtenSyntaxIdent = "xx"
odoc.NachrichtenSyntaxVersion = "yy"


odoc.sAbsender = "4445556667"
odoc.sEmpfaengerTyp = "14" 'Hinweis: Typ 14 = ILN
odoc.sEmpfaenger = "1234567890"
odoc.sEmpfaengerTyp = "14"
odoc.sAbsendertyp = "SU"
odoc.sEmpfaengerTyp = "DP"
odoc.NachrichtenDatum = gsDate2EDI(Date)

Set oBeleg = New clsicEDIBeleg 'Belegobjekt erzeugen

'UNH-Segment
oBeleg.BelegIdentnummer = "M999999999A"
oBeleg.BelegTyp = "INVOIC" 'Rechnung
oBeleg.BelegVersionsnummer = "D"
oBeleg.BelegFreigabenummer = "96A"
oBeleg.BelegOrganisation = "UN"
oBeleg.BelegAnwendungscode = "EAN008"

'BGM Segment
oBeleg.Belegart = "380" 'normale Rechnung
oBeleg.Belegfunktion = "9"
oBeleg.Belegnummer = "275230"

'NAD-Segment (Typ "BY")
oBeleg.Adresse_BY.Name1 = "Kunde Käufer GmbH"
oBeleg.Adresse_BY.oAnsprechpartner.AnsprechpartnerName = "Hans Käufer"
oBeleg.Adresse_BY.oAnsprechpartner.EMail = "hans@kundekaeufer.de"
oBeleg.Adresse_BY.oAnsprechpartner.Telefon = "06842-321232"


oBeleg.Adresse_SU.Name1 = "Lieferer GmbH (Supplier, SU)"
oBeleg.Adresse_SU.oAnsprechpartner.AnsprechpartnerName = "Hans Beispiel"
oBeleg.Adresse_SU.oAnsprechpartner.EMail = "test@beispielxyz.de"
oBeleg.Adresse_SU.oAnsprechpartner.Telefon = "0711-1234-56"
oBeleg.Adresse_SU.oAnsprechpartner.Telefax = "0711-1234-99"

'hier können auch weitere Adressen definiert werden, z.B. oBeleg.Adresse_IV

odoc.colBelege.Add oBeleg 'Beleg an das Dokument anfügen
'Position(en) einfügen
Set oPos = New clsicEDIBelegposition 'Positionsobjekt erzeugen

oPos.Artikelnummer = "12345"
oPos.Artikelnummertyp = "SA"
oPos.ArtikelnummerKunde = "1232323"
oPos.EANNummer = "1234567890124"
oPos.Bezeichnung1 = "Bezeichnung Zeile 1"
oPos.Einzelpreis = 13.5
oPos.Mengeneinheit = "PCE" 'PCE = Stück
oPos.Versandmenge = 20

oBeleg.colPositionen.Add oPos 'Position an Beleg anfügen

'Konvertierung

odoc.gbConvert2EDI

'Speichern
odoc.gbSaveFile ("c:\edi.txt")

'zur Kontrolle mit Notepad öffnen
Shell "notepad.exe c:\edi.txt", vbNormalFocus


End Function