10
« เมื่อ: มกราคม 05, 2011, 23:02:14 PM »
ผมลองเขียนจำนวนผู้ป่วยที่เจ้าหน้าที่ลงเลขที่บัตรประชาชนไม่ถูกต้องนะครับแต่มัน error ว่า Variable14OnCalc
'' is valid integer value ครับ
-----------------------------------------------------------------------------
n:= StrToInt(GetSQLStringData('select count(o.hn) as cnt '+
'from ovst o '+
'where o.vstdate between "'+ds1+'" and "'+ds2+'" '+
'and o.staff="'+DBPipeline['staff']+'" '));
ns:=IntToStr(n);
showmessage(ns);
n:=StrToInt(ns);
amopt:=0;
for n:= 1 to n do
begin
ns:=IntToStr(n);
pid := GetSQLStringData('select concat(substring(p.cardno,1,1) '+
',substring(p.cardno,3,4),substring(p.cardno,8,5),substring(p.cardno,14,2) '+
',substring(p.cardno,17,1)) as pid '+
'from ovst o left outer join ptcardno p on p.hn=o.hn '+
'where p.cardtype="01" and o.vstdate between "'+ds1+'" and "'+ds2+'" '+
'and o.staff="'+DBPipeline['staff']+'" limit '+ns+',1 ');
cv := strtoint(copy(pid, 1, 1));
nValue := cv * 13;
for i := 2 to 12 do
begin
cv := strtoint(copy(pid, i, 1));
nValue := nValue + (cv * (14 - i));
end;
nMod := 11 - (nValue mod 11);
snmod := inttostr(nmod);
snmod := copy(snmod, length(snmod), 1);
sn13 := copy(pid, 13, 1);
if snmod=sn13 then
amopt:=amopt+1;
s:=IntToStr(amopt);
showmessage(s);
amopt:=StrToInt(s);
end;
value:=s;
แสดงกระทู้
