1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
TDVCSUpd 010187 2019-4-16 9:36:13
Version 50 TradeDesign®
Encoding UTF-8
Rule 6
20080508173038 ZHT SourceLine event MDABUT\SAV order 540
SourceLine
20080508173102 ZHT SourceLine #存机构信息
20080606113037 ZL SourceLine RECPAN.getptabchkey
20080606113104 ZL SourceLine if IsEmpty( RECGRP\REC\BCHKEYINR ) then
20080508173247 ZHT SourceLine RECGRP\REC\BCHKEYINR = RECPAN\PTY\BCHKEYINR
20080508173249 ZHT SourceLine endif
20190416093131 010 SourceLine
20190416093414 010 SourceLine $tid = ""
20190416093253 010 SourceLine $Sql = "select tid from pta where ptyinr='" + RECPAN\PTY\INR + "' "
20190416093132 010 SourceLine DBExecuteSQL( $Sql )
20190416093132 010 SourceLine while ErrorCode = 0 do
20190416093303 010 SourceLine DBFetchFields( "", $tid )
20190416093342 010 SourceLine $err = ErrorCode
20190416093358 010 SourceLine if not IsEmpty( $tid ) then
20190416093422 010 SourceLine RECGRP\REC\TID = $tid
20190416093609 010 SourceLine RECGRP\ADR\TID = $tid
20190416093403 010 SourceLine break
20190416093359 010 SourceLine endif
20190416093132 010 SourceLine wend
20190416093132 010 SourceLine DBCloseCursor
Rule 6
20080606110740 ZL SourceLine check RECPAN\BCHKEY
20080606110742 ZL SourceLine
20080606110742 ZL SourceLine if IsEmpty( RECPAN\BCHKEY ) then
20080606110742 ZL SourceLine Error( 'LG000000' )
20080606110742 ZL SourceLine endif
Rule 6
20080830155258 PET SourceLine init order 1002
20080830155432 PET SourceLine if IsEmpty( RECGRP\ADR\UIL ) then
20080830155510 PET SourceLine RECGRP\ADR\UIL = 'LG000001'
20080830155338 PET SourceLine endif
20080830155621 PET SourceLine if IsEmpty( RECGRP\ADR\LOCCTY ) then
20080830155627 PET SourceLine RECGRP\ADR\LOCCTY = 'LG000002'
20080830155607 PET SourceLine endif
Rule 6
20091127134634 WCX SourceLine default RECGRP\ADR\TID
20091127134653 WCX SourceLine Disable
Literals_START
20080606110749 ZL LG000000EN A Branch must be selected !
20080830155510 PETER LG000001EN EN
20080830155627 PETER LG000002EN CN
Literals_END
4E5C2AC8