Assigning company code to new cc and pc standard structure hierarchy

I've uploaded some profit center and cost center to sandbox, and now the structure hierarchy has changed a lot and makes me totally confused, since all cost center and profit center already have data on it.
I need to assign all company code (at one Controlling Area) to new stucture hierarchy, can I do that?
Thanks.
-=Meila.S=-

Hi ,
At a given key date, you can generate the following hierarchies for a cost center from the enterprise organization:
Standard hierarchy
Alternative hierarchy
Replace standard hierarchy with alternative hierarchy.
If the hierarchies are large, generate them in the background.If you try to generate large hierarchies online, processing can be stopped due to timeout.
If you want to generate an alternative hierarchy, enter a suffix for this hierarchy.
You can assign a name without a suffix for the standard hierarchy only
If you want to replace the standard hierarchy with an alternative hierarchy,Enter the name of the alternative hierarchy that is to be the standard hierarchy.
When it generates this new standard hierarchy, the system automatically shortens the previous name by this suffix.
Enter a suffix for the old hierarchy.This becomes an alternative hierarchy.
Specify whether the hierarchy should be generated for cost center or profit center.
Specify whether groups that exist in the existing standard or alternative hierarchy should be overwritten when the new hiearchy is generated.
Specify whether the hierarchy is to be generated for controlling areas or for profit centers.
Choose Execute
To generate the hierarchies in the background, choose Execute program in background.
Thx
Rahul

Similar Messages

Assign Company Codes to new Credit Controlling areas after going live.

Dear FI Experts;
Our Status Now:
We Have 3 Company Codes, CC 1000, 2000, 3000 and one Credit Controlling Area Code 0001, and the Customers are assigned to this Credit Controlling area with no problems and we are live since about 9 months ago.
Requirement:
We have a requirement to split the Customer Credit limit between companies, which means we have to create more credit control areas for example CCA 0002, and 0003, and though assign our 3 company codes to the new credit control areas, as follows:
CC 1000 to CCA 0001
CC2000 to CCA 0002
CC3000 to CCA 0003
And my Question is, what is the procedures to follow to do that (Not a Customization Procedures, I mean the How the Customers would be affected and the open items for them and how to resolve that), since as mentioned above we are already live since 9 months ago, and credit management is active and all our customers are assigned to our old Credit control area 0001, and also what is the consequence of doing that new assignment since we are live, thanks for your reply

You will need to manage to create new credit master data under new credit control area. System should reorganize existing credit data after reassignment, that is when you change master data (create credit master under new credit control area), new credit exposure is calculated based on AR in company code and existing open orders will get rechecked for credit under new credit control area & new risk categories assigned to them.

Assign company code for subsequent settlement at Plany level

Hi
I am configuring "MM Subsequent settlement" in IMG
In the step - Assign company code for subsequent settlement at Plany level" , i can not add my purchasing organisation and assign to company code. There is no option for "New entry" in the change mode.
Could you please suggest?
Best regards
Vijay

Hi,
Assignment is only possible or necessary for purchasing organizations to which a company code is not assigned.
SAM

Assign Company Code to FM area greyed out

Hi,
We are in 4.7 and currently have assigned one company code to FM area and now we have created a new company code and want to assign the new company code to the existing FM area but noticed that in IMG 'Assign company code to financial management area' the field 'FM area' for the new company code row is greyed out and unable to assign it.
Please let me know if I have missed any configuration.
Thks
VS

Hi,
We can assign one FM area to more than one company code & not required any additional configuration
I Guess, when you are trying to assign, same time some user using the same table related to FM area or Company Code.
so Just try again with same path
Thank you
Anil

Assign company code to country

hi all,
Please tell me how to assign company code to country?
Thanks
Mukesh

hi,
Please go to OX02, Click on new entries tab,then enter your Company code and Assign the Coutry IN in Country Field and Save
Regards
Manish Joshi

ALE configuration, Assign Company Code to Cross-System Company

Hello all,
I set up and configured ALE so that we can keep our production, QA, development master data in sync. I activated the change pointers for the particular message type for which we want to create IDOCs when new master data is created, or existing master data is changed. IDOCs are then sent to the QA and development systems.
Are these three ALE configurations associated with anything outside of ALE? Is there any area that can or will be affected by these three configuration settings?
Transaction SALE
Cross-System Company Codes
 - all Company codes in our system
Assign Cross-System Company Code to Chart of Accounts
 - all Company codes are associated with the one chart of accounts
Assign Company Code to Cross-System Company
- global company code is the same as the company code
Thanks
Bruce

In T.Code: OX19 - Assign company code to controlling area
Please check that if for ur Controlling Area, the
Currency Type:
Currency:
Currency Type
10 Company code currency
20 Controlling area currency
30 Group currency
40 Hard currency
50 Index-based currency
60 Global company currency
Currency
required code of Currency
Should/Are properly maintained in OX19.
This type of error will be for this stage itself.
Provide points if satisfied
Regards
Dinakar
SAP will be throwing this type of messages when
Differing currencies: USD - CAD
Message no. KT276
Diagnosis
The system makes consistency checks during assignment of a company code to a controlling area as part of assignment control.
The same checks take place if assignments already exist and you change the basic data in the controlling area, or if you define the controlling area and company code as a 1:1 structure.
If the check finds an error, the system cannot execute the function ("Assign" or"Change basic data"). If you do not maintain the required data for the consistency check (such as currency, chart of accounts, or fiscal year variant in the company code), this also results in an error message.
You want to use currency type USD. The SAP System determined the company codes assigned to controlling area CAD and the relevant currencies. One discrepancy occurred in one of the currencies.
Note
A precondition for currency type "10" is that all company codes assigned to the controlling area must use the same currency.
A precondition for currency types "40" and "50" is that all company codes assigned to the controlling area must belong to the same country or use the same hard currency or index-based currency.
A precondition for currency type "60" is that all company codes must belong to the same company or all the companies must use the same currency.
Procedure
Change the currency type or the currency settings.

Assign company code to consolidation staging ledger

Dear Guru,
When I execute tcode GC41, there is an error message , it said :
No ledger for consolidation has been specified
Message no. GC191
Diagnosis
No consolidation staging ledger was allocated to the company code.
System Response
If an extract is to be created for consolidation, then every company code must also be allocated to the consolidation staging ledger. This means that every company code is posted directly to two ledgers.
Procedure
Every company code which is to be transferred to consolidation must be allocated to the consolidation additional ledger. The consolidation additional ledger must point to the GLT3 data base.
How to assign company code to consolidation staging ledger?
I check Tcode OCZ2, there is Ledger 9 (Additnal Consolidation Ledger), should I create new ledger for consolidation staging ledger? How to make it?
Thanks before.

There are some steps that one must do in order to populate the Cons tables.
Some of them you may find in SPRO t-code. SAP.help.com is not very bad in this also.

Cant assign company code to controlling area

Dear All
I have created a compnay code but when ever i want to assign it with controlling area its show no data maintained .can any one give me a solution with TC .
Yeasin

