实体导出

MZkejiazai

entity/ent(10000)
string/part_name(132),ERP(132)
string/date1(132),date2(132),date3(132),date4(132)
9 d$ H- R. o& \4 ?- wA=0
7 Q5 O, }! |6 b         $$程序加密，用时间限制使用权限$$
6 h$ t! Z- R" Z+ o4 ?- ~( k    date1=substr(date,1,2)
    date2=substr(date,5,2)
: w1 `0 D$ {0 W    date3=substr(date,9,2)
    date4=date3+date1+date2
+ K# h( W9 [5 P$ F$ n" t+ @5 V1 ~        $$PRINT/DATE,DATE1,DATE2,DATE3,DATE4
    $$messg/date4
3 p6 k  E% P  ~# O    if/valf(date4)>111230,jump/messg:
start:
# b8 L; M5 H) `6 j+ Gl10:
: n! V/ o% ]; x7 L4 M3 m8 |9 RTEXT/'赖文辉提醒你：请输入ERP:',ERP,RSP
crdir/'e:\sold',iferr,a1:
jump/L10:,trm:,,resp
* b; f% V$ O$ S+ S' C  o0 L5 Y( ^         
a1: mask/70
ident/'赖文辉提醒你：请选择要导出的实体',ent,cnt,n,rsp
, p$ \! T7 K- Zjump/trm:,trm:,,,rsp
5 W/ e+ ^( [5 C1 n  e7 Z; Z4 `+ Na2:
( ~. J: \; B* [4 `! s, pdo/la1:,i,1,n
' ^/ V5 I  s* _8 R5 JA=A+1
: D7 A# R; s% z8 n1 uIFTHEN/A<10
&name(ent(i))=ERP+'00'+Istr(A)
else
( K" j$ L( b* G3 y3 `&name(ent(i))=ERP+'0'+Istr(A)
$ Y$ t: O  @* w& Y; ~ENDIF
+ {- h: q, D' u. {; m) D/ a, fpart_name=&name(ent(i))
ifthen/lenf(part_name)==0
2 _: E2 M4 ~- W' G, I& ^4 kprint/'not found solid name'
* A5 X- A- y: |$ H% Z5 Ojump/la1:
. |' j. n6 k4 x# ^: z9 iendif
/ R6 r. u5 C* N% i5 r, Ocpatt/update,'e:\sold\'+part_name+'.prt',ent(i)
BLANK/(ent(i))
la1:
, {0 |& m4 r. g! j- Ql20:
7 Q# M# c5 I# J# A           jump/start:
7 y1 j; \" m1 B3 k5 emessg:
               messg/'程序使用中有任何问题',$
' c# \' ~# b/ X& j9 v( K                     '你的使用时间已过期,请联系赖文辉 QQ:369307855'
! C8 R0 e( E/ i' {5 k
trm:
halt

MZkejiazai

7拼8凑弄来的源码

baton520

非常好的东西