TDVCSUpd ZHL181 2019-2-13 11:28:53
Version 50 TradeDesign®
Encoding UTF-8
Datafield SFTMT T 3 1 2 1 0 {PAYSMT} {Which MT} 1
Rule 6
20080215155614 WCX SourceLine sub DiaSav method
20081212104801 WCX SourceLine {
20080215155614 WCX SourceLine #解除相应的DIA
20080215162206 WCX SourceLine $StmCnt = StreamCount( \TRNMOD\TRNDIA\DSPSTM )
20080215162206 WCX SourceLine if $StmCnt > 0 then
20080215162206 WCX SourceLine for $i = 1 to $StmCnt
20080319105107 WCX SourceLine $Line = StreamGetLine( \TRNMOD\TRNDIA\DSPSTM, $i )
20080319105107 WCX SourceLine $STR1 = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $Inr = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $DAT = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $COD = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $OBJREF = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $NAM = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $FRM = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $flg = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $ownusr = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080319105107 WCX SourceLine $Line = Mid( $Line, Pos( $Line, TAB ) + 1 )
20080319105107 WCX SourceLine $ownusg = Mid( $Line, 1, Pos( $Line, TAB ) - 1 )
20080215162322 WCX SourceLine if $FRM = "BRTUDP" then
20080319105533 WCX SourceLine TRNMOD\TRNDIA.TrnDiaSetDone ( BRDGRP, "" )
20080215162301 WCX SourceLine endif
20080215162635 WCX SourceLine next
20080215162618 WCX SourceLine endif
20081212104804 WCX SourceLine }
20081212104758 WCX SourceLine TRNMOD\TRNDIA.TrnDiaSetDone ( BRDGRP, "RQTACP" )
20081212104715 WCX SourceLine
20081212134234 WCX SourceLine TRNMOD\TRNDIA.TrnDiaSetDone ( LIDGRP, "RQTACP" )
20081212134002 WCX SourceLine
Rule 6
20080229103123 ZHT SourceLine default BRDGRP\REC\ACPNOWFLG
20080229103131 ZHT SourceLine = "X"
Rule 6
20080830144730 ZT SourceLine default forbrtudp ( BRTP\BRDGRP\REC\TOTDAT, BRTP\BRDGRP\REC\DISDAT, BRTP\BRDGRP\REC\APPROVCOD, BRTP\CRE732FLG ) order 1002
20080630092938 ZHT SourceLine
20080630093047 ZHT SourceLine Disable( BRTP\BRDGRP\REC\TOTDAT )
20080630093059 ZHT SourceLine Disable( BRTP\BRDGRP\REC\DISDAT )
20080630093115 ZHT SourceLine Invisible( BRTP\BRDGRP\REC\APPROVCOD )
20080630093127 ZHT SourceLine Invisible( BRTP\CRE732FLG )
20080630093030 ZHT SourceLine
20080630093100 ZHT SourceLine
Rule 6
20080707092842 WD SourceLine default SFTMT
20080707104220 WD SourceLine
20080723170041 WCX SourceLine if not IsEmpty( BRDGRP\REC\DISDAT ) then
20080723170050 WCX SourceLine SetValues( SFTMT, "752" + CR + "x99" )
20080723170041 WCX SourceLine else
20080723170041 WCX SourceLine if not IsEmpty( BRDGRP\REC\APPROVCOD ) then
20080723170051 WCX SourceLine SetValues( SFTMT, "732" + CR + "x99" )
20080723170041 WCX SourceLine else
20080723170041 WCX SourceLine if not IsEmpty( BRDGRP\REC\REJFLG ) then
20080723170054 WCX SourceLine SetValues( SFTMT, "732" + CR + "x99" )
20080723170041 WCX SourceLine else
20080723170056 WCX SourceLine SetValues( SFTMT, "x99" )
20080723170041 WCX SourceLine endif
20080723170041 WCX SourceLine endif
20080723170041 WCX SourceLine endif
20080723170048 WCX SourceLine {
20080707092844 WD SourceLine if not IsEmpty( BRDGRP\REC\DISDAT ) then
20080707092844 WD SourceLine SetValues( SFTMT, "752" + CR + "x99" + CR + " " )
20080707092844 WD SourceLine else
20080707092844 WD SourceLine if not IsEmpty( BRDGRP\REC\APPROVCOD ) then
20080707092844 WD SourceLine SetValues( SFTMT, "732" + CR + "x99" + CR + " " )
20080707092844 WD SourceLine else
20080707092844 WD SourceLine if not IsEmpty( BRDGRP\REC\REJFLG ) then
20080707092844 WD SourceLine SetValues( SFTMT, "732" + CR + "x99" + CR + " " )
20080707092844 WD SourceLine else
20080707092844 WD SourceLine SetValues( SFTMT, "x99" + CR + " " )
20080707092844 WD SourceLine endif
20080707092844 WD SourceLine endif
20080707092844 WD SourceLine endif
20080723170044 WCX SourceLine
20080707092844 WD SourceLine if IsEmpty( SFTMT ) then
20080707092844 WD SourceLine = GetLine( "x99", 1 )
20080707092844 WD SourceLine endif
20080723165925 WCX SourceLine }
Rule 6
20080707102436 WD SourceLine textfunction SFTMTsel( in MTNUM text )
20080707102058 WD SourceLine
20080707102059 WD SourceLine print SWTPrtReference( ":20:", "", "OWN" ) ;
20080707102059 WD SourceLine print SWTPrtReference( ":21:", "", "" ) ;
20080707102059 WD SourceLine
20080707102108 WD SourceLine select case MTNUM
20080707102059 WD SourceLine case "732"
20080707102059 WD SourceLine print SWTPrtTagDate( ":30:", BRDGRP\REC\ORDDAT ) ;
20080707102059 WD SourceLine print SWTPrtTagAmount( ":32B:", BRDGRP\CBS\MAX\CUR, BRDGRP\CBS\MAX\AMT ) ;
20080707102059 WD SourceLine print SWTPrtFmtBlk( ":72:", TRNMOD\TRNDOC\DOCCUR\ADDSTR ) ;
20080707102059 WD SourceLine case "752"
20080707102059 WD SourceLine $CurRolRow = SETMOD\SETGLG.GetSumtabRowForRole ( TRNMOD\TRNDOC\DOCCUR\ROLE )
20080707102059 WD SourceLine
20080707102059 WD SourceLine print SWTPrtTagField( ":23:", GetTblText( BRTP\FURIDE, "FURIDE", UilSwift ) ) ;
20080707102059 WD SourceLine # 30: Date of Advice of Discrepancy or Mailing.
20080707102059 WD SourceLine if not IsEmpty( BRDGRP\REC\DISDAT ) then
20080707102059 WD SourceLine $dat = BRDGRP\REC\DISDAT
20080707102059 WD SourceLine else
20080707102059 WD SourceLine $dat = BRDGRP\REC\ORDDAT
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine print SWTPrtTagDate( ":30:", $dat ) ;
20080707102059 WD SourceLine
20080707102059 WD SourceLine # 32B: Total amount advised (document amount)
20080707102059 WD SourceLine print SWTPrtTagAmount( ":32B:", BRDGRP\CBS\MAX\CUR, BRDGRP\CBS\MAX\AMT + BRDGRP\CBS\MAX2\AMT ) ;
20080707102059 WD SourceLine
20080707102059 WD SourceLine # 71B: Charges deducted
20080707102059 WD SourceLine $ChaDet = SETMOD.PrintSwiftFelFees ( TRNMOD\TRNDOC\DOCCUR\ROLE, "71B", "D", "X", 6, $DedCur, $DedAmt )
20080707102059 WD SourceLine $Netamt = BRDGRP\CBS\MAX\AMT + BRDGRP\CBS\MAX2\AMT
20080707102059 WD SourceLine if not IsEmpty( $ChaDet ) and $DedCur = SETMOD\DOCCUR then
20080707102059 WD SourceLine $Netamt = BRDGRP\CBS\MAX\AMT + BRDGRP\CBS\MAX2\AMT - $DedAmt
20080707102059 WD SourceLine print $ChaDet ;
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine
20080707102059 WD SourceLine # 33a: Net amount
20080707102059 WD SourceLine # Tag 33A is mandatory when REMITTED or DEBIT is specified in tag 23 (independent of content in tag 71B)
20080707102059 WD SourceLine # If Remitted or Debit or Reimbourse then option A
20080707102059 WD SourceLine $Valdat = SwtGetValDatforTag33( $CurRolRow )
20080707102059 WD SourceLine if BRTP\FURIDE = "REM" or BRTP\FURIDE = "DEB" or BRTP\FURIDE = "REI" then
20080707102059 WD SourceLine print SWTPrtTagAmountAB( ":33:", $Valdat, BRDGRP\CBS\MAX\CUR, $Netamt ) ;
20080707102059 WD SourceLine else
20080707102059 WD SourceLine #If Valuta is entered option A
20080707102059 WD SourceLine if $CurRolRow = 0 then
20080707102059 WD SourceLine if not IsEmpty( $ChaDet ) and $DedCur = BRDGRP\CBS\MAX\CUR then
20080707102059 WD SourceLine print SWTPrtTagAmountAB( ":33:", $Valdat, BRDGRP\CBS\MAX\CUR, $Netamt ) ;
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine else
20080707102059 WD SourceLine if not IsEmpty( SETMOD\SETGLG\SETGLL( $CurRolRow )\valdat ) then
20080707102059 WD SourceLine print SWTPrtTagAmountAB( ":33:", $Valdat, BRDGRP\CBS\MAX\CUR, $Netamt ) ;
20080707102059 WD SourceLine else
20080707102059 WD SourceLine if not IsEmpty( $ChaDet ) and $DedCur = BRDGRP\CBS\MAX\CUR then
20080707102059 WD SourceLine # Total amount claimed only if different from 32B
20080707102059 WD SourceLine print SWTPrtTagAmountAB( ":33:", $Valdat, BRDGRP\CBS\MAX\CUR, $Netamt ) ;
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine if $CurRolRow > 0 then
20080707102059 WD SourceLine print SWTPrtAccAdrSpc( ":53:", "752", SETMOD\SETGLG\SETGLL( $CurRolRow )\setgrp\apy, "" ) ;
20080707102059 WD SourceLine print SWTPrtAccAdrSpc( ":54:", "752", SETMOD\SETGLG\SETGLL( $CurRolRow )\setgrp\rcvcor, "" ) ;
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine print SWTPrtFmtBlk( ":72:", TRNMOD\TRNDOC\DOCCUR\ADDSTR ) ;
20080707102059 WD SourceLine case else
20080707102059 WD SourceLine $txt = ""
20080707102059 WD SourceLine $cr = ""
20080707102059 WD SourceLine if not IsEmpty( \TRNMOD\TRNDOC\DOCCUR\PTCNAM ) then
20080707102059 WD SourceLine $txt = "Attention: " + \TRNMOD\TRNDOC\DOCCUR\PTCNAM
20080707102059 WD SourceLine $cr = CR
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine if not IsEmpty( \TRNMOD\TRNDOC\DOCCUR\ADDSTR ) then
20080707102059 WD SourceLine $txt = $txt + $cr + \TRNMOD\TRNDOC\DOCCUR\ADDSTR
20080707102059 WD SourceLine $cr = CR
20080707102059 WD SourceLine endif
20080707102059 WD SourceLine print SWTPrtTagField( ":79:", ConvertBlock( $txt, 1, 999, 50 ) ) ;
20080707102059 WD SourceLine end select
20080707102059 WD SourceLine print SWTPrtEndTag( "SWT" ) ;
Rule 6
20080910110554 WD SourceLine default BRTP\BRDGRP\TAG72ADD order 100
20080910110033 WD SourceLine
20080910110029 WD SourceLine if IsEmpty( SFTMT ) then
20080910110029 WD SourceLine Disable
20080910110029 WD SourceLine = ""
20080910110029 WD SourceLine else
20080910110029 WD SourceLine Enable
20080910110558 WD SourceLine if not IsModified( BRTP\BRDGRP\TAG72ADD ) then
20080910110029 WD SourceLine $info = 'LG000190'
20080910110149 WD SourceLine #$info = $info + CR + XXTTEN.PrintSwiftTenorinfo
20080910110029 WD SourceLine endif
20080910110029 WD SourceLine endif
20080910110029 WD SourceLine = $info
Rule 6
20081113142215 WCX SourceLine check SETMOD\DOCAMT order 2000
20081113144107 WCX SourceLine if GetFramename = "BRTUDP" and SETMOD\DOCAMT <= 0 then
20081113143741 WCX SourceLine $Errtxt = "承兑金额必须大于0！"
20081113143750 WCX SourceLine Error( "$1", $Errtxt )
20081113142740 WCX SourceLine endif
Rule 6
20140606174239 ZY SourceLine check BRDGRP\REC\RCVDAT order 1001
20140611142357 ZY SourceLine
20140611142518 ZY SourceLine # RCVDAT允许修改，但不能为空，避免单据重号问题
20140606174231 ZY SourceLine if IsEmpty( BRDGRP\REC\RCVDAT ) then
20140606174231 ZY SourceLine ErrorMandatory
20140606174242 ZY SourceLine endif
Rule 6
20181129101430 ZHL SourceLine textfunction ERSMSGF2 static
20181129101430 ZHL SourceLine #!单证通进口信用证开证远期承兑通知报文
20181129101430 ZHL SourceLine #! 20 银行业务编号 BRDGRP\REC\OWNREF
20181129101430 ZHL SourceLine #! 21 信用证编号 LIDGRP\REC\OWNREF
20181129101430 ZHL SourceLine #! 32A-CUR 单据币别 SETMOD\DOCCUR
20181129101430 ZHL SourceLine #! 32A-AMT 承兑金额 SETMOD\DOCAMT
20181129101430 ZHL SourceLine #! 33B-CUR 索偿币别 BRDGRP\REC\TOTCUR
20181129101430 ZHL SourceLine #! 33B-AMT 索偿金额 BRDGRP\REC\TOTAMT
20181129101430 ZHL SourceLine #! 32A 承兑日期 BRDGRP\REC\ACCDAT
20181129101430 ZHL SourceLine #! 31S 到期日 BRDGRP\REC\MATDAT
20181129101430 ZHL SourceLine #! 57A 交单行BIC BRDGRP\PRB\ADR\BIC
20181129101430 ZHL SourceLine #! 57D 交单行名称和地址 BRDGRP\PRB\PTS\ADRBLK
20181129101430 ZHL SourceLine TRNMOD\TRNDOC\DOCCUR\MSGTOO = "Z00238"
20181129101430 ZHL SourceLine TRNMOD\TRNDOC\DOCCUR\MT = "T12"
20181129101430 ZHL SourceLine if IsEmpty( TRNMOD\SWIADD\TCOM1REF ) and not IsEmpty( TRNMOD\SMH\INR ) then
20181129101430 ZHL SourceLine TRNMOD\SWIADD\TCOM1REF = TRNMOD\TRNDOC\ERSMOD.GetErsBillidBySMH ( TRNMOD\SMH\INR )
20181129101430 ZHL SourceLine endif
20181129101430 ZHL SourceLine
20181129101430 ZHL SourceLine print ERSPrintXmlTitle_GBK
20181129101444 ZHL SourceLine #print ERSCreateHead_DZT( TRNMOD\TRN\INR, "T12", "BR", "AKA", TRNMOD\SWIADD\TCOM1REF, BRDGRP\REC\OWNREF, BRDGRP\REC\OWNEXTKEY, BRDGRP\APL\PTS\EXTKEY, MTABUT\IMMMOD\CURIMGREF )
20190213112852 ZHL SourceLine print ERSCreateHead_DZT( TRNMOD\TRN\INR, "T12", "BR", "AKA", TRNMOD\SWIADD\TCOM1REF, BRDGRP\REC\OWNREF, SYSMOD\WRKBCH\BRANCH, BRDGRP\APL\PTS\EXTKEY, MTABUT\IMGMOD\scawrk\IMGINR )
20181129101430 ZHL SourceLine print ERSPrtTag_EF( ERSGetOwnERSCOD, "MsgBody" ) ;
20181129101430 ZHL SourceLine print ERSPrtTagText( "20", "", BRDGRP\REC\OWNREF, TRUE ) ;
20181129101430 ZHL SourceLine print ERSPrtTagText( "21", "", LIDGRP\REC\OWNREF, TRUE ) ;
20181129101430 ZHL SourceLine print ERSPrtTagText( "32A-CUR", "", BRDGRP\CBS\MAX\CUR, TRUE ) ;
20181129101430 ZHL SourceLine print ERSPrtTagAmount( "32A-AMT", "", SETMOD\DOCCUR, SETMOD\DOCAMT ) ;
20181129101430 ZHL SourceLine print ERSPrtTagText( "33B-CUR", "", BRDGRP\REC\TOTCUR, TRUE ) ;
20181129101430 ZHL SourceLine print ERSPrtTagAmount( "33B-AMT", "", BRDGRP\REC\TOTCUR, BRDGRP\REC\TOTAMT ) ;
20181129101555 ZHL SourceLine #print ERSPrtTagFmtDate( "32A", "", BRDGRP\REC\ACCDAT, "YYYY-MM-DD" ) ;
20181129101723 ZHL SourceLine print ERSPrtTagFmtDate( "32A", "", BRDGRP\REC\RCVDAT, "YYYY-MM-DD" ) ;
20181129101430 ZHL SourceLine $matdat = NULLDATE
20181129101430 ZHL SourceLine $cnt = GridCount( LIAALL\LIAALLG )
20181129101430 ZHL SourceLine if $cnt > 0 then
20181129101430 ZHL SourceLine for $i = 1 to $cnt
20181129101430 ZHL SourceLine if not IsEmpty( LIAALL\LIAALLG( $i )\MATDAT ) and Pos( "AKZ", ToUpper( LIAALL\LIAALLG( $i )\cbtpfx ) ) > 0 then
20181129101430 ZHL SourceLine $matdat = LIAALL\LIAALLG( $i )\MATDAT
20181129101430 ZHL SourceLine break
20181129101430 ZHL SourceLine endif
20181129101430 ZHL SourceLine next $i
20181129101430 ZHL SourceLine endif
20181129101430 ZHL SourceLine if IsEmpty( $matdat ) then
20181129101430 ZHL SourceLine $matdat = BRDGRP\REC\MATDAT
20181129101430 ZHL SourceLine endif
20181129101430 ZHL SourceLine print ERSPrtTagFmtDate( "31S", "", $matdat, "YYYY-MM-DD" ) ;
20181129101430 ZHL SourceLine print ERSPrtTagText( "57A", "", BRDGRP\PRB\ADR\BIC, TRUE ) ;
20181129101430 ZHL SourceLine print ERSPrtTagText( "57D", "", BRDGRP\PRB\PTS\ADRBLK, TRUE ) ;
20181129101430 ZHL SourceLine
20181129101430 ZHL SourceLine print ERSEndTail ;
PanelPage \TRNMOD\TRNDOC\DOCATT
PPRelPos 5 \TRNMOD\PTSMOD\DETP
PPRelPos 2 \TRNMOD\DOCIMM\DOCBOL\PRTP
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVACT\CONFIG
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVBCG\CONFIG
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVLON\CONFIG
PanelPage \BRTP\OTHP\ADRDETP
PanelPage \BRTP\APLP\ADRDETP
PanelPage \BRTP\ROGP\ADRDETP
PanelPage \BRTP\ACBP\ADRDETP
PanelPage \BRTP\RMBP\ADRDETP
PanelPage \BRTP\PRBP\ADRDETP
PanelPage \BRTP\BEBP\ADRDETP
PanelPage \BRTP\BENP\ADRDETP
PanelPage \BRTP\SHPP\ADRDETP
PanelPage \TRNMOD\TRNDOC\DOCCUR\RCVP\ADRDETP
PanelPage \TRNMOD\TRNISM\WFMMOD\SRV\SRVQIN\CONFIG
PanelPage \TRNMOD\CMT100PEL
PanelPage \CFABRT\CFAP
PanelPage \LIAALL\LIMMOD\Shisuan
PPRelPos 5 \TRNMOD\TXSMOD\TXSPAN
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 PAYP
FrameField SFTMT 2 8 406 1 0 0 1 0 0 0 0 {-}
KeyTable PAYSMT
FFRelPos 5 SETMOD\DOCCUR 1
FrameField BRTP\BRDGRP\TAG72ADD 1 8 434 1 0 0 0 0 0 0 0 {-}
Vl 5
Label SG000283 8 378 0 {-}
ModuleRef BRTMOD
Argument BCH SYSMOD\WRKBCH
ModuleRef LITMOD
Argument BCH SYSMOD\WRKBCH
ModuleRef BPTBCK
Argument BCH SYSMOD\WRKBCH
Module CFABRT CFABRT 0
Argument MTABUT MTABUT
Argument BRDGRP BRDGRP
Literals_START
20080910110149 WD LG000190EN We acknowledge receipt of documents and will settle as follows:
20080707092623 WD SG000283EN Select MT to be sent to presenting bank
Literals_END
946B47DF