load.prg

来自「swgl商务管理系统」· PRG 代码 · 共 28 行

Release Mytemp
Public Mytemp
Mytemp=Mymllj+'\Data\Temp'
If !Directory('&Mytemp.')
   MD '&Mytemp.'
Endif
Set Default to (Mymllj)
Set Path to "&Mymllj.","&Mymllj.\Class","&Mymllj.\Data","&Mymllj.\Form","&Mymllj.\Graph","&Mymllj.\Icon","&Mymllj.\Menu","&Mymllj.\Prg","&Mymllj.\Report"
Release Tyrybm,Tyrymc,Tyrykl,Tyxtbz,Tyglny,Tydqrq,Tyqsrq,Tyzzrq,Tycxqsrq1,Tycxqsrq2,Tycxzzrq1,Tycxzzrq2,Tycxrqpd,Tycxglny1,Tycxglny2,Tycxnypd,ViewDate
Public Tyrybm,Tyrymc,Tyrykl,Tyxtbz,Tyglny,Tydqrq,Tyqsrq,Tyzzrq,Tycxqsrq1,Tycxqsrq2,Tycxzzrq1,Tycxzzrq2,Tycxrqpd,Tycxglny1,Tycxglny2,Tycxnypd,ViewDate
Tyrybm='akun868'
Tyrymc='阿坤'
Tyczkl='SYSTEM'
Select 0
Use 2Xsoft!Jzrq
Locate For Czbz=.t.
Tyglny=Iif(!Eof(),Glny,Substr(Dtoc(Date()),1,7))
Tyqsrq=Iif(!Eof(),Qsrq,Date()-Day(Date())+1)
Tyzzrq=Iif(!Eof(),Zzrq,GoMonth(Date(),1)-Day(GoMonth(Date(),1)))
Tydqrq=Iif(Date()<Tyqsrq,Tyqsrq,Iif(Date()>Tyzzrq,Tyzzrq,Date()))
Use
Tycxqsrq1=Tyqsrq
Tycxqsrq2=Tyqsrq
Tycxzzrq1=Tyzzrq
Tycxzzrq2=Tyzzrq
Tycxglny1=Tyglny
Tycxglny2=Tyglny
ViewDate={^1900.01.01}