From: Mario Schulz on
Hi,

VO 2.6
DBFCDX/FTP

i have a problem with one table and their memofields...

the table contains NOTIZEN, VERLAUF, ARBEIT as Memofield for example..

on one record i save a text in the field "VERLAUF"..

on some other records now the same data contains exactly the same text
in the field "NOTIZEN" or "ARBEIT" ...

no linked server with datawindow or something like that..

CC_OPTIMISTIC is off.

anyone an idea ?

thanks,

Mario



From: Stephen Quinn on
Mario

Show the relevant code involved (read & write) - useless guessing otherwise.

Where is the data coming from??
How are you writing it??
Are you commiting after writing??
Are you clearing any variables used after writing??

Are your indices corrupt??

CYA
Steve


From: Mario Schulz on
Hi Geoff, Hi Stephen,

here is the code :

IF cWie == "NEU"
oKopf:Append()
cBeleg := x_NewNumber("","A") //StrZero(NewNumber("AUFTRAG"),6)
oKopf:Beleg := cBeleg
oKopf:Verlauf := PadR("Anlage am " + DToC(Today()) + " um " + Time()
+ " PC " + ComputerName() + " / User " + _GetUser(),80)
ENDIF

IF oKopf_Page != NIL
cBezeich2 := oKopf_Page:Owner:odcBezeich2:TextValue
cKopf := oKopf_Page:odcKopf:TextValue
cFuss := oKopf_Page:odcFuss:TextValue
nZahlbed := oKopf_Page:odcZahlbed:Value

ENDIF

Default( @cBezeich1, "" )


oKopf:NLOCK()

IF cWie != "NEU"
oKopf:Verlauf += CRLF+PadR("�nderung am " + DToC(Today()) + " um " +
Time() +"/"+AllTrim(Str(oKopf:Netto))+ " PC " + ComputerName() + " /
User " + _GetUser(),80)
ENDIF



hope it helps,

Mario

>

From: Karl Faller on
Mario,
that's still a lot to guess. oKopf:Nlock should be Unlock? Then wheres
the lock? Where's the commit?
BTW, i'd seriously consider a table redesign...

Karl

>Hi Geoff, Hi Stephen,
>
>here is the code :
>
>IF cWie == "NEU"
> oKopf:Append()
> cBeleg := x_NewNumber("","A") //StrZero(NewNumber("AUFTRAG"),6)
> oKopf:Beleg := cBeleg
> oKopf:Verlauf := PadR("Anlage am " + DToC(Today()) + " um " + Time()
>+ " PC " + ComputerName() + " / User " + _GetUser(),80)
> ENDIF
>
> IF oKopf_Page != NIL
> cBezeich2 := oKopf_Page:Owner:odcBezeich2:TextValue
> cKopf := oKopf_Page:odcKopf:TextValue
> cFuss := oKopf_Page:odcFuss:TextValue
> nZahlbed := oKopf_Page:odcZahlbed:Value
>
> ENDIF
>
> Default( @cBezeich1, "" )
>
>
> oKopf:NLOCK()
>
> IF cWie != "NEU"
> oKopf:Verlauf += CRLF+PadR("�nderung am " + DToC(Today()) + " um " +
>Time() +"/"+AllTrim(Str(oKopf:Netto))+ " PC " + ComputerName() + " /
>User " + _GetUser(),80)
> ENDIF
>
>
>
>hope it helps,
>
>Mario
>
>>
From: Geoff Schaller on
Mario.

You are making me shiver... Like Karl, I would say there is too much
missing for us to guess at what is going on.

Do yourself a favour. In the App start try this:

oServer := MyServer{...}
oServer:Append()
oServer:field1 := .....
....etc.
oServer:Commit()
oServer:Close()

Now inspect the server to see that things worked.
Use ccOptimistic at first and turn it off later, if you really must.
That way you can avoid lock/unlock issues. Add complexity as you go.

Geoff



"Mario Schulz" <info(a)removethiswegenspamconcept-dv.de> wrote in message
news:hqrf16$p4$1(a)online.de:

> Hi Geoff, Hi Stephen,
>
> here is the code :
>
> IF cWie == "NEU"
> oKopf:Append()
> cBeleg := x_NewNumber("","A") //StrZero(NewNumber("AUFTRAG"),6)
> oKopf:Beleg := cBeleg
> oKopf:Verlauf := PadR("Anlage am " + DToC(Today()) + " um " + Time()
> + " PC " + ComputerName() + " / User " + _GetUser(),80)
> ENDIF
>
> IF oKopf_Page != NIL
> cBezeich2 := oKopf_Page:Owner:odcBezeich2:TextValue
> cKopf := oKopf_Page:odcKopf:TextValue
> cFuss := oKopf_Page:odcFuss:TextValue
> nZahlbed := oKopf_Page:odcZahlbed:Value
>
> ENDIF
>
> Default( @cBezeich1, "" )
>
>
> oKopf:NLOCK()
>
> IF cWie != "NEU"
> oKopf:Verlauf += CRLF+PadR("�nderung am " + DToC(Today()) + " um " +
> Time() +"/"+AllTrim(Str(oKopf:Netto))+ " PC " + ComputerName() + " /
> User " + _GetUser(),80)
> ENDIF
>
>
>
> hope it helps,
>
> Mario
>
>
> >