All sales orders synch with websales salesperson

I have a client that has a number of B2B customers that place orders. When I look at the OrderDetail table the salespersoncode is empty and they synch over the B1 with the websales sales person. But these B2B accounts have default sales people in B1 and if I look in the UsersAccounts table they have a salesmanager assigned.
Why is this happening?
One thing I noticed is the client does not have any licensed users as sales persons, does that affect this?
Thanks for the help

Orders placed by the B2B account user themself will have the "websales" or the sales person chosen in the synchmanager as the salesperson on the order.
This is by design. Only if the salesperson places the order within WebCRM for the B2B account will the order show that salesperson in B1.

Similar Messages

FM to get sales order details with billing document .

hi ,
is there any standard FM or BAPI to get the sales order details with input as billing document ?
i have the billing document number now i need to get the sales order number and its details ..
is that possible ..
i very well know how to get it by using query, i need standard FM.
Points will be awarded for sure , if it helps .
Thanks and regards
JK

Here is the list of BAPIs
BAPI_QUOTATION_GETDETAILBOS
BAPI_INQUIRY_GETDETAILBOS
BAPI_SALESORDER_GETDETAILBOS
SALES ORDER->
BAPISDORDER_GETDETAILEDLIST Sales Order: List of All Order Data
BAPI_ORDER_CHANGE_STATUS_GET Change status for order
BAPI_SALESDOCU_CREATEFROMDATA Creating a Sales Document
BAPI_SALESORDER_CHANGE Sales Order: Change Sales Order
BAPI_SALESORDER_CREATEFROMDAT1 Sales Order: Create Sales Order
BAPI_SALESORDER_CREATEFROMDAT2 Sales Order: Create Sales Order
BAPI_SALESORDER_CREATEFROMDATA Create sales order, no more maintenance
BAPI_SALESORDER_GETLIST Sales order: List of all orders for customer
BAPI_SALESORDER_GETSTATUS Sales order: Display status
BAPI_SALESORDER_SIMULATE Sales Order: Simulate Sales Order

Sales order report with order attachments

Hi All
I am writing a program for a 2 part report that gives a list of sales orders with attachment flags and a list of invoices that do not have the output processed due to the presence of attachment flag.
Firstly i need help regarding few queries in the process of writing this program.
1. How can i distinguish between a sales order with attachement and one without an attachment.
2. What is the related field for attachment in sales header/sales item table(s) or any other sales related table which will contain information of the attachment in the sales order.
3. If I have an attachment in sales order, will it have an effect in the output being processed for the invoice for that order.
Thanks in Advance
--Mike

Hello Erik,
is there a sales order report with the complete line-item pricing
breakdown. For example, In VA05 I'm only able to get the Net
Price and Net Value as an output. I would also like to view the
breakdown of the conditions (e.g. disounts, tax, etc.)
Is there another report in SAP that will show this? Or a backend
table I can pull this information from to create a query?
The best way to handle your requirement is to create a Custom report using the standard table for Sales Order i.e. VBAK and you can pick up the Document Condition Number. You can pass this number to table KONV and pull up all the values for the active contion type which was responsible for Sales Order price calculation. Please reach out to a ABAPer to develop this sort of a custom report.
Just FYI, if you want to check out all the value for a specific condition type, then you can use the standard report i.e. V/LD.
Please update your post after carrying out this exercise.
Regards,
Sarthak

Sales Order Report with Pricing Breakdown

HI, is there a sales order report with the complete line-item pricing breakdown. For example, In VA05 I'm only able to get the Net Price and Net Value as an output. I would also like to view the breakdown of the conditions (e.g. disounts, tax, etc.)
Is there another report in SAP that will show this? Or a backend table I can pull this information from to create a query?
Thanks, Erik

Hello Erik,
is there a sales order report with the complete line-item pricing
breakdown. For example, In VA05 I'm only able to get the Net
Price and Net Value as an output. I would also like to view the
breakdown of the conditions (e.g. disounts, tax, etc.)
Is there another report in SAP that will show this? Or a backend
table I can pull this information from to create a query?
The best way to handle your requirement is to create a Custom report using the standard table for Sales Order i.e. VBAK and you can pick up the Document Condition Number. You can pass this number to table KONV and pull up all the values for the active contion type which was responsible for Sales Order price calculation. Please reach out to a ABAPer to develop this sort of a custom report.
Just FYI, if you want to check out all the value for a specific condition type, then you can use the standard report i.e. V/LD.
Please update your post after carrying out this exercise.
Regards,
Sarthak

Is there any FM or BAPI to get list of all sales orders

Hello all,
I have the requirement like below.
Is there any FM if i Pass Drawing document no, type,part,revision level which gives
the output list as.
1) all sales orders, where the above drawing document no is attached to the materials
and these materials are used as one of the lower level components in the Sales order BOM,
I need to show all those sales orders along with SO number,item,Material,Plant and BOM Item no,
2)all sales orders, where the above drawing document no is attached to the materials
and the same material is one of the item in sales order.
3)all sales orders, where the above drawing document no is used as one of the component in Sales order BOm's
Addition of 1,2,3 will be the o/p.
are there any FM or BAPI to get the above list.
Basically the above report is concatenation of report outputs of t-code CSD5 and CS15.
Awaiting reply.
Thanks.

Hi venkatesh,
You can use the BAPI
BAPISDORDER_GETDETAILEDLIST
to get list of all sales orders.
Here is a lik which provides you BAPI'S regarding everything.
[http://www.saptechies.com/sap-bapi-list/]
Hope this will help you.
Regards,
Pavan.

Change of Sold to Party in Sales order created with Reference to Contract

Dear Gurus
I want to change the sold to party in Sales Order created with reference to contract.
When I create a Sales order with reference to contract the system copies all the partner functions- Sold to, Ship to, Bill to and Payer alongwith other data.
However Sold to is marked as "Grey" and not changable, rest of the partners can be changed.
There is no subsiquent document created with reference to this Sales Order.
Please advice.
Thanks a lot.
Regards
Raghu

Hi ,
Please follow the below mentioned step.
1) Create a partner function letts say Authorized SP .
2) Assign all the possible authorised SP (customer) in the contract.
3) When you create sales order with reff to Contract. Put the customer for whom you wish to create a sales order in release partner tab.
Hop this will resolve our problem
Regards,
Krishna O

BAPI SALES ORDER & Copy with reference

