///////////////////////////////////////////////////////////////////////////////
//
//  Vom Xbase++ FormDesigner erstellter Funktions Code
//    Erstellt am: 25.02.01 Zeit: 18:32:45
//
///////////////////////////////////////////////////////////////////////////////

#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"

PROCEDURE best3fn
   LOCAL nEvent, mp1, mp2, aFelder := {}, ID_SLE_PRIMKEY := 1
   LOCAL oDlg, oXbp, drawingArea, aEditControls := {}

   LOCAL aPP := { { XBP_PP_FGCLR       , GRA_CLR_BLACK    } , ;
                  { XBP_PP_BGCLR       , GRA_CLR_WHITE    } }

//                  { XBP_PP_COMPOUNDNAME, FONT_TIMES_MEDIUM + FONT_STYLE_BOLD } }


// tats�chliche Bildschirmaufl�sung:
   LOCAL aSizeDesktop := AppDesktop():currentSize()
   LOCAL nBSb := aSizeDesktop[1]
   LOCAL nBSh := aSizeDesktop[2]
//   LOCAL nBSb := 640
//   LOCAL nBSh := 480
// folgende Zahlen-Werte basieren auf 800x600:
   LOCAL nV := nBSb/800         // Korrekturfaktor f�r tats�chliche Aufl�sung
   LOCAL n5 := int(5*nV)
   LOCAL n10 := int(10*nV)
   LOCAL n15 := int(15*nV)
   LOCAL n20 := int(20*nV)
   LOCAL n30 := int(30*nV)
   LOCAL nRo := int(505*nV)     // oberstes Eingabefeld =505
   LOCAL nBo := nRo
   LOCAL nR1 := 5       // linker Rand Bezeichnungsfeld
   LOCAL nR2 := int(70*nV)       // linker Rand EingabeFeld
   LOCAL nR3 := int(200*nV)     // linker Rand Bezeichnungsfeld
   LOCAL nR4 := int(250*nV)       // linker Rand EingabeFeld
   LOCAL nR5 := int(300*nV)       // linker Rand EingabeFeld
   LOCAL nR6 := int(350*nV)     // linker Rand Bezeichnungsfeld
   LOCAL nR7 := int(430*nV)     // linker Rand Bezeichnungsfeld
   LOCAL nR8 := int(490*nV)       // linker Rand EingabeFeld
   LOCAL nR9 := int(610*nV)     // linker Rand Bezeichnungsfeld
   LOCAL nR10 := int(740*nV)       // linker Rand EingabeFeld

   LOCAL nBl1 := int(60*nV)      // L�nge des Bezeichnungsfeldes
   LOCAL nBl2 := int(50*nV)      // L�nge des Bezeichnungsfeldes
   LOCAL nBl3 := int(30*nV)      // L�nge des Bezeichnungsfeldes
   LOCAL nBl4 := int(20*nV)      // L�nge des Bezeichnungsfeldes
   LOCAL nBh := int(20*nV)      // H�he des Bezeichnungsfeldes =20
   LOCAL nBz := int(25*nV)      // Zeilenh�he des Bezeichnungsfeldes =25

   LOCAL nFl1 := int(170*nV)    // L�nge des Eingabefeldes
   LOCAL nFl2 := int(120*nV)    // L�nge des Eingabefeldes
   LOCAL nFl3 := int(80*nV)    // L�nge des Eingabefeldes
   LOCAL nFl4 := int(60*nV)    // L�nge des Eingabefeldes
   LOCAL nFl5 := int(30*nV)    // L�nge des Eingabefeldes
   LOCAL nFa := 0
   LOCAL nT1 := int(200*nV)     // Linker Rand Taste
   LOCAL nT2 := int(430*nV)     // Linker Rand Taste
   LOCAL nT3 := int(490*nV)     // Linker Rand Taste
   LOCAL nT4 := int(550*nV)     // Linker Rand Taste
   LOCAL nT5 := int(610*nV)     // Linker Rand Taste
   LOCAL nT6 := int(670*nV)     // Linker Rand Taste
   LOCAL nT7 := int(730*nV)     // Linker Rand Taste
   LOCAL nTl := int(40*nV)     // Linker Rand Taste

   SELECT 1
