Module pool regarding

hi all,
i have a requirement like i have a table control in which user eneters tknum or venum. the scenario is like if the user enter the venum then do process as it is but when tknum is entered then i need to fetch corresponding venum's from a z table and process it with other venum's entered in the table control.
123456
48256
in the above values entered in table control, 123456 is a venum and 48256 is a tknum. in this case i need to get all corresponding venum of 48256 from a z table and process with
123456. for example if i have 256325,66666 for 48256 then i need to get these two values.
can anyone please help me. this is a bit urgent.
thanks
anupama

hi
if u want to display inmodul pool table control
then top inculude
declare ...
data: controls tbcl type tableeiw .
in the screen lflow logic
assign the table control in the PBO by writing it in loop & endloop.
then pai
user command select the data
populate in the internal table
wite----
move corresponding itab to tbcl.
within loop statement
remember pai should contain the user commands
if u r not able to do follow a standard scrren program by going system-status-and for a screen..let t code me21 .
rewards if helpful
sachhidananda

Similar Messages

Select Option on Module Pool screen

How to display select options on Module Pool screen ?

Via the search functionality, you will find something like :
SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
SELECT-OPTIONS: S_CARRID FOR SPFLI-CARRID,
S_CONNID FOR SPFLI-CONNID.
SELECTION-SCREEN END OF SCREEN 101.
and to use a CALL SELECTION-SCREEN xxxx in your module pool.
regards,
Hans

Regarding select option in a module pool prog .

hello .. i need some help regarding select options in a module pool program .. i hav tried putting a select options in a module pool prog but i am not able 2 ... can any one tel me why select options r not aloowed in a module pool prog ?? and i read that we hav 2 use ranges 2 fulfil the needs of the select options . is there any way i cal get all the functionality of select options ( eg including , excludig , equal to , not equal to , .... .) using a range ??

Hi
Select-options won't work if you declare the program as Module POOL.
if you wants to use select-options like utility in module pool programming
use ranges
declare and develop ranges and use that in select statement where condition.
ranges: r_vbeln for vbak-vbeln.
r_vbeln-low = '0018900678'.
r_vbeln-sign = 'I'.
r_vbeln-option = 'EQ'.
append r_vbeln.
r_vbeln-low = '0018900456'.
r_vbeln-sign = 'I'.
r_vbeln-option = 'EQ'.
append r_vbeln.
reward if useful
regards
Anji

Regarding F4 help in Module pool Programming

Hi folks,
      I have created a Screen in Module pool. I have to attach a F4 help for a field. I did that using the Function Module 'F4IF_INT_TABLE_VALUE_REQUEST'. Its working fine, but the when i click the value in the window, correct field value is not coming to the screen field. I have to get the value of first field in that window, but the value of the last field is coming to the screen. I have cheked the return table in debugging. It getting the value of last field, but not the first field. I have given the correct field value in the retfield parameter. Can any body suggest me why its not coming..
                              Thanks and Regards,
                              Shyam.

Hi Ramachander,
           I have already passed 'S' to value_org.
Please find my source code below.
MODULE set_hodf4 INPUT.
MOVE 'IT_HODF4-DEPTID' TO iretfield.
REFRESH it_hodf4.
SELECT DISTINCT deptid
                  bukrs
                  werks FROM zmm_ktph_hodmail INTO TABLE it_hodf4.
DESCRIBE TABLE it_hodf4 LINES my-tfill.
CASE my-tfill.
    WHEN '0'.
* No & entries found.
      MESSAGE i005.
    WHEN OTHERS. "Get F4 help
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
*    DDIC_STRUCTURE              = ' '
          retfield               = iretfield
*   DYNPPROG               = ' '
*   DYNPNR                 = ' '
*   DYNPROFIELD            = ' '
         window_title           = c_hod
         value_org              = 'S'
         display                = 'F'
* IMPORTING
*   USER_RESET             =
        TABLES
         value_tab              = it_hodf4
         return_tab             = f4_hod
       EXCEPTIONS
         parameter_error        = 1
         no_values_found        = 2
         OTHERS                 = 3
      IF NOT f4_hod[] IS INITIAL.
        MOVE f4_hod-fieldval TO zmm_ktph_hodmail-deptid.
      ENDIF.
ENDCASE.
ENDMODULE.                 " set_HODf4 INPUT
Thanks,
Shyam.
Code Formatted by: Alvaro Tejada Galindo on Dec 26, 2008 10:33 AM

