How to block project status in CJ20n

Dear All,
I am facing one scenario,and also gone through lots of sap notes and many research work, But did not find the accurate answer to resolve this issue.
My Issue is how to block Project Status in CJ20N like lock and Unlock etc. Because in our organisation if i assign the authorization for Cj20n, then every user got the access of this and they mis use it.
So i want to restrict users at this point . Please guide me through this on early manner.
Early step by step response will be appreciable.

Dear Renu,
Your question seems to be confusing. I got a conclusion that either you want to lock/unlock the project or just simple not allowing users to access CJ20N transaction.
For your information. Following is the reply for both queries:-
1. To lock/unlock project, please select project definition and go to Edit>Status>Lock/Unlock-->Master Data.
2. For not allowing every user to access CJ20N, please refer to BASIS guys in your organization.
Please revert me back if you have doubt or If I am thinking in another way.
Many Thanks,
Amit
Edited by: A.Rajoria on Feb 28, 2011 7:43 AM

Similar Messages

How to block the status mail for an inbound Idoc to a specific user

Hi,
I have to stop sending the error status mail to a specific user depenidng on Partner Type. This will trigger when an inbound Idoc contains status error(message type INVOIC &ORDRSP).This user needs other mails which are getting triggered with the same Idoc for the same partner. Basically, the requirement is to block only the status mail for that user. The statndard task for this is TS70008125 and it uses the agent determination rule 30000001 (Idoc Administrator).in WE46, this task is assigned to process code EDIR. I have copied the task to a custom task and changed the agent determination rule. I would like to know how will I configure this task so that this custom task will trigger for the status error, without altering other workflows for the same message type & the partner type. Or is there any other way to block the mail?
Thanks,
Santosh

Hi,
I have done the required coding to exclude the specific agent from the rule,copied the task and its ready. My question is how do I map this custom task to a particular partner type, for the message type INVOIC in WE20? (The message type used for the inbound Idoc is INVOIC). I checked the Partner profile in WE20. Most of the process code is using function module as the processing type.
Thanks,
Santosh

How to set custmer master block for posting & how to set the status .....

< MODERATOR: Message locked. Please read the [Rules of Engagement|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/home/rulesofEngagement] before posting next time. Use an appropriate subject in your message thread. >
Hi ...
How to set custmer master blocked for posting & how to set the status has deleted. please provide the steps for the above two actions.
thanks

Hi,
U can use T-code FD05 for Blocking the customer and
T-code FD06 in order to set for deletion,
Assign Points if useful,
Regards,

CJ20N Authorization Object for Project Status Changes

Hi Gurus,
Can any one knows the Authorization Object responsible to control the change of status for a project in the CJ20N?
We want to control who can and who can't change the STATUS of a project independent from other changes.
Regards
Gustavo Balboa

User authorization object B_USERSTAT. Before that u should define authorization key in Tcode:BS52 and assign it to User status in Tcode:OK02.
In authorization object B_USERSTAT set ERSL=Authorization Key, so that the user can change the status of that perticular status only.
Venkat

How to block user to open any PO (Order) from Approval status to Worksheet

Hi,
Can anybody help me how to block user that he cannot bring any approved PO to worksheet status in RMS.
Regards

Hello,
The following query will make sure that only a user with DEVELOPER role can see the 'Worksheet' option in the Options menu.
Users who do not have DEVELOPER role will not see the 'Worksheet' option in the Options menu.
You would want to make it possible for a higher privilege user to still place orders back in Worksheet status.
insert into sec_form_action_role (sec_form_action_id,role)
select sec_form_action_id,'DEVELOPER' as role from sec_form_action
where form_name='FM_ORDHEAD'
and obj_name='OPTIONS_MENU.WORKSHEET';
Regards,
Ramnath

How to block status profile in Network Activity

Dear All,
Is there any way to block status profile in network activity? Is it possible block base on network type / network profile?
Cheers,
Nies

Hi,
we can block the status profile by using network type. Define your own order types in txn kot2_opa.same will be displayed in txn opsc with out status profile. assign the same network type in network profile.
regards,

Return to vendor from Blocked Project stock - Line rejection

hi
I have a problem in doing line rejection for return delivery from a blocked project stock.
we had modified F5 notification for Project related senario to FQ and using the same for doing line rejection return delivery directly from project stock with the help of action box.
While the include is accessing MSPR table for picking up the project stock.
the steps involved are as below.
1. create FQ notification (Similar to F5) by giving inputs as Material to be rejected,Plant, Defect code from existing code group and assign the purchase order.
2. Tranfer the project stock to blocked projection stock ie.rejection stores using 344 movement type. while doing this 344 we give input of WBS element, storage location and Batch.Stocks against this WBS are picked from MSPR table and trasnferd to rejection stores.
3.After this while doing return to vendor we give the reason code and post 122 document.
the problem is if the material is having two WBS elements it and both have stock in rejection stores this follow up action is unable to pick the Exact stock for which the WBS element is assigned to notification while 344 movement.
please suggest me as how the WBS element can be retrived from a notification which was used for earlier actions in action BOX.
regards
NVB

Hi
If u want to return the material to the vendor. In MIGO itself select return delivery against the material document with movement type 122 u can send it.
This is irrespective of material lying in quality or blocked. From quality or from blocked status u can send the material back to vendor.
No need for quality to Un restricted or Blocked to Un restricted.
Regards,
Raman

Searching for a Project status = CLSD and open purchase orders?

Hi,
I am searching for a project status (Project Builder CJ20N) which allowed my to set a CLSD or a simillar status for settlement with open purchase orders.
This staus should allowed to process with open orders BUT not allowed to add new orders after setting this status.
Have somebody any idee? Or it is impossible?
Tahnk you in advanced for your Help.
Regards Baldy

Hi TV-kid,
while I was waiting for an answer I got to the same conclusion, so what you offers me is quite tempting actually.
I got a look to your website and it seems convincing. Still though, your case studies are in other business area, It's only a mater of good knowledge of File Maker.
I did download the test-drive last version of File Maker plus their samll Business Solution. I did read most of the documentation and the learning process would be too long to construct ourself a good crossed-data base.
I'd like to get in contact with you to look for a possible colaboration. to get private, I'd liketo do it through your contact link in your website .
To whom shall I write?
Thanks
Cheers
Cheers

How to use pf-status u2018menuu2019 in ALV report ?

Hi Friends,
How to use pf-status u2018menuu2019 in ALV report ?
I want to use back button ( F3). whenever press it should show
another report.
I used subroutine
form SUB_ERROR_OUTPUT USING RT_EXTAB TYPE SLIS_T_EXTAB .
SET PF-STATUS 'ZMENU' EXCLUDING RT_EXTAB. u201C( the button name is u201C back u201C)
CASE SY-UCOMM.
*WHEN '&F03'.
WHEN 'BACK'
( my coding is there ).
endcase.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PF_STATUS_SET          = 'SUB_ERROR_OUTPUT'
but it is executing, working the back button but not showing another report .
any other procedure to use back button in alv report ?
plz any idea .
For correct answer reword most.
Thanking you.

Purchase day Book .
Data to be down loaded / printed for EDP dept. CGL.
CGL - Requirement .
WRITTEN BY : ADI.****
*CONSULTANT : SANJAY JAJOO..
AS PER DP REQUIREMENT.
-CHANGED BY    :    KRISHNA MOHAN (15/01/2002)--
-CHANGE REQ BY :    JAJU S--
-DESCRIPTION   :    SUMMRY BY TAX CODE WISE & GL CODE WISE--
---MODIFIED LINES: -
---CHANGED BY    :    -
---CHANGE REQ BY :    -
---DESCRIPTION   :    -
---MODIFIED LINES: -
*---changed by    :    sanjay jajoo on 23/08
*---changed req by:    Ranka
*---Description   :    Inserting Range of period as sel field
changed by    :    krishna mohan
func. consultant: sanjay jajoo
REPORT ZMMPURDB MESSAGE-ID 00
                LINE-SIZE 255
                LINE-COUNT 60
                NO STANDARD PAGE HEADING .
TABLES :   MKPF   , MSEG ,SKAT,
           EKKO   , EKPO , EKBE ,
           BSEG   , BKPF , BSET ,
           T009B , T001 , T007S ,
           T001W , T001K ,LFA1.
******Table deactivated on 30/8/2000------jaju
*tables : zcgltaxatn .
DATA : ZFILE1(65) VALUE '/DOWNLOAD/'.
DATA : ZFILE2(65) .
DATA : ZFILE(30) TYPE C VALUE '/DOWNLOAD/'.
DATA   : ZMON(2).
DATA : ZTOTAL(11) TYPE N.
DATA: ZTOT1 TYPE P DECIMALS 2.
DATA: ZTXT LIKE SKAT-TXT50.
TYPES: BEGIN OF COMPANY ,
HKONT LIKE BSEG-HKONT,
TOTAL LIKE BSEG-DMBTR,
END OF COMPANY.
DATA: COMP TYPE COMPANY,
      COMPTAB TYPE HASHED TABLE OF COMPANY WITH UNIQUE KEY HKONT
      WITH HEADER LINE.
DATA : NEXT LIKE BSEG-BUZEI.           "A.A. (28/03/2000)
DATA : DOC LIKE BSEG-BELNR.            "A.A. (28/03/2000)
DATA S_GSBER.
DATA: CTR TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.
PARAMETERS : T_BUKRS LIKE T001-BUKRS OBLIGATORY MEMORY ID BUK .
***********CH--ID- ADI- 29 / 09 / 1999
SELECT-OPTIONS : ZGL FOR BSEG-HKONT OBLIGATORY.
***********CH--ID- ADI- 29 / 09 / 1999
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(9) TEXT-C01 .
PARAMETERS : POPER RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN COMMENT 13(7) TEXT-C02 .
PARAMETERS : MONTH RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN COMMENT 23(8) TEXT-C03 .
SELECTION-SCREEN POSITION 33 .
commented on 22/08 sanjay jajoo
*PARAMETERS : T_MONAT LIKE BKPF-MONAT .
SELECTION-SCREEN END OF LINE.
PARAMETERS : T_GJAHR LIKE BKPF-GJAHR OBLIGATORY .
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS : S_DOCTYP FOR BKPF-BLART,
                 S_VENDOR FOR LFA1-LIFNR MATCHCODE OBJECT KRED,
                 S_MATNR FOR BSEG-MATNR NO-DISPLAY,
                T_BUDAT FOR MKPF-BUDAT NO-EXTENSION MODIF ID DAT,
                p_gsber FOR bseg-gsber OBLIGATORY,
                 P_GSBER FOR BSEG-GSBER,
mod starts for inserting range of period - sanjay jajoo
                 T_MONAT FOR BKPF-MONAT OBLIGATORY.
mod ends
*SELECT-OPTIONS: br_blart FOR mkpf-blart.
*Select-options: br_blart for bkpf-blart.
SELECTION-SCREEN END OF BLOCK B1 .
Start of Delete by B.Elan on 23/12/2005
*PARAMETERS : errors AS CHECKBOX .
*PARAMETERS : summary AS CHECKBOX .
*PARAMETERS : nodetail AS CHECKBOX .
**selection-screen skip 2.
*SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-b03.   "<<<
*Add
*PARAMETER : stax_reg RADIOBUTTON GROUP rad2 .                   "<<<
*Add
*PARAMETER : pur_db RADIOBUTTON GROUP rad2 .                     "<<<
*Add
*SELECTION-SCREEN END OF BLOCK b3 .     "<<< Add
*SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-b02.
*PARAMETERS : display RADIOBUTTON GROUP grp1 ,
            dload RADIOBUTTON GROUP grp1.
*PARAMETERS : fname1 LIKE rlgrap-filename .
*DATA : zdoc LIKE bseg-belnr.
*DATA : fname LIKE rlgrap-filename.
*SELECTION-SCREEN END OF BLOCK b2 .
End of Delete by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETER : PUR_DB RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C06.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETERS : MAT_SM RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C04.
SELECTION-SCREEN COMMENT 35(5) TEXT-C01.
PARAMETERS : VEN_SM RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 44(20) TEXT-C05.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETERS : MAT_DT RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C07.
SELECTION-SCREEN COMMENT 35(5) TEXT-C01.
PARAMETERS : VEN_DT RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 44(20) TEXT-C08.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
End of Insert by B.Elan on 23/12/2005
Hard coded values used in the program
added by krishna mohan on 09/02/02
DATA : BEGIN OF IT_MSEG OCCURS 0,
        BELNR LIKE BSEG-BELNR,
        MBLNR LIKE MSEG-MBLNR,
        EBELN LIKE BSEG-EBELN,
        EBELP LIKE BSEG-EBELP,
      END OF IT_MSEG.
mod ends
Start of Insert by B.Elan on 23/12/2005
*--vikky
DATA : BEGIN OF IT_FINAL OCCURS 0,
         MATNR LIKE MARA-MATNR,
         BLART LIKE BKPF-BLART,         " doctype
         BELNR LIKE BSEG-BELNR,         "sr - nO 10
         XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
         NAME1_VENDOR(25),
         "lfa1-name1,   " Vendor Name 35
         HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
         MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
         BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
         DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
         PON    LIKE EKKO-EBELN ,                           " PON 10
         MAKTX LIKE MAKT-MAKTX,         "Material text 40
         MBLNR LIKE MSEG-MBLNR,
         QTY(8) TYPE P DECIMALS 2 ,                        "Qty 11
         RATE(9) TYPE P DECIMALS 2 ,                       "Rate11
         DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
         PROD-AMT(9) TYPE P DECIMALS 2,
                                                            "AMOUNT 13
         EXCISE(8) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
         SALES(5) TYPE P DECIMALS 2 ,    "SALES TAX   11
         FREIGHT(9) TYPE P DECIMALS 2,   "FREIGHT     11
         OTHERS(11) TYPE P DECIMALS 2,    " OTHERS     11
         TOTAL(9) TYPE P DECIMALS 2,     "TOTAL       17
       END OF IT_FINAL.
*DATA : BEGIN OF IT_FINAL OCCURS 0,
        MATNR LIKE MARA-MATNR,
        BLART LIKE BKPF-BLART,         " doctype
        BELNR LIKE BSEG-BELNR,         "sr - nO 10
        XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
        NAME1_VENDOR(25),
        "lfa1-name1,   " Vendor Name 35
        HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
        MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
        BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
        DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
        PON    LIKE EKKO-EBELN ,                           " PON 10
        MAKTX LIKE MAKT-MAKTX,         "Material text 40
        MBLNR LIKE MSEG-MBLNR,
        QTY(13) TYPE P DECIMALS 2 ,                       "Qty 11
        RATE(13) TYPE P DECIMALS 2 ,                      "Rate 11
        DISCOUNT(13) TYPE P DECIMALS 2, "DISCOUNT 11
        PROD-AMT(13) TYPE P DECIMALS 2,
                                                           "AMOUNT 13
        EXCISE(13) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
        SALES(13) TYPE P DECIMALS 2 ,    "SALES TAX   11
        FREIGHT(13) TYPE P DECIMALS 2,   "FREIGHT     11
        OTHERS(13) TYPE P DECIMALS 2,    " OTHERS     11
        TOTAL(13) TYPE P DECIMALS 2,     "TOTAL       17
      END OF IT_FINAL.
*--vikky
DATA : BEGIN OF IT_FINAL_VN OCCURS 0,
           NAME1_VENDOR(25),
           "lfa1-name1,   " Vendor Name 35
           MATNR LIKE MARA-MATNR,
           BLART LIKE BKPF-BLART,         " doctype
           BELNR LIKE BSEG-BELNR,         "sr - nO 10
           XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
           HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
           MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
           BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
           DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
           PON    LIKE EKKO-EBELN ,                         " PON 10
           MAKTX LIKE MAKT-MAKTX,         "Material text 40
           MBLNR LIKE MSEG-MBLNR,
           QTY(8) TYPE P DECIMALS 2 ,                      "Qty 11
           RATE(9) TYPE P DECIMALS 2 ,                     "Rate 11
           DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
           PROD-AMT(9) TYPE P DECIMALS 2,
                                                            "AMOUNT 13
           EXCISE(5) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
           SALES(5) TYPE P DECIMALS 2 ,    "SALES TAX   11
           FREIGHT(5) TYPE P DECIMALS 2,   "FREIGHT     11
           OTHERS(9) TYPE P DECIMALS 2,    " OTHERS     11
           TOTAL(9) TYPE P DECIMALS 2,     "TOTAL       17
       END OF IT_FINAL_VN.
End of Insert by B.Elan on 23/12/2005
DATA: BEGIN OF ITAB_DISPLAY OCCURS 0,
        BLART LIKE BKPF-BLART,         " doctype
        BELNR LIKE BSEG-BELNR,         "sr - nO 10
        XBLNR LIKE BKPF-XBLNR ,        " Bill-no 16
        NAME1_VENDOR(25),              "lfa1-name1,   " Vendor Name 35
        HKONT LIKE BSEG-HKONT ,        " Alloc-cd 10
        MWSKZ LIKE EKPO-MWSKZ ,        " St-cd     2
        BUDAT LIKE BKPF-BUDAT ,        " Bill-dt 10
        DUE_DATE LIKE BSEG-ZFBDT ,     " Due date 10
        PON    LIKE EKKO-EBELN ,                            " PON 10
        MAKTX LIKE MAKT-MAKTX,         "Material text 40
       QTY(8) TYPE P DECIMALS 2 ,                          "Qty 11
                                                            "qty 5
     RATE(5) TYPE P DECIMALS 2 ,                         "Rate 11
     mod starts on 21/08 for inc size to 7
       RATE(9) TYPE P DECIMALS 2 ,                         "Rate 11
                                                            "Rate 7
     mod ends - sanjay jajoo 21/08
       DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
       PROD-AMT(9) TYPE P DECIMALS 2,                       "AMOUNT 13
       EXCISE(5) TYPE P DECIMALS 2 ,   "eXCISE TAX 11
       SALES(5) TYPE P DECIMALS 2 ,    "SALES TAX   11
       FREIGHT(5) TYPE P DECIMALS 2,   "FREIGHT     11
       OTHERS(9) TYPE P DECIMALS 2,    " OTHERS     11 " added by vik on
*21.08.2008
       TOTAL(9) TYPE P DECIMALS 2,     "TOTAL       17
       TOTAL1(9) TYPE P DECIMALS 2,
       MATNR LIKE MARA-MATNR,
       EBELN LIKE EKPO-EBELN,
       EBELP LIKE EKPO-EBELP,
    END OF ITAB_DISPLAY.
DATA: BEGIN OF ITAB_TOTAL1 OCCURS 0,
      HKONT LIKE BSEG-HKONT,
      TOTAL TYPE P DECIMALS 2,
      TXT50 LIKE SKAT-TXT50,
      END OF ITAB_TOTAL1.