//   USE BEST.DBF index xauftrnr
   USE BEST.DBF index xname
//   SET INDEX TO xauftrnr
   GO TOP

   SetAppWindow():cargo := { -1, -1 }    //  { Dieser Datensatz, vorherigerDatensatz }

//   oDlg := XbpDialog():new( AppDesktop(), , {10,35}, {785,565}, , .F.)
   oDlg := XbpDialog():new( AppDesktop(), , {n5,n30}, {nBSb-n10,nBSh-n30}, , .F.)
   oDlg:taskList := .T.
   oDlg:title := "Bestattungs-Aufnahme/Pflege-Maske"
   oDlg:create()
   SetAppWindow():clipChildren := .F.
   SetAppWindow():configure()
   SetAppWindow():close := {|mp1,mp2,obj| AppQuit() }

   drawingArea := oDlg:drawingArea
   IF nBSb > 1000
      drawingArea:setFontCompoundName( "12.Arial" )
   ELSE
      drawingArea:setFontCompoundName( "8.Arial" )
   ENDIF

//        aFelder := { "Auftr-Nr:", BEST->AUFTRNR, {8,430}, {56,16}, ;
//                        {72,430}, {48,16}, 6 }


   oXbp := XbpStatic():new( drawingArea, , {nR1-n5,nRo-9*nBz-n5}, {nFl1+nBl1+n15,9*nBz+n10} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {nR4-n5,nRo-9*nBz-n5}, {nFl1+n10,9*nBz+n10} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {nR7-n5,nRo-9*nBz-n5}, {nBSb-nR7-n15,9*nBz+n10} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {nR1-n5,nRo-13*nBz-n5}, {nR7,4*nBz+n10} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {nR1-n5,nRo-20*nBz-n5}, {nR7,7*nBz+n10} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()


   oXbp := XbpPushButton():new( drawingArea, , {nT1,nBo}, {nTl,nBh} )
   oXbp:caption := "Such"
   oXbp:clipSiblings := .T.
   oXbp:create()
//   oXbp:activate := {||  SeekRecord() , Scatter ( aEditControls ) }
   oXbp:activate := {||  Password(space(10),space(10)) , Scatter ( aEditControls ) }
//                        oXbp := oDlg:childFromName( ID_SLE_PRIMKEY ), oXbp:enable() }

   oXbp := XbpPushButton():new( drawingArea, , {nT2,nBo}, {nTl,nBh} )
   oXbp:caption := "Neu"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {||  BEST->(DbAppend(1)), Scatter ( aEditControls ), ;
                        oXbp := oDlg:childFromName( ID_SLE_PRIMKEY ), oXbp:enable() }

   oXbp := XbpPushButton():new( drawingArea, , {nT3,nBo}, {nTl,nBh} )
   oXbp:caption := "|<<"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), BEST->(DbGoTop()), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nT4,nBo}, {nTl,nBh} )
   oXbp:caption := "<"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), BEST->(DbSkip(-1)), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nT5,nBo}, {nTl,nBh} )
   oXbp:caption := ">"
   oXbp:clipSiblings := .T.
   oXbp:create()
//   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), BEST->(DbSkip(1)), Scatter ( aEditControls ) }
   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), VorSkip(1), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nT6,nBo}, {nTl,nBh} )
   oXbp:caption := ">>|"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), BEST->(DbGoBottom()), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nT7,nBo}, {nTl,nBh} )
   oXbp:caption := "Ende"
   oXbp:clipSiblings := .T.
   oXbp:create()
//   oXbp:activate := {|| PostAppEvent( xbeP_Close ) }
   oXbp:activate := {|| DbRlock(Recno()), PostAppEvent( xbeP_Close ) , oDlg:destroy() , Scatter( xbeP_Close ) }
  
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Auftr+Ber:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 6 ; nFl := nFa*8
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Transform( BEST->AUFTRNR, '@N' ), BEST->AUFTRNR := Val(x) ) }
   oXbp:validate := {|o| IsIndexUnique( 1, Padl(Trim(o:editBuffer()),6) ) }
   oXbp:create():setData()
   oXbp:setName( ID_SLE_PRIMKEY )
   AAdd ( aEditControls, oXbp )
