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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
TDVCSUpd ZHL181 2019-2-13 11:29:41
Version 50 TradeDesign®
Encoding UTF-8
Datafield RMBCLMNOW T 1 1 3 1 0 {} {RMBCLMNOW} 1
Datafield SNADAT D 12 0 7 1 0 {} {send reimbursement date}
Rule 6
20080215174343 WCX SourceLine sub Diasav method
20090617155117 WCX SourceLine
20080225132411 WCX SourceLine #>>>WCX:出口信用证远期催收提示
20090617160035 WCX SourceLine ##########刘文青需求
20090617160157 WCX SourceLine #1、不分新索和电索，只出一条--远期信用证索汇提示
20090617160159 WCX SourceLine #2、有发送索偿电日期，以该日期为准，否则以承兑到期日为准
20090617160343 WCX SourceLine #3、有偿付行的时候，指出给偿付行的diary，否则只出给开证行
20090617160035 WCX SourceLine ##########
20090617172658 WCX SourceLine $rmb = GetContent( "\\LEDGRP\\RMB\\PTS\\EXTKEY" )
20090617172658 WCX SourceLine $err = ErrorCode
20090617172548 WCX SourceLine if SNADAT <> NULLDATE then
20090617172548 WCX SourceLine if not IsEmpty( $rmb ) then
20090617173557 WCX SourceLine TrnDiaSet( BEDGRP, "BERTCM", DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000030', BEDGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617172548 WCX SourceLine else
20090617173612 WCX SourceLine TrnDiaSet( BEDGRP, "BERTCM", DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000041', BEDGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617172548 WCX SourceLine endif
20090617172629 WCX SourceLine else
20090617172606 WCX SourceLine
20081027180248 WCX SourceLine for $i = 1 to GridCount( LIAALL\LIAALLG )
20081027181250 WCX SourceLine if ( ( LIAALL\LIAALLG( $i )\CBTPFX = "DPU" ) or ( LIAALL\LIAALLG( $i )\CBTPFX = "AKZ" ) or ( LIAALL\LIAALLG( $i )\CBTPFX = "DPZ" ) ) and ( LIAALL\LIAALLG( $i )\AMT > 0 ) and IsEmpty( LIAALL\LIAALLG( $i )\OLDFLG ) then
20081027180335 WCX SourceLine if LIAALL\LIAALLG( $i )\BUSSEC = "BE" then
20090617173809 WCX SourceLine {
20090518103153 WCX SourceLine TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BERT" + Str( $i, -2 ), DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000042', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090518103156 WCX SourceLine TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BERL" + Str( $i, -2 ), DateAddW( SNADAT, 0, GetUIL ), "CLM", GetText( 'LG000031', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617173756 WCX SourceLine
20081031155359 WCX SourceLine break
20081027180114 WCX SourceLine endif
20090617173724 WCX SourceLine }
20081027180423 WCX SourceLine if SNADAT = NULLDATE and not IsEmpty( LIAALL\LIAALLG( $i )\MATDAT ) then
20090617160944 WCX SourceLine if not IsEmpty( $rmb ) then
20090617161104 WCX SourceLine TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BETR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000039', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617160956 WCX SourceLine else
20090617161120 WCX SourceLine TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BETR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000044', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617160959 WCX SourceLine endif
20090617160952 WCX SourceLine
20090617161028 WCX SourceLine {
20090518104632 WCX SourceLine TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BETR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000043', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20081031154735 WCX SourceLine TrnDiaSet( GetModule( LIAALL\LIAALLG( $i )\OBJMODPATH ), "BELR" + Str( $i, -2 ), DateAddW( LIAALL\LIAALLG( $i )\MATDAT, -5, GetUIL ), "CLM", GetText( 'LG000040', LIAALL\LIAALLG( $i )\PTEGRP\REC\OWNREF ), "BETRCL", DiaToWrite )
20090617161036 WCX SourceLine }
20081027175901 WCX SourceLine endif
20081027180544 WCX SourceLine endif
20081027175901 WCX SourceLine endif
20081027175900 WCX SourceLine next
20090617172633 WCX SourceLine endif
Rule 6
20080318093715 WCX SourceLine default BEDGRP\REC\ACPNOWFLG
20080318093713 WCX SourceLine = "X"
Rule 6
20080908105612 NIL SourceLine check LIAALL\LIAALLG
SourceLine
20080908150336 NIL SourceLine if not IsEmpty( BPDGRP\REC\INR ) then
20080908105700 NIL SourceLine $Count = 0
20080908105649 NIL SourceLine for $i = 1 to GridCount( LIAALL\LIAALLG )
20080908105824 NIL SourceLine if LIAALL\LIAALLG( $i )\BusSec = "BE" and Pos( "AKZDPZDPU", LIAALL\LIAALLG( $i )\CbtPfx ) > 0 and LIAALL\LIAALLG( $i )\Amt > 0 then
20080908105830 NIL SourceLine $Count = $Count + 1
20080908105916 NIL SourceLine endif
20080908105612 NIL SourceLine next $i
20080908105837 NIL SourceLine if $Count > 1 then
20080908105905 NIL SourceLine Error( 'LG000029' )
20080908105839 NIL SourceLine endif
20080908105637 NIL SourceLine endif
Rule 6
20080908113728 NIL SourceLine init order 5000
SourceLine
20080908145402 NIL SourceLine $LiaExtId = ""
20080908150139 NIL SourceLine $Sql = "SELECT PTE.INR FROM PTE, PTS WHERE PTS.OBJTYP='BED' AND PTS.OBJINR='" + BEDGRP\REC\INR + "' AND PTE.OBJTYP='PTS' AND PTE.OBJINR=PTS.INR AND PTE.CBTPFX='INT'"
20080908145353 NIL SourceLine DBExecuteSQL( $Sql )
20080908145415 NIL SourceLine DBFetchFields( "", $LiaExtId )
20080908145420 NIL SourceLine $Ignore = ErrorCode
20080908145529 NIL SourceLine DBCloseCursor
20080908145819 NIL SourceLine if not IsEmpty( $LiaExtId ) then
20080908150328 NIL SourceLine DBRead( BPDGRP\REC, $LiaExtId, "LIAEXTID" )
20080908145447 NIL SourceLine $Ignore = ErrorCode
20080908150329 NIL SourceLine if not IsEmpty( BPDGRP\REC\INR ) then
20080908150332 NIL SourceLine TRNMOD.TroLockExistingContract ( BPDGRP )
20080908145450 NIL SourceLine endif
20080908145822 NIL SourceLine endif
Rule 6
20111026172122 YL SourceLine default SETMOD\REDAMT
20111026172123 YL SourceLine Enable
Rule 6
20181210102233 ZHL SourceLine textfunction ERSMSGF2 static
20181210102233 ZHL SourceLine #!单证通出口信用证项下单据承兑通知报文
20181210102233 ZHL SourceLine #! 20 我行业务编号 BEDGRP\REC\OWNREF
20181210102233 ZHL SourceLine #! 25 我行通知编号 LEDGRP\REC\OWNREF
20181210102233 ZHL SourceLine #! 21 信用证号 LEDGRP\REC\ISSREF
20181210102233 ZHL SourceLine #! 26A 发票号 BEDGRP\REC\INVNBR
20181210102233 ZHL SourceLine #! 32A-CUR 承兑币别 SETMOD\DOCCUR
20181210102233 ZHL SourceLine #! 32A-AMT 承兑金额 SETMOD\DOCAMT
20181210102233 ZHL SourceLine #! 32B-CUR 单据币别 BEDGRP\CBS\MAX\CUR
20181210102233 ZHL SourceLine #! 32B-AMT 单据总额 BEDGRP\CBS\MAX\AMT
20181210102233 ZHL SourceLine #! 32A 承兑日期 BEDGRP\REC\ACCDAT
20181210102233 ZHL SourceLine #! 31S 到期日 BEDGRP\REC\MATDAT
20181210102233 ZHL SourceLine #! M8 客户代号 LEDGRP\BEN\PTA\PTYEXTKEY
20181210102233 ZHL SourceLine #! 59 受益人名称和地址 BEDGRP\BEN\PTS\ADRBLK
20181210102233 ZHL SourceLine #! 50 申请人名称和地址 BEDGRP\APL\PTS\ADRBLK
20181210102233 ZHL SourceLine #! 57A-BIC 开证行BIC LEDGRP\ISS\ADR\BIC
20181210102233 ZHL SourceLine #! 57A-ADR 开证行名称和地址 LEDGRP\ISS\PTS\ADRBLK
20181210102233 ZHL SourceLine ##! 58A-BIC 转让行BIC LEDGRP\APB\ADR\BIC
20181210102233 ZHL SourceLine ##! 58A-ADR 转让行名称和地址 LEDGRP\APB\PTS\ADRBLK
20181210102233 ZHL SourceLine TRNMOD\TRNDOC\DOCCUR\MSGTOO = "Z00238"
20181210102233 ZHL SourceLine TRNMOD\TRNDOC\DOCCUR\MT = "T12"
20181210102233 ZHL SourceLine if IsEmpty( TRNMOD\SWIADD\TCOM1REF ) and not IsEmpty( TRNMOD\SMH\INR ) then
20181210102233 ZHL SourceLine TRNMOD\SWIADD\TCOM1REF = TRNMOD\TRNDOC\ERSMOD.GetErsBillidBySMH ( TRNMOD\SMH\INR )
20181210102233 ZHL SourceLine endif
20181210102233 ZHL SourceLine
20181210102233 ZHL SourceLine print ERSPrintXmlTitle_GBK
20181210102243 ZHL SourceLine #print ERSCreateHead_DZT( TRNMOD\TRN\INR, "T12", "BE", "EAB", TRNMOD\SWIADD\TCOM1REF, BEDGRP\REC\OWNREF, BEDGRP\REC\OWNEXTKEY, BEDGRP\BEN\PTS\EXTKEY, MTABUT\IMMMOD\CURIMGREF )
20190213112939 ZHL SourceLine print ERSCreateHead_DZT( TRNMOD\TRN\INR, "T12", "BE", "EAB", TRNMOD\SWIADD\TCOM1REF, BEDGRP\REC\OWNREF, SYSMOD\WRKBCH\BRANCH, BEDGRP\BEN\PTS\EXTKEY, MTABUT\IMGMOD\scawrk\IMGINR )
20181210102233 ZHL SourceLine print ERSPrtTag_EF( ERSGetOwnERSCOD, "MsgBody" ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "20", "", BEDGRP\REC\OWNREF, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "25", "", LEDGRP\REC\OWNREF, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "21", "", LEDGRP\REC\ISSREF, TRUE ) ;
20181210102538 ZHL SourceLine #print ERSPrtTagText( "26A", "", BEDGRP\REC\INVNBR, TRUE ) ;
20181210102925 ZHL SourceLine print ERSPrtTagText( "26A", "", LEDGRP\REC\BENREF, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "32A-CUR", "", SETMOD\DOCCUR, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagAmount( "32A-AMT", "", SETMOD\DOCCUR, SETMOD\DOCAMT ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "32B-CUR", "", BEDGRP\CBS\MAX\CUR, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagAmount( "32B-AMT", "", BEDGRP\CBS\MAX\CUR, BEDGRP\CBS\MAX\AMT ) ;
20181210102348 ZHL SourceLine #print ERSPrtTagFmtDate( "32A", "", BEDGRP\REC\ACCDAT, "YYYY-MM-DD" ) ;
20181210102528 ZHL SourceLine print ERSPrtTagFmtDate( "32A", "", Today, "YYYY-MM-DD" ) ;
20181210102233 ZHL SourceLine $matdat = NULLDATE
20181210102233 ZHL SourceLine
20181210102233 ZHL SourceLine $cnt = GridCount( LIAALL\LIAALLG )
20181210102233 ZHL SourceLine if $cnt > 0 then
20181210102233 ZHL SourceLine for $i = 1 to $cnt
20181210102233 ZHL SourceLine if not IsEmpty( LIAALL\LIAALLG( $i )\MATDAT ) and Pos( "AKZ", ToUpper( LIAALL\LIAALLG( $i )\cbtpfx ) ) > 0 then
20181210102233 ZHL SourceLine $matdat = LIAALL\LIAALLG( $i )\MATDAT
20181210102233 ZHL SourceLine break
20181210102233 ZHL SourceLine endif
20181210102233 ZHL SourceLine next $i
20181210102233 ZHL SourceLine endif
20181210102233 ZHL SourceLine if IsEmpty( $matdat ) then
20181210102233 ZHL SourceLine $matdat = BEDGRP\REC\MATDAT
20181210102233 ZHL SourceLine endif
20181210102233 ZHL SourceLine print ERSPrtTagFmtDate( "31S", "", $matdat, "YYYY-MM-DD" ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "M8", "", LEDGRP\BEN\PTA\PTYEXTKEY, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "59", "", BEDGRP\BEN\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "50", "", BEDGRP\APL\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "57A-BIC", "", LEDGRP\ISS\ADR\BIC, TRUE ) ;
20181210102233 ZHL SourceLine print ERSPrtTagText( "57A-ADR", "", LEDGRP\ISS\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL SourceLine #print ERSPrtTagText( "58A-BIC", "", LEDGRP\APB\ADR\BIC, TRUE ) ;
20181210102233 ZHL SourceLine #print ERSPrtTagText( "58A-ADR", "", LEDGRP\APB\PTS\ADRBLK, TRUE ) ;
20181210102233 ZHL SourceLine
20181210102233 ZHL SourceLine print ERSEndTail ;
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVACT\CONFIG
PPRelPos 5 \TRNMOD\PTSMOD\DETP
PPRelPos 2 \TRNMOD\DOCIMM\DOCBOL\PRTP
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVBCG\CONFIG
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVLON\CONFIG
PanelPage \TRNMOD\TRNDOC\DOCATT
PanelPage \BETP\BEBP\ADRDETP
PanelPage \BETP\OTHP\ADRDETP
PanelPage \BETP\APLP\ADRDETP
PanelPage \BETP\BENP\ADRDETP
PanelPage \BETP\ISSP\ADRDETP
PanelPage \BETP\RMBP\ADRDETP
PanelPage \BETP\ACBP\ADRDETP
PanelPage \BETP\PRBP\ADRDETP
PanelPage \BETP\TP9P\ADRDETP
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVQIN\CONFIG
PanelPage \TRNMOD\TRNDOC\DOCCUR\RCVP\ADRDETP
PanelPage \BETP\DOCP\ADRDETP
PanelPage \BETP\PUBP\ADRDETP
PanelPage \TRNMOD\CMT100PEL
PanelPage \LIAALL\LIMMOD\Shisuan
PanelPage \LIAALL\LIMMOD\WRKP\ADRDETP
PanelPage \LIAALL\LIMMOD\OTHP\ADRDETP
PanelPage \TRNMOD\TRNDOC\ERSMOD\ERSIMM\DOCEDIP
PanelPage \TRNMOD\HVPMOD\SECPAN
PanelPage \TRNMOD\CIPMOD\P112COV
PanelPage \TRNMOD\CIPMOD\CIPS
PanelPage \TRNMOD\CIPMOD\CIPS2
PanelPage \TRNMOD\CIPMOD\CIPS3
PanelRef ACCP
FrameField SNADAT 7 132 436 1 0 0 0 0 0 0 0 {-}
FFRelPos 5 SETMOD\DOCAMT 1
Label SG000044 8 436 0 {-}
ModuleRef BETMOD
Argument BCH SYSMOD\WRKBCH
ModuleRef LETMOD
Argument BCH SYSMOD\WRKBCH
Module AAMSET AAMSET 0
Argument AAMMOD BETP\AAMMOD
Module BPDGRP BPDGRP 0
Module BPDLOD BPDLOD 0
Literals_START
20080908105905 NIL LG000029EN 存在押汇情况下，只能全额承兑成一张汇票。
20090617160710 WCX LG000030EN 远期信用证索汇提示（偿付行）:$1
20081031154832 WCX LG000031EN 远期信索提示(偿付行):$1
20090617161120 WCX LG000039EN 远期信用证索汇提示（偿付行）:$1
20081031154832 WCX LG000040EN 远期信索提示(偿付行):$1
20090617160710 WCX LG000041EN 远期信用证索汇提示（开证行）:$1
20090617160710 WCX LG000042EN 远期电索提示(偿付行):$1
20090617161036 WCX LG000043EN 远期电索提示(偿付行):$1
20090617161120 WCX LG000044EN 远期信用证索汇提示（开证行）:$1
20081027170522 WCX SG000044EN 发送索偿电日期
Literals_END
F5D4EE41