Flex: Variablen in Formular belegen - Satz wird gelb

[Sibylle Koczian]

Lieber Herr Eversberg,

At 15:37 01.07.03 +0200, you wrote:
>On 1 Jul 03, at 15:17, Sibylle Koczian wrote:
>
> > folgendes faellt mir auf: in einem Eingabe-Flex wird zuerst ein Formular
> > nur mit Anwendervariablen belegt. Wenn und nur wenn dieses Formular normal
> > mit "Ende" abgeschlossen wird, wird mit "new" ein neuer Satz begonnen und
> > die Anwendervariablen werden, zusammen mit Daten des aktuellen Satzes, in
> > den neuen Satz transportiert.
> >
>Da muessten Sie schon den FLEX mitsenden. Es entsteht der Eindruck, dass der
>"new"-Befehl erst hinter dem "form"-Befehl folgt. Das ist logisch falsch.
>Vielleicht machen Sie zuerst "copy", dann "form".

Erst "form", aber in diesem Formular werden _nur_ Anwendervariable belegt. 
Dann "new" und diverse Transfer-Befehle, und dann noch mal "form", jetzt 
wird der Datensatz bearbeitet.

Ueber "Copy" muesste ich mal nachdenken, vielleicht wuerde das 
Transfer-Befehle sparen. Das Formular mit den Anwendervariablen brauche ich 
aber in jedem Fall (und es soll sich auch moeglichst wenig, besser nichts 
an der Bedienung aendern).

Der komplette Flex und die relevanten Formulare sind hier:

   INPUT.FLX : Auswahl des Satztyps, Start des Formulars
   2002-02-15

if diff perform doput

var N
ins #utN

var #utY
if "Z" jump Z
new
show rec
if "M" jump M
if "B" jump B
if "b" jump b
if "p" jump p


:Z
    * Musterpappen-Satz in der Anzeige? Dann Signatur nach #uwG

variable ""
insert #uwG
insert #uvG
variable #00
if not "m" jump anf
variable #80
insert #uvZ
variable #10
insert #uvG
variable #uvG "|"
insert #uwG
:anf
variable "|2Grundsignatur=" #uvG
ask
if cancel jump gsleer
if "" jump gsleer
insert #uvG
var #uvG "|"
if =#uwG jump neu
variable "GSG " #uvG(B"/" e"-") "? and PPN m?"
choose
if l1 jump gsnix
load
if cancel jump gsnix
if "" jump gsnix
:neu
    #uvN1
form NeuVars
undo                                 <-------- neu eingebaut - das 
verhindert das Vergilben, aber ist es gut so?
if cancel jump ende
new
show rec
transfer #00
insert #09
transfer #10
variable +"-" #uvB
insert #10
transfer #20
insert #20
transfer #25
variable +"*" #uvB" "*" #uvJ
insert #25
transfer #15
insert #15
transfer #30
insert #30
transfer #40
insert #uvE
variable #uvE(e"")
insert $$-#40
variable #uvN
insert $n-#40
variable #uvA
insert $b-#40
variable "b3"
insert $a-#40
variable #uvZ
insert #80
form Einheit
jump check

:M
input 250
form Musterpappe
jump check
end

:B
variable "1"
insert $n-#40
form Einheit
jump check

:b
input 254
form Buchbinder
jump check

:p
input 254
form Preis
jump check

:check
var k0
if ="0" jump ex
jump speich

:gsleer
message "Keine Grundsignatur angegeben!"
jump ende

:gsnix
variable "Grundsignatur " #uvG " nicht gefunden "
variable +"oder kein Eintrag ausgew„hlt!" n
variable +"Musterpappen-Eintrag neu anlegen? "
variable +"(Nein: Signatur korrigieren, Abbrechen: Funktion abbrechen)"
ansi
yesno
if yes jump M
if no jump anf
jump ende

:speich
yesno Speichern? (Nein=weiter bearbeiten, Abbruch=verwerfen)
if c jump ex
if no jump ende
if y perform doput
jump ende
:ex
erase

:ende
var #utN
input
perform VarDel
   display
   show rec
end

:VarDel
variable ""
insert #uvA
insert #uvB
insert #uvJ
insert #uvG
insert #uvN
insert #uvZ
insert #uwG
insert #utN
return

:doput
if not #30 jump sp
variable #30(f"e")
insert #30
variable #30(5,1)
if not "" jump sp
variable #30 "000000"
insert #uvH
variable #uvH(0,6)
insert #30
variable ""
insert #uvH
:sp
put
display
show rec
variable "Satz drucken?"
yesno
if no return
show print
print
display
return

*** Formular ***

[Einheit]
<00 t?6
#10 "Signatur"|2
#25 "Prägung"|5
#80 "Bemerkungen"|Vbem
$n-#40 "Einheiten"
#30 "Etat"|Vetat
$$-#40 "Bibl.Ersch.form"|Vtyp
$b-#40 "Antiquarisch? (j)"
#15 "Buchbinder"|Vbbf
#20 "Titel"|5
$a-#40 "Bindeart"|Vart
#42 "Preis"
$$-#12 "Auftragsnr"
$d-#12 "Auftragsdatum"

[NeuVars]
<uvN1
#uvB"Bandnummer"
#uvJ"Jahrgang"
#uvZ"Bemerkungen"|Vbem
#uvN"Einheiten"
#uvA"Antiquarisch? (j)"
#uvG"Grundsignatur"|2g

Danke und beste Gruesse, Koczian


Dr. Sibylle Koczian
Universitaetsbibliothek, Abt. Naturwiss.
D-86135 Augsburg

Tel.: (0821) 598-2400, Fax : (0821) 598-2410
e-mail : Sibylle.Koczian at Bibliothek.Uni-Augsburg.DE