实体导出

MZkejiazai

entity/ent(10000)
4 i  h% K( ~: ~string/part_name(132),ERP(132)
! O4 a% C& |" d+ O/ |1 gstring/date1(132),date2(132),date3(132),date4(132)
1 n+ h/ `& B5 G6 X+ u3 oA=0
         $$程序加密，用时间限制使用权限$$
% C2 n; ~; A( o- e    date1=substr(date,1,2)
    date2=substr(date,5,2)
    date3=substr(date,9,2)
    date4=date3+date1+date2
4 J3 [# b, T- w9 K        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
* p; K0 I& W, e3 R) i    if/valf(date4)>111230,jump/messg:
% W" B! f5 a" ~# h5 nstart:
3 {8 O) t9 Q; L) X. p( b. p- z: rl10:
TEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
- N$ o& ?4 I- c" [" Zjump/L10:,trm:,,resp
7 Z9 }' B" g6 X: _# s         
a1: mask/70
/ Q7 ^2 o) F1 M( r! y$ iident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
& C% I6 E5 H& ]$ ]$ M0 N& }$ Z: hjump/trm:,trm:,,,rsp
4 S0 x6 R  f% Xa2:
do/la1:,i,1,n
. ~9 |/ |/ \3 I( cA=A+1
1 Z$ h$ @' b; Y! CIFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
else
# v9 K% n3 U6 `& h' Z! X&name(ent(i))=ERP+'0'+Istr(A)
ENDIF
part_name=&name(ent(i))
ifthen/lenf(part_name)==0
print/'not found solid name'
2 l: m1 e# t! }) ~/ V' O0 R+ p  ~; o! D$ ejump/la1:
; i/ Q8 `/ D4 c$ j5 e( nendif
4 J. p8 b* q) vcpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
: D: V$ n5 B' P+ uBLANK/(ent(i))
la1:
l20:
9 J5 O3 ]! ], Q* Z2 X           jump/start:
messg:
. R. \. h/ V' x, F4 s- z               messg/'程序使用中有任何问题',$
                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'
3 D1 E0 w$ c0 L' n$ G/ x' a
/ h( W; w8 [5 s8 r0 Ktrm:
. P+ [" `7 z% x% O- U* l, W0 W3 nhalt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西