Previous month cost estimate

Hi,
Cost estimate of One material, which is a Semifinished goods nature is not released for March 09. But the Cost estimate of Finished goods is release in March 09, of which the above said Semifinished goods is part of BOM.
Now please suggest how to do the production in the Semifinished goods without cost estimate or any other way to release the cost estimate for March 09 (Previous month) or any otherway for this problem.
Regards
Prakash.

Hi Bhanu,
First, you check, when you released the Cost Estimate for that Semi-finished Product in the month of February, what was the "Costing Date To"? If it is upto 31.03.9999 (for ex), then there is no problem.
You can make inventory transactions for that Material without any problem.
If it is only upto 28.02.2009, then you can Release the Cost Estimate in the current month.
Try this and get back to me if you face any error.
Srikanth Munnaluri

Similar Messages

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

How SAP use transfer control or material cost estimate

Hello!
I have strategy "3-Previous standard cost estimate" in transfer control material cost estimate.
I have cost estimate for product AAA with status KA and costing date from 01.01.2014.
Product AAA produced from component BBB.
Component BBB has two cost estimates with costing date from 01.01.2014 and 01.02.2014.
I run cost estimate for product AAA with costing date from 06.03.2014.
Cost estimate not use existing cost estimate for component and create new cost estimate.
In help.sap.com contains next information about transfer strategy 3 - The system searches for existing previous cost estimate.
why my system does not use the existing cost estimate for component?
Thanks for attention.

Thanks, Szymon!
I use russian interface and read russian help. Where stragegy 3 has name "Прошедшая плановая калькуляция" which means "The last planned cost estimate".
This led me astray.
In english help i read next:
Previous standard cost estimates
The system searches for an existing previous standard cost estimate.
You are completely right!
two more questions:
- We can not use strategy 3 if we not realesed cost estimate as standard price?
- What strategy we should use for transfer material cost estimate with status KA?
Thanks

Delete Costing in Previous Month and Re-release in Previous Month

Hi Experts,
I have a query, actually we have released costing of certain fg's in the month of march 09. One component which is common in all the fg's cost were wrong. hence all the costing of last month were released wrongly. Although we have corrected cost of that component thru MR21 in the current month. Now we want to delete costing of those certain fg's in the month of march and correct that component cost and want to re-release costing on 31.03.2009 date.
Can we do it. If yes, kindly help me out.Full Points to helping answers.
Regards
GR

Hi G R,
It's true what the other folks have already suggested. Though you will be able to delete the Cost Estimate of Previous period (using CKR1 - which is not suggeted basically), you will not be able to run, mark and release for a previous date/period.
It is made not possible to avoid the data inconsistencies. Just imagine the reason and consequences, with the Old Standard Price, all you material transactions have been done and the period is also closed...now if you delete the Cost Estimate and try to re-run, how the system has to take the Inventory Valuation effects?
Hope this is clear, pls revert back for futher explanation...
Srikanth Munnaluri

Product Costing in Previous Month

Hi Experts,
Actually we are using repetitive manufacting in our company, and we run the costing on every 1st day of the month, sothat we can book the production during entire month.
Now our management want to run the costing on 28th of previous month. Means for Production starting from 1st Jan 2012, we have to use the costing results on 28.01.2011, but system is not allowing to book the prodction in our system untill we run costing on 01.01.2012. Means we don't want to run the costing on 01.01.2012, but for Jan 2012, we will run the costing on 28.12.2011 and for feb production we will run the costing on 28.01.2012
How can I achive this, please suggest me urgently.
Regards
Ishu

Hello Ishu
Check the costing variant you are using. In customisation for costing variant OKKN check the date control. In the date control configuration select cost date from as Start of next posting period and costing date to as end of next posting period.
So when you run the cost estimate this will be effective from 1st of next period.
Sangram

Standard Cost Estimate Report Comparing Current vs Previous Year

Hi Everyone,
Is there a standard SAP report that would provide materials with previous and current year standard cost estimates as found within the Costing 2 view of the material master?
Thanks,
Pete

