Table control in module program

hi,
i don't know about table control in module program.so please send the faq's ?

hi
ganapathi
Table Controls in ABAP Programs
To handle table controls in ABAP programs, you must declare a control in the declaration part of the program for each table control using the following statement:
CONTROLS .
if you only want to determine the row of the table control. SY´-SUBRC allows you to check if the cursor is placed in a row of a table control.
this is all information about table control still if u have any quiries my mailid is [email protected]
plzz reward if usefull
dont forget to reward

Similar Messages

Table control of Module Pool Program

Hi,
I need a help in the table control of Module pool.
Here I am using 40 columns in the table control. Out of 40, 30 columns are numeric type.
Now the client need only 5 columns total in the last row. I made it as per requirement.
But it is giving 5 columns total and the remaining 25 columns are filled zero value of total row.
Now the client doesnt want to display the zero for these 25 columns in the Total row.
Its very urgent. Please help on this.
Reward points will be providing for useful answers.
Advance Thanks 4 all.
Regards,
KBS REDDY

Hi,
In your PBO, inside LOOP ENDLOOP, have a module for screen modifications and for the last row that has totals, you set screen-invisible = 1 inside LOOP AT SCREEN. ENDLOOP.
For example,
If your screen has following PBO Logic,
MODULE ...
MODULE ...
LOOP ...
****New module here for screen modification if does not ****exist already.
 MODULE modify_screen.
ENDLOOP.
and then in MODULE modify_screen.
MODULE modify_screen.
****Basically check MATNR EQ 'TOTAL' or some thing like ****that
 IF <your condition for totals line>.
 LOOP AT SCREEN.
****Note instead of screen-name, you can assign a screen ****group to all columns w/o totals and then use
****SCREEN-GROUP1 EQ <your grp> logic
 IF screen-name EQ <your column name w/o totals>.
 screen-invisible = 1.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
 ENDIF.
ENDMODULE.
On another note, since you are already disabling this fields in the last row, you have all the screen modification logic already I guess, so just add SCREEN-INVISIBLE = 1 for all fields w/o totals..
Hope this helps..
Sri
Message was edited by: Srikanth Pinnamaneni

Write the syntax for declaring table control in dialog programming?

1) Write the syntax for declaring table control in dialog programming?
2) Write the syntax to call a selection screen in a modal dialog box?

hi,
check this code for table control.
DIALOG PROGRAMMING
TABLE CONTROL
IN SE51
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
LOOP AT ITVBAK WITH CONTROL TABCTRL. ## TABLE CONTROL NAME
ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
LOOP AT ITVBAK.
ENDLOOP.
IN PAI FLOW LOGIC
PROGRAM YMODULE_PR4 .
TABLES : KNA1, VBAK.
DATA : BEGIN OF ITVBAK OCCURS 0,
       VBELN LIKE VBAK-VBELN,
       ERDAT LIKE VBAK-ERDAT,
       ERNAM LIKE VBAK-ERNAM,
       NETWR LIKE VBAK-NETWR,
       END OF ITVBAK.
CONTROLS : TABCTRL TYPE TABLEVIEW USING SCREEN '0100'.
TO ACTIVATE SCROLL BAR
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN SPACE.
      SELECT VBELN ERDAT ERNAM NETWR
        FROM VBAK
        INTO TABLE ITVBAK
       WHERE KUNNR = KNA1-KUNNR.
      TABCTRL-LINES = SY-DBCNT.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module STATUS_0100 OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100 OUTPUT

How to find the current line in the table control in module pool ?

How to find the current line in the table control in module pool ?
This is an urgent requirement? please do help me.

refer to this example
REPORT demo_dynpro_tabcont_loop_at.
CONTROLS flights TYPE TABLEVIEW USING SCREEN 100.
DATA: cols LIKE LINE OF flights-cols,
lines TYPE i.
DATA: ok_code TYPE sy-ucomm,
 save_ok TYPE sy-ucomm.
DATA: itab TYPE TABLE OF demo_conn.
 TABLES demo_conn.
SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE itab.
LOOP AT flights-cols INTO cols WHERE index GT 2.
cols-screen-input = '0'.
MODIFY flights-cols FROM cols INDEX sy-tabix.
ENDLOOP.
CALL SCREEN 100.
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
DESCRIBE TABLE itab LINES lines.
flights-lines = lines.
ENDMODULE.
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE read_table_control INPUT.
MODIFY itab FROM demo_conn INDEX flights-current_line.
ENDMODULE.
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
 WHEN 'TOGGLE'.
 LOOP AT flights-cols INTO cols WHERE index GT 2.
 IF cols-screen-input = '0'.
 cols-screen-input = '1'.
 ELSEIF cols-screen-input = '1'.
 cols-screen-input = '0'.
 ENDIF.
MODIFY flights-cols FROM cols INDEX sy-tabix.
ENDLOOP.
 WHEN 'SORT_UP'.
 READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.
 IF sy-subrc = 0.
 SORT itab STABLE BY (cols-screen-name+10) ASCENDING.
 cols-selected = ' '.
MODIFY flights-cols FROM cols INDEX sy-tabix.
 ENDIF.
 WHEN 'SORT_DOWN'.
 READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.
 IF sy-subrc = 0.
 SORT itab STABLE BY (cols-screen-name+10) DESCENDING.
 cols-selected = ' '.
MODIFY flights-cols FROM cols INDEX sy-tabix.
 ENDIF.
 WHEN 'DELETE'.
 READ TABLE flights-cols INTO cols
 WITH KEY screen-input = '1'.
 IF sy-subrc = 0.
 LOOP AT itab INTO demo_conn WHERE mark = 'X'.
 DELETE itab.
ENDLOOP.
 ENDIF.
ENDCASE.
ENDMODULE.

To delete multiple entries in table control in module pool

Hi,
Please help me out to know , how to delete multiple entries from table control when multiple lines in table control are selected.
Regards,
Irfan Hussain

hai,
you can do it inthis way.
in the PAI event.
loop at <table control name>
module del_itab.
endloop.
in the nodule,write the folowing code.
if <tablecontrol>-fieldname = 'X'.
delete <tablecontrol-itab>
endif.
cheers

How to delete a column from the table control in module pool?

Hi,
can any one please tell How to delete a column from the table control in module pool?
thanks in advance
warm regards
HareeshKumar N

hi hareesh,
I think it is better to hide it.
How to hide: You can check this link
Dynamic Hide column in table control

Which table contains function module program name

Hi,
Which table contains function module program name.
Regards,
raj

Hi,
We have one function module called 'FUNCTION_INCLUDE_INFO'.
Where u ll get the program name to which it belongs to, function group and the include number. (e.g if the function group program name contains 9 function modules and ur function module is in 3rd include then it will return the include name to which it belongs )

How to read a current line in table control in dialoug program ?

How to read a current line in table control in dialoug program ?
this code required to provide F4 help.

Hi,
You can use the variable <tablecontrol>-Currentline as Ebus says but there is a problem with this.Suppose there are 10 records in the table control with only 5 records visible then when u press a page down and press F4 the first record in page 2, <tablecontrol>-Currentline will have value of 1 instead of 6.So you will need to write a small logic for that.
index = ( <tablecontrol>-topline - <tablecontrol>-currentline ) + 1.
read internal table itab at index.
Hope this helps.
Regards,
Vivek

How to use table control in module pool programming

Hi
I want to use a table control to fetch some data from mara table.
Please guide me with the procedure and the steps which I can follow to complete my program correctly.
thanks
Lalit Gupta

