CPTREP.TR5

TDVCSFrom S:\CEB\tf\proj\ovly\frame\CPTREP.TR5
TDVCSUpd LY0221 2019-11-26 15:10:42
TDVCSEdt WANGJJ 2020-7-13 19:24:12
Version 50 TradeDesign®
                        Encoding UTF-8
                        Rule 5
19990829       EVS      SourceLine default CPDGRP\REC\NAM
20030204       RI       SourceLine #! Default name of contract; usually contract amount and information about the client is used
19990829       EVS      SourceLine if not IsModified then
20041115       KS       SourceLine   if CPDGRP\REC\PAYTYP.is ( "O" ) then
20020416       AB       SourceLine     PtsmodGetPtyOfPtspta( CPDGRP\ORC, TRNMOD\PTSMOD\PTY )
20041115       KS       SourceLine     = CPDGRP\REC\PAYTYP + " " + CPDGRP\CBS\MAX\CUR + " " + FmtAmount( CPDGRP\CBS\MAX\AMT, CPDGRP\CBS\MAX\CUR ) + " " + TRNMOD\PTSMOD\PTY\RSKCTY + "/" + CPDGRP\ORC\PTS\NAM
20041115       KS       SourceLine   else
20041115       KS       SourceLine     PtsmodGetPtyOfPtspta( CPDGRP\PYE, TRNMOD\PTSMOD\PTY )
20041115       KS       SourceLine     = CPDGRP\REC\PAYTYP + " " + CPDGRP\CBS\MAX\CUR + " " + FmtAmount( CPDGRP\CBS\MAX\AMT, CPDGRP\CBS\MAX\CUR ) + " " + TRNMOD\PTSMOD\PTY\RSKCTY + "/" + CPDGRP\PYE\PTA\NAM
20041115       KS       SourceLine   endif
19990829       EVS      SourceLine endif
                        Rule 5
                        SourceLine init
20030204       RI       SourceLine #! supporter part of transaction init, e.g. setting of PANSTA
20020416       AB       SourceLine 
20030128       RI       SourceLine # In opening panles and parties are enabled by default.
20030128       RI       SourceLine # If availability of parties depends on contract data, set PANSTA by default.
20021018       AN       SourceLine CPTP\PANSTA = PanStaEdit
20020416       AB       SourceLine CPTP\ORCP\PANSTA = PanStaEdit
20030127       RI       SourceLine CPTP\PYBP\PANSTA = PanStaEdit
20080117170401 ZHT      SourceLine CPTP\PYEP\PANSTA = PanStaEdit
20030127       RI       SourceLine CPTP\ORIP\PANSTA = PanStaEdit
20080118143427 ZHT      SourceLine CPTP\MEDP\PANSTA = PanStaEdit
20080118143503 ZHT      SourceLine CPTP\RMTP\PANSTA = PanStaEdit
20080118151016 ZHT      SourceLine CPTP\SNDP\PANSTA = PanStaEdit
20071220150657 ZHT      SourceLine #汇入汇款
20080418134450 ZHT      SourceLine 
20080418134449 ZHT      SourceLine initrep
20080418134447 ZHT      SourceLine 
20080707105533 ZHT      SourceLine PostEvent( CPTP\CPDGRP\REC\SWFTYP )
20081125100922 ZT       SourceLine if not IsEmpty( CPDGRP\REC\TRDINT ) then
20081125100936 ZT       SourceLine   CPTP\PAYUIL = CPDGRP\REC\TRDINT
20081125100922 ZT       SourceLine endif
20081125100945 ZT       SourceLine if not IsModified( CPTP\PAYUIL ) and IsEmpty( CPTP\PAYUIL ) then
20081125100938 ZT       SourceLine   CPTP\PAYUIL = "EN"
20081125100922 ZT       SourceLine endif
20081125100922 ZT       SourceLine 
20081125100940 ZT       SourceLine PostEvent( CPTP\PAYUIL )
20200710180532 WAN      SourceLine if CPDGRP\REC\trdout = "FT" then
20200710180552 WAN      SourceLine   Disable( CPDGRP\REC\SYSNO )
20200710180556 WAN      SourceLine endif
20200710181705 WAN      SourceLine Invisible( CPTP\GETINF )
20200710181651 WAN      SourceLine 
                        Rule 5
                        SourceLine event MTABUT\SAV order 500
