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