Skip to content

T
tdcode
Commit 3a4ee998 by wangguangchao
Options

Endif、EndIf、Else、isempty、Not全局替换修改

parent c24bf72b
Showing with 161 additions and 161 deletions
frame/BCTDAV.TR2
...@@ -43,12 +43,12 @@ Version 50 TradeDesign® ...@@ -43,12 +43,12 @@ Version 50 TradeDesign®
SourceLine DEFAULT BCDGRP\REC\RCVDAT SourceLine DEFAULT BCDGRP\REC\RCVDAT
SourceLine if not IsModified then SourceLine if not IsModified then
SourceLine = Today SourceLine = Today
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine CHECK BCDGRP\REC\RCVDAT SourceLine CHECK BCDGRP\REC\RCVDAT
SourceLine if IsEmpty( BCDGRP\REC\RCVDAT ) then SourceLine if IsEmpty( BCDGRP\REC\RCVDAT ) then
SourceLine ErrorMandatory SourceLine ErrorMandatory
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
20050707 RO SourceLine textfunction BCTDRET1 static 20050707 RO SourceLine textfunction BCTDRET1 static
20040803 VO SourceLine 20040803 VO SourceLine
......
frame/BETDOC.FR2
...@@ -294,7 +294,7 @@ Version 50 TradeDesign® ...@@ -294,7 +294,7 @@ Version 50 TradeDesign®
20071105180758 SZ SourceLine if BEDGRP\REC\ACPNOWFLG <> "X" then 20071105180758 SZ SourceLine if BEDGRP\REC\ACPNOWFLG <> "X" then
20071105180758 SZ SourceLine print "<DeferredPayment>" 20071105180758 SZ SourceLine print "<DeferredPayment>"
20071105180758 SZ SourceLine print "<DeferredPaymentDetails>" 20071105180758 SZ SourceLine print "<DeferredPaymentDetails>"
20071109153056 SZ SourceLine if not isempty(BEDGRP\REC\MATDAT) then 20071109153056 SZ SourceLine if not IsEmpty(BEDGRP\REC\MATDAT) then
20071105180758 SZ SourceLine BOLDateTag( "PYD", BEDGRP\REC\MATDAT ) 20071105180758 SZ SourceLine BOLDateTag( "PYD", BEDGRP\REC\MATDAT )
20071109153101 SZ SourceLine endif 20071109153101 SZ SourceLine endif
20071105180758 SZ SourceLine BOLAmountTag( "PaymentAmount", BEDGRP\CBS\MAX\CUR, $DocAmt ) 20071105180758 SZ SourceLine BOLAmountTag( "PaymentAmount", BEDGRP\CBS\MAX\CUR, $DocAmt )
......
frame/BFTDOC.FR2
...@@ -293,7 +293,7 @@ Version 50 TradeDesign® ...@@ -293,7 +293,7 @@ Version 50 TradeDesign®
20071105180758 SZ SourceLine if BFDGRP\REC\ACPNOWFLG <> "X" then 20071105180758 SZ SourceLine if BFDGRP\REC\ACPNOWFLG <> "X" then
20071105180758 SZ SourceLine print "<DeferredPayment>" 20071105180758 SZ SourceLine print "<DeferredPayment>"
20071105180758 SZ SourceLine print "<DeferredPaymentDetails>" 20071105180758 SZ SourceLine print "<DeferredPaymentDetails>"
20071109153056 SZ SourceLine if not isempty(BFDGRP\REC\MATDAT) then 20071109153056 SZ SourceLine if not IsEmpty(BFDGRP\REC\MATDAT) then
20071105180758 SZ SourceLine BOLDateTag( "PYD", BFDGRP\REC\MATDAT ) 20071105180758 SZ SourceLine BOLDateTag( "PYD", BFDGRP\REC\MATDAT )
20071109153101 SZ SourceLine endif 20071109153101 SZ SourceLine endif
20071105180758 SZ SourceLine BOLAmountTag( "PaymentAmount", BFDGRP\CBS\MAX\CUR, $DocAmt ) 20071105180758 SZ SourceLine BOLAmountTag( "PaymentAmount", BFDGRP\CBS\MAX\CUR, $DocAmt )
......
frame/BOTAME.TR2
...@@ -32,16 +32,16 @@ Version 50 TradeDesign® ...@@ -32,16 +32,16 @@ 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
Rule -1 Rule -1
20060830 MV SourceLine default BODGRP\CBS\MAX\CUR 20060830 MV SourceLine default BODGRP\CBS\MAX\CUR
19981201 RI SourceLine Disable 19981201 RI SourceLine Disable
......
frame/BOTDAV.TR2
...@@ -24,10 +24,10 @@ Version 50 TradeDesign® ...@@ -24,10 +24,10 @@ 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
Rule -1 Rule -1
19981127 RI SourceLine default BODGRP\REC\OPNDAT 19981127 RI SourceLine default BODGRP\REC\OPNDAT
20030901 MK SourceLine = BODGRP\REC\ADVDAT 20030901 MK SourceLine = BODGRP\REC\ADVDAT
......
frame/BOTRAD.TR2
...@@ -12,10 +12,10 @@ Version 50 TradeDesign® ...@@ -12,10 +12,10 @@ 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
Rule -1 Rule -1
20000204 RI SourceLine default BODGRP\CBS\OPN1\CUR order 5000 20000204 RI SourceLine default BODGRP\CBS\OPN1\CUR order 5000
20060830 MV SourceLine = BODGRP\CBS\MAX\CUR 20060830 MV SourceLine = BODGRP\CBS\MAX\CUR
......
frame/DITAME.TR2
...@@ -91,7 +91,7 @@ Version 50 TradeDesign® ...@@ -91,7 +91,7 @@ Version 50 TradeDesign®
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
20081226101908 WXF SourceLine default DITP\DRWP\PANSTA 20081226101908 WXF SourceLine default DITP\DRWP\PANSTA
20000116 EVS SourceLine if ( DIDGRP\REC\AVBBY = "A" or DIDGRP\REC\AVBBY = "N" or DIDGRP\REC\AVBBY = "P" ) then 20000116 EVS SourceLine if ( DIDGRP\REC\AVBBY = "A" or DIDGRP\REC\AVBBY = "N" or DIDGRP\REC\AVBBY = "P" ) then
......
frame/DITDLA.TR2
...@@ -22,7 +22,7 @@ Version 50 TradeDesign® ...@@ -22,7 +22,7 @@ Version 50 TradeDesign®
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
20090316160246 WD SourceLine default DITP\DRWP\PANSTA 20090316160246 WD SourceLine default DITP\DRWP\PANSTA
20000116 EVS SourceLine if ( DIDGRP\REC\AVBBY = "A" or DIDGRP\REC\AVBBY = "N" or DIDGRP\REC\AVBBY = "P" ) then 20000116 EVS SourceLine if ( DIDGRP\REC\AVBBY = "A" or DIDGRP\REC\AVBBY = "N" or DIDGRP\REC\AVBBY = "P" ) then
......
frame/DITOPN.TR2
...@@ -78,7 +78,7 @@ Version 50 TradeDesign® ...@@ -78,7 +78,7 @@ Version 50 TradeDesign®
SourceLine if not IsEmpty( DIDGRP\REC\SHPDAT ) then SourceLine if not IsEmpty( DIDGRP\REC\SHPDAT ) then
19991222 EVS SourceLine # If not DATEDIFF( DIDGRP\REC\SHPDAT, DIDGRP\REC\OPNDAT) > 0 Then 19991222 EVS SourceLine # If not DATEDIFF( DIDGRP\REC\SHPDAT, DIDGRP\REC\OPNDAT) > 0 Then
20000502 JO SourceLine # error( `This date must not be before the issuance date`) 20000502 JO SourceLine # error( `This date must not be before the issuance date`)
19991222 EVS SourceLine # EndIf 19991222 EVS SourceLine # endif
SourceLine if not IsEmpty( DIDGRP\REC\EXPDAT ) then SourceLine if not IsEmpty( DIDGRP\REC\EXPDAT ) then
SourceLine if not DateDiff( DIDGRP\REC\SHPDAT, DIDGRP\REC\EXPDAT ) <= 0 then SourceLine if not DateDiff( DIDGRP\REC\SHPDAT, DIDGRP\REC\EXPDAT ) <= 0 then
20160804135237 ZHP SourceLine { 20160804135237 ZHP SourceLine {
......
frame/DITREJ.TR2
...@@ -92,7 +92,7 @@ Version 50 TradeDesign® ...@@ -92,7 +92,7 @@ Version 50 TradeDesign®
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
20081226101908 WXF SourceLine default DITP\DRWP\PANSTA 20081226101908 WXF SourceLine default DITP\DRWP\PANSTA
20000116 EVS SourceLine if ( DIDGRP\REC\AVBBY = "A" or DIDGRP\REC\AVBBY = "N" or DIDGRP\REC\AVBBY = "P" ) then 20000116 EVS SourceLine if ( DIDGRP\REC\AVBBY = "A" or DIDGRP\REC\AVBBY = "N" or DIDGRP\REC\AVBBY = "P" ) then
......
frame/JSTOPN.TR6
...@@ -2066,7 +2066,7 @@ Version 50 TradeDesign® ...@@ -2066,7 +2066,7 @@ Version 50 TradeDesign®
20191206150205 XIA SourceLine endif 20191206150205 XIA SourceLine endif
Rule -1 Rule -1
20191105174553 XIAOH6 SourceLine default JSDGRP\REC\BIZHZH 20191105174553 XIAOH6 SourceLine default JSDGRP\REC\BIZHZH
20191106162117 XH0 SourceLine {if not IsEmpty( JSDGRP\CBS\MAX1\CUR ) and not IsEmpty( JSDGRP\CBS\MAX2\CUR ) and not isempty(jsdgrp\rec\MAIMPZ) and not isempty(jsdgrp\rec\pngcfx) and not isempty(jsdgrp\rec\JIOYJE) and not isempty(jsdgrp\rec\ZDNGLL) and not isempty(jsdgrp\rec\DXUHAO)and not isempty(jsdgrp\rec\KHWTXZ) then 20191106162117 XH0 SourceLine {if not IsEmpty( JSDGRP\CBS\MAX1\CUR ) and not IsEmpty( JSDGRP\CBS\MAX2\CUR ) and not IsEmpty(jsdgrp\rec\MAIMPZ) and not IsEmpty(jsdgrp\rec\pngcfx) and not IsEmpty(jsdgrp\rec\JIOYJE) and not IsEmpty(jsdgrp\rec\ZDNGLL) and not IsEmpty(jsdgrp\rec\DXUHAO)and not IsEmpty(jsdgrp\rec\KHWTXZ) then
20191105175218 XIA SourceLine $cur1 = "" 20191105175218 XIA SourceLine $cur1 = ""
20191105175227 XIA SourceLine $cur2 = "" 20191105175227 XIA SourceLine $cur2 = ""
20191105175821 XIA SourceLine $sql = "SELECT TRIM(TXT) txt FROM STB WHERE TBL='CURKEY' AND UIL='EN' AND TRIM(COD) = ?" 20191105175821 XIA SourceLine $sql = "SELECT TRIM(TXT) txt FROM STB WHERE TBL='CURKEY' AND UIL='EN' AND TRIM(COD) = ?"
......
frame/LEDLOD.FR5
...@@ -849,7 +849,7 @@ Version 50 TradeDesign® ...@@ -849,7 +849,7 @@ Version 50 TradeDesign®
20050628 IS SourceLine # 20050628 IS SourceLine #
20050628 IS SourceLine # Alternativly logic might be used. a sample might be 20050628 IS SourceLine # Alternativly logic might be used. a sample might be
20050628 IS SourceLine # 20050628 IS SourceLine #
20050628 IS SourceLine # if isempty( ArgGrp\ADV\ROLSETFLG ) then 20050628 IS SourceLine # if IsEmpty( ArgGrp\ADV\ROLSETFLG ) then
20050628 IS SourceLine # ArgBanRol = "ISS" 20050628 IS SourceLine # ArgBanRol = "ISS"
20050628 IS SourceLine # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR 20050628 IS SourceLine # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR
20050628 IS SourceLine # else 20050628 IS SourceLine # else
......
frame/LEDLOD1.FR5
...@@ -461,7 +461,7 @@ Version 50 TradeDesign® ...@@ -461,7 +461,7 @@ Version 50 TradeDesign®
20050628 IS SourceLine # 20050628 IS SourceLine #
20050628 IS SourceLine # Alternativly logic might be used. a sample might be 20050628 IS SourceLine # Alternativly logic might be used. a sample might be
20050628 IS SourceLine # 20050628 IS SourceLine #
20050628 IS SourceLine # if isempty( ArgGrp\ADV\ROLSETFLG ) then 20050628 IS SourceLine # if IsEmpty( ArgGrp\ADV\ROLSETFLG ) then
20050628 IS SourceLine # ArgBanRol = "ISS" 20050628 IS SourceLine # ArgBanRol = "ISS"
20050628 IS SourceLine # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR 20050628 IS SourceLine # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR
20050628 IS SourceLine # else 20050628 IS SourceLine # else
......
frame/LETAME.TR2
...@@ -12,7 +12,7 @@ Version 50 TradeDesign® ...@@ -12,7 +12,7 @@ Version 50 TradeDesign®
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
20070312 MK SourceLine textfunction LETBENS1 static 20070312 MK SourceLine textfunction LETBENS1 static
20040126 VO SourceLine #! Amenmdent MT 707 20040126 VO SourceLine #! Amenmdent MT 707
......
frame/LETNOT.TR2
...@@ -61,16 +61,16 @@ Version 50 TradeDesign® ...@@ -61,16 +61,16 @@ 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 )
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine default LETP\ADCP order 100000 SourceLine default LETP\ADCP order 100000
SourceLine Visible( LETP\ADCP ) SourceLine Visible( LETP\ADCP )
......
frame/LETP.FR2
...@@ -43,9 +43,9 @@ Version 50 TradeDesign® ...@@ -43,9 +43,9 @@ Version 50 TradeDesign®
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 )
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
20070316092634 RM SourceLine default DORP 20070316092634 RM SourceLine default DORP
20070316092638 RM SourceLine # Panel Documents 20070316092638 RM SourceLine # Panel Documents
......
frame/LIAONE.FR2
...@@ -39,7 +39,7 @@ Version 50 TradeDesign® ...@@ -39,7 +39,7 @@ Version 50 TradeDesign®
20060118 RI SourceLine end select 20060118 RI SourceLine end select
Rule -1 Rule -1
SourceLine default CBE\dat SourceLine default CBE\dat
SourceLine if isempty ( CBE\dat) then SourceLine if IsEmpty ( CBE\dat) then
SourceLine = today SourceLine = today
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/LITAME.TR2
...@@ -107,7 +107,7 @@ Version 50 TradeDesign® ...@@ -107,7 +107,7 @@ Version 50 TradeDesign®
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
SourceLine default LITP\DRWP\PANSTA SourceLine default LITP\DRWP\PANSTA
20000116 EVS SourceLine if ( LIDGRP\REC\AVBBY = "A" or LIDGRP\REC\AVBBY = "N" or LIDGRP\REC\AVBBY = "P" ) then 20000116 EVS SourceLine if ( LIDGRP\REC\AVBBY = "A" or LIDGRP\REC\AVBBY = "N" or LIDGRP\REC\AVBBY = "P" ) then
......
frame/LITDLA.TR2
...@@ -23,7 +23,7 @@ Version 50 TradeDesign® ...@@ -23,7 +23,7 @@ Version 50 TradeDesign®
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
SourceLine default LITP\DRWP\PANSTA SourceLine default LITP\DRWP\PANSTA
20000116 EVS SourceLine if ( LIDGRP\REC\AVBBY = "A" or LIDGRP\REC\AVBBY = "N" or LIDGRP\REC\AVBBY = "P" ) then 20000116 EVS SourceLine if ( LIDGRP\REC\AVBBY = "A" or LIDGRP\REC\AVBBY = "N" or LIDGRP\REC\AVBBY = "P" ) then
......
frame/LTTOPN.TR2
...@@ -203,14 +203,14 @@ Version 50 TradeDesign® ...@@ -203,14 +203,14 @@ 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
20030425 IS SourceLine check LTDGRP\CBS\NOM1\AMT order 800 20030425 IS SourceLine check LTDGRP\CBS\NOM1\AMT order 800
19981222 RI SourceLine ErrorPositiveAmtOnly( LTDGRP\CBS\NOM1\AMT ) 19981222 RI SourceLine ErrorPositiveAmtOnly( LTDGRP\CBS\NOM1\AMT )
......
frame/QUE.FR2
...@@ -49,7 +49,7 @@ Version 50 TradeDesign® ...@@ -49,7 +49,7 @@ Version 50 TradeDesign®
DFComment For Incoming Messages: DFComment For Incoming Messages:
DFComment Message Type and Sender BIC DFComment Message Type and Sender BIC
Datafield HLDFLG T 1 1 2 1 0 {<embedded>} {Hold / Delete Flag} 1 Datafield HLDFLG T 1 1 2 1 0 {<embedded>} {Hold / Delete Flag} 1
DFComment If not isempty (HLDFLG) this QUE entry might not be picked up/displayed e.g. in QUESEL. DFComment If not IsEmpty (HLDFLG) this QUE entry might not be picked up/displayed e.g. in QUESEL.
DFComment DFComment
DFComment 'L' The entry was picked up interactively for processing. DFComment 'L' The entry was picked up interactively for processing.
DFComment DFComment
......
frame/SPT.FR0
...@@ -48,7 +48,7 @@ Version 50 TradeDesign® ...@@ -48,7 +48,7 @@ Version 50 TradeDesign®
DFComment If set to a non empty content the entry is not active anymore. To reactivate the entry the flag has to be cleared. DFComment If set to a non empty content the entry is not active anymore. To reactivate the entry the flag has to be cleared.
DFComment When flaging an entry as deleted potential included incoming messages have to be reinstanciated via a call to SptReinstIncSpt. DFComment When flaging an entry as deleted potential included incoming messages have to be reinstanciated via a call to SptReinstIncSpt.
Datafield HLDFLG T 1 1 2 1 0 {<embedded>} {Hold Flag} 1 Datafield HLDFLG T 1 1 2 1 0 {<embedded>} {Hold Flag} 1
DFComment If not isempty (HLDFLG) this SPT might not be picked up/displayed e.g. in SPTSEL. DFComment If not IsEmpty (HLDFLG) this SPT might not be picked up/displayed e.g. in SPTSEL.
DFComment Flag can be used to create an SPT entry in advance for later usage DFComment Flag can be used to create an SPT entry in advance for later usage
DFComment ='O' when INC SPT was created by incoming message but order workflow has not been processed. Will be reset by SRVSPT. DFComment ='O' when INC SPT was created by incoming message but order workflow has not been processed. Will be reset by SRVSPT.
DFComment ='R' when RIM SPT was created by autoregistration and the pending entry shall be activated after commit of the creating transaction. DFComment ='R' when RIM SPT was created by autoregistration and the pending entry shall be activated after commit of the creating transaction.
......
frame/SRVSWT.FR2
...@@ -188,7 +188,7 @@ Version 50 TradeDesign® ...@@ -188,7 +188,7 @@ Version 50 TradeDesign®
20080527152739 CZY SourceLine endif 20080527152739 CZY SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT OWNBIC SourceLine DEFAULT OWNBIC
SourceLine if isempty(EXEFLG) then SourceLine if IsEmpty(EXEFLG) then
SourceLine disable SourceLine disable
SourceLine else SourceLine else
SourceLine enable SourceLine enable
......
frame/SYSTBL.TR0
...@@ -151,10 +151,10 @@ Version 50 TradeDesign® ...@@ -151,10 +151,10 @@ Version 50 TradeDesign®
SourceLine If STA = "A" Then SourceLine If STA = "A" Then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine Else SourceLine else
SourceLine Disable SourceLine Disable
SourceLine Invisible SourceLine Invisible
SourceLine Endif SourceLine endif
Rule -1 Rule -1
SourceLine event MOD SourceLine event MOD
20020917 HB SourceLine 20020917 HB SourceLine
...@@ -426,10 +426,10 @@ Version 50 TradeDesign® ...@@ -426,10 +426,10 @@ Version 50 TradeDesign®
SourceLine If STA = "E" Then SourceLine If STA = "E" Then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine Else SourceLine else
SourceLine Disable SourceLine Disable
SourceLine Invisible SourceLine Invisible
SourceLine Endif SourceLine endif
Rule -1 Rule -1
SourceLine event SAV SourceLine event SAV
20020925 HB SourceLine 20020925 HB SourceLine
...@@ -576,16 +576,16 @@ Version 50 TradeDesign® ...@@ -576,16 +576,16 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
SourceLine Else SourceLine else
SourceLine Disable SourceLine Disable
SourceLine EndIf SourceLine endif
SourceLine Else SourceLine else
SourceLine Invisible SourceLine Invisible
SourceLine Disable SourceLine Disable
SourceLine Endif SourceLine endif
Rule -1 Rule -1
SourceLine default IMP SourceLine default IMP
20020729 HB SourceLine 20020729 HB SourceLine
...@@ -638,16 +638,16 @@ Version 50 TradeDesign® ...@@ -638,16 +638,16 @@ Version 50 TradeDesign®
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
SourceLine Endif SourceLine endif
Rule -1 Rule -1
20010103 RI SourceLine check SYSTBLG\COD 20010103 RI SourceLine check SYSTBLG\COD
20040130 JO SourceLine if IsEnabled( SYSTBLG\COD ) then 20040130 JO SourceLine if IsEnabled( SYSTBLG\COD ) then
...@@ -713,9 +713,9 @@ Version 50 TradeDesign® ...@@ -713,9 +713,9 @@ Version 50 TradeDesign®
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
SourceLine Endif SourceLine endif
Rule -1 Rule -1
SourceLine sub SetTblValues SourceLine sub SetTblValues
20020925 HB SourceLine 20020925 HB SourceLine
......
frame/TSKLIST.FR2
...@@ -276,7 +276,7 @@ Version 50 TradeDesign® ...@@ -276,7 +276,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT TERFLG SourceLine DEFAULT TERFLG
SourceLine if isempty(TERFLG) then SourceLine if IsEmpty(TERFLG) then
SourceLine ="M" SourceLine ="M"
SourceLine endif SourceLine endif
Rule -1 Rule -1
...@@ -303,7 +303,7 @@ Version 50 TradeDesign® ...@@ -303,7 +303,7 @@ Version 50 TradeDesign®
SourceLine SourceLine
Rule -1 Rule -1
SourceLine DEFAULT STRFLG SourceLine DEFAULT STRFLG
SourceLine if isempty(STRFLG) then SourceLine if IsEmpty(STRFLG) then
SourceLine ="M" SourceLine ="M"
SourceLine endif SourceLine endif
SourceLine SourceLine
......
frame/bctrog.tr2
...@@ -26,10 +26,10 @@ Version 50 TradeDesign® ...@@ -26,10 +26,10 @@ 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
Rule -1 Rule -1
SourceLine default BCDGRP\REC\MATDAT SourceLine default BCDGRP\REC\MATDAT
SourceLine if not IsEmpty( BCDGRP\BLK\BCGDET ) then SourceLine if not IsEmpty( BCDGRP\BLK\BCGDET ) then
......
frame/cbap.fr2
...@@ -139,16 +139,16 @@ Version 50 TradeDesign® ...@@ -139,16 +139,16 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
20030123 JO SourceLine default SHWCBC 20030123 JO SourceLine default SHWCBC
20030123 JO SourceLine = CBSA\CBC 20030123 JO SourceLine = CBSA\CBC
......
frame/cbcp.fr2
...@@ -15,9 +15,9 @@ Version 50 TradeDesign® ...@@ -15,9 +15,9 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
19981006 RI SourceLine sub SaveCBSA method 19981006 RI SourceLine sub SaveCBSA method
SourceLine $Row = GetSelectedRow( CBCPG ) SourceLine $Row = GetSelectedRow( CBCPG )
...@@ -36,20 +36,20 @@ Version 50 TradeDesign® ...@@ -36,20 +36,20 @@ 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
SourceLine $GridRow = $GridRow + 1 SourceLine $GridRow = $GridRow + 1
SourceLine Goto IniLoop SourceLine Goto IniLoop
SourceLine EndIf SourceLine endif
SourceLine SetSelectedRow( CBCPG, $CBCRow ) SourceLine SetSelectedRow( CBCPG, $CBCRow )
Rule -1 Rule -1
20030124 JO SourceLine event DET 20030124 JO SourceLine event DET
......
frame/cbcpg.fr2
...@@ -11,12 +11,12 @@ Version 50 TradeDesign® ...@@ -11,12 +11,12 @@ Version 50 TradeDesign®
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
...@@ -78,16 +78,16 @@ Version 50 TradeDesign® ...@@ -78,16 +78,16 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
19990629 EVS SourceLine default SHWCBT 19990629 EVS SourceLine default SHWCBT
19990629 EVS SourceLine = CBSA\CBT 19990629 EVS SourceLine = CBSA\CBT
......
frame/cbop.fr2
...@@ -15,9 +15,9 @@ Version 50 TradeDesign® ...@@ -15,9 +15,9 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
19981006 RI SourceLine sub SaveCBSA method 19981006 RI SourceLine sub SaveCBSA method
SourceLine $Row = GetSelectedRow( CBOPG ) SourceLine $Row = GetSelectedRow( CBOPG )
...@@ -36,19 +36,19 @@ Version 50 TradeDesign® ...@@ -36,19 +36,19 @@ 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
SourceLine $GridRow = $GridRow + 1 SourceLine $GridRow = $GridRow + 1
SourceLine Goto IniLoop SourceLine Goto IniLoop
SourceLine EndIf SourceLine endif
SourceLine SetSelectedRow( CBOPG, $CBORow ) SourceLine SetSelectedRow( CBOPG, $CBORow )
Rule -1 Rule -1
20030124 JO SourceLine event DET 20030124 JO SourceLine event DET
......
frame/cbopg.fr2
...@@ -10,12 +10,12 @@ Version 50 TradeDesign® ...@@ -10,12 +10,12 @@ Version 50 TradeDesign®
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
...@@ -15,9 +15,9 @@ Version 50 TradeDesign® ...@@ -15,9 +15,9 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
19981006 RI SourceLine sub SaveCBSA method 19981006 RI SourceLine sub SaveCBSA method
SourceLine $Row = GetSelectedRow( CBTPG ) SourceLine $Row = GetSelectedRow( CBTPG )
...@@ -36,19 +36,19 @@ Version 50 TradeDesign® ...@@ -36,19 +36,19 @@ 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
SourceLine $GridRow = $GridRow + 1 SourceLine $GridRow = $GridRow + 1
SourceLine Goto IniLoop SourceLine Goto IniLoop
SourceLine EndIf SourceLine endif
SourceLine SetSelectedRow( CBTPG, $CBTRow ) SourceLine SetSelectedRow( CBTPG, $CBTRow )
Rule -1 Rule -1
20030124 JO SourceLine event DET 20030124 JO SourceLine event DET
......
frame/cbtpg.fr2
...@@ -10,12 +10,12 @@ Version 50 TradeDesign® ...@@ -10,12 +10,12 @@ Version 50 TradeDesign®
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/dbalse.tr2
...@@ -136,7 +136,7 @@ Version 50 TradeDesign® ...@@ -136,7 +136,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT LSEP\SELEAR SourceLine DEFAULT LSEP\SELEAR
SourceLine if isempty (lsep\selear) then SourceLine if IsEmpty (lsep\selear) then
SourceLine = GetLine( GetValues( \lsep\selear ), 1 ) SourceLine = GetLine( GetValues( \lsep\selear ), 1 )
SourceLine endif SourceLine endif
PanelCount 1 PanelCount 1
......
frame/dbiact.tr2
...@@ -50,9 +50,9 @@ Version 50 TradeDesign® ...@@ -50,9 +50,9 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
20030310 NI SourceLine sub editRecord static 20030310 NI SourceLine sub editRecord static
20030310 NI SourceLine #! Function called if a new party has been selected or received via D&D or DDE 20030310 NI SourceLine #! Function called if a new party has been selected or received via D&D or DDE
......
frame/dbicbsb.fr2
...@@ -28,37 +28,37 @@ Version 50 TradeDesign® ...@@ -28,37 +28,37 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
PanelCount 1 PanelCount 1
......
frame/dbiswm.tr2
...@@ -259,9 +259,9 @@ Version 50 TradeDesign® ...@@ -259,9 +259,9 @@ Version 50 TradeDesign®
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"
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
20031203 KS SourceLine default IMP 20031203 KS SourceLine default IMP
SourceLine if STA = "I" then SourceLine if STA = "I" then
...@@ -401,7 +401,7 @@ Version 50 TradeDesign® ...@@ -401,7 +401,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT USEFIL SourceLine DEFAULT USEFIL
SourceLine if isempty(FROFILNAM) then SourceLine if IsEmpty(FROFILNAM) then
SourceLine disable SourceLine disable
SourceLine else SourceLine else
SourceLine enable SourceLine enable
......
frame/dbmpta.tr2
...@@ -10,7 +10,7 @@ Version 50 TradeDesign® ...@@ -10,7 +10,7 @@ Version 50 TradeDesign®
Datafield INFBLK B 85 15 1 1 0 {} {Infotext} 1 Datafield INFBLK B 85 15 1 1 0 {} {Infotext} 1
Datafield BUTTST C 10 1 6 1 0 {} {&Test} Datafield BUTTST C 10 1 6 1 0 {} {&Test}
Datafield CHKADDTBL T 1 1 3 1 0 {} {Transfer static tables as well} 1 Datafield CHKADDTBL T 1 1 3 1 0 {} {Transfer static tables as well} 1
Datafield TRFFLG T 1 1 0 1 0 {} {if not isempty, transfer is allowed} 1 Datafield TRFFLG T 1 1 0 1 0 {} {if not IsEmpty, transfer is allowed} 1
Datafield STAFLG T 1 1 0 1 0 {} {not empty if at least one static table to be changed} 1 Datafield STAFLG T 1 1 0 1 0 {} {not empty if at least one static table to be changed} 1
Rule -1 Rule -1
20030306 IS SourceLine event BUTTRF 20030306 IS SourceLine event BUTTRF
......
frame/dedlod.fr5
...@@ -477,7 +477,7 @@ Version 50 TradeDesign® ...@@ -477,7 +477,7 @@ Version 50 TradeDesign®
20050628 IS SourceLine # 20050628 IS SourceLine #
20050628 IS SourceLine # Alternativly logic might be used. a sample might be 20050628 IS SourceLine # Alternativly logic might be used. a sample might be
20050628 IS SourceLine # 20050628 IS SourceLine #
20050628 IS SourceLine # if isempty( ArgGrp\ADV\ROLSETFLG ) then 20050628 IS SourceLine # if IsEmpty( ArgGrp\ADV\ROLSETFLG ) then
20050628 IS SourceLine # ArgBanRol = "ISS" 20050628 IS SourceLine # ArgBanRol = "ISS"
20050628 IS SourceLine # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR 20050628 IS SourceLine # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR
20050628 IS SourceLine # else 20050628 IS SourceLine # else
......
frame/detp.fr2
...@@ -26,9 +26,9 @@ Version 50 TradeDesign® ...@@ -26,9 +26,9 @@ Version 50 TradeDesign®
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 )
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT DEDGRP\CBS\MAX\CUR SourceLine DEFAULT DEDGRP\CBS\MAX\CUR
SourceLine Disable SourceLine Disable
......
frame/diapovw.fr2
...@@ -6,7 +6,7 @@ Version 50 TradeDesign® ...@@ -6,7 +6,7 @@ Version 50 TradeDesign®
Datafield DSPSTM S 1 0 23 1 0 {} {Display Stream for diaries} Datafield DSPSTM S 1 0 23 1 0 {} {Display Stream for diaries}
Rule -1 Rule -1
SourceLine DEFAULT DIAMOD\DATFRO SourceLine DEFAULT DIAMOD\DATFRO
SourceLine if isempty( DIAMOD\datfro ) and ( not DIAMOD\datfromod = "X" ) then SourceLine if IsEmpty( DIAMOD\datfro ) and ( not DIAMOD\datfromod = "X" ) then
SourceLine = Dateadd( today, -30 ) SourceLine = Dateadd( today, -30 )
SourceLine endif SourceLine endif
Rule -1 Rule -1
......
frame/evtp.fr2
...@@ -10,26 +10,26 @@ Version 50 TradeDesign® ...@@ -10,26 +10,26 @@ Version 50 TradeDesign®
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" )
SourceLine Else SourceLine else
SourceLine Disable( RECGET\SDAMOD\SEAINF ) SourceLine Disable( RECGET\SDAMOD\SEAINF )
SourceLine Disable( RECGET\SDAMOD\DADRCV ) SourceLine Disable( RECGET\SDAMOD\DADRCV )
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 )
SourceLine EndIf SourceLine endif
SourceLine Setvalues( RECGET\SDAMOD\DADSND, "TACC" + cr + "EVT" ) SourceLine Setvalues( RECGET\SDAMOD\DADSND, "TACC" + cr + "EVT" )
SourceLine # additional fields for secondary entries SourceLine # additional fields for secondary entries
Rule -1 Rule -1
......
frame/impadr.tr2
...@@ -15,7 +15,7 @@ Version 50 TradeDesign® ...@@ -15,7 +15,7 @@ Version 50 TradeDesign®
Datafield NEWSWTSTM S 1 0 13 1 0 {} {holds PTM read from import-file} Datafield NEWSWTSTM S 1 0 13 1 0 {} {holds PTM read from import-file}
Datafield OLDTLXSTM S 1 0 13 1 0 {} {stream holds control entries} Datafield OLDTLXSTM S 1 0 13 1 0 {} {stream holds control entries}
Datafield NEWTLXSTM S 1 0 13 1 0 {} {new datafield} Datafield NEWTLXSTM S 1 0 13 1 0 {} {new datafield}
Datafield UPDFLG T 1 1 0 1 0 {} {No update if not isempty} 1 Datafield UPDFLG T 1 1 0 1 0 {} {No update if not IsEmpty} 1
Datafield OITSTM S 1 0 13 1 0 {} {stream of OITs for processed PTY} Datafield OITSTM S 1 0 13 1 0 {} {stream of OITs for processed PTY}
Rule -1 Rule -1
20041202 IS SourceLine sub InternalSaveMapedAdr( inout ArgHeqStm stream, inout ArgHbkStm stream ) 20041202 IS SourceLine sub InternalSaveMapedAdr( inout ArgHeqStm stream, inout ArgHbkStm stream )
......
frame/letp1.fr2
...@@ -26,9 +26,9 @@ Version 50 TradeDesign® ...@@ -26,9 +26,9 @@ Version 50 TradeDesign®
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 )
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT LEDGRP\CBS\MAX\CUR SourceLine DEFAULT LEDGRP\CBS\MAX\CUR
SourceLine Disable SourceLine Disable
......
frame/litchg.tr2
...@@ -11,7 +11,7 @@ Version 50 TradeDesign® ...@@ -11,7 +11,7 @@ Version 50 TradeDesign®
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
19981008 RI SourceLine default LIDGRP\CBS\NOM1\CUR 19981008 RI SourceLine default LIDGRP\CBS\NOM1\CUR
19981008 RI SourceLine Disable 19981008 RI SourceLine Disable
......
frame/litopn.tr2
...@@ -114,7 +114,7 @@ Version 50 TradeDesign® ...@@ -114,7 +114,7 @@ Version 50 TradeDesign®
SourceLine if not IsEmpty( LIDGRP\REC\SHPDAT ) then SourceLine if not IsEmpty( LIDGRP\REC\SHPDAT ) then
19991222 EVS SourceLine # If not DATEDIFF( LIDGRP\REC\SHPDAT, LIDGRP\REC\OPNDAT) > 0 Then 19991222 EVS SourceLine # If not DATEDIFF( LIDGRP\REC\SHPDAT, LIDGRP\REC\OPNDAT) > 0 Then
20000502 JO SourceLine # error( `This date must not be before the issuance date`) 20000502 JO SourceLine # error( `This date must not be before the issuance date`)
19991222 EVS SourceLine # EndIf 19991222 EVS SourceLine # endif
SourceLine if not IsEmpty( LIDGRP\REC\EXPDAT ) then SourceLine if not IsEmpty( LIDGRP\REC\EXPDAT ) then
SourceLine if not DateDiff( LIDGRP\REC\SHPDAT, LIDGRP\REC\EXPDAT ) <= 0 then SourceLine if not DateDiff( LIDGRP\REC\SHPDAT, LIDGRP\REC\EXPDAT ) <= 0 then
SourceLine Error( 'L0000058' ) SourceLine Error( 'L0000058' )
......
frame/litpop.tr2
...@@ -115,16 +115,16 @@ Version 50 TradeDesign® ...@@ -115,16 +115,16 @@ 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 )
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine default LITP\DORP order 100000 SourceLine default LITP\DORP order 100000
SourceLine Visible( LITP\DORP ) SourceLine Visible( LITP\DORP )
......
frame/lsep.fr2
...@@ -69,14 +69,14 @@ Version 50 TradeDesign® ...@@ -69,14 +69,14 @@ Version 50 TradeDesign®
Rule -1 Rule -1
SourceLine check bPUtxtDEB SourceLine check bPUtxtDEB
SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 4 ) then SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 4 ) then
SourceLine if isempty (bputxtDEB) then SourceLine if IsEmpty (bputxtDEB) then
SourceLine error ('L0000000') SourceLine error ('L0000000')
SourceLine endif SourceLine endif
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine check bustxtDEB SourceLine check bustxtDEB
SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 3 ) then SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 3 ) then
SourceLine if isempty (bustxtDEB) then SourceLine if IsEmpty (bustxtDEB) then
SourceLine error ('L0000001') SourceLine error ('L0000001')
SourceLine else SourceLine else
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"
...@@ -105,7 +105,7 @@ Version 50 TradeDesign® ...@@ -105,7 +105,7 @@ Version 50 TradeDesign®
Rule -1 Rule -1
SourceLine check bugtxtDEB SourceLine check bugtxtDEB
SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 2 ) then SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 2 ) then
SourceLine if isempty (bugtxtDEB) then SourceLine if IsEmpty (bugtxtDEB) then
SourceLine error ('L0000003') SourceLine error ('L0000003')
SourceLine else SourceLine else
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"
...@@ -143,7 +143,7 @@ Version 50 TradeDesign® ...@@ -143,7 +143,7 @@ Version 50 TradeDesign®
SourceLine SourceLine
SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 1 ) then SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 1 ) then
SourceLine clear (lsbdeb) SourceLine clear (lsbdeb)
SourceLine if not isempty (ptydeb\inr) then SourceLine if not IsEmpty (ptydeb\inr) then
SourceLine dbread (lsbdeb, "PTYOVR", "LSN", "", "LSNINR2", ptydeb\inr, "LSNINR1") SourceLine dbread (lsbdeb, "PTYOVR", "LSN", "", "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then SourceLine if not errorcode = 0 then
SourceLine error ('L0000008', ptydeb\extkey, LSNTYPDEB, "" ) SourceLine error ('L0000008', ptydeb\extkey, LSNTYPDEB, "" )
...@@ -154,7 +154,7 @@ Version 50 TradeDesign® ...@@ -154,7 +154,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine event bugtxtdeb SourceLine event bugtxtdeb
SourceLine if not isempty (bugtxtdeb) then SourceLine if not IsEmpty (bugtxtdeb) then
SourceLine clear (lsbdeb) SourceLine clear (lsbdeb)
SourceLine dbread (lsbdeb, "PTYBUG", "LSN", bugtxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1") SourceLine dbread (lsbdeb, "PTYBUG", "LSN", bugtxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then SourceLine if not errorcode = 0 then
...@@ -163,7 +163,7 @@ Version 50 TradeDesign® ...@@ -163,7 +163,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine event bustxtdeb SourceLine event bustxtdeb
SourceLine if not isempty (bustxtdeb) then SourceLine if not IsEmpty (bustxtdeb) then
SourceLine clear (lsbdeb) SourceLine clear (lsbdeb)
SourceLine dbread (lsbdeb, "PTYBUS", "LSN", bustxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1") SourceLine dbread (lsbdeb, "PTYBUS", "LSN", bustxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then SourceLine if not errorcode = 0 then
...@@ -172,7 +172,7 @@ Version 50 TradeDesign® ...@@ -172,7 +172,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine event bputxtdeb SourceLine event bputxtdeb
SourceLine if not isempty (bputxtdeb) then SourceLine if not IsEmpty (bputxtdeb) then
SourceLine clear (lsbdeb) SourceLine clear (lsbdeb)
SourceLine dbread (lsbdeb, "PTYBPU", "LSN", bputxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1") SourceLine dbread (lsbdeb, "PTYBPU", "LSN", bputxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then SourceLine if not errorcode = 0 then
...@@ -258,7 +258,7 @@ Version 50 TradeDesign® ...@@ -258,7 +258,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine default lsntypDEB SourceLine default lsntypDEB
SourceLine if isempty (selear) then SourceLine if IsEmpty (selear) then
SourceLine disable SourceLine disable
SourceLine else SourceLine else
SourceLine if selear = GetLine( GetValues( selear), 2 ) then SourceLine if selear = GetLine( GetValues( selear), 2 ) then
...@@ -342,12 +342,12 @@ Version 50 TradeDesign® ...@@ -342,12 +342,12 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT LSE\AMT SourceLine DEFAULT LSE\AMT
SourceLine if isempty (selear) then SourceLine if IsEmpty (selear) then
SourceLine disable SourceLine disable
SourceLine else SourceLine else
SourceLine enable SourceLine enable
SourceLine endif SourceLine endif
SourceLine if isempty (LSE\AMT) then SourceLine if IsEmpty (LSE\AMT) then
SourceLine if lsr\amt > opacre then SourceLine if lsr\amt > opacre then
SourceLine lse\amt = lsr\amt - opacre SourceLine lse\amt = lsr\amt - opacre
SourceLine else SourceLine else
......
frame/rmtp.fr2
...@@ -50,9 +50,9 @@ Version 50 TradeDesign® ...@@ -50,9 +50,9 @@ Version 50 TradeDesign®
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 )
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine default RMDGRP\CBS\MAX\CUR SourceLine default RMDGRP\CBS\MAX\CUR
SourceLine Disable SourceLine Disable
......
frame/srop.fr2
...@@ -16,9 +16,9 @@ Version 50 TradeDesign® ...@@ -16,9 +16,9 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
19981006 RI SourceLine sub SaveSROS method 19981006 RI SourceLine sub SaveSROS method
20060313 IS SourceLine DBHold( SRO ) 20060313 IS SourceLine DBHold( SRO )
......
frame/syssyn.tr0
...@@ -33,28 +33,28 @@ Version 50 TradeDesign® ...@@ -33,28 +33,28 @@ Version 50 TradeDesign®
SourceLine If STA = "I" Then SourceLine If STA = "I" Then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine Else SourceLine else
SourceLine Disable SourceLine Disable
SourceLine Invisible SourceLine Invisible
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
SourceLine Disable SourceLine Disable
SourceLine Invisible SourceLine Invisible
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
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine Endif SourceLine endif
Rule -1 Rule -1
SourceLine EVENT CAN SourceLine EVENT CAN
SourceLine Cancel SourceLine Cancel
...@@ -64,22 +64,22 @@ Version 50 TradeDesign® ...@@ -64,22 +64,22 @@ Version 50 TradeDesign®
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"
SourceLine EndIf SourceLine endif
Rule -1 Rule -1
SourceLine default ALLREF SourceLine default ALLREF
SourceLine clear(ALLREF) SourceLine clear(ALLREF)
SourceLine for $i=1 to gridcount (syssyrg) SourceLine for $i=1 to gridcount (syssyrg)
SourceLine $refdir=syssyrg($i)\symnam SourceLine $refdir=syssyrg($i)\symnam
SourceLine if not isempty($refdir) then SourceLine if not IsEmpty($refdir) then
SourceLine if isempty(ALLREF) then SourceLine if IsEmpty(ALLREF) then
SourceLine ALLREF = $refdir SourceLine ALLREF = $refdir
SourceLine else SourceLine else
SourceLine ALLREF=ALLREF + CR + $refdir SourceLine ALLREF=ALLREF + CR + $refdir
...@@ -313,10 +313,10 @@ Version 50 TradeDesign® ...@@ -313,10 +313,10 @@ Version 50 TradeDesign®
SourceLine If STA = "N" Then SourceLine If STA = "N" Then
SourceLine Enable SourceLine Enable
SourceLine Visible SourceLine Visible
SourceLine Else SourceLine else
SourceLine Disable SourceLine Disable
SourceLine Invisible SourceLine Invisible
SourceLine Endif SourceLine endif
SourceLine SourceLine
Rule -1 Rule -1
19990819 KS SourceLine default SYSSYDG 19990819 KS SourceLine default SYSSYDG
......
frame/trnism.fr5
...@@ -261,9 +261,9 @@ Version 50 TradeDesign® ...@@ -261,9 +261,9 @@ Version 50 TradeDesign®
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
SourceLine EndIf SourceLine endif
SourceLine SourceLine
Rule -1 Rule -1
20040116 JO SourceLine sub WfmAdd_LimitCheck method 20040116 JO SourceLine sub WfmAdd_LimitCheck method
......
frame/trtopn.tr2
...@@ -34,12 +34,12 @@ Version 50 TradeDesign® ...@@ -34,12 +34,12 @@ Version 50 TradeDesign®
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
SourceLine check TRDGRP\REC\TENDAY SourceLine check TRDGRP\REC\TENDAY
SourceLine TRTMOD.chktotten ( TRDGRP\REC\TENDAY ) SourceLine TRTMOD.chktotten ( TRDGRP\REC\TENDAY )
......
frame/tsklistc.fr2
...@@ -268,7 +268,7 @@ Version 50 TradeDesign® ...@@ -268,7 +268,7 @@ Version 50 TradeDesign®
SourceLine endif SourceLine endif
Rule -1 Rule -1
SourceLine DEFAULT TERFLG SourceLine DEFAULT TERFLG
SourceLine if isempty(TERFLG) then SourceLine if IsEmpty(TERFLG) then
SourceLine ="M" SourceLine ="M"
SourceLine endif SourceLine endif
Rule -1 Rule -1
...@@ -295,7 +295,7 @@ Version 50 TradeDesign® ...@@ -295,7 +295,7 @@ Version 50 TradeDesign®
SourceLine SourceLine
Rule -1 Rule -1
SourceLine DEFAULT STRFLG SourceLine DEFAULT STRFLG
SourceLine if isempty(STRFLG) then SourceLine if IsEmpty(STRFLG) then
SourceLine ="M" SourceLine ="M"
SourceLine endif SourceLine endif
SourceLine SourceLine
......
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