Commit eae4ce20 by lsk

A-D if修改

parent 742bd806
...@@ -32,13 +32,13 @@ Version 50 TradeDesign® ...@@ -32,13 +32,13 @@ Version 50 TradeDesign®
20070315123952 MV SourceLine endif 20070315123952 MV SourceLine endif
Rule -1 Rule -1
20060830 MV SourceLine Check BODGRP\CBS\MAX\AMT 20060830 MV SourceLine Check BODGRP\CBS\MAX\AMT
20060830 MV SourceLine If IsEmpty(BODGRP\CBS\MAX\AMT) then 20060830 MV SourceLine if IsEmpty(BODGRP\CBS\MAX\AMT) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine Exit SourceLine Exit
SourceLine endif SourceLine endif
Rule -1 Rule -1
20060830 MV SourceLine Check BODGRP\CBS\MAX\CUR 20060830 MV SourceLine Check BODGRP\CBS\MAX\CUR
20060830 MV SourceLine If IsEmpty(BODGRP\CBS\MAX\CUR) then 20060830 MV SourceLine if IsEmpty(BODGRP\CBS\MAX\CUR) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine Exit SourceLine Exit
SourceLine endif SourceLine endif
......
...@@ -24,7 +24,7 @@ Version 50 TradeDesign® ...@@ -24,7 +24,7 @@ Version 50 TradeDesign®
20060830 MV SourceLine ErrorPositiveAmtOnly( BODGRP\CBS\MAX\AMT ) 20060830 MV SourceLine ErrorPositiveAmtOnly( BODGRP\CBS\MAX\AMT )
Rule -1 Rule -1
20060830 MV SourceLine Check BODGRP\CBS\MAX\CUR 20060830 MV SourceLine Check BODGRP\CBS\MAX\CUR
20060830 MV SourceLine If IsEmpty(BODGRP\CBS\MAX\CUR) then 20060830 MV SourceLine if IsEmpty(BODGRP\CBS\MAX\CUR) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine Exit SourceLine Exit
SourceLine endif SourceLine endif
......
...@@ -12,7 +12,7 @@ Version 50 TradeDesign® ...@@ -12,7 +12,7 @@ Version 50 TradeDesign®
20060830 MV SourceLine ErrorPositiveAmtOnly( BODGRP\CBS\MAX\AMT ) 20060830 MV SourceLine ErrorPositiveAmtOnly( BODGRP\CBS\MAX\AMT )
Rule -1 Rule -1
20060830 MV SourceLine Check BODGRP\CBS\MAX\CUR 20060830 MV SourceLine Check BODGRP\CBS\MAX\CUR
20060830 MV SourceLine If IsEmpty(BODGRP\CBS\MAX\CUR) then 20060830 MV SourceLine if IsEmpty(BODGRP\CBS\MAX\CUR) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine Exit SourceLine Exit
SourceLine endif SourceLine endif
......
...@@ -89,7 +89,7 @@ Version 50 TradeDesign® ...@@ -89,7 +89,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif 19981112 DOS SourceLine endif
Rule -1 Rule -1
SourceLine Check DIDGRP\REC\AVBBY SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) then SourceLine if IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
...@@ -20,7 +20,7 @@ Version 50 TradeDesign® ...@@ -20,7 +20,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif 19981112 DOS SourceLine endif
Rule -1 Rule -1
SourceLine Check DIDGRP\REC\AVBBY SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) then SourceLine if IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
...@@ -90,7 +90,7 @@ Version 50 TradeDesign® ...@@ -90,7 +90,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif 19981112 DOS SourceLine endif
Rule -1 Rule -1
SourceLine Check DIDGRP\REC\AVBBY SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) then SourceLine if IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
...@@ -26,7 +26,7 @@ Version 50 TradeDesign® ...@@ -26,7 +26,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
20060830 MV SourceLine Check BCDGRP\CBS\MAX\CUR 20060830 MV SourceLine Check BCDGRP\CBS\MAX\CUR
20060830 MV SourceLine If IsEmpty(BCDGRP\CBS\MAX\CUR) then 20060830 MV SourceLine if IsEmpty(BCDGRP\CBS\MAX\CUR) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine Exit SourceLine Exit
SourceLine endif SourceLine endif
......
...@@ -137,14 +137,14 @@ Version 50 TradeDesign® ...@@ -137,14 +137,14 @@ Version 50 TradeDesign®
SourceLine SetSelectedRow( CBAPG, $CBTRow ) SourceLine SetSelectedRow( CBAPG, $CBTRow )
Rule -1 Rule -1
SourceLine DEFAULT CBSA\CBO SourceLine DEFAULT CBSA\CBO
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT CBSA\CBC SourceLine DEFAULT CBSA\CBC
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
......
...@@ -13,7 +13,7 @@ Version 50 TradeDesign® ...@@ -13,7 +13,7 @@ Version 50 TradeDesign®
Datafield CLS C 10 1 6 1 0 {} {&Close} Datafield CLS C 10 1 6 1 0 {} {&Close}
Rule -1 Rule -1
SourceLine Default CBCPG SourceLine Default CBCPG
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Enable SourceLine Enable
SourceLine else SourceLine else
SourceLine Disable SourceLine Disable
...@@ -36,14 +36,14 @@ Version 50 TradeDesign® ...@@ -36,14 +36,14 @@ Version 50 TradeDesign®
SourceLine $CBCRow = 1 SourceLine $CBCRow = 1
SourceLine Label IniLoop SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx ) SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If not IsEmpty( $Lin ) then SourceLine if not IsEmpty( $Lin ) then
SourceLine If $GridRow > $Max then SourceLine if $GridRow > $Max then
SourceLine GridInsertRow( CBCPG, 0 ) SourceLine GridInsertRow( CBCPG, 0 )
SourceLine endif SourceLine endif
SourceLine CBCPG( $GridRow )\CBCCOD = $Lin SourceLine CBCPG( $GridRow )\CBCCOD = $Lin
SourceLine CBCPG( $GridRow )\CBCTXT = GetTblText( $Lin, "CBCTXT", GetUil ) SourceLine CBCPG( $GridRow )\CBCTXT = GetTblText( $Lin, "CBCTXT", GetUil )
SourceLine CBCPG( $GridRow )\CBXFLG = GetIniStr( "CBSCONF.INI", "CBCXBL", $Lin ) SourceLine CBCPG( $GridRow )\CBXFLG = GetIniStr( "CBSCONF.INI", "CBCXBL", $Lin )
SourceLine If $Lin = CBSA\CBC then SourceLine if $Lin = CBSA\CBC then
SourceLine $CBCRow = $GridRow SourceLine $CBCRow = $GridRow
SourceLine endif SourceLine endif
SourceLine $IniIdx = $IniIdx + 1 SourceLine $IniIdx = $IniIdx + 1
......
...@@ -9,12 +9,12 @@ Version 50 TradeDesign® ...@@ -9,12 +9,12 @@ Version 50 TradeDesign®
Datafield CBXFLG T 1 1 2 1 0 {CBXTXT} {Balance per external id (' '=No, 'Y'es)} 1 Datafield CBXFLG T 1 1 2 1 0 {CBXTXT} {Balance per external id (' '=No, 'Y'es)} 1
Rule -1 Rule -1
SourceLine CHECK CBCCOD SourceLine CHECK CBCCOD
SourceLine If IsEmpty( CBCCOD ) then SourceLine if IsEmpty( CBCCOD ) then
SourceLine Error( 'L0000000' ) SourceLine Error( 'L0000000' )
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine CHECK CBCTXT SourceLine CHECK CBCTXT
SourceLine If IsEmpty( CBCTXT ) then SourceLine if IsEmpty( CBCTXT ) then
SourceLine Error( 'L0000001' ) SourceLine Error( 'L0000001' )
SourceLine endif SourceLine endif
PanelCount 0 PanelCount 0
......
...@@ -76,14 +76,14 @@ Version 50 TradeDesign® ...@@ -76,14 +76,14 @@ Version 50 TradeDesign®
SourceLine SetSelectedRow( CBIPG, $CBCRow ) SourceLine SetSelectedRow( CBIPG, $CBCRow )
Rule -1 Rule -1
SourceLine DEFAULT CBSA\CBO SourceLine DEFAULT CBSA\CBO
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT CBSA\CBT SourceLine DEFAULT CBSA\CBT
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
......
...@@ -13,7 +13,7 @@ Version 50 TradeDesign® ...@@ -13,7 +13,7 @@ Version 50 TradeDesign®
Datafield CLS C 10 1 6 1 0 {} {&Close} Datafield CLS C 10 1 6 1 0 {} {&Close}
Rule -1 Rule -1
SourceLine Default CBOPG SourceLine Default CBOPG
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Enable SourceLine Enable
SourceLine else SourceLine else
SourceLine Disable SourceLine Disable
...@@ -36,13 +36,13 @@ Version 50 TradeDesign® ...@@ -36,13 +36,13 @@ Version 50 TradeDesign®
SourceLine $CBORow = 1 SourceLine $CBORow = 1
SourceLine Label IniLoop SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx ) SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If not IsEmpty( $Lin ) then SourceLine if not IsEmpty( $Lin ) then
SourceLine If $GridRow > $Max then SourceLine if $GridRow > $Max then
SourceLine GridInsertRow( CBOPG, 0 ) SourceLine GridInsertRow( CBOPG, 0 )
SourceLine endif SourceLine endif
SourceLine CBOPG( $GridRow )\CBOCOD = $Lin SourceLine CBOPG( $GridRow )\CBOCOD = $Lin
SourceLine CBOPG( $GridRow )\CBOTXT = GetTblText( $Lin, "CBOTXT", GetUil ) SourceLine CBOPG( $GridRow )\CBOTXT = GetTblText( $Lin, "CBOTXT", GetUil )
SourceLine If $Lin = CBSA\CBO then SourceLine if $Lin = CBSA\CBO then
SourceLine $CBORow = $GridRow SourceLine $CBORow = $GridRow
SourceLine endif SourceLine endif
SourceLine $IniIdx = $IniIdx + 1 SourceLine $IniIdx = $IniIdx + 1
......
...@@ -8,12 +8,12 @@ Version 50 TradeDesign® ...@@ -8,12 +8,12 @@ Version 50 TradeDesign®
Datafield CBOTXT T 40 1 0 1 0 {} {description of type} 1 Datafield CBOTXT T 40 1 0 1 0 {} {description of type} 1
Rule -1 Rule -1
SourceLine CHECK CBOCOD SourceLine CHECK CBOCOD
SourceLine If IsEmpty( CBOCOD ) then SourceLine if IsEmpty( CBOCOD ) then
SourceLine Error( 'L0000000' ) SourceLine Error( 'L0000000' )
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine CHECK CBOTXT SourceLine CHECK CBOTXT
SourceLine If IsEmpty( CBOTXT ) then SourceLine if IsEmpty( CBOTXT ) then
SourceLine Error( 'L0000001' ) SourceLine Error( 'L0000001' )
SourceLine endif SourceLine endif
PanelCount 0 PanelCount 0
......
...@@ -13,7 +13,7 @@ Version 50 TradeDesign® ...@@ -13,7 +13,7 @@ Version 50 TradeDesign®
Datafield CLS C 10 1 6 1 0 {} {&Close} Datafield CLS C 10 1 6 1 0 {} {&Close}
Rule -1 Rule -1
SourceLine Default CBTPG SourceLine Default CBTPG
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Enable SourceLine Enable
SourceLine else SourceLine else
SourceLine Disable SourceLine Disable
...@@ -36,13 +36,13 @@ Version 50 TradeDesign® ...@@ -36,13 +36,13 @@ Version 50 TradeDesign®
SourceLine $CBTRow = 1 SourceLine $CBTRow = 1
SourceLine Label IniLoop SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx ) SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If not IsEmpty( $Lin ) then SourceLine if not IsEmpty( $Lin ) then
SourceLine If $GridRow > $Max then SourceLine if $GridRow > $Max then
SourceLine GridInsertRow( CBTPG, 0 ) SourceLine GridInsertRow( CBTPG, 0 )
SourceLine endif SourceLine endif
SourceLine CBTPG( $GridRow )\CBTCOD = $Lin SourceLine CBTPG( $GridRow )\CBTCOD = $Lin
SourceLine CBTPG( $GridRow )\CBTTXT = GetTblText( $Lin, "CBTTXT", GetUil ) SourceLine CBTPG( $GridRow )\CBTTXT = GetTblText( $Lin, "CBTTXT", GetUil )
SourceLine If $Lin = CBSA\CBT then SourceLine if $Lin = CBSA\CBT then
SourceLine $CBTRow = $GridRow SourceLine $CBTRow = $GridRow
SourceLine endif SourceLine endif
SourceLine $IniIdx = $IniIdx + 1 SourceLine $IniIdx = $IniIdx + 1
......
...@@ -8,12 +8,12 @@ Version 50 TradeDesign® ...@@ -8,12 +8,12 @@ Version 50 TradeDesign®
Datafield CBTTXT T 40 1 0 1 0 {} {description of type} 1 Datafield CBTTXT T 40 1 0 1 0 {} {description of type} 1
Rule -1 Rule -1
SourceLine CHECK CBTCOD SourceLine CHECK CBTCOD
SourceLine If IsEmpty( CBTCOD ) then SourceLine if IsEmpty( CBTCOD ) then
SourceLine Error( 'L0000000' ) SourceLine Error( 'L0000000' )
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine CHECK CBTTXT SourceLine CHECK CBTTXT
SourceLine If IsEmpty( CBTTXT ) then SourceLine if IsEmpty( CBTTXT ) then
SourceLine Error( 'L0000001' ) SourceLine Error( 'L0000001' )
SourceLine endif SourceLine endif
PanelCount 0 PanelCount 0
......
...@@ -29,16 +29,16 @@ Version 50 TradeDesign® ...@@ -29,16 +29,16 @@ Version 50 TradeDesign®
DFComment This field describes the validity of the associated contract. DFComment This field describes the validity of the associated contract.
Datafield CCIBANROL T 3 1 0 1 0 {} {Role of Bank (Optional)} 1 Datafield CCIBANROL T 3 1 0 1 0 {} {Role of Bank (Optional)} 1
DFComment The field holds the role which acts as direct partneraddress abroad in the associated contract, if this type is available. Usually this role is the role of the issuing bank or the main partner bank where the local bank has a direct relation to. DFComment The field holds the role which acts as direct partneraddress abroad in the associated contract, if this type is available. Usually this role is the role of the issuing bank or the main partner bank where the local bank has a direct relation to.
DFComment If this field is set that role acts as the partner abroad but does not mean that this role is associated to an address or that a PTS entry of that role exists. DFComment if this field is set that role acts as the partner abroad but does not mean that this role is associated to an address or that a PTS entry of that role exists.
Datafield CCIBANPTAINR T 8 1 0 1 0 {} {PTAINR of Bank (Optional)} 1 Datafield CCIBANPTAINR T 8 1 0 1 0 {} {PTAINR of Bank (Optional)} 1
DFComment This field holds the INR of the PTA-entry identified by the CCIBANROL of the associated contract. DFComment This field holds the INR of the PTA-entry identified by the CCIBANROL of the associated contract.
DFComment If no PTA is used for the specified role, this field might be empty. DFComment if no PTA is used for the specified role, this field might be empty.
Datafield CCICUSROL T 3 1 0 1 0 {} {Role of Customer (Optional)} 1 Datafield CCICUSROL T 3 1 0 1 0 {} {Role of Customer (Optional)} 1
DFComment The field holds the role which acts as direct local partneraddress in the associated contract, if this type is available. Usually this role is the role of the client of the local bank where the bank has a direct relation to. DFComment The field holds the role which acts as direct local partneraddress in the associated contract, if this type is available. Usually this role is the role of the client of the local bank where the bank has a direct relation to.
DFComment If this field is set that role acts as the local partner but does not mean that this role is associated to an address or that a PTS entry of that role exists. DFComment if this field is set that role acts as the local partner but does not mean that this role is associated to an address or that a PTS entry of that role exists.
Datafield CCICUSPTAINR T 8 1 0 1 0 {} {PTAINR of Customer (Optional)} 1 Datafield CCICUSPTAINR T 8 1 0 1 0 {} {PTAINR of Customer (Optional)} 1
DFComment This field holds the INR of the PTA entry identified by the CCICUSROL of the associated contract. DFComment This field holds the INR of the PTA entry identified by the CCICUSROL of the associated contract.
DFComment If no PTA is used for the specified role, this field might be empty. DFComment if no PTA is used for the specified role, this field might be empty.
Datafield VER T 4 1 0 1 0 {} {Version Counter} 1 Datafield VER T 4 1 0 1 0 {} {Version Counter} 1
DFComment This field holds the version counter to keep track of the version history of a CCI entry. The individual versions are controlled by entries in the SLG table. DFComment This field holds the version counter to keep track of the version history of a CCI entry. The individual versions are controlled by entries in the SLG table.
Index CCI_IDX=1OBJTYP, OBJINR Index CCI_IDX=1OBJTYP, OBJINR
......
...@@ -48,7 +48,7 @@ Version 50 TradeDesign® ...@@ -48,7 +48,7 @@ Version 50 TradeDesign®
SourceLine Recsavedata(WRKPTYGRP) SourceLine Recsavedata(WRKPTYGRP)
Rule -1 Rule -1
SourceLine DEFAULT DBIPTY SourceLine DEFAULT DBIPTY
SourceLine If \RECPAN\PANSTA = PanStaLog then SourceLine if \RECPAN\PANSTA = PanStaLog then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
......
...@@ -26,35 +26,35 @@ Version 50 TradeDesign® ...@@ -26,35 +26,35 @@ Version 50 TradeDesign®
SourceLine LnkChainTransaction( "DBICBI" ) SourceLine LnkChainTransaction( "DBICBI" )
Rule -1 Rule -1
SourceLine DEFAULT DBICBO SourceLine DEFAULT DBICBO
SourceLine If BaseName( GetFramename ) = "DBICBO" then SourceLine if BaseName( GetFramename ) = "DBICBO" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine EnAble SourceLine EnAble
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT DBICBT SourceLine DEFAULT DBICBT
SourceLine If BaseName( GetFramename ) = "DBICBT" then SourceLine if BaseName( GetFramename ) = "DBICBT" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine EnAble SourceLine EnAble
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT DBICBC SourceLine DEFAULT DBICBC
SourceLine If BaseName( GetFramename ) = "DBICBC" then SourceLine if BaseName( GetFramename ) = "DBICBC" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine EnAble SourceLine EnAble
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT DBICBA SourceLine DEFAULT DBICBA
SourceLine If BaseName( GetFramename ) = "DBICBA" then SourceLine if BaseName( GetFramename ) = "DBICBA" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT DBICBI SourceLine DEFAULT DBICBI
SourceLine If BaseName( GetFramename ) = "DBICBI" then SourceLine if BaseName( GetFramename ) = "DBICBI" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine EnAble SourceLine EnAble
......
...@@ -257,7 +257,7 @@ Version 50 TradeDesign® ...@@ -257,7 +257,7 @@ Version 50 TradeDesign®
Rule -1 Rule -1
SourceLine Sub FrameExit SourceLine Sub FrameExit
SourceLine # HotKey "Esc" SourceLine # HotKey "Esc"
SourceLine If STA = "I" then SourceLine if STA = "I" then
SourceLine LnkReturnToCaller SourceLine LnkReturnToCaller
SourceLine else SourceLine else
SourceLine STA = "I" SourceLine STA = "I"
......
...@@ -24,7 +24,7 @@ Version 50 TradeDesign® ...@@ -24,7 +24,7 @@ Version 50 TradeDesign®
SourceLine Disable SourceLine Disable
Rule -1 Rule -1
SourceLine Default OVWP SourceLine Default OVWP
SourceLine If PANSTA = PanStaEdit then SourceLine if PANSTA = PanStaEdit then
SourceLine Enable ( OVWP ) SourceLine Enable ( OVWP )
SourceLine else SourceLine else
SourceLine Disable ( OVWP ) SourceLine Disable ( OVWP )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment