#!/usr/bin/sqlrexec -n # # @(#) $Header$ # # >>[LM316] # Titel = Suchbez.mit Art.Text drucken # Modul = MAWI Listen # << {PRESTART} {Suchliste} {ENDE-PRESTART} set date = "%d.%m.%y"; field artteilnr display as char (16) suppress repeating values; field artsuchbez display as char (10) suppress repeating values; #field artikel.artanfdat display as date("%d.%m.%y"); #field artikel.artaenddat display as date("%d.%m.%y"); {~VARIANTE1} {AusfÏhrlicher Teil} create view pfad path artikel to textdatei where textnr = artteilnr; report select {Listfelder} artteilnr,artsuchbez,artbeza,artbezb,text,artwamon from pfad {Selektion1} where artsuchbez like "$1" order by 1 calculate sum (6) break on (1) skip 2 {Ende-Selektion1} {Selektion2} where artsuchbez like "$1" order by 3,4 calculate sum (6) break on (1) skip 2 {Ende-Selektion2} {Selektion3} where artsuchbez like "$1" order by 4 calculate sum (6) break on (1) skip 2 {Ende-Selektion3} using "LSTM316.frm"; {ENDE-VARIANTE1~} exit; {Optionen: Selektion nach Suchbezeichnung Sortierung nach Suchbezeichnung, Artikel, Bezeichnung I+II bildschirmfÌhig} {HILFE} {VK Listen-Varianten} {V1 Bitte nur mit Formular} {V2 A4HC A4 hoch 70x132 drucken} {WK Selektions-Varianten} {WV1W1 Sortierung nach Artikel} {WV1W2 Sortierung nach BezA und BezB} {WV1W3 Sortierung nach BezB} {SV1W1 Suchbez. (?: ein Zeichen | *: beliebige Anzahl Zeichen) =$1} {SV1W2 Suchbez. (?: ein Zeichen | *: beliebige Anzahl Zeichen) =$1} {SV1W3 Suchbez. (?: ein Zeichen | *: beliebige Anzahl Zeichen) =$1} {ENDE-HILFE} 19.05.93 kumulativer Teil korrigiert, berÏcksichtigt jetzt alle ! 25.06.93 Dritte Variante eingefÏhrt, Sortierung geÌndert. 05.10.93 Kosmetik 23.08.01 Systemdatum korrigiert - FU %% Liste Suchbezeichnung: @2 M316 Datum: $date Seite: $page Artikel-Nr Bezeichnung A Bezeichnung B Artikeltext ________________ ____________________ ____________________ ________________________________________________ %%Kopfende @1 @3 @4 @5 %%Ende %%