DATA: BEGIN OF ITAB_KONV OCCURS 0,
        KNUMV LIKE KONV-KNUMV,
        KPOSN LIKE KONV-KPOSN,
        STUNR LIKE KONV-STUNR,
        ZAEHK LIKE KONV-ZAEHK,
        KSCHL LIKE KONV-KSCHL,
        KWERT LIKE KONV-KWERT,
      END OF ITAB_KONV.
DATA:BEGIN OF ITAB_RATE_MODVAT OCCURS 0,
       EBELN LIKE EKPO-EBELN,
       EBELP LIKE EKPO-EBELP,
       MENGE LIKE EKPO-MENGE,
       BRTWR LIKE EKPO-BRTWR,
       KZWI5 LIKE EKPO-KZWI5,
       KNUMV LIKE EKKO-KNUMV,
       MATNR LIKE EKPO-MATNR,
       TXZ01 LIKE EKPO-TXZ01,
     END OF ITAB_RATE_MODVAT.
DATA: BEGIN OF ITAB_PO OCCURS 0,
        EBELN LIKE EKPO-EBELN,
        EBELP LIKE EKPO-EBELP,
      END OF ITAB_PO.
DATA: BEGIN OF ITAB_PO_ITEM OCCURS 0,
        BELNR LIKE BSEG-BELNR,
        EBELN LIKE BSEG-EBELN,
        BUZID LIKE BSEG-BUZID,
        XBLNR LIKE BKPF-XBLNR,
        MATNR LIKE BSEG-MATNR,
        EBELP LIKE BSEG-EBELP,
        MENGE LIKE BSEG-MENGE,
        WRBTR LIKE BSEG-WRBTR,
        EXCISE LIKE BSEG-DMBTR, " ADDED ON 21/01/02 FOR 27500 EXCISE
      SGTXT LIKE BSEG-SGTXT, " ADDED ON 24/01/02
        FLAG,
      END OF ITAB_PO_ITEM.
DATA:BEGIN OF I_LFA1 OCCURS 0,
       LIFNR LIKE BSEG-LIFNR,
     END OF I_LFA1.
DATA: BEGIN OF I_VENDOR OCCURS 0,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
      END OF I_VENDOR.
DATA: BEGIN OF ITAB_PO_OTHERS OCCURS 0,
        BELNR LIKE BSEG-BELNR,
        MATNR LIKE BSEG-MATNR,
        EBELN LIKE BSEG-EBELN,
        EBELP LIKE BSEG-EBELP,
        MENGE LIKE BSEG-MENGE,
        WRBTR LIKE BSEG-WRBTR,
      END OF ITAB_PO_OTHERS.
DATA: BEGIN OF ITAB_FINAL OCCURS 0,
        BUKRS LIKE BSEG-BUKRS,
        BELNR LIKE BSEG-BELNR,
        GJAHR LIKE BSEG-GJAHR,
        BUZEI LIKE BSEG-BUZEI,
        BUZID LIKE BSEG-BUZID,
        SHKZG LIKE BSEG-SHKZG,
        EBELN LIKE BSEG-EBELN,
        EBELP LIKE BSEG-EBELP,
        MENGE LIKE BSEG-MENGE,
        WRBTR LIKE BSEG-WRBTR,
        MATNR LIKE BSEG-MATNR,
        HKONT LIKE BSEG-HKONT, " ADDED ON 21/01/02 FOR 27500 EXCISE
        SGTXT LIKE BSEG-SGTXT,         " ADDED ON 24/01/02 FOR SALES TAX
      END OF ITAB_FINAL.
DATA : BEGIN OF ITAB OCCURS 100 ,
           MWSKZ LIKE EKPO-MWSKZ ,     " St-cd
           HKONT LIKE BSEG-HKONT ,     " Alloc-cd
           MBLNR LIKE MKPF-MBLNR ,     " Sr-No
           LIFNR LIKE LFA1-LIFNR ,     " Supp-cd
           XBLNR LIKE BKPF-XBLNR ,     " Bill-no
           BUDAT LIKE BKPF-BUDAT ,     " Bill-dt
           DUE_DATE LIKE BSEG-ZFBDT , " Due date
           PON    LIKE EKKO-EBELN ,    " PON
           BELNR LIKE BKPF-BELNR ,     " CCI no
           DMBTR LIKE BSEG-DMBTR ,     " Prod-amount
           EXCISE LIKE BSEG-DMBTR ,    " Excise / ModVAT
           ST_INV LIKE BSEG-DMBTR ,    " Sales Tax Loaded on Inv.
           ST_SET LIKE BSEG-DMBTR ,    " Sales Tax setoff .
           OCT_TOT LIKE BSEG-DMBTR ,   " A,A, (29/03/2000) Octroi chargs
           PT_PABLE LIKE BSEG-DMBTR , " Purchase tax payable
           ST_TOT LIKE BSEG-DMBTR ,    " Sales Tax total
           OTHR_CHRG LIKE BSEG-DMBTR , " Other chagres
           NEBTR LIKE BSEG-NEBTR,      " Total-amount
           NAME1_VENDOR LIKE LFA1-NAME1,   " Vendor Name
     END OF ITAB.
DATA: BEGIN OF ITAB_DOC OCCURS 0,
        BELNR LIKE BKPF-BELNR,
        BLART LIKE BKPF-BLART,
      END OF ITAB_DOC.
DATA : BEGIN OF DOCTAB OCCURS 100 ,
         MWSKZ LIKE BSEG-MWSKZ ,
         HKONT LIKE BSEG-HKONT ,
         BELNR LIKE BKPF-BELNR ,
Changed By Pankaj              19.03.99
Included field fiscal year
         GJAHR LIKE BKPF-GJAHR ,
         BUDAT LIKE BKPF-BUDAT ,
         XBLNR LIKE BKPF-XBLNR ,
         LIFNR LIKE LFA1-LIFNR ,
         ZTERM LIKE BSEG-ZTERM ,
         AMOUNT LIKE BSEG-DMBTR ,
         DMBTR LIKE BSEG-DMBTR ,
         OTHR_CHRG LIKE BSEG-DMBTR ,
         MBLNR LIKE MKPF-MBLNR ,
         MJAHR LIKE MSEG-MJAHR ,
         DUE_DATE LIKE BSEG-ZFBDT ,
         PON    LIKE EKKO-EBELN ,
         JMO1 LIKE BSEG-DMBTR ,
         JMO2 LIKE BSEG-DMBTR ,
         JIP1 LIKE BSEG-DMBTR ,
         JIP2 LIKE BSEG-DMBTR ,
************CH-ID-ADI-START-28 / 09 / 1999
         JIP4 LIKE BSEG-DMBTR ,
         ZTUT LIKE BSEG-DMBTR ,
*****************ABEY
         ZOCT LIKE BSEG-DMBTR ,
*****************END
************CH-ID-ADI-START-28 / 09 / 1999
         ZSET LIKE BSEG-DMBTR ,
         ZPTX LIKE BSEG-DMBTR ,
         BLART LIKE BKPF-BLART ,
      END OF DOCTAB .
Download for EDP    "EDP
DATA : BEGIN OF DOWNLOAD OCCURS 100 ,
       SIGN1(1) ,
       TOT_VAL(11) TYPE N,
       SIGN2(1) ,
       TAXABLE(11) TYPE N ,
       SIGN3(1) ,
       TOT_TAX(11) TYPE N ,
       SIGN4(1) ,
       SURCHARG(9) TYPE N ,
       SIGN5(1) ,
       ST_AMT(9) TYPE N ,
       SIGN6(1) ,
       OTH_CHRG(9) TYPE N ,
******************************ch-adi-start-28 / 09 / 1999
       SIGN7(1),
       TOT(9) TYPE N,
******************************ch-adi-end-28 / 09 / 1999
       TYPE(1) TYPE N ,
       STKY1(1) TYPE N ,
       STBR(2) ,
       STDV(2) ,
       STCC(1) ,
       STKY(1) ,
       STDC(2) TYPE N ,
       STTYP(1) ,
       STCODE(2) ,
       STRATE(2) TYPE N ,
       STRTT(2) TYPE N ,
       SERIAL_NO(6) TYPE N ,
       STACP(9) ,
       BLANK1(3) ,
       STYRMN(6) ,
       BLANK2(7) TYPE C .
DATA : END OF DOWNLOAD .
DATA : BEGIN OF GLTAB OCCURS 5 ,
           MWSKZ LIKE BSEG-MWSKZ,      " << ADD A.A. (01.02.2000)
           HKONT LIKE BSEG-HKONT ,
           DMBTR LIKE BSEG-DMBTR ,     " Prod-amount
           EXCISE LIKE BSEG-DMBTR ,    " Excise / ModVAT
           ST_INV LIKE BSEG-DMBTR ,    " Sales Tax Loaded on Inv.
           ST_SET LIKE BSEG-DMBTR ,    " Sales Tax setoff .
           PT_PABLE LIKE BSEG-DMBTR , " Purchase tax payable
           ST_TOT LIKE BSEG-DMBTR ,    " Sales Tax total
           OTHR_CHRG LIKE BSEG-DMBTR , " Other Charges
           NEBTR LIKE BSEG-NEBTR.      " Total-amount
DATA : END OF GLTAB .
DATA : BEGIN OF ERRORTAB OCCURS 5 .
        INCLUDE STRUCTURE ITAB .
DATA : END OF ERRORTAB .
*- Start of change by Raj on 3-Spet-05
DATA : V_TMPVAL TYPE P DECIMALS 2.
*- End of change by Raj on 3-Spet-05
DATA : STRING LIKE BKPF-AWKEY ,
       V_NO TYPE I,
       V_EBELN LIKE BSEG-EBELN,
       V_MATNR LIKE BSEG-MATNR. " ADDED ON 21/01/02 FOR BUZID = 'S'
