Skip to content

T
tdcode
Commit 742bd806 by wangguangchao
Options

Then全局替换修改

parent 3a4ee998
Showing with 75 additions and 75 deletions
frame/BOTAME.TR2
...@@ -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
......
frame/BOTDAV.TR2
...@@ -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
......
frame/BOTRAD.TR2
...@@ -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
......
frame/DITAME.TR2
...@@ -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
......
frame/DITDLA.TR2
...@@ -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
......
frame/DITREJ.TR2
...@@ -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
......
frame/FILTSK.FR2
...@@ -157,7 +157,7 @@ Version 50 TradeDesign® ...@@ -157,7 +157,7 @@ Version 50 TradeDesign®
SourceLine # returns false if no such entry exists SourceLine # returns false if no such entry exists
SourceLine SourceLine
SourceLine \Filtsk\nxtidx = \Filtsk\nxtidx + 1 SourceLine \Filtsk\nxtidx = \Filtsk\nxtidx + 1
SourceLine IF \Filtsk\nxtidx <= GridCount ( \FILtsk\FILshw ) Then SourceLine IF \Filtsk\nxtidx <= GridCount ( \FILtsk\FILshw ) then
SourceLine \filename = \FILtsk\FILshw( \Filtsk\nxtidx )\filename SourceLine \filename = \FILtsk\FILshw( \Filtsk\nxtidx )\filename
SourceLine \SRCFLG = \FILtsk\FILshw( \Filtsk\nxtidx )\SRCFLG SourceLine \SRCFLG = \FILtsk\FILshw( \Filtsk\nxtidx )\SRCFLG
SourceLine return true SourceLine return true
......
frame/GITCRJ.TR5
...@@ -15,7 +15,7 @@ Version 50 TradeDesign® ...@@ -15,7 +15,7 @@ Version 50 TradeDesign®
20070227 MS SourceLine # 2. Build Transaction from GCDGRP 20070227 MS SourceLine # 2. Build Transaction from GCDGRP
20070227 MS SourceLine TRNMOD.TrnSetFromContract ( GCDGRP\REC ) 20070227 MS SourceLine TRNMOD.TrnSetFromContract ( GCDGRP\REC )
20080910102628 ZT SourceLine #如果是pending instruction 则不处理 20080910102628 ZT SourceLine #如果是pending instruction 则不处理
20080910102803 ZT SourceLine if rejtypsel <> "I" Then 20080910102803 ZT SourceLine if rejtypsel <> "I" then
20050809 MM SourceLine Cbssav 20050809 MM SourceLine Cbssav
20080910102807 ZT SourceLine endif 20080910102807 ZT SourceLine endif
20010529 VO SourceLine 20010529 VO SourceLine
......
frame/LETAME.TR2
...@@ -10,7 +10,7 @@ Version 50 TradeDesign® ...@@ -10,7 +10,7 @@ Version 50 TradeDesign®
20070319163359 RM SourceLine LETAMEP.initnartxt 20070319163359 RM SourceLine LETAMEP.initnartxt
Rule -1 Rule -1
SourceLine DEFAULT LETAMEP\AMEDAT SourceLine DEFAULT LETAMEP\AMEDAT
SourceLine If IsEmpty ( LETAMEP\AMEDAT) Then SourceLine If IsEmpty ( LETAMEP\AMEDAT) then
SourceLine = Today SourceLine = Today
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/LETNOT.TR2
...@@ -61,12 +61,12 @@ Version 50 TradeDesign® ...@@ -61,12 +61,12 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT SHPDEF (LEDGRP\REC\SHPDAT , LEDGRP\BLK\SHPPER ) SourceLine DEFAULT SHPDEF (LEDGRP\REC\SHPDAT , LEDGRP\BLK\SHPPER )
SourceLine If not IsEmpty( LEDGRP\REC\SHPDAT ) Then SourceLine If not IsEmpty( LEDGRP\REC\SHPDAT ) then
SourceLine Disable ( LEDGRP\BLK\SHPPER ) SourceLine Disable ( LEDGRP\BLK\SHPPER )
SourceLine else SourceLine else
SourceLine Enable ( LEDGRP\BLK\SHPPER ) SourceLine Enable ( LEDGRP\BLK\SHPPER )
SourceLine endif SourceLine endif
SourceLine If not IsEmpty( LEDGRP\BLK\SHPPER ) Then SourceLine If not IsEmpty( LEDGRP\BLK\SHPPER ) then
SourceLine Disable ( LEDGRP\REC\SHPDAT ) SourceLine Disable ( LEDGRP\REC\SHPDAT )
SourceLine else SourceLine else
SourceLine Enable ( LEDGRP\REC\SHPDAT ) SourceLine Enable ( LEDGRP\REC\SHPDAT )
......
frame/LETP.FR2
...@@ -41,7 +41,7 @@ Version 50 TradeDesign® ...@@ -41,7 +41,7 @@ Version 50 TradeDesign®
20050830 AN SourceLine 20050830 AN SourceLine
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 )
......
frame/LITAME.TR2
...@@ -105,7 +105,7 @@ Version 50 TradeDesign® ...@@ -105,7 +105,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif 19981112 DOS SourceLine endif
Rule -1 Rule -1
SourceLine Check LIDGRP\REC\AVBBY SourceLine Check LIDGRP\REC\AVBBY
SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) Then SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/LITDLA.TR2
...@@ -21,7 +21,7 @@ Version 50 TradeDesign® ...@@ -21,7 +21,7 @@ Version 50 TradeDesign®
19981112 DOS SourceLine endif 19981112 DOS SourceLine endif
Rule -1 Rule -1
SourceLine Check LIDGRP\REC\AVBBY SourceLine Check LIDGRP\REC\AVBBY
SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) Then SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/LTTOPN.TR2
...@@ -203,12 +203,12 @@ Version 50 TradeDesign® ...@@ -203,12 +203,12 @@ Version 50 TradeDesign®
19991202 RAL SourceLine print SWTPrtEndTag( "SWT" ) ; 19991202 RAL SourceLine print SWTPrtEndTag( "SWT" ) ;
Rule -1 Rule -1
SourceLine CHECK LTDGRP\REC\EXPPLC SourceLine CHECK LTDGRP\REC\EXPPLC
SourceLine If IsEmpty( LTDGRP\REC\EXPPLC) Then SourceLine If IsEmpty( LTDGRP\REC\EXPPLC) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine CHECK LTDGRP\CBS\NOM1\CUR SourceLine CHECK LTDGRP\CBS\NOM1\CUR
SourceLine If IsEmpty( LTDGRP\CBS\NOM1\CUR) Then SourceLine If IsEmpty( LTDGRP\CBS\NOM1\CUR) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/SYSTBL.TR0
...@@ -148,7 +148,7 @@ Version 50 TradeDesign® ...@@ -148,7 +148,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT SAV SourceLine DEFAULT SAV
SourceLine If STA = "A" Then SourceLine If STA = "A" then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine else SourceLine else
...@@ -423,7 +423,7 @@ Version 50 TradeDesign® ...@@ -423,7 +423,7 @@ Version 50 TradeDesign®
20020917 HB SourceLine ResetCache 20020917 HB SourceLine ResetCache
Rule -1 Rule -1
SourceLine DEFAULT UPD SourceLine DEFAULT UPD
SourceLine If STA = "E" Then SourceLine If STA = "E" then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine else SourceLine else
...@@ -571,10 +571,10 @@ Version 50 TradeDesign® ...@@ -571,10 +571,10 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT EXP SourceLine DEFAULT EXP
SourceLine If STA = "I" Then SourceLine If STA = "I" then
SourceLine Visible SourceLine Visible
SourceLine If Isdesigner Then SourceLine If Isdesigner then
SourceLine If IsEmpty( TBL ) Then SourceLine If IsEmpty( TBL ) then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
...@@ -636,14 +636,14 @@ Version 50 TradeDesign® ...@@ -636,14 +636,14 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT STH\CODLEN SourceLine DEFAULT STH\CODLEN
SourceLine If STA = "I" Or STA = "D" Then SourceLine If STA = "I" Or STA = "D" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT STH\TXTLEN SourceLine DEFAULT STH\TXTLEN
SourceLine If STA = "I" Or STA = "D" Then SourceLine If STA = "I" Or STA = "D" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
...@@ -711,7 +711,7 @@ Version 50 TradeDesign® ...@@ -711,7 +711,7 @@ Version 50 TradeDesign®
20040130 JO SourceLine endif 20040130 JO SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT STH\SRT SourceLine DEFAULT STH\SRT
SourceLine If STA = "I" Or STA = "D" Then SourceLine If STA = "I" Or STA = "D" then
SourceLine Disable SourceLine Disable
SourceLine else SourceLine else
SourceLine Enable SourceLine Enable
......
frame/bctrog.tr2
...@@ -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
......
frame/cbap.fr2
...@@ -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
......
frame/cbcp.fr2
...@@ -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
......
frame/cbcpg.fr2
...@@ -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
......
frame/cbip.fr2
...@@ -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
......
frame/cbop.fr2
...@@ -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
......
frame/cbopg.fr2
...@@ -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
......
frame/cbtp.fr2
...@@ -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
......
frame/cbtpg.fr2
...@@ -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
......
frame/chkfld.fr2
...@@ -8,7 +8,7 @@ Version 50 TradeDesign® ...@@ -8,7 +8,7 @@ Version 50 TradeDesign®
CommentLine only to be executed once to display a message possible. CommentLine only to be executed once to display a message possible.
CommentLine Example: CommentLine Example:
CommentLine Check something CommentLine Check something
CommentLine if IsEmpty( CCVCHK\FLG ) and ( whatever tested) Then CommentLine if IsEmpty( CCVCHK\FLG ) and ( whatever tested) then
CommentLine CCVCHK\FLG = "X" CommentLine CCVCHK\FLG = "X"
CommentLine promptok ( "MESSAGE" ) CommentLine promptok ( "MESSAGE" )
CommentLine endif CommentLine endif
......
frame/dbiact.tr2
...@@ -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
......
frame/dbicbsb.fr2
...@@ -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
......
frame/dbiswm.tr2
...@@ -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"
......
frame/detp.fr2
...@@ -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 )
......
frame/evtp.fr2
...@@ -8,14 +8,14 @@ Version 50 TradeDesign® ...@@ -8,14 +8,14 @@ Version 50 TradeDesign®
Rule -1 Rule -1
SourceLine Default EVTP0 SourceLine Default EVTP0
SourceLine # Global settings of panel properties SourceLine # Global settings of panel properties
SourceLine If PANSTA = PanStaAdd Or PANSTA = PanStaEdit Then SourceLine If PANSTA = PanStaAdd Or PANSTA = PanStaEdit then
SourceLine Enable( EVTP0 ) SourceLine Enable( EVTP0 )
SourceLine else SourceLine else
SourceLine Disable( EVTP0 ) SourceLine Disable( EVTP0 )
SourceLine endif SourceLine endif
SourceLine # access selection button and Drag&Drop receiver for primary entry SourceLine # access selection button and Drag&Drop receiver for primary entry
SourceLine # (and HOLPTYGET\SDAMOD\DADRCV because its used zu select) SourceLine # (and HOLPTYGET\SDAMOD\DADRCV because its used zu select)
SourceLine If PANSTA = PanStaInquiry Or PANSTA = PanStaAdd Then SourceLine If PANSTA = PanStaInquiry Or PANSTA = PanStaAdd then
SourceLine Enable( RECGET\SDAMOD\SEAINF ) SourceLine Enable( RECGET\SDAMOD\SEAINF )
SourceLine Enable( RECGET\SDAMOD\DADRCV ) SourceLine Enable( RECGET\SDAMOD\DADRCV )
SourceLine Setvalues( RECGET\SDAMOD\DADRCV, "EVT" ) SourceLine Setvalues( RECGET\SDAMOD\DADRCV, "EVT" )
...@@ -25,7 +25,7 @@ Version 50 TradeDesign® ...@@ -25,7 +25,7 @@ Version 50 TradeDesign®
SourceLine Setvalues( RECGET\SDAMOD\DADRCV, "" ) SourceLine Setvalues( RECGET\SDAMOD\DADRCV, "" )
SourceLine endif SourceLine endif
SourceLine # Drag&Drop sender for primary entry SourceLine # Drag&Drop sender for primary entry
SourceLine If PANSTA = PanStaInquiry Or PANSTA = PanStaDelete Or PANSTA = PanStaShow Then SourceLine If PANSTA = PanStaInquiry Or PANSTA = PanStaDelete Or PANSTA = PanStaShow then
SourceLine Enable( RECGET\SDAMOD\DADSND ) SourceLine Enable( RECGET\SDAMOD\DADSND )
SourceLine else SourceLine else
SourceLine Disable( RECGET\SDAMOD\DADSND ) SourceLine Disable( RECGET\SDAMOD\DADSND )
...@@ -34,7 +34,7 @@ Version 50 TradeDesign® ...@@ -34,7 +34,7 @@ Version 50 TradeDesign®
SourceLine # additional fields for secondary entries SourceLine # additional fields for secondary entries
Rule -1 Rule -1
SourceLine DEFAULT SELADR SourceLine DEFAULT SELADR
SourceLine if PANSTA = PanStaAdd or PANSTA = PanStaEdit Then SourceLine if PANSTA = PanStaAdd or PANSTA = PanStaEdit then
SourceLine enable SourceLine enable
SourceLine visible SourceLine visible
SourceLine else SourceLine else
......
frame/letp1.fr2
...@@ -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 )
......
frame/litchg.tr2
...@@ -9,7 +9,7 @@ Version 50 TradeDesign® ...@@ -9,7 +9,7 @@ Version 50 TradeDesign®
20040416 MM SourceLine TRNMOD.TroLockExistingContract( LIDGRP ) 20040416 MM SourceLine TRNMOD.TroLockExistingContract( LIDGRP )
Rule -1 Rule -1
SourceLine Check LIDGRP\REC\AVBBY SourceLine Check LIDGRP\REC\AVBBY
SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) Then SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/litpop.tr2
...@@ -115,12 +115,12 @@ Version 50 TradeDesign® ...@@ -115,12 +115,12 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT SHPDEF ( LIDGRP\REC\SHPDAT , LIDGRP\BLK\SHPPER ) SourceLine DEFAULT SHPDEF ( LIDGRP\REC\SHPDAT , LIDGRP\BLK\SHPPER )
SourceLine If not IsEmpty( LIDGRP\REC\SHPDAT ) Then SourceLine If not IsEmpty( LIDGRP\REC\SHPDAT ) then
SourceLine Disable ( LIDGRP\BLK\SHPPER ) SourceLine Disable ( LIDGRP\BLK\SHPPER )
SourceLine else SourceLine else
SourceLine Enable ( LIDGRP\BLK\SHPPER ) SourceLine Enable ( LIDGRP\BLK\SHPPER )
SourceLine endif SourceLine endif
SourceLine If not IsEmpty( LIDGRP\BLK\SHPPER ) Then SourceLine If not IsEmpty( LIDGRP\BLK\SHPPER ) then
SourceLine Disable ( LIDGRP\REC\SHPDAT ) SourceLine Disable ( LIDGRP\REC\SHPDAT )
SourceLine else SourceLine else
SourceLine Enable ( LIDGRP\REC\SHPDAT ) SourceLine Enable ( LIDGRP\REC\SHPDAT )
......
frame/lsep.fr2
...@@ -19,7 +19,7 @@ Version 50 TradeDesign® ...@@ -19,7 +19,7 @@ Version 50 TradeDesign®
Datafield SELEAR T 40 1 0 1 0 {} {select earmarking} 1 Datafield SELEAR T 40 1 0 1 0 {} {select earmarking} 1
Rule -1 Rule -1
SourceLine default BPUTXTDEB SourceLine default BPUTXTDEB
SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 4 ) Then SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 4 ) then
SourceLine invisible (BUGTXTDEB) SourceLine invisible (BUGTXTDEB)
SourceLine invisible (BUSTXTDEB) SourceLine invisible (BUSTXTDEB)
SourceLine visible (BPUTXTDEB) SourceLine visible (BPUTXTDEB)
...@@ -30,7 +30,7 @@ Version 50 TradeDesign® ...@@ -30,7 +30,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine default BUSTXTDEB SourceLine default BUSTXTDEB
SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 3 ) Then SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 3 ) then
SourceLine invisible (BUGTXTDEB) SourceLine invisible (BUGTXTDEB)
SourceLine visible (BUSTXTDEB) SourceLine visible (BUSTXTDEB)
SourceLine invisible (BPUTXTDEB) SourceLine invisible (BPUTXTDEB)
...@@ -41,7 +41,7 @@ Version 50 TradeDesign® ...@@ -41,7 +41,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine default BUGTXTDEB SourceLine default BUGTXTDEB
SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 2 ) Then SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 2 ) then
SourceLine visible (BUGTXTDEB) SourceLine visible (BUGTXTDEB)
SourceLine invisible (BUSTXTDEB) SourceLine invisible (BUSTXTDEB)
SourceLine invisible (BPUTXTDEB) SourceLine invisible (BPUTXTDEB)
...@@ -285,7 +285,7 @@ Version 50 TradeDesign® ...@@ -285,7 +285,7 @@ Version 50 TradeDesign®
Rule -1 Rule -1
SourceLine CHECK LSNTYPDEB SourceLine CHECK LSNTYPDEB
SourceLine # check, if the debited limit type is correct when the earmarking type is "same party" SourceLine # check, if the debited limit type is correct when the earmarking type is "same party"
SourceLine if selear = GetLine( GetValues( selear), 1 ) Then SourceLine if selear = GetLine( GetValues( selear), 1 ) then
SourceLine # Credit: Group or Product / Debit: Overall SourceLine # Credit: Group or Product / Debit: Overall
SourceLine if (lsbcre\lsn = "PTYBUG" or lsbcre\lsn = "PTYBUS") and lsntypdeb = GetLine( GetValues( lsntypdeb), 1 ) then SourceLine if (lsbcre\lsn = "PTYBUG" or lsbcre\lsn = "PTYBUS") and lsntypdeb = GetLine( GetValues( lsntypdeb), 1 ) then
SourceLine error ('L0000020') SourceLine error ('L0000020')
......
frame/rmtp.fr2
...@@ -48,7 +48,7 @@ Version 50 TradeDesign® ...@@ -48,7 +48,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
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 )
......
frame/srop.fr2
...@@ -14,7 +14,7 @@ Version 50 TradeDesign® ...@@ -14,7 +14,7 @@ Version 50 TradeDesign®
Datafield SROStream S 1 0 13 1 0 {} {ordered SROStream for visualization} Datafield SROStream S 1 0 13 1 0 {} {ordered SROStream for visualization}
Rule -1 Rule -1
SourceLine Default SROPG SourceLine Default SROPG
SourceLine If PANSTA = PanStaEdit Then SourceLine If PANSTA = PanStaEdit then
SourceLine Enable SourceLine Enable
SourceLine else SourceLine else
SourceLine Disable SourceLine Disable
......
frame/syssyn.tr0
...@@ -30,7 +30,7 @@ Version 50 TradeDesign® ...@@ -30,7 +30,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT MOD SourceLine DEFAULT MOD
SourceLine If STA = "I" Then SourceLine If STA = "I" then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine else SourceLine else
...@@ -39,7 +39,7 @@ Version 50 TradeDesign® ...@@ -39,7 +39,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT SAV SourceLine DEFAULT SAV
SourceLine If STA = "E" Then SourceLine If STA = "E" then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine else SourceLine else
...@@ -68,7 +68,7 @@ Version 50 TradeDesign® ...@@ -68,7 +68,7 @@ Version 50 TradeDesign®
Rule -1 Rule -1
SourceLine Sub FrameExit global SourceLine Sub FrameExit global
SourceLine HotKey "Esc" SourceLine HotKey "Esc"
SourceLine If \STA = "I" or \STA = "N" Then SourceLine If \STA = "I" or \STA = "N" then
SourceLine LnkReturnToCaller SourceLine LnkReturnToCaller
SourceLine else SourceLine else
SourceLine \STA = "I" SourceLine \STA = "I"
...@@ -310,7 +310,7 @@ Version 50 TradeDesign® ...@@ -310,7 +310,7 @@ Version 50 TradeDesign®
SourceLine SourceLine
Rule -1 Rule -1
SourceLine DEFAULT NEW SourceLine DEFAULT NEW
SourceLine If STA = "N" Then SourceLine If STA = "N" then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine else SourceLine else
......
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