[57935] in SAPr3-news
=?iso-8859-1?q?Re:_Dokumente_=FCber_VBA_/_Bapi?=
daemon@ATHENA.MIT.EDU (robert)
Thu Aug 24 03:08:32 2006
To: sapr3-news@mit.edu
Date: 24 Aug 2006 00:08:19 -0700
From: "robert" <ro2007@gmx.de>
Message-ID: <1156403299.928407.268780@p79g2000cwp.googlegroups.com>
habs...
es lag am fehlenden commit :-)))))
Robert
hendrik.mucke@lynx.de schrieb:
> Hallo Robert,
>
> um die Frage zu beantworten, w=E4re evtl. eine Beschreibung zu
> "funktioniert nicht richtig" hilfreich. Was gibt es den f=FCr eine
> Meldung zur=FCck?
>
> Viele Gr=FC=DFe
> Hendrik
>
> robert schrieb:
>
> > 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
> > ...???
> >
> > 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
