Cross company cost estimat

I have two company code A001 and A002, both got two plants, P010, P011 for A001, P020,P021 for A002.
I have finished product 2000532 in both plant P010 and P020, in P020 plant, I don't want to maintain purchase info record, but in plant P010, I maintain purchase infor record for 2000532 material.
now in P020 plant, how to do cost estimate based on P010 's purchase infor record?
we use purchase infor record in costing variant setting

If you want same std cost in Plant B as in Plant A, then easier way would be to create a Special Procurement Key and assign the same in Material master - Costing View of Plant 2 ( OMD9)
You have to do the following steps :
1. Go to Transaction OMD9
2. Create a new entry .Enter your Plant = Plant B (receiver plant) "SP Pr Type" = Z1 and Proc Type = F;
3. Under Special Procurement Secrion
Enter U as special procurement and Plant Ain the Plant Field (Transferring plant)
4. Save this entry, and in Mat Master of Plant B specify Z1 as Special proc key in Costing view (NOT MRP VIEW)
5. Run CK11N in Plant B... and release from CK24
This will take the price of Plant A ..
Regards
Sarada

Similar Messages

Apply Overhead to Cross Company Costing without BOM

Hi,
We are maintainin BOM's only in one plant and want to be able to cost materials in all the plants using costing run. The problem in doing so is we have the prices at different plants marked up by a specific percent when compared to the plant which mainatins the BOM's. It is possible to bring in the cost estimate of the material from the plant which has BOM's using the cross company costing and using special procurement keys but it is not possible to add an overhead to this cost estimate since the overhead is not added to this cost estimate. Please suggest an alternative approach if it is possible to add an overhead to a cost estimate from an another plant. Any help in this matter is greatly appreciated.
Thanks,

If I am understanding you, a manufactured material cost 10.00 in the mfg plant; you want to uplift it by 30% so in second plant it has a cost of 13.00
To do this, we turned off Cross plant costing and used Profit center transfer pricing. By creating overhead groups for shipping plant and pricing them in conditions (trans VK19) based on "from" plant "to" plant.
One draw back - the entire cost in the receiving plant is a "material" component Labor and overhead are not broken out.
The other issue, for you, is that a consultant and the SD Pricing guru did the configutation, created new key combination to include overhead group, so I can not explain in detail how it was done. I do not think that any user exist is involved.
Perhaps this give you hope.
Althea

Effect of Activating Cross company costing in Material Ledger

Hi all,
We are live with ML from seven years and now we want to activate cross company costing. I would like to know if there will be an impact of this in the material ledger side. If anyone has comeacross this situation please share your ideas about this.
Thanks,
Santosh

thanq for reply.
IF I can update standard price in 3 views, how can i see three standard prices in different views?
I am facing another problem also here.
we have 3 company codes and 3 plants like VN01,SG01,IN01.
When I am doing standard cost estimation for IN01 with group costing variant for group valuation, I am getting error "Object was not costed", but where as If I use standard costing varaint ( PPC1), I am not getting any error, system is showing correct standard cost estimation?
Where as If I use group costing variant for other company codes, I am not getting any error.
Is there any customizing missed regarding standard cost estimation, when material ledger is activated?
regs,
ramesh

ESS: Travel Management Cross Company Cost Assignment

Hi All,
We have one scenario in (ESS) Travel Management.
While raising travel request, employee is having the option of selecting Cost Assignment
where in employee selects WBS Element and Cost Center.
Here in we have two company codes
1. 1000
2. 999
Now employee belonging to company code 1000 should have option to select WBS of company code 999.
Currently system is throwing error
The CO account assignment object belongs to company code 999, not 1000
Now if we change this error message to warning message it will impact on all other
applications running in R/3.
This requirement is only limited to Travel Management.
This application uses following webdynpro application,
FITV_VC_COST_ASSIGNMENT
Please provide the appropriate solution either technical or functional.

System will follow the strict rules while posting transactions to cost objects by the employees.
The user is authorized to post only in 1000 but not in 999. so he can't post to 999.
People with authorization to post to 999 can do it.
But the main thing is, Cost centers are belongs to only one company code so U can't post this transaction to 999.
The transaction which u r trying is seems to be cross company code transaction. Cost objects should relate to the company code where U r posting transaction otherwise u cont post it.
IF possible provide more details.....

CK666 error in cross company code cost estimate

Dear All,
We have activated multiple valuations/transfer prices : legal, group and profit center valuations.
We perform cost estimate run in ck40n for profit center valuation and get error
Material 20000035/plant FZ03: Transfer price could not be found.
Message no. CK666
Diagnosis
When switching profit center A ->B (from the material component to the costing object), a transfer price could not be determined for transfer price variant 0 in respect of material 20000035 in plant 1.
System Response
If you carry out costing for a profit center valuation, material 20000035 goes into the cost estimate without a value.
If you create a cost estimate for group valuation, profit from material 20000035 is not transferred into the cost component split.
Procedure
Check the settings for transfer price variant 0.
We have checked this material. Manufacturing plant belongs to company code A.
To get cost estimate for plant 2 which belongs to company code B we use procurement types in material master.
It requires now transfer price variant. But we do not want to use this functionality.
How can we solve this issue?
With best regards,
Kamila.

