begin

 for SELECT    PRICES.ID,
               PRICES.KOLVO,
               PRICES.SUMAP,
               PRICES.IDSPRTOVARA,
               PRICES.IDSPRPROIZV,
               PRICES.AP0,
               PRICES.AP1,
               PRICES.AP2,
               PRICES.AP3,
               PRICES.AP4,
               PRICES.AP5,
               PRICES.AP6,
               PRICES.AP7,
               PRICES.AP8,
               PRICES.AP9,
               PRICES.AP10,
               PRICES.AP11,
               PRICES.AP12,
               PRICES.AP13,
               PRICES.AP14,
               PRICES.AP15,
               PRICES.AP16,
               PRICES.AP17,
               PRICES.AP18,
               PRICES.AP19,
               PRICES.AP20,
               PRICES.AP21,
               PRICES.AP22,
               PRICES.AP23
    FROM PRICES
    where ((SUMAP is not null) or (SUMM is not null)) and (PROIZV = 1)
    ORDER BY NAME
    into :tmpid,:tmpkolvo, :tmpsumap,:tmpidsprtovara,:tmpidsprproizv,
    :tmpap0,:tmpap1,:tmpap2,:tmpap3,:tmpap4,:tmpap5,:tmpap6,:tmpap7,:tmpap8,:tmpap9,:tmpap10,:tmpap11,:tmpap12,:tmpap13,:tmpap14,:tmpap15,:tmpap16,:tmpap17,:tmpap18 ,:tmpap19,:tmpap20,:tmpap21,:tmpap22,:tmpap23
    do begin

        vse = 0;
        SUMMAZ = 0;
        SUMMSZAKAZA =:tmpsumap;

        /* 23.07.2018  */
        for SELECT SPRTOVARA.NAME from SPRTOVARA where SPRTOVARA.id = :tmpidsprtovara into :TMPNAMETOV
        do begin
           If (POSITION('КАНОН', :tmpnametov)> 0) then
               update prices set PRICES.IDSPRPROIZV = 1896 where prices.id = :tmpid;
        end
      /*  23.07.2018 */

        for SELECT
            RESIVEPRICE.ID,
            RESIVEPRICE.KOLVO,
            resiveprice.idsprtovara,
            RESIVEPRICE.idsprpostav
        FROM resiveprice
        where idsprtovara = :tmpidsprtovara and idsprproizv = :tmpidsprproizv and zakaz = 0
        /* 17.08.2017 */
        and ((RESIVEPRICE.idsprpostav <> 173) and (RESIVEPRICE.idsprpostav <> 180))
         /* 17.08.2017 */
        order by price, KOLVO desc
        into :tmpid_r,:tmpkolvo_r, :tovar_id, :postavshik_id
        do begin
           if (vse = 0) then begin
               if (SUMMSZAKAZA>tmpkolvo_r) then
                       begin
                       S =:tmpkolvo_r;
                       SUMMSZAKAZA = :SUMMSZAKAZA-:S;
                       end
                       else begin
                            S =:SUMMSZAKAZA;
                            end
              execute procedure inszakazipart(tmpid,tmpid_r, tovar_id, postavshik_id, S,
               tmpap1,tmpap2,tmpap3,tmpap4,tmpap5,tmpap6,tmpap7,tmpap8,tmpap9,
               tmpap10,tmpap11,tmpap12,tmpap13,tmpap14,tmpap15,tmpap16,tmpap17,tmpap18,tmpap19,tmpap20,tmpap21,tmpap22,tmpap23,0,tmpap0) returning_values :SUMMAZ,:tmpssumr ;
                   if (tmpssumr>0) then
                      update resiveprice set zakaz=1,KOLVOZAKAZ = :tmpssumr where resiveprice.id = :tmpid_r;
                   if (SUMMAZ >= tmpSUMAP) then begin
                                                vse = 1;
                                                end
                   /*else begin
                        /*tmpkolvo = tmpSUMAP-tmpsumm;
                        if (tmpsumm>0) then SUMMAZ = tmpsumm;
                        end*/
                        end
           end
           if (SUMMAZ > 0 ) then
              update prices set prices.summ =  :SUMMAZ where prices.id = :tmpid;
/**/   end
end