PowerBuilder 風雲再起 - PowerBuilder 使用者家族

//統一編號檢查
integer li_v1, li_v2, li_v3, li_v4, li_v5, li_v6, li_v7, li_v8
string ls_v1, ls_v2, ls_v3, ls_v4, ls_v5, ls_v6, ls_v7, ls_v8
boolean lb_ret1, lb_ret2, lb_retval
//乘上權數
ls_v1=string(integer(mid(as_tid,1,1))*1,'00')
ls_v2=string(integer(mid(as_tid,2,1))*2,'00')
ls_v3=string(integer(mid(as_tid,3,1))*1,'00')
ls_v4=string(integer(mid(as_tid,4,1))*2,'00')
ls_v5=string(integer(mid(as_tid,5,1))*1,'00')
ls_v6=string(integer(mid(as_tid,6,1))*2,'00')
ls_v7=string(integer(mid(as_tid,7,1))*4,'00')
ls_v8=string(integer(mid(as_tid,8,1))*1,'00')
//所有乘積和
li_v1=integer(left(ls_v1,1))+integer(right(ls_v1,1))
li_v2=integer(left(ls_v2,1))+integer(right(ls_v2,1))
li_v3=integer(left(ls_v3,1))+integer(right(ls_v3,1))
li_v4=integer(left(ls_v4,1))+integer(right(ls_v4,1))
li_v5=integer(left(ls_v5,1))+integer(right(ls_v5,1))
li_v6=integer(left(ls_v6,1))+integer(right(ls_v6,1))
li_v7=integer(left(ls_v7,1))+integer(right(ls_v7,1))
li_v8=integer(left(ls_v8,1))+integer(right(ls_v8,1))

IF (mod(li_v1+li_v2+li_v3+li_v4+li_v5+li_v6+li_v7+li_v8,10)=0) THEN
lb_ret1=TRUE
ELSE
lb_ret1=FALSE
END IF
IF li_v7=10 THEN
IF (mod(li_v1+li_v2+li_v3+li_v4+li_v5+li_v6+1+li_v8,10)=0) THEN
lb_ret2=TRUE
ELSE
lb_ret2=FALSE
END IF
ELSE
lb_ret2=FALSE
END IF
lb_retval=lb_ret1 OR lb_ret2
return lb_retval