**********************************************************

* ab_kuda ist ein zustazprogramm f€r flex_db

*

* flex_db ist das flexible danverwaltungsprogramm

* von hado hein,*

* (c) 1991 by hado hein

*

* ab_kuda ist f€r kundenabfragen aus der dbf kuda

*

* alle nicht hier benutzten func/proc sind in startup

*

*

**********************************************************

*

progteil="Kundenabfrage"

do frame

private s_typ,s_firma,ende

store space(40) to s_typ,s_firma

store .f. to ende

*

do while !ende

 do sucheing

 do case

    case !empty(s_typ) .and. empty(s_firma)

	suche=trim(upper(s_typ))

	set order to 2

	seek suche

	set order to 1

	if !found()

	  do lauf with 11," Nicht vorhanden ... "

          ende=.t.

	else

	  do ku_disp

          do reak1

	  ende=.t.  

	endif

    case empty(s_typ) .and. !empty(s_firma)

	suche=trim(upper(s_firma))

	seek suche

	if !found()

	  do lauf with 11," Nicht vorhanden ... "

          ende=.t.

	else

	  do ku_disp

	  do reak1

	  ende=.t.  

	endif

    case !empty(s_typ) .and. !empty(s_firma)

	suche=trim(upper(s_typ))

	set order to 2

	seek suche

	set order to 1

	if !found()

	  do lauf with 11," Nicht vorhanden ... "

          ende=.t.

	elseif found() .and. trim(upper(s_firma)) =;

			trim(upper(firma))

	  do ku_disp

	  do reak1

	  ende=.t.  

	endif

    otherwise

	ende=.t.

 endcase

enddo

return 







***************************************

* gott steh mir bei

*

*

proc sucheing

do norm

@ 07,10 say "Firma           :"

@ 07,36 get s_firma

@ 09,10 say "Typ             :"

@ 09,36 get s_typ

read

*

*

***************************************

*

* proc reak1

*

* nach dem ku_disp kann man so direkt auw€hlen was nun passieren

* soll

*

* ------- just to remember

* ku_disp hat bis einschl. zeile 14 geschrieben ...

* und die untere begrenzung liegt bei zeile (max) 21

*

procedure reak1

private reak



@ 15,25 prompt "        Zum Hauptmenue        "

@ 16,25 prompt "    Kundendaten editieren     "

@ 17,25 prompt "    Artikeldaten editieren    "

@ 18,25 prompt "    Notiz-Zettel editieren    "

@ 19,25 prompt "Bestellung  Eingeben & Drucken"

menu to reak

if lastkey()=27

   return

endif

do case

   case reak=1

    return

   case reak=2

    do dbed_ku

   case reak=3

    select 2

      if !eof()

	do ed_ar

      else

	@16,25 clear to 19,56

	do blink

	do cout with 17,"Keine Artikeldaten vorhanden."

	do wt

      endif

   case reak=5

    do best with recno()

   case reak=4

    do memedit

endcase

return

*€