sap query abap coding im zusatzfeld für verknüpfung innenauftrag und fond bzw. finanzierungszweck...

7/21/2019 SAP Query ABAP Coding Im Zusatzfeld Für Verknüpfung Innenauftrag Und Fond Bzw. Finanzierungszweck Oder Auc…

http://slidepdf.com/reader/full/sap-query-abap-coding-im-zusatzfeld-fuer-verknuepfung-innenauftrag-und-fond 1/7

SAP Query ABAP Coding im Zusatzfeld für Verknüpfung Innenauftrag und Fond bz!Finanzierungsze"k oder au"# Status $%SP%&&' bei Innenauftr(gen

Ausgangslage) Im Artikel *Query FI %inzelposten als Beleg+ournal , Belegsegment -BS%$. undBelegkopf -B/PF. 0erknüpfen* urde dur"# '#omas auf eine 12gli"#keit #ingeiesen

eine Query über eine Zusatztabelle zu ereitern)

/ommentar 0on '#omas 3irkli"# eine Super Anleitung4

1ir #at no"# die /ontenbezei"#nung gefe#lt! 5as l(sst si"# so realisieren) SQ67 Zus(tze -F8. /noten) BS%$ Anlegen Zusatztabelle ,9 S/A'

SP&AS : S;,<A=$> /'?P< : @@ -stelliger /ontoplan in einfa"#en o"#komma.4 3ir arbeiten nur mit einem /ontenplan! 5es#alb der Festert! SA/=& : BS%$,/?=' -in diesem Fall no"# *intern puffern an#aken* Detzt ist die 'abelle unter BS%$ eingebunden und das 'eEtfeld -S/A',''76 oder''86. kann in das Belegsegment #ineingezogen erden! $ru '#omas

Zis"#enzeitli"# #abe i"# mi"# au"# ein enig me#r mit Zusatzfeldern bes"#(ftigt undkann nun die Anforderungen aus 76GG -sie#e Artikel *SAP Query Stammdaten PS1 H C?

Innenauftrag*. dank des Coding0ors"#lages eines /ollegen ebenfalls erfüllen!

%s soll eine Stammdatenliste aus den beiden 1odulen C? und PS1,F1 -Innenauftragund Fond. erstellt erden! ierbei sollen in der <iste <aufzeit des Pro+ektes-Arbeitsbeginn und Arbeitsende aus C?. der Finanzierungsze"k -ein Stammdatenfeldaus Fond. und die Information ausgegeben erden ob dieses Pro+ekt gesperrt ist!