//   IF !Eof()
//        oXbp:disable()
//   ELSE
//        oXbp:enable()
//        SetAppFocus( oXbp )
//   ENDIF

   nFa := 1 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2+nFl3+n5,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->BERATER ), BEST->BERATER := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl2,nBh} )
   oXbp:caption := "Telefon:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_TELP ), BEST->ANSP_TELP := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Anrede:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANREDE ), BEST->ANREDE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Name:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->NAME ), BEST->NAME := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Vorname:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->VORNAME ), BEST->VORNAME := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Geb.-Name:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->GEB_NAME ), BEST->GEB_NAME := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Stra�e:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->STRASSE ), BEST->STRASSE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "PLZ/Ort:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->PLZ_ORT ), BEST->PLZ_ORT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Beruf:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->BERUF ), BEST->BERUF := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "geb/gest:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, ;
                        IIf( DtoC( BEST->GEB_DATUM )=" ", trim(" "), DtoC( BEST->GEB_DATUM )), ;
                        BEST->BEERD_DAT := CtoD(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

//   nBo := nBo
//   oXbp := XbpStatic():new( drawingArea, , {nBr+123,nBo}, {nBl-15,nBh} )
//   oXbp:caption := "StbTag:"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2+nFl1-nFl3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, ;
                        IIf( DtoC( BEST->GESTORBEN )=" ", trim(" "), DtoC( BEST->GESTORBEN )), ;
                        BEST->BEERD_DAT := CtoD(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Geburtsort:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->GEB_IN ), BEST->GEB_IN := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Familienstand:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 9 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->FAMSTAND ), BEST->FAMSTAND := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR2+nFl3,nBo}, {nBl2,nBh} )
   oXbp:caption := "Rel.:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 9 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KONF ), BEST->KONF := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR5-n15,nBo}, {nBl2,nBh} )
   oXbp:caption := "St-Ang.:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 15 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5+nFl2-nFl3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->STAATSAN ), BEST->STAATSAN := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Strb-Ort:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 1 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KZWO ), BEST->KZWO := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nFa := 1 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2+nFl5+n5,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KZORT ), BEST->KZORT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR2+nFl3,nBo}, {nBl3,nBh} )
   oXbp:caption := "Kennz:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 5 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR2+nFl1-nFl4,nBo}, {nFl4,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->VERST_KZ ), BEST->VERST_KZ := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

//   nBo := nBo
//   oXbp := XbpStatic():new( drawingArea, , {nBr,nBo}, {nBl,nBh} )
//   oXbp:caption := ":"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->VERST_IN1 ), BEST->VERST_IN1 := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->VERST_IN2 ), BEST->VERST_IN2 := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->VERST_IN3 ), BEST->VERST_IN3 := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Tot/Urs/Obd:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->TOTENSCH ), BEST->TOTENSCH := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
//   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl,nBh} )
//   oXbp:caption := "Todesursache:"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->TODESURS ), BEST->TODESURS := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR4+nFl2+n5,nBo}, {nBl4,nBh} )
   oXbp:caption := "Obd:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR7-n10-nFl5,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->OBDUKT ), BEST->OBDUKT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Gruft/Reihgr:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->GRREIHE ), BEST->GRREIHE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR3,nBo}, {nBl2+nBl3,nBh} )
   oXbp:caption := "Gesteck:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->SGESTECK ), BEST->SGESTECK := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Dekoration:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->DEKO ), BEST->DEKO := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR3,nBo}, {nBl2+nBl3,nBh} )
   oXbp:caption := "G�rtner:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->GAERT ), BEST->GAERT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Testament:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->TESTAMENT ), BEST->TESTAMENT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR3,nBo}, {nBl2+nBl3,nBh} )
   oXbp:caption := "Nachla�:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->NACHLASS ), BEST->NACHLASS := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Kriegsrente j/n:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 1 ; nFl := nFa*20
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KRIEGSRENT ), BEST->KRIEGSRENT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR3,nBo}, {nBl2+nBl3,nBh} )
   oXbp:caption := "Vers-Amt:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->VERSORGAMT ), BEST->VERSORGAMT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Autobus:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->BUSKOMM ), BEST->BUSKOMM := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR3,nBo}, {nBl2+nBl3,nBh} )
   oXbp:caption := "Bus-Zeit:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl4,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Transform( BEST->BUSZEIT, '@N' ), BEST->BUSZEIT := Val(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Kaffeetrinken:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KAFFEE ), BEST->KAFFEE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Trauerbriefe:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR2,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->TBRIEFE ), BEST->TBRIEFE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR3,nBo}, {nBl2+nBl3,nBh} )
   oXbp:caption := "WAZ:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR5,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->WAZ ), BEST->WAZ := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

