Commit eae4ce20 by lsk

A-D if修改

parent 742bd806
......@@ -32,13 +32,13 @@ Version 50 TradeDesign®
20070315123952 MV SourceLine endif
Rule -1
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 Exit
SourceLine endif
Rule -1
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 Exit
SourceLine endif
......
......@@ -24,7 +24,7 @@ Version 50 TradeDesign®
20060830 MV SourceLine ErrorPositiveAmtOnly( BODGRP\CBS\MAX\AMT )
Rule -1
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 Exit
SourceLine endif
......
......@@ -12,7 +12,7 @@ Version 50 TradeDesign®
20060830 MV SourceLine ErrorPositiveAmtOnly( BODGRP\CBS\MAX\AMT )
Rule -1
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 Exit
SourceLine endif
......
......@@ -89,7 +89,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif
Rule -1
SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine if IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory
SourceLine endif
Rule -1
......
......@@ -20,7 +20,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif
Rule -1
SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine if IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory
SourceLine endif
Rule -1
......
......@@ -90,7 +90,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif
Rule -1
SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine if IsEmpty ( DIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory
SourceLine endif
Rule -1
......
......@@ -26,7 +26,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
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 Exit
SourceLine endif
......
......@@ -137,14 +137,14 @@ Version 50 TradeDesign®
SourceLine SetSelectedRow( CBAPG, $CBTRow )
Rule -1
SourceLine DEFAULT CBSA\CBO
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Disable
SourceLine else
SourceLine Enable
SourceLine endif
Rule -1
SourceLine DEFAULT CBSA\CBC
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Disable
SourceLine else
SourceLine Enable
......
......@@ -13,7 +13,7 @@ Version 50 TradeDesign®
Datafield CLS C 10 1 6 1 0 {} {&Close}
Rule -1
SourceLine Default CBCPG
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Enable
SourceLine else
SourceLine Disable
......@@ -36,14 +36,14 @@ Version 50 TradeDesign®
SourceLine $CBCRow = 1
SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If not IsEmpty( $Lin ) then
SourceLine If $GridRow > $Max then
SourceLine if not IsEmpty( $Lin ) then
SourceLine if $GridRow > $Max then
SourceLine GridInsertRow( CBCPG, 0 )
SourceLine endif
SourceLine CBCPG( $GridRow )\CBCCOD = $Lin
SourceLine CBCPG( $GridRow )\CBCTXT = GetTblText( $Lin, "CBCTXT", GetUil )
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 endif
SourceLine $IniIdx = $IniIdx + 1
......
......@@ -9,12 +9,12 @@ Version 50 TradeDesign®
Datafield CBXFLG T 1 1 2 1 0 {CBXTXT} {Balance per external id (' '=No, 'Y'es)} 1
Rule -1
SourceLine CHECK CBCCOD
SourceLine If IsEmpty( CBCCOD ) then
SourceLine if IsEmpty( CBCCOD ) then
SourceLine Error( 'L0000000' )
SourceLine endif
Rule -1
SourceLine CHECK CBCTXT
SourceLine If IsEmpty( CBCTXT ) then
SourceLine if IsEmpty( CBCTXT ) then
SourceLine Error( 'L0000001' )
SourceLine endif
PanelCount 0
......
......@@ -76,14 +76,14 @@ Version 50 TradeDesign®
SourceLine SetSelectedRow( CBIPG, $CBCRow )
Rule -1
SourceLine DEFAULT CBSA\CBO
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Disable
SourceLine else
SourceLine Enable
SourceLine endif
Rule -1
SourceLine DEFAULT CBSA\CBT
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Disable
SourceLine else
SourceLine Enable
......
......@@ -13,7 +13,7 @@ Version 50 TradeDesign®
Datafield CLS C 10 1 6 1 0 {} {&Close}
Rule -1
SourceLine Default CBOPG
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Enable
SourceLine else
SourceLine Disable
......@@ -36,13 +36,13 @@ Version 50 TradeDesign®
SourceLine $CBORow = 1
SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If not IsEmpty( $Lin ) then
SourceLine If $GridRow > $Max then
SourceLine if not IsEmpty( $Lin ) then
SourceLine if $GridRow > $Max then
SourceLine GridInsertRow( CBOPG, 0 )
SourceLine endif
SourceLine CBOPG( $GridRow )\CBOCOD = $Lin
SourceLine CBOPG( $GridRow )\CBOTXT = GetTblText( $Lin, "CBOTXT", GetUil )
SourceLine If $Lin = CBSA\CBO then
SourceLine if $Lin = CBSA\CBO then
SourceLine $CBORow = $GridRow
SourceLine endif
SourceLine $IniIdx = $IniIdx + 1
......
......@@ -8,12 +8,12 @@ Version 50 TradeDesign®
Datafield CBOTXT T 40 1 0 1 0 {} {description of type} 1
Rule -1
SourceLine CHECK CBOCOD
SourceLine If IsEmpty( CBOCOD ) then
SourceLine if IsEmpty( CBOCOD ) then
SourceLine Error( 'L0000000' )
SourceLine endif
Rule -1
SourceLine CHECK CBOTXT
SourceLine If IsEmpty( CBOTXT ) then
SourceLine if IsEmpty( CBOTXT ) then
SourceLine Error( 'L0000001' )
SourceLine endif
PanelCount 0
......
......@@ -13,7 +13,7 @@ Version 50 TradeDesign®
Datafield CLS C 10 1 6 1 0 {} {&Close}
Rule -1
SourceLine Default CBTPG
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Enable
SourceLine else
SourceLine Disable
......@@ -36,13 +36,13 @@ Version 50 TradeDesign®
SourceLine $CBTRow = 1
SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If not IsEmpty( $Lin ) then
SourceLine If $GridRow > $Max then
SourceLine if not IsEmpty( $Lin ) then
SourceLine if $GridRow > $Max then
SourceLine GridInsertRow( CBTPG, 0 )
SourceLine endif
SourceLine CBTPG( $GridRow )\CBTCOD = $Lin
SourceLine CBTPG( $GridRow )\CBTTXT = GetTblText( $Lin, "CBTTXT", GetUil )
SourceLine If $Lin = CBSA\CBT then
SourceLine if $Lin = CBSA\CBT then
SourceLine $CBTRow = $GridRow
SourceLine endif
SourceLine $IniIdx = $IniIdx + 1
......
......@@ -8,12 +8,12 @@ Version 50 TradeDesign®
Datafield CBTTXT T 40 1 0 1 0 {} {description of type} 1
Rule -1
SourceLine CHECK CBTCOD
SourceLine If IsEmpty( CBTCOD ) then
SourceLine if IsEmpty( CBTCOD ) then
SourceLine Error( 'L0000000' )
SourceLine endif
Rule -1
SourceLine CHECK CBTTXT
SourceLine If IsEmpty( CBTTXT ) then
SourceLine if IsEmpty( CBTTXT ) then
SourceLine Error( 'L0000001' )
SourceLine endif
PanelCount 0
......
......@@ -29,16 +29,16 @@ Version 50 TradeDesign®
DFComment This field describes the validity of the associated contract.
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 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
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
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
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
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
......
......@@ -48,7 +48,7 @@ Version 50 TradeDesign®
SourceLine Recsavedata(WRKPTYGRP)
Rule -1
SourceLine DEFAULT DBIPTY
SourceLine If \RECPAN\PANSTA = PanStaLog then
SourceLine if \RECPAN\PANSTA = PanStaLog then
SourceLine Disable
SourceLine else
SourceLine Enable
......
......@@ -26,35 +26,35 @@ Version 50 TradeDesign®
SourceLine LnkChainTransaction( "DBICBI" )
Rule -1
SourceLine DEFAULT DBICBO
SourceLine If BaseName( GetFramename ) = "DBICBO" then
SourceLine if BaseName( GetFramename ) = "DBICBO" then
SourceLine Disable
SourceLine else
SourceLine EnAble
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBT
SourceLine If BaseName( GetFramename ) = "DBICBT" then
SourceLine if BaseName( GetFramename ) = "DBICBT" then
SourceLine Disable
SourceLine else
SourceLine EnAble
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBC
SourceLine If BaseName( GetFramename ) = "DBICBC" then
SourceLine if BaseName( GetFramename ) = "DBICBC" then
SourceLine Disable
SourceLine else
SourceLine EnAble
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBA
SourceLine If BaseName( GetFramename ) = "DBICBA" then
SourceLine if BaseName( GetFramename ) = "DBICBA" then
SourceLine Disable
SourceLine else
SourceLine Enable
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBI
SourceLine If BaseName( GetFramename ) = "DBICBI" then
SourceLine if BaseName( GetFramename ) = "DBICBI" then
SourceLine Disable
SourceLine else
SourceLine EnAble
......
......@@ -257,7 +257,7 @@ Version 50 TradeDesign®
Rule -1
SourceLine Sub FrameExit
SourceLine # HotKey "Esc"
SourceLine If STA = "I" then
SourceLine if STA = "I" then
SourceLine LnkReturnToCaller
SourceLine else
SourceLine STA = "I"
......
......@@ -24,7 +24,7 @@ Version 50 TradeDesign®
SourceLine Disable
Rule -1
SourceLine Default OVWP
SourceLine If PANSTA = PanStaEdit then
SourceLine if PANSTA = PanStaEdit then
SourceLine Enable ( OVWP )
SourceLine else
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