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®
SourceLine DEFAULT BCDGRP\REC\RCVDAT
SourceLine if not IsModified then
SourceLine = Today
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine CHECK BCDGRP\REC\RCVDAT
SourceLine if IsEmpty( BCDGRP\REC\RCVDAT ) then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
20050707 RO SourceLine textfunction BCTDRET1 static
20040803 VO SourceLine
......
frame/BETDOC.FR2
......@@ -294,7 +294,7 @@ Version 50 TradeDesign®
20071105180758 SZ SourceLine if BEDGRP\REC\ACPNOWFLG <> "X" then
20071105180758 SZ SourceLine print "<DeferredPayment>"
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 )
20071109153101 SZ SourceLine endif
20071105180758 SZ SourceLine BOLAmountTag( "PaymentAmount", BEDGRP\CBS\MAX\CUR, $DocAmt )
......
frame/BFTDOC.FR2
......@@ -293,7 +293,7 @@ Version 50 TradeDesign®
20071105180758 SZ SourceLine if BFDGRP\REC\ACPNOWFLG <> "X" then
20071105180758 SZ SourceLine print "<DeferredPayment>"
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 )
20071109153101 SZ SourceLine endif
20071105180758 SZ SourceLine BOLAmountTag( "PaymentAmount", BFDGRP\CBS\MAX\CUR, $DocAmt )
......
frame/BOTAME.TR2
......@@ -32,16 +32,16 @@ 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
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
SourceLine endif
Rule -1
20060830 MV SourceLine default BODGRP\CBS\MAX\CUR
19981201 RI SourceLine Disable
......
frame/BOTDAV.TR2
......@@ -24,10 +24,10 @@ 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
SourceLine endif
Rule -1
19981127 RI SourceLine default BODGRP\REC\OPNDAT
20030901 MK SourceLine = BODGRP\REC\ADVDAT
......
frame/BOTRAD.TR2
......@@ -12,10 +12,10 @@ 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
SourceLine endif
Rule -1
20000204 RI SourceLine default BODGRP\CBS\OPN1\CUR order 5000
20060830 MV SourceLine = BODGRP\CBS\MAX\CUR
......
frame/DITAME.TR2
......@@ -91,7 +91,7 @@ Version 50 TradeDesign®
SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) Then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
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
......
frame/DITDLA.TR2
......@@ -22,7 +22,7 @@ Version 50 TradeDesign®
SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) Then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
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
......
frame/DITOPN.TR2
......@@ -78,7 +78,7 @@ Version 50 TradeDesign®
SourceLine if not IsEmpty( DIDGRP\REC\SHPDAT ) 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`)
19991222 EVS SourceLine # EndIf
19991222 EVS SourceLine # endif
SourceLine if not IsEmpty( DIDGRP\REC\EXPDAT ) then
SourceLine if not DateDiff( DIDGRP\REC\SHPDAT, DIDGRP\REC\EXPDAT ) <= 0 then
20160804135237 ZHP SourceLine {
......
frame/DITREJ.TR2
......@@ -92,7 +92,7 @@ Version 50 TradeDesign®
SourceLine Check DIDGRP\REC\AVBBY
SourceLine If IsEmpty ( DIDGRP\REC\AVBBY ) Then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
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
......
frame/JSTOPN.TR6
......@@ -2066,7 +2066,7 @@ Version 50 TradeDesign®
20191206150205 XIA SourceLine endif
Rule -1
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 = ""
20191105175227 XIA SourceLine $cur2 = ""
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®
20050628 IS SourceLine #
20050628 IS SourceLine # Alternativly logic might be used. a sample might be
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 # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR
20050628 IS SourceLine # else
......
frame/LEDLOD1.FR5
......@@ -461,7 +461,7 @@ Version 50 TradeDesign®
20050628 IS SourceLine #
20050628 IS SourceLine # Alternativly logic might be used. a sample might be
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 # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR
20050628 IS SourceLine # else
......
frame/LETAME.TR2
......@@ -12,7 +12,7 @@ Version 50 TradeDesign®
SourceLine DEFAULT LETAMEP\AMEDAT
SourceLine If IsEmpty ( LETAMEP\AMEDAT) Then
SourceLine = Today
SourceLine EndIf
SourceLine endif
Rule -1
20070312 MK SourceLine textfunction LETBENS1 static
20040126 VO SourceLine #! Amenmdent MT 707
......
frame/LETNOT.TR2
......@@ -61,16 +61,16 @@ 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 else
SourceLine Enable ( LEDGRP\BLK\SHPPER )
SourceLine EndIf
SourceLine If Not IsEmpty( LEDGRP\BLK\SHPPER ) Then
SourceLine endif
SourceLine If not IsEmpty( LEDGRP\BLK\SHPPER ) Then
SourceLine Disable ( LEDGRP\REC\SHPDAT )
SourceLine Else
SourceLine else
SourceLine Enable ( LEDGRP\REC\SHPDAT )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine default LETP\ADCP order 100000
SourceLine Visible( LETP\ADCP )
......
frame/LETP.FR2
......@@ -43,9 +43,9 @@ Version 50 TradeDesign®
SourceLine Default OVWP
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable ( OVWP )
SourceLine Else
SourceLine else
SourceLine Disable ( OVWP )
SourceLine EndIf
SourceLine endif
Rule -1
20070316092634 RM SourceLine default DORP
20070316092638 RM SourceLine # Panel Documents
......
frame/LIAONE.FR2
......@@ -39,7 +39,7 @@ Version 50 TradeDesign®
20060118 RI SourceLine end select
Rule -1
SourceLine default CBE\dat
SourceLine if isempty ( CBE\dat) then
SourceLine if IsEmpty ( CBE\dat) then
SourceLine = today
SourceLine endif
Rule -1
......
frame/LITAME.TR2
......@@ -107,7 +107,7 @@ Version 50 TradeDesign®
SourceLine Check LIDGRP\REC\AVBBY
SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) Then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine default LITP\DRWP\PANSTA
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®
SourceLine Check LIDGRP\REC\AVBBY
SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) Then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine default LITP\DRWP\PANSTA
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®
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
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
SourceLine endif
Rule -1
20030425 IS SourceLine check LTDGRP\CBS\NOM1\AMT order 800
19981222 RI SourceLine ErrorPositiveAmtOnly( LTDGRP\CBS\NOM1\AMT )
......
frame/QUE.FR2
......@@ -49,7 +49,7 @@ Version 50 TradeDesign®
DFComment For Incoming Messages:
DFComment Message Type and Sender BIC
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 'L' The entry was picked up interactively for processing.
DFComment
......
frame/SPT.FR0
......@@ -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 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
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 ='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.
......
frame/SRVSWT.FR2
......@@ -188,7 +188,7 @@ Version 50 TradeDesign®
20080527152739 CZY SourceLine endif
Rule -1
SourceLine DEFAULT OWNBIC
SourceLine if isempty(EXEFLG) then
SourceLine if IsEmpty(EXEFLG) then
SourceLine disable
SourceLine else
SourceLine enable
......
frame/SYSTBL.TR0
......@@ -151,10 +151,10 @@ Version 50 TradeDesign®
SourceLine If STA = "A" Then
SourceLine Enable
SourceLine Visible
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine Invisible
SourceLine Endif
SourceLine endif
Rule -1
SourceLine event MOD
20020917 HB SourceLine
......@@ -426,10 +426,10 @@ Version 50 TradeDesign®
SourceLine If STA = "E" Then
SourceLine Enable
SourceLine Visible
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine Invisible
SourceLine Endif
SourceLine endif
Rule -1
SourceLine event SAV
20020925 HB SourceLine
......@@ -576,16 +576,16 @@ Version 50 TradeDesign®
SourceLine If Isdesigner Then
SourceLine If IsEmpty( TBL ) Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine Else
SourceLine endif
SourceLine else
SourceLine Disable
SourceLine EndIf
SourceLine Else
SourceLine endif
SourceLine else
SourceLine Invisible
SourceLine Disable
SourceLine Endif
SourceLine endif
Rule -1
SourceLine default IMP
20020729 HB SourceLine
......@@ -638,16 +638,16 @@ Version 50 TradeDesign®
SourceLine DEFAULT STH\CODLEN
SourceLine If STA = "I" Or STA = "D" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine Endif
SourceLine endif
Rule -1
SourceLine DEFAULT STH\TXTLEN
SourceLine If STA = "I" Or STA = "D" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine Endif
SourceLine endif
Rule -1
20010103 RI SourceLine check SYSTBLG\COD
20040130 JO SourceLine if IsEnabled( SYSTBLG\COD ) then
......@@ -713,9 +713,9 @@ Version 50 TradeDesign®
SourceLine DEFAULT STH\SRT
SourceLine If STA = "I" Or STA = "D" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine Endif
SourceLine endif
Rule -1
SourceLine sub SetTblValues
20020925 HB SourceLine
......
frame/TSKLIST.FR2
......@@ -276,7 +276,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine DEFAULT TERFLG
SourceLine if isempty(TERFLG) then
SourceLine if IsEmpty(TERFLG) then
SourceLine ="M"
SourceLine endif
Rule -1
......@@ -303,7 +303,7 @@ Version 50 TradeDesign®
SourceLine
Rule -1
SourceLine DEFAULT STRFLG
SourceLine if isempty(STRFLG) then
SourceLine if IsEmpty(STRFLG) then
SourceLine ="M"
SourceLine endif
SourceLine
......
frame/bctrog.tr2
......@@ -26,10 +26,10 @@ 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
SourceLine endif
Rule -1
SourceLine default BCDGRP\REC\MATDAT
SourceLine if not IsEmpty( BCDGRP\BLK\BCGDET ) then
......
frame/cbap.fr2
......@@ -139,16 +139,16 @@ Version 50 TradeDesign®
SourceLine DEFAULT CBSA\CBO
SourceLine If PANSTA = PanStaEdit Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT CBSA\CBC
SourceLine If PANSTA = PanStaEdit Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine endif
Rule -1
20030123 JO SourceLine default SHWCBC
20030123 JO SourceLine = CBSA\CBC
......
frame/cbcp.fr2
......@@ -15,9 +15,9 @@ Version 50 TradeDesign®
SourceLine Default CBCPG
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine EndIf
SourceLine endif
Rule -1
19981006 RI SourceLine sub SaveCBSA method
SourceLine $Row = GetSelectedRow( CBCPG )
......@@ -36,20 +36,20 @@ Version 50 TradeDesign®
SourceLine $CBCRow = 1
SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If Not IsEmpty( $Lin ) Then
SourceLine If not IsEmpty( $Lin ) Then
SourceLine If $GridRow > $Max Then
SourceLine GridInsertRow( CBCPG, 0 )
SourceLine EndIf
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 $CBCRow = $GridRow
SourceLine EndIf
SourceLine endif
SourceLine $IniIdx = $IniIdx + 1
SourceLine $GridRow = $GridRow + 1
SourceLine Goto IniLoop
SourceLine EndIf
SourceLine endif
SourceLine SetSelectedRow( CBCPG, $CBCRow )
Rule -1
20030124 JO SourceLine event DET
......
frame/cbcpg.fr2
......@@ -11,12 +11,12 @@ Version 50 TradeDesign®
SourceLine CHECK CBCCOD
SourceLine If IsEmpty( CBCCOD ) Then
SourceLine Error( 'L0000000' )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine CHECK CBCTXT
SourceLine If IsEmpty( CBCTXT ) Then
SourceLine Error( 'L0000001' )
SourceLine EndIf
SourceLine endif
PanelCount 0
......
frame/cbip.fr2
......@@ -78,16 +78,16 @@ Version 50 TradeDesign®
SourceLine DEFAULT CBSA\CBO
SourceLine If PANSTA = PanStaEdit Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT CBSA\CBT
SourceLine If PANSTA = PanStaEdit Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine endif
Rule -1
19990629 EVS SourceLine default SHWCBT
19990629 EVS SourceLine = CBSA\CBT
......
frame/cbop.fr2
......@@ -15,9 +15,9 @@ Version 50 TradeDesign®
SourceLine Default CBOPG
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine EndIf
SourceLine endif
Rule -1
19981006 RI SourceLine sub SaveCBSA method
SourceLine $Row = GetSelectedRow( CBOPG )
......@@ -36,19 +36,19 @@ Version 50 TradeDesign®
SourceLine $CBORow = 1
SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If Not IsEmpty( $Lin ) Then
SourceLine If not IsEmpty( $Lin ) Then
SourceLine If $GridRow > $Max Then
SourceLine GridInsertRow( CBOPG, 0 )
SourceLine EndIf
SourceLine endif
SourceLine CBOPG( $GridRow )\CBOCOD = $Lin
SourceLine CBOPG( $GridRow )\CBOTXT = GetTblText( $Lin, "CBOTXT", GetUil )
SourceLine If $Lin = CBSA\CBO Then
SourceLine $CBORow = $GridRow
SourceLine EndIf
SourceLine endif
SourceLine $IniIdx = $IniIdx + 1
SourceLine $GridRow = $GridRow + 1
SourceLine Goto IniLoop
SourceLine EndIf
SourceLine endif
SourceLine SetSelectedRow( CBOPG, $CBORow )
Rule -1
20030124 JO SourceLine event DET
......
frame/cbopg.fr2
......@@ -10,12 +10,12 @@ Version 50 TradeDesign®
SourceLine CHECK CBOCOD
SourceLine If IsEmpty( CBOCOD ) Then
SourceLine Error( 'L0000000' )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine CHECK CBOTXT
SourceLine If IsEmpty( CBOTXT ) Then
SourceLine Error( 'L0000001' )
SourceLine EndIf
SourceLine endif
PanelCount 0
......
frame/cbtp.fr2
......@@ -15,9 +15,9 @@ Version 50 TradeDesign®
SourceLine Default CBTPG
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine EndIf
SourceLine endif
Rule -1
19981006 RI SourceLine sub SaveCBSA method
SourceLine $Row = GetSelectedRow( CBTPG )
......@@ -36,19 +36,19 @@ Version 50 TradeDesign®
SourceLine $CBTRow = 1
SourceLine Label IniLoop
SourceLine $Lin = GetLine( $Ini, $IniIdx )
SourceLine If Not IsEmpty( $Lin ) Then
SourceLine If not IsEmpty( $Lin ) Then
SourceLine If $GridRow > $Max Then
SourceLine GridInsertRow( CBTPG, 0 )
SourceLine EndIf
SourceLine endif
SourceLine CBTPG( $GridRow )\CBTCOD = $Lin
SourceLine CBTPG( $GridRow )\CBTTXT = GetTblText( $Lin, "CBTTXT", GetUil )
SourceLine If $Lin = CBSA\CBT Then
SourceLine $CBTRow = $GridRow
SourceLine EndIf
SourceLine endif
SourceLine $IniIdx = $IniIdx + 1
SourceLine $GridRow = $GridRow + 1
SourceLine Goto IniLoop
SourceLine EndIf
SourceLine endif
SourceLine SetSelectedRow( CBTPG, $CBTRow )
Rule -1
20030124 JO SourceLine event DET
......
frame/cbtpg.fr2
......@@ -10,12 +10,12 @@ Version 50 TradeDesign®
SourceLine CHECK CBTCOD
SourceLine If IsEmpty( CBTCOD ) Then
SourceLine Error( 'L0000000' )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine CHECK CBTTXT
SourceLine If IsEmpty( CBTTXT ) Then
SourceLine Error( 'L0000001' )
SourceLine EndIf
SourceLine endif
PanelCount 0
......
frame/dbalse.tr2
......@@ -136,7 +136,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine DEFAULT LSEP\SELEAR
SourceLine if isempty (lsep\selear) then
SourceLine if IsEmpty (lsep\selear) then
SourceLine = GetLine( GetValues( \lsep\selear ), 1 )
SourceLine endif
PanelCount 1
......
frame/dbiact.tr2
......@@ -50,9 +50,9 @@ Version 50 TradeDesign®
SourceLine DEFAULT DBIPTY
SourceLine If \RECPAN\PANSTA = PanStaLog Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine endif
Rule -1
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
......
frame/dbicbsb.fr2
......@@ -28,37 +28,37 @@ Version 50 TradeDesign®
SourceLine DEFAULT DBICBO
SourceLine If BaseName( GetFramename ) = "DBICBO" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine EnAble
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBT
SourceLine If BaseName( GetFramename ) = "DBICBT" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine EnAble
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBC
SourceLine If BaseName( GetFramename ) = "DBICBC" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine EnAble
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBA
SourceLine If BaseName( GetFramename ) = "DBICBA" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT DBICBI
SourceLine If BaseName( GetFramename ) = "DBICBI" Then
SourceLine Disable
SourceLine Else
SourceLine else
SourceLine EnAble
SourceLine EndIf
SourceLine endif
PanelCount 1
......
frame/dbiswm.tr2
......@@ -259,9 +259,9 @@ Version 50 TradeDesign®
SourceLine # HotKey "Esc"
SourceLine If STA = "I" Then
SourceLine LnkReturnToCaller
SourceLine Else
SourceLine else
SourceLine STA = "I"
SourceLine EndIf
SourceLine endif
Rule -1
20031203 KS SourceLine default IMP
SourceLine if STA = "I" then
......@@ -401,7 +401,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine DEFAULT USEFIL
SourceLine if isempty(FROFILNAM) then
SourceLine if IsEmpty(FROFILNAM) then
SourceLine disable
SourceLine else
SourceLine enable
......
frame/dbmpta.tr2
......@@ -10,7 +10,7 @@ Version 50 TradeDesign®
Datafield INFBLK B 85 15 1 1 0 {} {Infotext} 1
Datafield BUTTST C 10 1 6 1 0 {} {&Test}
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
Rule -1
20030306 IS SourceLine event BUTTRF
......
frame/dedlod.fr5
......@@ -477,7 +477,7 @@ Version 50 TradeDesign®
20050628 IS SourceLine #
20050628 IS SourceLine # Alternativly logic might be used. a sample might be
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 # ArgBanPtaInr = ArgGrp\ISS\PTS\PTAINR
20050628 IS SourceLine # else
......
frame/detp.fr2
......@@ -26,9 +26,9 @@ Version 50 TradeDesign®
SourceLine Default OVWP
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable ( OVWP )
SourceLine Else
SourceLine else
SourceLine Disable ( OVWP )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT DEDGRP\CBS\MAX\CUR
SourceLine Disable
......
frame/diapovw.fr2
......@@ -6,7 +6,7 @@ Version 50 TradeDesign®
Datafield DSPSTM S 1 0 23 1 0 {} {Display Stream for diaries}
Rule -1
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 endif
Rule -1
......
frame/evtp.fr2
......@@ -10,26 +10,26 @@ Version 50 TradeDesign®
SourceLine # Global settings of panel properties
SourceLine If PANSTA = PanStaAdd Or PANSTA = PanStaEdit Then
SourceLine Enable( EVTP0 )
SourceLine Else
SourceLine else
SourceLine Disable( EVTP0 )
SourceLine EndIf
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 Enable( RECGET\SDAMOD\SEAINF )
SourceLine Enable( RECGET\SDAMOD\DADRCV )
SourceLine Setvalues( RECGET\SDAMOD\DADRCV, "EVT" )
SourceLine Else
SourceLine else
SourceLine Disable( RECGET\SDAMOD\SEAINF )
SourceLine Disable( RECGET\SDAMOD\DADRCV )
SourceLine Setvalues( RECGET\SDAMOD\DADRCV, "" )
SourceLine EndIf
SourceLine endif
SourceLine # Drag&Drop sender for primary entry
SourceLine If PANSTA = PanStaInquiry Or PANSTA = PanStaDelete Or PANSTA = PanStaShow Then
SourceLine Enable( RECGET\SDAMOD\DADSND )
SourceLine Else
SourceLine else
SourceLine Disable( RECGET\SDAMOD\DADSND )
SourceLine EndIf
SourceLine endif
SourceLine Setvalues( RECGET\SDAMOD\DADSND, "TACC" + cr + "EVT" )
SourceLine # additional fields for secondary entries
Rule -1
......
frame/impadr.tr2
......@@ -15,7 +15,7 @@ Version 50 TradeDesign®
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 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}
Rule -1
20041202 IS SourceLine sub InternalSaveMapedAdr( inout ArgHeqStm stream, inout ArgHbkStm stream )
......
frame/letp1.fr2
......@@ -26,9 +26,9 @@ Version 50 TradeDesign®
SourceLine Default OVWP
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable ( OVWP )
SourceLine Else
SourceLine else
SourceLine Disable ( OVWP )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine DEFAULT LEDGRP\CBS\MAX\CUR
SourceLine Disable
......
frame/litchg.tr2
......@@ -11,7 +11,7 @@ Version 50 TradeDesign®
SourceLine Check LIDGRP\REC\AVBBY
SourceLine If IsEmpty ( LIDGRP\REC\AVBBY ) Then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
19981008 RI SourceLine default LIDGRP\CBS\NOM1\CUR
19981008 RI SourceLine Disable
......
frame/litopn.tr2
......@@ -114,7 +114,7 @@ Version 50 TradeDesign®
SourceLine if not IsEmpty( LIDGRP\REC\SHPDAT ) 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`)
19991222 EVS SourceLine # EndIf
19991222 EVS SourceLine # endif
SourceLine if not IsEmpty( LIDGRP\REC\EXPDAT ) then
SourceLine if not DateDiff( LIDGRP\REC\SHPDAT, LIDGRP\REC\EXPDAT ) <= 0 then
SourceLine Error( 'L0000058' )
......
frame/litpop.tr2
......@@ -115,16 +115,16 @@ 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 else
SourceLine Enable ( LIDGRP\BLK\SHPPER )
SourceLine EndIf
SourceLine If Not IsEmpty( LIDGRP\BLK\SHPPER ) Then
SourceLine endif
SourceLine If not IsEmpty( LIDGRP\BLK\SHPPER ) Then
SourceLine Disable ( LIDGRP\REC\SHPDAT )
SourceLine Else
SourceLine else
SourceLine Enable ( LIDGRP\REC\SHPDAT )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine default LITP\DORP order 100000
SourceLine Visible( LITP\DORP )
......
frame/lsep.fr2
......@@ -69,14 +69,14 @@ Version 50 TradeDesign®
Rule -1
SourceLine check bPUtxtDEB
SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 4 ) then
SourceLine if isempty (bputxtDEB) then
SourceLine if IsEmpty (bputxtDEB) then
SourceLine error ('L0000000')
SourceLine endif
SourceLine endif
Rule -1
SourceLine check bustxtDEB
SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 3 ) then
SourceLine if isempty (bustxtDEB) then
SourceLine if IsEmpty (bustxtDEB) then
SourceLine error ('L0000001')
SourceLine else
SourceLine # check, if the debited limit type is correct when the earmarking type is "same party"
......@@ -105,7 +105,7 @@ Version 50 TradeDesign®
Rule -1
SourceLine check bugtxtDEB
SourceLine if lsntypDEB = GetLine( GetValues( lsntypdeb), 2 ) then
SourceLine if isempty (bugtxtDEB) then
SourceLine if IsEmpty (bugtxtDEB) then
SourceLine error ('L0000003')
SourceLine else
SourceLine # check, if the debited limit type is correct when the earmarking type is "same party"
......@@ -143,7 +143,7 @@ Version 50 TradeDesign®
SourceLine
SourceLine if lsntypdeb = GetLine( GetValues( lsntypdeb ), 1 ) then
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 if not errorcode = 0 then
SourceLine error ('L0000008', ptydeb\extkey, LSNTYPDEB, "" )
......@@ -154,7 +154,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine event bugtxtdeb
SourceLine if not isempty (bugtxtdeb) then
SourceLine if not IsEmpty (bugtxtdeb) then
SourceLine clear (lsbdeb)
SourceLine dbread (lsbdeb, "PTYBUG", "LSN", bugtxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then
......@@ -163,7 +163,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine event bustxtdeb
SourceLine if not isempty (bustxtdeb) then
SourceLine if not IsEmpty (bustxtdeb) then
SourceLine clear (lsbdeb)
SourceLine dbread (lsbdeb, "PTYBUS", "LSN", bustxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then
......@@ -172,7 +172,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine event bputxtdeb
SourceLine if not isempty (bputxtdeb) then
SourceLine if not IsEmpty (bputxtdeb) then
SourceLine clear (lsbdeb)
SourceLine dbread (lsbdeb, "PTYBPU", "LSN", bputxtdeb, "LSNINR2", ptydeb\inr, "LSNINR1")
SourceLine if not errorcode = 0 then
......@@ -258,7 +258,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine default lsntypDEB
SourceLine if isempty (selear) then
SourceLine if IsEmpty (selear) then
SourceLine disable
SourceLine else
SourceLine if selear = GetLine( GetValues( selear), 2 ) then
......@@ -342,12 +342,12 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine DEFAULT LSE\AMT
SourceLine if isempty (selear) then
SourceLine if IsEmpty (selear) then
SourceLine disable
SourceLine else
SourceLine enable
SourceLine endif
SourceLine if isempty (LSE\AMT) then
SourceLine if IsEmpty (LSE\AMT) then
SourceLine if lsr\amt > opacre then
SourceLine lse\amt = lsr\amt - opacre
SourceLine else
......
frame/rmtp.fr2
......@@ -50,9 +50,9 @@ Version 50 TradeDesign®
SourceLine Default OVWP
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable ( OVWP )
SourceLine Else
SourceLine else
SourceLine Disable ( OVWP )
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine default RMDGRP\CBS\MAX\CUR
SourceLine Disable
......
frame/srop.fr2
......@@ -16,9 +16,9 @@ Version 50 TradeDesign®
SourceLine Default SROPG
SourceLine If PANSTA = PanStaEdit Then
SourceLine Enable
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine EndIf
SourceLine endif
Rule -1
19981006 RI SourceLine sub SaveSROS method
20060313 IS SourceLine DBHold( SRO )
......
frame/syssyn.tr0
......@@ -33,28 +33,28 @@ Version 50 TradeDesign®
SourceLine If STA = "I" Then
SourceLine Enable
SourceLine Visible
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine Invisible
SourceLine Endif
SourceLine endif
Rule -1
SourceLine DEFAULT SAV
SourceLine If STA = "E" Then
SourceLine Enable
SourceLine Visible
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine Invisible
SourceLine Endif
SourceLine endif
Rule -1
SourceLine DEFAULT CAN
SourceLine If STA = "I" then
SourceLine Disable
SourceLine Invisible
SourceLine Else
SourceLine else
SourceLine Enable
SourceLine Visible
SourceLine Endif
SourceLine endif
Rule -1
SourceLine EVENT CAN
SourceLine Cancel
......@@ -64,22 +64,22 @@ Version 50 TradeDesign®
SourceLine If $a then
SourceLine save(FILNAM)
SourceLine STA = "I"
SourceLine Endif
SourceLine endif
Rule -1
SourceLine Sub FrameExit global
SourceLine HotKey "Esc"
SourceLine If \STA = "I" or \STA = "N" Then
SourceLine LnkReturnToCaller
SourceLine Else
SourceLine else
SourceLine \STA = "I"
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine default ALLREF
SourceLine clear(ALLREF)
SourceLine for $i=1 to gridcount (syssyrg)
SourceLine $refdir=syssyrg($i)\symnam
SourceLine if not isempty($refdir) then
SourceLine if isempty(ALLREF) then
SourceLine if not IsEmpty($refdir) then
SourceLine if IsEmpty(ALLREF) then
SourceLine ALLREF = $refdir
SourceLine else
SourceLine ALLREF=ALLREF + CR + $refdir
......@@ -313,10 +313,10 @@ Version 50 TradeDesign®
SourceLine If STA = "N" Then
SourceLine Enable
SourceLine Visible
SourceLine Else
SourceLine else
SourceLine Disable
SourceLine Invisible
SourceLine Endif
SourceLine endif
SourceLine
Rule -1
19990819 KS SourceLine default SYSSYDG
......
frame/trnism.fr5
......@@ -261,9 +261,9 @@ Version 50 TradeDesign®
SourceLine Function dcsw ( in amt numeric , in ifpos text , in ifneg text) : text Global
SourceLine If amt < 0 then
SourceLine = ifneg
SourceLine Else
SourceLine else
SourceLine = ifpos
SourceLine EndIf
SourceLine endif
SourceLine
Rule -1
20040116 JO SourceLine sub WfmAdd_LimitCheck method
......
frame/trtopn.tr2
......@@ -34,12 +34,12 @@ Version 50 TradeDesign®
SourceLine CHECK TRDGRP\REC\ISSDAT
SourceLine If IsEmpty then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine CHECK TRDGRP\REC\NAM
SourceLine If IsEmpty then
SourceLine ErrorMandatory
SourceLine EndIf
SourceLine endif
Rule -1
SourceLine check TRDGRP\REC\TENDAY
SourceLine TRTMOD.chktotten ( TRDGRP\REC\TENDAY )
......
frame/tsklistc.fr2
......@@ -268,7 +268,7 @@ Version 50 TradeDesign®
SourceLine endif
Rule -1
SourceLine DEFAULT TERFLG
SourceLine if isempty(TERFLG) then
SourceLine if IsEmpty(TERFLG) then
SourceLine ="M"
SourceLine endif
Rule -1
......@@ -295,7 +295,7 @@ Version 50 TradeDesign®
SourceLine
Rule -1
SourceLine DEFAULT STRFLG
SourceLine if isempty(STRFLG) then
SourceLine if IsEmpty(STRFLG) then
SourceLine ="M"
SourceLine endif
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