Hi
Controling area chart of accounts and fiscal year and Chart of accounts and company code Chart of account and fiscal year should be the same
Have you checked it?
Thanks & Regards
Phaneendra

Copy company code to new company code

Dear Experts,
Please guide me what are all possibilities an implication,
1. if i copied from one existing company to new company code, what are all it will copy from source to traget?
2. it will copy configuration also ?
3.my old company we have many plant in new plant that are all i don't need all only few i need.
Please guide me
Regards
Chandu

Here is the list you can choose from as per your requirement.
FICO Config - GL     OX15     Define Internal Trading partner
FICO Config - GL     EC01 or OX02     Copy company code / Company code Setup
FICO Config - AP     OBBG     Assign Country to Tax Calculation Procedure
FICO Config - GL     OX16     Assign company code to Company /Internal Trading Parnter
FICO Config - GL     OX08     Maintain Purchase Organisation
FICO Config - GL     OX01     Assign Purchase Organisation to Company Code
FICO Config - GL     OB62     Assign Company code to chart of Accounts
FICO Config - GL     OB37     Assign company code to Fiscal year variant
FICO Config - GL     OBBP      Assign posting period Variant to Company Code
FICO Config - GL     OBA4     FI Tolerance Group for User
FICO Config - GL     OB72     Create Cross-System Company Codes
FICO Config - GL     OBV7     Assign Cross-System Company Code to Chart of Accounts
FICO Config - GL     OBB5     Assign Company Code to Cross-System Company Code
FICO Config - AP AR     OBA3     Define Tolerance (Customer or Vendor)
FICO Config - GL     OB57     Assign User Tolerance Group
FICO Config - GL     OBY6      Company Code Global Parameters
FICO Config - CO     OX19     Assign Company Code to Controlling Area
FICO Config - GL     OBYA     Inter Company code clearing
FICO Config - GL     SPRO or SM30 - V_T001A     Define additional currency for lead ledger
FICO Config - GL          Check if Non-lead ledger is to be maintained if yes maintain it
FICO Config - GL     SPRO or SM30 - V_FAGL_T882G     Define setting for Non-lead ledger
FICO Config -AP     OBCL     Assign Tax Codes for Non-Taxable Transactions
FICO Config -AP     SPRO or SM30 - V_T001_EXT     Enable EWT for the country to enable cross company posting
FICO Config - AP     SPRO or SM30 - V_T001WT     Assign Withholding Tax Types to Company Codes
FICO Config -AP     OMKN     Assignment of Tax Indicator to Plant
FICO Config - GL     OB53     Retained earning account should have auto-post in GL master
FICO Config - GL     OB28      Validation
FICO Config - GL     OBBH or GGB1     Substitution
Master Data     FS00 or FS15     Extend all GL accounts including cost element to new company code
Master Data     KA01     Cost Element
Master Data     OKEN     Addition of cost center/Cost Center Group in Standard Hierarchy
Master Data     KCH2     Addition of Profit Center Group/Profit Center in Standard Hierarchy
Master Data     XK01      Create/Extend Vendor Code to new Company Code
Master Data     FD15 or FD01      Create/Extend Customer Code to new Company Code

SRM-Synching company code description between SRM and ECC

Hi,
I have two questions:
1. Is company code descriptions and other details are stored in SRM (like T001 in ECC)?
2. If yes, how can we synch the company code description in SRM and ECC? What is the program name to synch both system
Jit

Sanjeev,
Thanks for the reply. But still there is description difference in SRM - frontend and backend system.
The SRM backend is correct but when we log ninto the SRM portal (frontend), the company code description are missing some characters. Can you pl let me know where is the frontend is picking the Company code description in SRM?
Jit

Retreive company code data from t001k and plants from t001w based on bwkey

here is my sample code pls.
pls look into the perform PERFORM F_GET_COMPANY_CODE.
and also the link between the tables (custom) like ysda_exp_prtlog,
 Purpose: The Monthly export declaration summarizes all SAD *
 export documents produced by the system. For each *
 plant in France this declaration has to be handed to *
 the Customs Authorities, together with copies of all *
 invoices mentioned in the report. *
 Preds/Successors : - *
 External Datasets: - *
 INCLUDE PROGRAM : YYSDFORM *
 MODIFICATION LOG
Date | Change Number | Initials | Description
*01/10/03| G9DK943416 | AXJIRAP | INITIAL PROGRAM *
*03/10/03| G9DK943416 | TXHONGP | CREATE PRINT-PROGRAM FOR ACCELIO *
*26/10/03| G9DK943416 | KXSAWAS | Merge all Accelio forms into one *
*02/02/04| G9DK959869 | KXSAWAS | Bug fix for Intercompany invoice *
 | | | and updating printing no. in *
 | | | YSDA_DOC_NUMBER.
*09/02/04| G9DK960368 | KXSAWAS | TICKET AM6219029 various fix *
 | G9DK960972 | KXUMNAUY | -Add yuei for download file *
 | G9DK961073 | | -Calculate invoice in case *
 | G9DK961190 | | invoce is not yet made *
 | G9DK961211 | | -Fixed message type when there is*
 | | | no data found *
*18/02/04| G9DK961418 | PXSOPHO | -Shift the position in download *
 | | | file
*26/02/04| G9DK962077 | kxumnauy | TICKET AM6219029 various fix *
 | G9DK962238 | | TICKET AM6289971 fix export file *
 | G9DK962271 | |
*18/03/04| G9DK963806 | PXSOPHO | TICKET AM6442955,AM6384438
 | G9DK964432 | | - print only 4 chars of the
 | G9DK964590 | | export procedure *
 | | KXUMNAUY | - Fix internal report
 | | KXSAWAS | - Fix invoice currency to EUR.
 | | | - Fix SUASUNIC probelm when
 | | | download file
*09/06/04| G9DK968994 | KXUMNAUY |TICKET AM6789203
 | G9DK969188 | |- Fix box 4 to print the department
 | G9DK969246 | |code(first 2 char of the postal)
 | G9DK969319 | |- Fix to print all invoice numbers
 | G9DK969345 | |reported in the section 3
 | G9DK969466 | |- Fix in case invoice currency is
 | | |not EUR, use local currency from
 | | |accounting document
 | | |- Fix in case there are different
 | | |codes are loaded on one truck
 | | |- Fix the invoice amount in column
 | | |27 has to be the amount relating to
 | | |the line item
 | | |- Fix the issue that Pro forma
 | | |invoice for STO (ZF8)shouldn't be
 | | |counted to be the final Interco
 | | |invoice
*20/08/04| G9DK972875 | KXUMNAUY |AM7387219
 | G9DK973032 | |-Exclude samples from the internal
 | | |sections 1 and 2
 | | |-Data pages: Column 11. When the
 | | |invoice amount is less then 1.000
 | | |EUR and the quantity is less then.
 | | |1.000 then "******" (6 x *) has to
 | | |be printed
*07/02/05| G9DK983160 | RXBOONG |AM8522207
 | G9DK983168 | |Fix download to unix file