Start of Insert by B.Elan on 23/12/2005
WORK AREA
DATA : WA_DISPLAY LIKE ITAB_DISPLAY.
DATA : V_UCOMM TYPE SY-UCOMM.
CONSTANTS : C_X TYPE C VALUE 'X'.
End of Insert by B.Elan on 23/12/2005
AT SELECTION-SCREEN ON T_BUKRS.
SELECT SINGLE * FROM T001 WHERE BUKRS = T_BUKRS .
IF SY-SUBRC NE 0 .
    MESSAGE E368 WITH T_BUKRS TEXT-M01 .
ENDIF .
AT SELECTION-SCREEN ON T_MONAT.
PERFORM check_period_year USING 'X'.   " COMMENTED
AT SELECTION-SCREEN ON T_GJAHR.
PERFORM check_period_year USING ' '.   "COMMENTED
Start of Delete by B.Elan on 23/12/2005
*AT SELECTION-SCREEN ON RADIOBUTTON GROUP grp1 .
CLEAR fname .
DATA : BEGIN OF xt247 OCCURS 12 .
         INCLUDE STRUCTURE t247 .
DATA : END OF xt247 .
CHECK dload EQ 'X' .
REFRESH xt247 .
IF poper EQ 'X' .
   MESSAGE e368 WITH text-m05 .
ENDIF .
CALL FUNCTION 'MONTH_NAMES_GET'
   TABLES
     month_names           = xt247
   EXCEPTIONS
     month_names_not_found = 1
     OTHERS                = 2.
READ TABLE xt247 WITH KEY mnr = t_monat .
CONCATENATE 'STAXSUMM.' xt247-ktx INTO fname .
CONCATENATE '
DOWNLOAD\'   fname    INTO fname1.
CONCATENATE zfile1   fname    INTO   zfile2.
CONDENSE fname1 NO-GAPS.
CONDENSE zfile2 NO-GAPS.
CONCATENATE 'STAXSUMM.' xt247-ktx INTO fname .
End of Delete by B.Elan on 23/12/2005
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .
    IF SCREEN-NAME EQ 'FNAME' .
      SCREEN-INPUT = 0.
      MODIFY SCREEN .
    ENDIF .
    IF SCREEN-GROUP2 EQ 'DBS' .
      SCREEN-ACTIVE = 0 .
      MODIFY SCREEN .
      IF SCREEN-NAME EQ 'BR_BLART-LOW' .
Form the select option for the LDB .
        CLEAR BR_BLART . REFRESH BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'RE' .
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'SR' .
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'SP' .
        APPEND BR_BLART .       " ADD ON 11122003 JAJ
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
       br_blart-low = 'VI' .
        BR_BLART-LOW = 'ST'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'S1'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'P1'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'PM'.
        APPEND BR_BLART .
        BR_BLART-LOW = 'R1'.
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'KR' .
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
*************CH-ID-ADI---30 / 09 / 1999.
        BR_BLART-LOW = 'RA'.
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'EM'.
        APPEND BR_BLART .
        BR_BLART-SIGN = 'I' .
        BR_BLART-OPTION = 'EQ' .
        BR_BLART-LOW = 'EI' .
        APPEND BR_BLART .
      ENDIF .
    ENDIF .
    CHECK SCREEN-GROUP1 EQ 'DAT' .
    SCREEN-INPUT = 0.
    MODIFY SCREEN .
ENDLOOP .
START-OF-SELECTION .
Block 1 - Selection of accounting documents in the posting period
is done through the LDB
GET BKPF .
commented on 22/08
CHECK BKPF-MONAT = T_MONAT.
CHECK BKPF-MONAT IN T_MONAT.
CHECK BKPF-GJAHR = T_GJAHR.
CHECK BKPF-STBLG IS INITIAL .        "<<<< Reversed
*CHECK bkpf-budat IN t_budat .
CHECK BKPF-BUKRS EQ T_BUKRS .
CHECK BKPF-BUKRS EQ T_BUKRS .
CHECK BKPF-BSTAT EQ SPACE .          "<<< Sample docs
CHECK BKPF-BLART EQ 'RE'             "MM-IV
    OR BKPF-BLART EQ 'KR'             "FI-IV
OR bkpf-blart EQ 'VI'          "FI-IV Direct
*************CH-ID-ADI-30 / 09 / 1999
OR bkpf-blart EQ 'RA'           "CASH CCI
OR bkpf-blart EQ 'EM'           "MAINTAINANCE
OR bkpf-blart EQ 'EI' .        "IDT
    OR BKPF-BLART EQ 'P1'
    OR BKPF-BLART EQ 'PM'
    OR BKPF-BLART EQ 'R1'
    OR BKPF-BLART EQ 'S1'
    OR BKPF-BLART EQ 'ST'
    OR BKPF-BLART EQ 'SR'      " ADD ON 101203 JAJ
    OR BKPF-BLART EQ 'SP'.
*************CH-ID-ADI-30 / 09 / 1999
CLEAR DOCTAB .
DOCTAB-BLART = BKPF-BLART .
DOCTAB-BELNR = BKPF-BELNR .
DOCTAB-BUDAT = BKPF-BUDAT .
DOCTAB-XBLNR = BKPF-XBLNR .
Added By Pankaj                   19.03.99
Initializing fiscal year for document table
DOCTAB-GJAHR = BKPF-GJAHR .
APPEND DOCTAB.
Tax details
GET BSET .   " Commented because LDB gives wrong BSET entries
" for some documents
CASE BSET-KSCHL .
    WHEN 'JMO1' .
      DOCTAB-JMO1 = DOCTAB-JMO1 + BSET-HWSTE .
    WHEN 'JMO2' .
      DOCTAB-JMO2 = DOCTAB-JMO2 + BSET-HWSTE .
    WHEN 'JIP1' .
      DOCTAB-JIP1 = DOCTAB-JIP1 + BSET-HWSTE .
    WHEN 'JIP2' .
      DOCTAB-JIP2 = DOCTAB-JIP2 + BSET-HWSTE .
    WHEN 'ZSET' .
     break deven .
      DOCTAB-ZSET = DOCTAB-ZSET + BSET-HWSTE .
    WHEN 'ZPTX' .
      DOCTAB-ZPTX = DOCTAB-ZPTX + BSET-HWSTE .
ENDCASE .
DOCTAB-MWSKZ = BSET-MWSKZ.
MODIFY DOCTAB INDEX SY-TABIX.
Item details
*changed by srinivas yerra.
GET BSEG .
IF BSEG-KOART = 'K' .              "<<< Vendor Line
IF BSEG-KOART = 'K' .
*end of chnages by srinivas yerra.
    DOCTAB-LIFNR = BSEG-LIFNR .
    IF NOT BSEG-ZTERM IS INITIAL .
      DOCTAB-ZTERM = BSEG-ZTERM .
      DOCTAB-DUE_DATE = BSEG-ZFBDT + BSEG-ZBD1T .
    ENDIF .
    IF BSEG-SHKZG EQ 'H' .             "<< Add credits
      DOCTAB-AMOUNT = DOCTAB-AMOUNT + BSEG-DMBTR .
    ELSE .                             "<< Subtr debits
      DOCTAB-AMOUNT = DOCTAB-AMOUNT - BSEG-DMBTR .
    ENDIF .
ENDIF .
CASE BSEG-KTOSL .
    WHEN 'WRX' .
      DOCTAB-PON = BSEG-EBELN .
      IF DOCTAB-MWSKZ IS INITIAL .
        DOCTAB-MWSKZ = BSEG-MWSKZ .
      ENDIF .
    WHEN 'BSX' .
***********ABEY
      IF NEXT = BSEG-BUZEI
         AND
         DOC = BSEG-BELNR
         AND
         ( BSEG-BUZID = 'M'
           OR
           BSEG-HKONT = 50765 ).
        DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
        IF BSEG-SHKZG EQ 'H' .         "<< Subtr credits
          DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG - BSEG-DMBTR .
        ELSE .                         "<< Add debits
          DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG + BSEG-DMBTR .
        ENDIF .
      ENDIF .
************END
      IF BSEG-SHKZG EQ 'S' .
        DOCTAB-DMBTR = DOCTAB-DMBTR + BSEG-DMBTR .
      ELSE .
        DOCTAB-DMBTR = DOCTAB-DMBTR - BSEG-DMBTR .
      ENDIF .
    WHEN 'OCT' OR 'FRE' OR 'FR1' OR SPACE .
*****CH-ID-ADI-30 / 09 /1999.
      IF ( ( BKPF-BLART = 'EM' OR BKPF-BLART = 'RA' OR BKPF-BLART =
      'EI')
       AND BSEG-KTOSL = SPACE ) OR BSEG-MWSKZ = '9W' OR BSEG-MWSKZ =
       'K9' OR
                                                            BSEG-MWSKZ =
                                                            'X9'.
        DOCTAB-OTHR_CHRG = 0.
      ELSE.
*********CH-ID-ADI--01 / 10 / 1999
     Other Charges only for accounts other than vendor acc.
        CHECK BSEG-BUZID NE 'T' .
        CHECK BSEG-BUZID NE 'P' .
        IF BSEG-KOART NE 'K' .
