Read table-control of sales order items in VA01 / VA02
Hi.
I need to redetermine the plant in a sales order in USEREXIT_MOVE_FIELD_TO_VBAP. To do this, I need to read the content of all the items, but internal table XVBAP is not filled with all the items information at this point of code. Do you know how can I read the content of the table control of the items from this user exit? Do you know any other alternative solution?
The table-control is in screen 4900, and its name is TCTRL_U_ERF_AUFTRAG.
Thanks in advance.
You have probably two options:
1. use CHECK_VBAP: CHECK_VBAP triggers more often than the MOVE_VBAP. This should cover the scenarios when you add the new item and because of that the Plant would be redetermined for the items which are not changed. You need to take care of the UPDKZ, if use the CHECK_VBAP.
2. Determine the plant in the SAVE_DOCUMENT_PREPARE. You can call certain subroutines over the XVBAP Loop and update the required field in VBAP. This is suggested by some OSS Note but I don't recall the note #.
LOOP AT xvbap.
ivbap-tabix = sy-tabix.
svbap-tabix = sy-tabix.
PERFORM vbap_bearbeiten_vorbereiten(sapfv45p).
PERFORM vbap_fuellen(sapfv45p).
"YOUR LOGIC
vbap-werks = '1111'.
PERFORM vbap_bearbeiten(sapfv45p).
PERFORM vbap_bearbeiten_ende(sapfv45p).
ENDLOOP.
Regards,
Naimesh Patel
Similar Messages
-
Add a new field in the item table control of sales order
Hi Experts,
We have created a new custom field in Material master table. Now, they want to add the custom field from material master to the last field of item control of sales order.
Please, let me know the steps to do it.
Regards,
M.SaravananHi,
take program: SAPMV45A
take screen 8459 and add the new field.
Also add the validation in the flow logic.
Refer
https://forums.sdn.sap.com/click.jspa?searchID=10547810&messageID=3132651
Regards
Kiran -
Table control in sales order screen(VA01)
Hi Guys,
I am trying to do table control i.e shifting columns as desired in the sales order, but not able to do it. can any one help me the process of shifting columns in sales order screen.
Example: Shifting customer rial matenumber column to Item cat column.
Thanks in advance,
Regards,
Vamsi.Hi Vamsi,
After changing the columns save it as a variant on the Item Detail screen on the right hand side you can see small barred icon above the vertical scroll bar click the same and save it as as variant in there and just keep that as a default screen variant. The same will be displayed all the time.
Reward points if it helps.
Regards,
Sreekanth -
Hi,
I am using BDC to ceate salesorder.I am able to create sales order for one item. But when I try it for multiple items, it is still creating a new sales order for each item. I am trying to loop the items but still it is creating a new sales order.I am also attaching my code. Can somebody look into it and tell me what should be done to loop the items.
DATA: BEGIN OF ITAB OCCURS 0,
KUNNR1 LIKE KUAGV-KUNNR,
KUNNR2 LIKE KUWEV-KUNNR,
KETDAT LIKE RV45A-KETDAT,
DWERK LIKE RV45A-DWERK,
ZTERM LIKE VBKD-ZTERM,
INCO1 LIKE VBKD-INCO1,
INCO2 LIKE VBKD-INCO2,
AUDAT LIKE RV45A-KETDAT,
VKBUR LIKE VBAK-VKBUR,
BZIRK LIKE VBKD-BZIRK,
IHREZ LIKE VBKD-IHREZ,
MABNR LIKE RV45A-MABNR,
KWMENG LIKE RV45A-KWMENG,
END OF ITAB.
include bdcrecx1.
PARAMETERS: PATH(128) DEFAULT 'C:\sales.txt'.
start-of-selection.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = path
FILETYPE = 'DAT'
TABLES
DATA_TAB = ITAB
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
perform open_group.
loop at itab.
perform bdc_dynpro using 'SAPMV45A' '0101'.
perform bdc_field using 'BDC_CURSOR'
'VBAK-AUART'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'VBAK-AUART'
'ZOR'.
perform bdc_field using 'VBAK-VKORG'
'1000'.
perform bdc_field using 'VBAK-VTWEG'
'10'.
perform bdc_field using 'VBAK-SPART'
'10'.
perform bdc_dynpro using 'SAPMV45A' '4001'.
perform bdc_field using 'BDC_OKCODE'
'KKAU'.
perform bdc_field using 'KUAGV-KUNNR'
itab-kunnr1.
perform bdc_field using 'KUWEV-KUNNR'
itab-kunnr2.
perform bdc_field using 'RV45A-KETDAT'
itab-ketdat.
perform bdc_field using 'RV45A-KPRGBZ'
'D'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-ZTERM'
itab-zterm.
perform bdc_field using 'VBKD-INCO1'
ITAB-INCO1.
perform bdc_field using 'VBKD-INCO2'
ITAB-INCO2.
perform bdc_dynpro using 'SAPMV45A' '4002'.
perform bdc_field using 'BDC_OKCODE'
'=T\05'.
perform bdc_field using 'BDC_CURSOR'
'VBKD-BZIRK'.
perform bdc_field using 'VBAK-AUDAT'
ITAB-AUDAT.
perform bdc_field using 'VBAK-VKBUR'
ITAB-VKBUR.
perform bdc_field using 'VBAK-WAERK'
'USD'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-BZIRK'
ITAB-BZIRK.
perform bdc_dynpro using 'SAPMV45A' '4002'.
perform bdc_field using 'BDC_OKCODE'
'=T\08'.
perform bdc_field using 'BDC_CURSOR'
'VBKD-ZLSCH'.
perform bdc_field using 'VBKD-KTGRD'
'01'.
perform bdc_field using 'VBKD-ZLSCH'
'C'.
perform bdc_field using 'VBAK-ZUONR'
'Open Sales order'.
perform bdc_dynpro using 'SAPMV45A' '4002'.
perform bdc_field using 'BDC_OKCODE'
'=T\10'.
perform bdc_field using 'BDC_CURSOR'
'GVS_TC_DATA-REC-PARTNER(05)'.
perform bdc_field using 'GV_FILTER'
'PARALL'.
perform bdc_field using 'GVS_TC_DATA-REC-PARTNER(05)'
'3838'.
perform bdc_dynpro using 'SAPMV45A' '4002'.
perform bdc_field using 'BDC_OKCODE'
'=T\13'.
perform bdc_field using 'BDC_CURSOR'
'VBKD-BSARK'.
perform bdc_field using 'VBKD-BSARK'
'CU01'.
perform bdc_field using 'VBKD-IHREZ'
ITAB-IHREZ.
perform bdc_dynpro using 'SAPMV45A' '4002'.
perform bdc_field using 'BDC_OKCODE'
'/EBACK'.
perform bdc_field using 'BDC_CURSOR'
'VBAK-ZZLEAT'.
perform bdc_field using 'VBAK-ZZWARR'
'12346C'.
perform bdc_field using 'VBAK-ZZFABW'
'F14689'.
perform bdc_field using 'VBAK-ZZWARX'
'12012005'.
perform bdc_field using 'VBAK-ZZLEAT'
'CGUYFIU'.
perform bdc_dynpro using 'SAPMV45A' '4001'.
perform bdc_field using 'BDC_OKCODE'
'=PKO1'.
perform bdc_field using 'KUAGV-KUNNR'
itab-kunnr1.
perform bdc_field using 'KUWEV-KUNNR'
itab-kunnr2.
perform bdc_field using 'RV45A-KETDAT'
itab-ketdat.
perform bdc_field using 'RV45A-KPRGBZ'
'D'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-ZTERM'
itab-zterm.
perform bdc_field using 'VBKD-INCO1'
ITAB-INCO1.
perform bdc_field using 'VBKD-INCO2'
ITAB-INCO2.
perform bdc_field using 'BDC_CURSOR'
'RV45A-CCODE(01)'.
perform bdc_field using 'RV45A-MABNR(01)'
ITAB-MABNR.
perform bdc_field using 'RV45A-KWMENG(01)'
'1'.
perform bdc_field using 'VBAP-WERKS(01)'
itab-dwerk.
perform bdc_dynpro using 'SAPMV45A' '4001'.
perform bdc_field using 'BDC_OKCODE'
'=PKO1'.
perform bdc_field using 'KUAGV-KUNNR'
itab-kunnr1.
perform bdc_field using 'KUWEV-KUNNR'
itab-kunnr2.
perform bdc_field using 'RV45A-KETDAT'
itab-ketdat.
perform bdc_field using 'RV45A-KPRGBZ'
'D'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-ZTERM'
itab-zterm.
perform bdc_field using 'VBKD-INCO1'
ITAB-INCO1.
perform bdc_field using 'VBKD-INCO2'
ITAB-INCO2.
perform bdc_field using 'BDC_CURSOR'
'VBAP-POSNR(01)'.
perform bdc_field using 'RV45A-VBAP_SELKZ(01)'
'X'.
perform bdc_dynpro using 'SAPMV45A' '5003'.
perform bdc_field using 'BDC_OKCODE'
'/EBACK'.
Loop.
perform bdc_dynpro using 'SAPMV45A' '4001'.
perform bdc_field using 'BDC_OKCODE'
'=PKO1'.
perform bdc_field using 'KUAGV-KUNNR'
itab-kunnr1.
perform bdc_field using 'KUWEV-KUNNR'
itab-kunnr2.
perform bdc_field using 'RV45A-KETDAT'
itab-ketdat.
perform bdc_field using 'RV45A-KPRGBZ'
'D'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-ZTERM'
itab-zterm.
perform bdc_field using 'VBKD-INCO1'
ITAB-INCO1.
perform bdc_field using 'VBKD-INCO2'
ITAB-INCO2.
perform bdc_field using 'BDC_CURSOR'
'RV45A-CCODE(02)'.
perform bdc_field using 'BDC_CURSOR'
'VBAP-WERKS(02)'.
perform bdc_field using 'RV45A-MABNR(02)'
ITAB-MABNR.
perform bdc_field using 'RV45A-KWMENG(02)'
'1'.
perform bdc_field using 'VBAP-WERKS(02)'
itab-dwerk.
perform bdc_dynpro using 'SAPMV45A' '4001'.
perform bdc_field using 'BDC_OKCODE'
'=PKO1'.
perform bdc_field using 'KUAGV-KUNNR'
itab-kunnr1.
perform bdc_field using 'KUWEV-KUNNR'
itab-kunnr2.
perform bdc_field using 'RV45A-KETDAT'
itab-ketdat.
perform bdc_field using 'RV45A-KPRGBZ'
'D'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-ZTERM'
itab-zterm.
perform bdc_field using 'VBKD-INCO1'
ITAB-INCO1.
perform bdc_field using 'VBKD-INCO2'
ITAB-INCO2.
perform bdc_field using 'BDC_CURSOR'
'VBAP-POSNR(01)'.
perform bdc_field using 'RV45A-VBAP_SELKZ(01)'
'X'.
perform bdc_dynpro using 'SAPMV45A' '5003'.
perform bdc_field using 'BDC_OKCODE'
'/EBACK'.
endloop.
perform bdc_dynpro using 'SAPMV45A' '4001'.
perform bdc_field using 'BDC_OKCODE'
'=SICH'.
perform bdc_field using 'KUAGV-KUNNR'
itab-kunnr1.
perform bdc_field using 'KUWEV-KUNNR'
itab-kunnr2.
perform bdc_field using 'RV45A-KETDAT'
ITAB-KETDAT.
perform bdc_field using 'RV45A-KPRGBZ'
'D'.
perform bdc_field using 'VBKD-PRSDT'
'11/17/2005'.
perform bdc_field using 'VBKD-ZTERM'
ITAB-ZTERM.
perform bdc_field using 'VBKD-INCO1'
ITAB-INCO1.
perform bdc_field using 'VBKD-INCO2'
ITAB-INCO2.
perform bdc_field using 'BDC_CURSOR'
'RV45A-MABNR(02)'.
perform bdc_transaction using 'VA01'.
endloop.
Perform close_group.Hi,
Check the below code its excatly same code which u want.
REPORT Z90VR_UPLOAD_SALESORDERS
NO STANDARD PAGE HEADING
LINE-COUNT 65(2)
LINE-SIZE 160.
TABLES
Tables : knb1, "Customer Master (Company Code)
mara, "General Material Data
knvv, "Customer Master Sales Data
pa0003. "HR Master Record: Infotype 0003
INTERNAL TABLES
Internal table to store flat file records
Data : Begin of it_file occurs 0,
record(600) type c,
end of it_file.
Internal table to store upload records
Data : begin of it_sales occurs 0,
vbeln like vbak-vbeln,
auart like vbak-auart,
vkorg like vbak-vkorg,
vtweg like vbak-vtweg,
spart like vbak-spart,
kunnr like kna1-kunnr,
kunnr_old like kna1-kunnr,
Ship like kna1-kunnr,
ship_old like kna1-kunnr,
bstnk like vbak-bstnk,
bstdk like vbak-bstdk,
matnr like mara-matnr,
kwmeng(20) type C,
fdate like vbak-audat,
vstel like vbap-vstel,
route like vbap-route,
Qty(20) type c,
lgort like vbap-lgort,
zzshipto like vbak-zzshipto,
custext(132) type c,
shptext(132) type c,
flag(1) type c,
zzretdat like vbak-zzretdat,
augru like vbak-augru,
emp(10) type c,
end of it_sales.
Internal table to hold BDC data
Data begin of it_bdcdata occurs 0.
include structure bdcdata.
data end of it_bdcdata.
Internal table to store error messages
Data : it_bdcmsg like bdcmsgcoll occurs 0 with header line.
Internal table to store error records.
Data : begin of it_error occurs 0,
vbeln like vbak-vbeln,
kunnr like kna1-kunnr,
ship like kna1-kunnr,
matnr like mara-matnr,
pernr like pa0003-pernr,
msg(75) type c,
end of it_error.
DATA
Data : wk_auart like vbak-auart, "Sales document type
wk_vkorg like vbak-vkorg, "Sales organization
wk_vtweg like vbak-vtweg, "Distribution channel
wk_spart like vbak-spart, "Division
wk_kunnr like kna1-kunnr, "Customer number(sold to party)
wk_kunnr_old like kna1-kunnr, "OldCustomer no.(sold to party)
wk_Ship like kna1-kunnr, "Customer number(ship to party)
wk_ship_old like kna1-kunnr, "OldCustomer no.(ship to party)
wk_bstnk like vbak-bstnk, "Customer purchase order number
wk_vbeln like vbak-vbeln, "Old sales Document Number
wk_bstdk like vbak-bstdk, "Customer purchase order date
wk_matnr like mara-matnr, "Material number
wk_kwmeng(17) type c, "Order quantity
wk_fdate like vbak-audat, "First Date
wk_vstel like vbap-vstel, "Shipping point/receiving point
wk_route like vbap-route, "Route
wk_Qty(17) type c, "Stock quantity
wk_lgort like vbap-lgort, "Storage location
wk_zzshipto like vbak-zzshipto, "RBJP-T: Ship-to-party code
wk_Custext(132) type c, "Comment for customer
wk_shptext(132) type c, "Comment for warehouse
wk_flag(1) type c, "Order ombnation flag
wk_zzretdat like vbak-zzretdat, "RBJP-T Stock Return Deadline
wk_augru like vbak-augru, "Order reason
wk_emp(10) type c. "sales Employee
*--- Variable to store customer comment text & Shipping Instruction text
Data : W_shptext(132) type c, "To store customer comment text
w_custext(132) type c, "To store Shipping Instruction text
wk_error_rec like sy-tabix, "To store no of error records
wk_Success_rec like sy-tabix. "To store of Success records
Constants *
Data : c_mode(1) type c value 'N'.
SELECTION-SCREEN LAYOUT
selection-screen : skip 2.
selection-screen begin of block blk1 with frame title text-001.
selection-screen : skip 1.
parameter : p_file like rlgrap-filename default 'C:\SalesBackorder.csv'
obligatory,
p_spt(1) type c default ',' obligatory.
selection-screen end of block blk1.
At Selection Screen
*--- Provide F4 help for the File Path
at selection-screen on value-request for p_file.
call function 'KD_GET_FILENAME_ON_F4'
EXPORTING
mask = ',.csv'
static = 'X'
CHANGING
file_name = p_file.
Start of Selection
START-OF-SELECTION.
*--- Clearing internal tables & Variables used
perform clear_tables.
*--- Upload the file into internal table.
perform upload_input_file.
*--- Split the records upladed from the file.
perform split_records.
*--- Check the record values are valid
perform check_records.
*--- Check for the valid customer data sales data
perform valid_customer_data.
*--- Populating the BDC Table
perform populate_bdcdata.
End of Selection
END-OF-SELECTION.
clear wk_error_rec.
Describe table it_error lines wk_error_rec.
*--- Display error report list
perform display_error_list.
TOP-OF-PAGE *
TOP-OF-PAGE.
*--- Printing Column headings
perform column_headings.
*& Form upload_input_file
Uploading the file into internal table
FORM upload_input_file.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = p_file
FILETYPE = 'ASC'
TABLES
DATA_TAB = it_file
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 i000(z1) with 'Error while Uploading the file'.
ENDIF.
ENDFORM. " upload_input_file
*& Form split_records
Spliting the upload records from file records at ',' or ';' into
respective filed values
FORM split_records.
data : wk_file(500) type c. " Variable to store record
If not it_file[] is initial.
loop at it_file from 2.
clear wk_file.
WK_file = it_file-record.
split the records at ','
split WK_file at p_spt into wk_auart
wk_vkorg
wk_vtweg
wk_spart
wk_kunnr
wk_kunnr_old
wk_Ship
wk_ship_old
wk_bstnk
wk_vbeln
wk_bstdk
wk_matnr
wk_kwmeng
wk_fdate
wk_vstel
wk_route
wk_Qty
wk_lgort
wk_zzshipto
wk_Custext
wk_shptext
wk_flag
wk_zzretdat
wk_augru
wk_emp.
move the records into internal table
move : wk_auart to it_sales-auart,
wk_vkorg to it_sales-vkorg,
wk_vtweg to it_sales-vtweg,
wk_spart to it_sales-spart,
wk_kunnr to it_sales-kunnr,
wk_kunnr_old to it_sales-kunnr_old,
wk_Ship to it_sales-ship,
wk_ship_old to it_sales-ship_old,
wk_bstnk to it_sales-bstnk,
wk_vbeln to it_sales-vbeln,
wk_bstdk to it_sales-bstdk,
wk_matnr to it_sales-matnr,
wk_kwmeng to it_sales-kwmeng,
wk_fdate to it_sales-fdate,
wk_vstel to it_sales-vstel,
wk_route to it_sales-route,
wk_Qty to it_sales-qty,
wk_lgort to it_sales-lgort,
wk_zzshipto to it_sales-zzshipto,
wk_Custext to it_sales-custext,
wk_shptext to it_sales-shptext,
wk_flag to it_sales-flag,
wk_zzretdat to it_sales-zzretdat,
wk_augru to it_sales-augru,
wk_emp to it_sales-emp.
append it_sales.
clear it_sales.
endloop. "loop at it_file from 2.
endif. "If not it_file[] is initial
ENDFORM. " split_records
*& Form check_records
Check the values exist in check table if not delete the records
and append into internal error table records
FORM check_records.
If not it_sales[] is initial.
*--Sorting the internal table on old sales document number uploaded
sort it_sales by vbeln.
loop at it_sales.
*--- Check the old sold to party exist & if exist then get the new sold
*--- to party Number
if not it_sales-kunnr_old is initial.
clear knb1-kunnr.
select single kunnr
from knb1
into knb1-kunnr
where altkn = it_sales-kunnr_old.
if sy-subrc = 0.
it_sales-kunnr = knb1-kunnr.
else.
it_error-vbeln = it_sales-vbeln.
it_error-kunnr = it_sales-kunnr_old.
it_error-msg = text-010.
append it_error.
clear it_error.
delete it_sales where vbeln = it_sales-vbeln.
clear it_sales.
continue.
endif. "if sy-subrc = 0.
endif. "if not it_sales-kunnr_old is initial.
*--- Check the old ship to party exist & if exist then get the new ship
*--- to party Number
if not it_sales-ship_old is initial.
clear knb1-kunnr.
select single kunnr
from knb1
into knb1-kunnr
where altkn = it_sales-ship_old.
if sy-subrc = 0.
it_sales-ship = knb1-kunnr.
else.
it_error-vbeln = it_sales-vbeln.
it_error-ship = it_sales-ship_old.
it_error-msg = text-011.
append it_error.
clear it_error.
delete it_sales where vbeln = it_sales-vbeln.
clear it_sales.
continue.
endif. "if sy-subrc = 0.
endif. "if not it_sales-ship_old is initial.
*--- Check the old matnr exist & if exist then get the new material
*--- number
if not it_sales-matnr is initial.
clear mara-matnr.
select single matnr
from mara
into mara-matnr
where bismt = it_sales-matnr.
if sy-subrc = 0.
it_sales-matnr = mara-matnr.
else.
it_error-vbeln = it_sales-vbeln.
it_error-matnr = it_sales-matnr.
it_error-msg = text-012.
append it_error.
clear it_error.
delete it_sales where vbeln = it_sales-vbeln.
clear it_sales.
continue.
endif. "if sy-subrc = 0.
endif. "if not it_sales-matnr is initial.
*---- Check the Sales Employee Number exist in master table PA0003
if not it_sales-emp is initial.
clear pa0003-pernr.
select single pernr
from pa0003
into pa0003-pernr
where pernr = it_sales-emp.
if sy-subrc ne 0.
it_error-vbeln = it_sales-vbeln.
it_error-pernr = it_sales-emp.
it_error-msg = text-013.
append it_error.
clear it_error.
delete it_sales where vbeln = it_sales-vbeln.
clear it_sales.
continue.
endif. "if sy-subrc = 0.
endif. "if not it_sales-emp is initial.
modify it_sales index sy-tabix.
clear it_sales.
endloop.
endif. "If not it_sales[] is initial.
ENDFORM. " check_records
*& Form populate_bdcdata
Populating BDCDATA Table & passing the data by calling
transaction 'VA01' to create Sales Orders
FORM populate_bdcdata.
Data : flag_item(1) type C. "Flag for populating Item details
*--- Sorting the internal table by old sales document number.
sort it_sales by vbeln.
If not it_sales[] is initial.
loop at it_sales.
clear : flag_item,
W_shptext,
w_custext.
W_shptext = it_sales-shptext.
w_custext = it_sales-custext.
*--- At new sales document number(old document number from file)
*--- populate the header data & first item details.
at new vbeln.
clear it_bdcdata.
refresh it_bdcdata.
read table it_sales index sy-tabix.
perform append_bdcdata using : 'X' 'SAPMV45A' '0101',
' ' 'VBAK-AUART' it_sales-auart,
' ' 'VBAK-VKORG' it_sales-vkorg,
' ' 'VBAK-VTWEG' it_sales-vtweg,
' ' 'VBAK-SPART' it_sales-spart,
' ' 'BDC_OKCODE' '/00',
'X' 'SAPMV45A' '4001',
' ' 'KUAGV-KUNNR' it_sales-kunnr.
if not it_sales-ship is initial.
perform append_bdcdata using ' ' 'KUWEV-KUNNR' it_sales-ship.
endif.
perform append_bdcdata using : ' ' 'VBKD-BSTKD' it_sales-bstnk,
' ' 'VBKD-BSTDK' it_sales-bstdk,
' ' 'VBAK-AUGRU' it_sales-augru,
' ' 'BDC_OKCODE' '=KZKU',
new logic.
'X' 'SAPMSSY0' '0120',
' ' 'BDC_CURSOR' '04/06',
' ' 'BDC_OKCODE' '=CHOO',
end of logic
'X' 'SAPMV45A' '4002'.
*--- Depending upon the sales document type (AUART) passing the RBJP-T
*--- Stock Return Deadline (ZZRETDAT) if Auart is 'ZRLB' or 'ZRKB' the
*--- passing the Stock Return Deadline Date.
if it_sales-auart = 'ZRLB' or
it_sales-auart = 'ZRKB'.
perform append_bdcdata using : ' ' 'VBAK-ZZRETDAT' it_sales-zzretdat.
endif.
perform append_bdcdata using : ' ' 'VBAK-ZZSHIPTO' it_sales-zzshipto,
' ' 'BDC_OKCODE' '=T\07',
'X' 'SAPMV45A' '4002',
' ' 'GVS_TC_DATA-REC-PARVW(06)' 'AF',
' ' 'GVS_TC_DATA-REC-PARTNER(06)'
it_sales-emp,
' ' 'BDC_OKCODE' '/EBACK'.
*---First Items details
perform append_bdcdata using :
'X' 'SAPMV45A' '4001',
' ' 'RV45A-ETDAT(01)' it_sales-fdate,
' ' 'RV45A-KWMENG(01)' it_sales-kwmeng,
' ' 'RV45A-MABNR(01)' it_sales-matnr,
' ' 'BDC_OKCODE' '/00',
'X' 'SAPMV45A' '4001',
' ' 'RV45A-VBAP_SELKZ(01)' 'X',
' ' 'BDC_OKCODE' '=PDE2',
'X' 'SAPMV45A' '4003',
' ' 'VBAP-LGORT' it_sales-lgort,
' ' 'VBAP-VSTEL' it_sales-vstel,
' ' 'VBAP-ROUTE' it_sales-route.
*--- If Order combination flag is 'X' then check box is made click else
*--- not click
If it_sales-flag = 'X'.
perform append_bdcdata using :
' ' 'VBKD-KZAZU' 'X'.
else.
perform append_bdcdata using :
' ' 'VBKD-KZAZU' ' '.
endif.
perform append_bdcdata using :
' ' 'BDC_OKCODE' '/EBACK',
'X' 'SAPMV45A' '4001'.
flag_item = 'X'.
endat.
*---- From 2 items.
if flag_item = ' '.
perform append_bdcdata using :
' ' 'BDC_OKCODE' 'POAN',
'X' 'SAPMV45A' '4001',
' ' 'RV45A-ETDAT(02)' it_sales-fdate,
' ' 'RV45A-KWMENG(02)' it_sales-kwmeng,
' ' 'RV45A-MABNR(02)' it_sales-matnr,
' ' 'BDC_OKCODE' '/00',
'X' 'SAPMV45A' '4001',
' ' 'RV45A-VBAP_SELKZ(02)' 'X',
' ' 'BDC_OKCODE' '=PDE2',
'X' 'SAPMV45A' '4003',
' ' 'VBAP-LGORT' it_sales-lgort,
' ' 'VBAP-VSTEL' it_sales-vstel,
' ' 'VBAP-ROUTE' it_sales-route.
If it_sales-flag = 'X'.
perform append_bdcdata using :
' ' 'VBKD-KZAZU' 'X'.
else.
perform append_bdcdata using :
' ' 'VBKD-KZAZU' ' '.
endif.
perform append_bdcdata using :
' ' 'BDC_OKCODE' '/EBACK',
'X' 'SAPMV45A' '4001',
' ' 'BDC_OKCODE' '/00',
'X' 'SAPMV45A' '4001'.
endif. "if flag = ' '.
*--- At end of the sales document saving the records
at end of vbeln.
read table it_sales index sy-tabix.
perform append_bdcdata using :
' ' 'BDC_OKCODE' '=SICH'.
*--- calling transaction 'VA01'
perform call_transaction.
endat.
endloop. "loop at it_sales.
endif. "If not it_sales[] is initial.
ENDFORM. " populate_bdcdata
*& Form append_bdcdata
Populating the BDC table for using in Call Transaction
Form append_bdcdata using dynbegin fld1 fld2.
*---Identifying as new screen
IF DYNBEGIN = 'X' .
MOVE: DYNBEGIN TO IT_BDCDATA-DYNBEGIN,
FLD1 TO IT_BDCDATA-PROGRAM,
FLD2 TO IT_BDCDATA-DYNPRO.
ELSE.
*---Identifying a field name and field value
MOVE: FLD1 TO IT_BDCDATA-FNAM,
FLD2 TO IT_BDCDATA-FVAL.
ENDIF.
APPEND IT_BDCDATA.
CLEAR IT_BDCDATA.
ENDFORM. " append_bdcdata
*& Form call_transaction
text
FORM call_transaction.
*--- Data declaration for Local variables
Data : l_mess_lines type i, "variable for no of msg lines
l_msg_text(100) type c, "For capturing format message
l_newvbeln like vbak-vbeln, "For holding new sales Doc No
flag_text(1) type C value 'X'. "Flag for getting header text
*--- Internal Table to store header text & header structure
Data : it_tline like tline occurs 100 with header line,
it_tline1 like tline occurs 100 with header line,
t_thead like thead.
*--- Call transaction method
call transaction 'VA01'
using it_bdcdata
mode c_mode
UPDATE 'S'
messages into it_bdcmsg.
*--- If success then Populating the header text for Comment for
*--- Customer & Shipping Instruction
if sy-subrc eq 0 and
sy-msgty ne 'A' and
sy-msgty ne 'E' .
Incrementing the counter for success record
wk_success_rec = wk_success_rec + 1.
clear l_mess_lines.
describe table it_bdcmsg lines l_mess_lines.
read table it_bdcmsg index l_mess_lines.
*--- Formatting the Success message using Call Function 'FORMAT_MESSAGE'
perform format_message using l_msg_text.
clear l_newvbeln.
move it_bdcmsg-msgv2 to l_newvbeln.
*--- Padding with zeros for the new sales Ducument number created
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = l_newvbeln
IMPORTING
OUTPUT = l_newvbeln.
*--- The below logic is added because we can't update the Header Text
through Batch Input so we need to first create new sales documnet
number then get that sales document no & by using function module
SAVE_TEXT update the Header Text.
*--- Populating the header text for Comment for Customer & Shipping
*--- Instruction
clear it_tline.
refresh it_tline.
*--- Populating the header text for Comment for customer
it_tline-tdformat = '*'.
it_tline-tdline = w_custext.
append it_tline.
clear it_tline.
*--- Populating the header text for Shipping Instruction
it_tline-tdformat = '*'.
it_tline-tdline = w_shptext.
append it_tline.
clear it_tline.
loop at it_tline.
refresh it_tline1.
read table it_tline index sy-tabix.
it_tline1-tdformat = it_tline-tdformat.
it_tline1-tdline = it_tline-tdline.
append it_tline1.
clear it_tline1.
*--- for Comment for Customer ID
if flag_text = 'X'.
clear t_thead.
t_thead-tdobject = 'VBBK'.
t_thead-tdname = l_newvbeln.
t_thead-tdid = '0003'.
t_thead-tdspras = sy-langu.
endif. "if flag_text = 'X'.
*--- for Shipping Instruction ID
if flag_text = ' '.
clear t_thead.
t_thead-tdobject = 'VBBK'.
t_thead-tdname = l_newvbeln.
t_thead-tdid = '0012'.
t_thead-tdspras = sy-langu.
endif. "if flag_text = ' '.
*--- Save the text using Functional Module 'SAVE_TEXT'
perform save_text tables it_tline1
using t_thead.
clear flag_text.
endloop. "loop at it_tline.
else.
*--- If error then get the error message
clear l_mess_lines.
describe table it_bdcmsg lines l_mess_lines.
read table it_bdcmsg index l_mess_lines.
*--- Formatting the Error message using Call Function 'FORMAT_MESSAGE'
clear l_msg_text.
perform format_message using l_msg_text.
it_error-vbeln = it_sales-vbeln.
it_error-msg = l_msg_text.
append it_error.
clear it_error.
endif. "if sy-subrc eq 0 and
"sy-msgty ne 'A' and
clear it_bdcmsg.
refresh it_bdcmsg.
ENDFORM. " call_transaction
*& Form FORMAT_MESSAGE
Formating the system message
FORM FORMAT_MESSAGE USING P_DL_MSG_TEXT.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = SY-MSGID
LANG = SY-LANGU
NO = SY-MSGNO
V1 = SY-MSGV1
V2 = SY-MSGV2
V3 = SY-MSGV3
V4 = SY-MSGV4
IMPORTING
MSG = P_DL_MSG_TEXT
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
CONDENSE P_DL_MSG_TEXT.
ENDFORM. " FORMAT_MESSAGE
*& Form save_text
text
FORM save_text tables it_tline structure tline
using t_thead.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = t_thead
SAVEMODE_DIRECT = 'X'
TABLES
LINES = it_tline
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 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.
ENDFORM. " save_text
*& Form display_error_list
writing error list
FORM display_error_list.
If not it_error[] is initial.
sort it_error by vbeln.
loop at it_error.
write: /00 it_error-vbeln,
12 it_error-kunnr,
35 it_error-ship,
58 it_error-matnr,
88 it_error-msg.
if not it_error-pernr is initial.
write : 78 it_error-pernr.
endif.
endloop.
endif.
ENDFORM. " display_error_list
*& Form column_headings
writing Column Headings for errror records
FORM column_headings.
write : /00 text-002,
45 wk_success_rec.
write : /00 text-003,
45 wk_error_rec.
uline.
format color col_heading intensified.
write: /00 text-004,
12 text-005,
35 text-006,
58 text-007,
78 text-008,
88 text-009,
160 space.
format color col_heading intensified off.
uline.
ENDFORM. " column_headings
*& Form valid_customer_data
Check the combination of Customer number ,sales organisation,
Distribution channel & Division exist in Customer Master Sales
Data(KNVV) if not delete the old document number from internal
table
FORM valid_customer_data.
data : l_customer_text(50) type c.
if not it_sales[] is initial.
loop at it_sales.
*--- Check the combination of Customer number ,sales organisation,
*--- Distribution channel & Division exist in Customer Master Sales
*--- Data(KNVV)
clear : KNVV,
l_customer_text.
select single *
from knvv
into knvv
where Kunnr = It_sales-kunnr
and vkorg = it_sales-vkorg
and vtweg = it_sales-vtweg
and spart = it_sales-spart.
if sy-subrc ne 0.
it_error-vbeln = it_sales-vbeln.
concatenate text-014
it_sales-vkorg
it_sales-vtweg
it_sales-spart
text-015 into
l_customer_text separated by space.
it_error-msg = l_customer_text.
append it_error.
clear it_error.
delete it_sales where vbeln = it_sales-vbeln.
clear it_sales.
continue.
endif.
endloop.
endif. "if not it_sales[] is initial.
ENDFORM. " valid_customer_data
*& Form clear_tables
Clearing Internal table & variables
FORM clear_tables.
clear : it_file,
it_sales,
it_bdcdata,
it_bdcmsg,
it_error,
wk_success_rec,
wk_error_rec.
refresh : it_file,
it_sales,
it_bdcdata,
it_bdcmsg,
it_error.
ENDFORM. " clear_tables -
Increase sales order items on VA01 screen
Hi,
We have a requirement to increase the number of line items that can be displayed on the order input screen VA01. The user in question currently defaults to 12 line items but wants that increased to 15. This is to facilitate pasting in line items from a spreadsheet.
Thanks in advance for your help.
MikeMike, it is a resolution screen thing like the other poster said.
I tested this a few years ago on a 21 inch Engineering with the super detailed resolution and got somewhere around 38 sales lines to display.
That's about your only choice outside of using a BAPI and external file to populate lots of lines -
Reg sales order Header text VA01/VA02
Hi,
In VA01/VA02 ..
From menu bar
Goto -> Header -> Texts
In this texts tabstrip left side Form header, Header note1, Header note2 & Geo transmit status
These 4 elements are there.
Now the above 4 elements r working if u r double clicking on them, then u can enter the text.
but my requirement is that should work even if u press single click also...
How to achieve it..
Thanks in advance..
VRHi venkat,
can you please address my problem, as u got same problem like me... below is the details ...
I am facing some problem during the recording of hader text.. Details given below...
I need to do this by using BDC...
 VA01 Steps as follows:
