topic Re: report in Application Development and Automation Discussions

report

Former Member — Wed, 16 Apr 2008 10:11:43 GMT

i hav to display one field by using logic:Logic 1 - Pass the value of PSP_NR(QMEL) as the field PSPNR(PRPS) and get PSPHI(PRPS) and pass the value as input for field PSPNR(PROJ) and display the value of POST(PROJ) kan someone help me out ..how to do this

Re: report

Former Member — Wed, 16 Apr 2008 10:24:00 GMT

Hi,

check this logic,

***********

select psp_nr from qmel into table it_qmel.

select psphi pspnr from prps into table it_prps for all entries in it_qmel where pspnr = it_qmel-psp_nr.

select pspnr post from proj into table it_proj for all entries in it_prps where pspnr = it_prps-pspnr.

****************

Reward if it is helpful.

Regards,

Bhanu

Re: report

Former Member — Wed, 16 Apr 2008 10:30:48 GMT

hi do like this ...

you can relate the tables PRPS and QMEL with the field OBJNR

and use the fields to combine two tables PRPS and PROJ with PSPNR and POST1 fileds.

regards,

venkat

Re: report

Former Member — Wed, 16 Apr 2008 10:47:27 GMT

kan you give me code please

Re: report

Former Member — Mon, 28 Apr 2008 12:08:13 GMT

REFRESH gt_qmel.

SELECT qmnum

qmart

qmtxt

erdat

qwrnum

psp_nr

fertaufnr

ebeln

ebelp

matnr

mblnr

arbpl

ekorg

bkgrp

objnr

pnlkn

fertaufpl

qmcod

qmnam

ernam

zz_short_text

prueflos

FROM qmel

INTO CORRESPONDING FIELDS OF TABLE gt_qmel

WHERE qmnum EQ p_qmnum.

SELECT vornr

ltxa1

aufpl

plnkn

FROM afvc INTO CORRESPONDING FIELDS OF TABLE gt_afvc FOR

ALL ENTRIES IN gt_qmel WHERE

aufpl EQ gt_qmel-fertaufpl AND

plnkn EQ gt_qmel-pnlkn.

SELECT maktx

matnr

FROM makt INTO CORRESPONDING FIELDS OF TABLE gt_makt FOR

ALL ENTRIES IN gt_qmel WHERE

matnr EQ gt_qmel-matnr AND

spras EQ sy-langu.

SELECT qmartx

qmart

FROM tq80_t INTO CORRESPONDING FIELDS OF TABLE gt_tq80_t

FOR ALL ENTRIES IN gt_qmel WHERE

qmart EQ gt_qmel-qmart AND

spras EQ sy-langu.

SELECT code

katalogart

codegruppe

kurztext

FROM qpct INTO CORRESPONDING FIELDS OF TABLE gt_qpct

FOR ALL ENTRIES IN gt_qmel WHERE

code EQ gt_qmel-qmcod

AND katalogart EQ 'T'

AND codegruppe EQ 'INSPTYPE'.

SELECT pspnr

psphi

FROM prps INTO CORRESPONDING FIELDS OF TABLE gt_prps

FOR ALL ENTRIES IN gt_qmel WHERE

pspnr EQ gt_qmel-psp_nr.

IF sy-subrc EQ 0.

SELECT pspnr

post1

FROM proj INTO CORRESPONDING FIELDS OF TABLE gt_proj

FOR ALL ENTRIES IN gt_prps WHERE

pspnr EQ gt_prps-psphi.

ENDIF.

SELECT stat

FROM jest INTO CORRESPONDING FIELDS OF TABLE gt_jest FOR

ALL ENTRIES IN gt_qmel WHERE

objnr EQ gt_qmel-objnr

AND stat EQ 'E*'

AND inact <> 'X'.

SELECT stsma FROM jsto INTO CORRESPONDING FIELDS OF TABLE gt_jsto

FOR ALL ENTRIES IN gt_qmel WHERE

objnr EQ gt_qmel-objnr.

SELECT txt04

txt30

estat

FROM tj30t INTO CORRESPONDING FIELDS OF TABLE

gt_tj30t FOR ALL ENTRIES IN gt_jsto

WHERE stsma EQ gt_jsto-stsma

AND estat EQ gt_jest-stat

AND spras EQ sy-langu.