Skip to Content
0
Former Member
Jan 02, 2008 at 10:29 PM

Report display change

24 Views

Hi All,

I need to display g_bqty(ivbakp-zmeng) only when there is LV_ACDOC(vbfa-vbeln), if LV_ACDOC is empty then it should not display anything in g_bqty(ivbakp-zmeng). How can I make this change. Please help me.

Thanks,

Veni.

FORM process_data.

DATA: lv_name1 LIKE kna1-name1,

lv_knumv LIKE vbak-knumv,

lv_kbetr LIKE konv-kbetr,

lv_acdoc LIKE vbfa-vbeln.

LOOP AT ivbakp.

g_bqty = ivbakp-zmeng.

MOVE ivbakp-vbeln TO iout-vbeln.

MOVE ivbakp-posnr TO iout-posnr.

MOVE ivbakp-netwr TO iout-netwr.

MOVE g_bqty TO iout-g_bqty.

MOVE ivbakp-audat TO iout-audat.

MOVE ivbakp-auart TO iout-auart.

MOVE ivbakp-augru TO iout-augru.

MOVE ivbakp-kunnr TO iout-kunnr.

MOVE ivbakp-matnr TO iout-matnr.

READ TABLE izppprice WITH KEY kunnr = ivbakp-kunnr

matnr = ivbakp-matnr

crmemo = ivbakp-vbeln.

IF sy-subrc = 0.

g_qdiff = izppprice-eohqty - g_bqty.

MOVE izppprice-sprice TO iout-sprice.

MOVE izppprice-eprice TO iout-eprice.

MOVE izppprice-eohqty TO iout-eohqty.

MOVE g_qdiff TO iout-g_qdiff.

ENDIF.

SELECT SINGLE name1

FROM kna1 INTO lv_name1 WHERE kunnr = ivbakp-kunnr.

IF sy-subrc = 0.

MOVE lv_name1 TO iout-name1.

ENDIF.

SELECT SINGLE vbeln

FROM vbfa INTO lv_acdoc WHERE vbelv = ivbakp-vbeln.

IF sy-subrc = 0.

MOVE lv_acdoc TO iout-acdoc.

ENDIF.

APPEND iout.

CLEAR iout.

CLEAR ivbakp.

CLEAR izppprice.

CLEAR lv_name1.

CLEAR lv_acdoc.

ENDLOOP.

ENDFORM. " process_data