///////////////////////////////////////////////////////////////////////////////
//
//  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 best3f

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

   LOCAL nBr := 5       // linker Rand Bezeichnungsfeld
   LOCAL nBo := 505     // oberstes Eingabefeld
   LOCAL nBl := 60      // L�nge des Bezeichnungsfeldes
   LOCAL nBh := 20      // H�he des Bezeichnungsfeldes
   LOCAL nBz := 25      // Zeilenh�he des Bezeichnungsfeldes
   LOCAL nFr := nBr+nBl+5       // linker Rand EingabeFeld
   LOCAL nFa := 0

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

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

   oDlg := XbpDialog():new( AppDesktop(), , {10,35}, {785,565}, , .F.)
   oDlg:taskList := .T.
   oDlg:title := "Bestattungsfall-Aufnahme"
   oDlg:create()
   SetAppWindow():close := {|mp1,mp2,obj| AppQuit() }
         

   drawingArea := oDlg:drawingArea
   drawingArea:setFontCompoundName( "8.Arial" )


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


   oXbp := XbpStatic():new( drawingArea, , {244,277}, {177,232} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpStatic():new( drawingArea, , {425,277}, {365,232} )
   oXbp:caption := ""
   oXbp:clipSiblings := .T.
   oXbp:type := XBPSTATIC_TYPE_GROUPBOX
   oXbp:create()

   oXbp := XbpPushButton():new( drawingArea, , {nFr+60,nBo}, {nBl,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, , {nFr+360,nBo}, {nBl,nBh} )
   oXbp:caption := "Erster"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {|| Satzsp(), Gather( aEditControls ), BEST->(DbGoTop()), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nFr+425,nBo}, {nBl,nBh} )
   oXbp:caption := "Zur�ck"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), BEST->(DbSkip(-1)), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nFr+490,nBo}, {nBl,nBh} )
   oXbp:caption := "Vor"
   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, , {nFr+555,nBo}, {nBl,nBh} )
   oXbp:caption := "Letzter"
   oXbp:clipSiblings := .T.
   oXbp:create()
   oXbp:activate := {|| DbRlock(Recno()), Gather( aEditControls ), BEST->(DbGoBottom()), Scatter ( aEditControls ) }

   oXbp := XbpPushButton():new( drawingArea, , {nFr+620,nBo}, {nBl,nBh} )
   oXbp:caption := "Abbruch"
   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, , {nBr,nBo}, {nBl,nBh} )
   oXbp:caption := "Auftr-Nr:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 6 ; nFl := nFa*8
   oXbp := XbpSLE():new( drawingArea, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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

   nBo := nBo
   oXbp := XbpStatic():new( drawingArea, , {nBr+180,nBo}, {nBl,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,nBh} )
   oXbp:caption := "Geburtstag:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, DtoC( BEST->GEB_DATUM ), BEST->GEB_DATUM := 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, , {nFr+105,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, DtoC( BEST->GESTORBEN ), BEST->GESTORBEN := CtoD(x) ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_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, , {nBr+120,nBo}, {nBl,nBh} )
   oXbp:caption := "Religion:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 9 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nFr+120,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+240,nBo}, {nBl,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, , {nFr+240,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_END_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, , {nBr,nBo}, {nBl,nBh} )
   oXbp:caption := "Sterbeort:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 5 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_BEGIN_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, , {nFr+60,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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 )

   nFa := 28 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nFr+240,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+420,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,nBh} )
   oXbp:caption := "Totenschein:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 28 ; 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: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, , {nBr+180,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+360,nBo}, {nBl,nBh} )
   oXbp:caption := "Obduktion:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 20 ; nFl := nFa*6
   oXbp := XbpSLE():new( drawingArea, , {nFr+360,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_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, , {nBr+180,nBo}, {nBl,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+180,nBo}, {nBl,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+180,nBo}, {nBl,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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
   oXbp := XbpStatic():new( drawingArea, , {nBr+360,nBo}, {nBl,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, , {nFr+360,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+480,nBo}, {nBl,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, , {nFr+480,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+180,nBo}, {nBl,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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
   oXbp := XbpStatic():new( drawingArea, , {nBr+360,nBo}, {nBl,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, , {nFr+360,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr,nBo}, {nBl,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, , {nFr,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+180,nBo}, {nBl,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->WAZ ), BEST->WAZ := x ) }
   oXbp:create():setData()
   AAdd ( aEditControls, oXbp )

//
   nBo := 505-nBz
   oXbp := XbpStatic():new( drawingArea, , {nBr+245,nBo}, {nBl+28,nBh} )
   oXbp:caption := "Ansprechpartner/Anrede:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpSLE():new( drawingArea, , {nFr+278,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+242,nBo}, {nBl-35,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, , {nFr+208,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+245,nBo}, {nBl-35,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, , {nFr+180,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nFr+278,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+245,nBo}, {nBl-35,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, , {nFr+208,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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 := 480
   oXbp := XbpStatic():new( drawingArea, , {nBr+430,nBo}, {nBl,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, , {nFr+430,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+530,nBo}, {nBl,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, , {nFr+530,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl,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, , {nFr+430,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl+100,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, , {nFr+530,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl+100,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, , {nFr+530,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl+100,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, , {nFr+530,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl-10,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, , {nFr+420,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+610,nBo}, {nBl-40,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, , {nFr+570,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, DtoC( BEST->MESSEDAT ), BEST->MESSEDAT := 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, , {nFr+670,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl,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, , {nFr+430,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+610,nBo}, {nBl-40,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, , {nFr+570,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_WITHIN_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, 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, , {nFr+670,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl+100,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, , {nFr+530,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   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, , {nBr+430,nBo}, {nBl,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, , {nFr+430,nBo}, {nFl,nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:bufferLength := nFa
   oXbp:clipSiblings := .T.
   oXbp:tabStop := .T.
   oXbP:group := XBP_END_GROUP
   oXbp:dataLink := {|x| IIf( PCOUNT()==0, Trim( BEST->TAXI ), BEST->TAXI := 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, 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:create()

   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()

   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