//
   nBo := nRo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl1+nBl3,nBh} )
   oXbp:caption := "Anspr./Anrede:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR4+nFl1-nFl3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_ANR ), BEST->ANSP_ANR := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_NAME ), BEST->ANSP_NAME := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_VNAME ), BEST->ANSP_VNAME := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_BEZ ), BEST->ANSP_BEZ := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_STR ), BEST->ANSP_STR := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_ORT ), BEST->ANSP_ORT := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl3,nBh} )
   oXbp:caption := "Bank:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*5
   oXbp := XbpSLE():new( drawingArea, , {nR4+nBl3,nBo}, {nFl2+nBl4,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_BANKV ), BEST->ANSP_BANKV := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
//   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl3,nBh} )
//   oXbp:caption := "Konto:"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
   nFa := 12 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR4,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_KTO ), BEST->ANSP_KTO := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR7-nFl3-n10,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_BLZ ), BEST->ANSP_BLZ := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl3,nBh} )
   oXbp:caption := "Inh:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*5
   oXbp := XbpSLE():new( drawingArea, , {nR4+nBl3,nBo}, {nFl1-nBl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->ANSP_KTOI ), BEST->ANSP_KTOI := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

//
   nBo := nRo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1,nBh} )
   oXbp:caption := "Best.-Art (E/F/S/A):"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 1 ; nFl := nFa*20
   oXbp := XbpSLE():new( drawingArea, , {nR8,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->BEST_ART ), BEST->BEST_ART := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR8+nFl5+n5,nBo}, {nBl1+nBl3,nBh} )
   oXbp:caption := "�b.(ab Z/K):"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR9,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->UEBERFRIED ), BEST->UEBERFRIED := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1*3,nBh} )
   oXbp:caption := "Friedhof:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR9,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->BEIFRIED ), BEST->BEIFRIED := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1*3,nBh} )
   oXbp:caption := "Dekoration (Zelle/Kapelle/Grab/Korb):"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR9,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->DEKO ), BEST->DEKO := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1*3,nBh} )
   oXbp:caption := "Trauerfeier (Sarg/Urne/keine)(Orgel):"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*5
   oXbp := XbpSLE():new( drawingArea, , {nR9,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KOMMBEERD1 ), BEST->KOMMBEERD1 := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1*3,nBh} )
   oXbp:caption := "Gemeinde - Messe/WGD:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*5
   oXbp := XbpSLE():new( drawingArea, , {nR9,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KOMMBEERD2 ), BEST->KOMMBEERD2 := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl2,nBh} )
   oXbp:caption := "Messe in:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*4
   oXbp := XbpSLE():new( drawingArea, , {nR8,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->MESSEWO ), BEST->MESSEWO := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR9,nBo}, {nBl3,nBh} )
   oXbp:caption := "am:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR9+nBl3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, ;
                        IIf( DtoC( BEST->MESSEDAT )=" ", trim(" "), DtoC( BEST->MESSEDAT )), ;
                        BEST->MESSEDAT := CtoD(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
//   oXbp := XbpStatic():new( drawingArea, , {nBSb-nBL2-n15,nBo}, {nBl2,nBh} )
//   oXbp:caption := "um:"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
   nFa := 5 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nBSb-nFl4-n15,nBo}, {nFl4,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Transform( BEST->MESSEZEIT, '@N' ), BEST->MESSEZEIT := Val(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1+nBl3,nBh} )
   oXbp:caption := "Beerdigung am:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*5
   oXbp := XbpSLE():new( drawingArea, , {nR8+nFl2-nFl3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->BEERDTAG ), BEST->BEERDTAG := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR9,nBo}, {nBl3,nBh} )
   oXbp:caption := "am:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nR9+nBl3,nBo}, {nFl3,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, ;
                        IIf( DtoC( BEST->BEERD_DAT )=" ", trim(" "), DtoC( BEST->BEERD_DAT )), ;
                        BEST->BEERD_DAT := CtoD(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
//   oXbp := XbpStatic():new( drawingArea, , {nBr+710,nBo}, {nBl-40,nBh} )
//   oXbp:caption := "um:"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
   nFa := 5 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nBSb-nFl4-n15,nBo}, {nFl4,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Transform( BEST->BEERD_ZEIT, '@N' ), BEST->BEERD_ZEIT := Val(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1*3,nBh} )
   oXbp:caption := "Pastor / Prediger:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR9,nBo}, {nFl1,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->PASTOR ), BEST->PASTOR := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl2,nBh} )
   oXbp:caption := "Taxi:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 45 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR8,nBo}, {nFl1+nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->TAXI ), BEST->TAXI := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nRo-10*nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1+nBl3,nBh} )
   oXbp:caption := "Sargtr�ger:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 2 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR8+nFl2-nFl5,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_BEGIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->SARGTRAE ), BEST->SARGTRAE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR9,nBo}, {nBl1+nBl3,nBh} )
   oXbp:caption := "Aufbahrung:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 2 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nBSb-nFl5-n15,nBo}, {nFl5,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KZOFFGE ), BEST->KZOFFGE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR7,nBo}, {nBl1,nBh} )
   oXbp:caption := "Eig.Bekl.:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nR7+nBl1,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KZOFFGE ), BEST->KZOFFGE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nR9,nBo}, {nBl1,nBh} )
   oXbp:caption := "Schmuck:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