*********ABEY (25/02/2000), (21/02/2000)
          IF BSEG-BUZID = 'F'
           OR BSEG-HKONT = 75461.
            NEXT = BSEG-BUZEI + 1.
            DOC = BSEG-BELNR.
            DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
          ENDIF.
          IF BSEG-BUZEI = NEXT
             AND
             ( BSEG-BUZID = 'M'
               OR
               BSEG-HKONT = 50765 ).
            DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
          ENDIF.
*********END
          IF BSEG-SHKZG EQ 'H' .       "<< Subtr credits
            DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG - BSEG-DMBTR .
          ELSE .                       "<< Add debits
            DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG + BSEG-DMBTR .
          ENDIF .
        ENDIF .
*****NEXT-LINE ADDED BY ADI
      ENDIF .
*************END.
ENDCASE .
*CHANGED BY SRINIVAS YERRA
*MODIFY DOCTAB INDEX SY-TABIX.
APPEND DOCTAB.
*END OF CHANGES.
PO History
GET EKBE .
CHECK DOCTAB-BELNR EQ EKBE-BELNR .
DOCTAB-MBLNR = EKBE-LFBNR .
DOCTAB-MJAHR = EKBE-LFGJA .
MODIFY DOCTAB INDEX SY-TABIX .
PERFORM show_indicator USING text-m02 .
*PERFORM convert_data.
END-OF-SELECTION .
Data read from LDB is converted into printable format.
PERFORM SHOW_INDICATOR USING TEXT-M04 .
PERFORM CONVERT_DATA .
Start of Delete by B.Elan on 23/12/2005
IF stax_reg EQ 'X' .                 "<<< Add
   SORT itab BY mwskz hkont belnr .
ELSE .                               "<<< Add
   SORT itab BY belnr .               "<<< Add
    SORT itab BY pon.
ENDIF .                              "<<< Add
Perform further operation based on user input
IF display EQ 'X' .
   PERFORM write_itab.
   PERFORM write_data .
ELSE .
PERFORM download_data .
ENDIF .
End of Delete by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
SORT ITAB BY BELNR.
PERFORM WRITE_DATA.
IF MAT_SM = C_X.
    PERFORM WRITE_MATERIAL_SUMMARY.
ELSEIF MAT_DT = C_X.
    PERFORM WRITE_MATERIAL_DETAILS.
ELSEIF VEN_SM = C_X.
    PERFORM WRITE_VENDOR_SUMMARY.
ELSEIF VEN_DT = C_X.
    PERFORM WRITE_VENDOR_DETAILS.
ENDIF.
End of Insert by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
AT USER-COMMAND.
V_UCOMM = SY-UCOMM.
CASE V_UCOMM.
    WHEN 'DETLS'.
      NEW-PAGE.
      PUR_DB = C_X.
      PERFORM CLEAR_DETAILS.
      PERFORM WRITE_DATA.
    WHEN 'MSUMRY'.
      PERFORM WRITE_MATERIAL_SUMMARY.
    WHEN 'MDETL'.
      PERFORM WRITE_MATERIAL_DETAILS.
    WHEN 'VSUMRY'.
      PERFORM WRITE_VENDOR_SUMMARY.
    WHEN 'VDETL'.
      PERFORM WRITE_VENDOR_DETAILS.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
ENDCASE.
End of Insert by B.Elan on 23/12/2005
*- - - - - - - - - End Of Execution .- - - - - - - - - - - - - - - - - -
TOP-OF-PAGE .
IF PUR_DB = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_PUR_DB.
ELSEIF MAT_SM = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_MAT_SM.
ELSEIF MAT_DT = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_MAT_DT.
ELSEIF VEN_SM = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_VEN_SM.
ELSEIF VEN_DT = C_X.
    PERFORM TOP_OF_PAGE.
    PERFORM TOP_OF_PAGE_VEN_DT.
ENDIF.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE V_UCOMM.
    WHEN 'DETLS'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_PUR_DB.
    WHEN 'MSUMRY'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_MAT_SM.
    WHEN 'MDETL'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_MAT_DT.
    WHEN 'VSUMRY'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_VEN_SM.
    WHEN 'VDETL'.
      PERFORM TOP_OF_PAGE.
      PERFORM TOP_OF_PAGE_VEN_DT.
ENDCASE.
*&      Form WRITE_DATA
      text                                                           *
FORM WRITE_DATA.
DATA:     V_SALES LIKE ITAB_DISPLAY-SALES,
            V_RATE LIKE ITAB_DISPLAY-RATE,
            V_DISCOUNT LIKE ITAB_DISPLAY-DISCOUNT,
            V_PROD-AMT LIKE ITAB_DISPLAY-PROD-AMT,
            V_EXCISE1 LIKE ITAB_DISPLAY-EXCISE,
            V_EXCISE LIKE ITAB_DISPLAY-EXCISE,
            V_PON LIKE ITAB_DISPLAY-PON,
            V_OTHERS LIKE ITAB_DISPLAY-OTHERS,
            V_FREIGHT LIKE ITAB_DISPLAY-FREIGHT.
CLEAR ITAB .
Write the correct data i.e. tax code and G/L code both available .
LOOP AT ITAB .
*************CH-ID-ADI-30 / 09 / 1999
    IF ( ITAB-MWSKZ = '9W' OR ITAB-MWSKZ = 'K9' OR ITAB-MWSKZ = 'X9' )
                                               AND ITAB-OTHR_CHRG NE 0 .
      ITAB-DMBTR = ITAB-OTHR_CHRG.
      ITAB-OTHR_CHRG = 0.
      MODIFY ITAB.
    ENDIF.
ENDLOOP.
LOOP AT ITAB.
    I_LFA1-LIFNR = ITAB-LIFNR.
    APPEND I_LFA1.
    CLEAR I_LFA1.
ENDLOOP.
SORT I_LFA1.
DELETE ADJACENT DUPLICATES FROM I_LFA1 COMPARING ALL FIELDS.
SELECT LIFNR
         NAME1
    FROM LFA1 INTO TABLE I_VENDOR
    FOR ALL ENTRIES IN I_LFA1 WHERE
                                   LIFNR = I_LFA1-LIFNR.
FREE I_LFA1.
LOOP AT ITAB.
    READ TABLE I_VENDOR WITH KEY LIFNR = ITAB-LIFNR .
    IF SY-SUBRC EQ 0.
      ITAB-NAME1_VENDOR = I_VENDOR-NAME1.
      MODIFY ITAB TRANSPORTING NAME1_VENDOR.
    ENDIF.
ENDLOOP.
LOOP AT ITAB.
    IF NOT ITAB-LIFNR IN S_VENDOR.
      DELETE ITAB.
    ENDIF.
ENDLOOP.
SELECT BUKRS BELNR GJAHR BUZEI BUZID SHKZG EBELN EBELP ERFMG WRBTR
   MATNR HKONT SGTXT " ERFMG for MENGE,HKONT,SGTXT Added by KrishnaMohan
         INTO TABLE ITAB_FINAL
        FROM BSEG FOR ALL ENTRIES IN ITAB
        WHERE BUKRS = T_BUKRS AND                           "'1000' AND
              BELNR = ITAB-BELNR AND
*added by srinivas
             hkont in zgl and
*end
              GJAHR = T_GJAHR AND
*- Start of change by Raj on 030905
             buzid IN ('W', 'M', 'K', 'S', 'F' , 'P' ) AND
               BUZID IN ('W', 'M', 'K', 'S', 'F' , 'P' , 'T', ' ') AND
               " ADD T 090206 JAJ
               KOART <> 'K'   AND    " mod by vik on 21.08.2008" sjaj si
*- End of change by Raj on 030905
BUZID = P Added on 21/01/02 by Krishna Mohan
              GSBER IN P_GSBER AND
             gsber IN p_gsber OR gsber = ' ' AND
              MATNR IN S_MATNR.
SELECT BELNR BLART INTO TABLE ITAB_DOC FROM BKPF
            FOR ALL ENTRIES IN ITAB_FINAL WHERE
                       BUKRS = T_BUKRS AND                  "'1000' AND
                       BELNR = ITAB_FINAL-BELNR AND
                       GJAHR = T_GJAHR AND
                       BLART NOT IN ('WA' , 'WE').
SORT ITAB_DOC BY BELNR BLART.
LOOP AT ITAB_DOC.
    IF NOT ITAB_DOC-BLART IN S_DOCTYP .
      DELETE ITAB_DOC.
    ENDIF.
ENDLOOP.
LOOP AT ITAB_FINAL.
    READ TABLE ITAB_DOC WITH KEY BELNR = ITAB_FINAL-BELNR BINARY SEARCH.
    IF SY-SUBRC NE 0.
      DELETE ITAB_FINAL.
    ENDIF.
ENDLOOP.
DELETE ITAB_FINAL WHERE BUZID = 'K' AND BUZEI = '1'.
LOOP AT ITAB_FINAL WHERE SHKZG = 'H'.
    ITAB_FINAL-WRBTR = ITAB_FINAL-WRBTR * ( -1 ).
    MODIFY ITAB_FINAL TRANSPORTING WRBTR.
ENDLOOP.
LOOP AT ITAB_FINAL WHERE BUZID = 'M'.
    IF ITAB_FINAL-SGTXT NE ' '.
      TRANSLATE ITAB_FINAL-SGTXT TO UPPER CASE.
      MODIFY ITAB_FINAL.
    ENDIF.
