topic Re: Program in Application Development and Automation Discussions

Program

Former Member — Wed, 04 Jul 2007 09:10:12 GMT

Hi to all

i want one program.

table VBAP

fields :1. vbeln

2. wmeng

3. -meng(this field also meng but starting letter confusing pls check this once)

wt i want is a report(output) that wmeng & -meng will equal values will display as output.

(in table some values r equal in this 2 fileds)

taht will display with ebeln.

i did i got total values into internal table, but i dont want taht total values will be in internal table

i want only that matching filed in internal table & display that fields only.

Re: Program

Former Member — Wed, 04 Jul 2007 09:20:24 GMT

data: begin of itab occurs 0,

vbeln like vbap-vbeln,

posnr like vbap-posnr,

matnr like vbap-matnr,

kwmeng like vbap-kwmeng,

lsmeng like vbap-lsmeng,

end of itab.

select vbeln posnr matnr kwmeng lsmeng into table ITAB from VBAP.

sort ITAB by VBELN posnr.

delete ITAB where kwmeng <> lsmeng.

Now the ITAB will have the records where both the qty fields are equal.

loop at itab.

write: / itab-vbeln, itab-posnr, itab-matnr.

endloop.

<b>Reward points for useful Answers</b>

Regards

Anji

Re: Program

Former Member — Wed, 04 Jul 2007 09:24:06 GMT

thanks gud program

but in select statement only we wont get only equal values then into itab

Re: Program

Former Member — Wed, 04 Jul 2007 09:26:41 GMT

hi,

write this

select vbeln posnr matnr kwmeng lsmeng into table ITAB from VBAP

where kwmeng eq lsmeng.

Re: Program

Former Member — Wed, 04 Jul 2007 09:26:48 GMT

Hi raj,

The third field is Zmeng(Target QTY in sales unit).

After selecting the entries from the table VBAP you have to sort out the internal table where wmeng eq zmeng.

this row you have to append to another internal table and you can use this internal table for dispaly.

code sample:

loop at i_vbap into wa_vbap.

IF wa_vbap-wmeng eq wa_vbap-zmeng.

append wa_vbap to i_vbap2.

endif.

endloop.

i hope this will solve your problem.

Thanks,

CS Reddy.

PS:Reward points if Helpful.

Re: Program

Former Member — Wed, 04 Jul 2007 09:31:33 GMT

data: begin of fs_vbap,

vbeln like vbap-vbeln,

posnr like vbap-posnr,

matnr like vbap-matnr,

kwmeng like vbap-kwmeng,

lsmeng like vbap-lsmeng,

end of fs_vbap.

data t_vbap like standard table of fs_vbap.

select vbeln posnr matnr kwmeng lsmeng into table t_vbap from vbap.

sort t_vbap by vbeln posnr.

delete t_vbap where kwmeng ne lsmeng.

loop at t_vbap into fs_vbap.

write: / fs_vbap-vbeln, fs_vbap-posnr, fs_vbap-matnr, fs_vbap-kwmeng, fs_vbap-lsweng.

endloop.

We can't select the values directly in the select query where these two values are equal.

So we need to select all the records and then delete the records which doesn't satisfy the condition.

Regards,

Pavan P.