//   oXbp := XbpSLE():new( drawingArea, , {nR9+nBl1,nBo}, {nFl2,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp := XbpSLE():new( drawingArea, , {nR9+nBl1,nBo}, {nFl2,nBh}, aPP )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
//   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->KZOFFGE ), BEST->KZOFFGE := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )



      oXbp := XbpMle():new( drawingArea,, {nR7,nRo-20*nBz}, {nBSb-nR7-n20,6*nBz}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
      oXbp:dataLink  := {|x| IIf( x==NIL, NOTIZ, NOTIZ := x ) }
      oXbp:ignoreTab := .T.
      oXbp:tabStop   := .T.
      oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
      oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
      oXbp:wordWrap  := .T.
      oXbp:horizScroll := .F.
//      oXbp:group     := XBP_WITHIN_GROUP
      oXbp:create():setData()
      AAdd ( aEditControls, oXbp )



//   nBo := nBo-nBz
//   oXbp := XbpStatic():new( drawingArea, , {nBr,nBo}, {nBl,nBh} )
//   oXbp:caption := ":"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
//   nFa := 10 ; nFl := nFa*6
//   oXbp := XbpSLE():new( drawingArea, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
//   oXbp:bufferLength := nFa
//   oXbp:clipSiblings := .T.
//   oXbp:tabStop := .T.
//   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->fff ), BEST->fff := x ) }
//   oXbp:create():setData()
//   AAdd ( aEditControls, oXbp )

//   nBo := nBo-nBz
//   oXbp := XbpStatic():new( drawingArea, , {nBr,nBo}, {nBl,nBh} )
//   oXbp:caption := ":"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
//   nFa := 10 ; nFl := nFa*6
//   oXbp := XbpSLE():new( drawingArea, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
//   oXbp:bufferLength := nFa
//   oXbp:clipSiblings := .T.
//   oXbp:tabStop := .T.
//   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Transform( BEST->fff, '@N' ), BEST->fff := Val(x) ) }
//   oXbp:create():setData()
//   AAdd ( aEditControls, oXbp )

//   nBo := nBo-nBz
//   oXbp := XbpStatic():new( drawingArea, , {nBr,nBo}, {nBl,nBh} )
//   oXbp:caption := ":"
//   oXbp:clipSiblings := .T.
//   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
//   oXbp:create()
//   nFa := 10 ; nFl := nFa*6
//   oXbp := XbpSLE():new( drawingArea, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
//   oXbp:bufferLength := nFa
//   oXbp:clipSiblings := .T.
//   oXbp:tabStop := .T.
//   oXbp:dataLink := {|x| IIf( PCOUNT()==0, DtoC( BEST->fff ), BEST->fff := CtoD(x) ) }
//   oXbp:create():setData()
//   AAdd ( aEditControls, oXbp )







//   oXbp := XbpCombobox():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
//   oXbp:clipSiblings := .T.
//   oXbp:type := XBPCOMBO_DROPDOWN
//   oXbp:create()
//   oXbp:XBPSLE:dataLink := {|x| IIf( x==0, cDeko, cDeko := x ) }
//   oXbp:XbpSLE:setData()


   oXbp := XbpSpinbutton():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:clipSiblings := .T.
   oXbp:create()

   oXbp := XbpScrollbar():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_SCROLLBAR } } )
   oXbp:clipSiblings := .T.
   oXbp:range := {0,1}
   oXbp:create()

   oXbp := XbpScrollbar():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_SCROLLBAR } } )
   oXbp:clipSiblings := .T.
   oXbp:range := {0,1}
   oXbp:type := XBPSCROLL_VERTICAL
   oXbp:create()

   oXbp := XbpSLE():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:clipSiblings := .T.
   oXbp:create()

   oXbp := XbpMle():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:clipSiblings := .T.
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {700,10}, {1,1} )
   oXbp:caption := "Gruppe"
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {700,10}, {1,1} )
   oXbp:caption := "Text"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()

   oXbp := XbpListBox():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:clipSiblings := .T.
   oXbp:create()

   oXbp := XbpTabPage():new( drawingArea, , {700,10}, {1,1} )
   oXbp:caption := "TabPage"
   oXbp:clipSiblings := .T.
   oXbp:minimized := .F.
   oXbp:create()

   oXbp := XbpTreeView():new( drawingArea, , {700,10}, {1,1}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:clipSiblings := .T.
   oXbp:create()

   oDlg:show()


//------------------------------------------
//      das Ende des Hauptprogramms:

   nEvent := xbe_None
   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO
RETURN
//------------------------------------------


PROCEDURE AppQuit()
   LOCAL nButton, oXbp := SetAppFocus()

   nButton := ConfirmBox( , ;
   "Wollen Sie das Programm beenden ?", ;
            "Beenden", ;
            XBPMB_YESNO , ;
            XBPMB_QUESTION+XBPMB_APPMODAL+XBPMB_MOVEABLE )
   IF nButton == XBPMB_RET_YES
      CLOSE ALL
      QUIT
   ENDIF

   SetAppFocus( oXbp )
RETURN

FUNCTION IsIndexUnique( nOrder, xIndexValue )
   LOCAL nOldOrder := OrdNumber()
   LOCAL nRecno    := Recno()
   LOCAL lUnique   := .F.

   OrdSetFocus( nOrder )

   lUnique := ! DbSeek( xIndexValue )

   OrdSetFocus( nOldOrder )
   DbGoTo( nRecno )

RETURN lUnique

FUNCTION Satzsp()
      IF DbRlock(Recno())
      ELSE
         MsgBox( "Datensatz ist zur Zeit gesperrt!" )
      ENDIF
RETURN (.T.)

FUNCTION VorSkip()
        IF !EOF()
           BEST->(DbSkip(1))
        ENDIF
RETURN (.T.)

///*
// * Routine zum Entsperren eines Xbase-Parts
// */
//FUNCTION EnableXbp( oDlg, nNameID, aMenuItemIDs )
//   LOCAL oXbp := oDlg:childFromName( nNameID ), i, imax
//
//   IF oXbp <> NIL
//      IF Valtype( aMenuItemIDs ) == "A" .AND. ;
//         "XbpMenu" $ oXbp:className()
//         imax := Len( aMenuItemIDs )
//         FOR i:=1 TO imax
//            oXbp:enableItem( aMenuItemIDs[i] )
//         NEXT
//      ELSE
//         oXbp:enable()
//      ENDIF
//   ENDIF
//
//RETURN oXbp

PROCEDURE ChgColorSle( aPos, aSize )
   LOCAL oXbp
   LOCAL aPP := { { XBP_PP_FGCLR       , GRA_CLR_BLUE        } , ;
                  { XBP_PP_BGCLR       , GRA_CLR_PALEGRAY    } , ;
                  { XBP_PP_COMPOUNDNAME, FONT_TIMES_MEDIUM + FONT_STYLE_BOLD } }

   oXbp                := XbpSLE():new(,, aPos, aSize, aPP )
   oXbp:tabStop        := .T.
   oXbp:bufferLength   := 64
   oXbp:border         := .F.
   oXbp:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbp:create()

   oXbp:setData( "Kein Rahmen, Farbe wechselt mit Fokus" )
   aPos[2] -= 50
RETURN


PROCEDURE HiliteSle( oXbpSle )
   LOCAL aPP := { { XBP_PP_FGCLR       , GRA_CLR_WHITE       } , ;
                  { XBP_PP_BGCLR       , GRA_CLR_BLUE        } }
//                  { XBP_PP_COMPOUNDNAME, FONT_TIMES_MEDIUM + FONT_STYLE_BOLD } }
   oXbpSle:setPresParam( aPP )
RETURN


PROCEDURE DeHiliteSle( oXbpSle )
  LOCAL aPP := { { XBP_PP_FGCLR       , GRA_CLR_BLACK        } , ;
                  { XBP_PP_BGCLR       , GRA_CLR_WHITE       } }
//                  { XBP_PP_COMPOUNDNAME, FONT_TIMES_MEDIUM + FONT_STYLE_BOLD } }
   oXbpSle:setPresParam( aPP )
RETURN


/* aus dem Programm login_g
 * Firmenlogo anzeigen
 *
 * - XbpStatic wird verwendet um eine Bitmap mit einem Firmenlogo anzuzeigen
 *
 * - Die Bitmap ist 600 x200 Pixel gro� und hat die numerische ID 2001
 *   Die ID ist in einer RC datei definiert
 *
 * - aSize = Gr��e der "drawingArea" eines XbpCrt Fensters
 *
 */
FUNCTION DisplayLogo()
//   LOCAL oLogo, aPos, aSize, drawingArea := SetAppWindow():drawingArea
   LOCAL oDlg, oLogo, aPos, aSize, drawingArea , nEvent

   oDlg := XbpDialog():new( AppDesktop(), , {50,50}, {550,380}, , .F.)
   oDlg:taskList := .T.
   oDlg:title := "Das f�hrende Bestattungs-Institut im westlichen Europa :"
   oDlg:create()
   SetAppWindow():clipChildren := .F.
   SetAppWindow():configure()

   drawingArea := oDlg:drawingArea

   aSize         := drawingArea:currentSize()
//   aPos          := { (aSize[1]-600)/2, aSize[2]-200 }
   aPos          := { 25,80 }
   oLogo         := XbpStatic():new( drawingArea,,aPos,{500,300})
   oLogo:type    := XBPSTATIC_TYPE_BITMAP
   oLogo:caption := 2001
   oLogo:create()
   oLogo:show()

   oXbp := XbpPushButton():new( drawingArea, , {10,10}, {250,30} )
   oXbp:caption := "L = lokaler Betrieb"
   oXbp:activate := {|| cLn := "L", lExit := .T. }
   oXbp:keyboard    := {|nKey,x,obj| IIf( nKey == ASC("L") .OR. nKey == ASC("l"), ;
                                     PostAppEvent( xbeP_Activate,,, obj ), NIL ) }
   oXbp:create()

   oXbp := XbpPushButton():new( drawingArea, , {280,10}, {250,30} )
   oXbp:caption := "N = Netzwerk-Betrieb"
   oXbp:activate := {|| cLn := "N", lExit := .T. }
   oXbp:keyboard    := {|nKey,x,obj| IIf( nKey == ASC("N") .OR. nKey == ASC("n"), ;
                                     PostAppEvent( xbeP_Activate,,, obj ), NIL ) }
   oXbp:create()

   oDlg:show()
//   SetAppWindow():disable()
//   SetAppFocus( oID )

   lExit := .F.
   DO WHILE ! lExit
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO

   oDlg:destroy()

RETURN ( cLn )



/*
 * Login Routine zur Eingabe von UserID und Pa�wort
 *
 * - �ber 90% des Codes wurde vom Xbase++ FormDesigner geschrieben
 */
PROCEDURE PassWord( cUserID, cPassWord )
   LOCAL nEvent, mp1, mp2, oXbp, lExit
   LOCAL oDlg, oID, oPW, drawingArea

   aSize            := {250,150}
   aPos             := CenterPos( aSize, SetAppWindow():drawingArea:currentSize() )
   mp1              := SetAppWindow():currentPos()
   aPos[1]          += mp1[1]
   aPos[2]          += mp1[2]

  /*
   * Parent ist Desktop, Owner ist das Anwendungsfenster
   */
   oDlg             := XbpDialog():new( SetAppWindow():setParent(), SetAppWindow(), aPos, aSize, , .F.)
   oDlg:border      := XBPDLG_RAISEDBORDERTHIN_FIXED
   oDlg:title       := "Enter your ID and password!"
   oDlg:sysMenu     := .F.
   oDlg:maxButton   := .F.
   oDlg:minButton   := .F.
   oDlg:sysMenu     := .F.
   oDlg:visible     := .F.
   oDlg:close       :=  {|| PostAppEvent( xbeP_Close ) }
   oDlg:create()
   oDlg:setFontCompoundName( "8.Helv.normal" )

   drawingArea      := oDlg:drawingArea
   drawingArea:setFontCompoundName( "8.Helv.normal" )

   oXbp             := XbpStatic():new( drawingArea, , {8,84}, {80,20} )
   oXbp:caption     := "User ID:"
   oXbp:options     := XBPSTATIC_TEXT_RIGHT
   oXbp:create()

   oID              := XbpSLE():new( drawingArea, , {101,83}, {116,22} )
   oID:group        := XBP_BEGIN_GROUP
   oID:tabStop      := .T.
   oID:bufferLength := Len( cUserID )
   oID:create()

   oXbp             := XbpStatic():new( drawingArea, , {8,52}, {80,20} )
   oXbp:caption     := "Password:"
   oXbp:options     := XBPSTATIC_TEXT_RIGHT
   oXbp:create()

   oPW              := XbpSLE():new( drawingArea, , {101,51}, {116,22} )
   oPW:group        := XBP_WITHIN_GROUP
   oPW:tabStop      := .T.
   oPW:bufferLength := Len( cPassWord )
   oPW:unReadable   := .T.
   oPW:create()

   oXbp             := XbpPushButton():new( drawingArea, , {101,11}, {75,25} )
   oXbp:caption     := "OK"
   oXbp:tabStop     := .T.
   oXbp:group       := XBP_END_GROUP
   oXbp:activate    := {|| lExit := .T. }
   oXbp:keyboard    := {|nKey,x,obj| IIf( nKey == xbeK_ESC .OR. nKey == xbeK_RETURN, ;
                                     PostAppEvent( xbeP_Activate,,, obj ), NIL ) }
   oXbp:create()

   oDlg:show()
  /*
   * Dadurch wird das Login Fenster modal
   */
   SetAppWindow():disable()
   SetAppFocus( oID )

   lExit := .F.
   DO WHILE ! lExit
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO

   cUserID   := AllTrim( Upper( oID:getData() ) )
   cPassWord := AllTrim( Upper( oPW:getData() ) )

   SetAppWindow():enable()
   oDlg:destroy()

  /*
   * Ereigniswarteschlange leeren
   */
   CLEAR TYPEAHEAD
RETURN



/*
 * Zentrierte Position eines Fensters aus seiner Gr��e und einer
 * Referenzgr��e berechnen.
 */
STATIC FUNCTION CenterPos( aSize, aRefSize )
RETURN { Int( (aRefSize[1] - aSize[1]) / 2 ) ;
       , Int( (aRefSize[2] - aSize[2]) / 2 ) }