*17/08/06| G9DK9A02DZ | NKONGNG |AM1983727:
 | G9DK9A02IK | |-do not show sample orders
 | | | (order type FD or ZFD)
 | | |AM2985407:
 | | |-skip all T2L* documents
*15/12/06| G9DK9A05GB | ZZPWANA | AM10208238
 | | The Monthly Export Declaration for plant FR95
 | | is showing invoice amounts in SGD in column
 | | 27, where amounts in EUR should be shown. As
 | | the amounts are labeled as EUR in column 26
 | | this is unacceptable.The second issue is that
 | | there are no invoice numbers shown in column
 | | REM.
 | | >> ZZPWANA:AM10208238:G9DK9A05GB <<
 | | >> ZZPWANA:AM10208238:G9DK9A05GJ <<
*05/02/07| G9BK900812 | PPATTAN |AM10687113
 | G9DK9A0661 | |Correction to the Monthly Export
 | | |Declaration alpha character to
 | | |numeric field
 | |
*09/07/07| G9DK9A09ND |VSRKODA Replace plant with companycode,add
 new column plant ,add new logic to
 verify that we had received * *
 BAEcOMPLETE RESPONSE (fROM FC)
 for all the export transactions
REPORT YSDF5092 LINE-SIZE 310
 LINE-COUNT 65
 NO STANDARD PAGE HEADING
 MESSAGE-ID YSD_GENERAL.
 INCLUDE PROGRAM FOR ACCELIO *
INCLUDE YYSDFORM. "Include for Accelio Print Process
INCLUDE YSDF006B_INCLUDE.
 T A B L E S *
TABLES: NAST.
 T Y P E S *
TYPES : BEGIN OF TY_RAW,
 WERKS LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
 BWKEY LIKE YSDA_EXP_PRTLOG-YY_PLANT,
 VALUE_FROM LIKE YCACEDI-VALUE_FROM,
*<-- End of G9DK9A09ND
 HEADER_SHT LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO, "G9DK962238
 PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
 PRINT_TIME LIKE YSDA_EXP_PRTLOG-YY_PRINT_TIME,
 DOCUMENT_CODE LIKE YSDA_EXP_PRTLOG-YY_DOCUMENT_CODE,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 DELIVERY LIKE YSDA_EXP_PRTLOG-YY_DELIVERY,
 INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
 EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
 CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO, "G9DK962238
 EXTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_EXTERNAL_NO,
 COMMODITY LIKE YSDA_EXP_PRTLOG-YY_COMMODITY,
 REPORT_FLAG LIKE YSDA_EXP_PRTLOG-YY_REPORT_FLAG, "G9DK962077
 END OF TY_RAW.
TYPES : BEGIN OF TY_DATA,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
 PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
 ZOLLA LIKE EIKP-ZOLLA,
 STGBE LIKE EIKP-STGBE,
 EXPVZ LIKE EIKP-EXPVZ,
 CONTA LIKE EIKP-CONTA,
 IEVER LIKE EIKP-IEVER,
 PDEST LIKE KNA1-LAND1,
 1DEST LIKE KNA1-LAND1,
 COMMODITY LIKE YSDA_EXP_PRTLOG-YY_COMMODITY,
 STATISTIC TYPE I,
 LFIMG LIKE LIPS-LFIMG,
 L15 TYPE I,
 REGFI(2),
 CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
 INVOICE_AMT TYPE I,
 ZDELN LIKE VBRK-VBELN,
 LIVRE(4),
 EXPRF LIKE EIPO-EXPRF,
 EXART LIKE EIPO-EXART,
 NTGEW LIKE LIKP-NTGEW,
 YY_SEQTAXNO LIKE VBRK-YY_SEQTAXNO, "G9DK959869
 END OF TY_DATA.
TYPES : BEGIN OF TY_HEADER,
 HEADER_SHT LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 PRINT_NO LIKE YSDA_DOC_NUMBER-YY_PRINT_NO,
 WERKS LIKE T001W-WERKS,
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
 BUKRS LIKE T001K-BUKRS,
 BWKEY LIKE T001K-BWKEY,
 VALUE_FROM LIKE YCACEDI-VALUE_FROM,
*<-- End of G9DK9A09ND
 NAME1 LIKE T001W-NAME1,
 COM_NAME LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 POST_LOC LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 CUST_OFFICE LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 POST_CODE LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 DATE(25),
 ETAB LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 NO_SIREN LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 TEXT2 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 TEXT5 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 TEXT7A LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 TEXT7B LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 TEXT8 LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 END OF TY_HEADER.
TYPES : BEGIN OF TY_DELIVERY,
 VBELN LIKE LIKP-VBELN,
 POSNR LIKE LIPS-POSNR, "G9DK961190
 VBUND LIKE LIKP-VBUND,
 LFIMG LIKE LIPS-LFIMG,
 MEINS LIKE LIPS-MEINS,
 EXNUM LIKE LIKP-EXNUM,
 KUNNR LIKE LIKP-KUNNR,
 KUNAG LIKE LIKP-KUNAG,
 L15 LIKE LIPS-LFIMG,
 WADAT_IST LIKE LIKP-WADAT_IST,
 LDDAT LIKE LIKP-LDDAT,
 NTGEW LIKE LIKP-NTGEW,
 MATNR LIKE MARA-MATNR,
 VRKME LIKE LIPS-VRKME, "G9DK960368
 VGBEL LIKE LIPS-VGBEL, "G9DK961190
 VGPOS LIKE LIPS-VGPOS, "G9DK961190
 UECHA LIKE LIPS-UECHA, "G9DK961190
 END OF TY_DELIVERY.
TYPES : BEGIN OF TY_INVOICE,
 ZDELN LIKE VBRK-VBELN,
 NETWR LIKE VBRK-NETWR,
 WAERK LIKE VBRK-WAERK,
 KURRF LIKE VBRK-KURRF,
 FKIMG LIKE VBRP-FKIMG,
 VRKME LIKE VBRP-VRKME,
 END OF TY_INVOICE.
TYPES : BEGIN OF TY_INVOICE_TEMP,
 ZDELN LIKE VBRK-VBELN,
 FKART LIKE VBRK-FKART,
 YY_SEQTAXNO LIKE VBRK-YY_SEQTAXNO,
 END OF TY_INVOICE_TEMP.
TYPES : BEGIN OF TY_EXPORT,
 EXNUM LIKE EIKP-EXNUM,
 ZOLLA LIKE EIKP-ZOLLA,
 STGBE LIKE EIKP-STGBE,
 EXPVZ LIKE EIKP-EXPVZ,
 CONTA LIKE EIKP-CONTA,
 IEVER LIKE EIKP-IEVER,
 EXPRF LIKE EIPO-EXPRF,
 EXART LIKE EIPO-EXART,
 EXPOS LIKE EIPO-EXPOS, "G9DK961190
 STAWN LIKE EIPO-STAWN, "G9DK961190
 END OF TY_EXPORT.
TYPES : BEGIN OF TY_HFILE,
 POS1(8),
 POS2(4),
 POS3(2),
 POS4,
 POS5(8),
 POS6(4),
 POS7(14),
 POS8(20),
 POS9(20),
 POS10(20),
 POS11(8),
 END OF TY_HFILE.
