topic code example for ZXAFAU02 in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/code-example-for-zxafau02/m-p/3491745#M839705 <HTML><HEAD></HEAD><BODY><P>i need a code example for user exit. EXIT_SAPLAFAR_002.</P></BODY></HTML> Sun, 09 Mar 2008 05:06:45 GMT Former Member 2008-03-09T05:06:45Z code example for ZXAFAU02 https://community.sap.com/t5/application-development-and-automation-discussions/code-example-for-zxafau02/m-p/3491745#M839705 <HTML><HEAD></HEAD><BODY><P>i need a code example for user exit. EXIT_SAPLAFAR_002.</P></BODY></HTML> Sun, 09 Mar 2008 05:06:45 GMT https://community.sap.com/t5/application-development-and-automation-discussions/code-example-for-zxafau02/m-p/3491745#M839705 Former Member 2008-03-09T05:06:45Z Re: code example for ZXAFAU02 https://community.sap.com/t5/application-development-and-automation-discussions/code-example-for-zxafau02/m-p/3491746#M839706 <HTML><HEAD></HEAD><BODY><P>*data: con_afameth_za like t090-afamet value 'ZA',</P><UL><LI level="1" type="ul"><P> con_afameth_zb like t090-afamet value 'ZB',</P></LI><LI level="1" type="ul"><P> con_afameth_zc like t090-afamet value 'ZC',</P></LI><LI level="1" type="ul"><P> con_afameth_zd like t090-afamet value 'ZD',</P></LI></UL><P>DATA: CON_AFAMETH_ZA(2) VALUE 'ZA',</P><P> CON_AFAMETH_ZB(2) VALUE 'ZB',</P><P> CON_AFAMETH_ZC(2) VALUE 'ZC',</P><P> CON_AFAMETH_ZD(2) VALUE 'ZD',</P><P> L_AFABTR TYPE F.</P><P></P><P>E_AKTIV = 'X'.</P><P>E_AFABTR = 0.</P><P>DATA: STRDATE(10) TYPE C ,</P><P> START_PERIOD TYPE I .</P><P>DATA: SUMDEPRE_PERIOD TYPE I ,</P><P> BALDEPRE_PERIOD TYPE I .</P><P></P><P>DATA: FYPLANDEPOD LIKE ANLC-NAFAP ,</P><P> TRUEPLANDEPOD LIKE ANLC-NAFAP ,</P><P> NETBOOKVALUE LIKE ANLC-KANSW ,</P><P> APCVALUE LIKE ANLC-KANSW ,</P><P> ACCMDEPR LIKE ANLC-KNAFA ,</P><P> DEPMONTH LIKE ANLC-PSTBEG .</P><P>TABLES: ANLC ,</P><P> ANLA ,</P><P> ANLB .</P><P>DATA: FIRSTYEAR(4) TYPE C ,</P><P> CURRENTYEAR(4) TYPE C .</P><P></P><P>DATA: ACQYEAR(4) TYPE C ,</P><P> ACQMONTH LIKE ANLA-ZUPER .</P><P></P><P>CURRENTYEAR = SY-DATUM+0(4) .</P><P>LOOP AT T_ANLC WHERE AFABE = I_AFABE .</P><P>**Deprecation amont is : apc * n / (n+1) / all period .</P><P>**At first phase of changeover .</P><P>CLEAR: STRDATE , START_PERIOD , CURRENTYEAR ,</P><P> FYPLANDEPOD , TRUEPLANDEPOD , NETBOOKVALUE .</P><P>CLEAR: ANLC , APCVALUE .</P><P> STRDATE = I_ANLB-AFABG .</P><P> START_PERIOD = STRDATE+4(2) .</P><P> FIRSTYEAR = STRDATE+0(4) .</P><P> CURRENTYEAR = SY-DATUM+0(4) .</P><P> SELECT SINGLE * FROM ANLC WHERE BUKRS = T_ANLC-BUKRS</P><P> AND ANLN1 = T_ANLC-ANLN1</P><P> AND ANLN2 = T_ANLC-ANLN2 .</P><P> IF SY-SUBRC = 0 .</P><P> APCVALUE = ANLC-KANSW + ANLC-ANSWL .</P><P> ACCMDEPR = ANLC-KNAFA + ANLC-NAFAG .</P><P> IF FIRSTYEAR = CURRENTYEAR .</P><P> DEPMONTH = ANLC-PSTEND - ANLC-PSTBEG .</P><P> ELSE .</P><P> DEPMONTH = ANLC-PSTEND - ANLC-PSTBEG + 1 .</P><P> ENDIF.</P><P> ENDIF .</P><P></P><P> IF APCVALUE GT 0 .</P><P></P><P></P><P> FYPLANDEPOD = ( APCVALUE - I_ANLB-SCHRW ) /</P><P> ( I_ANLB-NDJAR * 12 + I_ANLB-NDPER ) * DEPMONTH .</P><P></P><P> E_AFABTR = FYPLANDEPOD .</P><P></P><P> ENDIF.</P><P></P><P> EXIT.</P><P>ENDLOOP.</P></BODY></HTML> Mon, 10 Mar 2008 01:01:29 GMT https://community.sap.com/t5/application-development-and-automation-discussions/code-example-for-zxafau02/m-p/3491746#M839706 Former Member 2008-03-10T01:01:29Z