20030204       RI       SourceLine #! Transaction specific save functions
                        SourceLine # To get a new reference if not already set
20080417195250 ZHT      SourceLine #CPTMOD.Getref
19981216       RI       SourceLine # Create (rsp. update) Contract (incl. Texts)
20071228104026 ZHT      SourceLine #add by zt
20071228104026 ZHT      SourceLine #汇款业务表中新加字段
20080418133227 ZHT      SourceLine saveNewCPDdata
20071228104026 ZHT      SourceLine #------------end----------------
19981216       RI       SourceLine CPTMOD.sav
19981216       RI       SourceLine # Build Transaction from CPDGRP
19981216       RI       SourceLine TRNMOD.TrnSetFromContract ( CPDGRP\REC )
19981216       RI       SourceLine # Store CBS-Info
20191023110601 TBY      SourceLine 
20191126151026 LY0      SourceLine if CPDGRP\REC\SWFTYP = "103" or CPDGRP\REC\SWFTYP = "202" then
20191125094324 LY0      SourceLine   if not IsEmpty( CPTP\UETR ) then
20190929094959 TBY      SourceLine     GPIMOD.GPISav
20191009171126 ZHL      SourceLine     \TRNMOD\TRNISM\WFMMOD.WfeAdd ( "GPI", "GPI", Today, 21 )
20191125094316 LY0      SourceLine   endif
20191126151033 LY0      SourceLine endif
20080520163300 ZHT      SourceLine CbsSav
20200710180626 WAN      SourceLine if CPDGRP\REC\trdout = "FT" and not IsEmpty( CPDGRP\REC\SYSNO ) then
20200708174029 WAN      SourceLine   \TRNMOD\TRNISM\WFMMOD.WfeAdd ( "HTB", "HTB", DateAdd( Today, 1 ), 21 )
20200708175647 WAN      SourceLine endif
20200708144634 WAN      SourceLine 
                        Rule 5
