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

* ab_art ist ein zustazprogramm f€r flex_best

*

* flex_best ist das flexible bestell-programm

* (c) 1991 by hado hein

*

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



progteil="Artikelabfrage"

do frame

private s_art_nr,s_name1,ende

store space(10) to s_art_nr

store space(40) to s_name1

store .f. to ende



select artikel



do while !ende 

 do sucheing

	if lastkey() = 27

	ende=.t.

	endif

 do case

    case !empty(s_art_nr) .and. empty(s_name1) .and. !ende

	suche=trim(upper(s_art_nr))

	set order to 1

	seek suche

	if !found()

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

          ende=.t.

	else

          do reak1

	  ende=.t.  

	endif



    case empty(s_art_nr) .and. !empty(s_name1) .and. !ende

	suche=trim(upper(s_name1))

	set order to 2

	seek suche

	if !found()

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

          ende=.t.

	else

          do reak1

	  ende=.t.  

	endif



    case !empty(s_art_nr) .and. !empty(s_name1) .and. !ende

	suche=trim(upper(s_art_nr))

	set order to 1

	seek suche

	if !found()

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

          ende=.t.

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

			     trim(upper(name1))

          do reak1

	  ende=.t.  

	endif



    otherwise

	ende=.t.

 endcase

enddo

return 







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

* gott steh mir bei

*

*

proc sucheing

do norm

@ 07,10 say "Artikelnummer   :"

@ 07,36 get s_art_nr

@ 09,10 say "Artikelname (1) :"

@ 09,36 get s_name1

read

*

*

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

*

* proc reak1

*

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

* soll

*

*

procedure reak1

private reak,end

do while !eof()

 set cursor on

 do art_disp with recno()

 do inv            &&1234567890123456789012345678901234567890123456789012345678901234567890123456789

 @ maxrow()-6,1 to maxrow()-6,maxcol()-1

 @ maxrow()-5,1 say "   F 2   |   F 3   |   F 4   |   F 5   |   F 6   |   F 7   |   F 8   |   F 9  "

 @ maxrow()-4,1 say "   EDIT     NOTIZ    ETIKETT                                                  "

 do nachricht with "<ESC> Zum Hauptmenue  /  <RETURN> n€chster Satz"

 reak=inkey(0)

 do case

    case reak=27		&& ESC - ende

	return

    case reak=13		&& RETURN - n€chster Satz

	go recno()+1

    case reak=-1		&& F2 - ed_art

	do ed_art with recno()

    case reak=-2		&& F3 - ed_memo

	do ed_memo with recno(),"ARTIKEL"

*    case reak=-3		&& F4 - pr_art_eti

*	do pr_art_eti

 endcase

enddo

return

*

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

* proc ed_art

* edit & display artikel mit suchen der entsprechenden zusatzdaten

*      aus den div. anderen dbf's

* aber nur edit f€r die artikel-felder

*

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

*

*

*

proc ed_art

parameter rec

do ssc

savee()

select artikel

do art_disp with rec

select artikel

go rec

do hell

n_vk=vk

n_name1=name1

n_name2=name2

n_lief_1=lief_1

n_lief_2=lief_2

n_lief_3=lief_3

n_lief_4=lief_4

n_lief_5=lief_5

@ 7,10 GET n_vk picture "@K"

@ 6,35 GET n_name1 picture "@K"

@ 7,35 GET n_name2 picture "@K"

@ 9,19 GET n_lief_1 picture "@K"

@10,19 GET n_lief_2 picture "@K"

@11,19 GET n_lief_3 picture "@K"

@12,19 GET n_lief_4 picture "@K"

@13,19 GET n_lief_5 picture "@K"

READ

*

*

* eingabe kontrolle

*

*

replace vk with n_vk

replace name1 with n_name1

replace name2 with n_name2

replace lief_1 with upper(n_lief_1)

replace lief_2 with upper(n_lief_2)

replace lief_3 with upper(n_lief_3)

replace lief_4 with upper(n_lief_4)

replace lief_5 with upper(n_lief_5)



reste()

return



€