Skip to content

T
tdcode
Switch branch/tag
Find file
Normal viewHistoryPermalink
CPTP2.FR5 4.11 KB
Newer Older
初始代码提交
64fb3e93
 
wangguangchao committed
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 
TDVCSUpd ZHOUJIAN 2017-7-19 10:07:58
Version 50 TradeDesign®
                        Encoding UTF-8
                        Rule 5
20030226       AN       SourceLine default PYBP\PANSTA
20030226       AN       SourceLine # I = Paytyp Incoming
20030226       AN       SourceLine # O = Paytyp Outgoing
20030226       AN       SourceLine # T = Paytyp Transfer
20030226       AN       SourceLine if CPDGRP\REC\PAYTYP = "I" then
20030226       AN       SourceLine   Clear( PYBP )
20030226       AN       SourceLine   PYBP\PANSTA = PanStaShow
20030225       AN       SourceLine else
20030226       AN       SourceLine   PYBP\PANSTA = PanStaEdit
20030225       AN       SourceLine endif
                        Rule 5
20040816       MS       SourceLine default ORCP\PTSPTA\MDTFLG
20030225       MK       SourceLine #! The ordering customer is mandatory transit and incoming payments.
20030225       MK       SourceLine 
20030225       MK       SourceLine if ORCP\PANSTA = PanStaEdit then
20040816       MS       SourceLine   ORCP\PTSPTA\MDTFLG = "X"
20040816       MS       SourceLine else
20040816       MS       SourceLine   Clear( ORCP\PTSPTA\MDTFLG )
20030225       MK       SourceLine endif
                        Rule 5
20040816       MS       SourceLine default ORIP\PTSPTA\MDTFLG
20030225       MK       SourceLine #! The ordering institution is mandatory transit and incoming payments.
20030225       MK       SourceLine if ORIP\PANSTA = PanStaEdit then
20030225       MK       SourceLine   if ( CPDGRP\REC\PAYTYP = "I" or CPDGRP\REC\PAYTYP = "T" ) then
20040816       MS       SourceLine     ORIP\PTSPTA\MDTFLG = "X"
20040816       MS       SourceLine   else
20040816       MS       SourceLine     Clear( ORIP\PTSPTA\MDTFLG )
20030225       MK       SourceLine   endif
20030225       MK       SourceLine endif
                        Rule 5
20040816       MS       SourceLine default PYEP\PTSPTA\MDTFLG
20030225       MK       SourceLine #! The beneficiary /payee is mandatory.
20030225       MK       SourceLine 
20030225       MK       SourceLine if PYEP\PANSTA = PanStaEdit then
20040816       MS       SourceLine   PYEP\PTSPTA\MDTFLG = "X"
20040816       MS       SourceLine else
20040816       MS       SourceLine   Clear( PYEP\PTSPTA\MDTFLG )
20030225       MK       SourceLine endif
                        Rule 5
20030825       RO       SourceLine check CPDGRP\ORI\PTS\REF
20030825       RO       SourceLine #! The ordering institution reference is mandatory in transit and incoming payments.
20030825       RO       SourceLine if ORIP\PANSTA = PanStaEdit then
20030825       RO       SourceLine   if IsEmpty( CPDGRP\ORI\PTS\REF ) then
20030825       RO       SourceLine     if ( CPDGRP\REC\PAYTYP = "I" or CPDGRP\REC\PAYTYP = "T" ) then
20030825       RO       SourceLine       Error( 'LF000010' )
20030825       RO       SourceLine     endif
20030825       RO       SourceLine   endif
20030825       RO       SourceLine endif
                        Rule 5
20070427125824 IS       SourceLine check CPDGRP\REC\STACTY
20070427125819 IS       SourceLine if PANSTA = PanStaAdd or PANSTA = PanStaEdit then
20070427125831 IS       SourceLine   $ErrTxt = \MTABUT.GetOitOfCty ( CPDGRP\REC\STACTY, GetAttributeText( CPDGRP\REC\STACTY, tdAttrFullName ), "3" )
20070427125819 IS       SourceLine   # block transaction process by setting a error message
20070427125819 IS       SourceLine   if not IsEmpty( $ErrTxt ) then
20070427125819 IS       SourceLine     Error( "$1", $ErrTxt )
20070427125819 IS       SourceLine   endif
20070427125819 IS       SourceLine endif
                        Module PTSP ORIP 0
                        Argument PTSPTA CPDGRP\ORI
                        Module PTSP ORCP 0
                        Argument PTSPTA CPDGRP\ORC
                        Module PTSP PYBP 0
                        Argument PTSPTA CPDGRP\PYB
                        Module PTSP PYEP 0
                        Argument PTSPTA CPDGRP\PYE

                        Literals_START
20071001111031 AN       LF000010DE Bitte geben Sie die Referenznummer ein!
20071001111031 AN       LF000010EN A reference number must be entered for the ordering institution.
                        Literals_END

AE34DC83