I use this code to check if the table is in use:
local llerror
llerror=.f.
lcStlFileName="02155.stk" (it's a dbf)
ON ERROR llerror = .T.
lcStkl= SYS(5)+CURDIR()+'BELEGE\'+ lcStlFileName
SELECT 0
USE &lcStkl EXCLUSIVE ALIAS 'ITEMLIST'
IF llerror
thisform.Caption = "file is in use !!!"
ENDIF...
I use a toolbar with a button prior
in button.click() I call
lnResult = _screen.ActiveForm.Prior()
the ActiveForm is a class of mybasfrm
the code in ActiveForm.Prior() is mybasfrm::prior()
in mybasfrm::prior() I return a parameter
how can i get the return-value in ActiveForm.Prior()
I try...
Hi All,
I have a problem with changing the tag of a table in a db
The code is:
open Database plumber
use plumber!belege exclusive
set safety off
if !(tag(9)== 'belegid' and key(9) == 'val(alltrim(beleg_id))')
delete tag 'belegid'
Index on val(alltrim(beleg_id)) tag belegid
endif
If I...
I try to check the tables and index of my app.
How I thought it could go.
Open the database and check how many tables there
This, I guess will go with DBGETPORP() but I don’t know how
here I need help please.
I don’t know how to write a loop to get all tables out of the databases.
If I have...
Hi All
I use a form where the DE has a couple of tables and relations.
Now if I call the form I get the error mess:
Index tag not found
Methode: myform.dataenvironment.OpenTables
line:0
could any of you tell me please,
how to find out the faulty table.
may be in BeforeOpenTablesEvent with a...
Hi All,
I like to change the expression of the index key
the table has 9 indexs
I check the first index like:
IF !(TAG(1)== 'BELEGNAME' AND KEY(1) == 'BELEGNAME')
INDEX ON ALLTRIM(UPPER(BELEGNAME)) TAG BELEGNAME
ENDIF
how to I change the key from:
'BELEGNAME' to ALLTRIM(UPPER(BELEGNAME))...
I try to find out how to pass an ADO record from a free VFP-table to CR.
My code looks like:
LOCAL oCR AS CRAXDRT.Application
LOCAL oRpt AS CRAXDRT.Report
LOCAL oDB AS CRAXDRT.Database
LOCAL ocDBT AS CRAXDRT.DatabaseTables
LOCAL oDBT AS CRAXDRT.DatabaseTable
LOCAL ocParm AS...
Hi All,
after a crash on a PC with Win NT, I have to restore some data of a tape.
The tape was written with ARCServer for Windows NT Version 6 and iomega Tape700.
Now I install win2000 on this PC.
Is there a way to restore without ARCServer?
To I have to install Win NT and ARCServer again?
If...
Hi
I use
....
This.oleCRPreview.EnableToolbar=.T.
This.oleCRPreview.Resize()
This.oleCRPreview.ViewReport()
but sometimes I get the error like
"..not finished with downloading.."
now I like to use the downloadfinished() but I do not
know the syntax.
Could anyone of you give me a hand...
Hi All,
I try to change the background color of a section.
if I retrieve the color I get 15385839
this is in rgb r255 g235 b234 color 2 satiation 240
brilliancy 230
if I change the color at runtime I have to know
how to I convert this rgb to the hex code?
is there a calculator available at the...
Hi
I like to give our clients the possibility to change the position of a record field in the report (not to create new ones). So I embed the "Crystal Reports 9 Designer Control" now I have a license error. To I need for eache client a licens to ship our app with this feature or is...
Hi
CR v.9 - I'm using memofield from a vfp-dbf in a report like that:
Page Header a
Suppress if dbf.item="xyz"
anbot.text(memo)
Page Header b
textobj
Page Header b
anbot.kurztxt(text)
Details a
fieldobj
Details b
fieldobj
Details c
Suppress if...
Hi All,
trying to create a table like that:
CREATE TABLE UPDATE (start t(8),;
describtion c(50) PRIMARY KEY ,;
KEY n(8.2))
first error, index to long
so, I cut describtion to describtio
Now I like to make the index-expression
ALLTR(describtion)?
where and how must I use this
tia
Ronald
Hi,
I have to alter a database and add a table
when deliver the next update.
Now I need a procedure to check if the table xy.dbf is availably if not create one.
My problem is how to check?
tia
Ronald
Hi All,
I try to let the user updated theapp.exe automatically.
In the app.exe I have a form "updated" where he can download a file app.zip from our webserver.
The app.zip will be downloadet via ftp and then unziped in a tempdir -that works-.
Now I need to rename the old app.exe to...
Hi All,
in the header area I print the address of a client like:
titel
name1
name2
zip country
if name2 is empty I like to suppress this line is that possible?
tia
Ronald
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.