1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
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
