# >>[LE503]
# Titel       = Eingangslieferscheine
# Modul       = Einkauf Listen
# Rev         = $Revision$
# <<

{PRESTART}
{Suchliste}

{ENDE-PRESTART}
set date = "%d.%m.%y";
field rpkopf.datum display as date ("%d.%m.%y");
field rpkopf.rgdatum display as date ("%d.%m.%y");
field rpkopf.nummer display as char (6) suppress repeating values;
field rpschein.lieferschein display as char (13) suppress repeating values;
field rppos.teilnr display as char (8) suppress repeating values;
field rpschein.bestellnr display as char (6) suppress repeating values;
#field lieferant.suchnam display as char (10) suppress repeating values;
#field rpkopf.rgdatum display as char (8) suppress repeating values;
{~VARIANTE1}
{AusfÏhrlicher Teil}
create view pfad path rpkopf
to rppos where identnr=identnr
to rpschein where identnr=identnr
to lieferant where lfntnr=lfntnr;
report select
 {Listfelder}
nummer,lfntnr,suchnam,lieferschein,rprgnr,rgdatum,teilnr,endbetrag,bestellnr
from pfad
 {Selektion1}
 where nummer >= "$1" and nummer <= "099999" and teilnr >"100"
order by 1,7,4
calculate
#count(nummer) break on (lieferschein) page 
#sum(endbetrag) 
break on (nummer) page
#group by nummer;
{Ende-Selektion1}
{Selektion2}
 where lfntnr ="$7"
order by 1,7
calculate
sum(endbetrag) break on (nummer) page
{Ende-Selektion2}
{Selektion3}
{Ende-Selektion3}
using "LSTE503.frm";
{ENDE-VARIANTE1~}
exit;
{Optionen: Selektion nach Suchbezeichnung
           Sortierung nach Suchbezeichnung, Artikel, Bezeichnung I+II
           bildschirmfÌhig}
 {HILFE}
 {VK      Listen-Varianten}
 {V1      Eingangslieferscheine}
 {WK      Selektions-Varianten}
 {WV1W1   RechnungsprÏfungsnummer}
 {WV1W2   Lieferant}
 {SV1W1   grÎÞer Re.-PrÏfnummer = $1}
 {SV1W2   Lieferant          = $7}
 {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
29.09.00 Systemdatum korrigiert - FU