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