PROCEDURE MENUF
* menuf: menue-programm bestattungen
do while .t.
do hpar
do eurov                                && ****EURO
//31.05.2025 20:43 PUBLICS kopiert von KSO.prg:
//+02.06.2013 22:38 vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
PUBLIC cPCName := NetName(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Control\ComputerName\ComputerName", "ComputerName")  //+02.06.2013 18:15
PUBLIC cUserName := NetName(HKEY_CURRENT_USER, "Volatile Environment", "USERNAME")  //+02.06.2013 18:15
PUBLIC cPCNr := ""		//+15.12.2020 16:29 wird in Datei() gef�llt anhand der TextXX-Felder in der arb.dbf<><><><><><><><><><><><><>
//+16.11.2022 09:25 f�r die html-Briefe:
PUBLIC cBU1 := "Beerdigungsinstitut"
PUBLIC cBU2 := "Karl Schumacher e.K."
PUBLIC cBU3 := "Zentrale"
PUBLIC cBU4 := "Vestische Stra�e 146"
PUBLIC cBU5 := "46117 Oberhausen"
PUBLIC cBU6 := "0208 690480"
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
** do bild
   prog=" "
***************************
*melinks
za00="                                        "
za01="    BESTATTUNGSVERWALTUNG - SCHUMACHER  "
za02="                                        "
za03="           Vestische Stra�e 146         "
za04="             46117 Oberhausen           "
za05="                                        "


za06="    [   H A U P T A U S W A H L   ]       "
za07="                                          "
za08="      1  Verwalten der Daten              "
za09="      2  �bersichten / Statistiken        "
za10="      3  Korrespondenz                    "
za11="      4  Formulardruck                    "
za12="      5  Terminkalender                   "
za13="      6  Kassenbuch                       "
za14="      7  Archivierung                     "
za15="      8  Jahresabschlu�                   "
za16="      9  Vorvertr�ge                      "
za17="      S  Sonstige Programme               "
za18="      P  Pr�flauf                         "
za19="                                          "
za20="                                          "
za21="                                          "
za22="                                          "
za23="                                          "
za24="                                          "

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

zb00="                                        "
zb01="                                        "
zb02="                                        "
zb03="                                        "
zb04="    Version vom " + cVersionsDatum + "              "
IF cLon ="L"
   zb05="    Sie arbeiten LOKAL                  "
ELSE
   zb05="    Sie arbeiten im Netzwerk            "
ENDIF

*****************************************************************
*            ausgabe links
*****************************************************************
do hpar
*use mwstdat
k1="N"
k2="BG"

k3="W"
k4="N"
k5="W"
k6="N"
xxx = "&k1/&k2,&k3/&k4,,,&k5/&k6"
set color to &xxx

@ 0,0 say za00
@ 1,0 say za01
@ 2,0 say za02
@ 3,0 say za03
@ 4,0 say za04
@ 5,0 say za05

do hpar
*use mwstdat
k1="N"
k2="W"
*k3="W"
*k4="N"
*k5="W"
*k6="N"
xxx = "&k1/&k2,&k3/&k4,,,&k5/&k6"
set color to &xxx

@ 6,0  say za06
@ 7,0  say za07
@ 8,0  say za08
@ 9,0  say za09
@ 10,0 say za10
@ 11,0 say za11
@ 12,0 say za12
@ 13,0 say za13
@ 14,0 say za14
@ 15,0 say za15
@ 16,0 say za16
@ 17,0 say za17
@ 18,0 say za18
@ 19,0 say za19
@ 20,0 say za20
@ 21,0 say za21
@ 22,0 say za22
@ 23,0 say za23
@ 24,0 say za24

do hpar
*use mwstdat
k1="N"
k2="BG"

*k3="W"
*k4="N"
*k5="W"
*k6="N"
xxx = "&k1/&k2,&k3/&k4,,,&k5/&k6"
set color to &xxx

@ 0,40 say zb00
datum=dtoc(date())
zeile1="   "+cdow(date())
*zeile3="   "+substr(datum,1,2)+". "+cmonth(date())+" 19"+substr(datum,7,2)+"     "+time()
zeile3="   "+dtoc(date())+"     "+time()


@ 1,40 say zeile1+substr(zb01,1,36-len(zeile1)) + xdmeu + "/" + clon + " "
@ 2,40 say zb02
@ 3,40 say zeile3+substr(zb03,1,40-len(zeile3))
@ 4,40 say zb04
@ 5,40 say zb05


//-----------------------------------------------------------------------
do while .T.
prog="  "

set color to "N/W"
@ 6,40 clear
set color to &cFarbe
aMenuItems := { "1  Bestattungs-Daten          ", ;
                "2  Versicherungs-Anschreiben  ", ;
                "3  Rechnung (Eigenleistungen 1)", ;
                "4  Rechnung (Eigenleistungen 2)", ;
                "5  Aufstellung                ", ;
                "6  Adressen-Datei             ", ;
                "7  Artikel- und Leistungsdatei", ;
                "8  Lagerzug�nge       ", ;
                "9  Anzeige Kontroll-�bersicht ", ;
                "a  F�llen F9 mit Auftr-Nr     ", ;
                "s  Standard-Serie f�r Rechnung", ;
                "!, F10 oder ESC = Ende        "}

nTop := 6 ; nLeft := 42 ; nBottom := 22 ; nRight := 76
cMenuTitle := "   1  Verwalten der Daten   "
cBoxChars := " " ; cMenuColor := "W/R,GR+/B"
// "W+/B,W+/R,R/GR+,,W+/W"

SET WRAP ON

 nChoice := BoxMenu( aMenuItems, nTop, nLeft, nBottom, nRight, cMenuTitle, ;
                       , cBoxChars, cMenuColor )

prog =  IIF(nChoice<12, ltrim(str(nChoice,2,0)), "!" )
if prog<>"  "
   exit
endif
enddo
//-----------------------------------------------------------------------




do hpar
   do case
      case prog="10" .or. prog="a".or.prog="A"
                    do f9
      case prog="11" .or. prog="s".or.prog="S"
                    do prser
//      case prog="12" .or. prog="x".or.prog="X"
//                    prog="x"
//                    do eurox
      case prog="1"
//                    do best3f
                    do prbest
      case prog="2"
                    do prvv
      case prog="3"
                    do prrech
      case prog="4"
                    do prrech
      case prog="5"
                    do prrech2
      case prog="6"
                    do prvers
      case prog="7"
                    do prart
      case prog="8"
                    do przart
      case prog="9"
                    do kontr
      case prog="!" .or. prog="0"
***                    clear
                     return
 endcase
enddo
RETURN