Hello,
I'm creating sales order copied with reference to an invoice. My problem is that the data item is empty. When I create the sales order manually and use the option 'Create with reference' and choose an invoice, the sales order is created with all data item. I don't know how I can get to copy the data item from the invoice in the new sales order. The code that I'm using is the following:
DATA: order_header_in LIKE bapisdhd1,
 order_partners LIKE bapiparnr OCCURS 0 WITH HEADER LINE,
 order_text LIKE bapisdtext OCCURS 0 WITH HEADER LINE,
 order_header_inx LIKE bapisdhd1x,
 order_item_in LIKE bapisditm OCCURS 0 WITH HEADER LINE,
 order_schedules_in LIKE bapischdl OCCURS 0 WITH HEADER LINE,
 order_conditions_in LIKE bapicond OCCURS 0 WITH HEADER LINE,
 extensionin LIKE bapiparex OCCURS 0 WITH HEADER LINE,
 partneraddresses LIKE bapiaddr1 OCCURS 0 WITH HEADER LINE,
 order_cfgs_ref like BAPICUCFG occurs 0 with header line.
DATA: salesdocument LIKE bapivbeln-vbeln.
DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
order_header_in-doc_type = 'ZA09'.
order_header_in-sales_org = '1700'.
order_header_in-distr_chan = '01'.
order_header_in-division = '01'.
order_header_in-BILL_DATE = '20060701'.
order_header_in-ref_doc = '0900000019'.
order_header_in-refdoc_cat = 'M'.
*order_header_in-REF_DOC_L_LONG = '0900000019'.
order_header_in-purch_no_c ='prueba'.
*order_header_in-ord_reason = '003'.
*order_header_in-pmnttrms = '0002'.
*order_header_in-sales_off = '2800'.
order_header_in-ref_doc_l = 'FACTURA ES'.
*order_header_in-fix_val_dy = '20060701'.
*order_header_in-currency = 'USD'.
*order_header_in-exchg_rate = '1.2'.
order_partners-partn_role = 'AG'.
order_partners-partn_numb = '0000000001'.
order_partners-langu = 'EN'.
order_partners-name = 'El corte aleman'.
order_partners-country = 'ES'.
APPEND order_partners.
order_partners-partn_role = 'RE'.
order_partners-partn_numb = 'ARR000'.
order_partners-addr_link = '0000030044'.
APPEND order_partners.
CALL FUNCTION 'ADDR_GET_COMPLETE_ALL_TYPES'
EXPORTING
 addrnumber = order_partners-addr_link
PERSNUMBER =
 address_object_type = '1'
IV_CURRENT_COMM_DATA = 'X'
IMPORTING
ADDR1_COMPLETE =
ADDR2_COMPLETE =
ADDR3_COMPLETE =
 ADDR1_COMPLETE_BAPI = partneraddresses
ADDR2_COMPLETE_BAPI =
ADDR3_COMPLETE_BAPI =
EXCEPTIONS
PARAMETER_ERROR = 1
ADDRESS_NOT_EXIST = 2
PERSON_NOT_EXIST = 3
INTERNAL_ERROR = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
data: vl_texto(40) value 'NUEVOOOOO'.
partneraddresses-name = vl_texto. clear vl_texto.
partneraddresses-name_2 = vl_texto.
partneraddresses-name_3 = vl_texto.
partneraddresses-name_4 = vl_texto.
partneraddresses-langu = 'E'.
APPEND partneraddresses.
DATA: vl_cantidad LIKE bapisditm-target_qty.
vl_cantidad = 1.
order_item_in-itm_number = 10.
order_item_in-material = 'HONORARIOS'.
order_item_in-ref_doc = '0900000019'.
order_item_in-ref_doc_it = 10.
order_item_in-ref_doc_ca = 'M'.
APPEND order_item_in.
order_schedules_in-itm_number = 10.
order_schedules_in-req_qty = vl_cantidad.
APPEND order_schedules_in.
order_text-text_id = 'Z001'.
order_text-ITM_NUMBER = ''.
order_text-langu = 'EN'.
order_text-text_line = 'Hola, CARACOLAcola'.
APPEND order_text.
order_text-text_id = 'Z001'.
order_text-langu = 'EN'.
order_text-text_line = 'Adios caracol'.
APPEND order_text.
order_text-itm_number = '000010'.
order_text-text_id = '0001'.
order_text-langu = 'EN'.
order_text-text_line = 'Hola, POSICIÓN'.
APPEND order_text.
extensionin-structure = 'BAPE_VBAK'.
extensionin-valuepart1 = ' BCL 7'.
APPEND extensionin.
order_cfgs_ref-posex = '10'.
order_cfgs_ref-config_id = '10'.
order_cfgs_ref-root_id = '00000001'.
append order_cfgs_ref.
CALL FUNCTION 'ZBAPI_SALESORDER_CREATEFROMDT2'
EXPORTING
 SALESDOCUMENTIN = salesdocument
 order_header_in = order_header_in
 ORDER_HEADER_INX = order_header_inx
SENDER =
BINARY_RELATIONSHIPTYPE =
INT_NUMBER_ASSIGNMENT =
BEHAVE_WHEN_ERROR =
LOGIC_SWITCH =
TESTRUN =
CONVERT = ' '
IMPORTING
 salesdocument = salesdocument
TABLES
 return = return
 order_items_in = order_item_in
ORDER_ITEMS_INX =
 order_partners = order_partners
 order_schedules_in = order_schedules_in
ORDER_SCHEDULES_INX =
 order_conditions_in = order_conditions_in
ORDER_CONDITIONS_INX =
 ORDER_CFGS_REF = order_cfgs_ref
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =
ORDER_CCARD =
 order_text = order_text
ORDER_KEYS =
 extensionin = extensionin
 partneraddresses = partneraddresses
PERFORM report TABLES return.
*DATA: salesdocument LIKE bapivbeln-vbeln.
*DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
*refresh return.
*CALL FUNCTION 'BAPI_SALESDOCUMENT_COPY'
EXPORTING
 salesdocument = '0400000191'
 documenttype = 'ZA04'
TESTRUN = ' '
IMPORTING
 SALESDOCUMENT_EX = salesdocument
TABLES
 RETURN = return
*PERFORM report TABLES return.
*write: / salesdocument.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT =
IMPORTING
RETURN =
*& Form report
 text
 -->P_MENSAJE text
FORM report TABLES p_mensaje STRUCTURE bapiret2.
DATA: vl_mensaje TYPE string.
LOOP AT return.
 CLEAR vl_mensaje.
 MESSAGE ID return-id
 TYPE return-type
 NUMBER return-number
 INTO vl_mensaje
 WITH return-message_v1
 return-message_v2
 return-message_v3
 return-message_v4.
 WRITE: / vl_mensaje.
ENDLOOP.
ENDFORM. " report