ENDLOOP.
LOOP AT ITAB_FINAL .
    IF ITAB_FINAL-BUZID = 'W'.
      CLEAR V_MATNR.
      V_EBELN = ITAB_FINAL-EBELN.
      V_MATNR = ITAB_FINAL-MATNR.
      ITAB_PO_ITEM-BELNR = ITAB_FINAL-BELNR.
      ITAB_PO_ITEM-BUZID = ITAB_FINAL-BUZID.
      ITAB_PO_ITEM-MATNR = ITAB_FINAL-MATNR.
      ITAB_PO_ITEM-EBELN = ITAB_FINAL-EBELN.
      ITAB_PO_ITEM-EBELP = ITAB_FINAL-EBELP.
      ITAB_PO_ITEM-MENGE = ITAB_FINAL-MENGE.
      ITAB_PO_ITEM-WRBTR = ITAB_FINAL-WRBTR.
      COLLECT ITAB_PO_ITEM.
      CLEAR ITAB_PO_ITEM.
    ELSEIF ITAB_FINAL-BUZID = 'M' OR ITAB_FINAL-BUZID = 'K' OR
                                      ITAB_FINAL-BUZID = 'S' OR
        ITAB_FINAL-BUZID = 'P' OR      " ADDED ON 21/01/02
*- Start of change by Raj on 030905
        ITAB_FINAL-BUZID = ' ' OR
         ITAB_FINAL-BUZID = 'T' OR   " ADD BY JAJ ON 090206
*- End of change by Raj on 030905
                                      ITAB_FINAL-BUZID = 'F'.
      IF ITAB_FINAL-MATNR IS INITIAL.
        ITAB_FINAL-MATNR = V_MATNR.
      ENDIF.
    CLEAR V_MATNR.
      ITAB_PO_OTHERS-BELNR = ITAB_FINAL-BELNR.
     ITAB_PO_OTHERS-MATNR = ITAB_FINAL-MATNR.
     ITAB_PO_OTHERS-EBELN = ITAB_FINAL-EBELN.
     ITAB_PO_OTHERS-EBELP = ITAB_FINAL-EBELP.
     ITAB_PO_OTHERS-MENGE = ITAB_FINAL-MENGE.
      ITAB_PO_OTHERS-WRBTR = ITAB_FINAL-WRBTR.
IF CONDITION,ADDED ON 21/01/02 FOR GETTING EXCISE WHEN CONDITION MEETS
ie TOTAL AMOUNT = EXCISE WHEN BUZID = S AND HKONT = 27500
*IF itab_final-buzid = 'S' AND ( itab_final-hkont = '0000027500' OR "
*COMM BY JAJ ON 090206
      IF ITAB_FINAL-BUZID = 'S' OR ITAB_FINAL-BUZID = 'T' AND (
      ITAB_FINAL-HKONT = '0000027500' OR
                                    ITAB_FINAL-HKONT = '0000027515'
        OR ITAB_FINAL-HKONT = '0000027550'       " jaj on 090206
       OR ITAB_FINAL-HKONT = '0000027507' OR
        ITAB_FINAL-HKONT = '0000027508'). "Added on 050905 - Raj
        ITAB_FINAL-EBELN = V_EBELN.
to get ebeln value into header so that when there are 2 po's
and 2 W's excise can go into only one po which is v_ebeln
Start of insert by B.Elan on 10/02/2006
        READ TABLE ITAB_PO_ITEM WITH KEY BELNR = ITAB_FINAL-BELNR
                                         EBELN = ITAB_FINAL-EBELN
                                         MATNR = ITAB_FINAL-MATNR.
        ITAB_PO_ITEM-EXCISE = ITAB_PO_ITEM-EXCISE + ITAB_FINAL-WRBTR.
End of insert by B.Elan on 10/02/2006
Start of delete by B.Elan on 10/02/2006
      itab_po_item-excise = itab_final-wrbtr.
End of delete by B.Elan on 10/02/2006
        MODIFY ITAB_PO_ITEM TRANSPORTING EXCISE
              WHERE BELNR EQ ITAB_FINAL-BELNR AND
                    EBELN EQ ITAB_FINAL-EBELN.
        CLEAR ITAB_PO_ITEM.
      ELSE.
        COLLECT ITAB_PO_OTHERS.
      ENDIF.
      CLEAR ITAB_PO_OTHERS.
    ENDIF.
ENDLOOP.
sateesh
SORT ITAB_PO_ITEM BY BELNR EBELN.
LOOP AT ITAB_PO_ITEM.
   AT NEW BELNR.
    AT NEW EBELN.
      READ TABLE ITAB_PO_ITEM INDEX SY-TABIX.
      ITAB_PO_ITEM-FLAG = 'X'.
      MODIFY ITAB_PO_ITEM INDEX SY-TABIX.
    ENDAT.
   ENDAT.
ENDLOOP.
LOOP AT ITAB_PO_ITEM.
    ITAB_PO_ITEM-EXCISE = 0.
    MODIFY ITAB_PO_ITEM TRANSPORTING EXCISE
     WHERE EXCISE > 0
       AND FLAG = SPACE.
ENDLOOP.
end
LOOP AT ITAB_PO_ITEM.
    ITAB_PO-EBELN = ITAB_PO_ITEM-EBELN.
    ITAB_PO-EBELP = ITAB_PO_ITEM-EBELP.
    APPEND ITAB_PO.
    CLEAR ITAB_PO.
ENDLOOP.
LOOP AT ITAB_PO_OTHERS.
    ITAB_PO-EBELN = ITAB_PO_OTHERS-EBELN.
    ITAB_PO-EBELP = ITAB_PO_OTHERS-EBELP.
    APPEND ITAB_PO.
    CLEAR ITAB_PO.
ENDLOOP.
SORT ITAB_PO.
DELETE ADJACENT DUPLICATES FROM ITAB_PO COMPARING ALL FIELDS.
SELECT EKPO~EBELN
         EBELP
         MENGE
         BRTWR
         KZWI5
         EKKO~KNUMV
         EKPO~MATNR
         EKPO~TXZ01
         INTO TABLE ITAB_RATE_MODVAT
         FROM EKPO INNER JOIN EKKO
             ON EKPO~EBELN = EKKO~EBELN
    FOR ALL ENTRIES IN ITAB_PO WHERE
                    EKPO~EBELN = ITAB_PO-EBELN AND
                    EBELP = ITAB_PO-EBELP.
SELECT KNUMV KPOSN STUNR ZAEHK KSCHL KWERT
    INTO TABLE ITAB_KONV
    FROM KONV
    FOR ALL ENTRIES IN ITAB_RATE_MODVAT
        WHERE KNUMV = ITAB_RATE_MODVAT-KNUMV AND
KSCHL IN ('YT02', 'YF07', 'YOTH', 'YPF1', 'YD01', 'YD02', 'YD03' ) .
SORT ITAB_KONV BY KNUMV KSCHL.
SORT ITAB BY BELNR.
SORT ITAB_RATE_MODVAT BY EBELN EBELP.
SORT ITAB_PO_OTHERS BY BELNR MATNR.
LOOP AT ITAB_PO_ITEM.
    ITAB_DISPLAY-BELNR = ITAB_PO_ITEM-BELNR.
    READ TABLE ITAB_DOC WITH KEY BELNR = ITAB_PO_ITEM-BELNR BINARY
    SEARCH.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-BLART = ITAB_DOC-BLART.
    ENDIF.
    READ TABLE ITAB WITH KEY BELNR = ITAB_PO_ITEM-BELNR BINARY SEARCH.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-XBLNR = ITAB-XBLNR.
      ITAB_PO_ITEM-XBLNR = ITAB-XBLNR.
      ITAB_DISPLAY-NAME1_VENDOR = ITAB-NAME1_VENDOR.
      ITAB_DISPLAY-HKONT = ITAB-HKONT.
      ITAB_DISPLAY-MWSKZ = ITAB-MWSKZ.
      ITAB_DISPLAY-BUDAT = ITAB-BUDAT.
      ITAB_DISPLAY-DUE_DATE   = ITAB-DUE_DATE.
     ITAB_DISPLAY-PON    = ITAB_PO_ITEM-EBELN.
    ENDIF.
    ITAB_DISPLAY-QTY =    ITAB_PO_ITEM-MENGE.
    READ TABLE ITAB_RATE_MODVAT WITH KEY EBELN = ITAB_PO_ITEM-EBELN
                                         EBELP = ITAB_PO_ITEM-EBELP
                                         BINARY SEARCH.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-PON    = ITAB_PO_ITEM-EBELN.
      ITAB_DISPLAY-MATNR = ITAB_RATE_MODVAT-MATNR.
      ITAB_DISPLAY-MAKTX = ITAB_RATE_MODVAT-TXZ01.
      ITAB_DISPLAY-RATE = ITAB_RATE_MODVAT-BRTWR /
      ITAB_RATE_MODVAT-MENGE.
      ITAB_DISPLAY-PROD-AMT = ITAB_DISPLAY-RATE * ITAB_PO_ITEM-MENGE.
      IF ITAB_PO_ITEM-EXCISE NE 0.
        ITAB_DISPLAY-EXCISE = ITAB_PO_ITEM-EXCISE.
    ELSE.
*ITAB_DISPLAY-EXCISE = ( ITAB_PO_ITEM-MENGE * ITAB_RATE_MODVAT-KZWI5 ) /
                                  ITAB_RATE_MODVAT-MENGE.
*commentedon 210102 to get excise directly from BSEG - IV
      ENDIF.
    ENDIF.
    READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                  KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YT02' .
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-SALES = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                             ITAB_RATE_MODVAT-MENGE.
      READ TABLE ITAB_FINAL WITH KEY BELNR = ITAB_PO_ITEM-BELNR
                                     BUZID = 'M'
                                    SGTXT(9) = 'SALES TAX'.
      IF SY-SUBRC EQ 0.
      IF ITAB_FINAL-SGTXT(9) EQ 'SALES TAX'
         OR ITAB_FINAL-SGTXT(9) EQ 'sales tax'.
        ITAB_DISPLAY-SALES = ITAB_DISPLAY-SALES + ITAB_FINAL-WRBTR.
      ENDIF.
      ENDIF.
    ENDIF.
    READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                  KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YF07'.
    IF SY-SUBRC EQ 0.
      ITAB_DISPLAY-FREIGHT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                              ITAB_RATE_MODVAT-MENGE.
    ENDIF.
    READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                  KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YD01' .
    IF SY-SUBRC EQ 0.
     ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                                          ITAB_RATE_MODVAT-MENGE.
    ELSE.
      READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                    KPOSN = ITAB_RATE_MODVAT-EBELP
                                  KSCHL = 'YD02' .
      IF SY-SUBRC EQ 0.
       ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT )
ITAB_RATE_MODVAT-MENGE.
      ELSE.
        READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
                                      KPOSN = ITAB_RATE_MODVAT-EBELP
                                      KSCHL = 'YD03' .
        IF SY-SUBRC EQ 0.
         ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT
ITAB_RATE_MODVAT-MENGE.
        ENDIF.
      ENDIF.
    ENDIF.
    LOOP AT ITAB_KONV WHERE KNUMV = ITAB_RATE_MODVAT-KNUMV AND KPOSN =
                             ITAB_RATE_MODVAT-EBELP AND
                   ( KSCHL = 'YPF1' OR KSCHL = 'YOTH' ) .
      ITAB_KONV-KWERT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
                               ITAB_RATE_MODVAT-MENGE.
      ITAB_DISPLAY-OTHERS = ITAB_DISPLAY-OTHERS + ITAB_KONV-KWERT.
    ENDLOOP.
    READ TABLE ITAB_PO_OTHERS WITH KEY BELNR = ITAB_PO_ITEM-BELNR.
                                      EBELN = ITAB_PO_ITEM-EBELN.
                                      BINARY SEARCH.
sateesh as on 10092003
    IF SY-SUBRC NE 0. CLEAR ITAB_PO_OTHERS. ENDIF.
end
    IF NOT ITAB_PO_OTHERS-EBELN IS INITIAL.
      READ TABLE ITAB_PO_OTHERS WITH KEY EBELN = ITAB_PO_ITEM-EBELN
                                         EB

How to Block user from Sending IM or Hide Presence of there user who is not in his department

Hi All,
How to Block user from Sending IM or Hide Presence of there user who is not in his department.
Thank you

Hi Jp,
Method 1:
You can use the Enhanced Privacy Mode in Lync 2013
<section class="ocpSection">
Enable Privacy Mode
By default, everyone except Blocked Contacts can see your presence status. To modify the privacy settings, you can do the following:
In the Lync main window, click the Options button.
In the Lync - Options dialog box, click Status, and then do one of the following:
Click I want everyone to be able to see my presence regardless of system settings (override default settings).
Click I want the system administrator to decide - currently everyone can see my presence but this could change in the future.
</section>
About Enhanced Privacy Mode
If your organization has enabled Enhanced Privacy Mode in Lync, you can choose whether to limit visibility of your presence information to only those people you’ve added to your Contacts list. You do that by selecting one of the following on the
Options->Status window:
I want everyone to be able to see my presence
I only want people in my Contacts list to see my presence
Method 2:
Using Privacy Relationship, you can block a particular user by adding him to blocked contacts
Anil Kumar (MCITP)
Note: Posts are provided “AS IS” without warranty of any kind, either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

How to block sales employee without enter in sales order.

Dear Guru's,
I have created sales employee code 1234 and using same in sales order with using partner function due to the some reason now I donu2019t want to book sales for same employee code 1234. Can anyone help me how to block employee code.
Regads
dharma

hi
if i enter sales employee manually in sales order it should not allow me to enter and it should give message this employee in inactive status so that user will under stand accordingly.
this employee number we are entering in sales order manually it's not copying from customer.

How to assign project specific task with the newly created projects ?

