实体导出

MZkejiazai

entity/ent(10000)
) T* k% x+ O9 k5 o% tstring/part_name(132),ERP(132)
2 ?: n% ]# s$ k% p- a! A; Pstring/date1(132),date2(132),date3(132),date4(132)
( O0 y" V* s; F  W& Q, [A=0
6 S% g! u) G! d9 \4 H# G6 @( B         $$程序加密，用时间限制使用权限$$
7 M/ d2 W- A  r9 H# _    date1=substr(date,1,2)
1 D6 G( ^# p: i7 J" x4 h! u5 `    date2=substr(date,5,2)
    date3=substr(date,9,2)
    date4=date3+date1+date2
$ ?1 v0 a) A  ^1 I5 s9 }  j- J        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
    if/valf(date4)>111230,jump/messg:
start:
/ Y& S' c" ~# ~9 ol10:
TEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
& Q3 Q$ m! f& l& K) i3 Y+ Wjump/L10:,trm:,,resp
3 s2 r, `1 ^- R. f  k. V( G         
) f: o2 D9 _+ }' W; O+ b7 t* W) C2 Y  r' Ta1: mask/70
9 I0 F5 O- P* w: J3 ]ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
jump/trm:,trm:,,,rsp
. O. f- I' H  H+ ^9 o4 j1 d6 ]7 @a2:
do/la1:,i,1,n
' l$ k9 Y, l* z+ Z+ T0 YA=A+1
2 J' u) d6 H8 yIFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
else
7 _9 f$ K. Z" X; M7 o$ \, G$ M&name(ent(i))=ERP+'0'+Istr(A)
ENDIF
( q+ z4 T% d, m) m! G  P% c( Y0 bpart_name=&name(ent(i))
ifthen/lenf(part_name)==0
7 a2 o- {2 T5 L4 B+ uprint/'not found solid name'
jump/la1:
- J4 O6 M5 \% h; v# J8 P% rendif
cpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
, ?9 l7 z( z! {) U5 k! O$ @8 YBLANK/(ent(i))
! U: T6 A2 K, A! _/ Yla1:
' w8 t' k5 J  w0 L8 gl20:
1 R* X, a4 O1 I! _           jump/start:
messg:
% n" a% P  R9 [  d* s. q3 ~5 k4 `$ w               messg/'程序使用中有任何问题',$
                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'

trm:
) B8 }4 x5 L7 Ihalt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西