20031015       IS       SourceLine sub RegisterSettlement method
20200712221719 MBF      SourceLine 
20200713192405 WAN      SourceLine if CPDGRP\REC\trdout = "FT" and SHIFJZ = "X" then
20200713012942 MBF      SourceLine   SETMOD\SETGLG.SetglgClrAmount ( "TRN" )
20200711140732 WAN      SourceLine else
20031014       IS       SourceLine   SETMOD.SetDocAmt ( CPDGRP\CBS\MAX\CUR, CPDGRP\CBS\MAX\AMT, "DISABLE" )
20040127       RI       SourceLine   \SETMOD.SetOpnAmt ( CPDGRP\CBS\MAX\AMT )
20040517       RI       SourceLine   SETMOD\SETGLG.SetglgClrAmount ( "TRN" )
20040517       RI       SourceLine   select case CPDGRP\REC\PAYTYP
20040517       RI       SourceLine     case "I"
20080520165030 ZHT      SourceLine       $dbt = SETMOD\SETGLG.SetglgAddAmount ( "TRN", SETMOD\FEECORROL, SETMOD\DOCCUR, SETMOD\SETAMT, "", "ARD", "C", "", "" )
20080520165442 ZHT      SourceLine       $cdt = SETMOD\SETGLG.SetglgAddAmount ( "TRN", SETMOD\FEECLIROL, SETMOD\DOCCUR, -SETMOD\SETAMT, "", "", "", "", "" )
20040517       RI       SourceLine     case else
20050428       MS       SourceLine       $dbt = SETMOD\SETGLG.SetglgAddAmount ( "TRN", SETMOD\FEECLIROL, SETMOD\DOCCUR, SETMOD\SETAMT, "", "", "", "", "" )
20050428       MS       SourceLine       $cdt = SETMOD\SETGLG.SetglgAddAmount ( "TRN", SETMOD\FEECORROL, SETMOD\DOCCUR, -SETMOD\SETAMT, "", "", "", "", "" )
20040517       RI       SourceLine   end select
20081119180548 ZT       SourceLine {
20040517       RI       SourceLine SETMOD\SETGLG.SetglgAddAmtFldValDat ( "TRN", $dbt, CPDGRP\REC\VALDAT )
20040517       RI       SourceLine SETMOD\SETGLG.SetglgAddAmtFldValDat ( "TRN", $cdt, CPDGRP\REC\VALDAT )
20081119180551 ZT       SourceLine }
20081119180543 ZT       SourceLine   #光大要求起息日与解付日期关联而不是与value date关联
20081201164645 ZT       SourceLine   SETMOD\SETGLG.SetglgAddAmtFldValDat ( "TRN", $dbt, Today )
20081201164640 ZT       SourceLine   SETMOD\SETGLG.SetglgAddAmtFldValDat ( "TRN", $cdt, Today )
20081119180542 ZT       SourceLine 
20031014       IS       SourceLine   SETMOD.SetDspFlg ( "CG", "DISABLE" )
20040517       RI       SourceLine # settle all charges by default
20040525       RI       SourceLine   SETMOD.SetDspPolDft ( "X", "X", "" )
20080717203102 WCX      SourceLine   SETMOD.SetRolDspMdyFlg ( " " )
20080717203131 WCX      SourceLine   SETMOD.SetRedFlg ( "X" )
20200708200746 WAN      SourceLine endif
20080717203142 WCX      SourceLine {
20080407150312 WCX      SourceLine if CPDGRP\ORC\PTS\EXTKEY <> "" then
20080407150100 WCX      SourceLine   $FEEADDSW = "Y"
20080407150100 WCX      SourceLine else
20080407150100 WCX      SourceLine   $FEEADDSW = ""
20080407150100 WCX      SourceLine endif
20080407150413 WCX      SourceLine AddFeeData( "cpifee", $FEEADDSW, 1, Today, Today )
                        Rule 5
20010427       MM       SourceLine sub LiaallSetTransaction method
20030204       RI       SourceLine #! set transaction amounts for engagement panel
20030204       RI       SourceLine 
20030226       RI       SourceLine # no liability bookings necessary
                        Rule 5
                        SourceLine sub CbsSav
20030204       RI       SourceLine #! store the amounts
20081208171251 ZT       SourceLine CbsTrnSetNew( "TRN", \TRNMOD\TRN\INR )
20030127       RI       SourceLine # book out preliminary amount
20030128       RI       SourceLine CbsGetBalance( CBSMOD\CBB, CPDGRP\REC, "PRESUM", "AMT1", GetRelevantDateForBalances )
20030128       RI       SourceLine if not IsEmpty( CBSMOD\CBB\CUR ) then
20030128       RI       SourceLine   $precur = CBSMOD\CBB\CUR
20030128       RI       SourceLine   $preamt = CBSMOD\CBB\AMT
20030128       RI       SourceLine   CbsTrnStore( "PREAMT", "AMT1", Today, $precur, -$preamt, "opening", CPDGRP )
20030127       RI       SourceLine endif
20081208171814 ZT       SourceLine LIAALL.StoreAll
20081208171814 ZT       SourceLine CbsTrnCommit
20081119171647 ZT       SourceLine {
20081119172740 ZT       SourceLine #挂帐时存cbs 解付时不存  否则重复
20030310       RI       SourceLine # book payment /nominal amount
20050614       MV       SourceLine $storeAMT = CPDGRP\CBS\NOM1\AMT
20050614       MV       SourceLine if $storeAMT <> 0 then
20081015143505 ZT       SourceLine   CbsTrnStore( "NOMAMT", "AMT1", CPDGRP\REC\OPNDAT, CPDGRP\CBS\NOM1\CUR, $storeAMT, 'LF000184', CPDGRP )
                        SourceLine endif
20030310       RI       SourceLine # book received/maximum amount
20050614       MV       SourceLine $storeAMT = CPDGRP\CBS\MAX\AMT
20030310       RI       SourceLine if $storeAMT <> 0 then
20081015143519 ZT       SourceLine   CbsTrnStore( "MAXAMT", "AMT1", CPDGRP\REC\OPNDAT, CPDGRP\CBS\MAX\CUR, $storeAMT, 'LF000208', CPDGRP )
20050614       MV       SourceLine endif
20030310       RI       SourceLine 
20030226       RI       SourceLine 
20030226       RI       SourceLine LIAALL.StoreAll
20010427       MM       SourceLine CbsTrnCommit
                        Rule 5
20030325       EVS      SourceLine default CPDGRP\REC\CHATO
20030325       EVS      SourceLine if not IsModified then
20030829       MK       SourceLine   select case CPDGRP\REC\PAYTYP
20030829       MK       SourceLine     case "O"
20030829       MK       SourceLine   # Outgoing Payments
20030829       MK       SourceLine 
20030829       MK       SourceLine       if CPDGRP\REC\DETCHGCOD = "BEN" then
20030829       MK       SourceLine    # Details of charges = Beneficiary
20030829       MK       SourceLine         = "B"
20030829       MK       SourceLine       #Our fees borne by abroad
20030829       MK       SourceLine       else
20030829       MK       SourceLine         = "U"
20030829       MK       SourceLine       #Our fees borne by client
20030829       MK       SourceLine       endif
20030829       MK       SourceLine 
20030829       MK       SourceLine     case "I"
20030829       MK       SourceLine   # Incoming Payments
20030829       MK       SourceLine       if CPDGRP\REC\DETCHGCOD = "OUR" then
20030829       MK       SourceLine      # Details of charges = Ordering Customer
20030829       MK       SourceLine         = "B"
20030829       MK       SourceLine       #Our fees borne by abroad
20030829       MK       SourceLine       else
20030829       MK       SourceLine         = "U"
20030829       MK       SourceLine       #Our fees borne by client
20030829       MK       SourceLine       endif
20030829       MK       SourceLine 
20030829       MK       SourceLine     case "T"
20030829       MK       SourceLine   # Transit Payments
20030829       MK       SourceLine       if CPDGRP\REC\DETCHGCOD = "OUR" then
20030829       MK       SourceLine      # Details of charges = Ordering Customer
20030829       MK       SourceLine         = "U"
20030829       MK       SourceLine       #Our fees borne by client
20030829       MK       SourceLine       else
20030829       MK       SourceLine         = "B"
20030829       MK       SourceLine       #Our fees borne by abroad
20030829       MK       SourceLine       endif
20030829       MK       SourceLine   end select
20030829       MK       SourceLine endif
                        Rule 5
20030825       RO       SourceLine sub ClearContractForCopy static
20030825       RO       SourceLine # rule is called in TrnModCopyContract
20061030       MK       SourceLine # fields of CPDGRP, which are listed in this rule, are not copied
20051010       SK       SourceLine 
20061030       MK       SourceLine # Standard fields
20061030       MK       SourceLine Clear( CPDGRP\REC\OWNUSR )
20061030       MK       SourceLine 
20061030       MK       SourceLine # Date fields
20061030       MK       SourceLine Clear( CPDGRP\REC\VALDAT )
20061030       MK       SourceLine 
20061030       MK       SourceLine # Block fields
20061030       MK       SourceLine # Flags
20061030       MK       SourceLine # Other
                        Rule 5
20060725       RM       SourceLine default MTABUT\CLSFLG
20060828       RM       SourceLine MTABUT\CLSFLG.set ( "C" )
                        Rule 5
20061208       MM       SourceLine default TRNMOD\TRNDOC\TAG79TXT
20061208       MM       SourceLine 
20061208       MM       SourceLine   #double quotes because must not be translated
20061208       MM       SourceLine $txt = "Your payment instruction for " + CPDGRP\CBS\MAX\CUR + " " + FmtAmount( CPDGRP\CBS\MAX\AMT, CPDGRP\CBS\MAX\CUR ) + " to " + Trim( CPDGRP\PYE\ADR\NAM1 ) + " was processed today as requested."
20071112155146 RM       SourceLine # Get sender to receiver info from message details panel
20071112155238 RM       SourceLine $cr = CR
20071112155146 RM       SourceLine $AddStr = ""
20071112155146 RM       SourceLine $Gridcnt = GridCount( TRNMOD\TRNDOC\DOCEOT )
20071112155146 RM       SourceLine if $Gridcnt > 0 then
20071112155146 RM       SourceLine   for $i = 1 to $Gridcnt
20071112155225 RM       SourceLine     if TRNMOD\TRNDOC\DOCEOT( $i )\MT = "199" then
20071112155146 RM       SourceLine       $AddStr = TRNMOD\TRNDOC\DOCEOT( $i )\ADDSTR
20071112155146 RM       SourceLine       break
20071112155146 RM       SourceLine     endif
20071112155146 RM       SourceLine   next
20071112155146 RM       SourceLine endif
20071112155146 RM       SourceLine if not IsEmpty( $AddStr ) then
20071112155222 RM       SourceLine   $txt = $txt + $cr + "Note: " + CR + $AddStr
20071112155146 RM       SourceLine endif
20061208       MM       SourceLine 
20071112155144 RM       SourceLine 
20061208       MM       SourceLine TRNMOD\TRNDOC\TAG79TXT = $txt

                        PanelPage \OPNP1
                        PPRelPos -1 <START>
                        PanelPage \LIAALL\ENGP
                        PanelPage \SETMOD\SETPAN
                        PanelPage \MTABUT\CONINF\CONINFP
                        PanelPage \TRNMOD\TRNDOC\DOCPAN
                        PanelPage \TRNMOD\DOCIMM\PRTSWTR
                        PanelPage \MTABUT\SYSWRN\SysWrnDisplay
                        PanelPage \TRNMOD\TRNDIA\DIAPAN
                        PanelPage \TRNMOD\TRNDIA\DIASELP
                        PanelPage \MTABUT\FRMLOAPAN
                        PanelPage \TRNMOD\PTSMOD\ADRP0
                        PanelPage \TRNMOD\TRNDOC\DTEMOD\DTETAG
                        PPRelPos 2 \TRNMOD\DOCIMM\DOCBOL\PRTP
                        PanelPage \TRNMOD\TRNDOC\DTAMOD\DTATAG
                        PanelPage \TRNMOD\PTSMOD\OITP
                        PanelPage \TRNMOD\PTSMOD\DETP
                        PanelPage \TRNMOD\TXSMOD\TXSPAN

                        FramePanel OPNP1 PF000020 788 528 0 0 1 0 0 1 1 0
                        FrameField CPTP\OVWP 17 0 0 718 528 1 0 0 0 0 0 0 0 {-}
                        FrameField \BUTPAN 17 720 0 68 528 1 0 0 0 0 0 0 0 {-}
                        FrameObject 5 0 0 720 532 0 0 0 000000 0

                        FramePanel BUTPAN PF000038 68 528 0 0 1 0 0 0 0 1
                        PComment This global button panel should be used by all fullsize panels in the transaction.
                        FrameField MTABUT\TRABUTU 17 4 8 60 69 1 0 0 0 0 1 0 0 {-}
                        FrameField MTABUT\TRABUTM 17 4 172 60 93 1 0 0 0 0 1 0 0 {-}
                        FrameField MTABUT\TRABUTL 17 4 476 60 45 1 0 0 0 0 1 0 0 {-}

                        Literals_START
20021106165247 MK       LF000184DE Eröffnung
00000000000000          LF000184EN opening
20050614150233 MV       LF000208DE Eröffnung
20050614150225 MV       LF000208EN opening
20021108161643 MKD      PF000020DE Überblick
00000000000000          PF000020EN Overview
20021203141022 AN       PF000038DE Navigationbuttons der Transaktion
20021203140957 AN       PF000038EN Navigationbuttons of Transaction
                        Literals_END

330DF4A2