$runds(tzli"# sind die 'abellen bekannt in denen diese Informationen ste#en! 5ieStammdaten der Fonds befinden si"# in der 'abelle F1FI=C?5% und der Innenauftr(gein A>F/! Allerdings ist das Feld F1FI=C?5%,FI=C?5% -Fond. 0om 'yp C#ar miteiner <(nge 0on G6 Zei"#en und das Feld A>F/,A>F=& -Auftragsnummer. zar au"#

0om 'yp C#ar allerdings mit einer <(nge 0on G7 Zei"#en! Somit k2nnen beide Felderni"#t 0erknüpft erden da diese 3erte ni"#t übereinstimmen!

5er Systenstatus ist zar ebenfalls in einer 'abelle gespei"#ert -D%S' , sie#e Artikel*SAP Query) Systemstatus C? Innenauftrag*. allerdings sind #ier me#rere 5atenzeilen

+e Status 0or#naden und uns interessiert eigentli"# nur der Status I66J für gesperrt! Anders als 76GG 0ermutet bedarf es bei der Pflege 0on SAP Query aber keines%nti"klers"#lüssel für die =utzung 0on ABAP Code so dass #ier eine 12gli"#keitbeste#t per Coding an die rele0anten Informationen zu kommen! 5ie >msetzung ist in



diesem Artikel unter *Zusatzfeld $%SP%&&' bei gesperrten Innenauftr(gen* erl(utert!

Verknüpfung 0on PS1,F1 Stammdaten 0on Fonds und C? Innenauftr(gen >m dieses zu 0erirkli"#en legen ir ein Infoset für die C? Stammdaten an analog derBes"#reibung im Artikel *Query Stammdaten C? /ontrolle Verantortli"#e*! In der

sp(teren Verendung des Infosets ste#t +edo"# ni"#t me#r die /ontrolle derVerantortli"#en 0on /ostenstelle Profit,Center und Innenauftrag im Vordergrundsondern die Zusatzinformationen über Systemstatus und Stammdaten aus PS1,F1!Infoset als Vie über A>F/ CS/S CS/' C%PC und C%PC' definierenInner#alb der 'ransaktion SQ67 ird folgendes Infoset definiert! ierfür ird als5atenKuelle ein 'abellen,Doin über 'abelle A>F/ angelgt! %s erden folgende 'abellen miteinander in Bezie#ung gesetzt) A>F/) Auftragsstammdaten CS/S) /ostenstellenstammsatz CS/') /ostenstellenelemente -für die 'eEte. C%PC) Stammdatentabelle 0on Profit Centern C%PC') Profit,Center,Stammdaten 'eEte

Verknüpfungsbedingungen) 5ie 0orges"#lagenen Verknüpfungsbedingungen seitens SAP sollte #ier ieder entfernterden und folgende Verknüpfungsbedingungen definiert erden!

Folgende 'abellenfelder erden #ierbei miteinander 0erknüpft)

A>F/,/?S'V L,9 CS/S,/?S'< ierdur"# ird die Verantortli"#e /ostenstelle des Innenauftrages mit denStammdaten der /ostenstellen 0erknüpft!

CS/S,/?S'< L,9 CS/',/?S'<

ierdur"# erden die Stammdaten der /ostenstelle mit der Bezei"#nung der/ostenstelle 0erknüpft!

A>F/,P&C'& L,9 C%PC,P&C'& ierdur"# ird das Profit"enter des Innenauftrages mit den Stammdaten der Profit,Center 0erknüpft!

C%PC,P&C'& L,9 C%PC',P&C'& ierdur"# erden die Stammdaten der Profit,Center mit der Bezei"#nung der Profit,Center 0erknüpft!

%tas ausfü#rli"#er -inklusi0e Verknüpfung */ostenre"#nungskreis* /?/&S und

*5atum gültig bis* 5A'BI sind die Verknüpfungen in folgender Zei"#nung dargestellt)



5arstellung D?I= über A>F/ und C? Stammdaten

5amit sind alle Verknüpfungen der 'abellen erfolgt! 5er %infa"##eit #alber k2nnen nunalle FeldgruppenH5atenfelder übernommen erden! 5ieses #at den Vorteil dass diesesInfoset au"# für eitere Queries zur Verfügung ste#t!%reiterung des Infoset über Zusatzfelder

Mber die S"#altfl("#e Zus(tze -F8. bz! inner#alb der 'ransaktion SQ67 -Pflege desInfosets. über SP&I=$%=,9 Z>SN'Z% Z>1 /=?'%= k2nnen ni"#t nur ie 0on'#omas er(#nt Zusatztabellen in das Infoset aufgenommen erden sondern au"#eigene Felder definiert erden! ierzu kann im &egister Zus(tze die S"#altfl("#e

Anlegen ausge(#lt erden! %s ers"#eint eine 1aske in der der =ame des

Zusatzfeldes angegeben erden soll -im folgenden Beispiel FI=>S%. und die Art derZusatzinformation! =eben der s"#on angespro"#enen Zusatztabelle sind dieses)Zusatzfeld Zusatzstruktur und Coding! In unserem Beispiel soll ein Zusatzfeld mit den=amen FI=>S% angelegt erden!

5ieses #at folgende %igens"#aften) <angteEt und Mbers"#rift #aben beideFinanzierungsze"k er#alten! 5ie Formatangabe urde über <I/%,&eferenz idenits"#zum Feld F1FI=C?5%,FI=>S% ge#alten! 5amit entspri"#t dieses Feld denFormatangaben in der 'abelle F1FI=C?5% -'yp C -C#ara"ter. <(nge 6GO

Ausgabenl(nge 6GO.!

5amit ist das Feld angelegt #at +edo"# nur eine 5atendefinition aber no"# keine eigene

5aten -anders bei der Zusatztabelle die si"# direkt aus der 5atenbank einen passenden5atensatz liest!

=a"#dem ein Feld +edo"# angelegt ist kann über die S"#altfl("#e *Coding zum Zusatz*ein passendes ABAP Coding für das Feld #interlegt erden über das iederum eine5atenbankabfrage erfolgen kann! ier #abe i"# dankensertereise 0on einen /ollegenein passendes Coding er#alten um die Bezei"#nung des Fonds -F1FI=',B%Z%IC.$ültigkeitsdatum des Fond -F1FI=C?5%,5A'AB und F1FI=C?5%,5A'BIS. soieS"#lüsselH=ummer des Fond -F1FI=C?5%,FI=C?5%. zu er#alten sofern ein Fond



angelegt ist! 5ieses Coding #atte i"# mir als Vorlage genommen um au"# denFinanzierungsze"k auszulesen!

Zusatzfeld PS1,F1 Finanzierungsze"k aus Fond

5as Coding für das Feld FI=>S% sie#t dabei ie folgt aus -obei statt B>/ natürli"# I#r

Bu"#ungskreis im Coding #interlegt sein sollte.)

<okale Variablen definieren 5A'A) <FI=Z3%C/ type F1FI=C?5%,FI=>S%! 5A'A) <F?=5 type F1FI=C?5%,FI=C?5%! 5A'A) <A>F'&A$ type A>F/,A>F=&! Zueisung 0on Variablen aus der Selektion <A>F'&A$ : A>F/,A>F=&! Vers"#ieben des gespei"#erten 3ertes in der 'abelle A>F/ um Zei"#en I='%&$&>=5) 5as Fekd A>F/,A>F=& #at insgesamt G7 Zei"#en!

5ie a"#tstellige Auftragsnummer ird mit 6666 aufgefüllt 5ur"# die Vers"#iebung ist die Auftragsnummer direkt in der lokalen Variable gepsei"#ert! SIF' <A>F'&A$ B; P<AC%S <%F'! <F?=5 : <A>F'&A$! Mber die Selektabfrage #at nun das Feld Fond die ri"#tige <(nge S%<%C' SI=$<% finuse F&?1 fmfin"ode I='? <FI=Z3%C/ 3%&% fikrs : @B>/@ A=5 fin"ode : <F?=5! Abfangen eines Fe#lers und 3ertzueisung in Zusatzfeld IF sy,subr" L9 6! C<%A& finuse!

%<S%! finuse : <FI=Z3%C/! %=5IF!

AC'>=$) <(nge der Auftragsnummer H Fondsnummer bea"#ten4

Im oberen Coding ge#en ir da0on aus dass Innenauftrag und Fond +eeils a"#tStellen #aben! Sollte die Auftragsnummer bz! Fond"ode nur siebenstellig sein ist dieZeile auf SIF' <A>F'&A$ B; 8 P<AC%S <%F' anzupassen!

Zusatzfeld $%SP%&&' bei gesperrten Innenauftr(gen

Als eitere Anforderung sollte in der <iste au"# mitgegeben erden ob ein Innenauftraggesperrt ist oder ni"#t! ierzu urde ebenfalls ein Zusatzfeld angelegt! 5ieses er#(lt als<angteEt und Mbers"#rift *$esperrt* und die %igens"#aften 'yp C -C#ara"ter. und<(nge Ausgabel(nge 66G da im %rgebnis nur ein ausgegeben erden soll enn der

Auftrag gesperrt ist! 5as zuge#2rige Coding lautet ie folgt)



5A'A) <A>F/?BD type A>F/,?BD=&! 5A'A) <'%1P type A>F/,?BD=&! <A>F/?BD : A>F/,?BD=&! S%<%C' SI=$<% ob+nr F&?1 D%S' into <'%1P 3%&% stat : @I66J@ A=5 ob+nr : <A>F/?BD

A=5 ina"t : @@! IF sy,subr" L9 6! $%SP%&&' : @@! %<S%! C<%A& $%SP%&&'! %=5IF!

5ie beiden Zusatzfelder k2nnen dann in eine eigene Feldgruppe ins Infosetübernommen erden und ste#en damit einer Query zur Verfügung!

Bezügli"# des Status eines Innenauftrages k2nnen über die ABAP Aneisung

C?=CA'%=A'% altenstring neuenstring I='? altenstring!

au"# eitere Statuszust(nde in das Feld übernommen erden! ierzu ürde ein FeldS'A'>S definiert erden und über eine eitere S"#leife über die Bedingung 3#ereS'A' : @I667R@ zum Beispiel das 1erkmal AB&V in die Variable gespei"#ert erden! 5ie

Aneisung k2nnte dann C?=CA'%=A'% status @ AB&V @ I='? S'A'>S! lauten! 5iesesar +edo"# keine Anforderung für diese <iste! Ferner sind die einzelnen P#asen einesInnenauftrages au"# in der 'abelle A>F/ #interlegt und k2nnten in der Query über einkundeneigenes Feld 0erknüpft erden! <edigli"# die Sperre des Innenauftrages ist #ierni"#t mitaufgefü#rt!

5ie für die einzelnen P#asen eines Innenauftrages mittels : DA markierten Feldersind)A>F/,PAS6 , P#ase @Auftrag er2ffnet@A>F/,PASG , P#ase @Auftrag freigegeben@A>F/,PAS7 , P#ase @Auftrag te"#nis"# abges"#lossen@A>F/,PASJ , P#ase @Auftrag abges"#lossen@ Bere"#tigungen für Zusatzfelder mit ABAP Coding

Für die Pflege 0on Zusatz"oding sind +edo"# eiter ge#ende Basisbere"#tigungenerforderli"#! ierzu erden die Bere"#tigungen auf das Bere"#tigungsob+ekt

S5%V%<?P und die Bere"#tigungsfelderte ?b+ekttyp P&?$ ?b+ektname AQ soiedie Akti0it(ten 6G und 67 geprüft! 5a es si"# #ier um re"#t eitge#ende Bere"#tigungen#andelt sollten diese au"# nur im %nti"klungssystem 0ergeben erden! 5ieBere"#tigungsprüfung erfolgt ebenfalls enn die Query ie im Artikel *'ransport 0onSAP Queries -5<H><.* bes"#rieben per 5ateiupload ins 'estsystem oderProdukti0system transportiert erden soll! 5as Infoset selbst l(sst si"# na"# einemerfolgrei"#en >pload no"# bearbeiten ledigli"# das Coding ist dur"# dieBere"#tigungsprüfung 0or eiteren Nnderungen ges"#ützt!



Query Stammdatenliste Innnenauftr(ge und 0erknüpfte FondsInner#alb der Query erden nun auf folgende Felder der einzelnen 'abellen -bz!Zusatzfelder. des Infosets Zugriff genommen bezie#ungseise in der $rundlistezugeiesen! ierbei ist < als <istenfeld und S als Selektionsfeld zu 0erste#en!

5ie Felder erden #ier in der &ei#enfolge angegeben ie diese dann au"# in derQuery ausgegeben erden sollen)

Auftragsstammdaten A>F/ Auftragsart -S. A>F/,A>A&' Auftragsnummer -<S. A>F/,A>F=& /urzteEt -<. A>F/,/'%' Verantortli"#e /ostenstelle -<S. A>F/,/?S'V/ostenstellenteEte CS/' Bes"#reibung -<. CS/',/'%'

Auftragsstammdaten A>F/ Profit"enter -<S. A>F/,P&C'&

Profit,Center,Stammdaten 'eEte -C%PC'. Allgemeine Bezei"#nung -<. C%PC',/'%'Zusatzfelder -die im Infoset angelegt urden. Finanzierungsze"k -<S. FI=>S%

Auftragsstammdaten A>F/ Arbeitsbeginn -<S. A>F/,>S%&T Arbeitsende -<. A>F/,>S%&R Antragssteller -<. A>F/,>S%&6 Verantortli"#er -<. A>F/,>S%&7 Abteilung -<. A>F/,>S%&O %Eterne Auftragsnummer -<. A>F/,A>F%Zusatzfelder -die im Infoset angelegt urden.

$esperrt -<. $%SP%&&'lokale Zusatzfelder <e#rein#eit -<.

%reiterung) <e#rein#eit aus /ostenstelle ableiten

5as lokale Zusatzfeld <e#rein#eit ird im Artikel *Query über 0erantortli"#e/ostenstelle des Innenauftrag , Bestimmung der <e#rein#eit im Fa"#berei"# dur"# 'eilder /ostenstellennummer* no"# bes"#rieben!

5er Vorteil dieser Query ist dass in der Selektion ni"#t nur an#and derInnenauftragsnummer Auftragsart oder der 0erantortli"#en /ostenstellen selektiert

erden kann sondern au"# über den Finanzierungsze"k inklusi0e einer3ertausa#l#ilfe -F. so dass #ier direkt die gepflegten Finanzierungsze"keausgelesen erden k2nnen!

Bei den Finanzierungsze"ken selbst #andelt es si"# ebenfalls um Stammdaten dieunter &e"#nungsesen 9 Publi" Se"tor 1anagament 9 aus#altsmanagement 9Stammdaten 9 /ontierungselemente 9 Fonds 9 Finanzierungsze"k 9 gepflegt erdenk2nnen -'ransakton F1OI , Anlegen F1O> , Nndern und F1OS Anzeigen.!



%reiterung) 1erkmale der /lassifizierung

%ine er#ebli"#e %reiterung dieser Query ist im Artikel *SAP Query , Ausertung1erkmale der /lassifizierung am Beispiel Fonds in PS1,F1* bes"#rieben! ier irdneben den Finanzierungsze"k und den C? bz! PS1,F1 Stammdaten au"# die

1erkmale der /lassifizierung 0on aus#altsfonds ausgeertet! 5amit sollten allerele0anten Stammdaten 0on Innenauftr(gen und damit 0erbundenen Fonds ausgeerteterden k2nnen!

%reiterung) 3eitere Zusatzfelder

3ie s"#on er(#nt beste#t au"# die 12gli"#keit eitere Stammdaten aus den Fondsaus PS1 , F1 im Infoset per Coding aufzune#men! %inige #(ufig angefragten Felder#abe i"# im Artikel *3eitere Zusatzfelder im Infoset mit ABAP Coding zur Verendung inSAP Query über die 'abellen A>F/ und F1FI=C?5%* bes"#rieben! 'eileise urde#ier au"# das Coding der in diesen Artikel bes"#riebenen Felder no"# optimiert!

sap query abap coding im zusatzfeld für verknüpfung innenauftrag und fond bzw. finanzierungszweck...

Documents