Skip to content

T
tdcode
Commit 3bbfa3f4 by wangguangchao
Options

e-z If全局修改

parent eae4ce20
Showing with 35 additions and 35 deletions
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/ORDREL.TR2
......@@ -45,7 +45,7 @@ Version 50 TradeDesign®
20080805151836 PET SourceLine $Sql = $Sql + $Con + " STA = " + SqlLit( STA )
20080805151837 PET SourceLine endif
20080805151841 PET SourceLine
20080811162714 PET SourceLine If DELFLG = "X" then
20080811162714 PET SourceLine if DELFLG = "X" then
20080805151843 PET SourceLine $Sql = $Sql + $Con + " DELFLG = 'X' "
20080811151539 PET SourceLine endif}
20080730104037 PET SourceLine #$Sql = $Con + "STA in (\'R0000105
......
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/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 )
......
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/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
......@@ -48,7 +48,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine DEFAULT CAN
SourceLine If STA = "I" then
SourceLine if STA = "I" then
SourceLine Disable
SourceLine Invisible
SourceLine else
......@@ -61,14 +61,14 @@ Version 50 TradeDesign®
Rule -1
SourceLine EVENT SAV
SourceLine $a = checkall( \ )
SourceLine If $a then
SourceLine if $a then
SourceLine save(FILNAM)
SourceLine STA = "I"
SourceLine endif
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
......
frame/trnism.fr5
......@@ -259,7 +259,7 @@ Version 50 TradeDesign®
20080523144112 CZY SourceLine #WFMMOD.WfeAdd ( "PDA", "PDA" + cortypsub, Today, 24 )
Rule -1
SourceLine Function dcsw ( in amt numeric , in ifpos text , in ifneg text) : text Global
SourceLine If amt < 0 then
SourceLine if amt < 0 then
SourceLine = ifneg
SourceLine else
SourceLine = ifpos
......
frame/trtopn.tr2
......@@ -32,12 +32,12 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine CHECK TRDGRP\REC\ISSDAT
SourceLine If IsEmpty then
SourceLine if IsEmpty then
SourceLine ErrorMandatory
SourceLine endif
Rule -1
SourceLine CHECK TRDGRP\REC\NAM
SourceLine If IsEmpty then
SourceLine if IsEmpty then
SourceLine ErrorMandatory
SourceLine endif
Rule -1
......
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