ElseIf bsxjkx > 0 and bsxjky > 0 Then 	
dj(dji) = bsxjk
ElseIf hsxjkx > 0 and hsxjky > 0 Then
dj(dji) = hsxjk
ElseIf hongsexjkx > 0 and hongsexjky > 0 Then
dj(dji) = hongsexjk
ElseIf lsxjkx > 0 and lsxjky > 0 Then
dj(dji) = lsxjk
ElseIf wsxjkx > 0 and wsxjky > 0 Then
dj(dji) = wsxjk
ElseIf lbemx > 0 and lbemy > 0 Then
dj(dji) = lbem
ElseIf klemx > 0 and klemy > 0 Then
dj(dji) = klem
ElseIf qremx > 0 and qremy > 0 Then
dj(dji) = qrem
ElseIf pjdpgx > 0 and pjdpgy > 0 Then
dj(dji) = pjdpg
ElseIf wzlssx > 0 and wzlssy > 0 Then
dj(dji) = wzlss
ElseIf zxjyhjx > 0 and zxjyhjy > 0 Then
dj(dji) = zxjyhj
ElseIf myybX > 0 And myybY > 0 Then
dj(dji) = myyb
ElseIf lhjsx > 0 and lhjsy > 0 Then
dj(dji) = lhjs
ElseIf gaosx > 0 and gaosy > 0 Then
dj(dji) = gaos
ElseIf jjsx > 0 and jjsy > 0 Then
dj(dji) = jjs
ElseIf lrzyx > 0 and lrzyy > 0 Then
dj(dji) = lrzy
ElseIf fldjcx > 0 and fldjcy > 0 Then
dj(dji) = fldjc
ElseIf sgx > 0 and sgy > 0 Then
dj(dji) = sg
ElseIf jrdcxx > 0 and jrdcxy > 0 Then
dj(dji) = jrdcx
ElseIf psddrx > 0 and psddry > 0 Then
dj(dji) = psddr
ElseIf yydjjx > 0 and yydjjy > 0 Then
dj(dji) = yydjj
ElseIf zxjdsx > 0 and zxjdsy > 0 Then
dj(dji) = zxjds
ElseIf wyemx > 0 and wyemy > 0 Then
dj(dji) = wyem
ElseIf sxdtpx > 0 and sxdtpy > 0 Then
dj(dji) = sxdtp
ElseIf ysx > 0 and ysy > 0 Then
dj(dji) = ys
ElseIf hjscx > 0 and hjscy > 0 Then
dj(dji) = hjsc
ElseIf lladzjmpx > 0 and lladzjmpy > 0 Then
dj(dji) = lladzjmp
ElseIf nddzjhpx > 0 and nddzjhpy > 0 Then
dj(dji) = nddzjhp   //诺顿的专家hp药剂
ElseIf dmltpdps = 0 Then   //龙头炮的炮身
dj(dji) = ltpdps
ElseIf dmxedjj = 0 Then
dj(dji) = xedjj
ElseIf dmzndzz = 0 Then
dj(dji) = zndzz
ElseIf dmfengmi = 0 Then
dj(dji) = fengmi
ElseIf dmcusuan = 0 Then
dj(dji) = cusuan
ElseIf dmtrnl = 0 Then
dj(dji) = trnl
ElseIf dmyymg = 0 Then
dj(dji) = yymg
ElseIf dmblb = 0 Then
dj(dji) = blb
ElseIf dmzzddyy1 = 0 Then
dj(dji) = zzddyy1
ElseIf dmzzddyy2 = 0 Then
dj(dji) = zzddyy2
ElseIf dmzzddyy3 = 0 Then
dj(dji) = zzddyy3
ElseIf dmzzddyy4 = 0 Then
dj(dji) = zzddyy4

End If

//MessageBox dji&"|单价"&dj(dji)
//dm_ret = dm.FoobarPrintText(foobar,dji,"ff0000")
//dm_ret = dm.FoobarPrintText(foobar,tempdj,"ff0000")
	    If dj(dji) > 0 Then 
        STR(dji) = dm.Ocr(x1,174,x2,182,"ffffff-000000",1.0) 
        If STR(dji)="" Then 
    	STR(dji) = 1	
        End If
	    End If
 //MessageBox STR(dji)
zj = zj + dj(dji) * STR(dji)                 //计算总价
danjia = danjia & dj(dji) & "|"
shuliang=shuliang&STR(dji)&"|"
//MessageBox shuliang
dji = dji + 1
xx1 = xx1 + 30
xx2 = xx2 + 30