bei Subfile wieder richtig aufsetzen

[Mr.iSeries]

Bei einem unserer Programme wird eine Subfile mit Kunden angezeigt... hier kann dann ein Kunde mit X ausgewählt werden..dann wird mit call ein anderes Programm aufgerufen welches die Kundenaufträge anzeigt... Wenn man dieses Programm wieder verlässt steht man normalerweise wieder auf dem richtigen Kunden... Hat man jedoch vorher bis zum Schluss der Subfile geblättert und danach wieder hoch um einen Kunden weiter oben auszuwählen, steht man nach dem Verlassen der Auftragsanzeige jedoch immer bei Subfileende. Wenn ich die SNR vorher wegsichere und dann mit CHAIN wieder aufsetze nützt mir das leider nichts da ja immer der höchsten Wert gespeichert ist weil schon mal bis zum Schluss geblättert wurde...Gibt es eine Lösung dass wieder beim richtigen Kunden aufgesetzt wird? Habe bis jetzt schon einiges ausprobiert aber nichts hat geklappt...

[kuempi von stein]

Hello,

ohne jetzt gross drüber nachzudenken...

man könnte die Rec.No mit in den Subfilesatz schreiben als unsichtbares Feld.
Dann hast Du bei Auswahl des Satzes mit "x" genau Deinen Wert den Du suchst...

kuempi

[Hubert]

Gib im Displayfile das Schlüsselwort SFLRCDNBR an. Vor dem nächsten Anzeigen des Subfiles schreibst Du die Record Nummer des gelesenen Satzes in das Feld, das Du mit dem Schlüsselwort SFLRCDNBR angegeben hast.

[Fuerchau]

SFLRCDNBR(*CURSOR) wäre richtiger.

[Mr.iSeries]

Das Problem ist ja nicht nur dass der Cursor falsch steht sondern dass wenn ich aus dem 2. Programm wieder zurückkomme auf SFLEND platziert wird wenn der Andwender einmal die subfile bis zum letzten Satz durchgeblättert hat, dann wieder nach oben und etwas ausgewählt hat. Das mit der Recordnumber funktioniert alles einwandfrei jedoch nur wenn nicht zum ende geblättert wurde.

Die Subfile besteht aus jeweils 4 Sätzen (SFLPAG)
Wenn im letzen bild aber nur noch 2 Sätze stehen kann ich auch nicht bei PAGEUP 4 abziehen...

[Fuerchau]

Der READC liefert dir doch die SFLRCD (F-Bestimmung).
Diese Satznummer musst du in das SFLCTL-Feld übertragen dessen Markierung SFLRCDNBR enthält.

[Mr.iSeries]

klappt soweit jetzt und er positioniert nach verlassen des 2. PGMs auch wieder richtig... jedoch kommt er dann beim Blättern durcheinander... Er fängt beim Subfileende immer wieder wenn die PAGEDOWN taste gedrückt wird von vorne an und zeigt mir die erste Seite... Ist wie ne Endlosschleife... obwohl bei der letzten Ende und nicht weitere dortsteht.

[Fuerchau]

Auch hier übernimmt scheinbar das Programm selber die Steuerung ?
Reagierst du im Programm auf die Blättertasten ?
Es kann ja sein, dass das Blättern so gewünscht wurde.

[Mr.iSeries]

das Programm hat selbst die Steuerung...
das Problem ist dass ich ja jeweils 4 Sätze pro Seite auf einer Seite habe und beim Blättern werden ja immer 4 auf die SNR draufaddiert... wenn dann der Benutzer einen Satz mit X auswählt und ich einen READC macht habe ich z.B. 7 in der SNR... wenn ich dann vom 2. Programm zurückkomme hat er ja immer noch 7 und addiert wieder 4 drauf. wenn die SFL aber insgesamt z.B. 46 Sätze hat findet er dann anscheinend kein Ende... wenn ich anstatt dessen wenn ich aus dem 2. Programm zurückkomme gleich 46 in SNR übertrage (zuvor gesichert) dann steht er am Ende der Subfile (wird vom Benutzer jedoch nicht gewünscht...
solange der Benutzer vor Aufruf des 2. PGMs nicht zu SFL-Ende geblättert hat läuft alles wunderbar.

[Fuerchau]

Die Anzahl der Sätze, die du füllst, ist dir ja bekannt.
Da du beim READC die letzte bearbeitete SNR merken kannst, kannst du das blättern darüber steuern.
Gibt ein READC direkt EOF, machst du eben auch nichts.
Die Grenzen (> Ende und < 1) musst du natürlich abfragen und entsprechend reagieren.

Du kannst es dir aber auch ganz einfach machen, in dem du den PAGE-/ROLL-Tasten keine Bezugszahl zuordnest, dann blättert das System für dich automatisch und gibt auch entsprechende Fehlermeldungen aus.

Nur die SNR des READC ist dann für die Positionierung erforderlich.

[Mr.iSeries]

PAGEDOWN(99 'BILD AB')
oder
89 PAGEDOWN(99 'BILD AB') ???

wenn ich pagedown komplett weglasse kann ich überhaupt nicht blättern.

Ist ein ziemlich altes Programm... wenn die PAGEDOWN taste gedrückt wird geht er zum lesen zurück.

Es ist immer ein Do 4 drin.

Muss das eigentlich gemacht werden?
Reicht es nicht wenn SFLSIZ = SFLPAG?

im moment ist SFLSIZ > SFLPAG

[Fuerchau]

Einfach nur PAGEUP und PAGEDOWN ohne weitere Angaben (Text erfordert Bezugszahl).

Wenn SFLSIZ = SFLPAG, dann musst du selber blättern, wenn SFLSIZ > SFLPAG kann das System dies übernehmen.

Wofür ein "do 4" ???