1. Open VA01
o Enter G2 or L2 order Type
o Enter 9991 for Sales Org
o Enter 01 for Dist Channel
o Enter 99 for Division
2. Enter Customer SAP # from spreadsheet to ship to and sold to
(Enter some appropriate number)
3. Enter Material Code from spreadsheet to Material
(Enter some appropriate number)
4. Enter target quantity as 1
5. Enter Billing date as system date
6. Go to Sales Tab
7. Select Blank for billing block
8. Enter order reason 013 for G2 type or 012 for L2
9. Goto Header, Texts, Choose Invoice header text
10. Enter SVB# from file as well as Quarter Text from file in notes
11. Save
this is want i need to do in order to create invoice serivce request by using BDC.
I can able to get the fields till 8 th point ( i can able to write the program ), but from the 9 th point i m facing the problem..
Bcz it just i need to enter some text here..( may be it's bcz of click )
This is could not able to do it , can you please help me how can i do this ?
Please let me know if i m not clear with my explanation...
Looking forward for your response...
Regards,
Suresh... -
Billing Plan Tab required in Sales Order - Item Level
Hi,
I am trying to create a Sales Order, in which at Item level I also require Billing Plan Tab.
This is for scenario Periodic billing & milestone billing.
If you could also help with configuration & business process document of Periodic & milestone billing.
my email id is [email protected]
Thanks in advance.
Warm regards,
Rajesh BankaHi Rajesh Banka,
In sales order if you item category group is relevant for Billing Plan (Milestone) then you will get a billing plan tab for sales order item in Va01 T.code.
You can go to MM02 and change item category group of material to Milestone billing in Sales org2. and then try creating order for the item using va01, go to item level you will get the billing plan tab.
Reward if it helps
regards
srini -
To Add Two ZFields to sales order Item (Column) of VA01
Hi friends,
My requirement is to Add Two Zfields at column level of Sales order Item of VA01.
i found 8459 Screen Exit , but it will display in Additional Tab B .
And aslo I need to get the zfield values for every line item .
Example:
ITEM | MATERIAL | SERVICIABLE MATERIAL | Service type(zfield)|
10 |10000 | 10001 | Cleaning
15 |20000 |200001 | Repair
i hope u understand my query . so for each line item it will vary , i have to do the validation for all the line item fields.
Please help me Very urgent.
Thanks,
Veera...Transaction Code - VA01 Create Sales Order
Exit Name Description
SDTRM001 Reschedule schedule lines without a new ATP check
V45A0001 Determine alternative materials for product selection
V45A0002 Predefine sold-to party in sales document
V45A0003 Collector for customer function modulpool MV45A
V45A0004 Copy packing proposal
V45E0001 Update the purchase order from the sales order
V45E0002 Data transfer in procurement elements (PRreq., assembly)
V45L0001 SD component supplier processing (customer enhancements)
V45P0001 SD customer function for cross-company code sales
V45S0001 Update sales document from configuration
V45S0003 MRP-relevance for incomplete configuration
V45S0004 Effectivity type in sales order
V45W0001 SD Service Management: Forward Contract Data to Item
V46H0001 SD Customer functions for resource-related billing
V60F0001 SD Billing plan (customer enhancement) diff. to billing plan
Rewards if useful.
Minal -
Sale Order Item : Custom Field : Table Control
I have added two fields to sale order item table control in program SAPMV45A screen no . 4900. Now the field which i have added are working fine while creating sale order but while changing those fields are not changing.
condition is like this: the custom field are automatically filled by some logic and if the user want to change those field he will able to do. Now 1st condition is fine and when i change those field they will show the previous saved value inspite of changed value.
I have also added those field in additional data b tab in screen 8459 , there they are working fine but here the problem remains the same.Hi,
u can use BAPI_SALESORDER_CHANGE to update the values of those fields. for that u need to extend few tables and coding that u can get from the BAPI documentation. If not getting reply back. i can help u..
regards,
pavan. -
Sale Order Item Level Text Field which table and field
Hi,
Thanks for your prompt reply and best solution.
Can you please tell me one more thing, in sale order at item level the TEXT Field maintaining by user at transaction level now they want that field in one of the report, so can you please tell what is the table and field where i will get this sale order item level text details.Hello,
is this going to work for item level text as well.
can you tell how to proceed with this functional module
or is there any other thing required.Please elaborate to
understand better way.
You can check out two table in respect to Sales TEXT i.e. STXH (STXD SAPscript text file header) and STXL(SAPscript text file lines).
The best approach of tracing out the Text in respect to Sales Order would be to use the Function module READ_TEXT and put this FM in SE37 and execute with the following parameter.
Client
Text ID of text to be read
Language of text to be read
Name of text to be read
Object of text to be read
Archive handle
Text catalog local
When you are essentially looking to read item level Text with respect to Sales Order then your Text OBject would be VBBP.
Regards,
Sarthak -
How to read Sales order Item Text of item node?
Hi Sap Guru's,
I have urgent requirement, i want to read Sales order item text of item node.
can anybody give detail code.
Thanks in Advance,
Venkathi venkat,
take a look at this code
data:
git_line type standard table of tline.
data:
gwa_head type thead,
gwa_line type tline.
data:
v_first type c.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = '0002'
language = sy-langu
name = '1000000122000010'
object = 'VBBP'
IMPORTING
HEADER = gwa_head
tables
lines = git_line
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
loop at git_line into gwa_line.
at first.
move 'X' to v_first.
endat.
if v_first eq 'X'.
write: / gwa_line-tdline+10.
clear v_first.
else.
write: / gwa_line-tdline.
endif.
endloop. -
How to add line item to sales order item table?
Kindly help me the with the below requirement .
Add line item to sales order(va01) dynamically on click of button. The button is also custom created push button.
In the above requirement I have added the pushbutton to va01 tcode. But when I click on that button I need to add line item to sales order item table.
I tried a lot but I am not successful. If possible can u please help on this.
Regards,
RachelHi!
It's quite easy even in the standard SAP to add a line item for a customer order, I don't think it worth to develop a new button for this.
However if you wanted to add a line automatically, the you can do the following in the program MV45AFZZ, FORM USEREXIT_SAVE_DOCUMENT.
You can use similar code, but with some modifications.
DATA: lv_posnr.
LOOP AT xvbap.
MOVE xvbap-posnr TO lv_posnr. "get the last posnr
ENDLOOP.
ADD 10 TO lv_posnr.
MOVE 'XYZ' TO xvbap-matnr. "enter your material number here
MOVE lv_posnr TO xvbap-posnr.
* fill additinal field data in XVBAP if necessary
MOVE 'I' TO xvbap-updkz. "Insert line
APPEND xvbap.
Regards
Tamá -
How to read the Sales Order( Item ) System status?
Hi All,
My requirement is to display the System status of the sales order item*. When we go to the sales order display, if i double click on the line item , ii will lead to the next screen.Click on status tab,here we can see the Sytem staus. I would like to know the logic to read this sytem status ?
Thanks,
Suresh.read tables VBUK, VBUP for SD document status indicators
-
Table Name to take report of Open Sales Order items&its relevant GL Number.
Hi,
I wanted to take a report with Output as Open Sales Order Items and its relevant GL account numbers. is there any T Code in the Standard or atleast the table name.
I have already fetched the Open Sales Order Items from T code VA05, but i need the relevant GL account numbers also.
Any pointers on this will be appreciable.
Rgds,Hi
There are no standard reports where in you can fetch the data of the open sales order items and its G/L accounts with the output. But by creating your own report using LIS then it is possible
Regards
Srinath -
In which tables can I find the sales order item texts?
Experts,
In SD, we have texts on sales order item level. These texts can be filled manually or automatically via access sequences. My question is very simple: in which table can I find these texts? I want to extract them for a big number of sales orders.
Reward points if helpful answer.
Thankshi
try in
TVAPT Sales document item categories: Texts
TVAKT Sales Document Types: Texts
TVAUT Sales Documents: Order Reasons: Texts
TVAST Sales Document Blocking Reasons: Texts
Maybe you are looking for
-
Animated GIFs in BREEZE Presenter
Does anyone know a workaround for having animated gifs work in Breeze Presenter? Thanks.
-
Hello All. I'm facing a problem when I'm trying to start CDT after fresh installation of SAP BCM. SAP BCM was succesfully installed, configured and started. Also a certificate (.cer-file) from stand-alone root CA was installed on the server and bound
-
Which version of Adobe Acrobat works with Lion? I am using Acrobat Standard 7.0
I just upgraded to Lion and Acrobat Standard 7.0 will not work. Which version of Acrobat do I need? Can I upgrade or do I have to buy all over again? Thanks. Bill
-
Changing from Data to Audio disc burn
I can't change from a data disc burn to audio. I have gone throught the preferences to burn tab. It doesn't have an OK button.Once I close the window it goes back to data burn. Their is NO burn button in the upper right hand corner of the Itunes wind
-
Launch apple store from AIR app (IOS)
Hi, How I could launch the apple store from my flex AIR app? I need the tipical "go to app store" button... Thanks! Jorge