Hi All,
I need help. I need to assign project specific tasks (which i will be taking from staging table) other than the default task which are assigned during project creation. How do I proceed with this within same package. I am attaching the code of my package below...
CREATE OR REPLACE PACKAGE body xxpa_proj_conv_pkg as
PROCEDURE xxpa_create_project_proc(O_ERRBUF OUT VARCHAR2,O_RETCODE OUT VARCHAR2)
is
variables need to derive global parameters
v_responsibility_id NUMBER; --- PA Supervisor responsibility id
v_user_id NUMBER;
deriving global parameters-
-- Variables needed for API standard parameters
v_api_version_number NUMBER := 1.0;
v_commit VARCHAR2(1) := 'F';
v_return_status VARCHAR2(1);
v_init_msg_list VARCHAR2(1) := 'F';
v_msg_count NUMBER;
v_msg_index_out NUMBER;
v_msg_data VARCHAR2(2000);
v_data VARCHAR2(2000);
v_workflow_started VARCHAR2(1) := 'Y';
v_pm_product_code VARCHAR2(10);
---variables for catching errors---
v_error_flag number:=0;
-- Predefined Composite data types
v_project_in PA_PROJECT_PUB.PROJECT_IN_REC_TYPE;
v_project_out PA_PROJECT_PUB.PROJECT_OUT_REC_TYPE;
v_key_members PA_PROJECT_PUB.PROJECT_ROLE_TBL_TYPE;
v_class_categories PA_PROJECT_PUB.CLASS_CATEGORY_TBL_TYPE;
v_tasks_in_rec PA_PROJECT_PUB.TASK_IN_REC_TYPE;
v_tasks_in PA_PROJECT_PUB.TASK_IN_TBL_TYPE;
v_tasks_out_rec PA_PROJECT_PUB.TASK_OUT_REC_TYPE;
v_tasks_out PA_PROJECT_PUB.TASK_OUT_TBL_TYPE;
v_CREATED_FROM_PROJECT_ID varchar2(20);
v_CARRYING_OUT_ORGANIZATION_ID varchar2(20);
v_person_id NUMBER;
v_project_role_type VARCHAR2(20);
API_ERROR EXCEPTION;
v_a NUMBER;
cursor for project in data
CURSOR cur_project_in_data IS SELECT * FROM XXPA_PROJECT_IN_STG;
cursor for task data
CURSOR cur_task_in_data IS SELECT * FROM XXPA_TASK_IN_STG;
------------------------Cursors used for validations----------------------------------
cursor for product code used for validation
cursor cprc is select distinct PROJECT_RELATIONSHIP_CODE from PA_PROJECT_CUSTOMERS;
cursor for distribution rule-
cursor cdr is select DISTRIBUTION_RULE from PA_DISTRIBUTION_RULES;
cursor for project status code
cursor cpsc is SELECT PROJECT_STATUS_CODE, PROJECT_STATUS_NAME FROM PA_PROJECT_STATUSES WHERE STATUS_TYPE = 'PROJECT';
cursor for template/created from project id
cursor ccpid is select project_id from pa_projects where template_flag='Y';
BEGIN
select user_id, responsibility_id into v_user_id, v_responsibility_id
from PA_USER_RESP_V
where user_name like 'amit_kumar%'
and responsibility_name like'PA SupervisorS';
-- --Fnd_global.apps_initialize(user_id,resp_id, resp_appl_id);
-- Fnd_global.apps_initialize(v_user_id,v_responsibility_id,275);
-- -------calling global parameters---
pa_interface_utils_pub.set_global_info
p_api_version_number =>v_api_version_number,
p_responsibility_id =>v_responsibility_id,
p_user_id =>v_user_id,
p_msg_count =>v_msg_count,
p_msg_data =>v_msg_data,
p_return_status =>v_return_status
dbms_output.put_line ('Set Global status ->' || v_return_status);
----Cursor for PRODUCT RELATED DATA-----------
FOR REC IN cur_project_in_data LOOP
-----PASSING VALUES TO THE COMPOSITE DATA TYPE(PROJECT_IN_REC_TYPE)-------
----retrieving product code-----
select lookup_code into v_pm_product_code
from pa_lookups
where lookup_type = 'PM_PRODUCT_CODE'
and meaning = 'Oracle Project Manufacturing';
-----retrieving and validating created from project id----
BEGIN
select project_id
into v_CREATED_FROM_PROJECT_ID
from pa_projects_all
where name=rec.created_from_project_name;
EXCEPTION
when others then
O_Retcode := '1';
O_Errbuf :='Incorrent CREATED_FROM_PROJECT_NAME';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
UPDATE XXPA.XXPA_PROJECT_IN_STG
SET ERROR_FLAG ='1' ,last_updation_date='sysdate' where created_from_project_name = rec.CREATED_FROM_PROJECT_NAME;
END;
-----retrieving & validating carrying out organization id-----
BEGIN
select distinct(CARRYING_OUT_ORGANIZATION_ID)
into v_CARRYING_OUT_ORGANIZATION_ID
from pa_projects_prm_v
where CARRYING_OUT_ORGANIZATION_NAME=rec.carrying_out_organization_name;
EXCEPTION
when others then
O_Retcode := '1';
O_Errbuf :='Incorrent Carrying Out Organization name';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
UPDATE XXPA.XXPA_PROJECT_IN_STG
SET ERROR_FLAG ='1' ,last_updation_date='sysdate' where carrying_out_organization_name = rec.carrying_out_organization_name;
END ;
v_project_in.pm_project_reference := rec.segment1;
v_project_in.project_name := rec.PROJECT_NAME;
v_project_in.created_from_project_id := v_CREATED_FROM_PROJECT_ID;
v_project_in.carrying_out_organization_id := v_CARRYING_OUT_ORGANIZATION_ID;
v_project_in.project_status_code := rec.PROJECT_STATUS_CODE;
v_project_in.description := rec.PROJECT_DESCRIPTION;
v_project_in.start_date := rec.PROJECT_START_DATE;
v_project_in.completion_date := rec.PROJECT_COMPLETION_DATE;
v_project_in.distribution_rule := rec.DISTRIBUTION_RULE;
v_project_in.project_relationship_code := rec.PROJECT_RELATIONSHIP_CODE;
-------------------------Validation of incoming project data--------------------------------
v_error_flag := 1;
project relationship code validation
BEGIN
for prc in cprc
loop
if (rec.PROJECT_RELATIONSHIP_CODE=prc.PROJECT_RELATIONSHIP_CODE) or (rec.PROJECT_RELATIONSHIP_CODE is null)--can be overridden from template
then
v_error_flag :=0;
else null;
end if;
end loop;
END;
project distribution rule validation
BEGIN
for dr in cdr
loop
if (rec.DISTRIBUTION_RULE=dr.DISTRIBUTION_RULE) or (rec.DISTRIBUTION_RULE is null) null since the value can be taken from template too
then
v_error_flag :=0;
else null;
end if;
end loop;
END;
project status code validation
BEGIN
for sc in cpsc
loop
if (rec.PROJECT_STATUS_CODE=sc.PROJECT_STATUS_CODE) or (rec.PROJECT_STATUS_CODE is null) null since the value can be taken from template too
then
v_error_flag :=0;
else null;
end if;
end loop;
END;
dbms_output.put_line ('Error at PROJECT_STATUS_CODE>' ||v_error_flag);
validation logic for project start date
BEGIN
if TRUNC(rec.PROJECT_START_DATE) >= TRUNC(rec.PROJECT_COMPLETION_DATE)
THEN
v_error_flag := 1;
O_Retcode := '1';
O_Errbuf :='Project start date cannnot be greater than completion date';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
END IF;
END;
validation logic for project completion date
BEGIN
if (TRUNC(rec.PROJECT_COMPLETION_DATE)<=TRUNC(rec.PROJECT_START_DATE))
then
if ( rec.PROJECT_STATUS_CODE='CLOSED' and rec.PROJECT_COMPLETION_DATE>sysdate)
THEN
v_error_flag := 1;
O_Retcode := '1';
O_Errbuf :='completion date cannot be greater than sysdate for closed projects';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
END IF;
v_error_flag := 1;
O_Retcode := '1';
O_Errbuf :='Project closed date cannot be less than start date';
end if;
END;
--------Update staging table for the error records--------
BEGIN
if v_error_flag =1
then
O_Retcode := '1';
O_Errbuf :='Incorrect project relationship code';
Fnd_File.Put_Line (Fnd_File.LOG, O_Errbuf);
UPDATE XXPA.XXPA_PROJECT_IN_STG
SET ERROR_FLAG ='1' ,last_updation_date='sysdate' where PROJECT_RELATIONSHIP_CODE = rec.PROJECT_RELATIONSHIP_CODE;
end if;
END;
-----------------------End of validation of incoming project data----------------------------------
---------------Project Task DATA-----------------
v_a:=0;
FOR tsk IN cur_task_in_data LOOP
v_tasks_in_rec.pm_task_reference :=tsk.task_reference ;
v_tasks_in_rec.task_name :=tsk.task_name;
v_tasks_in_rec.pm_parent_task_reference :=tsk.parent_task_reference ;
v_tasks_in_rec.task_start_date :=tsk.task_start_date ;
v_tasks_in_rec.task_completion_date :=tsk.task_completion_date ;
v_tasks_in(v_a) := v_tasks_in_rec;
v_a:=v_a+1;
end loop;
---------------end of task details------------------
--INIT_CREATE_PROJECT
pa_project_pub.init_project;
---------------------CREATE_PROJECT--------------------------
pa_project_pub.create_project(
p_api_version_number=> v_api_version_number,
p_commit => v_commit,
p_init_msg_list => v_init_msg_list,
p_msg_count => v_msg_count,
p_msg_data => v_msg_data,
p_return_status => v_return_status,
p_workflow_started => v_workflow_started,
p_pm_product_code => v_pm_product_code,
p_project_in => v_project_in,
p_project_out => v_project_out,
p_key_members => v_key_members,
p_class_categories => v_class_categories,
p_tasks_in => v_tasks_in,
p_tasks_out => v_tasks_out);
if v_return_status = 'S'
then
UPDATE XXPA.XXPA_PROJECT_IN_STG
SET INTERFACE_STATUS ='Success' where segment1 = v_project_out.pa_project_number; ---P->pending & S-> Success
dbms_output.put_line('New Project Id: ' || v_project_out.pa_project_id);
dbms_output.put_line('New Project Number: ' || v_project_out.pa_project_number);
else
UPDATE XXPA.XXPA_PROJECT_IN_STG
SET INTERFACE_STATUS ='Pending' where segment1 = v_project_out.pa_project_number;
raise API_ERROR;
end if;
END LOOP;
Commit;
------Handling Exception--------
EXCEPTION
WHEN api_error THEN
dbms_output.put_line('An error occured during project creation');
IF (v_msg_count > 0 ) THEN
FOR i IN 1..v_msg_count LOOP
apps.PA_INTERFACE_UTILS_PUB.get_messages(
p_msg_count => v_msg_count,
p_encoded => 'F',
p_msg_index => i,
p_msg_data => v_msg_data,
p_data => v_data,
p_msg_index_out => v_msg_index_out);
dbms_output.put_line('Error message v_data ->'||v_data);
dbms_output.put_line('Error message v_msg_data ->'||v_msg_data);
dbms_output.put_line('Error message v_msg_index_out ->'||v_msg_index_out);
dbms_output.put_line('Error message p_msg_index ->'||i);
APPS.fnd_file.put_line(APPS.FND_FILE.LOG,v_data);
END LOOP;
END IF;
WHEN OTHERS THEN
dbms_output.put_line('An error occured during conversion, SQLCODE ->'|| SQLERRM);
IF (v_msg_count >=1 ) THEN
FOR i IN 1..v_msg_count LOOP
PA_INTERFACE_UTILS_PUB.get_messages(
p_msg_count => v_msg_count,
p_msg_index => i,
p_encoded => 'F',
p_msg_data => v_msg_data,
p_data => v_data,
p_msg_index_out => v_msg_index_out);
dbms_output.put_line('Error message ->'||v_data);
APPS.fnd_file.put_line(APPS.FND_FILE.LOG,v_data);
END LOOP;
END IF;
end; --end procedure
END xxpa_proj_conv_pkg;
* Please tell me how to assign project specific task with the newly created projects??? *
Also please tell me how to assign multiple * Project_Relationship_Code * (ex: END CLIENT, GENERAL CONTRACTOR, PRIMARY) for a particular project during project creation?

Are you not storing the project number in the staging table designed for storing the task data? You can use create_project API to create the project and tasks at the same time with one single call. You may want to try that option

How to block a sales order when there is a free good item .

Hello Gurus ,
How to block a sales order when there is a free good item , only the authorised person should have authorisation to release those blocked Sales orders.
Reason - They want to have a track of free goods given to customer & to avoid the misusing things
Looking for your inputs
Thanks in advance
Regards
Venkat

Hi
I think you can try with Status Profile in BS02 define and assign for item category TANN.
In status profile you can block the delivery and also billing unless some changes the object status as released.
Just try and explore
regards
Prashanth

How to block articlee for purchases

we are planning to block some of articles for purchases. However we want to allow for stock transfers using stock transfer requests( ME21N-UB doc type).
when i kept 01 Blocked for procment/whse in X-site status of baisc data tab system is not allowing for stock transfer order creation also.
plz suggest how to block articles for purchases without impacting for stock transfers.
what is the usage of follwing selections for blocking
01     Blocked for procment/whse
02     Blocked for task list/BOM
03     Blocked for Purchasing

Hello,
If you want to block articles from procuring into DCs and do not want to block DC to Store movements, you may block articles in site-specific Block status (MARC-MMSTA) in Article/DC view. So DC to Store STOs can be created.
You may see the definitions of various blocking statuses in transaction OMS4. For example, 01 Blocked for procment/whse means blocked from Purchasing,Forecasting and RP (No Message, Warning or Error Message).
Thanks,
Venu

How to block attachment deletion in a DMS document

Hi gurus,
Does anybody knows how to block some users to delete the attachment in some DMS types? Is there any configuration that can be done to control this?
Many thanks!
Renan

Hi Renan,
in the standard each user who is able to edit the document info record (enter CV02N) is able to delete the attached originals.
However a user is not able to delete originals if the document is set to a status of status type 'S' (locked status). Within this kind of status it is not possible to delete originals and change some other document data.
So you can also try to create a authorization profile where some users are only allowed to enter document info records with a non-locked status. So you avoid that some users are able to enter document info records which are not set to a locked status.
For this please see the WIKI page under https://www.sdn.sap.com/irj/sdn/wiki?path=/display/plm/caDMS-AuthorizationObjects where you will find all the existing DMS authorization objects.
Maybe object C_DRAW_TCS or C_DRAW_TCD could be useful for this issue.
Best regards,
Christoph
P.S.: Please reward points for useful information

How to block project status in CJ20n

Similar Messages

Maybe you are looking for