Hi Manuel,
There are some function modules which is there to copy the order details. I am not sure about the function module name. But you can search in SE37. But bapi for creating the sales order does not have the functionality of copying the data from one document to another document.
You can try using this function module.
BAPI_SALESDOCUMENT_COPY
Data will be copied based on the copy control routines that is set between the two document types.
Thanks,
Arun

Charge sales order value with a minimum value

Dear All,
I have one requirement where I would like to charge my sales order value with a minimum value. For example, a minimum sales order value requirements are set at $1,400.00 (the minimum values can be different based on the different materials) per order, if the value of the order exceeds $1,400.00, therefore no minimum fee is applied or displayed and the customer is charged the actual value of the order; if the value of the order is less than the minimum thus the customer is charged the minimum. We also can set the minimum as quantity.
Is there any standard functionality through which this can be done.. or any suggestion?
Your help is highly appreciated.
Thanks and best regards,
Jo

You can maintain the Condition Record with Condition Type as AMIW wrt to Division & Price Group.You can change the Accesses as per your requirements.
Best Regards,
Ankur

Valuated Sales order stock with CO Production Order

Dear All,
Our clinet is manifatcuring cables and having 2 plants, for one plant we have configured PP module so we are arriving valuated sales order stock, for another plant we didnt configured PP module so we planned CO production order, but where as we are not meeting our ultimate goal i.e; valuated sales order stock.
So please guide me how to arrive valuated sales order stock with CO Production Order.
Thanks & Regards
Narasimham T

Valuated sales order stock is not dependent on PP, so you should be able to still to use it. The requirements class associated with the sales order item determines whether the item is valuated sales order stock and it also determines the valuation method. If you do not have Boms and routings in this plant you can still value the line item based on the material valuation in the material master. You can also value it based on a unit cost estimate that can be created seperately for the sales order item. Justt make the desired settings in the requirement class.
thanks,

Throw Information message for sale order created with value less that 5$

Hi all,
I am basically an abaper, I have got a requirement in SD. The requirement is any sales order created with value less that 5$, should be prompted with an error message saying the minimum order value should be more than 5$. Could any one help me on this.
Thanks in advance,
shiv

userexit_save_document_prepare,main program - sapmv45a, issue an error message if your document value is less than 5$ (VBAK-NETWR) but check if your order has any non-rejected item, I would not issue this message if all items are rejected:
loop at xvbap where updkz ne 'D' and abgru = ' '.
exit.
endloop.
if sy-subrc = 0. "-you have at least one non-rejected, non-deleted item.
NOTE: sapmv45a works NOT only for orders, so please check document types in your logic which are relevant to your messge only (VBAK-VBTYP and/or VBAK-AUART).

Combining 2 Sales Orders - 'Complete' with 'Partial' Delivery into 1 Delv

Hi folks,
I have a typical requirement from my client and it is as follows:
My client want to combine 'Sales Orders' marked with 'Complete Delivery' indicator(VBAK-AUTLF check-box is checked) at the Header -> Shipping, with Sales Orders marked for 'Partial Delivery' (VBAK-AUTLF is not checked) in the Header-> Shipping.
Although all the other business conditions/fields values at the Header levels,like Ship-To_party, Shipping Conditions, Incoterms, etc. are same across both these Sales Orders; SAP as a standard Business Process Flow, doesnot allow COMBINING of 2 such orders into a SINGLE Delivery, since their 'Headers' seem to differ for that ONE field value.
I have searched through all user-exits, SAP Help forums as well as OSS notes to get a solution to this problem but could not find any (bad luck).
Will anyone of you who has come across this particular scenario or know a way to get around this problem, be able to contribute with his/her ideas? I would be
grateful, thanks in advance.
Regards,
Shripad

Hi iim nava,
Thanks for your reply.
However in our case, the system does throw that error, when i try to combine the second order (partial) into the delivery created for the first order (complete).Here is the log for your reference, when I try to add the second(partial so items) into the delivery created for the first (complete delivery SO):
Diagnosis
 Item 000010 cannot be shipped in the same delivery with the
 other items in the document because the header data (AUTLF)
 is different. The field AUTLF for the item has the value &4,
 yet in the delivery it has X.
System Response
 The system issues this message if a delivery split is
 necessary.
 This message either appears in the collective processing log
 or during creation of outbound deliveries from projects or
 for subcontracting. It informs you that the item specified
 will be shipped in a delivery other than the delivery that
 includes the other items from the same document. If there was
 a general problem with shipment of the delivery, a different
 message appears.
 If this message appears when you are creating an outbound
 delivery with reference to a sales order in the foreground,
 it indicates that the order item cannot be shipped with the
 current outbound delivery.
By any chance, did you actually try simulating my scenario in your system. If you have and the same works fine in your system, then pls help me by sending your 'copy control' settings, to help me compare. We run SAP 4.6 and my settings for copy control are as follows:
LF <-> OR (Header):
 Data Transfer (VBAK) = 001 [HEADER]
 Data Transfer HU = 000 [blank]
 Order Requirements (VBAK) = 001 [HEADER]
 Combination Requirements = 651 [051 w/o Comp dlv]
LF <-> OR <-> TAN (Item):
 Item Data = 101 [ITEM]
 Order Requirements (VBAK) = 101 [ITEM]
 Business Data = 2 [BUSINESS DATA]
 Buss Data Reqmt = 151 [COMBINATION]
Hope the feedback can you will help me solve my problem. Thanks once again.
Regards,
Shripad

CO46 report not displaying all sales orders

Dear all
We are not able to get details of all sales orders in CO46..(All item categories and different sales order types).Screen remains blank while executing..It doesn't show line items-Overview screen..
can u please tell us the reason for the same
Is it to do with sales order type or item category...How do we bring all sales orders in this report
Regards
sudha

Hi
I think this report only shows the sales order that have diract relation to a Production Order. The other Sales Order are not showed
If you want a report for all sales order, try VA05 or SD01
Hope this helps
Roger

Sales order BOM with component price

Dear All,
In PP module is there any report sales order BOM with component price?
please help
regards,
Anwar Shaikh
SAP PP / QM