TYPES : BEGIN OF TY_DFILE,
 pos1(18), "G9DK961418
 POS1(19), "G9DK961418
 POS1(18), "G9DK962238
 POS2(4),
 POS3(8),
 POS4(6),
 POS5(6),
 POS5A(4),
 POS6(9),
 POS6A(5), "G9DK962238
 POS7(5),
 POS8(5),
 POS8A(22),
 POS9,
 POS10,
 POS11,
 POS12,
 POS13(5),
 POS13A,
 POS14(13),
 POS14A(31),
 POS15(2),
 POS16(2),
 POS16A(3),
 POS17(4),
 POS17A(3),
 POS18(3),
 POS18A(9), "G9DK962238
 POS19,
 POS20(11),
 POS21(11),
 POS22(10),
 POS23(10),
 POS23A(40),
 POS24(4),
 POS25(3),
 POS26,
 POS26A,
 POS27,
 POS28(3),
 POS29,
 END OF TY_DFILE,
 BEGIN OF TY_TVKO, "G9DK959869
 VKORG LIKE TVKO-VKORG, "G9DK959869
 BUKRS LIKE TVKO-BUKRS, "G9DK959869
 KUNNR LIKE TVKO-KUNNR, "G9DK959869
 END OF TY_TVKO. "G9DK959869
 D A T A *
DATA: GV_CUST_NUM LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 GV_SIREN LIKE YSDA_DOC_FIXTEXT-YY_TEXT,
 GV_REP_NO LIKE YSDA_DOC_NUMBER-YY_PRINT_NO,
 GV_SEQ_NO TYPE I VALUE 0,
 GV_PRNTER LIKE TSP01-RQDEST, "Printer Name
 GV_DATE(8) TYPE C, "DATE
 GV_MONTH(2) TYPE C, "MONTH
 GV_DAY(2) TYPE C, "DAY
 GV_YEAR(4) TYPE C, "YEAR
 GV_ADD1(30) TYPE C, "TEXT-SIMBOL H01A
 GV_ADD2(30) TYPE C, "TEXT-SIMBOL H01B
 GV_COUNT TYPE I, "COUNT SEQUENCE
 GV_SEQUENCE(5) TYPE C, "SEQUENCE
 GV_COPYNO TYPE C, "NUMBER OF COPY
 GV_DATETEMP(10) TYPE C, "DATE
 GV_SECTIONPAGE(2) TYPE C, "NO. OF PAGE IN SECTION
 GV_ITEM TYPE I, "NO. OF ITEM
 GV_EUR LIKE VBRK-WAERK VALUE 'EUR',
 GV_INVOICE_NO LIKE VBRK-VBELN, "G9DK959869
 GV_INVOICE_INTERCOM LIKE VBRK-VBELN, "G9DK959869
 GV_PRO_FORMA_STO LIKE VBRK-VBELN, "G9DK969466
 GV_TEXT46 LIKE YSDA_DOC_FIXTEXT-YY_TEXT. "G9DK959869
 C O N S T A N T S *
CONSTANTS: GC_M VALUE 'M',
 GC_J VALUE 'J',
 GC_C VALUE 'C',
 GC_D VALUE 'D',
 GC_E VALUE 'E',
 GC_F VALUE 'F',
 GC_U VALUE 'U',
 GC_X VALUE 'X',
 GC_0 VALUE '0',
 GC_2 VALUE '2',
 GC_3 VALUE '3',
 GC_MEXP(4) VALUE 'MEXP',
 GC_ZAAD(4) VALUE 'ZAAD',
 GC_ZSAD(4) VALUE 'ZSAD',
 GC_CY(2) VALUE 'CY',
 GC_M1(2) VALUE 'M1',
 GC_M2(2) VALUE 'M2',
 GC_M4(2) VALUE 'M4',
 GC_M5(2) VALUE 'M5',
 GC_M6(2) VALUE 'M6',
 GC_M7(2) VALUE 'M7',
 GC_M8(2) VALUE 'M8',
 GC_M9(2) VALUE 'M9',
 GC_C3(2) VALUE 'C3',
 GC_00(2) VALUE '00',
 GC_C1(2) VALUE 'C1',
 GC_C2(2) VALUE 'C2',
 GC_SI(2) VALUE 'SI',
 GC_N1(2) VALUE 'N1',
 GC_N2(2) VALUE 'N2',
 GC_FR(2) VALUE 'FR',
 GC_EN(2) VALUE 'EN',
 GC_TON LIKE T006-MSEHI VALUE 'TO',
 GC_L15 LIKE T006-MSEHI VALUE 'L15',
 GC_GRWR(4) VALUE 'GRWR',
 GC_SAISUNIC(8) VALUE 'SAISUNIC',
 GC_000000(6) VALUE '000000',
 GC_1 VALUE '1', "G9BK900812
 GC_1 LIKE PLFH-MGVGW VALUE '1', "G9BK900812
 GC_DOT(1) VALUE '.',
 GC_TYP_EU(3) TYPE C VALUE 'EU ',
 GC_TYP_EX(3) TYPE C VALUE 'EX ',
 GC_TYP_COM(3) TYPE C VALUE 'COM',
 GC_BIS(3) TYPE C VALUE 'BIS',
 GC_EUR(3) TYPE C VALUE 'EUR',
 GC_IV(2) TYPE C VALUE 'IV',
 GC_ZTDR(4) TYPE C VALUE 'ZTDR',
 GC_ZF8(3) TYPE C VALUE 'ZF8',
 GC_ZIV(3) TYPE C VALUE 'ZIV',
 GC_FALSE(1) TYPE C VALUE ' ', "yuie
 GC_STRUCT(31) TYPE C VALUE 'DATA', "yuie
 GC_TOTAL TYPE VTXTM VALUE 'TOTAL NET UNIT PRICE',"G9DK960368
 GC_INTER_PERCENT TYPE VTXTM VALUE 'Inter-company %'."G9DK960368
 I N T E R N A L T A B L E S *
DATA: BEGIN OF IT_DOC OCCURS 0,
 VBELN LIKE LIKP-VBELN,
 FKART LIKE VBRK-FKART,
 ERDAT LIKE VBFA-ERDAT,
 ERZET LIKE VBFA-ERZET,
 ZDELN LIKE VBRK-VBELN,
 END OF IT_DOC,
 BEGIN OF IT_VBRK OCCURS 0,
 ZDELN LIKE VBRK-VBELN,
 END OF IT_VBRK,
 BEGIN OF IT_SALES OCCURS 0,
 VBELN LIKE LIKP-VBELN,
 VBELV LIKE VBAK-VBELN, "Order Number
 AUART LIKE VBAK-AUART,
 KNUMV LIKE VBAK-KNUMV,
 KALSM LIKE VBAK-KALSM, "G9DK960368
 WAERK LIKE VBAK-KALSM, "G9DK960368
 KNUMA LIKE VBAK-KNUMA, "G9DK960368
 END OF IT_SALES,
