topic Re: Dear Abapers.. in Application Development and Automation Discussions

Dear Abapers..

Former Member — Wed, 20 Dec 2006 07:05:46 GMT

Hi all,

Here iam having 2 tables ZESTHEADER &ZESTDETAILS(Items table) i have to create a modulepool to display these tables data in the same screen .the primary key is EstmNR . When i enter the EstmNR system should fecth and display the data from the both tables based on screen filed ZESTHEADER -EstmNR .

Please send me suggestions

thanks in advance

krishna

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 07:12:23 GMT

Declare an Internal table where you fetch data from both these tables.

Declare a table control on your screen.

Your Table Control should be linked to the fields of the corresponding Internal table, You can lock those fields which you want on your table.

As your internal table gets populated , the fields on the screen also get poplutaed.

Try it. Refer back if you have doubts.

Rewards in terms of points expected.

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 07:14:00 GMT

Hi ,

In the PAI module give as follows :

FIELD ZESTHEADER -EstmNR MODULE MOD1 ON INPUT .

In the MOD1 fetch the datas from ZESTHEADER &ZESTDETAILS tables using 2 select queries .

Hope it is helpful for u .

Regards ,

Senthil

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 07:26:49 GMT

Hi senthil can you please explain it clearly i have not got ur point clearly

Re: Dear Abapers..

jayanthi_jayaraman — Wed, 20 Dec 2006 07:36:46 GMT

Hi,

Create the text from dictionary as per your requirement in the screen.create a push button say display(function code DISPLAY).

In the PAI of the screen,

if sy-ucomm = 'DISPLAY'.

slect * from zestheader inner join zestdetails into wa where zestheader-estmnr = zestdetails-estmr.

zestheader-f1 = wa-f1.

....

endselect.

endif.

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 07:41:59 GMT

Hi ,

Go thru this link .

Regards ,

Senthil

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 08:20:22 GMT

PAI code:

case sy-ucomm.

when 'fetch'.

select h_{h1 h}h2 h_{h3 i}i1 i_{i2 i}i3 into table it_dest from ZESTHEADER as h inner join ZESTDETAILS as i on ZESTHEADER-h1 = ZESTDETAILS-i1.

loop at it_dest.

write: / it_dest-h1,.......

endloop.

when 'exit'.

leave program.

endcase.

Cheers.

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 08:56:22 GMT

Hi senthil Please review the code below and mention where iam going wrong. iam Still iam not getting the output. Please help me out

screen painter code for screen '100'.

PROCESS BEFORE OUTPUT.

loop at itab1 with control VCONTROL.

MODULE STATUS_0100.

endloop.

PROCESS AFTER INPUT.

loop at itab1.

MODULE USER_COMMAND_0100.

endloop.

module user_exit.

the code for PAI & PBO

&----

*& Module Pool ZEST_HEADER

&----

PROGRAM ZEST_HEADER3.

tables:ZESTHEADER,zestdetails.

controls: vcontrol type tableview using screen '100'.

*internal table declaration

data: begin of itab occurs 0.

include STRUCTURE ZESTheader.

data: end of itab.

data: begin of itab1 occurs 0.

include STRUCTURE ZESTDETAILS.

data: end of itab1.

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

case sy-ucomm.

when 'DISP'.

refresh itab.

select ESTMATE_NBR VERSION ESTIMATE_DT TOT_AMT CUST_ID CUST_ADDR_NBR WBS_ELEMENT ESTIMATE_STATUS USER_FLD1 USER_FLD2 APPROVAL_STATUS LASTUPDATE_DTM LASTUPDATE_USRID from zestheader into itab where ESTMATE_NBR = zestheader-ESTMATE_NBR.

append itab.

endselect.

refresh itab1.

select LINE_NO LINE_STATUS SALES_MATNR UOM QTY UNIT_PRICE AMOUNT PRICE_TYPE COMMENTS from ZESTDETAILS into itab1 for all entries in itab where ESTMATE_NBR = itab-ESTMATE_NBR.

append itab1.

break-point.

endselect.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Form selections

&----

text

----

--> p1 text
<-- p2 text

----

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

set pf-status 'ZEST'.

SET TITLEBAR 'TITLE'.

move-corresponding itab to zestHEADER.

MOVE-CORRESPONDING ITAB1 TO ZESTDETAILS.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module user_exit INPUT

&----

text

----

MODULE user_exit INPUT.

case sy-ucomm.

when 'EXIT'.

leave to screen 0.

endcase.

ENDMODULE. " user_exit INPUT

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 09:08:56 GMT

***PBO

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

LOOP AT ITAB_F

WITH CONTROL ZTAB_CTRL

CURSOR ZTAB_CTRL-CURRENT_LINE.

MODULE ZTAB_CTRL_GET_LINES.

ENDLOOP.

***PAI

PROCESS AFTER INPUT.

LOOP AT ITAB_F.

CHAIN.

FIELD ITAB_F-MATNR.

FIELD ITAB_F-MAKTX.

FIELD ITAB_F-SUM.

FIELD ITAB_F-ACT_QTY.

ENDCHAIN.

MODULE UPDATE_VALUES_TO_IT.

ENDLOOP.

MODULE USER_COMMAND_0100.

itab_f is the final internal table,

When this gets populated in the program , etries are displayed on the table control.

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

CASE OK_CODE.

***DISPLAY

WHEN 'DISPLAY'.

CLEAR OK_CODE.

CLEAR ITAB_F[].

PERFORM CHECK_DATE.

PERFORM MARD.

PERFORM MAKT.

PERFORM CHECK_TABLE.

PERFORM ENTRIES.

endcase.

Your forms contain the actual logic what you want to do in your program.

Message was edited by:

Manu Kapur

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 09:14:26 GMT

Hi Krishna ,

Try like this .

PROCESS BEFORE OUTPUT.

loop at itab1 with control VCONTROL.

MODULE STATUS_0100.

endloop.

PROCESS AFTER INPUT.

loop at itab1.

endloop.

MODULE USER_COMMAND_0100.

module user_exit.

the code for PAI & PBO

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

case sy-ucomm.

when 'DISP'.

refresh itab.

* append itab.

endselect.

refresh itab1.

select LINE_NO LINE_STATUS SALES_MATNR UOM QTY UNIT_PRICE AMOUNT PRICE_TYPE COMMENTS from ZESTDETAILS into table itab1 for all entries in itab where ESTMATE_NBR = itab-ESTMATE_NBR.

* append itab1.

break-point.
endselect.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

Other things r ok .

Execute the pgm in debugging mode and check whether all the values are coming exactly . If not let me know .

Regards ,

Senthil .

Re: Dear Abapers..

Former Member — Wed, 20 Dec 2006 11:03:39 GMT

Hi Senthil,

I got the ouput . noiw i can insert display and change the data successfully in table control.

thanks for ur help senthil,

But i could not insert the multiple line items in table control?

please give some suggestions

thanks

krishna