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