HI Kamila.
There is a difference in the way PCA handles determining costs:
If transfer prices are activated it's necessary to determine either a transfer price via pricing or to exclude the relevant material
from the transfer prices scenario via user-exit 'EXIT_SAPLPCRW_003'.
Please note that the determination of a transfer price and the creation of additional PCA lines are independent of each other. You cannot control the determination of a transfer price by means of your 0KEK settings. So if you want that no transfer price is used for a material please use exit 'EXIT_SAPLPCRW_003' here. Pricing will then not be called and the system automatically uses the current
material price from the profitcenter view.
Please have a look at the note [458543 |https://css.wdf.sap.corp/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=0000458543]which provides further information regarding this exit.
Regards,Declan

Actual Cost Component Split for cross company code transfers.

Hi,
My issue is as follows.
Production process spans across 2 company codes.
Goods are produced in production company code, transferred (via stock transport order) to marketing company code and sold to customers from marketing company code.
Stock transport order follows sales scenario i.e.. marketing company code creates purchase order for goods from production company code and production company code bills marketing for the goods.
Actual costing / Material ledger is implemented in both company codes.
We would like to roll-up (transfer) actual cost component split from production company code to marketing company (in a similar way as in product cost planning in cross-company scenario).
However, due to the fact that the transfer between the companies is in fact a "sales" the goods in marketing company code are seen as externally purchased and the only cost component we can create is based on PO conditions. But we want to get the info about production cost component split.
Once again this is for ACTUAL cost component split.
I would be grateful for any ideas.
Thanks,
Szymon

Hi Udo / Szymon.
I have a question about this issue.
In the sap help about multiple valuations / group costing:
http://help.sap.com/saphelp_46c/helpdata/en/7e/cb848443a311d189ee0000e81ddfac/content.htm
Its not clear if this can roll up the Actual CCS? or what it do? My question is because i read the documentation of bussiness function: LOG_MM_SIT,and also the book *Actual Costing with The SAP Material Ledger*
states that we can handle the rollup of actual cost component split inter-company only with this BF active.
Could you clarify about this?
thanks!!
Arturo.
Group Valuation
Goods movements between affiliated companies not involving intercompany profits are processed using the group view. This view determines the actual cost of goods manufactured for the group, and does not include any intercompany profits. You can, however, display internal profits as delta profits in the legal and/or profit center views.
When you define cost components, you can specify that internal profits between company codes and/or profit centers are shown in detail in the cost component split. You activate these delta profits for the group valuation in the attributes of the cost components.
For each cost component structure, there can only be one cost component under which the delta profit is shown. This means that neither the legal view nor the profit center view can have more than one cost component for the delta profit.
To cost multiple values, you define a costing type for each valuation approach in Customizing for Product Cost Planning. You use the costing type to specify which valuation approach you require. You define each costing type in a new costing variant and carry out a cost estimate with this costing variant.
Group Costing and Multiple Valuation Approaches
In-Depth Detail of the Value-Added Chain: Partner Cost Component Split
You can display in detail the costs of materials and services of every company department in the value-added chain for every stage of the production process. The partner can be traced for every material used. To do this, you define a partner version, which enables the value-added portions of each manufacturing level to be displayed in detail. For further information about this, see Partners and Direct Partners.
The group cost component split can be displayed according to your partner definition. You can display the cost structures of the partners hierarchically according to your requirements, such as the company code segments on the highest level and the plant or profit center segments underneath.
To display partner cost component splits, define a partner version in Customizing and enter it in the costing type.

Add freight cost in a cross company code scenario using a costing sheet

Dear Forum,
I will like to add freight cost to a material using a costing sheet. The freight percentage is very easy to add and works fine when the cost is added in the company code costing. My problems start when I want to add the freight in the cross-company code costing. I want to setup a cross-company code costing where the freight cost is added to the material in the buying company code and not on the selling company code. The cross-company code costing is setup using special procurement costing keys.
In below costing (CK11N) the procurement costing key is not used.
From the itemization it is shown that purchase info.record 5300067643 is read and the price of 12,97 is determined. There is added 10% in freight coming from the costing sheet.
The freight is shown in the cost component structure as well.
The special procurement type is now changed from ‘20’ to ‘AT´ on the MRP2 screen in the material master. The procurement is now pointing to an internal plant called ‘DCN’.
The costing of material 105050 is now repeated. I get the expected result from changing the procurement key, as I can now see the material is sourced from plant ‘DCN’. DCN is sourcing the material from BJ07, but that is not relevant for the example.
If I now look at the itemization again on the costing in BGA1 I now see that the price is not coming from the info.record. It is the costing in DCN that is used.
I will still like to add the freight cost in BGA1.
How do I add freight cost in BGA1 when I at the same time want to have the costing to be taken from plant DCN?
Please let me know if you need additional information on the customizing setup of the system.
Best regards,
Kim Hjorth Poulsen

Hi Srinu,
Thank You for a prompt feedback.
I have tried to follow Your advise. The special procurement costing key is customized like below.
I have updated the special procurement costing key on the costing 1 view of the material master. When costing the material it is using the special procurement key. This can be seen from the qty. structure tab in CK11N.
It is also costing cross company as intended.
The itemization looks like below.
and the cost component structure looks like below.
Unfortunately the freight is not added in the costing in BGA1.
I noticed that when the costing is made without special procurement key the costing sheet used in the costing is for material components. If the costing is made with the special procurement keys the costing sheet used is for finished and semi-finished materials. The customizing in both of the costing sheets are the same, but only when costing is without the special procurement keys the freight is added.
So unfornutely Your suggestion did not solve the problem.
Best regards,
Kim

Cost in Cross-Company Sales Processing

Hi Experts:
                I want to set up the std cross-company sales process in our biz scenario.
               A is a ordering company,B is a supplying company.
              I create sales order in ordering company code,delivery note in supplying company code.
             One Invoice is created fro customer in ordering compnay,the other is a internal invoice.
            I have some question:
                                             How does the cost and profit process in company code A without production plant?
                                             Why the prices(PR00&PI01) will be used in two invoices both?
                Pls help to geive me some advice,tks.

Hi,
How does the cost and profit process in company code A without production plant?
Cost is updated through VPRS condition and profit is from PR00
Why the prices(PR00&PI01) will be used in two invoices both?
When you create sales order for customer then PR00 is used
Where as PI01 is for inter company billing and cost of goods sold is updated when supplying pant do delivery

Cross company code cost center allocation

Hello experts,
I would like to know if cross company code cost center allocations is possible or not ?
Please let me know.
Newcom

hi its possiable,
can u give a senario, i will explain to u.
for ex:
com code1 having dept x
com code 2 also have a possiablities to have same c ctr dept x
thanqu

Cost in cross company process

Hello SD experts
I´am customizing a cross-company order processing following documents (J62) and posts.
To abreviate, the customer orders from sales organization 0001 (selling conpany code 0001), the goods are delivered from plant 0001 (has to assigned to both sales organization) to customer. Sales organization 0001 send a intercompany billing document to 0002. Sales organization 0002 issue a billing document to customer. I am used condition types: PI01 and IV01 to tranfer values to CO-PA
My problem is the next. the sales organization 0002 has a debt with sales organization 0001. Normally we can see the line items in fbl1n, how could the sales organization 0002 see the contracted debt with 0001???
How 0002 knows tho have to pay to 0001???
Regards
Jose Manuel - La Coruña - Spain

thank you very much sud val
I try to explain better,
When a internal supplier issue (0002) buy something to 0001 (Purchase order process).
Internal customer go to fbl1n and see the line items to pay. If I used the cross company process, internal invoice don´t generate line items or debt.
How know the company code which received the goods that have to pay to another company?
regards
Jose Manuel

Ck11n create a cost estimate

Hi guys
Could you provide the solution please.
SAP P01 Transaction code <b>CK11N create a cost estimate doesn'tt use the planning exchange rate for inter company purchased items
Client a dev d2 16 example of it part f00008537012, plant CA12 this is using the M rate instead of the P rate
Regards,
Prudhvi

You might be using special procurement key for the component in the BOM, which is sourced from inter-company.
During the calculation of the cost estimate of the material, the system reads the price from the cost estimate of the component in the supplying plant. The priority of the future, current or previous cost estimates are set up in the transfer strategy (or transfer control) for cross-plant (t-code OKKM).
What are the currencies involved in your case?

Material Cost estimate modification

Hi Experts
I want to modified this report and add cost estimate value from MBEW (field is STPRS) for each material to this report. I have used the table MBEW but unable to locate where to start.
Can anyone have a look and comment on this report
REPORT command_extract                    .
*CLASS cl_gui_control DEFINITION LOAD.
*CLASS cl_gui_frontend_services DEFINITION LOAD.
Tables
TABLES:
kna1,
knb1,
knvv,
mara,
mast,                                       "JPC20061107
marc,
makt,
sscrfields.
CONSTANTS: BEGIN OF gc_status,
             acc TYPE zcrstat1 VALUE ' ACC',
             hol TYPE zcrstat1 VALUE ' HOL',
             sto TYPE zcrstat1 VALUE ' STO',
             ok   TYPE zcrstat1 VALUE ' OK',
             hold TYPE zcrstat1 VALUE 'HOLD',
           END OF gc_status.
CONSTANTS: BEGIN OF gc_reason,
             000 TYPE zreason VALUE '000',
             001 TYPE zreason VALUE '001',
             002 TYPE zreason VALUE '002',
             003 TYPE zreason VALUE '003',
             004 TYPE zreason VALUE '004',
             005 TYPE zreason VALUE '005',
             006 TYPE zreason VALUE '006',
             007 TYPE zreason VALUE '007',
             008 TYPE zreason VALUE '008',
             010 TYPE zreason VALUE '010',
             011 TYPE zreason VALUE '011',
             021 TYPE zreason VALUE '021',
             022 TYPE zreason VALUE '022',
             023 TYPE zreason VALUE '023',
             024 TYPE zreason VALUE '024',
             025 TYPE zreason VALUE '025',
             026 TYPE zreason VALUE '026',
             999 TYPE zreason VALUE '999',
           END OF gc_reason.
TYPES: BEGIN OF ty_kna1_fields,
         kunnr TYPE kna1-kunnr,
         sperr TYPE kna1-sperr,
         aufsd TYPE kna1-aufsd,
         lifsd TYPE kna1-lifsd,
         faksd TYPE kna1-faksd,
         loevm TYPE kna1-loevm,
       END OF ty_kna1_fields.
TYPES: BEGIN OF ty_knb1_fields,
         kunnr TYPE knb1-kunnr,
         bukrs TYPE knb1-bukrs,
         sperr TYPE knb1-sperr,
         loevm TYPE knb1-loevm,
       END OF ty_knb1_fields.
TYPES: BEGIN OF ty_knvv_fields,
         kunnr TYPE knvv-kunnr,
         vkorg TYPE knvv-vkorg,
         vtweg TYPE knvv-vtweg,
         spart TYPE knvv-spart,
         aufsd TYPE knvv-aufsd,
         lifsd TYPE knvv-lifsd,
         faksd TYPE knvv-faksd,
       END OF ty_knvv_fields.
TYPES: BEGIN OF ty_knkk_fields,
         kunnr TYPE knkk-kunnr,
         kkber TYPE knkk-kkber,
         ctlpc TYPE knkk-ctlpc,
         crblb TYPE knkk-crblb,
         knkli TYPE knkk-knkli,
         klimk TYPE knkk-klimk,
         skfor TYPE knkk-skfor,
         ssobl TYPE knkk-ssobl,
       END OF ty_knkk_fields.
TYPES: BEGIN OF ty_cust_stat_output,
         kunnr(10) TYPE c, "Customer #
         stat(4)   TYPE c, "Customer status
       END OF ty_cust_stat_output.
TYPES:
BEGIN OF ty_customers,
    kunnr(10) TYPE c, " Customer #
    div1(1)    TYPE c, " Pipe delimiter
    name1(32) TYPE c, " Customer name
    div2(1)    TYPE c, " Pipe delimiter
    altkn(8)   TYPE c, " Old Customer #
    div3(1)    TYPE c, " Pipe delimiter
    stras(30) TYPE c, " Street
    div4(1)    TYPE c, " Pipe delimiter
    ort01(20) TYPE c, " City
    div5(1)    TYPE c, " Pipe delimiter
    regio(3)   TYPE c, " State
    div6(1)    TYPE c, " Pipe delimiter
    pstlz(4)   TYPE c, " Postcode
    div7(1)    TYPE c, " Pipe delimiter
    telf1(14) TYPE c,                                      " Phone 1
    div8(1)    TYPE c, " Pipe delimiter
    telf2(14) TYPE c,                                      " Phone 2
    div9(1)    TYPE c, " Pipe delimiter
    erdat(10) TYPE c, " date
    div10(1)   TYPE c, " Pipe delimiter
    splant(2) TYPE c, " plant
    div11(1)   TYPE c, " Pipe delimiter
END OF ty_customers,
it_ty_customers TYPE ty_customers OCCURS 0,
BEGIN OF ty_custstat,
    kunnr(11) TYPE c, " Customer #
    company(2) TYPE c, " #
    status(3) TYPE c, " acc,cod,hol,
END OF ty_custstat,
it_ty_custstat TYPE ty_custstat OCCURS 0.
TYPES:
BEGIN OF ty_materialm,
    matnr(12) TYPE c, " Material #
    maktx2(40) TYPE c, " Command sales desc.
    maktx(16) TYPE c, " Basic description
    extwg(6)   TYPE c, " External Material Group
    flag1(1)   TYPE c, "
    flag2(1)   TYPE c, "
    flag3(1)   TYPE c, "
    flag4(1)   TYPE c, "
END OF ty_materialm,
it_ty_materialm TYPE ty_materialm OCCURS 0,
BEGIN OF ty_materialp,
    matnr(12) TYPE c, " Material #
    werks(4)   TYPE c, " plant
    batch(1)   TYPE c, " download to batch
END OF ty_materialp,
it_ty_materialp TYPE ty_materialp OCCURS 0.
TYPES:
BEGIN OF ty_bom,
    matnr(12) TYPE c, " Material #
    werks(4)   TYPE c, " Plant
    posnr(3)   TYPE c, " position
    idnrk(12) TYPE c, " BOM material #
    menge(10) TYPE c, " Quantity
    meins(3)   TYPE c, " Unit of Measure
END OF ty_bom,
it_ty_bom TYPE ty_bom OCCURS 0,
*Start of block of changes for JPC20061107
BEGIN OF ty_bom_sapfmt,
    matnr   TYPE MAST-MATNR, " Material #
    werks   TYPE MAST-WERKS, " Plant
    posnr   TYPE STPO-POSNR, " position
    idnrk   TYPE STPO-IDNRK, " BOM material #
    menge   TYPE STPO-MENGE, " Quantity
    meins   TYPE STPO-MEINS, " Unit of Measure
    potx1   TYPE STPO-POTX1, " Text description for BOM
END OF ty_bom_sapfmt.
BEGIN OF ty_bomlist,
   matnr      LIKE mast-matnr, " Material #
   stlnr      LIKE mast-stlnr, " BOM #
   posnr      LIKE stpo-posnr, " BOM item#
   idnrk      LIKE stpo-idnrk, " BOM material #
   menge      LIKE stpo-menge, " BOM material qty
   meins      LIKE stpo-meins, " BOM material uom
END OF ty_bomlist,
it_ty_bomlist TYPE ty_bomlist OCCURS 0.
*Ending block of changes for JPC20061107
Selection screen definition
SELECTION-SCREEN: BEGIN OF BLOCK gen WITH FRAME TITLE text-001.
PARAMETERS:
p_dir like rlgrap-filename obligatory, " extract directory
p_ccust TYPE c DEFAULT ' ' AS CHECKBOX,   " Check box customers
p_cmatm TYPE c DEFAULT ' ' AS CHECKBOX,   " Check box Materials
p_cbom TYPE c DEFAULT ' ' AS CHECKBOX,   " Check box BOMs
p_ccst TYPE c DEFAULT ' ' AS CHECKBOX.   " Check box credit stat
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-006.
PARAMETERS:
p_gui RADIOBUTTON GROUP rg1 USER-COMMAND u01,
p_svr RADIOBUTTON GROUP rg1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK a.
SELECTION-SCREEN: END OF BLOCK gen.
SELECTION-SCREEN: BEGIN OF BLOCK cust WITH FRAME TITLE text-002.
PARAMETERS:
p_dcust LIKE filepath-pathintern DEFAULT 'Z_COMMAND_CUST_EXTRACT',
p_fcust LIKE rlgrap-filename,
p_dcomp LIKE knb1-bukrs,
p_dsale LIKE knvv-vkorg,
p_dwerk(3) TYPE c.
SELECTION-SCREEN: END OF BLOCK cust.
SELECTION-SCREEN: BEGIN OF BLOCK matnr WITH FRAME TITLE text-003.
PARAMETERS:
p_dmatm LIKE filepath-pathintern
               DEFAULT 'Z_COMMAND_MATERIAL_EXTRACT',
p_fmatm LIKE rlgrap-filename,
p_fmatp LIKE rlgrap-filename,
p_dwerks LIKE marc-werks,
p_dspras LIKE makt-spras,
p_dbatch(1) TYPE c,
p_dflag1(1) TYPE c,
p_dflag2(1) TYPE c,
p_dflag3(1) TYPE c,
p_dflag4(1) TYPE c.
SELECT-OPTIONS:
s_dextwg FOR mara-extwg.
SELECTION-SCREEN: END OF BLOCK matnr.
SELECTION-SCREEN: BEGIN OF BLOCK bom WITH FRAME TITLE text-004.
PARAMETERS:
p_dbom LIKE filepath-pathintern DEFAULT 'Z_COMMAND_BOM_EXTRACT',
p_fbom LIKE rlgrap-filename.
p_bwerks LIKE mast-werks.          "Made a select-optoin JPC20061107
SELECT-OPTIONS:
s_bmatnr FOR MARA-MATNR,                                "JPC20061107
s_bwerks FOR MAST-WERKS no-extension no intervals,      "JPC20061107
s_bextwg FOR mara-extwg.
SELECTION-SCREEN: END OF BLOCK bom.
SELECTION-SCREEN: BEGIN OF BLOCK ccst WITH FRAME TITLE text-005.
PARAMETERS:
p_dccst LIKE filepath-pathintern
               DEFAULT 'Z_COMMAND_CUST_STAT_EXTRACT',
p_fccst LIKE rlgrap-filename,
p_fccst2 LIKE rlgrap-filename,
p_fccstl LIKE rlgrap-filename.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-007.
PARAMETERS: p_csall RADIOBUTTON GROUP gp2.
PARAMETERS: p_csdlt RADIOBUTTON GROUP gp2 DEFAULT 'X'.
PARAMETERS: p_append RADIOBUTTON GROUP GP3 DEFAULT 'X', "Append files output to server for cust credit data ?
            p_owrite RADIOBUTTON GROUP GP3.
SELECTION-SCREEN END OF BLOCK b.
SELECT-OPTIONS:
s_kunnr FOR kna1-kunnr.
SELECTION-SCREEN: END OF BLOCK ccst.
DATA: clsdir TYPE REF TO cl_gui_frontend_services.
DATA: strfolder TYPE string.
DATA: folderln TYPE i.
DATA: gva_error(1) TYPE c VALUE ' '.
Initial procedure on START ***************
INITIALIZATION.
p_fcust = 'CUST.prn'.
p_fmatm = 'MATM.prn'.
p_fmatp = 'MATP.prn'.
p_fbom = 'BOM.prn'.
p_fccst = 'CCSTAT.prn'.
p_fccst2 = 'CCSTATC.prn'.
p_fccstl = 'CCSTATL.prn'.
s_dextwg-option = 'BT'.
s_dextwg-low = '1'.
s_dextwg-high = '8'.
APPEND s_dextwg.
s_bextwg-option = 'BT'.
s_bextwg-low = '1'.
s_bextwg-high = '1'.
APPEND s_bextwg.
AT SELECTION-SCREEN.
IF p_ccust EQ 'X' AND ( p_fcust IS INITIAL OR p_dcust IS INITIAL ).
    MESSAGE s000(zppu)
    WITH 'You must specify the file details for the customer data'.
    gva_error = 'X'.
ENDIF.
IF p_cmatm EQ 'X' AND ( p_fmatm IS INITIAL OR
                          p_fmatp IS INITIAL OR
                          p_dmatm IS INITIAL ).
    MESSAGE s001(zppu)
    WITH 'You must specify the file details for the material data'.
    gva_error = 'X'.
ENDIF.
IF p_cbom EQ 'X' AND ( p_fbom IS INITIAL OR p_dbom IS INITIAL ).
    MESSAGE s002(zppu)
    WITH 'You must specify the file details for the BOM data'.
    gva_error = 'X'.
ENDIF.
IF p_cbom EQ 'X'.
    IF s_bwerks-low is initial.
      MESSAGE s002(zppu)
        WITH 'You must specify a plant to run BOM extract for'.
      gva_error = 'X'.
    ENDIF.
    IF LINES( s_bwerks ) > 1.
      MESSAGE s002(zppu)
        WITH 'You can only specify 1 plant for BOM extract'.
      gva_error = 'X'.
    ENDIF.
ENDIF.
IF p_ccst EQ 'X' AND ( p_fccst IS INITIAL OR
                         p_fccst2 IS INITIAL OR
                         p_fccstl IS INITIAL OR
                         p_dccst IS INITIAL ).
    MESSAGE s002(zppu)
    WITH 'You must specify the file details for the customer'
         'status data'.
    gva_error = 'X'.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
PERFORM user_command.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fcust.
PERFORM get_gui_filename USING p_dcust p_fcust.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fmatm.
PERFORM get_gui_filename USING p_dmatm p_fmatm.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fmatp.
PERFORM get_gui_filename USING p_dmatm p_fmatp.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fbom.
PERFORM get_gui_filename USING p_dbom p_fbom.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fccst.
PERFORM get_gui_filename USING p_dccst p_fccst.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fccst2.
PERFORM get_gui_filename USING p_dccst p_fccst2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fccstl.
PERFORM get_gui_filename USING p_dccst p_fccstl.
END-OF-SELECTION.
Data selection execution.
DATA: lwa_kna1 TYPE kna1,
        lwa_knb1 TYPE knb1,
        lwa_knvv TYPE knvv.
DATA: lwa_marc TYPE marc,
        lwa_mara TYPE marav,
        lwa_makt TYPE makt.
DATA: lit_marav TYPE marav OCCURS 0.
DATA: lit_customers TYPE it_ty_customers,
        lwa_customers TYPE ty_customers.
DATA: lit_custstat TYPE it_ty_custstat,
        lwa_custstat TYPE ty_custstat.
DATA: lit_materialm TYPE it_ty_materialm,
        lwa_materialm TYPE ty_materialm.
DATA: lit_materialp TYPE it_ty_materialp,
        lwa_materialp TYPE ty_materialp.
*(del)DATA: lwa_bomlist TYPE ty_bomlist,           "JPC20061107
*(del) lit_bomlist TYPE it_ty_bomlist.            "JPC20061107
DATA: lwa_bom TYPE ty_bom_sapfmt,
        lit_bom TYPE it_ty_bom WITH HEADER LINE.   "JPC20061107
      lit_bom TYPE it_ty_bom.                    "JPC20061107
DATA: output_file   TYPE string.
DATA: lock_file     TYPE string.
DATA: lva_mssage    TYPE string.
DATA: lva_matnr(18) TYPE n.
DATA: lva_date      TYPE datum.
DATA: txtper(3)     TYPE c.
DATA: custper       TYPE i.
DATA: custcount     TYPE i.
DATA: itemnum       TYPE i.
CHECK gva_error <> 'X'.
IF p_ccust EQ 'X'. " Do the customer file extract
    PERFORM extract_customer_details.
ENDIF.
IF p_cmatm EQ 'X'. " Do the Material file extract
    PERFORM extract_material_details.
ENDIF.
IF p_cbom EQ 'X'. " Do the BOM file extract
    PERFORM extract_bom_details.
ENDIF.
IF p_ccst EQ 'X'. " Do the customer credit status file extract
    PERFORM extract_credit_status_details.
ENDIF.
*&      Form extract_customer_details
      text
--> p1        text
<-- p2        text
FORM extract_customer_details.
SELECT * FROM knb1
INTO lwa_knb1
WHERE bukrs = p_dcomp.
    MOVE-CORRESPONDING lwa_knb1 TO lwa_customers.
    MOVE-CORRESPONDING lwa_knb1 TO lwa_custstat.
    MOVE '#' TO lwa_custstat-company.
    MOVE p_dwerk TO lwa_customers-splant.
WG1K903075: Start Delete---*
     move: '|' to lwa_customers-div1,
           '|' to lwa_customers-div2,
           '|' to lwa_customers-div3,
           '|' to lwa_customers-div4,
           '|' to lwa_customers-div5,
           '|' to lwa_customers-div6,
           '|' to lwa_customers-div7,
           '|' to lwa_customers-div8,
           '|' to lwa_customers-div9,
           '|' to lwa_customers-div10,
           '|' to lwa_customers-div11.
WG1K903075: End Delete-----*
WG1K903075: Start Insert---*
    MOVE: ' ' TO lwa_customers-div1,
          ' ' TO lwa_customers-div2,
          ' ' TO lwa_customers-div3,
          ' ' TO lwa_customers-div4,
          ' ' TO lwa_customers-div5,
          ' ' TO lwa_customers-div6,
          ' ' TO lwa_customers-div7,
          ' ' TO lwa_customers-div8,
          ' ' TO lwa_customers-div9,
          ' ' TO lwa_customers-div10,
          ' ' TO lwa_customers-div11.
WG1K903075: End Insert-----*
    APPEND lwa_customers TO lit_customers.
    APPEND lwa_custstat TO lit_custstat.
ENDSELECT.
DESCRIBE TABLE lit_customers LINES custcount.
LOOP AT lit_customers INTO lwa_customers.
    txtper = 100 * sy-tabix / custcount.
    custper = txtper.
    SELECT SINGLE * FROM kna1
    INTO lwa_kna1
    WHERE kunnr = lwa_customers-kunnr.
    MOVE-CORRESPONDING lwa_kna1 TO lwa_customers.
    lva_date = lwa_customers-erdat.
    CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
      EXPORTING
        date_internal            = lva_date
      IMPORTING
        date_external            = lwa_customers-erdat
      EXCEPTIONS
        date_internal_is_invalid = 1
        OTHERS                   = 2.
    REPLACE ALL OCCURRENCES OF '.'
    IN lwa_customers-erdat WITH '/'.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input = lwa_customers-kunnr
      IMPORTING
        output = lwa_customers-kunnr.
    WRITE: lwa_customers-kunnr RIGHT-JUSTIFIED TO lwa_customers-kunnr.
    MODIFY lit_customers FROM lwa_customers.
Percentage indicator display
    lva_mssage = 'Extracting customers'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = custper
        text       = lva_mssage.
ENDLOOP.
IF p_gui IS INITIAL.
    PERFORM get_file_path USING p_dcust p_fcust output_file.
    OPEN DATASET output_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc EQ 0.
      LOOP AT lit_customers INTO lwa_customers.
        TRANSFER lwa_customers TO output_file.
      ENDLOOP.
      CLOSE DATASET output_file.
    ELSE.
      MESSAGE s002(zppu)
        WITH 'Dataset' output_file 'cannot be opened on the server'.
    ENDIF.
ELSE.
    MOVE p_fcust TO output_file.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = output_file
        filetype = 'ASC'
      TABLES
        data_tab = lit_customers
      EXCEPTIONS
        OTHERS   = 11.
ENDIF.
output_file = custcount.
CONCATENATE
    output_file
    ' Customers extracted'
INTO
    lva_mssage.
   message lva_mssage type 'I'.
ENDFORM.                    " extract_customer_details
*&      Form extract_material_details
      text
--> p1        text
<-- p2        text
FORM extract_material_details.
   select maramatnr maramaktx
          maramatkl marcwerks
SELECT *
FROM marav AS mara
    INNER JOIN marc AS marc
      ON marc~matnr EQ mara~matnr
INTO CORRESPONDING FIELDS OF lwa_mara
WHERE marc~werks = p_dwerks
    AND mara~spras = 'EN'
    AND mara~extwg IN s_dextwg.
    MOVE-CORRESPONDING lwa_mara TO lwa_materialm.
    WRITE: lwa_mara-matnr TO lwa_materialm-matnr.
    MOVE: p_dflag1 TO lwa_materialm-flag1,
          p_dflag2 TO lwa_materialm-flag2,
          p_dflag3 TO lwa_materialm-flag3,
          p_dflag4 TO lwa_materialm-flag4.
    APPEND lwa_materialm TO lit_materialm.
ENDSELECT.
DESCRIBE TABLE lit_materialm LINES custcount.
LOOP AT lit_materialm INTO lwa_materialm.
    txtper = 100 * sy-tabix / custcount.
    custper = txtper.
    CLEAR lwa_materialp.
    CLEAR lwa_mara.
    MOVE: lwa_materialm-matnr TO lwa_materialp-matnr,
          p_dwerks            TO lwa_materialp-werks,
          p_dbatch            TO lwa_materialp-batch.
    APPEND lwa_materialp TO lit_materialp.
    MOVE: lwa_materialm-matnr TO lva_matnr.
    MOVE: lva_matnr TO lwa_mara-matnr.
    SELECT SINGLE maktx FROM makt
    INTO lwa_materialm-maktx2
    WHERE matnr = lwa_mara-matnr
    AND spras = p_dspras.
    IF lwa_materialm-maktx2 IS INITIAL.
      lwa_materialm-maktx2 = lwa_materialm-maktx.
    ENDIF.
    MODIFY lit_materialm FROM lwa_materialm.
Percentage indicator display
    lva_mssage = 'Extracting materials'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = custper
        text       = lva_mssage.
ENDLOOP.
IF p_gui IS INITIAL.
    PERFORM get_file_path USING p_dmatm p_fmatm output_file.
    OPEN DATASET output_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc EQ 0.
      LOOP AT lit_materialm INTO lwa_materialm.
        TRANSFER lwa_materialm TO output_file.
      ENDLOOP.
      CLOSE DATASET output_file.
    ELSE.
      MESSAGE s002(zppu)
        WITH 'Dataset' output_file 'cannot be opened on the server'.
    ENDIF.
ELSE.
    MOVE p_fmatm TO output_file.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = output_file
        filetype              = 'ASC'
        write_field_separator = ' '
      TABLES
        data_tab              = lit_materialm
      EXCEPTIONS
        OTHERS                = 11.
ENDIF.
IF p_gui IS INITIAL.
    PERFORM get_file_path USING p_dmatm p_fmatp output_file.
    OPEN DATASET output_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc EQ 0.
      LOOP AT lit_materialp INTO lwa_materialp.
        TRANSFER lwa_materialp TO output_file.
      ENDLOOP.
      CLOSE DATASET output_file.
    ELSE.
      MESSAGE s002(zppu)
        WITH 'Dataset' output_file 'cannot be opened on the server'.
    ENDIF.
ELSE.
    MOVE p_fmatp TO output_file.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = output_file
        filetype              = 'ASC'
        write_field_separator = ' '
      TABLES
        data_tab              = lit_materialp
      EXCEPTIONS
        OTHERS                = 11.
ENDIF.
REFRESH lit_materialm.
ENDFORM.                    " extract_material_details
*&      Form extract_bom_details
      text
--> p1        text
<-- p2        text
FORM extract_bom_details.
Lines below commented out and replaced with SELECT from ABAP Query run from
transaction ZBOM. Previously duplicate materials were selected. JPC20061107
REFRESH lit_materialm.
SELECT *
FROM marav AS mara
   INNER JOIN marc AS marc
     ON marcmatnr EQ maramatnr
INTO CORRESPONDING FIELDS OF lwa_mara
WHERE marc~werks = p_bwerks
   AND mara~spras = 'EN'
   AND mara~extwg IN s_bextwg.
   APPEND lwa_mara TO lit_marav.
ENDSELECT.
DESCRIBE TABLE lit_marav LINES custcount.
LOOP AT lit_marav INTO lwa_mara.
Percentage indicator calculation
   txtper = 100 * sy-tabix / custcount.
   custper = txtper.
   SELECT
     mast~matnr
     mast~stlnr
     stpo~posnr
     stpo~idnrk
     stpo~menge
     stpo~meins
   FROM mast AS mast
     LEFT OUTER JOIN stpo AS stpo
       ON stpostlnr EQ maststlnr
INTO lwa_bomlist
WHERE mast~matnr = lwa_mara-matnr.
     CLEAR lwa_bom.
     MOVE-CORRESPONDING lwa_bomlist TO lwa_bom.
     WRITE: lwa_bomlist-matnr TO lwa_bom-matnr.
     IF lwa_bomlist-idnrk IS INITIAL.
       WRITE: 'BACKBIN' TO lwa_bom-idnrk.
     ELSE.
       WRITE: lwa_bomlist-idnrk TO lwa_bom-idnrk.
     ENDIF.
     MOVE: lwa_bomlist-posnr TO itemnum.
     WRITE: itemnum TO lwa_bom-posnr RIGHT-JUSTIFIED.
       write: lwa_bomlist-menge
       to lwa_bom-menge
       decimals 2.
     MOVE: p_bwerks TO lwa_bom-werks.
     APPEND lwa_bom TO lit_bom.
   ENDSELECT.
Percentage indicator display
   lva_mssage = 'Extracting material B.O.Ms'.
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
       percentage = custper
       text       = lva_mssage.
ENDLOOP.
select MASTMATNR MASTWERKS STPOPOSNR STPOIDNRK STPOMENGE STPOMEINS            "JPC20061220
    select MAST~MATNR MAST~WERKS STPO~POSNR STPO~IDNRK STPO~MENGE STPO~MEINS STPO~POTX1 "JPC20061220
      into lwa_bom
      from ( MAST
           inner join STKO
           on STKO~STLAL = MAST~STLAL
           and STKO~STLNR = MAST~STLNR
           and STKO~WRKAN = MAST~WERKS
           inner join MARA as MARA_H
           on MARA_H~MATNR = MAST~MATNR
           left outer join STAS
           on STAS~STLAL = STKO~STLAL
           and STAS~STLNR = STKO~STLNR
           and STAS~STLTY = STKO~STLTY
           inner join STPO
           on STPO~STLKN = STAS~STLKN
           and STPO~STLNR = STAS~STLNR
           and STPO~STLTY = STAS~STLTY
         inner join MARA                   JPC20061220
           left outer join MARA             "JPC20061220
           on MARA~MATNR = STPO~IDNRK )
         where MARA_H~MATNR in s_bmatnr
           and MAST~WERKS   in s_bwerks
           and MARA_H~EXTWG in s_bextwg.
    clear lit_bom.
    WRITE lwa_bom-matnr TO lit_bom-matnr.
    MOVE lwa_bom-werks TO lit_bom-werks.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input = lwa_bom-posnr
      IMPORTING
        output = lit_bom-posnr.
    SHIFT lit_bom-posnr right deleting trailing space.
    IF lwa_bom-idnrk IS INITIAL.
    WRITE 'BACKBIN'     TO lit_bom-idnrk.               JPC20061220
      WRITE lwa_bom-potx1 TO lit_bom-idnrk.              "JPC20061220
    ELSE.
      WRITE lwa_bom-idnrk TO lit_bom-idnrk.
    ENDIF.
    MOVE: lwa_bom-menge TO lit_bom-menge,
          lwa_bom-meins TO lit_bom-meins.
    APPEND lit_bom.
ENDSELECT.
SORT lit_bom ascending.
Ending for lines inserted for change 20061107
IF p_gui IS INITIAL. "write to server
    PERFORM get_file_path USING p_dbom p_fbom output_file.
    OPEN DATASET output_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc EQ 0.
      custcount = lines( lit_bom ).
      LOOP AT lit_bom.
        txtper = 100 * sy-tabix / custcount.
        custper = txtper.
        lva_mssage = 'Extracting material B.O.Ms'.
        CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
          EXPORTING percentage = custper
                    text       = lva_mssage.
        TRANSFER lit_bom TO output_file.
      ENDLOOP.
      CLOSE DATASET output_file.
    ELSE.
      MESSAGE s002(zppu)
        WITH 'Dataset' output_file 'cannot be opened on the server'.
    ENDIF.
ELSE.
    MOVE p_fbom TO output_file.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename              = output_file
        filetype              = 'ASC'
        write_field_separator = ' '
      TABLES
        data_tab              = lit_bom
      EXCEPTIONS
        OTHERS                = 11.
ENDIF.
ENDFORM.                    " extract_bom_details
*&      Form get_file_path
      text
     -->P_LOGICAL_PATH_NAME   text
     -->P_FILENAME            text
     -->P_FILENAME_WITH_PATH text
FORM get_file_path USING p_logical_path_name p_filename
                         p_filename_with_path.
DATA: l_opsys TYPE sy-opsys,
        l_blank_filename TYPE c,
        l_filename TYPE string.
IF p_gui IS INITIAL.
    MOVE 'WN32' TO l_opsys.
ELSE.
    MOVE 'WN' TO l_opsys.
ENDIF.
IF p_filename IS INITIAL.
    MOVE 'XXX' TO l_filename.
    MOVE 'X' TO l_blank_filename.
ELSE.
    MOVE p_filename TO l_filename.
ENDIF.
CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
    EXPORTING
      logical_path               = p_logical_path_name
      operating_system           = l_opsys
      file_name                  = l_filename
    IMPORTING
      file_name_with_path        = p_filename_with_path
    EXCEPTIONS
      path_not_found             = 1
      missing_parameter          = 2
      operating_system_not_found = 3
      file_system_not_found      = 4
      OTHERS                     = 5.
IF NOT l_blank_filename IS INITIAL.
    REPLACE ALL OCCURRENCES OF 'XXX' IN p_filename_with_path WITH space.
ENDIF.
ENDFORM.                    "get_file_path
*&      Form value_request_p_fcust
      text
--> p1        text
<-- p2        text
FORM get_gui_filename USING p_path p_filename.
DATA: l_fdir TYPE string.
CHECK NOT p_gui IS INITIAL.
PERFORM get_file_path USING p_path space
                              l_fdir.
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = l_fdir
      mask             = ',.prn,.prn.'
      title            = 'Select Excel file for download'
    IMPORTING
      filename         = p_filename
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error = 4
      OTHERS           = 5.
ENDFORM.                    " value_request_p_fcust
*&      Form extract_credit_status_details
      text
--> p1        text
<-- p2        text
FORM extract_credit_status_details .
DATA: lt_credit_stat   TYPE STANDARD TABLE OF zint_credit_stat,
        l_credit_stat    TYPE zint_credit_stat,
        l_current_stat1 TYPE zcrstat1,
        l_current_stat2 TYPE zcrstat2,
        l_current_reason TYPE zreason,
        lt_output_stat   TYPE STANDARD TABLE OF zint_credit_stat,
        l_output_stat    TYPE zint_credit_stat,
        lt_output1       TYPE STANDARD TABLE OF ty_cust_stat_output,
        lt_output2       TYPE STANDARD TABLE OF ty_cust_stat_output,
        l_output         TYPE ty_cust_stat_output.
SELECT a~mandt a~kunnr a~name1 b~curstat1 b~curstat2 b~curtimestamp
         b~curreason b~prevstat1 b~prevstat2 b~prvtimestamp
         b~prevreason
    INTO TABLE lt_credit_stat
    FROM kna1 AS a
    LEFT OUTER JOIN zint_credit_stat AS b
    ON a~kunnr = b~kunnr
    WHERE a~kunnr IN s_kunnr.
DESCRIBE TABLE lt_credit_stat LINES custcount.
LOOP AT lt_credit_stat INTO l_credit_stat.
    txtper = 100 * sy-tabix / custcount.
    custper = txtper.
    PERFORM determine_current_status USING l_credit_stat-kunnr
                                           l_current_stat1
                                           l_current_stat2
                                           l_current_reason.
    IF NOT p_csdlt IS INITIAL.
    Only do delta download
      IF l_current_stat1 NE l_credit_stat-curstat1 OR
          l_current_stat2 NE l_credit_stat-curstat2.
        PERFORM add_record_to_output TABLES lt_output_stat
                                     USING l_current_stat1
                                            l_current_stat2
                                            l_current_reason
                                            l_credit_stat.
      ENDIF.
    ELSE.
    Download all records
      PERFORM add_record_to_output TABLES lt_output_stat
                                   USING l_current_stat1
                                          l_current_stat2
                                          l_current_reason
                                          l_credit_stat.
    ENDIF.
Percentage indicator display
    lva_mssage = 'Extracting customer status'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = custper
        text       = lva_mssage.
ENDLOOP.
Create output table
LOOP AT lt_output_stat INTO l_output_stat.
    CLEAR l_output.
    WRITE l_output_stat-kunnr TO l_output-kunnr.
    SHIFT l_output-kunnr RIGHT DELETING TRAILING space.
    MOVE l_output_stat-curstat1 TO l_output-stat.
    APPEND l_output TO lt_output1.
    MOVE l_output_stat-curstat2 TO l_output-stat.
    APPEND l_output TO lt_output2.
ENDLOOP.
SORT lt_output1.
SORT lt_output2.
IF p_gui IS INITIAL.
Lock File
    PERFORM get_file_path USING p_dccst p_fccstl lock_file.
If the file already exists then abort processing
    OPEN DATASET lock_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc NE 8.
      MESSAGE s002(zppu)
        WITH 'Lock file' lock_file 'already exists on server,'
             'processing aborted'.
      LEAVE PROGRAM.
    ENDIF.
    OPEN DATASET lock_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc NE 0.
      MESSAGE s002(zppu)
        WITH 'Lock file' lock_file 'cannot be opened on the server,'
             'processing aborted'.
      LEAVE PROGRAM.
    ENDIF.
File 1
    PERFORM get_file_path USING p_dccst p_fccst output_file.
If user requests cust status data to be appended use different OPEN
    IF p_append is initial.
      OPEN DATASET output_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    ELSE.
      OPEN DATASET output_file FOR APPENDING IN TEXT MODE ENCODING DEFAULT.
    ENDIF.
    IF sy-subrc EQ 0.
      LOOP AT lt_output1 INTO l_output.
        TRANSFER l_output TO output_file.
      ENDLOOP.
      CLOSE DATASET output_file.
    ELSE.
      MESSAGE s002(zppu)
        WITH 'Dataset' output_file 'cannot be opened on the server'.
    ENDIF.
File 2
    PERFORM get_file_path USING p_dccst p_fccst2 output_file.
If user requests cust status data to be appended use different OPEN
    IF p_append is initial.
      OPEN DATASET output_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    ELSE.
      OPEN DATASET output_file FOR APPENDING IN TEXT MODE ENCODING DEFAULT.
    ENDIF.
    IF sy-subrc EQ 0.
      LOOP AT lt_output2 INTO l_output.
        TRANSFER l_output TO output_file.
      ENDLOOP.
      CLOSE DATASET output_file.
    ELSE.
      MESSAGE s002(zppu)
        WITH 'Dataset' output_file 'cannot be opened on the server'.
    ENDIF.
    DELETE DATASET lock_file.
ELSE.
    MOVE p_fccst TO output_file.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = output_file
        filetype = 'ASC'
      TABLES
        data_tab = lt_output1
      EXCEPTIONS
        OTHERS   = 11.
    MOVE p_fccst2 TO output_file.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        filename = output_file
        filetype = 'ASC'
      TABLES
        data_tab = lt_output2
      EXCEPTIONS
        OTHERS   = 11.
ENDIF.
IF NOT p_svr IS INITIAL.
    PERFORM update_status_table TABLES lt_output_stat.
ENDIF.
output_file = custcount.
CONCATENATE
    output_file
    ' Customers extracted'
INTO
    lva_mssage.
ENDFORM.                    " extract_credit_status_details
*&      Form user_command
      text
--> p1        text
<-- p2        text
FORM user_command .
LOOP AT SCREEN.
    IF screen-name EQ 'P_DCUST' OR
       screen-name EQ '%_P_DCUST_%_APP_%-TEXT' OR
       screen-name EQ 'P_DMATM' OR
       screen-name EQ '%_P_DMATM_%_APP_%-TEXT' OR
       screen-name EQ 'P_DBOM' OR
       screen-name EQ '%_P_DBOM_%_APP_%-TEXT' OR
       screen-name EQ 'P_DCCST' OR
       screen-name EQ '%_P_DCCST_%_APP_%-TEXT' OR
       screen-name EQ 'P_FCCSTL' OR
       screen-name EQ '%_P_FCCSTL_%_APP_%-TEXT'.
      IF p_gui IS INITIAL.
        screen-input = 1.
        screen-output = 1.
        screen-invisible = 0.
        screen-active = 1.
      ELSE.
        screen-input = 0.
        screen-output = 0.
        screen-invisible = 1.
        screen-active = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
ENDFORM.                    " user_command
*&      Form determine_current_status
      text
     -->P_L_CREDIT_STAT_KUNNR text
     -->P_L_CURRENT_STAT1 text
     -->P_L_CURRENT_STAT2 text
FORM determine_current_status USING p_kunnr p_stat1 p_stat2 p_reason.
STATICS: lt_kna1 TYPE STANDARD TABLE OF ty_kna1_fields,
           lt_knb1 TYPE STANDARD TABLE OF ty_knb1_fields,
           lt_knvv TYPE STANDARD TABLE OF ty_knvv_fields,
           lt_knkk TYPE STANDARD TABLE OF ty_knkk_fields.
DATA: l_kna1 TYPE ty_kna1_fields,
        l_knb1 TYPE ty_knb1_fields,
        l_knvv TYPE ty_knvv_fields,
        l_knkk TYPE ty_knkk_fields,
        l_faedt TYPE rfpos-faedt,
        l_days TYPE p,
        l_used TYPE rf02l-klprz.
IF lt_kna1[] IS INITIAL.
    PERFORM load_kna1 TABLES lt_kna1.
ENDIF.
IF lt_knb1[] IS INITIAL.
    PERFORM load_knb1 TABLES lt_knb1.
ENDIF.
IF lt_knvv[] IS INITIAL.
    PERFORM load_knvv TABLES lt_knvv.
ENDIF.
IF lt_knkk[] IS INITIAL.
    PERFORM load_knkk TABLES lt_knkk.
ENDIF.
MOVE gc_status-acc TO p_stat1.
MOVE gc_status-ok TO p_stat2.
MOVE gc_reason-000 TO p_reason.
Customer Block/Unblock
READ TABLE lt_kna1 INTO l_kna1 WITH KEY kunnr = p_kunnr BINARY SEARCH.
IF sy-subrc EQ 0.
    IF NOT l_kna1-sperr IS INITIAL.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-001 TO p_reason.
    ENDIF.
    IF l_kna1-aufsd EQ '01'.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-002 TO p_reason.
    ENDIF.
    IF l_kna1-lifsd EQ '01'.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-003 TO p_reason.
    ENDIF.
    IF l_kna1-faksd EQ '01'.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-004 TO p_reason.
    ENDIF.
    IF NOT l_kna1-loevm IS INITIAL.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-999 TO p_reason.
    ENDIF.
ENDIF.
CHECK p_stat1 NE gc_status-sto.
LOOP AT lt_knb1 INTO l_knb1 WHERE kunnr EQ p_kunnr.
    IF NOT l_kna1-sperr IS INITIAL.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-005 TO p_reason.
    ENDIF.
    IF NOT l_knb1-loevm IS INITIAL.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-999 TO p_reason.
    ENDIF.
    IF p_stat1 EQ gc_status-sto.
      EXIT.
    ENDIF.
ENDLOOP.
CHECK p_stat1 NE gc_status-sto.
LOOP AT lt_knvv INTO l_knvv WHERE kunnr EQ p_kunnr.
    IF l_knvv-aufsd EQ '01'.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-006 TO p_reason.
    ENDIF.
    IF l_knvv-lifsd EQ '01'.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-007 TO p_reason.
    ENDIF.
    IF l_knvv-faksd EQ '01'.
      MOVE gc_status-sto TO p_stat1.
      MOVE gc_status-hold TO p_stat2.
      MOVE gc_reason-008 TO p_reason.
    ENDIF.
    IF p_stat1 EQ gc_status-sto.
      EXIT.
    ENDIF.
ENDLOOP.
CHECK p_stat1 NE gc_status-sto.
READ TABLE lt_knkk INTO l_knkk WITH KEY kunnr = p_kunnr
                                          kkber = 'BP01'
                                 BINARY SEARCH.
IF sy-subrc EQ 0.
Exceeded Trading Terms
    IF l_knkk-ctlpc EQ 'Z03' OR
       l_knkk-ctlpc EQ 'Z04' OR
       l_knkk-ctlpc EQ 'Z05'.
      CALL FUNCTION 'CUSTOMER_OLDEST_OPEN_ITEM'
        EXPORTING
          i_kkber      = l_knkk-kkber
          i_kunnr      = l_knkk-kunnr
        IMPORTING
          e_faedt      = l_faedt
        EXCEPTIONS
          invalid_call = 1
          no_bukrs     = 2
          no_items     = 3
          OTHERS       = 4.
      IF sy-subrc EQ 0.
        l_days = sy-datum - l_faedt.
      ELSE.
        l_days = 0.
      ENDIF.
      IF l_knkk-ctlpc EQ 'Z03' AND l_knkk-crblb IS INITIAL AND
         l_days GT 45.
        MOVE gc_status-hol TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-021 TO p_reason.
      ENDIF.
      IF l_knkk-ctlpc EQ 'Z04' AND l_knkk-crblb IS INITIAL AND
         l_days GT 40.
        MOVE gc_status-hol TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-022 TO p_reason.
      ENDIF.
      IF l_knkk-ctlpc EQ 'Z05' AND l_knkk-crblb IS INITIAL AND
         l_days GT 30.
        MOVE gc_status-hol TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-023 TO p_reason.
      ENDIF.
      IF l_knkk-ctlpc EQ 'Z03' AND NOT l_knkk-crblb IS INITIAL AND
         l_days GT 45.
        MOVE gc_status-sto TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-024 TO p_reason.
      ENDIF.
      IF l_knkk-ctlpc EQ 'Z04' AND NOT l_knkk-crblb IS INITIAL AND
         l_days GT 40.
        MOVE gc_status-sto TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-025 TO p_reason.
      ENDIF.
      IF l_knkk-ctlpc EQ 'Z05' AND NOT l_knkk-crblb IS INITIAL AND
         l_days GT 30.
        MOVE gc_status-sto TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-026 TO p_reason.
      ENDIF.
      CHECK p_stat1 NE gc_status-sto.
Exceeded Credit Limit Checks
      PERFORM get_credit_exposure USING l_knkk-knkli l_knkk-kkber
                                        l_knkk-ctlpc l_knkk-klimk
                                        l_knkk-skfor l_knkk-ssobl
                                        l_used.
      IF l_used GE 95 AND l_knkk-crblb IS INITIAL.
        MOVE gc_status-hol TO p_stat1.
        MOVE gc_status-hold TO p_stat2.
        MOVE gc_reason-010 TO p_reason.
      ENDIF.
      IF l_used GE 95 AND NOT l_knkk-crblb IS INITIAL.
        MOVE gc_status-

Yes thread closed
Prioz

Error reading material cost estimate for sales order (KE292)

Dear All,
I have an issue with billing. we are posting july month transactions, the material cost is maintained through MR21. When releasing billing document for accounting we are getting error message like"Error reading the material cost estimate for sales order "11"
Message no. KE292
Diagnosis
In Profitability Analysis (CO-PA), the system tried to valuate item 000010 of sales order 11 by reading the corresponding product cost estimate.
However, no product cost estimate could be found for this sales order item.
The system accessed product costing for product AMLFP011011XX00P using costing key YB3 as defined in the
CO-PA Customizing settings.
System Response
The system cannot process the document any further.
Procedure
Check your Customizing settings."
We cross checked with other client as a current date and we ran cost estimate through CK40N with same material. and we posted entries. Here it is working fine. but in above process it is not working. Can you pls guide me where i missed.
Regards,
Nagaraju,

Hi,
When the Costing Key is assigned to the material types in the COPA customizing, then system expects Cost estimation when billing is released to Accounts.
If you dont run cost estimation but update the material master through MR21, system will not accept as in the Costing key configuration you must have selected the Current Standard price field for the valuation.
Hence, try to run cost estimation and then do releasing.
Thanks & Regards
Ravi Kumar

Missing CO Sales Order Item in 643 Cross Company Movement

Hi all,
we are working in a make-to-order scenario in which the company A/plant A sells a finished product produced by company B/plant B.
The sales order item is a cost object (account assignment category E – “Ind. cust. w. KD-CO” is set in the requirement class in use) and is derived into the Transfer Order (Account Assignment tab) from production company B/plant B to selling company A/plant A.
When we try to transfer the finished product from plant B to plant A by means of 643 movement the system provides error message KI 235 – Account xxx requires an assignment to a CO object where xxx is the Cost Of Goods Sold for company B. This is due to the fact that FI is not able to derive the sales order item as a posting cost object.
We have activated cross company CO objects by deactivating the Company Code Validation indicator (field TKA00-RKBUK) for controlling area settings.
Any suggestions?
Thanks in advance.
PierGiorgio

Hi Abhi,
yes it is: "E" is the entry value in the field consumption of the requirement class involved.
Thanks, PierGiorgio

No release of production order without standard cost estimate

Hi All,
I have an requirement, that is production order for a material should not be released or saved if standard cost estimate for that period is not released. Basically it should not allow to release or save the production for that material, is SCE is not run for that period. I tried various options, i also overheard its possible through user exit and many people have succeed in that.
Has anybody overcome this problem, please do let me know. And which user exit??
Thanks in advance
With Best Regards
GJ.

Hi...
I have faced the same problem in my previous project. What i have instructed to my client is to take control of Master data and put the status as "03" Blocked for movement till the statndard cost is released for this material.
You can relase the status to "E2" in Cross Plant Status Field in Costing one view once the cost estimate is released for the material.
I hope this works for you.
Please let me know if you require any fruther information.
Thank you,
Regards,
Santosh
Rewards points if helpful.

Cross company cost estimat

Similar Messages

Maybe you are looking for