--------------------------------------------------------------------------------xqp 20180209
   begin
     --找出有关这个配送单的相关记录，遍历
     --一个配送单号可能由多个看板组成，
     for curr in (select t.kanban_id,
                         t.plant_id,
                         t.item_id,
                         t.station_id,
                         t.kanban_group_qty,
                         t.ref_kb_dis_kid,
                         t.kanban_qty
                    from fy_ps_report_data t
                   where instr(concat(CONCAT(',', t.ref_kb_dis_kid), ','),
                               concat(CONCAT(',', to_char(p_kid)), ',')) > 0) loop
       if curr.ref_kb_dis_kid = to_char(p_kid) then
         --当看板的配送单ID号跟P_kid相等时，直接改状态
         ln_message_id := fy_ps_pck.update_ps_report_data(p_kanban_id     => curr.kanban_id,
                                                          p_kanban_status => 'D');
         IF ln_message_id <> hcm_public_pck.g_success THEN
           --  RETURN ln_message_id;
           dbms_output.put_line('-------error1--------');
         END IF;
       else
         --当不相等时，看板生成多个配送单号，取这个物料生成的配送数量
         begin
           select t.apply_dis_qty
             into ln_ps_qty
             from fy_ps_line t
            where t.kid = p_kid
              and t.item_id = curr.item_id
              and t.plant_id = curr.plant_id;
         exception
           when others then
             ln_ps_qty := 0;
         end;       
         ln_message_id := fy_ps_pck.update_ps_report_data(p_kanban_id  => curr.kanban_id,
                                                          p_kanban_qty => curr.kanban_qty -
                                                                          ln_ps_qty);
         IF ln_message_id <> hcm_public_pck.g_success THEN
           --  RETURN ln_message_id;
           dbms_output.put_line('----error2--------');
         END IF;
       end if;
     end loop;
   end;
-------------------------------------------------------------------------------------