Regarding standard menu in module pool... have ur point.s

Hi all,
I wanna copy stanadard status to my module pool program. Could u pleas help me for that...
have ur points..
Regards,
[email protected]

Hi Pradeep,
Goto SE41--> give the prog name SAPLKKBL and select the Status Radio button and give STANDARD
now press Ctrl+F6 which prompts you a new dialog to enter your desired prog name and status name. give in teh program name and enter a status name, which copies the standarad status to your program.
now in your program set the status using the statement
set pf-status 'NEW_STANDARD'.
Regards
Gopi

Regarding Module Pool Screen Painter

Dear All,
Hi all. When i am using 4.7 i am able to see all the icons like check box .radio buttons,push buttons ,table control and all . There i can drag and drop on the screen easily . I can see this all icons on the left side in the screen painter. In ecc i tried to create a module pool program. In that screen painter i am not able to see these icons in that screen .
When i am clicking on layout on initial screen it is showing ''''EU_SCRP_WN32 : timeout during allocate / CPIC-CALL: 'ThSAPCMRCV' '''' . That is also in text format with some lines and all. I was totally struck here . Please help me in this .
Regards,
Madhu.

How can you solve the problem ? Please explain it.

Regarding exit from the module pool screen

h experts,
i have developed a module pool report in which in the selection screen i have four fields which are mandatory ,when i execute the program without entering in the selection screen it do not allow to come out of the module pool screen ...what i want that without entering any input in the selection screen if i press exit button push button it will allow to come out of the screen for this what sud i do plz help me....

Hi
keep a button called EXIT on the screen
Make the function type of that field as E
in Flow logic write
PROCESS AFTER INPUT.
Forced Exit from the transaction from screen
MODULE exit AT EXIT-COMMAND.
double click on exit module and
then in PAI write
*& Module exit INPUT
Exit from the Transaction
MODULE exit INPUT.
CASE okcode.
 WHEN 'EXIT' OR 'CANCEL'.
 CLEAR okcode.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " exit INPUT
Reward points for useful Answers
Regards
Anji

Regarding screen flow in MODULE POOL

Hi everyone,
my requirement is to cretae a module pool program. In between a program is submitted VIA a selection screen. That selection screen contains PUSH BUTTONS. If any push button is clicked one of the dialog screens of the module pool program should be called. Can any one tell me how can this be done.
Thanks in advance.
Regards,
Y.Gautham

write a Module in PAI of ur screen and call which ever screen u want to call or leave.
for e.g -
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
module USER_COMMAND_0100 input.
case ok_code.
when 'ENTER'.
clear ok_code.
leave to screen 200.
endcase.
endmodule. " USER_COMMAND_0100 INPUT

Doubt regarding module pool program

Hi experts,
I need to use bapi in module pool program
can we use it ? I hope we can use,
Please any body give some sample code
Thanks in advance
Ranga

bapi like another function module can be used in module pool based ojn ur desire
a sample code is :
case sy-ucomm.
when 'create'
call bapi u require
end case
hope it gives u an idea
regards
navjot
reward accordingly

Regarding module pool with alv

hi experts,
i have developed a module pool program in which the data is coming in the table control ,what the user wants that on clicking one push button a alv report will come depending upon the data which i enterd in the selection screen of the module pool,,for this what sud i write under the push button plz help me....

Hi
In the table control keep a Button
First select the Records in the tables control into an Internal table
when you press that REPORT button in the table control screen these Selected records data which is in Internal table has to be displayed in a ALV report.
Hope when the data is internal tables just call the fun module of ALV
In the PAI of table control screen
case ok_code.
when 'REPT'.
loop at itab where v_chk = 'X'.
...append the selected records to another ITAB1.
endloop.
leave to list-processing
perform_display_report.
endcase.
In the perform you process the internal table, build the field catalog and display the ALV report
Reward points for useful Answers
Regards
Anji

Regarding Module Pool Text Field

Hi,
Can any body tell , is there any possiblity to change the font style and size of the Module pool text field.( Because I want a Heading in the screen)
Regards
Prashanth

Hi,
Goto the Layout Editor of your Screen.
Double click on the text field .. Double clk the text fild, and from the Botton right u can see an arrow icon -> click on that > will open a Popup > in that set Area Title to TRUE .
Rgds,
Jothi.
Do Award pts for helpful answers.

Regarding selection-screen in module pool

