memo fields problem...
in [Visual Objects]
|
From: Mario Schulz on 22 Apr 2010 05:55 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 22 Apr 2010 08:49 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 23 Apr 2010 02:34 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 23 Apr 2010 02:45 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 23 Apr 2010 03:02
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 > > > > |