When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.
modify command awHTML* please replace
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,,, @m.lcError)* by
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,.T.,, @m.lcError)
in absqlthermo.Init there is a set talk on.
When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.
-- thn (FoxInCloud)
Hi Tuvia,
modify command awHTML* please replace
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,,, @m.lcError)* by
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,.T.,, @m.lcError)
in absqlthermo.Init there is a set talk on.
When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.
Hi Tuvia,
modify command awHTML* please replace
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,,, @m.lcError)* by
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,.T.,, @m.lcError)
in absqlthermo.Init there is a set talk on.
When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.
:IF m.this.lThermo
SET NOTIFY ON
* Direct Talk to an invisible window
this.cWindowOutput = "W"+SYS(2015)
DEFINE WINDOW (this.cWindowOutput) FROM -100,-100 TO -10,-10
this.cWindowTalk = Set("TALK", 1) && retourne "WINDOW xx"
SET TALK WINDOW (this.cWindowOutput)ELSE
SET NOTIFY OFF
SET TALK OFF
ENDIF
to this:
IF m.this.lThermo
* TBV setting talk on makes the next 4 statements echo to console and
* mess up the development mode display. Moved.
SET NOTIFY ON
*SET TALK ON
* Direct Talk to an invisible window
this.cWindowOutput = "W"+SYS(2015)
DEFINE WINDOW (this.cWindowOutput) FROM -100,-100 TO -10,-10
this.cWindowTalk = Set("TALK", 1) && retourne "WINDOW xx"
SET TALK ON && TBV
SET TALK WINDOW (this.cWindowOutput)ELSE
SET NOTIFY OFF
SET TALK OFF
ENDIF
Hi Tuvia,
modify command awHTML* please replace
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,,, @m.lcError)* by
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,.T.,, @m.lcError)
in absqlthermo.Init there is a set talk on.
When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.
Not sure if we ever followed up on this, but the solution is to change abdata.init from
:IF m.this.lThermo
SET NOTIFY ON
* Direct Talk to an invisible window
this.cWindowOutput = "W"+SYS(2015)
DEFINE WINDOW (this.cWindowOutput) FROM -100,-100 TO -10,-10
this.cWindowTalk = Set("TALK", 1) && retourne "WINDOW xx"
SET TALK WINDOW (this.cWindowOutput)ELSE
SET NOTIFY OFF
SET TALK OFF
ENDIF
to this:
IF m.this.lThermo
* TBV setting talk on makes the next 4 statements echo to console and
* mess up the development mode display. Moved.
SET NOTIFY ON
*SET TALK ON
* Direct Talk to an invisible window
this.cWindowOutput = "W"+SYS(2015)
DEFINE WINDOW (this.cWindowOutput) FROM -100,-100 TO -10,-10
this.cWindowTalk = Set("TALK", 1) && retourne "WINDOW xx"
SET TALK ON && TBV
SET TALK WINDOW (this.cWindowOutput)ELSE
SET NOTIFY OFF
SET TALK OFF
ENDIF
Hi Tuvia,
modify command awHTML* please replace
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,,, @m.lcError)* by
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,.T.,, @m.lcError)
in absqlthermo.Init there is a set talk on.
When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.
-- thn (FoxInCloud)
modified, thanks for the contribution
Not sure if we ever followed up on this, but the solution is to change abdata.init from
:IF m.this.lThermo
SET NOTIFY ON
* Direct Talk to an invisible window
this.cWindowOutput = "W"+SYS(2015)
DEFINE WINDOW (this.cWindowOutput) FROM -100,-100 TO -10,-10
this.cWindowTalk = Set("TALK", 1) && retourne "WINDOW xx"
SET TALK WINDOW (this.cWindowOutput)ELSE
SET NOTIFY OFF
SET TALK OFF
ENDIF
to this:
IF m.this.lThermo
* TBV setting talk on makes the next 4 statements echo to console and
* mess up the development mode display. Moved.
SET NOTIFY ON
*SET TALK ON
* Direct Talk to an invisible window
this.cWindowOutput = "W"+SYS(2015)
DEFINE WINDOW (this.cWindowOutput) FROM -100,-100 TO -10,-10
this.cWindowTalk = Set("TALK", 1) && retourne "WINDOW xx"
SET TALK ON && TBV
SET TALK WINDOW (this.cWindowOutput)ELSE
SET NOTIFY OFF
SET TALK OFF
ENDIF
Hi Tuvia,
modify command awHTML* please replace
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,,, @m.lcError)* by
tnRow = VFPSelectExecute(Strtran(m.lcSelect, 'm.this.oGDIplus'), m.lcResult, .T.,,.T.,, @m.lcError)
in absqlthermo.Init there is a set talk on.
When running in development mode, this trashes the display showing the execution times and you see screen after screen until set talk is back off.