引用:
|
作者Basara
那先把M.J.是哪一隊的搞清楚好不好？
另外也別自創英文人名。
還有『馨竹南書』，四個字就錯兩個，也太誇張了，
還是讀財經就可以不管中文英文？
|
我不是讀財經的
show一下專業
-----------------------------------------------------------------------------------------------
procedure tsnout.calvalue;
var
bmon,bmon1,bmon2,bmon3,bmon4,bmon5:real;
begin
wwliout1.BeforeEdit:=nil;
bmon:=0;bmon1:=0;bmon2:=0;bmon3:=0;bmon4:=0;bmon5:=0;
wwliout2_1.Refresh;
wwliout2_1.Locate('num',wwliout1.fieldbyname('num').asstring,[]);
while (wwliout2_1.FieldByName('num').asstring=wwliout1.FieldByName('num').asstring) and (not wwliout2_1.Eof) do
begin
bmon:=bmon+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*wwliout2_1unp.AsFloat;
bmon1:=bmon1+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*wwliout2_1imp.AsFloat;
bmon2:=bmon2+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*(wwliout2_1imp.AsFloat-wwliout2_1inp.AsFloat);
bmon4:=bmon4+(wwliout2_1qly.AsFloat+wwliout2_1qly1.AsFloat)*wwliout2_1inp.AsFloat;
wwliout2_1.Next;
end;
// 刷卡成本增加
wwlioutcas1.Refresh;
wwlioutcas1.Locate('num',wwliout1.fieldbyname('num').asstring,[]);
while (wwlioutcas1.FieldByName('num').asstring=wwliout1.FieldByName('num').asstring) and (not wwlioutcas1.Eof) do
begin
bmon3:=bmon3+round(wwlioutcas1car.AsFloat*wwlistoparcarf.AsFloat);
bmon5:=bmon5+round(wwlioutcas1car.AsFloat*wwlistoparhandf.AsFloat);
wwlioutcas1.Next;
end;
wwliout1.edit;
wwliout1tot.AsFloat:=bmon;
if wwlistoparche1.AsString='1' then
begin
wwliout1mon.AsFloat:=bmon1+bmon3;
// if bmon3>0 then wwliout1tax.AsFloat:=0;
end
else
begin
wwliout1mon.AsFloat:=bmon1;
if bmon3>0 then wwliout1tax.AsFloat:=bmon3;
end;
if bmon5>0 then wwliout1hand.AsFloat:=bmon5;
wwliout1mon1.AsFloat:=bmon2;
wwliout1inp.AsFloat:=bmon4;
wwliout1.post;
wwliout1.BeforeEdit:=wwliout1beforeedit;
end;