[RKabis]

Hallo,

bevor ich mir meine Programmierung zerhackstückle; ist einfach zu lange her:
Bekomme den String nicht mehr auf die Reihe.

ok=memoinsert(wvdaten3,'notiz',wvdaten3.l_kon&'; '&wvdaten2.erfolg,1)

Was bedeutet denn die 1 am Ende?

Und dann, ist es eigentlich möglich, ein Textfeld als Variable zu nutzen, das dann in einem Hilfsfenster aufgerufen, geändert und auch an das Memofeld übergeben wird?

Gruß Rainer

[waldbauer.com]

Beim MEMOINSERT beudeuted die 1 daß du die Daten in die 1 Zeile des Memos schreibst.

Wenn du mehr Daten per Programmierer in das MEMO schreiben willst habe ich eine super Lösung:

local window meld=size 30 by 3 at 23,6 framed
local window mup=top 1 in meld mode error
local window mdown=bottom 1 in meld mode title

local str txtdatei = "main:memot.txt"
local int mhh=0

ATTACH 'FILE'
local int ANTWORT = CALL ( 'KILL' , 'MAIN:MEMOT.TXT' , FALSE )
DETACH 'FILE'

local view mh=from katmemo where an=ltext.an
use mh
mhh = memoheight(mh,'memofeld')
if mhh > 0
ok = memowrite(mh,'memofeld',txtdatei)
end if

macro memot
screen meld
put in mup;put at 1,1 "Die Änderungen übernehmen ?" filled
put in mdown;put at 1,1 "<Nein> <Ja> <ESC>" filled
put in meld
put at 9,1
menu
:"Nein":
:"Ja":
ok = memoload(mh,'memofeld',txtdatei)
replace mh
end menu
end screen
use mh end

Das Programm lädt den Inhalt aus einem MEMO der Datenbank in eine lokale Textdatei zum Bearbeiten. Die kann man dann mit dem Editor ganz normal ansehen und durch F10 wieder automatisch zurück in das MEMO schreiben lassen.

Das Makro MEMOT enthält:

<desk>n <menü>l <ret>memot.txt <ret>

[RKabis]

Hallo Günter,

danke, möchte Deinen Code gerade mal testen.

Brauche nur noch kurzes Feedback

local view mh=from katmemo where an=ltext.an

Was sind

an

und

 ltext.an

für Felder?

Gruß Rainer

[waldbauer.com]

Das sind Felder aus meiner Datenbank, die mußt du natürlich an deine anpassen. Das wichtige ist dabei jeodch nur, daß die Datenbank ein MEMOFELD enthält. Wie du die Abfrage gestaltest bleibt dir überlassen.

[RKabis]

Sorry, unglücklich formuliert.

Meine Frage ist, welche Attribute haben die Felder und ist die Bedingung zwingend für die Funktion?

[waldbauer.com]

Nein - die Funktion ist nicht Bedingung. Du kannst sie auch komplett umändern. Die Funktion macht folgendes - siehe Bilder:

[RKabis]

Klasse, klappt auch.

Kennst Du auch noch eine Möglichkeit den Notizblock in einer anderen Größe darzustellen?

Da ich manche Memofelder in Druckmasken verwende sollte es eine bestimmte Breite nicht übersteigen.