Hi,
You need to look into periodic reports. Here is the best one to provide the copmarision between two period -
S_ALR_87099932.
Go into the report & select the costing runs taken in two diffrent periods. You will get all the required results of prices for two periods/costing runs.
Regards,
Amol

We cannot do std cost estimate every month in ML

HI
Can we do std cost estimate whenever required with changed price,
can i change the price in material master -how
regards
sowmya

Hi,
We can do std cost estimate once in a month. If we want to do multiple times in a month we should reorganise the material cost estimate using CKR1.
We can change the material master price for a material with out standard cost estimate using MR21.
If standard cost estimate exist, use CKR1, the use MR21.
Regards,
Rijo Paul

At the time of cost run CK40N, cost relese in previous month.

Hi,
At the time of cost run CK40N, executing today or previous (05.04.2010). But Cost release in previouse month 31.03.2010.
I tried but system not allowing and saving the varient in previous period(31.03.2010).
Please provide solution and little biturgent.If any clarifiaction ask i will explain in detail.

Hi Sreekanth,
We also faced the same issue with CK40N costing in previous month. What happened is that during testing in quality the new month started and the system is not allowing back date release. So we have to now open and close periods in MMPV and OB52 which is not possible because MM postings are pending. So the new costing release has to be carried after opening and closing of periods.
Syed Abid Hussain
Edited by: sabidh on Apr 5, 2010 2:45 PM

How do view previous cost estimate price in material master

Dear,
friend i want to see the previous standard estimate price of FG and SFG in material master data.i can view current and future standard price. But not the previous price so kindly anybody suggested me, is there any configuration needed for view previous price in controlling module.
Thanks
advance.

You can try table MBEWH table for Material valuation price for previous periods
Or get product cost estimate number KALNR field from KEKO and use that as an input to CKIS table. Here cost is displayed as itemization

Previous cost estimate missing

Hi All,
I'm still new in product costing. I have a situation like this :
Material AAA plant 1111
Run cost estimate and released :
- 28.06.2011 = RM147.65
- 12.08.2011 = RM177.71
But when I checked in material master (MM03) - I don't see the previous cost which is the June. I only see current cost (August).
I checked CK13N - for the costing run on June - it's still exist, so It's NOT DELETED, But it does not appear in my material master.
Please anyone can help me to explain ?
Regards,
Melissa

Hi,
You can check if the below link helps.
No future standard cost estimate exists for material * in plant *
And the given OSS note # 1386066 can help you.
KInd Regards
Umapathi G
Edited by: Umapathi Naidu G on Aug 22, 2011 5:27 PM

Issue with Standard Cost estimates / Material Ledger

Background:
We have been using SAP for the last 5 years with Material Ledger active. Due to a number of reasons, we have not revised its standard cost estimates from 2001 till now. This means that at month end, we do not mark and release prices as recommended, nor do we mark prices and use dynamic release.
What Happened:
A new material called PFSW3 was made. This is a FERT. Before production
could start my team released the standard cost estimate for this material. Production was now able to proceed without problem. Then, when the time came to sell the material (VF02), SAP again raised the error 'cost estimate not found'. On checking the standard price in MM03, we discovered that the future cost estimate was missing. So we created and marked a new cost estimate in the middle of February 2007.
Problem:
When the first sale took place, SAP released the marked cost estimate and posted a Price Change document to adjust for the new standard cost. I understand this was due to dynamic release. Now, when month end came, the system settled all the production orders of material PFSW3 but did not do multi level costing on it.
Internal Investigation:
My team has determined that the material PFSW3 has price determination 2 set by mistake. All our other production materials (HALB and FERT) are
set to price determination 3 in the material master (accounting view).
Questions:
To sum this situation up,
we need to know why the material PFSW3 was not marked closed in its period status (CKM3) at the time of closing through CKMLCP?
What are the implications of not closing this material in Feb 2007 (current period status is showing 'Quantities and values entered')?
How can we close this material this month?
The future cost estimate is again missing for PFSW3 in March 2007 and I
fear we are going to face more problems as this material is sold to customers.
Please respond this is an urgent issue.

