请高手帮忙看看这个程序哪里错了

begin
a:=[ads."销售单价"];
b:=[ads."普通特价_促销价"];
b1:=[ads."普通特价_起始日期"];
b2:=[ads."普通特价_结束日期"];
c:=[ads."万能促销_本期促销_促销价"];
c1:=[ads."万能促销_本期促销_起始日期"];
c2:=[ads."万能促销_本期促销_结束日期"];
e:=[ads."长期会员价_促销价"];
f:=[ads."批量_本期促销_促销价"];
d:=[ads."定价方式"];

if b<>'0' then
begin
a1:=b;
a2:=b1;
a3:=b2;
End
else
begin
if c<>'0' then
begin

a1:=c;
a2:=c1;
a3:=c2;

End
else
begin
if e<>'0' then
begin
if d='1'then
begin
a1:=e;
end
else
begin
a1:=a*e/100;
end
End
else
begin
if f <>'0' then
begin

a1:=f;

End
else
begin
a1:=a;
End
end
end
end;

if d='定价' then
begin
m:='0%';
end
else
m:='折扣率';
end;
dw:=[ads."计量单位"];
if dw='KG' then
begin
dw:='500克';
a1:=a1/2;

end;
if dw='kg' then
begin
dw:='500克';
a1:=a1/2;
end;
if dw='公斤' then
begin
dw:='500克';
a1:=a1/2;

end;
if dw='千克' then
begin
dw:='500克';
a1:=a1/2;
end;
if dw='Kg' then
begin
dw:='500克';
a1:=a1/2;

end;
end

举报该文章