--此程序适用于(1)三张工单号全部显示在一格里,CUX_PO_ORDER_WX(采购订单-外协)(2)按前边多一个空格的方式层次显示BOM层级
/*add by wrh 20140628:一个订单行的一个发运行对应三个分配行的三张不同任务单号,
即一个订单行对应三张工单,三张工单号全部显示在一格里*/
FOR C_DIS IN CUR_DIS(c_h.PO_HEADER_ID,c_l.PO_LINE_ID,c_h.org_id) LOOP
IF L_WIP_NAME <> C_DIS.WIP_ENTITY_NAME THEN
L_WIP_NAME := L_WIP_NAME || CHR(10) || C_DIS.WIP_ENTITY_NAME;
ELSE
L_WIP_NAME := C_DIS.WIP_ENTITY_NAME;
END IF;
END LOOP;
--end add 20140628
/*add by wrh 20140628:一个订单行的一个发运行对应三个分配行的三张不同任务单号,
即一个订单行对应三张工单,三张工单号全部显示在一格里*/
FOR C_DIS IN CUR_DIS(c_h.PO_HEADER_ID,c_l.PO_LINE_ID,c_h.org_id) LOOP
IF L_WIP_NAME <> C_DIS.WIP_ENTITY_NAME THEN
L_WIP_NAME := L_WIP_NAME || CHR(10) || C_DIS.WIP_ENTITY_NAME;
ELSE
L_WIP_NAME := C_DIS.WIP_ENTITY_NAME;
END IF;
END LOOP;
--end add 20140628