As [vinraaj|http://forums.sdn.sap.com/profile.jspa?userID=3968041] wrote, call transaction SE51, there is a Wizard to help you generate the table control, it will create the table control and some includes with PBO/PAI modules > Read [Using the Table Control Wizard|http://help.sap.com/saphelp_bw/helpdata/en/6d/150d67da1011d3963800a0c94260a5/frameset.htm]
Also there is a tutorial in the wiki, read [Learn Making First Table Control |http://wiki.sdn.sap.com/wiki/display/ABAP/LearnMakingFirstTableControl] by [Krishna Chauhan|http://wiki.sdn.sap.com/wiki/display/~nc0euof]
Regards,
Raymond

Suppress table control in module pool programming

Hi Frnds
I need your help to find out if is possible to suppress a table control by configuration in SPRO.
I am able to suppress all the other fields on the screen using the configuration in SPRO,but for table control it is not working that ways.
By programming in PBO I am able to proceed but I need to find out if it possible to do the same through configuration.
Thanks
Mitesh
null

add module vertical_scroll in PBO and try.
module vertical_scroll output.
data n type i.
describe table it_div lines n.
tabctrl-lines = n.
endmodule.
reward if useful.

Table Control in Module Pool Programming

In my Module Pool program I have created a Table Control on my screen. In my Table one column is the Checkbox. When I make changes in any of the Checkbox and scroll the Table or scroll with mouse,the data is lost.I am updating the database table and for that I have created a 'SAVE' button.But to make the changes I have to Scroll the Table on the screen and the changed data is lost.
Please guide me or if possible then tell me the Flow Logic of Module Pool with Table Control??
Thanks for the Help....

PROCESS BEFORE OUTPUT.
MODULE INITIALIZE.
*&spwizard: pbo flow logic for tablecontrol 'TBLALLOC_CYC'
module TBLALLOC_CYC_change_tc_attr.
*&spwizard: module TBLALLOC_CYC_change_col_attr.
loop at   GT_NEW_ALLOC
       into GT_NEW_ALLOC_WA
       with control TBLALLOC_CYC
       cursor TBLALLOC_CYC-current_line.
    module TBLALLOC_CYC_get_lines.
*&spwizard:   module TBLALLOC_CYC_change_field_attr
endloop.
MODULE STATUS_9003.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_9003.
*MODULE USER_COMMAND_9003.
*&spwizard: pai flow logic for tablecontrol 'TBLALLOC_CYC'
loop at GT_NEW_ALLOC.
    chain.
      field GT_NEW_ALLOC_WA-/BIC/ZALLOCCYC.
      field GT_NEW_ALLOC_WA-/BIC/UFACT_FLG.
      field GT_NEW_ALLOC_WA-CHANGEDBY.
      field GT_NEW_ALLOC_WA-CH_ON.
      field GT_NEW_ALLOC_WA-/BIC/ECHAT.
      module TBLALLOC_CYC_modify on chain-request.
    endchain.
endloop.
module TBLALLOC_CYC_user_command.
*&spwizard: module TBLALLOC_CYC_change_tc_attr.
*&spwizard: module TBLALLOC_CYC_change_col_attr.
module TBLALLOC_CYC_user_command.
MODULE USER_COMMAND_9003.
MODULE INITIALIZE OUTPUT.
At the time of initialization of the screen data is to be displayed
by calling Function Module ZUFACTS_FETCH_ALLOC_CYC.
CALL FUNCTION 'ZUFACTS_FETCH_ALLOC_CYC'
TABLES
    T_ALLOC       = GT_NEW_ALLOC
Pass the value displayed in Internal Table GT_OLD_ALLOC.
GT_OLD_ALLOC[] = GT_NEW_ALLOC[].
MOVE GT_OLD_ALLOC TO GT_OLD_ALLOC.
*****Initialize the ok_code.
CLEAR OK_CODE .
ENDMODULE.                 " INITIALIZE OUTPUT
MODULE USER_COMMAND_9003 INPUT.
CASE : OK_CODE.
WHEN 'SAVE'.
    CALL FUNCTION 'ZUFACTS_UPDATE_ALLOC_CYC'
      TABLES
        T_OLD_ALLOC                 = GT_OLD_ALLOC
        T_NEW_ALLOC                 = GT_NEW_ALLOC
      EXCEPTIONS
        NO_FIELD_UPDATED            = 1
        UNSUCCESSFUL_UPDATION       = 2
        OTHERS                      = 3
    IF SY-SUBRC = 1.
      MESSAGE I005 .
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF SY-SUBRC = 2.
      MESSAGE E006.
    ENDIF.
WHEN 'CANCEL' OR 'BACK' OR '%EX' OR 'RW'.
    LEAVE TO SCREEN 0.
ENDCASE.
CLEAR OK_CODE.
ENDMODULE.                 " USER_COMMAND_9003 INPUT

Table controls in module pool programing

hello all,
i am a novice in ABAP. i am not able to save the details i gave in the table control. i am giving the material number(MATNR) in a seperate text box and the fileds like ERNAM,LAEDA,AENAM in the table control. but when i am saving i am able to find only the MATNR value in the mara table.
what is the syntax to save the values of the table control into the MARA table.
thanks & regards,
seenu

HI,
Step 1 : TO move the values from the screen to ABAP Program.
The values of all the input fields will be available in ABAP when PAI event is triggered. To access the values in a table control, you will need to follow the below mentioned procedure....
in PAI Event
( ITAB is Table Control and WA_ITAB is work area)
LOOP AT ITAB INTO WA_ITAB.
MODULE READ_SCRN_VALUES
ENDLOOP
MODULE READ_SCRN_VALUES INPUT
move WA_ITAB to WS_ITAB.
WS_ITAB is another Work area.
ENDMODULE
This way you can moves from screen to ABAP Program. Pass WS_ITAB and MATNR (Matnr - material number on the screen) to MARA.
After updating MARA Table, check the table to view the values of the required fields.
Click the link below to know more about Passing Values from Screen to Program.
http://help.sap.com/saphelp_47x200/helpdata/en/9f/dba9e735c111d1829f0000e829fbfe/content.htm
To know about controlling the data transfer from Screen to Program
http://help.sap.com/saphelp_47x200/helpdata/en/9f/dbabb035c111d1829f0000e829fbfe/content.htm
Also check if you are using MODIFY or INSERT or UPDATE command in your program to update MARA Table, then click the link below to know more about these commands.
Insert
http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb3a6d358411d1829f0000e829fbfe/content.htm
Update
http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb3a94358411d1829f0000e829fbfe/content.htm
Modify
http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb3ac8358411d1829f0000e829fbfe/content.htm
Hope this answers your question.
Regards,
Vara

Table control in Module pool Program

Hi All,
here i have a small requirement on module pool application.
i will explain my scenario more in detail.Here i have one delivery number.if i give this delivery number and click on capture it will capture all the materials for that delivery numeber in a table control.here the material may be one or more than one.we can select table control records.so if the material is more than one user has to select only one material once.if he will try to select the second material we want to display an error message will display.how to handle this requirement.
please give me suggestions regarding coding also.
Thanks in advance,
swami
Edited by: swaminath kamasani on Oct 1, 2008 11:50 PM

Do you need to know how to display an error message if multiple lines are selected or the coding for the entire requirnment??
For error message part:
Dont set the Table control attributes - multiple selection.

How can we select multiple rows in table control for module pool program?

hi guru's
i cannt able to select multiple table control rows for deletion of records please give any code to select rows?
regrards,
satheesh.

On the Table Control attributes there is a "Selectability" option where you choose one of: None, Single, or Multiple. In your code you then need to pick up which rows have the selection column set to 'X'.

Getting values from the table control to the program

Hi Gurus,
i created a program for sales order creation to transfer order creation and to insert multiple values i defined my own selection screen by inserting table control before that the code executed succesfully but after inserting the table control it is not creating any documents
code before inserting table control:-
REPORT zcl120_sales_n_delivery.
 SALES DOCUMENT CREATION
PARAMETERS: p_auart TYPE auart OBLIGATORY.
PARAMETERS: p_vkorg TYPE vkorg OBLIGATORY.
PARAMETERS: p_vtweg TYPE vtweg OBLIGATORY.
PARAMETERS: p_spart TYPE vtweg OBLIGATORY.
PARAMETERS: p_sold TYPE kunnr OBLIGATORY.
PARAMETERS: p_ship TYPE kunnr OBLIGATORY.
*ITEM
PARAMETERS: p_matnr TYPE matnr OBLIGATORY.
PARAMETERS: p_menge TYPE kwmeng OBLIGATORY.
PARAMETERS: p_plant TYPE werks_d OBLIGATORY.
PARAMETERS: p_itcat TYPE pstyv OBLIGATORY.
DATA DECLARATIONS.
DATA: v_vbeln LIKE vbak-vbeln.
DATA: header LIKE bapisdhead1.
DATA: headerx LIKE bapisdhead1x.
DATA: item LIKE bapisditem OCCURS 0 WITH HEADER LINE.
DATA: itemx LIKE bapisditemx OCCURS 0 WITH HEADER LINE.
DATA: partner LIKE bapipartnr OCCURS 0 WITH HEADER LINE.
DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: lt_schedules_inx TYPE STANDARD TABLE OF bapischdlx
WITH HEADER LINE.
DATA: lt_schedules_in TYPE STANDARD TABLE OF bapischdl
WITH HEADER LINE.
HEADER DATA
header-doc_type = p_auart.
headerx-doc_type = 'X'.
header-sales_org = p_vkorg.
headerx-sales_org = 'X'.
header-distr_chan = p_vtweg.
headerx-distr_chan = 'X'.
header-division = p_spart.
headerx-division = 'X'.
headerx-updateflag = 'I'.
partner-partn_role = 'AG'.
partner-partn_numb = p_sold.
APPEND partner.
partner-partn_role = 'WE'.
partner-partn_numb = p_ship.
APPEND partner.
item-material = p_matnr.
item-plant = p_plant.
item-target_qty = p_menge.
item-target_qu = 'ST'.
item-item_categ = p_itcat.
APPEND item.
itemx-updateflag = 'I'.
itemx-material = 'X'.
itemx-plant = 'X'.
itemx-target_qty = 'X'.
itemx-target_qu = 'X'.
itemx-item_categ = 'X'.
APPEND itemx.
Fill schedule lines
lt_schedules_in-itm_number = '000010'.
lt_schedules_in-sched_line = '0001'.
lt_schedules_in-req_qty = p_menge.
APPEND lt_schedules_in.
Fill schedule line flags
lt_schedules_inx-itm_number = '000010'.
lt_schedules_inx-sched_line = '0001'.
lt_schedules_inx-updateflag = 'X'.
lt_schedules_inx-req_qty = 'X'.
APPEND lt_schedules_inx.
Call the BAPI
CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
EXPORTING
 sales_header_in = header
 sales_header_inx = headerx
IMPORTING
 salesdocument_ex = v_vbeln
TABLES
 return = return
 sales_items_in = item
 sales_items_inx = itemx
 sales_schedules_in = lt_schedules_in
 sales_schedules_inx = lt_schedules_inx
 sales_partners = partner.
LOOP AT return WHERE type = 'E' OR type = 'A'.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
WRITE / return-message.
WRITE: / 'Error in creating document'.
ELSE.
COMMIT WORK AND WAIT.
WRITE: / 'Document ', v_vbeln, ' created'.
ENDIF.
 DELIVERY ORDER CREATION
*PARAMETERS: p_vbeln LIKE vbak-vbeln.
DATA: BEGIN OF t_vbap OCCURS 0,
 vbeln LIKE vbap-vbeln,
 posnr LIKE vbap-posnr,
 kwmeng LIKE vbap-kwmeng,
 matnr LIKE vbap-matnr,
 werks LIKE vbap-werks,
 END OF t_vbap.
DATA: t_request TYPE STANDARD TABLE OF bapideliciousrequest
 WITH HEADER LINE.
DATA: t_created TYPE STANDARD TABLE OF bapideliciouscreateditems
 WITH HEADER LINE.
DATA: t_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
SELECT vbeln posnr kwmeng matnr werks
 INTO TABLE t_vbap
 FROM vbap
 WHERE vbeln = v_vbeln
LOOP AT t_vbap.
t_request-document_numb = t_vbap-vbeln.
t_request-document_item = t_vbap-posnr.
t_request-quantity_sales_uom = t_vbap-kwmeng.
t_request-id = 1.
t_request-document_type = 'A'.
t_request-delivery_date = sy-datum.
t_request-material = t_vbap-matnr.
t_request-plant = t_vbap-werks.
t_request-date = sy-datum.
t_request-goods_issue_date = sy-datum.
t_request-goods_issue_time = sy-uzeit.
APPEND t_request.
ENDLOOP.
CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC'
TABLES
 request = t_request
 createditems = t_created
 return = t_return.
READ TABLE t_return WITH KEY type = 'E'.
IF sy-subrc = 0.
MESSAGE e208(00) WITH 'Delivery creation error'.
ENDIF.
COMMIT WORK.
READ TABLE t_created INDEX 1.
WRITE: / 'Delivery Number : ',
 t_created-document_numb.
 CREATE TRANSFER ORDER
DATA: w_tanum TYPE ltak-tanum.
CALL FUNCTION 'L_TO_CREATE_DN'
EXPORTING
 i_lgnum = '010'
 i_vbeln = t_created-document_numb
IMPORTING
 e_tanum = w_tanum
EXCEPTIONS
 foreign_lock = 1
 dn_completed = 2
 partial_delivery_forbidden = 3
 xfeld_wrong = 4
 ldest_wrong = 5
 drukz_wrong = 6
 dn_wrong = 7
 squit_forbidden = 8
 no_to_created = 9
 teilk_wrong = 10
 update_without_commit = 11
 no_authority = 12
 no_picking_allowed = 13
 dn_hu_not_choosable = 14
 input_error = 15
 OTHERS = 16
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
COMMIT WORK AND WAIT.
WRITE: / 'Transfer order number',
 w_tanum.
Code after inserting table control:-
REPORT zcl120_sales_n_delivery.
 SALES DOCUMENT CREATION
DATA: p_auart TYPE auart .
DATA: p_vkorg TYPE vkorg .
DATA: p_vtweg TYPE vtweg .
DATA: p_spart TYPE vtweg .
DATA: p_sold TYPE kunnr .
DATA: p_ship TYPE kunnr .
*ITEM
data:
begin of it_item occurs 0,
 p_matnr TYPE matnr,
 p_menge TYPE kwmeng,
 p_plant TYPE werks_d,
 p_itcat TYPE pstyv,
end of it_item.
DATA DECLARATIONS.
DATA: v_vbeln LIKE vbak-vbeln.
DATA: header LIKE bapisdhead1.
DATA: headerx LIKE bapisdhead1x.
DATA: item LIKE bapisditem OCCURS 0 WITH HEADER LINE.
DATA: itemx LIKE bapisditemx OCCURS 0 WITH HEADER LINE.
DATA: partner LIKE bapipartnr OCCURS 0 WITH HEADER LINE.
DATA: return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: lt_schedules_inx TYPE STANDARD TABLE OF bapischdlx
WITH HEADER LINE.
DATA: lt_schedules_in TYPE STANDARD TABLE OF bapischdl
WITH HEADER LINE.
DATA:
W_COUNTER TYPE I,
IT_NUM(6) TYPE C value '000010',
IT_LINE(4) TYPE C value '0001'.
CALL SCREEN 100.
HEADER DATA
header-doc_type = p_auart.
headerx-doc_type = 'X'.
header-sales_org = p_vkorg.
headerx-sales_org = 'X'.
header-distr_chan = p_vtweg.
headerx-distr_chan = 'X'.
header-division = p_spart.
headerx-division = 'X'.
headerx-updateflag = 'I'.
partner-partn_role = 'AG'.
partner-partn_numb = p_sold.
APPEND partner.
partner-partn_role = 'WE'.
partner-partn_numb = p_ship.
APPEND partner.
loop at it_item.
CLEAR ITEM.
item-material = it_item-p_matnr.
item-plant = it_item-p_plant.
item-target_qty = it_item-p_menge.
item-target_qu = 'ST'.
item-item_categ = it_item-p_itcat.
APPEND item.
W_COUNTER = W_COUNTER + 1.
endloop.
DO W_COUNTER TIMES.
itemx-updateflag = 'I'.
itemx-material = 'X'.
itemx-plant = 'X'.
itemx-target_qty = 'X'.
itemx-target_qu = 'X'.
itemx-item_categ = 'X'.
APPEND itemx.
ENDDO.
Fill schedule lines
LOOP AT IT_ITEM.
CLEAR lt_schedules_in.
lt_schedules_in-itm_number = IT_NUM.
lt_schedules_in-sched_line = IT_LINE.
lt_schedules_in-req_qty = IT_ITEM-p_menge.
APPEND lt_schedules_in.
IT_NUM = IT_NUM + 10.
IT_LINE = IT_LINE + 1.
ENDLOOP.
IT_NUM = '000010'.
IT_LINE = '0001'.
Fill schedule line flags
LOOP AT IT_ITEM.
CLEAR lt_schedules_inx.
lt_schedules_inx-itm_number = IT_NUM.
lt_schedules_inx-sched_line = IT_LINE.
lt_schedules_inx-updateflag = 'X'.
lt_schedules_inx-req_qty = 'X'.
APPEND lt_schedules_inx.
IT_NUM = IT_NUM + 10.
IT_LINE = IT_LINE + 1.
ENDLOOP.
Call the BAPI
CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
EXPORTING
 sales_header_in = header
 sales_header_inx = headerx
IMPORTING
 salesdocument_ex = v_vbeln
TABLES
 return = return
 sales_items_in = item
 sales_items_inx = itemx
 sales_schedules_in = lt_schedules_in
 sales_schedules_inx = lt_schedules_inx
 sales_partners = partner.
LOOP AT return WHERE type = 'E' OR type = 'A'.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
WRITE / return-message.
WRITE: / 'Error in creating document'.
ELSE.
COMMIT WORK AND WAIT.
WRITE: / 'Document ', v_vbeln, ' created'.
ENDIF.
 DELIVERY ORDER CREATION
*PARAMETERS: p_vbeln LIKE vbak-vbeln.
DATA: BEGIN OF t_vbap OCCURS 0,
 vbeln LIKE vbap-vbeln,
 posnr LIKE vbap-posnr,
 kwmeng LIKE vbap-kwmeng,
 matnr LIKE vbap-matnr,
 werks LIKE vbap-werks,
 END OF t_vbap.
DATA: t_request TYPE STANDARD TABLE OF bapideliciousrequest
 WITH HEADER LINE.
DATA: t_created TYPE STANDARD TABLE OF bapideliciouscreateditems
 WITH HEADER LINE.
DATA: t_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
SELECT vbeln posnr kwmeng matnr werks
 INTO TABLE t_vbap
 FROM vbap
 WHERE vbeln = v_vbeln
LOOP AT t_vbap.
t_request-document_numb = t_vbap-vbeln.
t_request-document_item = t_vbap-posnr.
t_request-quantity_sales_uom = t_vbap-kwmeng.
t_request-id = 1.
t_request-document_type = 'A'.
t_request-delivery_date = sy-datum.
t_request-material = t_vbap-matnr.
t_request-plant = t_vbap-werks.
t_request-date = sy-datum.
t_request-goods_issue_date = sy-datum.
t_request-goods_issue_time = sy-uzeit.
APPEND t_request.
ENDLOOP.
CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC'
TABLES
 request = t_request
 createditems = t_created
 return = t_return.
READ TABLE t_return WITH KEY type = 'E'.
IF sy-subrc = 0.
MESSAGE e208(00) WITH 'Delivery creation error'.
ENDIF.
COMMIT WORK.
READ TABLE t_created INDEX 1.
WRITE: / 'Delivery Number : ',
 t_created-document_numb.
 CREATE TRANSFER ORDER
DATA: w_tanum TYPE ltak-tanum.
CALL FUNCTION 'L_TO_CREATE_DN'
EXPORTING
 i_lgnum = '010'
 i_vbeln = t_created-document_numb
IMPORTING
 e_tanum = w_tanum
EXCEPTIONS
 foreign_lock = 1
 dn_completed = 2
 partial_delivery_forbidden = 3
 xfeld_wrong = 4
 ldest_wrong = 5
 drukz_wrong = 6
 dn_wrong = 7
 squit_forbidden = 8
 no_to_created = 9
 teilk_wrong = 10
 update_without_commit = 11
 no_authority = 12
 no_picking_allowed = 13
 dn_hu_not_choosable = 14
 input_error = 15
 OTHERS = 16
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
COMMIT WORK AND WAIT.
WRITE: / 'Transfer order number',
 w_tanum.
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TAB_CON1' ITSELF
CONTROLS: TAB_CON1 TYPE TABLEVIEW USING SCREEN 0100.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TAB_CON1'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
MODULE TAB_CON1_CHANGE_TC_ATTR OUTPUT.
DESCRIBE TABLE IT_ITEM LINES TAB_CON1-lines.
ENDMODULE.
*& Module STATUS_0100 OUTPUT
 text
module STATUS_0100 output.
 SET PF-STATUS 'MENU'.
SET TITLEBAR 'xxx'.
endmodule. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
module USER_COMMAND_0100 input.
IF SY-UCOMM EQ 'START'.
LEAVE to screen 0 .
ENDIF.
endmodule. " USER_COMMAND_0100 INPUT
*& Module APPEND_IT_ITEM INPUT
 text
module APPEND_IT_ITEM input.
APPEND IT_ITEM.
CLEAR IT_ITEM.
endmodule. " APPEND_IT_ITEM INPUT
plz help me where the error is

Hi,
Do same as suggested by Ramesh. Add one user command button after clicking that do the looping and call new screen.
Ashven.

Table control in module program

Similar Messages

Maybe you are looking for