hi
experts,
i am having doubt in module pool programing...
i want create selection screen(pop screen with field) in modulepool., before the display screeen deatils
ex : if i want display the record details for that particular
record number.......
while i am click on display..
pop-up-selection screen will come with record number field..
i f enter the record no, display s the details...
Ananand

Please see Rich's answer here:
[Dialog programming - How to place a select-option field in a dialog screen;
Rob

Query regarding translation in module pool

Hi ppl,
I have created a module pool program which has a screen with a number of screen elements.
Now, I have translated the texts of the fields into oher languages also (using GOTO-> Translation through the program).
My doubt is that will the translation also be captured in the same TR under which my module pool report is created or is there any other procedure to transport the translations done?
I am working on SAP version 4.6C.
Please help.
Thanks,
David.

Hi,
You can translate elements using SE63 , also the way u have done also is fine .
TR gets attached to program request.
TC
Sajimon Chandran

Regarding Module Pool's Cancel button

Hi Guys,
Please help me I have created on Module Pool and now this module pool is called through a a UserExit .
now the thing is if i cancel button which is placed on my popup screen then it is still going into the output which is wrong it should show up the previous screen.
My code for the Sy-ucomm = cancel is
IF SY-UCOMM = 'CANC'.
 SET SCREEN 0.
 LEAVE SCREEN.
ENDIF.
Can you please provide me some code by which i can go to the previous screen.

I am calling the Module pool through User exit and inside user exit i am calling FM which calls my screen.
Userexit -> FM -> ModulePool
here is the code :
***INCLUDE LZRMA_NOTIFO01 .
*& Module STATUS_0150 OUTPUT
* text
MODULE STATUS_0150 OUTPUT.
* SET PF-STATUS SY-DYNNR.
* SET TITLEBAR SY-DYNNR.
ENDMODULE. " STATUS_0150 OUTPUT
*& Module CUA_STATUS OUTPUT
* text
MODULE CUA_STATUS OUTPUT.
* SET PF-STATUS SY-DYNNR.
* SET TITLEBAR SY-DYNNR.
ENDMODULE. " CUA_STATUS OUTPUT
*& Module EXIT_SCREEN INPUT
* text
MODULE EXIT_SCREEN INPUT.
DATA: C_FCODE_ABBR LIKE SY-PFKEY VALUE 'ABBR' .
break-point.
CASE OK-CODE.
 WHEN C_FCODE_ABBR.
*-- Abbrechen
* Daten zurücknehmen
 CLEAR RQM01.
* RAISE CANCEL.
 set screen 0.
 LEAVE TO SCREEN 0.
 call transaction 'QM01'.
ENDCASE.
IF SY-UCOMM = 'CANC'. " Here is the SY-UCOMM Where i have to handle the CANC BUTTON
* SET SCREEN 0.
* LEAVE SCREEN.
 LEAVE PROGRAM.
ENDIF.
ENDMODULE. " EXIT_SCREEN INPUT
*& Module CHECK_NOTIF_NO INPUT
* text
MODULE CHECK_NOTIF_NO INPUT.
*& Below condition checks if the user enter a Notification Num and Porduction
* Order Then Message comees Please enter a Prod Order or RMA Notif Num only
* Process cannot accept both.
IF NOT VIQMEL-QMNUM IS INITIAL.
 IF NOT RQM01-FERTAUFNR IS INITIAL.
 MESSAGE E904(QM). " Please enter a Prod order or RMA Notif Num only.
 " Process can't accept both
 ENDIF.
ENDIF.
*& If Production order is entered, then check if the Order type is 'AES1' or *
*& 'AES3'AES2,AES4, AES5, AES6,ICSO, PM01, PM02, RMA, SM01, SM02, ZEXR,
*& Message flashes ' Please enter only enter RMA Notif Number. *
data: v_dauat like afpo-dauat.
SELECT SINGLE DAUAT INTO V_DAUAT FROM AFPO WHERE AUFNR = RQM01-FERTAUFNR.
if sy-subrc = 0.
 IF V_DAUAT = 'AES1' OR V_DAUAT = 'AES3' OR
 V_DAUAT = 'AES2' OR V_DAUAT = 'AES4' OR
 V_DAUAT = 'ICSO' OR V_DAUAT = 'PM01' OR
 V_DAUAT = 'PM01' OR V_DAUAT = 'RMA' OR
 V_DAUAT = 'SM01' OR V_DAUAT = 'SM02' OR V_DAUAT = 'ZEXR'..
 MESSAGE E905(QM). " Please Only enter a RMA Notif Number.
 ENDIF.
endif.
ENDMODULE. " CHECK_NOTIF_NO INPUT
*& Module FEAUF_SAAUF_CHECK INPUT
* text
MODULE FEAUF_SAAUF_CHECK INPUT.
OK-CODE = SY-UCOMM.
*Added by CChauhan
IF VIQMEL-QMNUM IS INITIAL.
*& End of Addition by CChauhan
 IF NOT RQM01-FERTAUFNR IS INITIAL
 AND ( NOT RQM01-VERID IS INITIAL
 OR NOT RQM01-RM_WERKS IS INITIAL
 OR NOT RQM01-RM_MATNR IS INITIAL ).
* only production order or manufacturing version meaningfully
 MESSAGE E902(QM).
 ENDIF.
*Added by CChauhan
ENDIF.
*& End of Addition by CChauhan
ENDMODULE. " FEAUF_SAAUF_CHECK INPUT
*& Module FEAUF_FEPOS_CHECK INPUT
* text
MODULE FEAUF_FEPOS_CHECK INPUT.
IF VIQMEL-QMNUM = ''.
 IF RQM01-FERTAUFNR = ''
 AND RQM01-FERTVORNR <> ''.
 MESSAGE E903(QM).
 ENDIF.
ENDIF.
IF SY-UCOMM = 'CANC'.
 LEAVE SCREEN.
ENDIF.
ENDMODULE. " FEAUF_FEPOS_CHECK INPUT
*& Module FAUF_LESEN INPUT
* text
MODULE FAUF_LESEN INPUT.
*& Added by CChauhan Date: 01/23/2007
*& Execute further if RMa_Notif(VIQMEL-QMNUM)ield is blank.
IF VIQMEL-QMNUM IS INITIAL.
*&End by CChauhan Date: 01/23/2007
 PERFORM FAUF_LESEN USING RQM01-FERTAUFNR
 RQM01-FERTVORNR
 CHANGING CAUFV
 AFVC.
* Belegdaten an Qualitätsmeldung übergeben
 PERFORM FAUF_TO_QMEL USING CAUFV
 AFVC
 CHANGING RQM01.
*& Added by CChauhan Date: 01/23/2007
ENDIF.
*&End by CChauhan Date: 01/23/2007
ENDMODULE. " FAUF_LESEN INPUT
*& Form FAUF_LESEN
* text
* -->P_RQM01_FERTAUFNR text
* -->P_RQM01_FERTVORNR text
* <--P_CAUFV text
* <--P_AFVC text
FORM FAUF_LESEN USING VALUE(P_AUFNR) LIKE RQM01-FERTAUFNR
 VALUE(P_VORNR) LIKE RQM01-FERTVORNR
 CHANGING VALUE(P_CAUFV) LIKE CAUFV
 VALUE(P_AFVC) LIKE AFVC .
CALL FUNCTION 'QMHL_HELP_FAUF'
 EXPORTING
 I_AUFNR = P_AUFNR
 I_VORNR = P_VORNR
 I_FOLGE = G_FOLGE
 IMPORTING
 E_CAUFV = P_CAUFV
 E_AFVC = P_AFVC
 EXCEPTIONS
 ORDER_NOT_FOUND = 1
 OPERATION_NOT_FOUND = 2
 OTHERS = 3.
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. " FAUF_LESEN
*& Form FAUF_TO_QMEL
* text
* -->P_CAUFV text
* -->P_AFVC text
* <--P_RQM01 text
FORM FAUF_TO_QMEL USING VALUE(P_CAUFV) LIKE CAUFV
 VALUE(P_AFVC) LIKE AFVC
 CHANGING P_RQM01 LIKE RQM01.
* zunächst Berechtigung für Meldungsart/Werk prüfen
PERFORM CHECK_QAUT_QMEL USING SY-TCODE
 TQ80-QMART
 P_CAUFV-WERKS.
* Materialnummer des Fertigprodukts ermitteln
SELECT * FROM AFPO
WHERE AUFNR = P_CAUFV-AUFNR.
* Materialnummer steht in der ersten Auftragsposition
 EXIT.
ENDSELECT.
IF SY-SUBRC IS INITIAL.
* Materialnummer übernehmen
 P_RQM01-MATNR = AFPO-MATNR.
 IF NOT AFPO-MATNR IS INITIAL.
 PERFORM MATERIAL_CHECK USING AFPO-MATNR.
 ENDIF.
* Charge
 P_RQM01-CHARG = AFPO-CHARG.
*--- Lieferantencharge bestimmen
 IF NOT P_RQM01-CHARG IS INITIAL.
 SELECT SINGLE * INTO MCHA FROM MCHA
 WHERE MATNR = P_RQM01-MATNR
 AND WERKS = P_RQM01-MAWERK
 AND CHARG = P_RQM01-CHARG.
 IF SY-SUBRC EQ 0.
 MOVE MCHA-LICHA TO P_RQM01-LICHN.
 ENDIF.
 ENDIF.
 P_RQM01-LGORTCHAR = AFPO-LGORT.
ENDIF.
P_RQM01-MAWERK = P_CAUFV-WERKS.
IF NOT AFPO-MATNR IS INITIAL
 AND NOT P_CAUFV-WERKS IS INITIAL.
 PERFORM MATERIAL_WERK_CHECK USING AFPO-MATNR
 P_CAUFV-WERKS.
ENDIF.
* Revisionsstand
P_RQM01-REVLV = P_CAUFV-REVLV.
* reklamierte Menge
P_RQM01-RKMNG = P_CAUFV-GAMNG - P_CAUFV-GASMG.
P_RQM01-BZMNG = P_CAUFV-GAMNG - P_CAUFV-GASMG.
P_RQM01-MGEIN = P_CAUFV-GMEIN.
* Arbeitsplatz
P_RQM01-ARBPL = P_AFVC-ARBID.
* eindeutiger Schluessel fuer Vorgang
P_RQM01-FERTAUFPL = P_AFVC-AUFPL.
P_RQM01-PNLKN = P_AFVC-APLZL.
* Info über automatische Datenübernahme
MESSAGE S026(QM) WITH P_CAUFV-AUFNR RQM01-FERTVORNR.
ENDFORM. " FAUF_TO_QMEL
*& Form CHECK_QAUT_QMEL
* text
* -->P_SY_TCODE text
* -->P_TQ80_QMART text
* -->P_P_CAUFV_WERKS text
FORM CHECK_QAUT_QMEL USING VALUE(P_TCODE)
 VALUE(P_QMART)
 VALUE(P_WERK).
CHECK NOT P_WERK IS INITIAL.
MOVE-CORRESPONDING RQM01 TO H_VIQMEL.
CALL FUNCTION 'QAUT_QMEL'
 EXPORTING
 I_WERKS = P_WERK
 I_QMART = P_QMART
 I_TCODE = P_TCODE
 I_VIQMEL = H_VIQMEL.
ENDFORM. " CHECK_QAUT_QMEL
*& Form MATERIAL_CHECK
* text
* -->P_AFPO_MATNR text
FORM MATERIAL_CHECK USING VALUE(P_MATNR).
*-- lokale Daten
DATA : BEGIN OF L_DUMMY_TAB OCCURS 0,
 DUMMY(1),
 END OF L_DUMMY_TAB.
* Prüfung nur, falls Materialnummer und Werk gefüllt
CHECK NOT P_MATNR IS INITIAL.
* Verprobung auf MARA-Segment
MOVE C_MARA_SEGMENT TO MTCOM-KENNG.
MOVE P_MATNR TO MTCOM-MATNR.
TABLES: MTCOR.
CALL FUNCTION 'MATERIAL_READ'
 EXPORTING
 SCHLUESSEL = MTCOM
 IMPORTING
 MATDATEN = MARA
 RETURN = MTCOR
 TABLES
 SEQMAT01 = L_DUMMY_TAB
 EXCEPTIONS
 ACCOUNT_NOT_FOUND = 01
 BATCH_NOT_FOUND = 02
 FORECAST_NOT_FOUND = 03
 LOCK_ON_ACCOUNT = 04
 LOCK_ON_MATERIAL = 05
 LOCK_ON_PLANT = 06
 LOCK_ON_SALES = 07
 LOCK_ON_SLOC = 08
 LOCK_SYSTEM_ERROR = 09
 MATERIAL_NOT_FOUND = 10
 PLANT_NOT_FOUND = 11
 SALES_NOT_FOUND = 12
 SLOC_NOT_FOUND = 13
 SLOCNUMBER_NOT_FOUND = 14
 SLOCTYPE_NOT_FOUND = 15
 TEXT_NOT_FOUND = 16
 UNIT_NOT_FOUND = 17.
CASE SY-SUBRC.
 WHEN C_RC00.
* alles o.k.
 RQM01-MATKL = MARA-MATKL.
 RQM01-PRDHA = MARA-PRDHA.
 WHEN C_RC10.
 MESSAGE E005(QM) WITH P_MATNR.
ENDCASE.
* Beim Material sitzt Loeschvormerkung.
IF NOT MTCOR-LVORM IS INITIAL.
 MESSAGE W008(M3).
ENDIF.
ENDFORM. " MATERIAL_CHECK
*& Form MATERIAL_WERK_CHECK
* text
* -->P_AFPO_MATNR text
* -->P_P_CAUFV_WERKS text
FORM MATERIAL_WERK_CHECK USING VALUE(P_MATNR)
 VALUE(P_WERK).
*-- local data
DATA : BEGIN OF L_DUMMY_TAB OCCURS 0,
 DUMMY(1),
 END OF L_DUMMY_TAB.
* Examination only, if materials number and work filled
CHECK ( NOT P_MATNR IS INITIAL
 AND NOT P_WERK IS INITIAL ).
* Checking on MARC segment
MOVE C_MARC_SEGMENT TO MTCOM-KENNG.
MOVE P_MATNR TO MTCOM-MATNR.
MOVE P_WERK TO MTCOM-WERKS.
CALL FUNCTION 'MATERIAL_READ'
 EXPORTING
 SCHLUESSEL = MTCOM
 IMPORTING
 MATDATEN = MARC
 TABLES
 SEQMAT01 = L_DUMMY_TAB
 EXCEPTIONS
 ACCOUNT_NOT_FOUND = 01
 BATCH_NOT_FOUND = 02
 FORECAST_NOT_FOUND = 03
 LOCK_ON_ACCOUNT = 04
 LOCK_ON_MATERIAL = 05
 LOCK_ON_PLANT = 06
 LOCK_ON_SALES = 07
 LOCK_ON_SLOC = 08
 LOCK_SYSTEM_ERROR = 09
 MATERIAL_NOT_FOUND = 10
 PLANT_NOT_FOUND = 11
 SALES_NOT_FOUND = 12
 SLOC_NOT_FOUND = 13
 SLOCNUMBER_NOT_FOUND = 14
 SLOCTYPE_NOT_FOUND = 15
 TEXT_NOT_FOUND = 16
 UNIT_NOT_FOUND = 17.
CASE SY-SUBRC.
 WHEN C_RC00.
* alles o.k.
 RQM01-KZDKZ = MARC-KZDKZ.
 RQM01-KZKRI = MARC-KZKRI.
 WHEN C_RC11.
 MESSAGE E004(QM) WITH P_MATNR
 P_WERK.
 WHEN C_RC10.
 MESSAGE E005(QM) WITH P_MATNR.
ENDCASE.
ENDFORM. " MATERIAL_WERK_CHECK
*& Module FCODE INPUT
* text
MODULE FCODE INPUT.
*& Inserted by CC 01/24/2007
II_VIQMEL-FERTAUFNR = RQM01-FERTAUFNR.
*& End by CC 01/24/2007
PERFORM FCODE USING OK-CODE.
ENDMODULE. " FCODE INPUT
*& Form FCODE
* text
* -->P_OK_CODE text
FORM FCODE USING VALUE(P_FCODE) LIKE SY-TCODE.
CASE P_FCODE.
 WHEN C_FCODE_ENT1.
*-- Weiter
 SET SCREEN 0.
 LEAVE SCREEN.
ENDCASE.
IF SY-UCOMM = 'CANC'.
 SET SCREEN 0.
 LEAVE SCREEN.
ENDIF.
ENDFORM. " FCODE

How to delete the row in table control with respect to one field in module pool programming?

Hi,
Can I know the way to delete the row in table control with respect to one field in module pool programming
Regards
Darshan MS

HI,
I want to delete the row after the display of table control. I have created push button as delete row. If I click on this push button, the selected row should get deleted.
I have written this code,
module USER_COMMAND_9000 input.
DATA OK_CODE TYPE SY-UCOMM.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
     WHEN 'DELETE'.
        LOOP AT lt_source INTO ls_source WHERE mark = 'X'.
            APPEND LS_SOURCE TO LT_RESTORE.
            DELETE TABLE LT_SOURCE FROM LS_SOURCE.
            SOURCE-LINES = SOURCE-LINES - 1.
        ENDLOOP.
But I'm unable to delete the selected rows, It is getting deleted the last rows eventhough I select the other row.
So I thought of doing with respect to the field.

Module pool regarding

Similar Messages

Maybe you are looking for