On the question of "exe"?

[zdh]

Macro 脚本1

Code:

Copy      Help

int w4=win("分版制版传票" "TFrmZbSummonFbNew")

Acc a43.Find(w4 "CLIENT" "" "class=TdxEdit[]xy=66 140" 0x1005)   ;;这是订法
Acc a41.Find(w4 "CLIENT" "" "class=TdxEdit[]xy=247 140" 0x1005)  ;;这是印张
Acc a42.Find(w4 "CLIENT" "" "class=TdxEdit[]xy=209 36" 0x1005)   ;;注意这是采集订单的名称
str+ ddmc=a42.Name
str dingfa=a43.Name
str yz=a41.Name
double yz_dou=val(yz 2)
int yz_int=yz_dou
double ly=yz_dou-yz_int
str ly_str=ly

if (yz_dou<=3 and dingfa="胶订")
,mes- F"该订单正文有【{yz}】个印张，但其装订方式为胶订，订单无误请继续？" "提示" "OC!" 

if (yz_dou>=8 and dingfa="骑马订")
,mes- F"该订单正文有【{yz}】个印张，但其装订方式为骑马订，订单无误请继续？" "提示" "OC!" 


Acc a3.Find(w4 "CLIENT" " 对象列表" "class=TPanel" 0x1005)
a3.Mouse(1 150 8)
int w5=win("选择印件对象" "TfrmSelObjNew")
act w5
;

;
;wait 0.5
;
rep 20
,
,y=11+(20*h)
,
,int w7=win("选择印件对象" "TfrmSelObjNew")
,Acc a11.Find(w7 "CLIENT" "" "class=TdxTreeList" 0x1004)
,a11.Mouse(1 600 y)
,Acc a6.Find(w7 "CLIENT" "" "class=TdxInplaceTreeListTextEdit" 0x1005)
,str name=a6.Name
,if (name="胶轮" or name="胶平" or name="彩平" or name="彩轮")
,,yf[count]=a6.Name
,if (name="胶轮" or name="胶平" or name="彩平" or name="彩轮")
,,int w6=win("选择印件对象" "TfrmSelObjNew")
,,Acc a4.Find(w6 "CLIENT" "" "class=TdxTreeList" 0x1004)
,,a4.Mouse(1 12 y)
,,a4.Mouse(1 55 y)
,,Acc a4a.Find(w6 "CLIENT" "" "class=TdxInplaceTreeListTextEdit" 0x1005)
,,dx[count]=a4a.Name
,,if (matchw(dx[count] "*插*"))
,,,int cy=1
,,a4.Mouse(1 112 y)
,,Acc a4b.Find(w6 "CLIENT" "" "class=TdxInplaceTreeListTextEdit" 0x1005)
,,dxlx[count]=a4b.Name
,,if (dxlx[count]="单页")
,,,int+ dxjs=count
,,h=h+1
,,count=count+1
,else
,,h=h+1
,,
,,if(h>20) break