Home > Archive > Clipper > February 2008 > Error 5304
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
| Eckhard Sallermann 2007-12-24, 3:55 am |
| Hi *,
i have a database, setting a scope on an existing index ( Comix )
now i create an index wich fails on the first record with Error 5304.
the ExeFile ist very smal, only for testing, it 4 w s ago it works fine,
and now i get this error.
would be great if someone could help me
cmxsetscope( 0 , str(37111,5)+descend(dtos(ctod("30.11.2007"))) )
cmxsetscope( 1 , str(37111,5)+descend(dtos(ctod("01.11.2007"))) )
dbgotop()
index on kstfunc() to ( "D:\IDXs89" ) for kstfor(2) additive while !eof()
..and. !nextkey() = 27
return
function kstfunc()
if auftrag->kkoststell > 0
kstelle->(dbsetorder(1))
kstelle->(cmxsetscope( 0 , str(auftrag->knr,5) ))
kstelle->(cmxsetscope( 1 , str(auftrag->knr,5) ))
kstelle->(dbgotop())
kstelle->(cmxkeygoto( auftrag->kkoststell ))
rueck := str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
kstelle->(cmxsetscope( 0 , str(auftrag->knr,5) ))
kstelle->(cmxsetscope( 1 , str(auftrag->knr,5) ))
kstelle->(dbgotop())
else
rueck := str(knr,5)+space(30) + dtos(auftrag->rechdat)
endif
return ( rueck )
function kstfor( p_art )
if !auftrag->aufart=5 .and. ;
!auftrag->rechnr=0 .and. ;
!auftrag->storno .and. ;
empty(auftrag->wabrnr)
return .T.
else
return .F.
endif
| |
| Eckhard Sallermann 2007-12-24, 3:55 am |
| when ethe function returns a string without a date like
> rueck := str(knr,5)+upper(kstelle->ksnummer)
it works fine
"Eckhard Sallermann" <ecki@bur-kg.de> schrieb im Newsbeitrag
news:fknpp1$t0s$1@registered.motzarella.org...
> Hi *,
>
> i have a database, setting a scope on an existing index ( Comix )
> now i create an index wich fails on the first record with Error 5304.
> the ExeFile ist very smal, only for testing, it 4 ws ago it works fine,
> and now i get this error.
>
> would be great if someone could help me
>
> cmxsetscope( 0 , str(37111,5)+descend(dtos(ctod("30.11.2007"))) )
> cmxsetscope( 1 , str(37111,5)+descend(dtos(ctod("01.11.2007"))) )
> dbgotop()
> index on kstfunc() to ( "D:\IDXs89" ) for kstfor(2) additive while !eof()
> .and. !nextkey() = 27
> return
>
>
> function kstfunc()
> if auftrag->kkoststell > 0
> kstelle->(dbsetorder(1))
> kstelle->(cmxsetscope( 0 , str(auftrag->knr,5) ))
> kstelle->(cmxsetscope( 1 , str(auftrag->knr,5) ))
> kstelle->(dbgotop())
> kstelle->(cmxkeygoto( auftrag->kkoststell ))
> rueck := str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
> kstelle->(cmxsetscope( 0 , str(auftrag->knr,5) ))
> kstelle->(cmxsetscope( 1 , str(auftrag->knr,5) ))
> kstelle->(dbgotop())
> else
> rueck := str(knr,5)+space(30) + dtos(auftrag->rechdat)
> endif
> return ( rueck )
>
>
> function kstfor( p_art )
> if !auftrag->aufart=5 .and. ;
> !auftrag->rechnr=0 .and. ;
> !auftrag->storno .and. ;
> empty(auftrag->wabrnr)
> return .T.
> else
> return .F.
> endif
>
| |
| Eckhard Sallermann 2007-12-24, 3:55 am |
| and again, (using Clipper 5.2e)
function kstfunc() returns
rueck := str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
i get Error 5304
returning this
rueck := str(knr,5)+upper(kstelle->ksnummer)+space(5) +
dtos(auftrag->rechdat)
works without any error, only setting space(5) resolves the problem ?!?!?!?!
any ideas ???
"Eckhard Sallermann" <ecki@bur-kg.de> schrieb im Newsbeitrag
news:fknqos$172$1@registered.motzarella.org...
> when ethe function returns a string without a date like
>
>
> it works fine
>
>
> "Eckhard Sallermann" <ecki@bur-kg.de> schrieb im Newsbeitrag
> news:fknpp1$t0s$1@registered.motzarella.org...
>
>
| |
|
| On Dec 24, 1:54=A0am, "Eckhard Sallermann" <e...@bur-kg.de> wrote:
> and again, (using Clipper 5.2e)
>
> function kstfunc() returns
>
> rueck :=3D str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
>
> i get Error 5304
>
> returning this
>
> rueck :=3D str(knr,5)+upper(kstelle->ksnummer)+space(5) +
> dtos(auftrag->rechdat)
>
> works without any error, only setting space(5) resolves the problem ?!?!?!=
?!
>
> any ideas ???
I don't find your usage consistent with the syntax of the commands
used.
http://www.ousob.com/ng/cmx/ngf99f.php
David A. Smith
| |
| Eckhard Sallermann 2008-01-02, 7:55 am |
| i donīt know what you mean ???
"dlzc" <dlzc1@cox.net> schrieb im Newsbeitrag
news:bc6a3944-6057-4d60-9e2f-32d42eca2c5d@x29g2000prg.googlegroups.com...
On Dec 24, 1:54 am, "Eckhard Sallermann" <e...@bur-kg.de> wrote:
> and again, (using Clipper 5.2e)
>
> function kstfunc() returns
>
> rueck := str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
>
> i get Error 5304
>
> returning this
>
> rueck := str(knr,5)+upper(kstelle->ksnummer)+space(5) +
> dtos(auftrag->rechdat)
>
> works without any error, only setting space(5) resolves the problem
> ?!?!?!?!
>
> any ideas ???
I don't find your usage consistent with the syntax of the commands
used.
http://www.ousob.com/ng/cmx/ngf99f.php
David A. Smith
| |
|
| On Jan 2, 6:36=A0am, "Eckhard Sallermann" <e...@bur-kg.de> wrote:
>
> "dlzc" <dl...@cox.net> schrieb im Newsbeitragnews:bc6a3944-6057-4d60-9e2f-=
32d42eca2c5d@x29g2000prg.googlegroups.com...
> On Dec 24, 1:54 am, "Eckhard Sallermann" <e...@bur-kg.de> wrote:
=2E..
>
>
>
>
>
>
>
>
> I don't find your usage consistent with the syntax of
> the commands used.
>
> http://www.ousob.com/ng/cmx/ngf99f.php
> i don=B4t know what you mean ???
I guess I was just not used to looking at Comix syntax. I see some
irregularities...
<LINES OF YOUR CODE>
cmxsetscope( 1 , str(37111,5)+descend(dtos(ctod("01.11.2007"))) )
rueck :=3D str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
rueck :=3D str(knr,5)+space(30) + dtos(auftrag->rechdat)
<END>
The first callout describes the "lowest" matching index key value.
The key value specified is 13 characters long.
The other two are values sent into the index for the current record.
The key value returned is 13 + len(kstelle->ksnummer) to 43 characters
long
The first callout has date in descend order, the others do not.
The first callout has string length of about 13 chars, at least one of
the other two do not.
But I don't see what would cause this 5304 error.
What size is the database (records and bytes), what size is the index
file (if you ever get one created), and what operating system are you
running on?
David A. Smith
| |
| AUGE_OHR 2008-01-02, 6:55 pm |
| hi,
> rueck := str(knr,5)+upper(kstelle->ksnummer) + dtos(auftrag->rechdat)
> else
> rueck := str(knr,5)+space(30) + dtos(auftrag->rechdat)
IndexKey() must have allways the same Lenght
greetings by OHR
Jimmy
| |
|
|
| Admoence 2008-02-12, 4:48 pm |
| [url]http://www.BestGBlog.com/Play?id=726071[/url] |
|
|
|
|