01-02-2008 10:29 PM
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
01-03-2008 1:18 AM
01-03-2008 1:18 AM
01-03-2008 6:35 PM