waldbauer.com - Textfeld als Variable für Übernahme in Memofeld

waldbauer.com (http://www.waldbauer.com/vb/index.php)

- SPI OA4 Open Access II/III/IV (2,3,4) Anwender Forum (http://www.waldbauer.com/vb/forumdisplay.php?f=57)

- - Textfeld als Variable für Übernahme in Memofeld (http://www.waldbauer.com/vb/showthread.php?t=2114)

Textfeld als Variable für Übernahme in Memofeld

Hallo,

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

Code:

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

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:

Code:

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:

Code:

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

Hallo Günter,

danke, möchte Deinen Code gerade mal testen.

Brauche nur noch kurzes Feedback

Code:

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

Was sind

Code:

an

und

Code:

ltext.an

für Felder?

Gruß Rainer

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.

Sorry, unglücklich formuliert.

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

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

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.