create or alter procedure srv_diag_qty_distr
returns(
    doc_id dm_ids,
    optype_id dm_ids,
    rcv_optype_id dm_ids,
    doc_data_id dm_ids,
    qty dm_qty,
    qdqs_sum dm_qty,
    qdistr_q dm_qty,
    qstorned_q dm_qty
) as
begin
    execute procedure sp_check_nowait_or_timeout;

    for
        select
            b.doc_id,
            b.optype_id,
            b.rcv_optype_id,
            b.id,
            b.qty,
            b.qdistr_q + coalesce(sum(qs.snd_qty),0) qdqs_sum,
            b.qdistr_q,
            coalesce(sum(qs.snd_qty),0) qstorned_q
        from (
            select d.doc_id, h.optype_id, r.rcv_optype_id, d.id, d.qty --
            ,coalesce(sum(qd.snd_qty),0) qdistr_q
            from doc_data d
            join doc_list h on d.doc_id = h.id
            join rules_for_qdistr r on h.optype_id = r.snd_optype_id
            left join qdistr qd on d.id = qd.snd_id and r.snd_optype_id=qd.snd_optype_id and r.rcv_optype_id=qd.rcv_optype_id
            group by d.doc_id, h.optype_id, r.rcv_optype_id, d.id, d.qty
        ) b
        left join qstorned qs on b.id = qs.snd_id and b.optype_id=qs.snd_optype_id and b.rcv_optype_id=qs.rcv_optype_id
        group by
            b.doc_id,
            b.optype_id,
            b.rcv_optype_id,
            b.id,
            b.qty,
            b.qdistr_q
        having b.qty < b.qdistr_q + coalesce(sum(qs.snd_qty),0)
        into
            doc_id,
            optype_id,
            rcv_optype_id,
            doc_data_id,
            qty,
            qdqs_sum,
            qdistr_q,
            qstorned_q
    do suspend;
end

PROCEDURE SRV_DIAG_QTY_DISTR  RETURNS ( 
 DOC_ID DM_IDS ,
 OPTYPE_ID DM_IDS ,
 RCV_OPTYPE_ID DM_IDS ,
 DOC_DATA_ID DM_IDS ,
 QTY DM_QTY ,
 QDQS_SUM DM_QTY ,
 QDISTR_Q DM_QTY ,
 QSTORNED_Q DM_QTY 
 )as 

BEGIN 

EXECUTE PROCEDURE SP_CHECK_NOWAIT_OR_TIMEOUT;