Site icon SAP Human Resources Experts And Solutions

SAP Scripting

<p>Small instruction about SAP scripting&period;<&sol;p>&NewLine;<p>Activate SAP Scripting in GUI settings &lpar;SAP Logon settings&rpar;&period;<&sol;p>&NewLine;<p>Open SAP and hit &&num;8220&semi;Record macro&&num;8221&semi; in GUI menu&period; Run all needed steps and stop recording&period;<&sol;p>&NewLine;<p>As a result you&&num;8217&semi;ll get file with script&period; For example I&&num;8217&semi;ve a script of creating 0015 infotype record&colon;<&sol;p>&NewLine;<p>If Not IsObject&lpar;application&rpar; Then<br &sol;>&NewLine;Set SapGuiAuto &equals; GetObject&lpar;&&num;8220&semi;SAPGUI&&num;8221&semi;&rpar;<br &sol;>&NewLine;Set application &equals; SapGuiAuto&period;GetScriptingEngine<br &sol;>&NewLine;End If<br &sol;>&NewLine;If Not IsObject&lpar;connection&rpar; Then<br &sol;>&NewLine;Set connection &equals; application&period;Children&lpar;0&rpar;<br &sol;>&NewLine;End If<br &sol;>&NewLine;If Not IsObject&lpar;session&rpar; Then<br &sol;>&NewLine;Set session &equals; connection&period;Children&lpar;0&rpar;<br &sol;>&NewLine;End If<br &sol;>&NewLine;If IsObject&lpar;WScript&rpar; Then<br &sol;>&NewLine;WScript&period;ConnectObject session&comma; &&num;8220&semi;on&&num;8221&semi;<br &sol;>&NewLine;WScript&period;ConnectObject application&comma; &&num;8220&semi;on&&num;8221&semi;<br &sol;>&NewLine;End If<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&&num;8221&semi;&rpar;&period;maximize<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;tbar&lbrack;0&rsqb;&sol;okcd&&num;8221&semi;&rpar;&period;text &equals; &&num;8220&semi;pa30&&num;8221&semi;<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&&num;8221&semi;&rpar;&period;sendVKey 0<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;subSUBSCR&lowbar;PERNR&colon;SAPMP50A&colon;0110&sol;ctxtRP50G-PERNR&&num;8221&semi;&rpar;&period;text &equals; &&num;8220&semi;609&&num;8221&semi;<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&&num;8221&semi;&rpar;&period;sendVKey 0<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;tabsMENU&lowbar;TABSTRIP&sol;tabpTAB01&sol;ssubSUBSCR&lowbar;MENU&colon;SAPMP50A&colon;0400&sol;subSUBSCR&lowbar;ITKEYS&colon;SAPMP50A&colon;0350&sol;ctxtRP50G-CHOIC&&num;8221&semi;&rpar;&period;text &equals; &&num;8220&semi;15&&num;8221&semi;<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;tabsMENU&lowbar;TABSTRIP&sol;tabpTAB01&sol;ssubSUBSCR&lowbar;MENU&colon;SAPMP50A&colon;0400&sol;subSUBSCR&lowbar;ITKEYS&colon;SAPMP50A&colon;0350&sol;ctxtRP50G-SUBTY&&num;8221&semi;&rpar;&period;text &equals; &&num;8220&semi;0030&&num;8221&semi;<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;tabsMENU&lowbar;TABSTRIP&sol;tabpTAB01&sol;ssubSUBSCR&lowbar;MENU&colon;SAPMP50A&colon;0400&sol;subSUBSCR&lowbar;TIME&colon;SAPMP50A&colon;0330&sol;ctxtRP50G-BEGDA&&num;8221&semi;&rpar;&period;text &equals; &&num;8220&semi;100914&&num;8221&semi;<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;tabsMENU&lowbar;TABSTRIP&sol;tabpTAB01&sol;ssubSUBSCR&lowbar;MENU&colon;SAPMP50A&colon;0400&sol;subSUBSCR&lowbar;ITKEYS&colon;SAPMP50A&colon;0350&sol;ctxtRP50G-SUBTY&&num;8221&semi;&rpar;&period;setFocus<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;tabsMENU&lowbar;TABSTRIP&sol;tabpTAB01&sol;ssubSUBSCR&lowbar;MENU&colon;SAPMP50A&colon;0400&sol;subSUBSCR&lowbar;ITKEYS&colon;SAPMP50A&colon;0350&sol;ctxtRP50G-SUBTY&&num;8221&semi;&rpar;&period;caretPosition &equals; 4<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;tbar&lbrack;1&rsqb;&sol;btn&lbrack;5&rsqb;&&num;8221&semi;&rpar;&period;press<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;txtQ0015-BETRG&&num;8221&semi;&rpar;&period;text &equals; &&num;8220&semi;11&&num;8221&semi;<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;txtQ0015-BETRG&&num;8221&semi;&rpar;&period;setFocus<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&sol;usr&sol;txtQ0015-BETRG&&num;8221&semi;&rpar;&period;caretPosition &equals; 18<br &sol;>&NewLine;session&period;findById&lpar;&&num;8220&semi;wnd&lbrack;0&rsqb;&&num;8221&semi;&rpar;&period;sendVKey 11<&sol;p>&NewLine;<p>Then you can put this script as VBA macro into MS Excel&comma; handle it in a right manner &lpar;i&period;e&period; make a cycle&rpar; and automate you regular tasks or data upload&sol; mass change&period;<&sol;p>&NewLine;<p>Important&colon; scripting doesn&&num;8217&semi;t understand system errors&comma; system messages&period; eCATT and SAP Personas understand&period;<&sol;p>&NewLine;

Exit mobile version