ࡱ> tusxܥhWn ev$ T:LPPPT=,+aX `aPT PPP4   TITEL \* FORMATVERBINDEN SAP R/3 - Word for Windows Reporting Tool AuthorOrganisationSAP AG Date of Report: Address:Neurottstr. 16 69185 WalldorfDepartment:Entwicklung EC Printed:05.08.96Pages: ANZSEITEN \* FORMATVERBINDEN 1File: DATEINAME \* FORMATVERBINDEN SAP_REP7.DOTVersion:1Last changed by:SAP .An  .An::83' m C Y--$44---- $4>4----$ ing----$[S\_cwfnfdf^c[_[Z]U`PeLnJwIGD@;6-# xdR?. WW[`diqw|zpd [ OF>3*!$(-6>IS_ky$.>K^uxfSS---- $+]CV+----0$)@Sdq~wgYG9)~rfUC+----$ `')'2);0@8BB@O9V2^(``---N%%vkk_ULD=85445 8=D%L+U0_3k4k4v30+% ---81RRjosvx{}~  }{xuvxyz{}~|qpnljjihgfdc`^^R^gknpqtvwwwxx x x x w wvtsqpnki^^--vx{}~ dp SAP report applicationdp% bootstrap loader for batchprocessingdp- this macro ist called during WinWord startupdp: execute a winWord process with "WinWord.exe /MBatchstart"dp' to start the application in batchmode.dp/ the MODE falg in SAP_REP_INI must be set to B dp; this macro must be installed in the NORMAL.DOT file to be dp availabel at Startup time!ddiMAINdp Peter Vogel, MCS, 6/94dp init of errorflagdi errorflag ldp8 the target directory of the source files is hard coded!dp: change the Next program Line For your custom installationdi saprep_dir$ j d:\sap_rep\ddp( Name of the INI file created by SAP-GUIdiinifile$ j sap_rep.inidivers$ ggglldivers$ j7.0dp& Name of template file for SAP reportsdnidotname$ j sap_rep7.dotd dnidotname$ j sap_rep.dotdTdp2 make the download directory the current directorydgi saprep_dir$ddp search SAP report templatedioperatingsystem$ g lddioperatingsystem$ jWindowsdRiwindowsversion$ g ldTdioperatingsystem$ j Windows NTiwindowsversion$ j4.0dRidir$ ng jOHKEY_CURRENT_USER\Software\Microsoft\Microsoft Office\95\FileNew\LocalTemplatesjjd dRidir$ gEjMicrosoft Wordj USER-DOT-PATHdTddg idir$l j\dRidir$ idir$j\ddgidir$idotname$ jk not found, try againdRioperatingsystem$ j Windows NTiwindowsversion$ j4.0doidir$ ng jPHKEY_LOCAL_MACHINE\Software\Microsoft\Microsoft Office\95\FileNew\LocalTemplatesjjdR doidir$ gEjMicrosoft WordjWORKGROUP-DOT-PATHdRTdRg idir$l j\doidir$ idir$j\dRdRgidir$idotname$ jk not found, try againdog+j Can not find idotname$j) template file. Please install correctly!jAborting SAP Report applicationldoi errorflag ldRdddi errorflag lk template found, do the job!ddRp% prevent autonew macro from executingdRgրlddRgOsR idir$idotname$dRgրlddR)imainloopvmaini saprep_dir$iinifile$ddRp check for printonly flagdRisection$ jcontroldRikey$ j printonlydRivalue$ g isection$ikey$i saprep_dir$iinifile$ddRgivalue$ jYk print only the reportdogXs ldogldop delete intermediate filesdQop MsgBox "killing files"dogj*.DOCk report documentdogj*.INIk INI filedogj*.RTFk table filesdogj*.WMFk graphic filesdogj*.TXTk text filesdogj*.LOGk report logdogj*.TMPk Temporary FilesddRdddp Anwendung Schlieen:dp AnwSchlieen "Microsoft Word"dgddp0 This macro controls the whole reporting processdp3 Stefan Joksch/ P. Vogel, Microsoft Consulting 5/94ddp Declaration of shared variablesd/0iinifile$diMAINddp identify the Inifile to used)i getinifile$ddp" if we have a INI file, proceed...diinifile$ jddRp% Parse structure and process mainloopdR)imainloopvmainiinifile$ddRp show the logfiledRishowlogvmainiinifile$dd ddRk'No INI File available, close the reportdRk DateiSchlieen 2dddddddddk>--------------------------------------------------------------dpF this function shows a file open dialog and enables the user to selectdp@ a INI File. the default working dir. is set to the selected dirdp# Return: filname$ or "" if canceleddi getinifile$d/idlg4gPdiret ld>idlgdidlgs j*.inidiret ?idlgldiret ldRiinifile$ jd ddRiinifile$ gldRg iinifile$l j\dRiinifile$ iinifile$nidlgsdR dRiinifile$ iinifile$j\idlgsdRdp MsgBox "*" + inifile$ + "*"dp5 inifile$ = library.getdateiname$(inifile$) + ".ini"dp MsgBox "*" + inifile$ + "*"dp0 If InStr(inifile$, "\\\\") <> 0 Then' UNC Namedp REM filter \\\\servernamedp` inifile$ = Left$(inifile$, 2) + Mid$(inifile$, InStr(7, inifile$, "\")) REM filter \sharenamedpJ inifile$ = Left$(inifile$, 2) + Mid$(inifile$, InStr(4, inifile$, "\")) dp End IfdTddk>--------------------------------------------------------------dAiGetWindowsDirectoryANjKernel32ilpBuffer4FinSize4Crd4CdpZ Declare Function GetWindowsDirectory Lib "Kernel"(lpBuffer As String, nSize As Integer) \dp As Integerddp2 The macro assumes an opened logfile on channel #1ddp& array of errormessages in this moduled/0ierrmsg$l dddk9---------------------------------------------------------diinit_errormessagesdp7-------------------------------------------------------dpE same routine as in objectlibrary! update synchroniously is necessarydierrmsg$l j#201:No filename defined for object dierrmsg$l j202:Unknown file type : dierrmsg$l j203:Table file not found: dierrmsg$l j204:Objectheadline empty in dierrmsg$l j205:Custom macro not found: dierrmsg$l j206:Text file not found: dierrmsg$l j/207:Unknown Alignment option for graphic file: dierrmsg$l j(208:No support for the chosen language. dierrmsg$l  j6209:Wrong itemno in the function getlanguagedependencydierrmsg$l  j0210:notsupported language might cause problems. dddk9---------------------------------------------------------dni inserttableiobjfile$dp7-------------------------------------------------------dp/ Inserts a table file into the current documentdp. The name of the table is given as a parameterdp. An errorlog is written if anything goes wrongdp return 0 if evretything was okdp% P. Vogel, Microsoft Consulting, 6/94ddp" init errormessages of this moduled)iinit_errormessagesddp$ remember current position in reportditextpos1 godp Try to insert tabledRp check if tablefile existsdRgiobjfile$j\lk path is given in INI filedoifname$ iobjfile$dR k no path in INI filedoifname$ glj\iobjfile$dRdRgifname$ jdogs ifname$sI lrdos ldoitextpos2 godopC select table text to allow custom macros to work on the fileobjectdogqitextpos1itextpos2dogsdoi inserttable lk report no errordR dop* note file does not exist error to logfiledo6qlierrmsg$lifname$doi inserttable lk report errordRddddk9---------------------------------------------------------dni inserttextiobjfile$dp7-------------------------------------------------------dp. Inserts a text file into the current documentdp- The name of the text is given as a parameterdp. An errorlog is written if anything goes wrongdp return 0 if evretything was okdp% P. Vogel, Microsoft Consulting, 6/94ddp" init errormessages of this moduled)iinit_errormessagesddp$ remember current position in reportditextpos1 godp Try to insert textdRp check if tablefile existsdRgiobjfile$j\lk path is given in INI filedoifname$ iobjfile$dR k no path in INI filedoifname$ glj\iobjfile$dRdRgifname$ jdoggl k/Carriage return prior the insertion of the textdogs ifname$sI lrdos ldoitextpos2 godop= select text to allow custom macros to work on the fileobjectdogqitextpos1itextpos2doi inserttext lk report no errordR dop* note file does not exist error to logfiledo6qlierrmsg$lifname$doi inserttext lk report errordRdddddk9---------------------------------------------------------dni insertgraphiobjfile$inobjecti strchapter$iinifile$dp7-------------------------------------------------------dp2 Inserts a graphics file into the current documentdp> the graph is formatted due to special options in the INI filedp. The name of the graph is given as a parameterdp. An errorlog is written if anything goes wrongdp return 0 if evretything was okdp% P. Vogel, Microsoft Consulting, 6/94ddp" init errormessages of this moduled)iinit_errormessagesddp$ remember current position in reportditextpos1 godp Try to insert graphdRp check if graphfile existsdRgiobjfile$j\lk path is given in INI filedoifname$ iobjfile$dR k no path in INI filedoifname$ glj\iobjfile$dRdRgifname$ jdogs ifname$s j0dogdoitextpos2 godogqitextpos1itextpos2dop4 check for additional formatting options in INI filedop! alignment of picture in documentdop& Creation of the Key Word for the key:doiKeyObjnalignment$ jObjgginObjectj_GRF_ALIGNMENTdop" Retrieval of the Object Headline:doi objalign$ rdog i strChapter$iKeyObjnalignment$iinifile$do13gi objalign$do3jCk centerdogSdo3jLk left aligneddogTdo3 do6qlierrmsg$lifname$do1ddop frame around the picturedop& Creation of the Key Word for the key:doi KeyObjnframe$ jObjgginObjectj _GRF_FRAMEdop" Retrieval of the Object Headline:doi objframe$ rdog i strChapter$i KeyObjnframe$iinifile$dogi objframe$ jNk frame the picturedogs ls ls ls ls ls lso lsp lsc lsd lse lsf lsg lsh ls j1 pts ls ls ls j0s; ldoddop@ select picture to allow custom macros to work on the fileobjectdogqitextpos1itextpos2dddoi insertgraph lk report no errordR dop* note file does not exist error to logfiledo6qlierrmsg$lifname$doi insertgraph lk report errordRddddddpZ -----------------------------------------------------------------------------insertitem()di insertitemibeginn$iinifile$isection$ikeyparm$dk8Inserts an item from a inifile into the current documentdk parentheses in the reportdiposmark$ j<ikeyparm$j>di secbeginn$ ibeginn$dd6jInserting Text iposmark$k show activityddgzi secbeginn$kgoto beginn of section.ddp read value from inifiledp% match the parameters to a local varsdikey$ ikeyparm$divalue$ g isection$ikey$iinifile$ddk# Move to correct position in reportditextpos1 godgps iposmark$s lditextpos2 goditextpos1 itextpos2k) cursor not moved, searchstring not founddRp' note Positionmark does not exist errordR6qlj Positionmark gl'iposmark$rdRgl'j not found in report template.dRi insertitem lk report errord dRiposok lk& flag that cursor is at right positionddp Try to insert itemdivalue$ jdRp note read error to logfiledR6qljKey gl'ikey$gl'j of section rdRgl'isection$gl'j of file rdRgl'iinifile$gl'j not defined.dRi insertitem lk report errord dRiposok ldogivalue$doi insertitem lk report no errordRddddddpg ----------------------------------------------------------------------------- getlanguagedependency$()dp- this function allows the macros to run with dp engl. and german word versiondp6 ATTENTON: Function not yet testet with engl. version!dp3 P. Vogel, Stefan Joksch Microsoft Consulting, 3/94digetlanguagedependency$iitemnodk" itemno: 1=section, 2=page, 3=lineddp" init errormessages of this moduled)iinit_errormessagesdd13iitemnodR3lk Sectiondo13gggllk A= German, S=Eng, Frado3jDEUTdoigetlanguagedependency$ jAdo3jENGLjFRANdoigetlanguagedependency$ jSdo3 dop0 note language is not supported error to logfiledo6qlierrmsg$l doigetlanguagedependency$ jSdo1dR3lk Pagedo13gggllk S= German, P=Eng, Frado3jDEUTdoigetlanguagedependency$ jSdo3jENGLjFRANdoigetlanguagedependency$ jPdo3 dop0 note language is not supported error to logfiledo6qlierrmsg$l doigetlanguagedependency$ jpdo1dR3lk linedo13gggllk Z= German, L= Eng, Frado3jDEUTdoigetlanguagedependency$ jZdo3jENGLjFRANdoigetlanguagedependency$ jLdo3 dop0 note language is not supported error to logfiledo6qlierrmsg$l doigetlanguagedependency$ jLdR1dR3 dop Wrong itemnodo6qlierrmsgl doigetlanguagedependency$ jERRORd1dddp[ -----------------------------------------------------------------------------getdateiname$di getDateiName$ib$dkAExtrahieren des Dateinamens aus ganzem Pfad ohne Datei Extension dk Erweiterung.dk% P. Vogel, Microsoft Consulting, 2/93ddn!gib$j\ ldnib$ g ib$gib$gib$j\dn"ddp Entferne Dateiextensiondni getDateiName$ gib$gib$j.ldddddp[ -----------------------------------------------------------------------------isdirectory()di IsDirectoryiDir$dp@ Prfung, ob ein gegebenes Dirextory auch wirklich vorhanden istdp ret=0 wenn Dir. NICHT vorhandendp% P. Vogel, Microsoft Consulting, 2/93d,-*i errorhandledgiDir$e errorhandledierr lLdni IsDirectory lnkReturn 0 if error 76 occursd dni IsDirectory lnk#Return 1 if error 76 does not occurddddddpc -----------------------------------------------------------------------------GETmomentaneansicht()diGetMomentaneAnsichtidummydpC ermitteln der momentanen Ansicht in Word und rckgeben eines KodesdpM der Kode kann mit SetmomentaneAnsicht verwendet werden, um die ursprnglichedp Ansicht wiederherzustellendp% P. Vogel, Microsoft Consulting, 2/93ddgu ldRiGetMomentaneAnsicht lddgt ldRiGetMomentaneAnsicht lddgs ldRiGetMomentaneAnsicht ldddpc -----------------------------------------------------------------------------SETmomentaneansicht()diSetMomentaneAnsichtischalterdp- wiederherstellen der ursprnglichen Ansicht.dp( Pendant Funktion zu GETmomentaneansichtdp% P. Vogel, Microsoft Consulting, 2/93d13ischalterdR3ldogudR3ldogtdR3ldogsdR3 dog+j,Ein ungltiger Ansichtskode wurde bergeben.j Makrofehlerld1ddddpe -----------------------------------------------------------------------------Leerzeichen_ersetzen$()diLeerzeichen_ersetzen$ieingabe$dpS function ersetzt alle Leerzeichen in eingabe$ mit geschtzten Leerzeichen ersetzendpO dies wir u.a. in Zeugnissen und Vertrgen bentigt, wo einzelne Maskeneingabendp4 im gedruckten Dokument nicht getrennt werden drfendp% P. Vogel, Microsoft Consulting, 4/93dia$ ieingabe$dp Nur wenn es sich lohntdgia$ldR#ii l$gia$ldog ia$iil j doia$ gia$iilglg ia$iildodR&iiddiLeerzeichen_ersetzen$ ia$dddddp[ -----------------------------------------------------------------------------getsectsize()dpH function returns the size in chars of the current section given as parmdp# P. Vogel Microsoft Consulting 3/94di getsectsizeisectionpointerdp get the desc of the sectiondi sectionmark$ igetlanguagedependency$lggisectionpointerddp Select the whole sectiondgzi sectionmark$ditextpos1 godgk switch on selectmodedgzigetlanguagedependency$lj+k goto next sectiondgHk switch off selectmodeditextpos2 gpditextpos1 itextpos2k$ cursor not moved becaus of endofdocdRgzj \endofdocdRitextpos2 god k last section: goto end of docdRp goto end of prev. sectiondRgllddp return size of section in charsdi getsectsize itextpos2itextpos1ddddk9---------------------------------------------------------diPageOrientationi strOrient$dp7-------------------------------------------------------dp6 written by Stefan Joksch,Peter Vogel MCS May 27, 1994dp" init errormessages of this moduledp Call init_errormessagesddpB Changes the orientation of the page if the orientation requested dp? by the argument strOrient$ is different from the present one. dp5 For the argument are the following values permitted:dp+ p or P for Portrait; l and L for LandscapedpB For other argument values the orientation is set to the default, dp which is Portrait.ddpA Preset of Function Value, and of requested orientation value to dp the default value Portrait (0) diPageOrientation lk. Default return Code: No change of Orientationdi nObjnOrient lRk%Set requested Orientation to Portait ddp8 retrieval of printerspec. paperformat from Winword6.inidipformat$ gEjMicrosoft WordjSAP-REPORT-PAPERFORMATdipformat$ jk# no paperformat defined, do it now!dR)idefinepaperformatdRp8 retrieval of printerspec. paperformat from Winword6.iniddp! Retrieval of Current Orientationd/i OrientPage4gd>i OrientPagedicurrentorientation i orientpagesGddRp Retrieval of the switch valuedRp@ KeyObjnOrient$ = "Obj" + LTrim$(Str$(nObject)) + "_Orientation"dRp strObjnOrient$ = \dRp@ GetPrivateProfileString$(strChapter$, KeyObjnOrient$, inifile$)dRdRp1 Analysis of strObjnOrient$ for Landscape requestdRi strOrient$ jli strOrient$ jLdop# Requested Orientation is Landscapedoi nObjnOrient lRk&Set requested orientation to LandscapedR doi nObjnOrient lRk%Set requested orientation to portraitdRdRp; Change orientation according to the Request, if necessary:dRicurrentorientation i nObjnOrientdop beginn a new sectiondogs ldog2dp' ' toggle portrait / Landscape formatdp dp! If currentorientation = 1 Thendp OrientPage.AnwAuf = 0dp OrientPage.HochQuer = 0dp OrientPage.Registerkarte = 1dp OrientPage.PapierGre = "0"dp% OrientPage.SeitenBreite = "21 cm"dp& OrientPage.SeitenLnge = "29,7 cm"dp# DateiSeiteEinrichten orientpagedp DateiSeiteEinrichten .AnwAuf = 0, .HochQuer = 0, .Registerkarte = 1, .PapierGre = "0", .SeitenBreite = "21 cm", .SeitenLnge = "29,7 cm"dp Elsedp dp OrientPage.AnwAuf = 0dp OrientPage.HochQuer = 1dp OrientPage.Registerkarte = 1dp OrientPage.PapierGre = "0"dp% OrientPage.SeitenBreite = "21 cm"dp& OrientPage.SeitenLnge = "29,7 cm"dp# DateiSeiteEinrichten orientpagedp dp DateiSeiteEinrichten .AnwAuf = 0, .HochQuer = 1, .Registerkarte = 1, .PapierGre = "0", .SeitenBreite = "21 cm", .SeitenLnge = "29,7 cm"dp End IfdoiPageOrientation lk% Return Code: Orientation has changeddRdddiMAINi strChapter$iinifile$ilogfile$inSavedp----------------------------------------------dp*' written by Stefan Joksch May 20, 1994ddp MacroName: Objects dp ------------------------dpC Insertion of the objects into the chapter of the report under workdp1 according to the orders given in the .INI file; dpC nSave : A number which triggers File Save after a fixed number of dpE inserted objects (save after each 20th, i. e. nFixSave=20 object is dp recommended).dp/ It is augmented by 1 for each inserted object.dp? The following control parameters are analysed (# is a number):ddp= Obj#_File file name of the object, which can be a .RTF filedpW (table, text), a .WMF file (graphics) or a .TXT file REM (text), respectively.dp# Obj#_Headline The objects headlinedp& Obj#_Orientation The page orientationdp@ Obj#_Newpage The flag ordering the begin of a new page, if set.dp Obj#_Macroname Identifiing the MACR acommpagnied to a Obj#File. This REM Macro should be running immediately after loading the REM object and marking its contents.dp Obj#_GRF_Alignmentdp. Alignment of a .WMF graph in the documentdpD Obj#_GRF_Frame A Flag which controls wether a graphic gets a frame.ddp Preset Cursor and ParametersdgldinFixSave lRk) relevant number of objects for FileSave ddp7 Retrieve the number of Objects in the present Chapter:dinObjects gg i strChapter$jNumberiinifile$ddinobjectslk if we have objects, continueddp Insert Objects:d#inCount l$inObjectsdRdRp? Get the Objectparameter of the j Object And insert it in the dRp$ appropriate way into the Document !dR6jInserting the Chapter: (i strChapter$(j , Object#:(gincountddRp New page dRinReturn i objectlibraryv ObjectNewpagei strChapter$inCountiinifile$ddRp page orientationdRinReturn i objectlibraryvObjectOrientationi strChapter$inCountiinifile$ddRp object headlinedRinReturn i objectlibraryvObjectHeadlinei strChapter$inCountiinifile$ddRp5 inserting an object and do not forget to count nSavedRinreturn i objectlibraryv ObjectFilei strChapter$inCountiinifile$dRinSave inSaveldRp Print "New nSave = "; nSavedRinSaveinFixSavedogSdoinSave ldRdRQdRp run custom macro on new object.dRp) The new object is selected in the reportdRinreturn i objectlibraryvObjectmacronamei strChapter$inCountiinifile$dd&inCountddk nobjects checkddp Reset CursordgldddpH ******************** End Of Sub ***************************************dp1 Displays the logfile after the build of a reportdp$ P. Vogel Microsoft Consulting, 3/94diMAINi filename$dRimsg$ j$Display the Log file of this Report?dRiinifile$ i filename$dRiret g+imsg$j Display Log?l$dRiret ldoilogfile$ iinifile$doilogfile$ ilibraryw getdateiname$ilogfile$j.logdoicmd$ j notepad.exe glj\ilogfile$dog-icmd$ldRddp& array of errormessages in this moduled/0ierrmsg$lddiMAINiinifile$dp---------------dp3 written by Stefan Joksch, Peter Vogel May 20, 1994dp, Class "Chapters" of the SAP Reporting Tool.dp& Logfile must be open as filehandle #1ddp Preset of Parameters dinSave lRk Count parameter for FileSave dok* after a fixed number of inserted objects.dok; It has to be counted for the objects of all chapters, thusdokn nSave is a data attribut of CHAPTERS and only its address is ' given to OBJECTS for manipulation of nSave.ddp& array of errormessages in this moduledierrmsg$l j2101:Invalid structure definition in the.INI - filedierrmsg$l j)102:Number of structure entries undefineddierrmsg$l j'103:Depth of Chapters must be positive:dierrmsg$l j*104:Maximum Outline depth of Chapters Is 9dierrmsg$l j:105:Depth of Chapters must be defined from an equal numberdddp5 structure description of the report in the inifile$:di strSection$ j Structuredi KeyNumber$ jNumberdinChapter gg i strSection$i KeyNumber$rdoniinifile$dinChapterldR#ij l$inChapterddoi KeyChapter$ jHeadingggijdoi strChapter$ rdog i strSection$i KeyChapter$iinifile$ddoi strChapter$ jk Error Checkdo6qlierrmsg$li KeyChapter$do kChapter availabledop& check for headerpage for this chapterdoij lk" insert pagebreak after headerpagedoiret i objectlibraryvObjectheaderpagei strchapter$iinifile$ldo k# insert pagebrake before headerpagedoiret i objectlibraryvObjectheaderpagei strchapter$iinifile$ldodoinOutline iChapterOutlinei strChapter$doinoutlinelk OK, continueddop$ Set the page layout of the Chapter:doinReturn i ChapterLayouti strChapter$iinifile$ddop$ Insert the Headline of the Chapter:doi strHeadline$ rdog i strChapter$jHeadlineiinifile$doinReturn iChapterHeadlinei strHeadline$inOutlinedop Analyse nReturn:doinReturn lk OK, continuedop4 Insert Objects into the Chapter (nSave by address!)do)rdoiObjectsvmaini strChapter$iinifile$ilogfile$inSavedok Chapterheadline checkdok outline checkddodR&ijd dRp signal severe errordR6qlierrmsg$ldR6qlierrmsg$ldTdddpH************************ End Of Main ***********************************dddiChapterOutlinei strChapter$dp!---------------------------------dp: written bY Stefan Joksch, Peter Vogel MCS May 27, 1994dp( check the structure entry of a headlinedpF Do the following by a Function And give a number back, This number Isdp4 either the Chapter depth or an Error number(<= 0) !ddRp Presetting of Function Value: dRiChapterOutline ldRdRinString gi strChapter$dRinStringldo6qlierrmsg$li strChapter$doiChapterOutline lk Error Code: -1dRinStringldok/ Error : Maximum Outline depth of Chapters Is 9do6qlierrmsg$ldoiChapterOutline lRk Error Code: -2dRinString ldo6qlierrmsg$ldoiChapterOutline lRk Error Code: -3dR doiChapterOutline inString ldRddpH************************* End Of Function ******************************dddiChapterHeadlinei strHeading$inOutlinedp,--------------------------------------------dp7 written by Stefan Joksch,Peter Vogel MCS, May 26, 1994ddp; Inserts a Headline at the Cursor Position And prepares itsdp outline in the document .dp returns 1 if everything was OKdRiChapterHeadline lnk' Preset of Function Control Value to OKdRi strOutline$ jTOPgginOutlinedR6i strOutline$dRggl RkCarriage ReturndRiStart godRgi strHeading$dRiEnde gpdRgqiStartiEndedRgs i strOutline$sdRgzs j \endofdocdRichapterheadline lk signal OKddpH************************** End Of Function *****************************dddk9---------------------------------------------------------di ChapterLayouti strChapter$iinifile$dp7-------------------------------------------------------dp6 written by Stefan Joksch,Peter Vogel MCS May 27, 1994dp" init errormessages of this moduledp Call init_errormessagesddpH Analyses the occurence and setting of the HL_Orientation switch in the dp .INI File. If it is set to a value L or P, deviating from the present REM setup, then a PageBreak is inserted into the Document and the dp orientation is toggled.. ddRp Preset of Function ValuedRi ChapterLayout lddRp# Retrieval of the Orientation valuedRi KeyChOrient$ jHL_OrientationdRi strChOrient$ rdRg i strChapter$i KeyChOrient$iinifile$ddRp! Retrieve the pagebreak parameterdRi strNewpage$ rdRg i strChapter$j HL_Newpageiinifile$ddRp< Toggle the page if requested (accompanied by a page break).dRp7 Using the Return code of the PageOrientation Function dRp> (=1 if orientation was toggled) to decide wether a requested dRp page break is performed or notdRiLibraryvPageOrientationi strChOrient$ ldogi strNewpage$ jYdogdodRddddkJ***************************** End Of Function ****************************dp& array of errormessages in this moduled/0ierrmsg$lddiMAINiinifile$dp1 Main loop for the SAP Reporting Generation Tool.dp/ written by Stefan Joksch, P. Vogel / MCS, 5/94ddp& array of errormessages in this moduledierrmsg$l j001:Start of SAP reportdierrmsg$l j002:End of SAP reportdierrmsg$l j?003:Aborting SAP report due to severe error during save processddp Declaration of Local variableddp store current optionsd/iopt_view4gd>iopt_viewd/i opt_general4gd>i opt_generald/iopt_save4gd>iopt_saved/i opt_print4gd>i opt_printddp open errorlogfiledilogfile$ iinifile$dilogfile$ ilibraryw getdateiname$ilogfile$j.logdp delete logfile if there is anydgilogfile$ jdRgilogfile$dddp Oeffnen Errorlog:d=ilogfile$#<4qld6qlierrmsg$lddp Save the Reportdiret i savereportvsaveiinifile$diret lk$ report was saved, create the reportdRp Set Word optionsdR)i setoptionsdRp check for debug modedRisection$ jcontroldRikey$ jdebugdRidebug$ g isection$ikey$iinifile$dRgidebug$ jYdogldR dogldRddRp goto beginning of text bodydRi sectionmark$ ilibrarywgetlanguagedependency$ldRi sectionmark$ i sectionmark$j2dRgzs i sectionmark$ddRp insert chapters and objectsdR)iChaptersvmainiinifile$dRdRp save everything done up to nowdRglddRp work on FrontpagedR)i Frontpagevmainiinifile$ddRp' Work on misc. Attributes of the reportdR)i reportlayoutvmainiinifile$ddRp insert Table of contentdR)iTableOfContentsvmainiinifile$ddRp close Log filedR6qlierrmsg$ldRLqldRglddRp signal the enddRg,dR6jSAP report is readydd k" abort and close uncomplete reportddRp close Log filedR6qlierrmsg$ldR6qlierrmsg$ldRLqldRglddddp ReSet Word optionsd)i resetoptionsdgniopt_viewdgni opt_generaldgniopt_savedgni opt_printdddp& array of errormessages in this moduled/0ierrmsg$lddiMAINiinifile$dp --------------dp completing the FRONTPAGEdp! P. Vogel, Stefan Joksch MCS 6/94dp& array of errormessages in this moduledierrmsg$l j001:Start of SAP reportdierrmsg$l j002:End of SAP reportddp Change Cursordglddp check for frontpage option dp" and delete frontpage if necessarydisection$ jcontroldikey$ j frontpagedivalue$ g isection$ikey$i saprep_dir$iinifile$ddp MsgBox("Frontpage = " + value$)dgivalue$ jNk no frontpage, delete it!dR6jDeleting the frontpage ...dRgzs j \startofdocdRitextpos1 godRimark$ ilibrarywgetlanguagedependency$ldRimark$ imark$j2dRgzs imark$dRp ZeichenLinks 1dRitextpos2 gpdRgqitextpos1itextpos2dRgdRp- Print "Frontpage should be deleted, now ..."d k insert items on frontpagedR6jInserting the front page ...dRp' goto the first section of the documentdRgzs j \startofdocdRi sectionmark$ ilibrarywgetlanguagedependency$ldRi sectionmark$ i sectionmark$j1dRgzi sectionmark$ddRp Insert the general informationdRisection$ j GENERALINFOdRiret rdRilibraryv insertitemi sectionmark$iinifile$isection$jAuthordRiret rdRilibraryv insertitemi sectionmark$iinifile$isection$j CreationdateddRp Actualize Data fieldsdRinReturn iFrontpageActualizeddddp Set Cursor backdglddddkJ************************** End of SUB ************************************ddiFrontpageActualizedp -----------------------dp' written by Stefan Joksch 16.June 1994ddpE This function actualizes the information of the frontpage using the dp contents of the file info boxddp* Set Function Value to 0 (everything o.k.)diFrontpageActualize lddp Actualizedgzs j \startofdocditextpos1 godimark$ ilibrarywgetlanguagedependency$ldimark$ imark$j2dgzs imark$dglditextpos2 gpdgqitextpos1itextpos2dg dddpH************************ End of Macro **********************************dp: inserts customer info into the File info Dialog and savesdp the reportdisaveiinifile$ddk mark template as cleandgldd/idlg4gVd>idlgdp* insert customerinfo into File info Dialogddisection$ j GeneralInfodikey$ jHeadlinedivalue$ g isection$ikey$iinifile$didlgsb ivalue$ddisection$ j GeneralInfodikey$ jAuthordivalue$ g isection$ikey$iinifile$didlgsd ivalue$ddikey$ j Creationdatedivalue$ g isection$ikey$iinifile$didlgsf jReport created ivalue$dddp retrieve document namedisection$ jcontroldikey$ jdocnamedidocname$ g isection$ikey$iinifile$ddp retrieve document pathdisection$ jcontroldikey$ jdocpathdidocpath$ g isection$ikey$iinifile$dddp$ check for interactive or batch modedisection$ jcontroldikey$ jmodedivalue$ g isection$ikey$iinifile$dgivalue$ jBk batch modedRp Update Fileinfo recorddRgVidlgdRidocpath$ jdog idocpath$l j\doidocpath$ idocpath$j\dodoilibraryv isdirectoryidocpath$ ldogidocpath$do doisave lk signal errordodR k default: *.doc = *.inidoidocname$ iinifile$doidocname$ ilibraryw getDateiName$idocname$j.docdRdRp store documentdRgTs idocpath$idocname$dRisave ld k interactive modedRp show fileinfo dlgdRiret ?idlgdRiret ldop Update Fileinfo recorddogVidlgddop save file dialogdoidocname$ jdoidocfile$ idocname$do doidocfile$ iinifile$doidocfile$ ilibraryw getDateiName$idocfile$j.docdodoilibraryv isdirectoryidocpath$ ldogidocpath$dodo/idlg24gTdoidlg2s idocfile$doiret ?idlg2doiret ldog,dog+j6Report can not be created without intermediate saving!j Cancel Reportldo6qlj-Report canceled due to no intermediate savingdoisave ldo dogTs idlg2sdoisave ldod dog,dog+j6Report can not be created without intermediate saving!j Cancel Reportldoisave lddRddddpK activate fast save option for intermedate commits during the build processdgsV ldddp@ this macro sets the options for the build process of the reportdp% P. Vogel Microsoft Consulting , 5/93diMAINdgDgDdgudgnsN ls  lrdQs: ls; ls< lrds= ls' ls> lrds ls lsA lddgs6 ls~ lrdQs+ lddgs lrdsV ls4 lsW jddgs lddp Hide all Toolbarsddk> code bracketing for English French and German Version of Worddi L_Language$ ggglldi L_Language$ jDEUTi L_Language$ jENGLi L_Language$ jFRANdRi L_Language$ jXXXXdTdivers$ ggglldp+ Select Case Left$(UCase$(AnwInfo$(16)), 4)d13i L_Language$dR3jDEUTk german versiondoivers$ j6.0dogCs j Formatierungsdo dogCs jFormatsdoTdogCs jStandardsdogCs jRahmensdogCs j DatenbanksdogCs j ZeichnungsdogCs jFormularsdogCs jMakrosdogCs j MicrosoftsdR3jENGLkEnglish versiondogCs j FormattingsdogCs jStandardsdogCs jBorderssdogCs jDatabasesdogCs jDrawingsdogCs jFormssdogCs jMacrosdogCs j MicrosoftsdR3jFRANkFrench versiondogCs jStandardsdogCs j Mise en formesdogCs jBase de donnessdogCs jDessinsdogCs j FormulairesdogCs jEnregistrement de macrosdogCs j MicrosoftsdogCs jBorduressdR3 d1ddk- template was set dirty, so reset it to cleandglddp& array of errormessages in this moduled/0ierrmsg$lddiMAINiinifile$dp#, defining the layout of the reportdp: reads and interprets misc. options in the [CONTROL] blockdp of the INI filedp# P. Vogel, Stefan Joksch, MCS, 6/94ddierrmsg$l j&021:Unknown option for chapter numbersddp inserting chapter numbersdiret ichapternumbersiinifile$ddp Inserting headlinediret iHeadlineiinifile$ddp Inserting footlinediret ifootlineiinifile$ddp Inserting pagenumbersdiret i pagenumbersiinifile$ddddddk3---------------------------------------------------dichapternumbersiinifile$dp inserting chapter numbersd6jInserting chapter numbers ...dichapternumbers ldisection$ jcontroldikey$ jChapternumbersdi chapnumber$ g isection$ikey$iinifile$d13gi chapnumber$dR3jNdogdog[sdR3 k Assume Default: Ydop Print #1, errmsg$(1)dop chapternumbers = - 1dog[s j3dog^sQ ld1ddddk3---------------------------------------------------diHeadlineiinifile$dp% inserting the header into the reportdp/ this function assumes that the view is normal!dp+ this should be done in function SETOPTIONSdp P. Vogel MCS 6/94dd6jInserting headline ...diHeadline ldisection$ j GENERALINFOdikey$ jHEADERdiHeader$ g isection$ikey$iinifile$diheader$ jdoi sectionmark$ ilibrarywgetlanguagedependency$ldoi Sectionmark$ i Sectionmark$j2dogzs i sectionmark$dogdogdodogiheader$dogddddk3---------------------------------------------------difootlineiinifile$dp' inserting the footline into the reportdp/ this function assumes that the view is normal!dp+ this should be done in function SETOPTIONSdp P. Vogel MCS 6/94dd6jInserting footline ...difootline ldisection$ j GENERALINFOdikey$ jFOOTERdifooter$ g isection$ikey$iinifile$difooter$ jdoi sectionmark$ ilibrarywgetlanguagedependency$ldoi Sectionmark$ i Sectionmark$j2dogzs i sectionmark$dogdogdodogifooter$dogTk footer text is left alignedddifootline ldddddk3---------------------------------------------------di pagenumbersiinifile$dp& inserting pagenumbers into the reportdp/ this function assumes that the view is normal!dp+ this should be done in function SETOPTIONSdp P. Vogel MCS 6/94dd6jInserting pagenumbers ...dp check for pagenumberdisection$ jCONTROLdikey$ j PAGENUMBERSdi pagenumber$ g isection$ikey$iinifile$d13gi pagenumber$dR3jNk no page numbersdR3 k" inserting pagenumbers is default!doi sectionmark$ ilibrarywgetlanguagedependency$ldoi Sectionmark$ i Sectionmark$j2dogzs i sectionmark$dogdogdodogk goto end of footline areadop& pagenumbers are inserted rightaligneddogdogdogUdogd1di pagenumbers lddiMAINdk> code bracketing for English French and German Version of Worddi L_Language$ ggglldi L_Language$ jDEUTi L_Language$ jENGLi L_Language$ jFRANdRi L_Language$ jXXXXdTdp+ Select Case Left$(UCase$(AnwInfo$(16)), 4)divers$ ggglld13i L_Language$dR3jDEUTk german versiondoivers$ j6.0dogCs j FormatierungsPdo dogCs jFormatsPdoTdogCs jStandardsPdR3jENGLkEnglish versiondogCs j FormattingsPdogCs jStandardsPdR3jFRANkFrench versiondogCs jStandardsPdogCs j Mise en formesPdR3jXXXXd1dddp& array of errormessages in this moduled/0ierrmsg$l ddk9---------------------------------------------------------diinit_errormessagesdp7-------------------------------------------------------dp= same routine as in library! update synchronisly is necessarydierrmsg$l j#201:No filename defined for object dierrmsg$l j202:Unknown file type : dierrmsg$l j203:Table file not found: dierrmsg$l j204:Objectheadline empty in dierrmsg$l j205:Custom macro not found: dierrmsg$l j206:Text file not found: dierrmsg$l j/207:Unknown Alignment option for graphic file: dierrmsg$l j(208:No support for the chosen language. dierrmsg$l  j6209:Wrong itemno in the function getlanguagedependencydddk9---------------------------------------------------------di Objectfilei strChapter$inObjectiinifile$dp7-------------------------------------------------------dp7 written by Stefan Joksch,Peter Vogel MCS, June 1, 1994dp( inserts file objects into the document.dp" there are 3 file types inserted: dp Tables (*.RTF)dp Graphs (*.wmf)dp Text (*.txt)ddp" init errormessages of this moduled)iinit_errormessagesdddp determine the filetypedRp, Creation of the Key Word for the file name:dRi KeyObjnfile$ jObjgginObjectj_filedRdRp" Retrieval of the Object Headline:dRistrfile$ rdRg i strChapter$i KeyObjnfile$iinifile$dp check if filename is defineddRistrfile$ jdo6qlierrmsg$li strChapter$j,i KeyObjnfile$dR dop& insert the file with the right methoddo13gg istrfile$ldo3jRTFk Inserting a tabledoi Objectfile ilibraryv inserttableistrfile$k inserting the tabledodo3jWMFk Inserting a Graphdok inserting the graphdoi Objectfile ilibraryv insertgraphistrfile$inobjecti strchapter$iinifile$do3jTXTk Inserting a Textdoi Objectfile ilibraryv inserttextistrfile$k inserting the textdo3 do6qlierrmsg$li strChapter$j,i KeyObjnfile$doi Objectfile lk signal an errordo1dodddddddk9---------------------------------------------------------diObjectHeadlinei strChapter$inObjectiinifile$dp7-------------------------------------------------------dp7 written by Stefan Joksch,Peter Vogel MCS, May 26, 1994dp+ Inserts a Headline at the Cursor Position.dp" init errormessages of this moduled)iinit_errormessagesddRp Preset of function value:dRiObjectHeadline lnk' Preset of Function Control Value to OKddRp2 Creation of the Key Word for the Object Headline:dRiKeyObjnHeadline$ jObjgginObjectj _HeadlinedRdRp" Retrieval of the Object Headline:dRi strHeading$ rdRg i strChapter$iKeyObjnHeadline$iinifile$ddRp Error Handling:dRi strHeading$ jdo6qlierrmsg$li strChapter$j,iKeyObjnHeadline$doiObjectHeadline lRk Error Code for Returndoi strHeading$ j dRddRp! Insertion of the Object HeadlinedRggl RkCarriage ReturndRiStart godRgi strHeading$dRiEnde gpdRgqiStartiEndedRp, Object Headline is formatted as normal textdRgs jNormalsdRgzs j \endofdocdddddk9---------------------------------------------------------diObjectmacronamei strChapter$inObjectiinifile$dp7-------------------------------------------------------dp) written by Peter Vogel, MCS June 1, 1994ddp" init errormessages of this moduled)iinit_errormessagesdddp- Creation of the Key Word for the Macro name:di KeyObjnmacro$ jObjgginObjectj _macronamedp" Retrieval of the Object Headline:dimacro$ g i strChapter$i KeyObjnmacro$iinifile$dp check if macroname is defineddimacro$ jdp no macro defined,dp@ deselect the inserted object, otherwise it would be overwrittendRgzs j \endofdocd dRp8 run the custom macro on the selected text in the reportdRp check if macro existsdRgĀimacro$ lk macro availabledop run macrodogs imacro$sdR do6qlierrmsg$limacro$dRdRp2 deselect the inserted object, and goto end of docdRgzs j \endofdocddddddk9---------------------------------------------------------di ObjectNewpagei strChapter$inObjectiinifile$dp7-------------------------------------------------------dp+ written by Stefan Joksch, MCS May 26, 1994dp" init errormessages of this moduled)iinit_errormessagesddpE Analyses the occurence and setting of the Obj#Newpage switch in the dpF .INI File. If it is set to Y, then a PageBreak is inserted in to the dp Document. ddp Preset of Function Valuedi ObjectNewpage lddp Retrieval of the switch valuediKeyObjnNewpage$ jObjgginObjectj_NewpagedistrObjnNewpage$ rdg i strChapter$iKeyObjnNewpage$iinifile$dRdp Analysis of strObjnNewpage$distrObjnNewpage$ jgistrObjnNewpage$ jNk default valuedRi ObjectNewpage ld k Start of a new pagedRgdRi ObjectNewpage lddddddk9---------------------------------------------------------diObjectOrientationi strChapter$inObjectiinifile$dp7-------------------------------------------------------dp6 written by Stefan Joksch,Peter Vogel MCS May 27, 1994dp" init errormessages of this moduled)iinit_errormessagesddpI Analyses the occurence and setting of the Obj#Orientation switch in the dp .INI File. If it is set to a value L or P, deviating from the present REM setup, then a PageBreak is inserted into the Document and the dp orientation is toggled.. ddp Preset of Function ValuediObjectOrientation lddp Retrieval of the switch valuediKeyObjnOrient$ jObjgginObjectj _OrientationdistrObjnOrient$ rdg i strChapter$iKeyObjnOrient$iinifile$dRdinReturn iLibraryvPageOrientationistrObjnOrient$dddddk9---------------------------------------------------------diObjectheaderpagei strchapter$iinifile$i pagebreakflagdp7-------------------------------------------------------dp7 pagebreakflag determines where to insert the pagebreakdp= 0 = before headerpage (normal chapter, and global headerpagedp/ 1 = after headerpage (1. headerpage in report)dp@ checks for headerpage entry in the control section for a globaldpG headerpage and in each chaptersection for chapter specific headerpagesdp= the layout of the headerpage is defined in an autotext entrydp which is inserted on demand.dp5 written by P. Vogel, Stefan Joksch MCS June 16, 1994dp" init errormessages of this moduled)iinit_errormessagesdikey$ j Headerpagedi filename$ g i strchapter$ikey$iinifile$di filename$ jk1 there is an entry for the headerpage, insert it!dRi pagebreakflag ldogdRdRp0 inserting a new page with layout for HeaderpagedRg{s j Vorlaufblatts lsdRglk set cursor into the framedRp inserting an objectdRiObjectheaderpage ilibraryv inserttablei filename$k inserting the tabledRglk set cursor into normal textdRi pagebreakflag ldogdRddddp& array of errormessages in this moduled/0ierrmsg$lddiMAINiinifile$dp:, inserting table of content due to the switch in INI filedp# P. Vogel, Stefan Joksch, MCS, 6/94ddierrmsg$l j'011:Unknown option for table of contentdisection$ jcontroldikey$ jTableOfContentsditoc$ g isection$ikey$iinifile$dp check for frontpage option dikey$ j frontpagedivalue$ g isection$ikey$i saprep_dir$iinifile$ddd13gitoc$dR3jSTARTdRgivalue$ jYk There is a frontpagedoi sectionmark$ ilibrarywgetlanguagedependency$ldoi Sectionmark$ i Sectionmark$j2dogzs i sectionmark$dogs) ls ls ls ls ldR k? No frontpage, but Table of content at the beginning of the docdop What is about VORLAUFBLATT? dogzs j \startofdocdoi sectionmark$ ilibrarywgetlanguagedependency$ldoi Sectionmark$ i Sectionmark$j1dogzs i sectionmark$dogs) ls ls ls ls ldRTdRddR3jENDdogzs j \endofdocdogdogs) ls ls ls ls ldR3jNOdop no table of contentdR3 do6qlierrmsg$ld1dddiMAINdp definition of the paperformatdp P. Vogel, MCS, 17.6.94dg+j1Paperformat not yet defined for your SAP reports.gl j Please define it now!j Paperformatl@d/idlg4gd>idlgdidlgs ldidlgs ldiret ?idlgdipformat$ idlgsdgFjMicrosoft WordjSAP-REPORT-PAPERFORMATipformat$ddpB this is a demo of the capabilities of custom macro functionality.dpH SAP gives no warranty on the quality and functionality of custom macrosdiMAINdp> this macro replaces the color coded information in ABAP-listsdp/ with text attributes Font size, bold, italicsdp P. Vogel, MCS 6/94dp; search black text and replace it with autocolor bold 12 ptdgqns# ldgvs" j14s# ls$ ls% ldgus js js ls ls ls ls lss ls} lddpF search black text, 2nd headline and replace it with black, bold 12 ptdgqns# ldgvs" j12s# ls$ ls% ldgus js js ls ls ls ls lss ls} ldddp; search green text and replace it with autocolor bold 12 ptdgqns# ldgvs" j10s# ls% ls$ ldgus js js ls ls ls ls lss ls} lddp; search dark blue text and replace it with auto color 10 ptdgqns# ldgvs" j10s# ls% ls$ ldgus js js ls ls ls ls lss ls} lddp; search cyan text and replace it with auto color 10 pt bolddgqns# ldgvs" j10s# ls$ ldgus js js ls ls ls ls lss ls} ldd#$MNX_hv}~  ,-./0178WXdefgrsCu uDc]cUc$UcU U]`bc0uDU]`bc0uD6OPQRSTUVWX_hiv}~$ $d$ $ $ $ $ $ $ $ $ $ PP$ PP$ $ $ PP$ $ $    $   $ $ $  Fj #&)')())) 1%-& 017fgprs$ $ $ $ $ $ $ $ $ $ $ $ $ $ $$ $ $ < 4 Fj # K@Standarda n@nberschrift 1,TOP1B < 4 U]ckl@lberschrift 2,TOP2B < 4. UV]ch@hberschrift 3,TOP3B < 4.Ucj@jberschrift 4,TOP4B < 4.UVcf@fberschrift 5,TOP5@ < 4.]ch@hberschrift 6,TOP6@ < 4.V]cd@dberschrift 7,TOP7@ < 4.]f@fberschrift 8,TOP8@ < 4.V]h @hberschrift 9,TOP9@ < 4.V]c&A@&Absatz-Standardschriftart$"@$ BeschriftungxxUD-@D Makrotext! ` @  ]a c2@2 Verzeichnis 1 h$ U[]c.@. Verzeichnis 2$U(@( Verzeichnis 3 $(@( Verzeichnis 4 X$(@( Verzeichnis 5  $(@( Verzeichnis 6 $(@( Verzeichnis 7 $(@( Verzeichnis 8 x$(@( Verzeichnis 9 @$)@ SeitenzahlU&B@& Textkrper ]ack0 @0Fuzeile! ]ack0@0 Kopfzeile p# ]ack! #M ,.7Wd= _Toc286743921 SAP_System_idName Anschrift_1 ServiceCentervv36?HIMX^`f xSAP AGD:\ABLAGE\VORLAGEN\SAP_REP.DOTSAP AGD:\ABLAGE\VORLAGEN\SAP_REP.DOTSAP AGD:\ABLAGE\VORLAGEN\SAP_REP.DOTSAP AGD:\ABLAGE\VORLAGEN\SAP_REP.DOTSAP AGD:\ABLAGE\VORLAGEN\SAP_REP.DOTSAP AGD:\ABLAGE\VORLAGEN\SAP_REP7.DOTBeuterD:\ABLAGE\VORLAGEN\sap_rep7.dotSAP AG!C:\MSOffice\Vorlagen\sap_rep7.dotSAP AG!C:\MSOffice\Vorlagen\sap_rep7.dotSAP AG!C:\MSOffice\Vorlagen\SAP_REP7.DOTU  U!yU16UDQ DQU[[U\\U?pd?pUwwUttU  U   U NU OOU MU.:.Uhh* autonew?Allgemeine Funktionsbibliothek von P. Vogel und Stefan JokschLibrary savereportDProgram to parse and insert chapter structure (STJ, MCS June 1994)showlogdisplays the log SetOptions(Set Options after the generation process Resetoptions Resets the viewoptions to normalTableOfContents ObjectlibraryMainloopULibrary of functions to insert different objects and attributes (STJ; MCS June 1994)Saves the current report`Insertion and customizing of objects within a report, which is to generate (STJ, MCS June 1994)Chapters[Main loop of the program, looping through all chapters and calling all necessary functions.ObjectsThis macro decodes the color information of standard ABAP lists and reformats the selected text according to the color information to B&W text attributes. PV / MCS / 6.94 Batchstart$Bootstrap loader for batchprocessingDefinePaperformattablecolordecoding?inserts table of content due to the option in INI file. PV 6/94 ReportlayoutiDefines misc. attributes of the report like Pagenumbers, chapter numbers head/foot lines etc. PV MCS 6/94Insert items on Frontpage Frontpage SAP Report_Main control program for interactive mode. P. Vogel, Stefan Joksch, Microsoft Consulting, 3/94AUTONEWLIBRARYOBJECTSSHOWLOGCHAPTERSMAINLOOP FRONTPAGE BATCHSTART SAVEREPORT SETOPTIONS REPORTLAYOUT RESETOPTIONS OBJECTLIBRARY TABLEOFCONTENTSDEFINEPAPERFORMATTABLECOLORDECODING@\\p02187\hp4Ne00:winspoolHP LaserJet 4M\\p02187\hp4 |pK 4K A ''''\\p02187\hp4 |pK 4K A ''''TTimes New Roman Symbol &Arial&Arial Fett5Courier New"qhނ*&,楍@9E'$)SAP R/3 - Word for Windows Reporting Tool"Report Generating Tool for SAP R/3dApplication creates WinWord documentes on basis of downloaded R/3 ABAP Lists, graphics and Textfiles2P. Vogel, S. Joksch, Microsoft Consulting ServicesBeuterܥhWevrrrrrrr TXvrpqrrrr4rrrr .Anu& ' ( ) 1 %K@Standard]c &A@&Absatz-Standardschriftart Vorlaufblatt`pabq@TTimes New Roman Symbol &Arial&Arial Fett5Courier New"  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrwRoot Entry:xOP` Fڀh4v@QWordDocument$QR`vCompObjO:xRSjSummaryInformation+(   FMicrosoft Word Dokument MSWordDocWord.Document.69qࡱ3Oh+'0d<H    , 8DLT\*SAP R/3 - Word for Windows Reporting Tool#Report Generating Tool for SAP R/33P. Vogel, S. Joksch, Microsoft Consulting ServiceseDocumentSummaryInformation8 !"#$%&'()*+,-./056789:;<=>?@ABCDEFGHIJKLMNOPUVWXYZ[\]^_`abcdefghijklmnopw3՜.+,0HP\dl t| SAP *SAP R/3 - Word for Windows Reporting ToolApplication creates WinWord documentes on basis of downloaded R/3 ABAP Lists, graphics and Textfilest sap_rep7.dotyBeuter141Microsoft Word for Windows 95@@O@\G@(h!9Eࡱ> 3՜.+,0HP\dl t| SAP *SAP R/3 - Word for Windows Reporting Toolࡱࡱ> tusx