[57916] in SAPr3-news
=?iso-8859-1?q?Dokumente_=FCber_VBA_/_Bapi?=
daemon@ATHENA.MIT.EDU (robert)
Tue Aug 22 12:34:49 2006
To: sapr3-news@mit.edu
Date: 22 Aug 2006 09:34:05 -0700
From: "robert" <ro2007@gmx.de>
Message-ID: <1156264445.592386.47070@75g2000cwc.googlegroups.com>
Hallo NG,
versuche Dokumente mit VBA im SAP abzulegen. Aber leider funktioniert
es nicht richtig. Mein code sieht im Moment wie folgt aus. Hat jemand
eine Idee was man noch probieren k=F6nnte.
Bin mir bei der Pfadangabe ganz unsicher. Kenn das funktionieren oder
.=2E.???
Robert :-)
Set boBapiPln =3D SAP1.GetSAPObject("DRAW")
Set oReturn =3D SAP1.dimas(boBapiPln, "Create2", "Return")
Set oDocumentData =3D SAP1.dimas(boBapiPln, "Create2", "DocumentData")
oDocumentData.Value("DOCUMENTTYPE") =3D "RGM"
oDocumentData.Value("DOCUMENTNUMBER") =3D "test12345"
oDocumentData.Value("DOCUMENTVERSION") =3D "-"
oDocumentData.Value("DOCUMENTPART") =3D "000"
oDocumentData.Value("DESCRIPTION") =3D "test"
oDocumentData.Value("STATUSINTERN") =3D "01"
Set oDocumentFiles =3D SAP1.dimas(boBapiPln, "Create2", "DocumentFiles")
oDocumentFiles.Rows.Add
oDocumentFiles.Value(1, 2) =3D "RGM" 'Dokumentart
oDocumentFiles.Value(1, 3) =3D "12345" 'Dokumentnummer
oDocumentFiles.Value(1, 4) =3D "000" 'Teildokument
oDocumentFiles.Value(1, 5) =3D "00" ''Dokumentversion
oDocumentFiles.Value(1, 8) =3D "Z_ZZZ_FS" 'Ablagekategorie f=FCr
Originaldateien
oDocumentFiles.Value(1, 9) =3D "RGM" 'Workstation-Applikation
oDocumentFiles.Value(1, 5) =3D "1" 'Originalnummer
oDocumentFiles.Value(1, 11) =3D "c:\L1807050_0.rgm" 'Original zu
Dokument
boBapiPln.create2 DocumentData:=3DoDocumentData, Return:=3DoReturn,
DocumentFiles:=3DoDocumentFiles