*--> begin of G9DK961190 kxumnauy 13 feb 2004
 BEGIN OF IT_VBAP OCCURS 0,
 VBELN LIKE VBAK-VBELN, " Sale doc.
 POSNR LIKE VBAP-POSNR, " Sales document item
 KNUMV LIKE VBAK-KNUMV, " No. of the document cond.
 KALSM LIKE VBAK-KALSM,
 WAERK LIKE VBAK-KALSM,
 KNUMA LIKE VBAK-KNUMA,
 END OF IT_VBAP,
*<-- end of G9DK961190
 BEGIN OF IT_KSCHL OCCURS 0,
 KNUMV LIKE KONV-KNUMV,
 KBETR LIKE KONV-KBETR,
 WAERS LIKE KONV-WAERS, "G9DK960368
 END OF IT_KSCHL,
 BEGIN OF IT_VBKD OCCURS 0,
 VBELV LIKE VBAK-VBELN,
 INCO1 LIKE VBKD-INCO1,
 END OF IT_VBKD,
 BEGIN OF IT_COUNTRY OCCURS 0,
 KUNNR LIKE KNA1-KUNNR,
 LAND1 LIKE KNA1-LAND1,
 END OF IT_COUNTRY,
 BEGIN OF IT_CNO OCCURS 0,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
 PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
 INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
 CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
 PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
 END OF IT_CNO,
 BEGIN OF IT_LNO OCCURS 0,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
 PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
 INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
 CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
 PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
 END OF IT_LNO,
 BEGIN OF IT_LINV OCCURS 0,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
 PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
 INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
 CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
 PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
 EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
 LFIMG LIKE LIPS-LFIMG,
 ZDELN LIKE VBRK-YY_SEQTAXNO,
 END OF IT_LINV,
 BEGIN OF IT_DIFF OCCURS 0,
 HEADER_TYP LIKE YSDA_EXP_PRTLOG-YY_HEADER_TYP,
 VBELV LIKE VBAK-VBELN,
 INTERNAL_NO LIKE YSDA_EXP_PRTLOG-YY_INTERNAL_NO,
 PRINT_DATE LIKE YSDA_EXP_PRTLOG-YY_PRINT_DATE,
 INVOICE_AMT LIKE YSDA_EXP_PRTLOG-YY_INVOICE_AMT,
 CURRENCY LIKE YSDA_EXP_PRTLOG-YY_CURRENCY,
*-->Begin of G9DK9A09ND -VSRKODA -16/07/2007
 PLANT LIKE YSDA_EXP_PRTLOG-YY_PLANT,
*<--End of G9DK9A09ND
 EX_RATE LIKE YSDA_EXP_PRTLOG-YY_EX_RATE,
 LFIMG LIKE LIPS-LFIMG,
 NETWR LIKE VBRK-NETWR,
 WAERK LIKE VBRK-WAERK,
 KURRF LIKE VBRK-KURRF,
 FKIMG LIKE VBRP-FKIMG,
 ZDELN LIKE VBRK-YY_SEQTAXNO,
 END OF IT_DIFF.
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
Data :Begin of it_t001k occurs 0,
 bwkey like t001k-bwkey,
 bukrs like t001k-bukrs,
 werks like t001w-werks,
 end of it_t001k.
TABLES: T001W.
Data :Begin of it_t001w occurS 0,
 bwkey like t001w-bwkey,
 werks like t001w-werks,
 end of it_t001w.
*<-- End of G9DK9A09ND
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
DATA: BEGIN OF IT_SIREN OCCURS 0,
 VALUE_FROM LIKE YCACEDI-VALUE_FROM,
 MESTYP LIKE YCACEDI-MESTYP,
 DIRECT LIKE YCACEDI-MESTYP,
 ORG_LEVEL LIKE YCACEDI-ORG_LEVEL,
 ORG_VALUE LIKE YCACEDI-ORG_VALUE,
 FIELDNAME LIKE YCACEDI-FIELDNAME,
 END OF IT_SIREN.
*<-- End of G9DK9A09ND
*--> Begin of G9DK959869 KXSAWAS 02/02/2004
DATA: BEGIN OF IT_ORDER OCCURS 0,
 VBELN LIKE VBAK-VBELN, " Order no.
 VKORG LIKE VBAK-VKORG, " Sale Org. of order
 END OF IT_ORDER,
 BEGIN OF WA_T001W,
 WERKS LIKE T001W-WERKS, " Plant
 BUKRS LIKE T001K-BUKRS,
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
 BWKEY LIKE T001K-BWKEY,
*<-- End of G9DK9A09ND
 VKORG LIKE T001W-VKORG, " Sale Org. of plant
 COUNC LIKE T001W-COUNC, " Country code
 LAND1 LIKE T001W-LAND1, "
 ADRNR LIKE T001W-ADRNR,
 ORT01 LIKE T001W-ORT01,
 END OF WA_T001W,
 BEGIN OF IT_LIKP OCCURS 0,
 VBELN LIKE LIKP-VBELN, " Delivery
 VKORG LIKE LIKP-VKORG, " Sale organization
 KUNNR LIKE LIKP-KUNNR, " Ship-to party
 INCO1 LIKE LIKP-INCO1, " Incoterm part1
 INCO2 LIKE LIKP-INCO2, " Incoterm part2
 END OF IT_LIKP.
*<-- End of G9DK959869
DATA: IT_RAW TYPE TABLE OF TY_RAW WITH HEADER LINE,
 IT_DATA TYPE TABLE OF TY_DATA WITH HEADER LINE,
 IT_EXPORT TYPE TABLE OF TY_EXPORT WITH HEADER LINE,
 IT_DELIVERY TYPE TABLE OF TY_DELIVERY WITH HEADER LINE,
 IT_INVOICE TYPE TABLE OF TY_INVOICE WITH HEADER LINE,
 IT_FILE TYPE TABLE OF TY_DFILE WITH HEADER LINE,
 IT_HEADER TYPE TABLE OF TY_HEADER WITH HEADER LINE,
 IT_SELTAB TYPE TABLE OF RSPARAMS WITH HEADER LINE,
 IT_INVOICE_TEMP TYPE TABLE OF TY_INVOICE_TEMP WITH HEADER LINE,
 IT_TVKO_ORDER TYPE TABLE OF TY_TVKO WITH HEADER LINE,"G9DK959869
 IT_DEL TYPE TABLE OF TY_DELIVERY WITH HEADER LINE. "G9DK960368
*--> Begin of G9DK960368 KXSAWAS 05/02/2004
DATA: BEGIN OF YUIE_ITAB OCCURS 0,
 RECID(31),
 DATA(1024).
DATA: END OF YUIE_ITAB.
TYPE-POOLS: YUIEX.
*DATA : it_komv2 LIKE komv OCCURS 0 WITH HEADER LINE. "G9DK961190
*<-- End of G9DK960368
*Begin of G9DK964590 kxumnauy 30 mar 2003
DATA: BEGIN OF KEY_ZBAT01,
 MANDT TYPE ZBAT01-MANDT,
 REPID TYPE ZBAT01-REPID,
 FUNCT TYPE ZBAT01-FUNCT,
 END OF KEY_ZBAT01.