Hi Anwar,
Please see if the below link is helpful to your cause.
[Recalculate the price of the sales order;
Regards,
Abhay Kapase

Urgent!!!Need code to fetch all sales order data and download to flat file

urgent!!!Need code to fetch all sales order data and download to flat file

 D A T A B A S E T A B L E S *
TABLES: vbak, "Sales Document: Header Data
 VBAP, "Sales Document: Item Data
 MARA,VAPMA,VBPA,VBLB,VBEP,
 VBKD. "Murali Poli .
 I N T E R N A L T A B L E S *
Internal table to hold the Delphi material numbers file
DATA: BEGIN OF tbl_matnr OCCURS 0,
 matnr LIKE mara-matnr, "Material number
 END OF tbl_matnr.
Internal table to hold customer cross ref data
DATA: BEGIN OF TBL_CUST_SA OCCURS 0,
 OLD_KUNNR LIKE KNA1-KUNNR, "Old Customer
 OLD_VKORG LIKE A004-VKORG, "Old Sales organisation
 OLD_VTWEG LIKE A004-VTWEG, "Old Distribution channel
 NEW_KUNNR LIKE KNA1-KUNNR, "New Customer
 NEW_VKORG LIKE A004-VKORG, "New Sales organisation
 NEW_VTWEG LIKE A004-VTWEG, "New Distribution channel
 PARVW LIKE VBPA-PARVW , "Partner function
END OF TBL_CUST_SA.
Internal table to check the material numbers of the input file
DATA: tbl_mara LIKE tbl_matnr OCCURS 0 WITH HEADER LINE.
Work area to hold the header record
DATA: BEGIN OF w_sa_header,
 recordtype(1), "Record type
 schedulingagreement(4), "SA Type
 contractreference(10), "Contract Reference
 salesorg(4), "Sales Organization
 distrchannel(2), "Distribution channel
 division(2), "Sales division
 PONUMBER(35), "Purchase order number"gsbhondave
 soldtoparty(12), "Sold-to party
 shiptoparty(12), "Ship-to party
 collectivenumber(10), "Collective number
 description(40), "Description
 roundqty(13), "Rounding Qty
 pdsi(4), "PDI
 correctiondeliverydate(8), "Correction Delivery Dt
 correctionqty(13), "Correction Qty
 cumulativereceivedqty(13), "Cumulative Received Qty
 forecastdeliveryschedule(17), "Forecast Delivery Schedule
 forecastdelscheddate(8), "Forecast Delivery Schedule Dt
 jitdeliveryschedule(17), "JIT Delivery Schedule
 jitdeliveryscheduledate(8), "JIT Delivery Schedule Dt
 materialnumber(18), "Material number
 plant(4), "Plant
 item_category(4), "Item Category
 suppliercode(15), "Supplier code
 scac(4), "SCAC
 deloc(12), "DELOC
 pkg_id(12), "Packaging ID
 catno(30), "Ultimate Cust Part
 lgort(4), "Storage Location
 vstel(4), "Shipping point
Adding fields by Murali Poli
 VSBED(2), "Shipping conditions
 INCO1(3), "Incoterms (part 1)
 INCO2(28), "Incoterms (part 2)
 ZECN(1), "Engineering Change Letter
End of Adding fields by Murali Poli
 END OF w_sa_header.
Work area to hold the forecast record
DATA: BEGIN OF w_sa_forecast,
 recordtype(1), "Record Type
 dateformat(1), "Date format
 forecastdate(8), "Forecast date
 forecastorderqty(13), "Order Qty
 END OF w_sa_forecast.
Work area to hold the jit record
DATA: BEGIN OF w_sa_jit,
 recordtype(1), "Record Type
 dateformat(1), "Date format
 jitdate(8), "JIT date
 jittime(6), "JIT Time
 jitorderqty(13), "Order Qty
 END OF w_sa_jit.
Internal table to hold the Extracted data
DATA: BEGIN OF tbl_record OCCURS 0,
 record_type,
 DATA(400), " changed from 325 to 400
 END OF tbl_record.
Internal table to capture the errors
DATA: BEGIN OF tbl_error OCCURS 0,
 error_text(135),
 END OF tbl_error.
Internal table to hold the records of VBAP_VAPMA
DATA: BEGIN OF tbl_vbap_vapma OCCURS 0,
VBELN LIKE VAPMA-VBELN, "Sales and distribution document number
POSNR LIKE VAPMA-POSNR, "Item number
AUART LIKE VAPMA-AUART, "SA Type
VKORG LIKE VAPMA-VKORG, "Sales Organization
VTWEG LIKE VAPMA-VTWEG, "Distribution channel
SPART LIKE VAPMA-SPART, "Division
KUNNR LIKE VAPMA-KUNNR, "Sold-to
 plavo like vbap-plavo, "PDI
MATNR LIKE VAPMA-MATNR, "Material number
WERKS LIKE VAPMA-WERKS, "Plant
TRVOG LIKE VAPMA-TRVOG, "Transaction group
VBTYP LIKE VBAK-VBTYP, "SD document category "Murali Poli
VSBED LIKE VBAK-VSBED, "Shipping conditions "Murali Poli
BSTNK LIKE VBAK-BSTNK, " Purchase order number " gsbhondave
KTEXT LIKE VBAK-KTEXT,
VGBEL LIKE VBAP-VGBEL, "Reference document no
ABLFZ LIKE VBAP-ABLFZ, "Rounding qty
PSTYV LIKE VBAP-PSTYV, "Item category
LGORT LIKE VBAP-LGORT, "Storage location
VSTEL LIKE VBAP-VSTEL, "Shipping point
END OF TBL_VBAP_VAPMA.
DATA: BEGIN OF TBL_VBAP OCCURS 0,
VBELN LIKE VAPMA-VBELN,
POSNR LIKE VAPMA-POSNR,
VGBEL LIKE VBAP-VGBEL,
ABLFZ LIKE VBAP-ABLFZ,
PSTYV LIKE VBAP-PSTYV,
LGORT LIKE VBAP-LGORT,
VSTEL LIKE VBAP-VSTEL,
END OF TBL_VBAP.
Adding by Murali Poli
DATA:BEGIN OF TBL_VBKD OCCURS 0,
 VBELN LIKE VBKD-VBELN,
 POSNR LIKE VBKD-POSNR,
 INCO1 LIKE VBKD-INCO1,
 INCO2 LIKE VBKD-INCO2,
 END OF TBL_VBKD.
End by Murali Poli
Internal table to hold temporarily the records of VBAP_VAPMA
DATA: tbl_vbap_vapma_temp LIKE tbl_vbap_vapma OCCURS 0 WITH HEADER LINE.
Internal table to hold the records of VBPA
DATA: BEGIN OF tbl_vbpa OCCURS 0,
 vbeln LIKE vbpa-vbeln, "Sales and distribution
 "document number
 posnr LIKE vbpa-posnr, "Item number
 parvw LIKE vbpa-parvw, "SP Partner type
 kunnr LIKE vbpa-kunnr, "Customer number
 lifnr LIKE vbpa-lifnr, "SCAC code "DN3K923909
 END OF tbl_vbpa.
Internal table to hold the records of VBLB (Forecast)
DATA: BEGIN OF tbl_vblb_forecast OCCURS 0,
 vbeln LIKE vblb-vbeln,
 posnr LIKE vblb-posnr,
 abart LIKE vblb-abart, "Release type
 abefz LIKE vblb-abefz, "Cumulative Quantity
 "Received by Customer
 labnk LIKE vblb-labnk, "Delivery schedule
 abrdt LIKE vblb-abrdt, "Deivery date
 gjkun LIKE vblb-gjkun, "Current fiscal year
 vjkun LIKE vblb-vjkun, "Previous fiscal year
 END OF tbl_vblb_forecast.
Internal table to hold the records of VBLB (JIT)
DATA: BEGIN OF tbl_vblb_jit OCCURS 0,
 vbeln LIKE vblb-vbeln,
 posnr LIKE vblb-posnr,
 abart LIKE vblb-abart, "Release type
 abefz LIKE vblb-abefz, "Cumulative Quantity
 "Received by Customer
 labnk LIKE vblb-labnk, "Delivery schedule
 abrdt LIKE vblb-abrdt, "Deivery date
 gjkun LIKE vblb-gjkun, "Current fiscal year
 vjkun LIKE vblb-vjkun, "Previous fiscal year
 END OF tbl_vblb_jit.
Internal table to hold the Forecast Schedule lines
DATA: BEGIN OF tbl_vbep_forecast OCCURS 0,
 vbeln LIKE vbep-vbeln, "Sales document
 posnr LIKE vbep-posnr, "Item number
 etenr LIKE vbep-etenr, "Schedule line
 edatu LIKE vbep-edatu, "Schedule line date
 ezeit LIKE vbep-ezeit, "Arrival time "DN3K923909
 wmeng LIKE vbep-wmeng, "Order quantity in sales units
 prgrs LIKE vbep-prgrs, "Date type (day, week, month, interval)
 abart LIKE vbep-abart, "Release type "DN3K923909
 END OF tbl_vbep_forecast.
Internal table to hold the JIT Schedule lines
DATA: BEGIN OF tbl_vbep_jit OCCURS 0,
 vbeln LIKE vbep-vbeln, "Sales document
 posnr LIKE vbep-posnr, "Item number
 etenr LIKE vbep-etenr, "Schedule line
 edatu LIKE vbep-edatu, "Schedule line date
 ezeit LIKE vbep-ezeit, "Arrival time
 wmeng LIKE vbep-wmeng, "Order quantity in sales units
 prgrs LIKE vbep-prgrs, "Date type (day, week, month, interval)
 abart LIKE vbep-abart, "Release type "DN3K923909
 END OF tbl_vbep_jit.
Internal table for Long texts
DATA: tbl_tline LIKE tline OCCURS 0 WITH HEADER LINE.
 V A R I A B L E S *
DATA: v_count TYPE i,
 V_REPID LIKE SY-REPID,
 w_eins LIKE vbap-umvkz VALUE 1,
 v_cumulative_deli_qty LIKE vblb-abefz,
 v_text_name LIKE thead-tdname,
 v_week LIKE scal-week,
 v_count_h TYPE i, "Count of header records
 v_count_f TYPE i, "Count of Forecast records
 v_count_j TYPE i, "Count of JIT records
 v_count_t TYPE i. "Count of Shipping instructions
TYPES: unixfile LIKE rlgrap-filename,
 unixdir LIKE rlgrap-filename.
DATA: v_file1 TYPE unixfile,
 v_file2 TYPE unixfile.
DATA: tbl_dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE.
*data tbl_cust_sa.
 S E L E C T - O P T I O N S / P A R A M E T E R S *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
 Valid-to date
PARAMETER:
 p_gueen like vbak-gueen obligatory,
 Correction Delivery date
 P_DELDT LIKE VBAK-GUEEN OBLIGATORY.
Begin of Changes - TIR-40266
 Plant
SELECT-OPTIONS: s_werks FOR vbap-werks.
*SD document category
SELECT-OPTIONS: S_VBTYP FOR VBAK-VBTYP OBLIGATORY." Murali Poli
 Sales organization
SELECT-OPTIONS: S_VKORG FOR VBAK-VKORG OBLIGATORY.
End of Changes - TIR-40266
SELECTION-SCREEN SKIP 1.
PARAMETER: r1 RADIOBUTTON GROUP rg1.
 Material numbers file
PARAMETER: P_FILE1 LIKE RLGRAP-FILENAME.
PARAMETER: P_FILE6 LIKE RLGRAP-FILENAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(32) text-003.
SELECTION-SCREEN POSITION 33.
 SD SA Extract file
PARAMETER: P_FILE2 LIKE RLGRAP-FILENAME
DEFAULT 'C:\sd_sa_extract.txt'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 2.
PARAMETER: r2 RADIOBUTTON GROUP rg1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(32) text-004.
SELECTION-SCREEN POSITION 33.
PARAMETER: p_path1 TYPE unixdir OBLIGATORY DEFAULT '/tmp/'.
SELECTION-SCREEN END OF LINE.
 Material numbers file
PARAMETER: PU_FILE1 LIKE RLGRAP-FILENAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(32) text-003.
SELECTION-SCREEN POSITION 33.
 SD SA Extract file
PARAMETER: PU_FILE2 LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(64) text-005.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
 A T S E L E C T I O N S C R E E N E V E N T S *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
v_repid = syst-repid.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = v_repid
 CHANGING
 file_name = p_file1
 EXCEPTIONS
 mask_too_long = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e009.
Message shown as 'Error while getting the file name'
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE6.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = v_repid
 CHANGING
 FILE_NAME = P_FILE6
 EXCEPTIONS
 mask_too_long = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e009.
Message shown as 'Error while getting the file name'
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file2.
v_repid = syst-repid.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = v_repid
 CHANGING
 file_name = p_file2
 EXCEPTIONS
 mask_too_long = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE e009.
Message shown as 'Error while getting the file name'
ENDIF.
AT SELECTION-SCREEN ON RADIOBUTTON GROUP rg1.
IF r1 = 'X'.
 IF p_file1 = '' OR p_file2 = ''.
 MESSAGE w000 WITH 'Please select a PC file'.
 ENDIF.
 LOOP AT SCREEN.
 IF screen-name = 'P_FILE1' OR
 screen-name = 'P_FILE2'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ELSEIF r2 = 'X'.
 PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
 PERFORM get_value USING 'PU_FILE1' CHANGING pu_file1.
 PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
 PERFORM get_value USING 'PU_FILE2' CHANGING pu_file2.
 IF pu_file1 = '' OR pu_file2 = ''.
 MESSAGE w000 WITH 'Please select a UNIX file'.
 LOOP AT SCREEN.
 IF screen-name = 'PU_FILE1' OR
 screen-name = 'PU_FILE2'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pu_file1.
PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
PERFORM get_value USING 'PU_FILE1' CHANGING pu_file1.
PERFORM popup_unix_filename CHANGING p_path1 pu_file1.
PERFORM set_value USING 'P_PATH1' p_path1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pu_file2.
PERFORM get_value USING 'P_PATH1' CHANGING p_path1.
PERFORM get_value USING 'PU_FILE2' CHANGING pu_file2.
PERFORM popup_unix_filename CHANGING p_path1 pu_file2.
PERFORM set_value USING 'P_PATH1' p_path1.
 T O P - O F - P A G E *
TOP-OF-PAGE.
PERFORM delphi_header(z_delphi_header_footer)
 USING
 'E & S SD SCHEDULING AGREEMENTS EXTRACT DATA'(016)
 space
 sy-linsz.
 S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
IF r1 = 'X'.
 PERFORM upload_data_from_pc_files.
ELSEIF r2 = 'X'.
 PERFORM upload_data_from_unix_files.
ENDIF.
PERFORM check_input_data.
PERFORM get_sd_sa_data.
 E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
PERFORM process_data.
 S U B - R O U T I N E S *
*& Form get_value
FORM get_value USING value(p_fieldname)
 CHANGING value(p_fieldvalue).
IF v_repid IS INITIAL.
 v_repid = syst-repid.
ENDIF.
REFRESH: tbl_dynpfields.
CLEAR: tbl_dynpfields.
tbl_dynpfields-fieldname = p_fieldname.
APPEND tbl_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = v_repid
 dynumb = '1000'
 TABLES
 dynpfields = tbl_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF syst-subrc = 0.
 READ TABLE tbl_dynpfields INDEX 1.
 p_fieldvalue = tbl_dynpfields-fieldvalue.
ENDIF.
REFRESH: tbl_dynpfields.
ENDFORM. " get_value
 FORM POPUP_UNIX_FILENAME *
Pops up dialog box to explore the unix filesystem and select a file *
--> VALUE(P_PATH) Path where to start exploring from *
--> VALUE(P_FILENAME) Default filename in the dialog box *
FORM popup_unix_filename CHANGING value(p_path) TYPE unixdir
 value(p_filename) TYPE unixfile.
DATA: v_length TYPE i,
 v_filename TYPE unixfile,
 v_directory LIKE draw-filep,
 v_file LIKE draw-filep.
IF p_filename(1) = '/' OR
 p_path IS INITIAL.
 v_filename = p_filename.
ELSE.
 v_length = strlen( p_path ) - 1.
 IF p_path+v_length(1) <> '/'.
 CONCATENATE p_path '/' INTO p_path.
 ENDIF.
 CONCATENATE p_path p_filename INTO v_filename.
ENDIF.
CALL FUNCTION 'Z_UNIX_FILENAME_GET'
 EXPORTING
 def_filename = v_filename
 mask = ',*.'
 mode = 'G'
 title = 'Get UNIX file...'
 IMPORTING
 filename = v_filename
 EXCEPTIONS
 inv_winsys = 1
 no_batch = 2
 selection_cancel = 3
 selection_error = 4
 OTHERS = 5.
CHECK syst-subrc = 0.
CALL FUNCTION 'CV120_SPLIT_PATH'
 EXPORTING
 pf_path = v_filename
 IMPORTING
 pfx_path = v_directory
 pfx_file = v_file
 EXCEPTIONS
 OTHERS = 1.
CHECK syst-subrc = 0.
IF v_directory = p_path.
 p_filename = v_file.
ELSE.
 p_filename = v_filename.
ENDIF.
ENDFORM.
 FORM SET_VALUE *
Sets the value of a field on the selection screen. *
--> VALUE(P_FIELDNAME) Name of the field on the selection screen*
--> VALUE(P_FIELDVALUE) Value of the field *
FORM set_value USING value(p_fieldname)
 value(p_fieldvalue).
IF v_repid IS INITIAL.
 v_repid = syst-repid.
ENDIF.
CLEAR: tbl_dynpfields.
tbl_dynpfields-fieldname = p_fieldname.
tbl_dynpfields-fieldvalue = p_fieldvalue.
APPEND tbl_dynpfields.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
 EXPORTING
 dyname = v_repid
 dynumb = '1000'
 TABLES
 dynpfields = tbl_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 undefind_error = 7
 OTHERS = 8.
ENDFORM.
*& Form upload_data_from_pc_files
This subroutine is used to upload the data from input files
FORM upload_data_from_pc_files.
REFRESH: tbl_matnr.
CLEAR: tbl_matnr.
Upload the data from Delphi Materials file
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 filename = p_file1
 filetype = 'DAT'
 TABLES
 data_tab = tbl_matnr
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
IF sy-subrc <> 0.
 MESSAGE e008 WITH 'Materials file'.
Message shown as "Error while reading Materials file"
ENDIF.
IF sy-subrc = 0 AND tbl_matnr[] IS INITIAL.
 MESSAGE e013 WITH 'Materials'.
Message shown as "No records found in Materials file"
ENDIF.
DELETE tbl_matnr WHERE matnr = ''.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = P_FILE6
 filetype = 'DAT'
 TABLES
 DATA_TAB = TBL_CUST_SA
 EXCEPTIONS
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 OTHERS = 10.
IF sy-subrc <> 0.
 MESSAGE E008 WITH 'Customer/Sales Area Cross Reference file'.
Message shown as "Error while reading Materials file"
ENDIF.
ENDFORM. " upload_data_from_pc_files
*& Form upload_data_from_unix_files
This subroutine is used to upload the data from UNIX files
FORM upload_data_from_unix_files.
REFRESH: tbl_matnr.
CLEAR: tbl_matnr.
Get the complete filename for the Materials file
PERFORM get_full_filename USING pu_file1 CHANGING v_file1.
Open the Materials file
PERFORM open_dataset USING v_file1 'I' 'T' 1.
CHECK syst-subrc = 0.
Read the materials file
DO.
 READ DATASET v_file1 INTO tbl_matnr.
 IF syst-subrc <> 0.
 EXIT.
 ENDIF.
Populate the read data into the internal table
 APPEND tbl_matnr.
ENDDO.
PERFORM close_dataset USING v_file1.
ENDFORM. " upload_data_from_unix_files
 FORM GET_FULL_FILENAME *
Uses the logical path if necessary to get the full filename *
If the filename already has a directory specified, that itself will *
be the full filename *
Else the logical path for Conversions will be prefixed to the given *
filename *
FORM get_full_filename USING value(p_file) TYPE unixfile
 CHANGING value(p_fullfile) TYPE unixfile.
DATA: v_length TYPE i.
IF p_file(1) = '/' OR
 p_path1 IS INITIAL.
 p_fullfile = p_file.
ELSE.
 v_length = strlen( p_path1 ) - 1.
 IF p_path1+v_length(1) = '/'.
 CONCATENATE p_path1 p_file INTO p_fullfile.
 ELSE.
 CONCATENATE p_path1 '/' p_file INTO p_fullfile.
 ENDIF.
ENDIF.
ENDFORM.
 FORM OPEN_DATASET *
Opens dataset in the specified mode *
--> VALUE(P_FILE) Name of file to be opened *
--> VALUE(P_IOMODE) 'I' for Input / 'O' for Output *
--> VALUE(P_BTMODE) 'T' for Text / 'B' for Binary *
--> VALUE(P_LEVEL) If set to > 1, will write error message to *
 list Else will supress the error message but *
 will be available in SYST-MSGV1 *
FORM open_dataset USING value(p_file) TYPE unixfile
 value(p_iomode) TYPE c
 value(p_btmode) TYPE c
 value(p_level) TYPE i.
DATA: v_rc LIKE syst-subrc,
 v_msg(100),
 v_listmsg(100).
IF p_iomode = 'O'.
 IF p_btmode = 'B'.
 OPEN DATASET p_file FOR OUTPUT IN BINARY MODE MESSAGE v_msg.
 ELSE.
 OPEN DATASET p_file FOR OUTPUT IN TEXT MODE MESSAGE v_msg.
 ENDIF.
ELSE.
 IF p_btmode = 'B'.
 OPEN DATASET p_file FOR INPUT IN BINARY MODE MESSAGE v_msg.
 ELSE.
 OPEN DATASET p_file FOR INPUT IN TEXT MODE MESSAGE v_msg.
 ENDIF.
ENDIF.
IF syst-subrc <> 0.
 v_rc = syst-subrc.
 syst-msgv1 = v_msg.
 IF p_level > 0.
 CONCATENATE 'Unable to open' p_file
 INTO v_listmsg
 SEPARATED BY space.
 IF p_iomode = 'O'.
 CONCATENATE v_listmsg 'for Output'
 INTO v_listmsg
 SEPARATED BY space.
 ELSE.
 CONCATENATE v_listmsg 'for Input'
 INTO v_listmsg
 SEPARATED BY space.
 ENDIF.
 IF p_iomode = 'B'.
 CONCATENATE v_listmsg 'in Binary mode'
 INTO v_listmsg
 SEPARATED BY space.
 ELSE.
 CONCATENATE v_listmsg 'in Text mode'
 INTO v_listmsg
 SEPARATED BY space.
 ENDIF.
 WRITE: / v_listmsg.
 WRITE: /3 '--', v_msg.
 syst-subrc = v_rc.
 ENDIF.
ENDIF.
ENDFORM.
 FORM CLOSE_DATASET *
Closes dataset *
--> VALUE(P_FILE) Name of the file to be closed *
FORM close_dataset USING value(p_file) TYPE unixfile.
CLOSE DATASET p_file.
ENDFORM.
*& Form check_input_data
This subroutine is used to check the data from X Ref files
FORM check_input_data.
DESCRIBE TABLE tbl_matnr LINES v_count.
Use the material conversion routine to pad the material numbers
with zeroes
LOOP AT tbl_matnr.
 CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
 EXPORTING
 input = tbl_matnr-matnr
 IMPORTING
 output = tbl_matnr-matnr
 EXCEPTIONS
 length_error = 1
 OTHERS = 2.
 TRANSLATE tbl_matnr-matnr TO UPPER CASE.
 MODIFY tbl_matnr.
ENDLOOP.
Get the materials from SAP database using the input materials
IF NOT tbl_matnr[] IS INITIAL.
 SORT tbl_matnr BY matnr.
 SELECT matnr FROM mara
 INTO TABLE tbl_mara
 FOR ALL ENTRIES IN tbl_matnr
 WHERE matnr = tbl_matnr-matnr.
 SORT tbl_mara BY matnr.
ENDIF.
Check the existence of input materials in SAP database
LOOP AT tbl_matnr.
 READ TABLE tbl_mara WITH KEY matnr = tbl_matnr-matnr
 BINARY SEARCH.
 IF sy-subrc <> 0.
 CONCATENATE 'Material' tbl_matnr-matnr 'does not exist'
 INTO tbl_error-error_text
 SEPARATED BY space.
 APPEND tbl_error.
 CLEAR tbl_error.
 DELETE tbl_matnr.
 ENDIF.
ENDLOOP.
ENDFORM. " check_input_data
*& Form get_sd_sa_data
This subroutine is used to get the SD Scheduling data from database
FORM get_sd_sa_data.
*begin of changes - DN3K923909
DATA: tbl_vbep LIKE tbl_vbep_forecast OCCURS 0 WITH HEADER LINE,
 tbl_vblb LIKE tbl_vblb_forecast OCCURS 0 WITH HEADER LINE.
*end of changes - ND3K923909
REFRESH: tbl_vbap_vapma, tbl_vbpa, tbl_vblb_forecast,
 tbl_vblb_jit, tbl_vbep_forecast, tbl_vbep_jit.
CLEAR: tbl_vbap_vapma, tbl_vbpa, tbl_vblb_forecast,
 tbl_vblb_jit, tbl_vbep_forecast, tbl_vbep_jit.
Get the Scheduling Agreements
SELECT avbeln aposnr
 a~vgbel
 AAUART avkorg avtweg aspart a~kunnr
 a~ablfz
 A~MATNR
 a~pstyv
 a~werks
 a~lgort
 a~vstel
 ATRVOG BVBTYP BVSBED BBSTNK B~KTEXT
 FROM VAPMA AS A INNER JOIN VBAK AS B
 ON bvbeln = avbeln
 INTO TABLE tbl_vbap_vapma
 FOR ALL ENTRIES IN tbl_mara
 WHERE a~matnr = tbl_mara-matnr
Begin of Changes - TIR-40266
 AND a~vkorg IN s_vkorg
 AND a~werks IN s_werks
End of Changes - TIR-40266
 AND A~TRVOG = '3'
 AND B~VBTYP IN S_VBTYP. "Murali Poli
 and a~abgru = ''
 and b~gueen >= p_gueen.
SORT tbl_vbap_vapma BY vbeln posnr.
IF NOT tbl_vbap_vapma[] IS INITIAL.
 SELECT VBELN POSNR VGBEL ABLFZ PSTYV LGORT VSTEL FROM VBAP
 INTO TABLE TBL_VBAP FOR ALL ENTRIES IN TBL_VBAP_VAPMA
 WHERE VBELN = TBL_VBAP_VAPMA-VBELN
 AND POSNR = TBL_VBAP_VAPMA-POSNR.
 LOOP AT TBL_VBAP_VAPMA.
 READ TABLE TBL_VBAP WITH KEY VBELN = TBL_VBAP_VAPMA-VBELN
 POSNR = TBL_VBAP_VAPMA-POSNR.
 IF SY-SUBRC = 0 .
 TBL_VBAP_VAPMA-VBELN = TBL_VBAP-VBELN.
 TBL_VBAP_VAPMA-POSNR = TBL_VBAP-POSNR.
 TBL_VBAP_VAPMA-VGBEL = TBL_VBAP-VGBEL.
 TBL_VBAP_VAPMA-ABLFZ = TBL_VBAP-ABLFZ.
 TBL_VBAP_VAPMA-PSTYV = TBL_VBAP-PSTYV.
 TBL_VBAP_VAPMA-LGORT = TBL_VBAP-LGORT.
 TBL_VBAP_VAPMA-VSTEL = TBL_VBAP-VSTEL.
 MODIFY TBL_VBAP_VAPMA .
 ENDIF.
 ENDLOOP.
 tbl_vbap_vapma_temp[] = tbl_vbap_vapma[].
*--Begin of UnCommentDIR-51476-DN3K932648
-------------- Begin of Comment ----------- CCR-50124 DN3K928457
 SORT tbl_vbap_vapma_temp BY vbeln.
 DELETE ADJACENT DUPLICATES FROM tbl_vbap_vapma COMPARING vbeln.
-------------- End of Comment ----------- CCR-50124 DN3K928457
*--End of UnCommentDIR-51476-DN3K932648
*--Begin of CommentDIR-51476-DN3K932648
-------------- Begin of Insert ----------- CCR-50124 DN3K928457
Duplicate Line Items are being deleted.
 SORT tbl_vbap_vapma BY vbeln posnr.
DELETE ADJACENT DUPLICATES FROM tbl_vbap_vapma COMPARING vbeln posnr.
The field for contract in SA is being modified for uniqueness
 loop at tbl_vbap_vapma.
 clear: v_vgbel, v_posnr.
 v_vgbel = tbl_vbap_vapma-vgbel.
 v_posnr = tbl_vbap_vapma-posnr.
 if not v_vgbel is initial .
 shift v_vgbel left deleting leading v_zero.
 shift v_posnr left deleting leading v_zero.
 v_posnr = v_posnr / 10.
 condense: v_vgbel, v_posnr.
 if v_posnr le 9.
 concatenate v_vgbel '0' v_posnr into v_vgbel.
 else.
 concatenate v_vgbel v_posnr into v_vgbel.
 endif.
 endif.
 tbl_vbap_vapma-vgbel = v_vgbel.
 modify tbl_vbap_vapma.
 endloop.
-------------- End of Insert ----------- CCR-50124 DN3K928457
*--End of CommentDIR-51476-DN3K932648
Get the Partner details
 select vbeln posnr parvw kunnr
*Start of Murali Poli
 SELECT VBELN POSNR INCO1 INCO2
 INTO TABLE TBL_VBKD
 FROM VBKD
 FOR ALL ENTRIES IN TBL_VBAP_VAPMA
 WHERE VBELN = TBL_VBAP_VAPMA-VBELN.
 and posnr = tbl_vbap_vapma-posnr.
*End of Murali Poli
 SELECT vbeln posnr parvw kunnr lifnr "DN3K923909
 INTO TABLE tbl_vbpa
 FROM vbpa
 FOR ALL ENTRIES IN tbl_vbap_vapma_temp
 WHERE vbeln = tbl_vbap_vapma_temp-vbeln
 AND parvw IN ('WE', 'SP').
*begin of changes - DN3K923909
 select vbeln posnr abart abefz labnk abrdt gjkun vjkun
 into table tbl_vblb_forecast
 from vblb
 for all entries in tbl_vbap_vapma
 where vbeln = tbl_vbap_vapma-vbeln
 and posnr = tbl_vbap_vapma-posnr
 and abrli = '0000'
 and abart = '1'.
 SELECT vbeln posnr abart abefz labnk abrdt gjkun vjkun
 INTO TABLE tbl_vblb
 FROM vblb
 FOR ALL ENTRIES IN tbl_vbap_vapma
 WHERE vbeln = tbl_vbap_vapma-vbeln
 AND posnr = tbl_vbap_vapma-posnr
 AND abrli = '0000'
 AND abart IN ('1','2').
 SELECT vbeln posnr etenr edatu ezeit wmeng prgrs abart
 INTO TABLE tbl_vbep
 FROM vbep
 FOR ALL ENTRIES IN tbl_vbap_vapma
 WHERE vbeln = tbl_vbap_vapma-vbeln
 AND posnr = tbl_vbap_vapma-posnr
 AND abart IN ('1','2').
Get the current Forecast delivery schedule
 tbl_vblb_forecast[] = tbl_vblb[].
 DELETE tbl_vblb_forecast WHERE abart = '2'.
Get the current Forecast Schedule lines
 tbl_vbep_forecast[] = tbl_vbep[].
 DELETE tbl_vbep_forecast WHERE abart = '2'.
Get the current JIT delivery Schedule
 select vbeln posnr abart abefz labnk abrdt gjkun vjkun
 into table tbl_vblb_jit
 from vblb
 for all entries in tbl_vbap_vapma
 where vbeln = tbl_vbap_vapma-vbeln
 and posnr = tbl_vbap_vapma-posnr

Sales order costing with dependencies

Hello,
we have implemented a make-to-order sales order costing with configured materials.
The routing will be generated automatically based on dependencies.
Our problem: Costing is not based on the standard values shown in the routing operations but on values coming from dependencies. In some cases these values are different.
Our sales order costing should based in all cases on the standard values shown in the routing without using dependencies.
How can we realize this, any idea ?
Thanks you for your answers
Nitza

6.0
found somewhere in the coding that it's not possible for configured materials, what really surprise me

All sales orders synch with websales salesperson

Similar Messages

Maybe you are looking for