Dear Shumyl,
Please, have a look at Note 645083 - Material period status set to "Closing Entry Completed" that might help to closing your material in previous period.
Hope it will be useful.
Regards,
Flaviano.

How to download Standard Price of the Previous Months

Hi,
I have a request to download the standard prices of the previous month.
Below is the Example:
Material A having the current standard price of $ 100 in Jan,2011 and $ 90 in Dec,2010.
I can see the standard price of $90 under Accounting View 1 against "Period 12.2010" Tab.
I would like to know how can I download the previous month standard prices for the whole list of Materials using Tables or any standard Report.
Pandu

Hi Pandu,
You can meet your requirement through SAP standard report. Find more details:
Use t-code: S_P99_41000111 - Analyze/Compare Material Cost Estimates.
Enter the below details in selction screen:
Plant,
Material................ To ................
Costing Variant,
Costing Date, Valid From (enter the range of dates. e.g. 01.10.2010 to 01.01.2011)
Costing Status = FR (Released Without Errors).
Execute the above selction.
Check in your output layout/change the layout to get Costing date (Key), Costing Status. Material, Plant, etc.
You will be able to view/download the current month & previous month standard prices.
Thanks & Regards,
ADI

FG Valuation basis - Std Cost estimate or Net sale value whichever is less

Dear SAP Experts,
Query 1 -
Valuation of Finished goods is done on basis of standard cost estimate (CK24) or Net sale value whichever is less
*Net sale value u2013 Net sales ( Sales value minus Sales deductions)
Eg : Std cost estimate gives FG price as $100, whereas Net sale value price of FG $80,
      now the client wants FG values should be at $80
Is there any standard way, wherein SAP can capture whichever is less i.e standard cost estimate vs Net Sale Value
Pl let us know the options and which options would be ideal for query 1
Query 2 u2013 Can we use CRK1 and MR21 to manually change FG price whenever Net sale value is less than std cost estmate price?
u2022     In case the market value is less than the std cost estimate (CK11n) ,then Is this the approach to manually value FG price using CRK1 & MR21.
u2022     What could be the impacts if we follow this approach
For Eg: Impact on prev months WIP, Scrap, stock returns etc
u2022     We simulated CRK1 & MR21 and MR21 entries are posted successfully, however following below warning is the message is showed when CRK1 is executed
             Note u2013 Material Ledger is not active
Warning Message
Deleting current standard cost estimates can cause inconsistencies. Your comments please
Message no. CK669
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 countries, 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.

Dear,
Query 1;
The FG or SFG will be valuated at Standard Cost there is no provision to enter Net sale value
Query 2:
Do not user CKR1 to delete Cost Estimate because it can bring lot of Descripenceies in CO, SAP do not recommend the same.
You can run the revaluation at the month end or revise your activity rates so that you standard price will be change accordingly and your inventory will be re valuated.
Hope it is clear, it not then please revert.
Br,Vivek

Should cost estimate price be released before ML closing?

Hi,
Do we have to release the cost estimate price before we do the ML posting closing step? If yes then why the ML mark price and release price is placed at the last step of CKMLCP list of steps which is after the ML closing step?

Hi,
Lets take an example.
Current period is 02 (Feb 2012).
Previous period is 01 (Jan 2012).
Future period is 03 (Mar 2012).
Befor 31st of january you can create Std cost estimate CK40N (you can complete selection, structure explosion & costing) for Releasing Std cost on 1st Feb.
Open MM & FI Periods on 31st night or 01Feb early
Perform the marking and relaseing (CK40N)
Run CO month end closures eg. OH cal, WIP, Var, Set, etc.
Create Actual Costing Run (CKMLCP) for previous period (Jan). May be by this time we are in 1st week of Feb.
Complete all the steps of ACR (till Post closing)
Last step Mark Material prices (if you perform this step it will mark ACR prices as standard price for March period. This step has some limitations like Itemization will not be available for Std cost estimation. Read the help.sap.com for more details.
Hope the above example provides more clarity for your question.
BR,
ADI

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

Previous month cost estimate

Similar Messages

Maybe you are looking for