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

*

*

* procedure service

* f€r flex_db von hado hein

* (c) hado hein 1991

*

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

progteil="Service"

if masterbed

 do ssc

 @ 10,30 prompt "Hauptmenue   "

 @ 11,30 prompt "Masterbed .f."

 @ 12,30 prompt "REINDEX      "

 @ 13,30 prompt "SYS-Status   "

 @ 14,30 prompt "Hilfetexte   "

 menu to eing

do case

   case eing=3

    do reind

   case eing=2

    masterbed=.f.

   case eing=4

    do systat

   case eing=5

    do help_edit

endcase

endif

return

*

*

*

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

* system-status-display f€r flex-db

*

*(C) hado hein

*    XXXoutdatedXXXstra€XXXoutdatedXXX, 4000 d€sseldorf 30

*    0161-XXXoutdatedXXX

*

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

* 4,1 to 21,78 ist der disp-bereich -- just to remember

*

procedure systat

progteil="SYS-DAT"

do ssc

do hell

@ 4,10 say "Lizenzname    : "+sv_lna

@ 5,10 say "Lizenzadresse : "+sv_lad

@ 7,10 say iif(sv_shliz,"Vollversion","TESTVERSION")+" | "+;

           iif(sv_datacheck,"Netzwerk","Einzelplatz")

@ 9,10 say "Kundendatenbank :"

@09,29 say alltrim(str(reccount()))+" Datens€tze"

@12,10 say "Artikeldatenbank :"

select 2

@12,29 say alltrim(str(reccount()))+" Datens€tze"

select 1

@15,10 say "Letzte Datenver€nderung am : "+dtoc(lupdate())

@17,10 say "DRUCKER : "+dr_name+" an "+sv_drucker

do wt

return

*

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

*

* help_Edit f€r flex_db

*

* hado hein, spichenstra€XXXoutdatedXXX, 4000 d€sseldorf 30

* 0211-XXXoutdatedXXX / 0161-XXXoutdatedXXX

*

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

procedure help_edit

progteil="HELP_Edit"

store space(15) to e_progt

if flog()

	do ssc

	@ 12,10 say "Bitte geben Sie den Programmteil ein :"

        @ 14,10 get e_progt

	READ

	select 3

	such = trim(upper(e_progt))

	seek such

	 if eof() .or. !found()

	  do lauf with 16,"Diesen Programmteil gibt es nicht"

	  select 1

	  return

	 endif

	do inv

	@ 5,1 clear to 21,78

	@ 5,1 to 21,78 double

	do hell

	h_text = MEMOEDIT(text,6,3,20,77,.t.,"ed_m_func",73,4)

	if rlog()

	 replace text with h_text

	 commit

	 do relog

	endif

	select 1

endif

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

function ed_m_func

parameters modus,z,sp

private rg

rg = 0

*

* rg = rueckgabewert

*  z = zeile

* sp = spalte

*

taste=lastkey()

do inv

@ 21,60 say iif(readinsert()," EINF€GEN ","€BERSCHR. ")

do hell

do case

   case modus > 0

	if taste = 22

	   do inv

	   @ 21,60 say iif(readinsert(),"€BERSCHR. "," EINF€GEN ")

	   rg = 22

	   do hell

	endif

endcase



if taste = 27

   rg = 23

endif



return rg€