Cost Estimate Deletion Problem

Hi,
I have executed the cost estimate for the material.Now i wanted to delete it in CKR1 as it is incorrect.So that i can execute a new cost estimate for this.
but my doubt is - if we execute cost estimate,then it will update in material master costing view.If i delete and then execute new cost estimate for the same material.will the new rates will be update? or the old incorrect rates are not deleted?
Kindly advise me
Thanks
Supriya

From the time you run a cost estimate, till the time it reaches the material master, there are three stages.
First run and save the cost , Second mark the cost estimate, Third release the cost estimate.
There is no change to the material master for the first two stages with respect to material value. When you mark, it just updates the future price. Only at the third stage, the material price changes with the new cost estimate value. For any quantity that is in stock, the change in vaule is journalised.
Hence, if you have just run the cost estimate, you are only in the first stage. You can comfortably delete CKR1. But please exercise caution, any wrong deletion can take away the cost estimate stored in the material master. This does not take away the standard price, only the estimate gets removed. As a result, you may not be able to get the cost component report for production order etc.
When you are in CKR1, open up the small plus icon, which will give you more selection option to help you pinpoint the cost estimate that you want to delete.
You can also check details of the current cost estimate in the costing view to find out which cost estimate has got updated in the standard price.

Similar Messages

Can't delete the cost estimate via CKR1

Hi,
We have one material. We can't delete the cost estimate via CKR1. It is only warning. It is no error log. The other material cost estimate can delete normally. I check the material master I can't find the issue. The following is the warning message. Could you pls help check it? Whate factor will effect the cost estimate deletion? Thanks.
==========================
Deleting current standard cost estimates can cause inconsistencies
Message no. CK 669
Diagnosis
u2022 If you delete a current standard cost estimate, the fields for
the cost estimate are set to zero in the material master record. If you
use the material ledger, the standard prices in the material ledger
master data are also deleted when you delete the current standard cost
estimate. The material master record for the material thus does no
longer contains a current standard price from a standard cost estimate.
u2022 If you delete an active standard cost estimate, you can no
longer determine scrap, work in process and variations for previous
periods.
u2022 In certain countires, it is a legal requirement to maintain
records of standard pricing. Therefore, you should check whether you
are obliged by law to keep records of your standard cost estimates.
Please also contact the relevant accounting and inventory management
departments.
==========================
Best Regards
Park Han

Hi,
The deletion of Current standard cost estimate should be followed with some rules of the IFRS.
If you want to change the standard cost you can do the change,If you want to delete the standard cost of material then it will set the price of material to zero.If the material ledger also activate then it will make the Moving average price & standard cost of the material to zero.
So follow the Law of the country & Discus with Audit team &then delete the curent standard cost estimate of the material.
Regards,
Raj

Cost Estimate Mistakenly deleted - ML Active

Dear all,
One of the user mistakenly delete the cost estimate released for a material.
This material already have the status "quantity and values entered" in Material ledger/
The Material ledger is active with price determination 3.
What things usually must be done in this case?
Please guide us on the issue above.
Thank you very much for your help.

Hi Erwin,
If there is no released cost estimate for the FG/SFG products, you will have a problem during the Billing Doc release to Accounting/COPA document.
The workaround is : if you are using Split Valuation/Valuation type, you can create new valuation type and release standard cost estimate.
Let me know if you need any further details.
BR,
ADI

Can I find out, with user has deleted all cost estimates with CKR1?

Hi Community,
ich have a major problem: all our standard material don't have a cost estimate any more, because a unknown user has deleted all current cost estimates. Can I find out, with user has used the CKR1 transaction? And much more importend: how can I solve the problem? Do I need to re-calculate all the material?
Thanks for any idea and help
PoD