*End of G9DK964590
*--> Begin of G9DK968994 kxumnauy
DATA: BEGIN OF IT_INVOICE_ITEM OCCURS 0,
 VBELN LIKE VBRP-VBELN,
 POSNR LIKE VBRP-POSNR,
 NETWR LIKE VBRP-NETWR,
 VGBEL LIKE VBRP-VGBEL,
 VGPOS LIKE VBRP-VGPOS,
 MATNR LIKE VBRP-MATNR,
 fkimg LIKE VBRP-fkimg, "G9DK969188
 vrkme LIKE VBRP-vrkme, "G9DK969188
 ntgew LIKE VBRP-ntgew, "G9DK969188
 gewei LIKE VBRP-gewei, "G9DK969188
 END OF IT_INVOICE_ITEM.
*<-- End of G9DK968994
RANGES: S_LAST FOR SY-DATUM,
 S_PERIOD FOR SY-DATUM.
 W O R K A R E A S *
DATA: WA_RAW TYPE TY_RAW,
 WA_DATA TYPE TY_DATA,
 WA_EXPORT TYPE TY_EXPORT,
 WA_DOC LIKE IT_DOC,
 WA_SALES LIKE IT_SALES,
 WA_SALES1 LIKE IT_SALES, "G9DK972875
 WA_KSCHL LIKE IT_KSCHL,
 WA_VBKD LIKE IT_VBKD,
 WA_COUNTRY LIKE IT_COUNTRY,
 WA_DELIVERY TYPE TY_DELIVERY,
 WA_INVOICE TYPE TY_INVOICE,
 WA_LINV LIKE IT_LINV,
 WA_CNO LIKE IT_CNO,
 WA_LNO LIKE IT_LNO,
 WA_DIFF LIKE IT_DIFF,
 WA_HEADER TYPE TY_HEADER,
 WA_VBRK LIKE IT_VBRK,
 WA_FILE TYPE TY_DFILE,
 WA_HFILE TYPE TY_HFILE,
 WA_SELTAB TYPE RSPARAMS,
 WA_INVOICE_TEMP TYPE TY_INVOICE_TEMP,
 WA_TVKO_PLANT TYPE TY_TVKO, "G9DK959869
 WA_LIKP LIKE IT_LIKP, "G9DK959869
 WA_DEL LIKE IT_DELIVERY, "G9DK960368
 WA_KOMK LIKE KOMK, "G9DK960368
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
 WA_T001K LIKE T001K.
*<-- End of G9DK9A09ND
 S E L E C T - O P T I O N S / P A R A M E T E R S *
SELECTION-SCREEN BEGIN OF BLOCK SCR1 WITH FRAME TITLE TEXT-001.
*Begin of change VSRKODA
PARAMETERS: P_BUKRS LIKE T001K-BUKRS,
 S_WERKS LIKE T001W-WERKS,
*end of change VSRKODA
 P_MNR LIKE T247-MNR,
 P_YEAR LIKE VBRK-GJAHR.
SELECT-OPTIONS: S_WERKS FOR T001W-WERKS.
PARAMETERS: P_PRNTER LIKE TSP01-RQDEST. "Printer Name
 p_file AS CHECKBOX. "yuie
SELECTION-SCREEN END OF BLOCK SCR1.
*--> Begin of G9DK960368 KXSAWAS 05/02/2004
*--- Comment out ---
*SELECTION-SCREEN BEGIN OF BLOCK b2
 WITH FRAME TITLE text-t01.
*PARAMETERS: p_fname LIKE rlgrap-filename .
*SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T01.
PARAMETERS: P_FILE AS CHECKBOX.
PARAMETERS: P_FNAME TYPE EPSFILNAM LOWER CASE, "interface UNIX file
 P_SPATH TYPE EPSDIRNAM DEFAULT
 '/opt/mobil/batch/gem/other/common/data/' LOWER CASE.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-T03.
PARAMETERS: P_INTID TYPE YINT_IDS DEFAULT 'DCG_REPORT',
 P_SUBID TYPE YINT_SUB_IDS DEFAULT 'MAIN'.
SELECTION-SCREEN END OF BLOCK B3.
*<-- End of G9DK960368
AT SELECTION SCREEN
AT SELECTION-SCREEN.
To validate the data that user entered in the selection screen
PERFORM F_VALIDATE_DATA.
PERFORM F_GET_COMPANY_CODE.
 I N I T I A L I Z A T I O N *
INITIALIZATION.
P_MNR = SY-DATUM+4(2).
P_YEAR = SY-DATUM+0(4).
*--> Begin of G9DK960368 KXSAWAS 05/02/2004
*---Set default unix file name yuie
CONCATENATE 'DCG_SAISUNIC' SY-UNAME
 INTO P_FNAME
 SEPARATED BY '_'.
*<-- End of G9DK960368
 B E G I N - O F - S E L E C T I O N *
START-OF-SELECTION.
GV_PRNTER = P_PRNTER.
PERFORM F_INIT_PERIOD.
PERFORM F_GET_CURRENT_REPORT_NUMBER.
PERFORM F_GET_COMPANY_CODE.
PERFORM F_EXTRACT_RAW_DATA.
PERFORM F_PROCESS_DATA.
IF SY-BATCH EQ GC_X.
 PERFORM F_UPDATE_REPORT_NUMBER.
ENDIF.
END-OF-SELECTION.
IF NOT ( IT_HEADER[] IS INITIAL AND IT_DATA[] IS INITIAL AND
 IT_CNO[] IS INITIAL AND IT_LNO[] IS INITIAL AND
 IT_LINV[] IS INITIAL AND IT_DIFF[] IS INITIAL ).
 PERFORM F_PRINT_ACCELIO.
ELSE.
 MESSAGE ID 'YM' TYPE 'I' NUMBER '032' "G9DK961073
 WITH 'No data found for entered criteria'(E01).
 EXIT.
ENDIF.
*If run by batch job print invoice
IF SY-BATCH EQ GC_X.
 PERFORM F_PRINT_INVOICE.
ENDIF.
 B E G I N O F F O R M *
*& Form F_INIT_PERIOD
 Period
FORM F_INIT_PERIOD.
DATA: LV_FIRST LIKE SY-DATUM,
 LV_CURRENT LIKE SY-DATUM,
 LV_LAST LIKE SY-DATUM,
 LV_DTEMP_FIRST(12) TYPE C,
 LV_DTEMP_LAST(12) TYPE C.
LV_FIRST+0(4) = P_YEAR.
LV_FIRST+4(2) = P_MNR.
LV_FIRST+6(2) = '01'.
LAST DAY OF CURRENT MONTH
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
 EXPORTING
 DAY_IN = LV_FIRST
 IMPORTING
 LAST_DAY_OF_MONTH = LV_CURRENT
 EXCEPTIONS
 DAY_IN_NO_DATE = 1
 OTHERS = 2.
