Config need for T. Code PA30, PA71

Dear Experts,
I have a following Client requirement as like,
1. There are two SAP User (AS User 1 and User 2) for SAP Payroll. requirement is whenever "User 1 " will create a record for IT0008, 0014 , 00015 and 0057 through PA30 or PA71 that record should always create in Lock mode.
2. When "User 2" will check the same created record by "User 1". And same he(User 2) will Unlock after the check.
So my quiry is is it possible through std config or I have to do anything Enhancement to achive the same. Please guide me.
Regards
Swapnil

Hi,
You can achieve this at authorisation level. Ask your basis guy to help on this...
Pls maintain authorisation object below for user 1 (which will be by default lock mode when he will create the record 8 , 14 , 57 etc)
P_ORGIN,P_PCLX,P_PERNR
maintained above auth objects as auth level E
Regards,
Mahesh

Similar Messages

BAPI FOR T-CODE PA30

Hi GURU ,
Is there any BAPI for T-Code PA30 .
Please reply me.

Hi
Go through This link
bapi for pa30
Ranga

Authorization details for T.Code PA61& PA71.

Hi All Experts,
We have to give access to user with T.Code PA61 & PA71 for creating IT2001 & IT2010.
Here we want to give the "Create"authorization only and not any another. (like change, Delete, Copy)
We tried on object p_orgin
with authorization Level W, R M. still unsuccessful.
Please advice
Thanks & Regards,
Siddharth Shah

Hi All Experts,
We have to give access to user with T.Code PA61 & PA71 for creating IT2001 & IT2010.
Here we want to give the "Create"authorization only and not any another. (like change, Delete, Copy)
We tried on object p_orgin
with authorization Level W, R M. still unsuccessful.
Please advice
Thanks & Regards,
Siddharth Shah

Advice needed for changing code within the Web IC...

Hi,
I need to change some code within the GET_QUERY_RESULT Method, which is found:
BSP->Z_CRM_IC
View->AuiSearch
Controller class ZL_CRM_IC_AuiSearch_impl
Method do_handle_event
Method eh_onsearch
Method get_query_result
At present the method get_query_result belongs to class CL_CRM_AUI_QUERY_SERVICE.
I can create a subclass from this and call it ZL_CRM_AUI_QUERY_SERVIC, then redefine the method get_query_class, and then make the appropriate changes. But that may be all uneccessary. What I don't know is how to ensure this modified code can be called.
I have already made changes for method DO_INIT_CONTEXT, hence the reason the controller class ZL_CRM_IC_AUISEARCH_IMPL is identified. But this was simple because the view linked directly to this whereas you can see the code I need to change is further down in process chain.
I know that method get_query_result calls a number of BADI's, but these BADI's are too low for the information that I need and therfore really need to make my code changes in the get_query_result method.
I have been reading as much as I can on this subject, but without much success and therefore really count on experienced developers like yourselves to steer me in the right direction, or give advice.
Jas