Hi,
you have to make the costing run, marking, releasing again but thats not the whole work.
If there are PP-orders that have been created based on the old/deleted plan cost estimates, the variance calculation will not work as the plan cost estimate is missing (even if the new one is released in the same period).
Thus variance calculation is not possible for those orders... You have to settle the whole balance to receiver object by removing the variance key in PP-order. Try first for one particualr order to see if there are some other problems that need to be solved during month-end-closing.
How to find out who has executed CKR1 (SAPCKR1): Check authorizations for (hopefully) a small number of user who are allowed to use CKR1.
Use T-Code ST03N, in the left upper window double-click "total" (maybe click a day if you can imagine which (possible) date it was). In lower left section open "user and settlement statistics" and then click "user profile". Now go to each possible user and look for T-Code CKR1.
This can be time-consuming but its worth a try...
For the future: restrict CKR1 to a very small number of user (and they should be well trained...). I once had a company (with poor authorization concept) but CKR1 was blocked in SM01 and a ZCKR1 was created and in this Z-transaction USER-name was checked (if SY-USNAM...) so only the use names named in this Z-program were allowed to use ZCKR1. Not the best way but sufficient for them...
Good luck, Christian

Problem with rounding in standard cost estimate.

Hi All,
Happy 4th of July!
I have a problem with the standard cost estimate where the system try to calculate overhead costs (from costing sheet) with a fix percentage (9.7%) to the value coming from material consumption costs element.
Let say I have $1.71 material consumption and the overhead rate of 9.7%
The real calculation should be (1.71*0.097) = $0.16587
But at CK11N screen, it shows only $0.16 (two decimal rounding)
Is there a way that I can bump the rounding to at least 3 decimal point to make it more accurate?
Very appreciate any input you guys can share. Thank you.
Charitha

Hi Chari ,
My experience says that you can use only 2 decimals ..
Moreover , please have a look into SAP Note : 639410 - CK11N, CK13N: Message CK869 due to rounding
differences.
There a some source code corrections also on rounding differences- check if it helps you also...
Regards
Sarada

Where can we see the cost estimate which is got deleted.

Where can we see the cost estimate which is got deleted.

Hello rajesh as you told that the cost esimate is deleted.
Then there is no way to see the cost estimate.
You canonly see the cost esimate in CK40N or in CK13N but you can not see the itemiaxation of that material for ehich we create the cost estimate.
Hope it will clear you
IF this informetion is usefull for you please assign some points
Regards
Ravi

Deleting the released cost estimate -reg

Hi,
I have created std cost estimate for one material through CK40N and released.
After that , I tried to delete the cost estimate through CK44 , The variant (costing name) only deleted but i could not delete the released cost estimate for the material.
No GR , sales invoice any posting were happened after releasing.
Can you suggest me, what could be the reason and how to delete the cost esimate.
Regards
Karthikeyan

Dear Karthikeyan,
If you want to delete the released cost estimate use CKR1,which is not recommanded,as it may create
discrepancies.
CKR1 is used to reorganize or delete the existing or the future or the previous standard cost estimates.
CK44 is used to delete the costing run datas.
Regards
Mangalraj.S

Deleted Stand. cost estimate

Dear,
Can anybody write to me, how I can find the user which deleted stand. cost estimate for one material (trans. CKR1)?
I would like to know the user and date, when the stand.cost estimate was deleted.
Best regards
Viera Tis