IF SY-SUBRC = 0.
 IF P_MNR < '2'.
 LV_FIRST+0(4) = P_YEAR - 1.
 LV_FIRST+4(2) = '12'.
 LV_FIRST+6(2) = '01'.
 ELSE.
 LV_FIRST+0(4) = P_YEAR.
 LV_FIRST+4(2) = P_MNR - 1.
 LV_FIRST+6(2) = '01'.
 ENDIF.
LAST DAY OF LAST MONTH
 CALL FUNCTION 'LAST_DAY_OF_MONTHS'
 EXPORTING
 DAY_IN = LV_FIRST
 IMPORTING
 LAST_DAY_OF_MONTH = LV_LAST
 EXCEPTIONS
 DAY_IN_NO_DATE = 1
 OTHERS = 2.
 IF SY-SUBRC = 0.
 LV_FIRST = '20040101'. "G9DK973032
LAST MONTH
 S_LAST-SIGN = 'I'.
 S_LAST-OPTION = 'BT'.
 S_LAST-LOW = LV_FIRST.
 S_LAST-HIGH = LV_LAST.
 APPEND S_LAST.
LAST MONTH AND CURRENT MONTH
 S_PERIOD-SIGN = 'I'.
 S_PERIOD-OPTION = 'BT'.
 S_PERIOD-LOW = LV_FIRST.
 S_PERIOD-HIGH = LV_CURRENT.
 APPEND S_PERIOD.
 ENDIF.
ENDIF.
ENDFORM. " F_INIT_PERIOD
*& Form F_GET_CURRENT_REPORT_NUMBER
 Get current Seq. no. from YSDA_DOC_NUMBER
FORM F_GET_CURRENT_REPORT_NUMBER.
DATA: LV_RC LIKE SY-SUBRC.
CHECK SY-BATCH = GC_X.
DO 3 TIMES.
 PERFORM F_LOCK_OBJECT CHANGING LV_RC.
 IF LV_RC <> 0.
 PERFORM F_WAIT.
 ELSE.
 EXIT.
 ENDIF.
ENDDO.
IF LV_RC <> 0.
 PERFORM F_UNLOCK_OBJECT.
 PERFORM F_LOCK_OBJECT CHANGING LV_RC.
ENDIF.
SELECT SINGLE YY_PRINT_NO
 INTO GV_REP_NO
 FROM YSDA_DOC_NUMBER
*-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
 where yy_plant = P_WERKS
*<-- End of G9DK9A09ND
 WHERE YY_PLANT IN S_WERKS
 AND YY_YEAR = P_YEAR
 AND YY_DOCUMENT_CODE = GC_MEXP.
*--> Begin of G9DK959869 KXSAWAS 02/02/2004
IF SY-BATCH = GC_X.
 GV_REP_NO = GV_REP_NO + 1.
ELSE.
 GV_REP_NO = 0.
ENDIF.
*<-- End of G9DK959869
ENDFORM. " F_GET_CURRENT_REPORT_NUMBER
*& Form F_GET_COMPANY_CODE
 text
--> p1 text
<-- p2 text
FORM F_GET_COMPANY_CODE.
CLEAR: it_t001k-bwkey.
Validate input data against master table of SAP
Validate company code against T001k
IF NOT P_BUKRS IS INITIAL.
 SELECT T001K~BUKRS
 T001K~BWKEY
 T001W~WERKS
 INTO CORRESPONDING FIELDS OF TABLE IT_T001K
 FROM T001K
INNER JOIN T001W ON T001W~BWKEY = T001K~BWKEY
 WHERE BUKRS = P_BUKRS
 AND WERKS IN S_WERKS.
 APPEND IT_T001K.
 select t001kbukrs t001kbwkey t001w~werks
 into corresponding fields of table itab
 from t001w
 inner join t001k
 on t001kbwkey = t001wbwkey.
 LOOP AT IT_T001K.
 it_t001k-bwkey = it_t001w-werks.
 ENDLOOP.
ENDIF.
ENDFORM. " F_GET_COMPANY_CODE
*& Form F_EXTRACT_RAW_DATA
 Extract entries from YSDA_EXP_PRTLOG
FORM F_EXTRACT_RAW_DATA.
SELECT YY_PLANT
 YY_HEADER_TYP
 YY_INTERNAL_NO
 YY_PRINT_DATE
 YY_PRINT_TIME
 YY_DOCUMENT_CODE
 YY_HEADER_TYP
 YY_DELIVERY
 YY_INVOICE_AMT
 YY_EX_RATE
 YY_CURRENCY
 YY_INTERNAL_NO "G9DK962238
 YY_EXTERNAL_NO
 YY_COMMODITY
 YY_REPORT_FLAG "G9DK962077
 INTO corresponding fields of TABLE IT_RAW
 FROM YSDA_EXP_PRTLOG
WHERE YY_PLANT IN S_WERKS
**-->Begin of G9DK9A09ND -VSRKODA -09/07/2007
 where yy_plant = s_werks
**<-- End of G9DK9A09ND
 and YY_PRINT_DATE IN S_PERIOD+
 AND YY_REPORT_FLAG <> 'X' "G9DK973032
 AND YY_HEADER_TYP <> 'T2L' "G9DK9A02DZ
 AND YY_ANNULATION <> 'X'.
*If run by batch job
*--> Begin of G9DK959869 KXSAWAS 02/02/2004
*--- Comment out ---
IF sy-batch EQ gc_x.
 IF NOT it_raw[] IS INITIAL.
 LOOP AT it_raw.
**Update YY_REPORT_FLAG EQ 'X'
 UPDATE ysda_exp_prtlog SET yy_report_flag = gc_x
 WHERE yy_plant = p_werks
 AND yy_print_date = it_raw-print_date
 AND yy_print_time = it_raw-print_time
 AND yy_document_code = it_raw-document_code.
 ENDLOOP.
 ENDIF.
ENDIF.
*<-- End of G9DK959869
LOOP AT IT_RAW.
 IT_RAW-HEADER_SHT = IT_RAW-HEADER_SHT+0(3).
 MODIFY IT_RAW.
ENDLOOP.
SORT IT_RAW BY WERKS HEADER_SHT INTERNAL_NO "G9DK962271
PRINT_DATE. "G9DK962238
ENDFORM. " F_EXTRACT_RAW_DATA
*& Form F_PROCESS_DATA
 Extract all required data
FORM F_PROCESS_DATA.
PERFORM F_EXTRACT_DOC_FLOW.
PERFORM F_EXTRACT_INCO_TERM.
PERFORM F_EXTRACT_DELIVERY_DATA.
PERFORM F_EXTRACT_INVOICE_DATA.
PERFORM F_EXTRACT_EXPORT_DATA.
PERFORM F_EXTRACT_HEADER_DATA.
PERFORM F_EXTRACT_COMPANY. "G9DK959869
PERFORM F_CLASSIFY_DATA.
ENDFORM. " F_PROCESS_DATA
*& Form F_EXTRACT_DOC_FLOW
 Extract Sale data