I will not suggest to put your Enhancements into CL_CRM_AUI_QUERY_SERVICE.
Rather in Component BT -> Class CL_CRM_BTIL . AUi Query Service will Internally call the BOL Component ( get query result )
In your Framework Profile Config , you specify the Component Set . Ex: ALL
Component set have a List of Component Ex BP , BT .
SPRO-> CRM -> CRM Cross Application Components -> Generic Interaction layer -> Basic Settings
Now you can have your Custom , Component Set ( Ex : ZALL ) and Component ( ( Ex ; ZBT , Totally advisable for CIC Development Framework )
Have BT Copied into ZBT and Specify ZL_CRM_BTIL ( Inherited from CL_CRM_BTIL )
And in your Custom Component Set , Specify ZBT instead of BT .
Now Specify your Custom Component Set in your Framework Profile .
Now you got the Enhancement Spot in ZL_CRM_BTIL->GET_QUERY_RESULT
Let me know if it make sense

Conversion Routine Needed for Tax Code MWSKZ in FM Calcualte_tax_from_netam

i am passing BUKRS,MWSKZ,WRBTR AND WAERS in CALCULATE_TAX_FROM_NET_AMOUNT. From this i get WMWST.
which i need 2 use for calcualating CST(logic is where KSCHL = JVCS ).
But while debugging the code, i get value of MWSKZ as V0 which is maintained as 13 in EKPO Table.
Hence i get WMWST field as 0.
Do i need 2 use a Converision Exit to convert MWSKZ from V0 to 13 ????
Pls assist.

yes i got 2 tax codes in T007A.....but then i shud get the value of WMWST from the FM.
i debugged the code again but m not gettin the flaw in data retrieval logic !!
This is the logic i used :-
T_RET TYPE STANDARD TABLE OF RTAX1U15,
CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT'
          EXPORTING
            I_BUKRS                 = 'RALI'
            I_MWSKZ                 = WA_FINAL-MWSKZ
         I_TXJCD                 = ' '
            I_WAERS                 = 'INR'
            I_WRBTR                 = WA_FINAL-NETWR
         I_ZBD1P                 = 0
         I_PRSDT                 =
         I_PROTOKOLL             =
         I_TAXPS                 =
         I_ACCNT_EXT             =
       IMPORTING
         E_FWNAV                 =
         E_FWNVV                 =
         E_FWSTE                 =
         E_FWAST                 =
          TABLES
            T_MWDAT                 = T_RET
       EXCEPTIONS
         BUKRS_NOT_FOUND         = 1
         COUNTRY_NOT_FOUND       = 2
         MWSKZ_NOT_DEFINED       = 3
         MWSKZ_NOT_VALID         = 4
         KTOSL_NOT_FOUND         = 5
         KALSM_NOT_FOUND         = 6
         PARAMETER_ERROR         = 7
         KNUMH_NOT_FOUND         = 8
         KSCHL_NOT_FOUND         = 9
         UNKNOWN_ERROR           = 10
         ACCOUNT_NOT_FOUND       = 11
         TXJCD_NOT_VALID         = 12
         OTHERS                  = 13
        IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
LOOP AT T_RET INTO WA_T_RET.
          IF WA_T_RET-KSCHL EQ 'JVCS'.
            LV_CST = LV_CST + WA_T_RET-WMWST.
          ENDIF.
        ENDLOOP.
        WA_FINAL-WMWST_CST = LV_CST.
        clear : LV_CST.

UK Skype Number - no need for country code?

Hi
Just bought a UK Skype Number here in Oz.
Just double checking that for family in the UK, they just need to enter the 11 digit Skype number, not the UK country code as well- because it is an online number (eg. 0113 not +44 113 etc)??
Dont want to send the number out there incorrectly or give them uneccessarily long number to dial!
Thank you.

Did you hear back on this - same question here...

Config needed for MIGO

Dear Friends,
We have a requirement from the client.
Initially, the user will create a PO and in that PO they will have an additional line item called Add on Cost. There will be a Zcondition type for that.
Now the clients requirement is they want this Add on Cost to go to a different account while doing MIGO.
For Example If 100 is the material cost and 25 is the Add on Cost, while doing MIGO the accounting entry should be
Inventory A/C Dr 125
To GR/IR A/C 100
To Addon Cost A/C 25
Can you please suggest what configuration needs to be done for this.

Dear,
This will require huge rework like creating new transaciton key, map this key to valuation string, assign this string to the movement type and then assign G/L account to this transaction, which I would not recommend. I recommend you to create condition type for this and create new key in OBCN and then map this account key to condition type which will create accounting document you want.
Regards,
Chintan Joshi.

What authorization are need for T-code se37

Hi,
i create a user with following roles:
SAP_BC_USER_ADMIN
SAP_J2EE_ADMIN
SAP_MT_SYSTEM_TEST
SAP_SLD_ADMINISTRATOR
But when i logon with this user, and run se37, a warning message will show as following:
"You are not authorized to use transaction SE37".
Then, what other roles, not SAP_ALL, do i need to assign to the user for SE37.
Thanks & Best Regards,
Johnney.

hi,
You can check authorization object name from tcode SU53.
Regards
Gagan

I have just purchased a new iMac and have uninstalled cs6 from my old iMac. Do I just install CS6 as normal or do I need a new code. My licence is for one user

I have just purchased a new iMac and have uninstalled cs6 from my old iMac. Do I just install CS6 as normal or do I need a new code. My licence is for one user

Yes, just install as you normally would using the serial number you originally used.
You did not have to uninstall on the old machine - with your single user license you are allowed to have two activated installations. So feel free to reinstall it if those are the only two machine you plan to have it on and you'd like to have a backup installation.

File missing (file\BCD error code 0Xc0000034 help need for work!

file missing (file\BCD error code 0Xc0000034 help need for work! what can i do?
have an p 2000 notebook pc

Hi bobkunkle, welcome to the HP Forums. I understand you cannot boot passed the error you are receiving.
What is the model or product number of your notebook? What version of Windows is installed?
Guide to finding your product number
Which Windows operating system am I running?
TwoPointOh
I work on behalf of HP
Please click “Accept as Solution ” if you feel my post solved your issue, it will help others find the solution.
Click the “Kudos, Thumbs Up" on the bottom to say “Thanks” for helping!

I need the activation code for nokia 9300I

i have mobil nokia 9300i and i need the activation code for nokia 9300I to install MobiDict english-arabic
and that is my serial number
and thanks a lot
Moderator Note: IMEI number removed
Message Edited by kenken on 23-Oct-2008 02:17 PM

Software activation codes are provided by the software producers, so you need to check with the site you downloaded the app from.

Hello sir,i need labview code for a code which is written in matlab,latter one is attached with this message.

hello sir,i need labview code for a code which is written in matlab...
clc;
close all;
clear all;
Ez= zeros(1,200);
Hy=zeros(1,200);
Ca=1;
Cb=.4519;
n=1;
while(n<1500)
for k = 2:200
Ez(k)=Ez(k) + Cb*(Hy(k)-Hy(k-1));
end
Ez(1)=1;
for k=1:199
Hy(k)=Hy(k)+Cb*(Ez(k+1)-Ez(k));
end
plot(Ez,'b')
hold on
plot(Hy,'r')
hold off
pause(0.001);
n=n+1;
end
thanku

Well, this code is quite trivial and if you have to learn LabVIEW anyway, you might as well try to implement it.
A few things to remember:
The first array element in LabVIEW has index #0, while in matlab it has index #1, so everything dealing with array indices needs to be adjusted slightly.
The zeroes function equivalent is "initialize array".
Keep the array in a shift register as you update elements.
use FOR loops.
Use one of the graphs to display the data.
LabVIEW Champion . Do more with less code and in less time .

Needed example working code for FM"LAST_DAY_IN_PERIOD_GET"

needed example working code for FM"LAST_DAY_IN_PERIOD_GET"

Hi,
Go through this code
*& Report Z_FICO_REP_SHIPMENTS
REPORT z_fico_rep_shipments MESSAGE-ID sd.
TYPE-POOLS : slis.
TABLES : vbak,
         kna1,
         likp,
         vbfa.
*>> DEFINE global Types
TYPES : BEGIN OF gt_vbak,
          vbeln TYPE vbeln,
          kunnr TYPE kunnr ,
          spart TYPE spart,
          audat TYPE audat,
        END OF gt_vbak,
        BEGIN OF gt_kna1,
          kunnr TYPE kunnr,
          name1 TYPE name1,
        END OF gt_kna1,
        BEGIN OF gt_likp,
          vbeln     TYPE vbeln,
          wadat_ist TYPE wadat_ist,
        END OF gt_likp,
        BEGIN OF gt_vbfa,
          vbelv     TYPE vbelv,
          erdat     TYPE erdat,
          rfwrt     TYPE rfwrt,
       END OF gt_vbfa,
        BEGIN OF gt_final,
          kunnr   TYPE kunnr,
          name1   TYPE name1,
          cumon   TYPE monat,
          trcum   TYPE rfwrt,
          trcuy   TYPE rfwrt,
          perce   TYPE rfwrt,
          fiscy   TYPE gjahr,
          ftrcum TYPE rfwrt,
          ftrcuy TYPE rfwrt,
          fperce TYPE rfwrt,
        END OF gt_final.
DATA : gwa_vbak   TYPE gt_vbak,
       gwa_kna1   TYPE gt_kna1,
       gwa_likp   TYPE gt_likp,
       gwa_vbfa   TYPE gt_vbfa,
       gwa_final TYPE gt_final,
       gwa_sort   TYPE slis_sortinfo_alv,
       gwa_layout TYPE slis_layout_alv.    "ALV Layout
DATA : gi_vbak    TYPE STANDARD TABLE OF gt_vbak,
       gi_kna1    TYPE STANDARD TABLE OF gt_kna1,
       gi_likp    TYPE STANDARD TABLE OF gt_likp,
       gi_vbfa    TYPE STANDARD TABLE OF gt_vbfa,
       gi_likp1   TYPE STANDARD TABLE OF gt_likp,
       gi_vbfa1   TYPE STANDARD TABLE OF gt_vbfa,
       gi_final   TYPE STANDARD TABLE OF gt_final WITH HEADER LINE,
       gi_final1 TYPE STANDARD TABLE OF gt_final WITH HEADER LINE.
*>> DEFINE INTERNAL TABLE
DATA : gi_fieldcat    TYPE slis_t_fieldcat_alv,   "ALV Fieldcatalog
       gi_events      TYPE slis_t_event,          "ALV EventS
       gi_sort        TYPE slis_t_sortinfo_alv ,
       gi_top_of_page TYPE slis_t_listheader.     "ALV LIST HEADER
DATA : gv_month(2) TYPE n.
*>> GLOBAL CONSTANTS
CONSTANTS: gc_day(2) TYPE n VALUE 01,
           gc_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
           gc_x TYPE c VALUE 'X'.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_monat      TYPE     monat OBLIGATORY,
            p_gjahr     TYPE     gjahr OBLIGATORY.
SELECT-OPTIONS : s_bukrs      FOR      vbak-bukrs_vf OBLIGATORY,
                 s_vkorg     FOR      vbak-vkorg,
                 s_spart     FOR     vbak-spart     OBLIGATORY,
                 s_audat   FOR    vbak-audat NO-DISPLAY.
SELECTION-SCREEN:END OF BLOCK b1.
SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
PARAMETERS: p_det RADIOBUTTON GROUP grp DEFAULT 'X' ,
          p_sum RADIOBUTTON GROUP grp.
SELECTION-SCREEN:END OF BLOCK b2.
START-OF-SELECTION.
*>> Take Period And year and find starting and ending date
PERFORM fiscal_date.
PERFORM collect_data.
PERFORM manipulation_collect_data.
END-OF-SELECTION.
*>> Sort
PERFORM gi_sort_table.
*>> MEARGE FIELD CATALOG USING INTERNAL TABLE
PERFORM mearge_field_catalog.
*>> SET EVENTS
PERFORM set_event.
*>> FOR ALV HEADER
PERFORM n_top_of_page USING gi_top_of_page[].
*>>For ALV Layout
PERFORM build_layout.
*>>For output display
PERFORM alv_grid_display.
*&      Form fiscal_date
FORM fiscal_date.
TYPES : BEGIN OF lt_fisc,
            bukrs TYPE bukrs,
            periv TYPE periv,
            bumon TYPE bumon,
            butag TYPE butag,
          END OF lt_fisc,
          BEGIN OF lt_t009b,
            periv TYPE periv,
            bumon TYPE bumon,
            butag TYPE butag,
            poper TYPE poper,
           END OF lt_t009b.
DATA : lwa_fisc TYPE lt_fisc,
         lwa_t009b TYPE lt_t009b.
DATA : li_fisc TYPE STANDARD TABLE OF lt_fisc,
         li_t009b TYPE STANDARD TABLE OF lt_t009b.
DATA : lv_date(2) TYPE c,
         lv_mont(2) TYPE c,
         lv_year(4) TYPE c.
SELECT bukrs periv FROM t001
                     INTO TABLE li_fisc
                     WHERE bukrs IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT * FROM t009b
             INTO CORRESPONDING FIELDS OF TABLE li_t009b
             FOR ALL ENTRIES IN li_fisc
             WHERE periv EQ li_fisc-periv .
    IF sy-subrc NE 0.
      CLEAR li_t009b.
    ENDIF.
ELSE.
    CLEAR li_fisc.
ENDIF.
SORT li_t009b BY periv poper.
LOOP AT li_fisc INTO lwa_fisc.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = '001'
                                       BINARY SEARCH.
    IF sy-subrc = 0.
      s_audat-option = 'EQ'.
      s_audat-sign   = 'I'.
      CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
        EXPORTING
          i_gjahr = p_gjahr
          i_periv = lwa_t009b-periv
          i_poper = lwa_t009b-poper
        IMPORTING
          e_date = s_audat-low.
    ENDIF.
    CLEAR lwa_t009b.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = '012'
                                       BINARY SEARCH.
    IF sy-subrc = 0.
      CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET'
        EXPORTING
          i_gjahr = p_gjahr
          i_periv = lwa_t009b-periv
          i_poper = lwa_t009b-poper
        IMPORTING
          e_date = s_audat-high.
    ENDIF.
    CLEAR lwa_t009b.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = p_monat
                                        BINARY SEARCH.
    IF sy-subrc = 0.
      lv_date = s_audat-high+6(2).
      lv_mont = s_audat-high+4(2).
      lv_year = s_audat-high(4).
      lv_mont = lwa_t009b-bumon.
      lv_date = lwa_t009b-butag.
      CONCATENATE lv_year lv_mont lv_date INTO s_audat-high.
      APPEND s_audat.
      CLEAR: lwa_fisc,lwa_t009b,lv_date,lv_mont,lv_year.
    ENDIF.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM s_audat.
ENDFORM.                    "fiscal_date
*&      Form collect_data
FORM collect_data .
SELECT vbeln kunnr spart audat
      FROM vbak
      INTO TABLE gi_vbak
      WHERE audat    GE s_audat-low AND
            audat    LT s_audat-high AND
            vkorg    IN s_vkorg AND
            spart    IN s_spart AND
            bukrs_vf IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT kunnr name1
    FROM kna1
    INTO TABLE gi_kna1
    FOR ALL ENTRIES IN gi_vbak
    WHERE kunnr EQ gi_vbak-kunnr.
    IF sy-subrc NE 0.
      CLEAR gi_kna1.
    ENDIF.
    SELECT vbeln wadat_ist
    FROM likp
    INTO TABLE gi_likp
    WHERE wadat_ist GE s_audat-low AND
          wadat_ist LT s_audat-high .
    IF sy-subrc EQ 0.
      SELECT vbelv erdat rfwrt
      FROM vbfa
      INTO TABLE gi_vbfa
      FOR ALL ENTRIES IN gi_likp
      WHERE vbeln   = gi_likp-vbeln AND
             ( vbtyp_n = 'M' OR
            vbtyp_n = 'H' ) .
      IF sy-subrc NE 0.
        CLEAR gi_vbfa.
      ENDIF.
    ELSE.
      CLEAR gi_likp.
    ENDIF.
    PERFORM change_date.
    SELECT vbeln wadat_ist
    FROM likp
    INTO TABLE gi_likp1
    WHERE wadat_ist GE s_audat-low AND
          wadat_ist LT s_audat-high .
    IF sy-subrc EQ 0.
      SELECT vbelv erdat rfwrt
      FROM vbfa
      INTO TABLE gi_vbfa1
      FOR ALL ENTRIES IN gi_likp1
      WHERE vbeln   = gi_likp1-vbeln AND
             ( vbtyp_n = 'M' OR
            vbtyp_n = 'H' ) .
      IF sy-subrc NE 0.
        CLEAR gi_vbfa.
      ENDIF.
    ELSE.
      CLEAR gi_likp.
    ENDIF.
ELSE.
    MESSAGE i261.
    LEAVE SCREEN.
ENDIF.
ENDFORM.                    "collect_data
*&      Form Manipulation_collect_data
FORM manipulation_collect_data.
SORT gi_vbak BY vbeln.
SORT gi_kna1 BY kunnr.
LOOP AT gi_vbak INTO gwa_vbak.
    MOVE-CORRESPONDING gwa_vbak TO gwa_final.
    READ TABLE gi_kna1 INTO gwa_kna1 WITH KEY kunnr = gwa_vbak-kunnr
                                   BINARY SEARCH.
    IF sy-subrc EQ 0.
      gwa_final-name1 = gwa_kna1-name1.
    ENDIF.
ENDLOOP.
*    v_month = gwa_vbak-audat+4(2).
*    gwa_final-cumon = p_monat.
*    gwa_final-fiscy = p_gjahr.
*    IF v_month = p_monat.
*      CLEAR wa_ckmlhd.
*      READ TABLE i_ckmlhd INTO wa_ckmlhd WITH KEY matnr = wa_vbap-matnr
*                                                  bwkey = wa_vbap-werks
*                                                  BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        CLEAR i_nckmlcr.
*        READ TABLE i_nckmlcr INTO wa_nckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc EQ 0.
*          gwa_final-peinh = wa_nckmlcr-peinh.
*          gwa_final-kzwi6 = wa_vbap-kzwi6 - wa_vbap-kzwi5.
*          gwa_final-kzwi5 = wa_vbap-kzwi5.
*          gwa_final-totre = gwa_final-kzwi6 + gwa_final-kzwi5.
*          gwa_final-actco = ( wa_nckmlcr-pvprs / wa_nckmlcr-peinh ) *
*                            wa_vbap-kwmeng.
*          gwa_final-profit = gwa_final-totre - gwa_final-actco.
*          gwa_final-prows = ( gwa_final-profit - gwa_final-kzwi6 ) *
*100.
*        ENDIF.
*      ENDIF.
*    ELSE.
*      CLEAR wa_ckmlhd.
*      READ TABLE i_ckmlhd INTO wa_ckmlhd WITH KEY matnr = wa_vbap-matnr
*                                                bwkey = wa_vbap-werks
*                                                BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        READ TABLE i_ckmlcr INTO wa_ckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc NE 0.
*          CLEAR wa_ckmlcr.
*        ENDIF.
*        CLEAR wa_nckmlcr.
*        READ TABLE i_nckmlcr INTO wa_nckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc EQ 0.
*          gwa_final-fkzwi6 = wa_vbap-kzwi6 - wa_vbap-kzwi5.
*          gwa_final-fkzwi5 = wa_vbap-kzwi5.
*          gwa_final-ftotre = gwa_final-fkzwi6 + gwa_final-fkzwi5.
*          gwa_final-factco = ( ( wa_nckmlcr-pvprs / wa_ckmlcr-peinh )
*                               * wa_vbap-kwmeng ) / wa_nckmlcr-count.
*          gwa_final-fprofit = gwa_final-ftotre - gwa_final-factco.
*         gwa_final-fprows = ( gwa_final-fprofit - gwa_final-kzwi6 ) *
*100
*        ENDIF.
*      ENDIF.
*    ENDIF.
*    APPEND gwa_final TO gi_final.
*    CLEAR : gwa_final,wa_nckmlcr,wa_ckmlcr,wa_ckmlhd,
*            gwa_vbak,wa_vbap,gwa_kna1.
* ENDLOOP.
* gwa_final-matnr = space.gwa_final-vbeln = space.
* MODIFY gi_final FROM gwa_final TRANSPORTING vbeln matnr
*                                WHERE matnr NE space.
* SORT gi_final BY kunnr vbeln matnr.
* IF p_sum = gc_x.
*    LOOP AT gi_final INTO gwa_final.
*      COLLECT gwa_final INTO gi_final1.
*    ENDLOOP.
*    CLEAR gwa_final.REFRESH gi_final.
*    gi_final[] = gi_final1[].
* ENDIF.
ENDFORM.                    "manipulation_collect_data
*&      Form change_date
FORM change_date.
DATA : lv_date(2) TYPE c,
         lv_mont(2) TYPE c,
         lv_year(4) TYPE n.
lv_date = s_audat-low+6(2).
lv_mont = s_audat-low+4(2).
lv_year = s_audat-low(4).
lv_year = lv_year - 1.
CONCATENATE lv_year lv_mont lv_date INTO s_audat-low.
CLEAR : lv_date ,lv_mont,lv_year.
lv_date = s_audat-high+6(2).
lv_mont = s_audat-high+4(2).
lv_year = s_audat-high(4).
lv_year = lv_year - 1.
CONCATENATE lv_year lv_mont lv_date INTO s_audat-high.
CLEAR : lv_date ,lv_mont,lv_year.
ENDFORM.                    " change_date
*&      Form gi_sort_table
FORM gi_sort_table.
IF p_det = gc_x.
    gwa_sort-spos = '1'.
    gwa_sort-fieldname = 'KUNNR'.
    gwa_sort-tabname = 'gi_final'.
    gwa_sort-up = gc_x.
    gwa_sort-subtot = gc_x.
    APPEND gwa_sort TO gi_sort.
    CLEAR gwa_sort.
    gwa_sort-spos = '2'.
    gwa_sort-fieldname = 'NAME1'.
    gwa_sort-tabname = 'gi_final'.
    gwa_sort-up = gc_x.
    APPEND gwa_sort TO gi_sort.
* ELSE.
*    gwa_sort-spos = '1'.
*    gwa_sort-fieldname = 'KUNNR'.
*    gwa_sort-tabname = 'gi_final'.
*    gwa_sort-up = gc_x.
*    APPEND gwa_sort TO gi_sort.
*    CLEAR gwa_sort.
*    gwa_sort-spos = '2'.
*    gwa_sort-fieldname = 'NAME1'.
*    gwa_sort-tabname = 'gi_final'.
*    gwa_sort-up = gc_x.
*    gwa_sort-group = gc_x.
*    gwa_sort-subtot = gc_x.
*    APPEND gwa_sort TO gi_sort.
ENDIF.
ENDFORM.                    "gi_sort_table
*&      Form mearge_field_catalog
FORM mearge_field_catalog .
*>> LOCAL WORK AREA FOR FIELDCATALOG
DATA : lwa_fieldcata TYPE slis_fieldcat_alv.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KUNNR'.
* lwa_fieldcata-col_pos      = 1.
lwa_fieldcata-key          = 'X'.
lwa_fieldcata-key_sel      = 'X'.
lwa_fieldcata-ref_tabname = 'KNA1'.
lwa_fieldcata-seltext_l    = 'Customer No.'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'NAME1'.
* lwa_fieldcata-col_pos      = 2.
lwa_fieldcata-ref_tabname = 'KNA1'.
lwa_fieldcata-seltext_l    = 'Customer Name'.
APPEND lwa_fieldcata TO gi_fieldcat.
IF p_det = gc_x.
    CLEAR lwa_fieldcata.
    lwa_fieldcata-fieldname    = 'VBELN'.
*    lwa_fieldcata-col_pos      = 3.
    lwa_fieldcata-ref_tabname = 'VBAK'.
    lwa_fieldcata-seltext_l    = 'Sales Order Number'.
    APPEND lwa_fieldcata TO gi_fieldcat.
    CLEAR lwa_fieldcata.
    lwa_fieldcata-fieldname    = 'MATNR'.
*    lwa_fieldcata-col_pos      = 4.
    lwa_fieldcata-ref_tabname = 'VBAK'.
    lwa_fieldcata-seltext_l    = 'Material No.'.
    APPEND lwa_fieldcata TO gi_fieldcat.
ENDIF.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KWMENG'.
lwa_fieldcata-col_pos      = 5.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-do_sum       = 'X'.
lwa_fieldcata-seltext_l    = 'Order Quantity'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PEINH'.
lwa_fieldcata-col_pos      = 6.
lwa_fieldcata-ref_tabname = 'CKMLCR'.
lwa_fieldcata-text_fieldname = 'PEINH'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'CUMON'.
lwa_fieldcata-col_pos      = 7.
lwa_fieldcata-ref_tabname = 'VBKPF'.
lwa_fieldcata-seltext_l    = 'Month'.
lwa_fieldcata-no_sum       = gc_x.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KZWI6'.
lwa_fieldcata-col_pos      = 8.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Costed Sales'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KZWI5'.
lwa_fieldcata-col_pos      = 9.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Surcharges'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'TOTRE'.
lwa_fieldcata-col_pos      = 10.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Total Revenues'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'ACTCO'.
lwa_fieldcata-col_pos      = 11.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-seltext_l    = 'Actual Cost for Period'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PROFIT'.
lwa_fieldcata-col_pos      = 12.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PROWS'.
lwa_fieldcata-col_pos      = 13.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit % w/surcharge'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FISCY'.
lwa_fieldcata-col_pos      = 14.
* lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Fiscal Year'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FKZWI6'.
lwa_fieldcata-col_pos      = 15.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Costed Sales'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FKZWI5'.
lwa_fieldcata-col_pos      = 16.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Surcharges'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FTOTRE'.
lwa_fieldcata-col_pos      = 17.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Total Revenues'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FACTCO'.
lwa_fieldcata-col_pos      = 18.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-seltext_l    = 'Actual Cost for Period'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FPROFIT'.
lwa_fieldcata-col_pos      = 19.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FPROWS'.
lwa_fieldcata-col_pos      = 20.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit % w/surcharge'.
APPEND lwa_fieldcata TO gi_fieldcat.
ENDFORM.                    " mearge_field_catalog
*&      Form set_event
FORM set_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 1
    IMPORTING
      et_events   = gi_events.
SORT gi_events BY name.
*-- To read Top of Page event
PERFORM read_events USING slis_ev_top_of_page gc_top_of_page.
ENDFORM.                    " set_event
*&      Form top_of_page
FORM n_top_of_page USING lp_top_of_page TYPE slis_t_listheader.
DATA: lwa_listhead TYPE slis_listheader,
        lv_ccode TYPE string,
        lv_sales TYPE string,
        lv_divis TYPE string.
CONCATENATE 'From : ' s_bukrs-low ' To: ' s_bukrs-high INTO lv_ccode.
CONCATENATE 'From: ' s_vkorg-low       ' To: ' s_vkorg-high INTO lv_sales.
CONCATENATE 'From: ' s_spart-low       ' To: ' s_spart-high INTO lv_divis.
CLEAR lwa_listhead.
lwa_listhead-typ = 'H'.
lwa_listhead-info = text-003.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Month'.
lwa_listhead-info = p_monat.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Year'.
lwa_listhead-info = p_gjahr.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Company Code'.
lwa_listhead-info = lv_ccode.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Sales Org'.
lwa_listhead-info = lv_sales.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Division'.
lwa_listhead-info = lv_divis.
APPEND lwa_listhead TO lp_top_of_page.
IF p_det = gc_x.
    CLEAR lwa_listhead.
    lwa_listhead-typ = 'A'.
    lwa_listhead-info = text-004.
    APPEND lwa_listhead TO lp_top_of_page.
ELSE.
    CLEAR lwa_listhead.
    lwa_listhead-typ = 'A'.
    lwa_listhead-info = text-005.
    APPEND lwa_listhead TO lp_top_of_page.
ENDIF.
ENDFORM.                    "top_of_page
*&      Form TOP_OF_PAGE
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'ENJOYSAP_LOGO'
      it_list_commentary = gi_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
*&      Form build_layout
FORM build_layout .
gwa_layout-no_input          = gc_x.
gwa_layout-colwidth_optimize = gc_x.
gwa_layout-zebra             = gc_x.
ENDFORM.                    "build_layout
*&      Form alv_grid_display
FORM alv_grid_display .
* Function module to display ALV report
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = gwa_layout
      it_fieldcat        = gi_fieldcat[]
      it_sort            = gi_sort
      i_save             = 'A'
      it_events          = gi_events[]
    TABLES
      t_outtab           = gi_final
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " alv_grid_display
*&      Form read_events
FORM read_events USING pr_events    TYPE slis_alv_event-name
                         pr_eventname TYPE slis_formname.
DATA: lwa_event TYPE slis_alv_event.
CLEAR lwa_event.
READ TABLE gi_events INTO lwa_event
                      WITH KEY name = pr_events BINARY SEARCH.
IF sy-subrc = 0.
    MOVE pr_eventname TO lwa_event-form.
    MODIFY gi_events FROM lwa_event
                    TRANSPORTING form
                    WHERE name = pr_events.
ENDIF.
ENDFORM.                    " read_events
Regards
Sandipan

How can I alternate character colors with code CS3 JS-need for eye excersize?!

For an interesting attempt to train eye focusing, I need to write code or find a tip to color every other character in any given file.
Still an amatuer in Scripting.
ST

Select a text frame and run the script. Don't choose a frame with great number of characters if you don't want to wait until tomorrow morning.
var myDocument = app.activeDocument;
var myColorCounter = 0;
var myColors = [];
var myColorsValues = [
                      [100, 0, 0, 0],
                      [80, 0, 100, 0],
                      [0, 0, 100, 0],
                      [100, 60, 0, 0],
                      [0, 100, 100, 0],
                      [60, 100, 0, 0],
                      [0, 44, 96, 0]
CheckSwatches();
// Select a text frame
var myTextFrame = myDocument.selection[0];
var myCharacters = myTextFrame.characters;
for (i = 0; i < myCharacters.length; i++) {
    myCharacters[i].fillColor = myColors[myColorCounter]
    ResetSwatches();
ResetSwatches();
function CheckSwatches() {
    for (i=0; i<myColorsValues.length; i++) {
        var myCurArray = myColorsValues[i];
        var myColorName = "C=" + myCurArray[0] + " M=" + myCurArray[1] + " Y=" + myCurArray[2] + " K=" + myCurArray[3];
        if (myDocument.swatches.item(myColorName) == null){
            var myCurColor = myDocument.colors.add({colorValue:myCurArray, name:myColorName});
            myColors.push(myCurColor);
        else {
            myColors.push(myDocument.colors.item(myColorName));
function ResetSwatches() {
    if (myColorCounter < myColorsValues.length-1) {
        myColorCounter++;
    else {
        myColorCounter = 0;

Why do we need separate t.codes KB11N and KB41N for reposting costs & rev?

Hi,
Why do we need separate t.codes KB11N and KB41N for reposting costs and revenues? I noticed that i can still use one t.code KB11N to post both costs and revenues, hence why do we need a separate t.code KB41N for revenues?

Hi,
The BAPI for costs allows more options than the one for revenues. For example, via BAPI_ACC_PRIMARY_COSTS_POST you can select sender Network, what you cannot do via BAPI_ACC_REVENUES_POST. The same is for 'cost object' as a receiver; you can do it only via BAPI for costs. In other aspects, the BAPI for costs could be used to repost revenues as well.
Regards,
Eli

Config need for T. Code PA30, PA71

Similar Messages

Maybe you are looking for