Dear Sridhar,
Your suggestion is complicated (number of materials is very high).
My interest is to find who and when deleted cost estimate for exact material (let's call it XYZ).
I do not need to compare tables MARC and KEKO.
I use trans. SE16, choose table KEKO, and I can select material XYZ.
System displays 370 lines with mentioned material (although st.cost estimate for mentioned material was deleted).
Among 370 lines of mentioned material XYZ, I can find in column Costing status value FR -released without errors or KA -Costed without errors.
In last line among 370 lines are columns "Valid from" is 16.08.2007 and "Valid to" is 31.12.2007 , Costing status is KA. It means validity date does not indicate if stand.cost.estim. was deleted or no.
Which field or column in KEKO indicates if standard cost estimate is actual or was deleted?
Costing status ?
Costing run?
Costing run date?
Best regards, Viera

Delete WBS cost estimate - CKW1/CKW4`

Hi
We are working with project system and based on the customer requirement we create WBS BOM for production of the material and for costing purpose we run Production lot Cost estimate for WBS using transaction CKW1 and activate it using transaction CKW4.
One of our scenario is such that after activating the cost estimate we are making certain changes in the WBS BOM and want to recost the WBS cost estimate(No GR is made yet)
When we are trying to run cost estimate for that WBS and material system is giving us the message that "Cost estimate for this material and WBS is already activated" and not allowing us to proceed with new costing.
We are trying to delete the cost estimate but we can not find out any transaction to delete the cost estimate for WBS element.
How can we delete the existing cost estimate for the WBS element which is already activated.

Dear Pravin Kakade
I am also working the same. But i didnt have any other tc after CKW1 & CKW4. What can we do after Activity CKW4. If u give some input i am also working on the same path. I am also trying options.
Regards
Raj

Material cost estimate with quantity struchture : problem

while running the costing transaction CK11N , the word u201Croutingu201D is not appearing under the explanation facilities.
rate routing is already available
what will be the reason and solution.

Hi,
There is a standard report you can use - S_P99_41000111 - Analyze/Compare Material Cost Estimates .
With this report, you can report the standard cost estimates for a range of materials.
Good Luck!!! Assign points if this was a useful input to you.
Thanks and Regards,
Bhuvaneswari.S

Product Cost Estimate without Recipe

Dear SAP colleagues,
I am facing a problem that standard cost estimate is gettting released (thru CK40N) even if there is no recipe for some products.
I tried searching if there is a possibility of setting some error message (OBA5) but could nof find any. Since the number of products is huge, it is not possible sometimes to do this check manually for all the products.
Can anyone please help me to avoid this situation?
Thanks,
Prasad.

Hi,
Thanks for the fast feedback. I had already tried it with some messages. But based on your suggestion, I tried with some more messages. Below are the messages which are now set at Error in OPR4_CK.
E     C2     315     Routing & is flagged for deletion
E     CK     159     Routing & & does not exist
E     CK     229     No routing could be determined for material &
E     CK     306     No routing could be determined for material & plant & sel. ID &
E     CK     476     Material &: Routing does not match selection ID &
E     CK     478     No routing could be found with the specified selection criteria
E     CO     807     Task list & not valid for key date &
Despite maintaiing this setting, I am still able to generate the Standrd Cost Estimate without Recipe. There is no error in CK11N.
Is it possible for you to check further & suggest?
Thanks in advance for your help.
Rgds,
Prasad.

Wrong cost estimate due to info record SA reference field.

Hi
I have an issue during cost estimate.
When we create scheduling agreement for a Material/Vendor/Plant combination.
The info record in Purchase organisation - reference field updates with latest SA number.
Here. I had created the second Scheduling agreement and later i decide to delete the latest SA and use the previous one. But inforecord does not update with previous SA number.
As per configuration, the reference field is taken for cost estimate and it takes the latest SA number, which is wrong.
Can anyone guide me how to get the live SA number in the reference field in Info record?
Thanks in advance,
Sasi

Hi
The idea of SAP in case of retreiving information in case of PO/SA, is the last document number that is stored in the info record. Since you have just created the SA agreement, whose information is not stored in info record, you can simply update info record (select info update indcator) which is available in ME31L somewhere in Menu bar options (Sorry I dont know precisely). This could solve your problem I hope.
Regrds
Sidd

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

Sales Order Cost Estimates -- Versions?

In our MTS plant we are creating cost estimates each month with different version numbers so they can easily be compared to review cost changes.
This concept in our MTO plant is (of course) a problem.
We would like to create a dummy sales order and on each line list a KMAT and build an "average" configuration. We use variant config, so the sales order bom is built automatically. It also costs automatically. We would like to save this cost estimate and compare it with a cost estimate of the same configuration next month. I do not have an option for version CK51n, nor do I see a Costing Date in KEKO table. Either of these items for MTS would create a second cost estimat and allow comparison.
Is there a way to compare Sale Order Cost Estimates across periods?
Any other suggestions as to how to obtain the required data??
Thank you for all suggestions!!

Any one think of a solution?
thanks

Is it possible to do Standard Cost Estimate even if we have open sales Orde

Hi,
I have a small doubt and questions regarding Standard cost estimate.
Is it possible to Execute Standard cost estimate when we have Open Sales orders and Open Purchase orders?
Is there any problem if we execute standard cost estimate when we have open Sales orders and Open purchase orders?
Kindly clarify my doubt and help me.
Thanks
Supriya

Dear Supriya,
There is no relation between sales order or purchase order and a standard cost estimate.
Standard cost estimate basically sums up the cost of the BOM components and the operation(activity
cost) or the processing cost(if sub-contracted) based on the material's procurement type and the
costing variant used.
Check and revert back.
Regards
Mangalraj.S

Cost Estimate Deletion Problem

Similar Messages

Maybe you are looking for