FORM F_EXTRACT_DOC_FLOW.
IF NOT IT_RAW[] IS INITIAL.
 SELECT VBELV
 VBTYP_N
 ERDAT
 ERZET
 VBELN
 INTO TABLE IT_DOC
 FROM VBFA
 FOR ALL ENTRIES IN IT_RAW
 WHERE VBELV = IT_RAW-DELIVERY
 AND ( VBTYP_N = 'M'
 OR VBTYP_N = '5' ).
 SELECT A~VBELN
 A~VBELV
 B~AUART
 B~KNUMV
 B~KALSM "G9DK960368
 B~WAERK "G9DK960368
 B~KNUMA "G9DK960368
 INTO TABLE IT_SALES
 FROM VBFA AS A INNER JOIN VBAK AS B
 ON AVBELV = BVBELN
 FOR ALL ENTRIES IN IT_RAW
 WHERE A~VBELN = IT_RAW-DELIVERY
 AND A~VBTYP_N = GC_J.
ENDIF.
SORT IT_SALES BY VBELN VBELV.
DELETE ADJACENT DUPLICATES FROM IT_SALES COMPARING ALL FIELDS.
SORT IT_DOC BY VBELN ASCENDING
 FKART ASCENDING
 ERDAT DESCENDING
 ERZET DESCENDING.
DELETE ADJACENT DUPLICATES FROM IT_DOC COMPARING ALL FIELDS.
IF NOT IT_SALES[] IS INITIAL.
 SELECT KNUMV
 KBETR
 WAERS "G9DK960368
 INTO TABLE IT_KSCHL
 FROM KONV
 FOR ALL ENTRIES IN IT_SALES
 WHERE KNUMV = IT_SALES-KNUMV
 AND KSCHL = GC_GRWR.
ENDIF.
SORT IT_KSCHL BY KNUMV.
ENDFORM. " F_EXTRACT_DOC_FLOW
*& Form F_EXTRACT_INCO_TERM
 Extract inco term
FORM F_EXTRACT_INCO_TERM.
IF NOT IT_SALES[] IS INITIAL.
 SELECT VBELN


What's wrong with F_GET_COMPANY_CODE ? Below is similar code - try running this and seeing what you get:
report zlocal_jc_t001w.
tables:
t001k, "Valuation area
t001w. "Plants/Branches
parameters:
p_bukrs like t001k-bukrs default '1000'.
select-options:
s_werks for t001w-werks.
start-of-selection.
perform get_data.
*& Form get_data
form get_data.
data:
 begin of gt_t001k occurs 10,
 bukrs like t001k-bukrs,
 bwkey like t001k-bwkey,
 werks like t001w-werks,
 end of gt_t001k.
select
 t001k~bukrs
 t001k~bwkey
 t001w~werks
 into corresponding fields of table gt_t001k
 from t001k as t001k
 inner join t001w as t001w on t001w~bwkey = t001k~bwkey
 where t001k~bukrs = p_bukrs
 and t001w~werks in s_werks.
loop at gt_t001k.
 write: /
 gt_t001k-bukrs,
 gt_t001k-bwkey,
 gt_t001k-werks.
endloop.
endform. "get_data
As for links to locally defined database tables, that will depend on what the keys defined in SE11 are e.g. there will be a primary key plus relationships to other tables (for example "WERKS LIKE YSDA_EXP_PRTLOG-YY_PLANT" indicates YY_PLANT relates to T001W).
Jonathan

Unable to assign Company code to BP :

Hi Friends,
I am creating a Business partner in CRM Server. Through BDOC, it is getting transfered in R/3 through T-code SMW01.
I am getting BP replicated successfully in R/3 Server in XD03 T-code.
Problem is when i am assingning BP a Company code it is giving error as "Customer xyz has not been assigned for
Company code abc".
I have used Business Trancation event. Event name "DE_BALE". I have maintained entries in TBE24 and TBE34 table,
Also i have copied FM "SAMPLE_INTERFACE_DE_BALE" to Z FM and assigned to this event.
I am getting the same error. In R/3, my Z FM is not gettig called.
Can anybody Suggest << removed >>
Thanks,
Chitrakant
Edited by: Rob Burbank on Nov 13, 2009 1:47 PM

Hi Chitrakant Desh... ,
for shich role of the BP did you try? (Assignments are role-specific).
Regards,
Clemens

Assign company code

Dear All
is it possible assign more than a purchasing organization to one company code?
best regards
Ramin

hi,
yes you can have one or more than one Purchase organisation assigned to one Co. code...
Example:
One co. code ie. Steel company...may have more than one Porg and attach to diff. plants performing diff. activities like maintenence, purchasing, production ...and production of diff. parts etc...
Even SAP will work if you don't make any attachments...ie. goes for decentralised attachment...
For more help check SAP help or more threads on SDN
NO YOU CAN'T HAVE MORETHAN ONE CO'CODE ASSIGNED TO ONE PORG.
Regards
Priyanka.P
Edited by: Priyanka Paltanwale on Oct 6, 2010 10:17 AM

Error Mssg: FI673 while assigning company code to FM area

Hi,
I have multiple company codes and only one company code (A) is assigned to FM area and another company code (B) is not assigned to FM area but some transactions have already been posted in dev client, I got the following error message while trying to assign the company code B to the same FM area.
"You must not change assignment to company code B
Diagnosis:
There is already actual data for FM area, which is assigned to company code B"
Please note that I have already deleted the FI transactions for company B thru t-code OBR1 but unable to delete the CO transactions as multiple company codes assigned to one CO area.
Please let me know how to overcome this issue of assigning the company code B to FM area.
Thanks
VS

Hi,
check SAPNET note 1502436 maybe its helpful.
Best regards, Christian

Company code restriction for dashboard and webi reports in BOBJ

Hi Friends,
We have a requirment where we need to restrict user on company code level in bobj.
we have some dashborads and webi reports which need to be restricted at company code level, hence i have created a role in BI and restricted the queries (bex queries) on company code level and same role and user i have imported in BOBJ.
Now i can see the role and user in BOBJ and also i can login to BILAUNCH PAD with authentication as SAP But unable to run the webi reports and dashboard hence i have added those reports to this user in bobj and now i can run the reports, but restriction is not working.
In BI I am able to restrict user but in bobj its not restricting. kindly let me know if i am missing anything?
We are having BO 4.0 SP6.
Thanks
Basis

Hi Saurabh,
In BI its wokring perfectly fine.
I can run the query for specific company code and data is being populated as the respective compay code.
I have also configure SSO between BI & BO using below link
http://wiki.scn.sap.com/wiki/display/BOBJ/How+to+setup+SSO+against+SAP+BW+with+SAP+BO+BI4.0+Common+Semantic+Layer+%28UNX%29+or+BICS
but when i am trying to create a olap connection in IDT with SSO connection test is getting failed with belwo error.
com.businessobjects.mds.olap.OlapException: [Internal] SSO token or User password is empty.
I checked STS is already there in APS .
Thanks
Basis

Assigning company code to new cc and pc standard structure hierarchy

Similar Messages

Maybe you are looking for