SAP ABAP 需求计算

LOOP AT gt_xq."需求
CLEAR L_INDEX.
LOOP AT GT_PO where matnr = gt_xq-matnr."采购订单
if gt_po-menge > 0.
l_index = l_index + 1.
if l_index = 1.
L_menge = GT_XQ-MENGE - gt_po-menge.
else.
L_menge = l_MENGE - gt_po-menge.
endif.
if l_menge <= 0.
gt_po-menge = gt_po-menge - gt_xq-menge."减去已用PO数量
MODFITY GT_PO.
exit."分配结束退出当前循环
ELSE.
GT_PO-MENGE = 0.
MODFITY GT_PO,
endif.
endif.
ENDloop.
ENDLOOP.