[57921] in SAPr3-news
=?iso-8859-1?q?Re:_Dokumente_=FCber_VBA_/_Bapi?=
daemon@ATHENA.MIT.EDU (hendrik.mucke@lynx.de)
Wed Aug 23 06:43:58 2006
To: sapr3-news@mit.edu
Date: 23 Aug 2006 03:43:37 -0700
From: hendrik.mucke@lynx.de
Message-ID: <1156329817.473415.231530@i3g2000cwc.googlegroups.com>
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
