实体导出

MZkejiazai

entity/ent(10000)
string/part_name(132),ERP(132)
5 p  K5 X) [' H1 }! g1 _* ]string/date1(132),date2(132),date3(132),date4(132)
A=0
/ _* S5 Q0 ?( f. ]" b* U         $$程序加密，用时间限制使用权限$$
    date1=substr(date,1,2)
    date2=substr(date,5,2)
    date3=substr(date,9,2)
! u! J/ w; g, k8 x, l$ X4 m+ s    date4=date3+date1+date2
        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
  O1 N; }) T( T0 u    $$messg/date4
  C1 B: K! f$ {    if/valf(date4)>111230,jump/messg:
start:
. N  G" w: G* Xl10:
4 F/ J+ ~( b' jTEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
- ~  P4 M; z1 e" \- lcrdir/'e:\sold',iferr,a1:
jump/L10:,trm:,,resp
0 f7 d0 e; u8 O; O2 V# F0 m( f! ^         
+ `& b# {2 H! i9 b$ aa1: mask/70
ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
5 X6 o6 V3 T6 ~7 s. i7 ajump/trm:,trm:,,,rsp
a2:
( V5 f6 ~, y6 s4 N; j- E$ Gdo/la1:,i,1,n
A=A+1
IFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
else
5 n5 w% _$ N  Z. B1 Y& K9 ]&name(ent(i))=ERP+'0'+Istr(A)
ENDIF
part_name=&name(ent(i))
2 U" I& {/ a: H: j1 k& z5 M) {. Hifthen/lenf(part_name)==0
print/'not found solid name'
9 b5 q( [& E; ajump/la1:
endif
, s$ d' b/ }, Ncpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
BLANK/(ent(i))
la1:
+ N  J6 i) M5 W. ?& V; A; Il20:
           jump/start:
+ i" a' q& K9 y( Gmessg:
               messg/'程序使用中有任何问题',$
- V; {% P: S) ]- Y& A5 M                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

# u9 q9 N, L+ D5 N* ktrm:
halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西