Version =20
VersionRequired =20
Checksum =384064911
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    CloseButton = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =9637
    DatasheetFontHeight =10
    ItemSuffix =57
    Left =10260
    Top =1170
    Right =18030
    Bottom =13230
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0x4dd37a5af227e340
    End
    Caption ="bcs group Status setzen"
    OnClose ="[Event Procedure]"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010403019c00bc271fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000040000000000000000000000000000000000000001000000 ,
        0x030000002201000000000000000000000000000000000000000000006450634b ,
        0x01000000560100001012000090000900000034089a0b2a002a0098129e1a2a00 ,
        0x2a009e1a981234089a0b2a0023009812c21a23002a00c21a9812000004000200 ,
        0x0000000000000000020000000400000000000000000000000000000000000000 ,
        0x0000000001000000000000000100000000000000450200000000000000000000 ,
        0x0000000000000000000000008a04000000000000450200000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000100000030303100000000000500000000000000 ,
        0x3030303000000000000000004c200000ae2d0000000000000200000000000000 ,
        0x000000000000000000000000000000000000000000000000000000004c200000 ,
        0xae2d000000000000020000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000005000000050000000000008064006400 ,
        0x0000000000000000000000000000000000000000000000000100000001000000 ,
        0x0000000001000000101002000200000001000000010000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000020000000 ,
        0x00000000000000000000803f0000000001001e00000000000c0000000000803f ,
        0x00000000000000000200000000000000580200005802000001000000ffffffff ,
        0x0001000001000000020000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000030000000800200004a0100002c01000058020000960000003c000000 ,
        0x160000000000000005000000ec00c201ec00c201ec00c201ec00c20100000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000100000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000100 ,
        0x000000040a000000000000000000000000000000000000000000000000000000 ,
        0x00000000000000000200000000000000000000000000e7030000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0100000000000000030000000000000000000000000000000000000000000000 ,
        0x0000000004010000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000010000000000 ,
        0x0000000000000000000000000000000000000100000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000100303030300000 ,
        0x0600000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000417269616c00000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0xffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00 ,
        0xffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00ffffff00 ,
        0x000000000000003f0b0001000200000000002041000020410000204100000000 ,
        0x0000000005000200000020410000000006000000000000000000000000000000 ,
        0x0700000022010000000000000700000022010000000000000700000022010000 ,
        0x0000000007000000220100000000000007000000220100000000000007000000 ,
        0x2201000000000000070000002201000000000000070000002201000000000000 ,
        0x0700000022010000000000000700000022010000000000000700000022010000 ,
        0x0000000007000000220100000000000007000000220100000000000007000000 ,
        0x2201000000000000070000002201000000000000070000002201000001000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000006450634b50c30000560100003001000000000000 ,
        0x0000000000000000010001000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000010000006450634b ,
        0x10270000560100001800000000000000000000006450634b204e000056010000 ,
        0x44030000000000000000000056006500720074007200610075006c0069006300 ,
        0x6800200031000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000006450634b64ea0000 ,
        0x5601000010000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x0800220069000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x000000000000000000545330303100
    End
    OnLoad ="Mkr_Position"
    Moveable =0
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x18cf877a9a2de847a0b83ab7a45ce9da
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1755
                    Top =120
                    Width =5607
                    Height =330
                    FontSize =12
                    BackColor =16777164
                    Name ="Retention"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![Retention]"
                    FontName ="Arial"
                    GUID = Begin
                        0x504001597ebd8749845ce8a301f4927d
                    End
                End
            End
        End
        Begin Section
            Height =10941
            Name ="Detailbereich"
            GUID = Begin
                0xe06d74fd414f46418e12846ea5a4bd35
            End
            Begin
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =120
                    Width =1245
                    Height =240
                    FontSize =10
                    Name ="KD_NR_Bezeichnungsfeld"
                    Caption ="KD_NR"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x7842d08818bd414fb0990652e3dfb7ed
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =926
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Status_Bezeichnungsfeld"
                    Caption ="Status"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x75a447021b42cb44b06709eb3e50a7a6
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =1854
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Terminierer_Bezeichnungsfeld"
                    Caption ="Terminierer"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xf4eb801ec2b7474d9a1156a6affa1cd8
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =2304
                    Width =1248
                    Height =240
                    FontSize =10
                    Name ="WV Datum_Bezeichnungsfeld"
                    Caption ="WV Datum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Datum_Bezeichnungsfeld"
                    GUID = Begin
                        0x5dc4e1fb33d6cb40bb6f910c0bb2622b
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =2713
                    Width =1245
                    Height =240
                    FontSize =10
                    Name ="WV Uhrzeit_Bezeichnungsfeld"
                    Caption ="WV Uhrzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Uhrzeit_Bezeichnungsfeld"
                    GUID = Begin
                        0xbe1408d4fafbaa4e861428bbf2a2a10f
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =374
                    Top =3122
                    Width =1245
                    Height =255
                    FontSize =10
                    Name ="WV Bemerkung_Bezeichnungsfeld"
                    Caption ="WV Bem."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="WV_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0xa3c74c1ec83a3847a6221ec46a9e6357
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =3546
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="AD_Bezeichnungsfeld"
                    Caption ="AD"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x5a30fc82ea49fe4b8adadd710f7b2d5a
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =3955
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Termintag_Bezeichnungsfeld"
                    Caption ="Termintag"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0xfb08386a87f9514ba53ece92a1746141
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =4364
                    Width =1224
                    Height =240
                    FontSize =10
                    Name ="Termindatum_Bezeichnungsfeld"
                    Caption ="Termindatum"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x1a5bf42fc6135c4abbc07348e2493cb9
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =4773
                    Width =1251
                    Height =240
                    FontSize =10
                    Name ="Terminzeit_Bezeichnungsfeld"
                    Caption ="Terminzeit"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x011f9893a2a3664893926136329e879f
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =374
                    Top =5182
                    Width =1260
                    Height =255
                    FontSize =10
                    Name ="Termin Bemerkung_Bezeichnungsfeld"
                    Caption ="Termin Bem."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    EventProcPrefix ="Termin_Bemerkung_Bezeichnungsfeld"
                    GUID = Begin
                        0x1a41fc9c594c424ba4fd30e550280daf
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =8874
                    Width =5661
                    Height =470
                    FontSize =10
                    TabIndex =20
                    Name ="Befehl16"
                    Caption ="Speichern"
                    OnClick ="[Event Procedure]"
                    FontName ="Arial"
                    ControlTipText ="Zum speichern hier klicken!"
                    GUID = Begin
                        0xf4c8de17a491284197be656f9a9866d2
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7530
                    Top =3120
                    Width =411
                    Height =336
                    FontSize =10
                    TabIndex =9
                    ForeColor =0
                    Name ="Befehl18"
                    OnExit ="Mkr_WVGeheSpeichern"
                    FontName ="Arial"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0xb389f605fd918945a1a15dddfda1bf1b
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7530
                    Top =5218
                    Width =411
                    Height =336
                    FontSize =10
                    TabIndex =15
                    ForeColor =0
                    Name ="Befehl19"
                    Caption ="Befehl18"
                    OnClick ="Mkr_ZoomWeiter1"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadada00adadadadadadad000adadadadadada ,
                        0xa000adadadadadadda000a700007dadaada0000888800daddada07ee888870da ,
                        0xada708e88888807ddad08e888888880aada088888888880ddad088888888e80a ,
                        0xada088888888e80ddad70888888ee07aadad07888eee70addadad00888800ada ,
                        0xadadad700007adad
                    End
                    FontName ="Arial"
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0xcd78f9dbdd55f94f91845dfff5d96db3
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =6902
                    Width =5661
                    Height =470
                    FontSize =10
                    TabIndex =18
                    Name ="Terminübersicht"
                    Caption ="Terminübersicht"
                    OnClick ="Mkr_Openfrm_TerminübersichtAuto"
                    FontName ="Arial"
                    ControlTipText ="Zum öffnen der Terminübersicht hier klicken und \"AD\" auswählen!"
                    GUID = Begin
                        0xd3422e1ddc0949418195321e40ca0e8c
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =367
                    Top =529
                    Width =1245
                    Height =285
                    FontSize =10
                    Name ="Bezeichnungsfeld22"
                    Caption ="Anruftag"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x1b657106e4bf0646be8c5fb97b5862e3
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =60
                    Width =5607
                    Height =315
                    FontSize =12
                    BackColor =16777164
                    Name ="KD_NR"
                    DefaultValue ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x44b2be33afb1ad41ba033412ba5a7835
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =2237
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =6
                    BackColor =16777164
                    Name ="WVDatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0xcb4c815f652f244b809d75622501a871
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =2659
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =7
                    BackColor =16777164
                    Name ="WVUhrzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="##:##"
                    GUID = Begin
                        0x4553d6e2dcf7ca4587fb3efbdfb71022
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3081
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =8
                    BackColor =16777164
                    Name ="WVBemerkung"
                    OnDblClick ="mkr_zoom"
                    FontName ="Arial"
                    GUID = Begin
                        0x00f74321daf84742b85ffde113f8db38
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =4347
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =12
                    BackColor =16777164
                    Name ="Termindatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0xd9386d69314bf2469ca779266d817645
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =4769
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =13
                    BackColor =16777164
                    Name ="Terminzeit"
                    Format ="Short Time"
                    FontName ="Arial"
                    InputMask ="##:##"
                    GUID = Begin
                        0xc148c4f9bd875d478cf9e8e43ded0d20
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =5191
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =14
                    BackColor =16777164
                    Name ="Terminbemerkung"
                    FontName ="Arial"
                    GUID = Begin
                        0x7480bf439305cc4ca7727cbba19c659b
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =915
                    Width =5637
                    Height =345
                    FontSize =12
                    TabIndex =2
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xe0fc4e7f451c3247adc1bea9654084d5
                    End
                    Name ="Status"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_StatusTerminierung"
                    OnExit ="Mkr_SteuernummerGutschrift"
                    DefaultValue ="IIf([Forms]![frm_Anmeldung]![Benutzername]=\"David Alscher\",\"WV WC\",IIf([Form"
                        "s]![frm_Anmeldung]![Benutzername]=\"Mathias Wieser\",\"WV mw\",IIf([Forms]![frm_"
                        "Anmeldung]![Benutzername]=\"Pietro Randazzo\",\"WV FC\",IIf([Forms]![frm_Anmeldu"
                        "ng]![Benutzername]=\"Benjamin Beyer\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Ben"
                        "utzername]=\"Rene Humann\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]="
                        "\"Thomas Opel\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"Holger Mi"
                        "etzschke\",\"WV FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"Peter Ruf\",\""
                        "WV FC\",\"WV\"))))))))"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                    OnLostFocus ="Mkr_Meldungterminiererwechseln"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3503
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =10
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0x3dafb9f1406ec9489687b06eb9256a45
                    End
                    Name ="AD"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_ADAktiv2"
                    FontName ="Arial"
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    Locked = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =3925
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =11
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xe2bd390fa8ff284dbb1431815ea2e6cd
                    End
                    Name ="Termintag"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_Tag"
                    FontName ="Arial"
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =482
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =1
                    BackColor =16777164
                    Name ="Anruftag"
                    DefaultValue ="=Date()"
                    FontName ="Arial"
                    GUID = Begin
                        0x2086c8affa731c4a864656a5d89d2e7b
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =374
                    Top =5641
                    Width =1260
                    Height =255
                    FontSize =10
                    Name ="Bezeichnungsfeld24"
                    Caption ="Bestätigt."
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x50428eae00aaca4fad123d517b5595f2
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =5650
                    Width =5607
                    Height =300
                    FontSize =12
                    TabIndex =16
                    BackColor =16777164
                    Name ="Bestätigt"
                    DefaultValue ="=IIf([Retention] Like \"*Online Verkauf*\",\"Online Verkauf\",IIf([Status]=\"Ter"
                        "min Service\",\"Servicetermin\",IIf([Status]=\"Termin Rekla\",\"Servicetermin\","
                        "IIf([Status]=\"Termin\" And [Termintag]=\"Montag\" And [Termindatum]=([Anruftag]"
                        "+3),\"Heute auf Morgen\",IIf([Status]=\"Termin\" And [Termindatum]=([Anruftag]+1"
                        "),\"Heute auf Morgen\",\"NB\")))))"
                    FontName ="Arial"
                    GUID = Begin
                        0x618f9535130e7b4d818e84d93c56e9dc
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =1815
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =5
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"100\""
                    GUID = Begin
                        0xda7659f4c0e4db47a093bec68b554b4c
                    End
                    Name ="Terminierer"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_AgentStatusHinzufuegen"
                    DefaultValue ="=IIf([Forms]![frm_Anmeldung]![Benutzername]=\"David Alscher\",\"WC\",IIf([Forms]"
                        "![frm_Anmeldung]![Benutzername]=\"Pietro Randazzo\",\"FC\",IIf([Forms]![frm_Anme"
                        "ldung]![Benutzername]=\"Benjamin Beyer\",\"FC\",IIf([Forms]![frm_Anmeldung]![Ben"
                        "utzername]=\"Rene Humann\",\"FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"H"
                        "olger Mietzschke\",\"FC\",IIf([Forms]![frm_Anmeldung]![Benutzername]=\"Peter Ruf"
                        "\",\"FC\",[Forms]![frm_Anmeldung]![Benutzername]))))))"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =7526
                    Width =5661
                    Height =470
                    FontSize =10
                    TabIndex =19
                    Name ="Befehl29"
                    Caption ="Terminübersicht 8-20 Uhr"
                    OnClick ="Mkr_Terminuebersicht8-20open"
                    FontName ="Arial"
                    ControlTipText ="Zum öffnen der Terminübersicht hier klicken und \"AD\" auswählen!"
                    GUID = Begin
                        0xe9ca16f1c3076249a4b68535574e0a3a
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    FontUnderline = NotDefault
                    TabStop = NotDefault
                    IsHyperlink = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =735
                    Top =9465
                    Width =4362
                    Height =345
                    FontSize =12
                    TabIndex =21
                    BackColor =16777164
                    ForeColor =1279872587
                    Name ="Link"
                    ControlSource ="=\"http://service/terminierung/cal_ajax.php?kdnummer=\" & [Forms]![frm_HauptTerm"
                        "inierungWV]![KD_NR]"
                    FontName ="Arial"
                    GUID = Begin
                        0xf799837ea0e4634caf44cd7419a063e5
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =6279
                    Width =5661
                    Height =470
                    TabIndex =17
                    Name ="Befehl39"
                    Caption ="Terminübersicht online"
                    OnClick ="[Event Procedure]"
                    GUID = Begin
                        0xa666e2f0cf59c34f82c2cde40e288c53
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =1695
                    Top =8101
                    Width =5661
                    Height =620
                    FontSize =10
                    TabIndex =22
                    Name ="Befehl40"
                    Caption ="Termin setzen Freischaltung"
                    OnClick ="Mkr_Openfrm_terminSetzenFS"
                    FontName ="Arial"
                    ControlTipText ="Zum öffnen der Terminübersicht hier klicken und \"AD\" auswählen!"
                    GUID = Begin
                        0xeb9e9a781210f54282047858d21dc46e
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =690
                    Top =9930
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =23
                    BackColor =16777164
                    Name ="Zeit"
                    DefaultValue ="=Time()"
                    FontName ="Arial"
                    GUID = Begin
                        0x4a65443df5c9ca4b921eb3e58601fca1
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2955
                    Top =9930
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =24
                    BackColor =16777164
                    Name ="Office"
                    DefaultValue ="=[Forms]![frm_Anmeldung]![Office]"
                    FontName ="Arial"
                    GUID = Begin
                        0x2eec01825a711e4ebc7a8309440caf8c
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2948
                    Top =10374
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =25
                    BackColor =16777164
                    Name ="Agent2"
                    FontName ="Arial"
                    GUID = Begin
                        0x432fe95e7dbaea41913192e52ffac0c7
                    End
                End
                Begin Label
                    BackStyle =1
                    OverlapFlags =85
                    TextAlign =1
                    Left =360
                    Top =1365
                    Width =1260
                    Height =255
                    FontSize =10
                    Name ="Bezeichnungsfeld47"
                    Caption ="Terminart"
                    FontName ="Arial"
                    Tag ="DetachedLabel"
                    GUID = Begin
                        0x21746e6d72639149b3864336cb0cba10
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    SpecialEffect =0
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =1732
                    Top =1350
                    Width =5607
                    Height =315
                    FontSize =12
                    TabIndex =4
                    BoundColumn =1
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"10\";\"510\""
                    GUID = Begin
                        0xa68b561bf50a9841bd5fbf183eab4cae
                    End
                    Name ="Terminart"
                    RowSourceType ="Table/Query"
                    RowSource ="qry_TerminArt"
                    OnExit ="Mkr_Terminartgehezu"
                    DefaultValue ="=IIf([Forms]![frm_Anmeldung]![Benutzerart]=3.01,21,IIf([Forms]![frm_Anmeldung]!["
                        "Benutzerart]=1.2,164,IIf([Forms]![frm_Anmeldung]![Benutzerart]=3.02,131,IIf([For"
                        "ms]![frm_Anmeldung]![Benutzerart]=3.03,141,IIf([Forms]![frm_Anmeldung]![Benutzer"
                        "art]=3.011,101,11)))))"
                    FontName ="Arial"
                    OnGotFocus ="[Event Procedure]"
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5325
                    Top =10341
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =26
                    BackColor =16777164
                    Name ="BOCC"
                    DefaultValue ="=[Forms]![frm_Haupt]![Agent2]"
                    FontName ="Arial"
                    GUID = Begin
                        0xbc0a19bfa3c5b941a22c87ced33c7d2a
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7485
                    Top =915
                    Width =1761
                    Height =351
                    FontSize =10
                    TabIndex =3
                    ForeColor =0
                    Name ="Befehl50"
                    Caption ="Speichern brutto"
                    OnClick ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0x6883f139c021904ebae87689a453f7c0
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =690
                    Top =10380
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =27
                    BackColor =16777164
                    Name ="QualiJaNein"
                    DefaultValue ="=[Forms]![frm_Haupt]![QualiJaNein]"
                    FontName ="Arial"
                    GUID = Begin
                        0xae6f9aa206c3944198f47cee060d9d70
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5329
                    Top =9864
                    Width =1992
                    Height =330
                    FontSize =12
                    TabIndex =28
                    BackColor =16777164
                    Name ="String"
                    OnDblClick ="Mkr_SetzeString"
                    DefaultValue ="=[Forms]![frmEnergieTerminQuali]![string]"
                    FontName ="Arial"
                    GUID = Begin
                        0x2e45135e4bc8e842935c74d7443c2a72
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =5325
                    Top =9486
                    Width =2052
                    Height =330
                    FontSize =12
                    TabIndex =29
                    BackColor =16777164
                    Name ="StatusQualiSolar"
                    FontName ="Arial"
                    GUID = Begin
                        0x04abec17f362d54c99dd8e3616d08dc8
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7530
                    Top =5610
                    Width =1938
                    Height =513
                    TabIndex =30
                    Name ="Befehl56"
                    Caption ="Email Terminbestätigung senden lassen OV"
                    OnClick ="Mkr_NBsetzenOV"
                    GUID = Begin
                        0x9aa0891e0a31cf489a4bf9fc8289b1bd
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x15a00f434d6a81419beb0792f5bf6d09
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =15
                    Top =45
                    Width =516
                    Height =516
                    Name ="Befehl26"
                    Caption ="Befehl26"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0xa7119364183a004a896e0d64f7e03894
                    End
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub Befehl30_Click()

End Sub



Private Sub Befehl16_Click()
 
' Löschen WV Datum und Setzen Terminierer Alt wenn Backoffice CC

        If Not IsNull(Me.Status) Then
        
            DoCmd.RunMacro "MkrAgent2"
            
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 14' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 10' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 2' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX Agenten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Essen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Tunis' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Mail/Fax nicht durch bzw. erhalten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV doppelte Termine' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV komplett Absagen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX AD' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Sofort' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Absage' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV FC' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV WC' ")
            '  CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Neu terminieren' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'Quali WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie Teamleiter' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV gk' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV mw' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Angebot besprechen SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu aus ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Rechnungen einholen FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Rechnungen liegen vor FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf warte auf Auftrag SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf warte auf Entscheidung SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV OV Termin vereinbaren FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV OV Angebot prüfen und versenden FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV OV Angebot erstellen FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Empfehlung Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Empfehlung in Bearbeitung' ")
                
                End If
    
' Email Termine Heute auf Morgen
    
    ' If Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.Termindatum = [Forms]![frm_Haupt]![Nächster Arbeitstag] Then
     
   '          DoCmd.OpenForm "frm_EmailHeuteaufMorgen", acNormal, "", "", acEdit, acNormal

        
'    End If

    
' Termine von Backoffice CC
    If Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termine NICHT von Backoffice CC
         ElseIf Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Service von Backoffice CC
        ElseIf Me.Status = "Termin Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termine NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Rekla von Backoffice CC
        ElseIf Me.Status = "Termin Rekla" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Rekla NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Rekla" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Energie Analyse von Backoffice CC
        ElseIf Me.Status = "Termin Energie Analyse" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Energie Analyse NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie Analyse" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
' Termin Energie VK von Backoffice CC
        ElseIf Me.Status = "Termin Energie VK" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Or Me.BOCC = "*" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Energie VK NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie VK" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [StatusQualitaetskontrolle], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.StatusQualiSolar & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
                
' Termin Energie Nachholer von Backoffice CC
        ElseIf Me.Status = "Termin Energie Nachholer" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Or Me.BOCC = "*" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
        
' Termin Energie Nachholer NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie Nachholer" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [StatusQualitaetskontrolle], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.StatusQualiSolar & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
        
 ' Termin Energie Service von Backoffice CC
        ElseIf Me.Status = "Termin Energie Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Me.BOCC = "Backoffice CC" Or Me.BOCC = "*" Then
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
        'End If
       
                                        
 ' Termin Energie Service NICHT von Backoffice CC
         ElseIf Me.Status = "Termin Energie Service" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) And Not Me.BOCC = "Backoffice CC" Then
                   
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [StatusQualitaetskontrolle], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.StatusQualiSolar & "','" & Me.Terminart & "')")
        
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            DoCmd.GoToRecord , , acPrevious
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")

        'End If
                
        
' Block
    'ElseIf Me.Status = "Block" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) Then
            
     '       CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
      '      Forms!frm_HauptTerminierungWV.SetFocus
       '     DoCmd.GoToRecord , , acNext
        '    Forms!frm_terminierung_ungebunden_neu.SetFocus
         '   DoCmd.Close
          '  MsgBox ("Status gespeichert")
        'End If
        
        
' WV von Backoffice CC Nicht Quali

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Me.BOCC = "Backoffice CC" And Me.QualiJaNein = "Nein" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
        
        'End If
        
' WV von Backoffice CC Quali

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Me.BOCC = "Backoffice CC" And Me.QualiJaNein = "Ja" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
        
        'End If
        
' WV von Online Verkauf FL
        
            ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Me.Retention = "Online Verkauf FL" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
            
        
' WV NICHT von Backoffice CC

        ElseIf Me.Status Like "*" & "WV" & "*" And Not IsNull(Me.WVDatum) And Not Me.BOCC = "Backoffice CC" Then
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit],[WV Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")
        
        'End If
        
      
        
        
 ' Brutto von Backoffice CC

        'ElseIf Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Me.BOCC = "Backoffice CC" Then
        
         '   CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
          '  Forms!frm_HauptTerminierungWV.SetFocus
           ' DoCmd.GoToRecord , , acNext
            'Forms!frm_terminierung_ungebunden_neu.SetFocus
            'DoCmd.Close
            'MsgBox ("Status gespeichert")

        'End If
        
' Brutto Nicht von Backoffice CC

'        ElseIf Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Not Me.BOCC = "Backoffice CC" Then
        
 '           CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "')")
  '          Forms!frm_HauptTerminierungWV.SetFocus
   '         DoCmd.GoToRecord , , acNext
    '        Forms!frm_terminierung_ungebunden_neu.SetFocus
     '       DoCmd.Close
      '      MsgBox ("Status gespeichert")
            
        ' Aus Performancs Gründen mal ausgebelndeT!!!!!
        
        'ElseIf Me.Status Like "Termin" & "*" And IsNull(Me.Termindatum) Then
        'MsgBox ("Bei Status Termin bitte Termindatum und Terminuhrzeit setzen")
        
        'ElseIf Me.Status Like "*" & "WV" & "*" And IsNull(Me.WVDatum) Then
        'MsgBox ("Bei Status WV bitte WV Datum setzen")
        
            
    End If
 
    'If Not IsNull(Me.Status) Then
    'If Me.Status = "Termin" And Not IsNull(Me.Termindatum) And Not IsNull(Me.Terminzeit) Or Not Me.Status = "Termin" Then
    '       DoCmd.RunMacro "MkrAgent2"
    '       CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
    '       CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [WV Datum], [WV Uhrzeit], [WV Bemerkung], [AD], [Termintag], [Termindatum], [Terminzeit], [Termin Bemerkung], [Bestätigt], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.WVDatum & "','" & Me.WVUhrzeit & "','" & Me.WVBemerkung & "','" & Me.AD & "','" & Me.Termintag & "','" & Me.Termindatum & "','" & Me.Terminzeit & "','" & Me.Terminbemerkung & "','" & Me.Bestätigt & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.Agent2 & "')")
    '    End If
    'End If
    

    
    
End Sub

Private Sub Befehl39_Click()
    CreateObject("Shell.Application").ShellExecute Me.Link
End Sub

Private Sub Link2_Click()

End Sub

Private Sub Befehl50_Click()
       
 ' Brutto von Backoffice CC

        If Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Me.BOCC = "Backoffice CC" Then
        
' Löschen WV Datum und Setzen Terminierer Alt wenn Backoffice CC

            DoCmd.RunMacro "MkrAgent2Brutto"

            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 14' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 10' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX Agenten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Essen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Tunis' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Mail/Fax nicht durch bzw. erhalten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV doppelte Termine' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV komplett Absagen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX AD' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Sofort' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Absage' ")
            'CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie'  ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Neu terminieren' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'Quali WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie Teamleiter' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV gk' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV mw' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Angebot besprechen SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu aus ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Rechnungen einholen FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Rechnungen liegen vor FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf warte auf Auftrag SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf warte auf Entscheidung SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV OV Angebot erstellen FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Empfehlung Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Empfehlung in Bearbeitung' ")
        
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA], [Agent2]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "', '" & Me.Agent2 & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")

        'End If
        
' Brutto Nicht von Backoffice CC

        ElseIf Not Me.Status Like "*" & "WV" & "*" And Not Me.Status Like "Termin" & "*" And Not Me.Status = "Block" And Not Me.BOCC = "Backoffice CC" Then
        
' Löschen WV Datum und Setzen Terminierer Alt wenn Backoffice CC
        
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 14' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV 10' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX Agenten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Essen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Tunis' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Mail/Fax nicht durch bzw. erhalten' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV doppelte Termine' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV komplett Absagen' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV EX AD' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Sofort' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Absage' ")
            'CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Neu terminieren' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'Quali WV' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Energie Teamleiter' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV gk' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV mw' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Angebot besprechen SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Bearbeitung FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu aus ki' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Neu FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Rechnungen einholen FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf Rechnungen liegen vor FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf warte auf Auftrag SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Online Verkauf warte auf Entscheidung SL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV OV Angebot erstellen FL' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Empfehlung Neu' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV Empfehlung in Bearbeitung' ")
            
            
            CurrentDb.Execute ("Insert into tbl_Statustabelle ([KD_NR], [Anruftag], [Status], [Terminierer], [Uhrzeit], [ID_TA],[StatusQualitaetskontrolle]) values ('" & Me.KD_NR & "','" & Me.Anruftag & "','" & Me.Status & "','" & Me.Terminierer & "','" & Me.Zeit & "','" & Me.Terminart & "','" & Me.StatusQualiSolar & "')")
            Forms!frm_HauptTerminierungWV.SetFocus
            DoCmd.GoToRecord , , acNext
            Forms!frm_terminierung_ungebunden_neu.SetFocus
            DoCmd.Close
            MsgBox ("Status gespeichert")

            
        End If
 
End Sub

Private Sub Form_Close()
    'Forms!frm_HauptTerminierungWV.Requery
    'If Me.Status = "Termin" Then
        ' MsgBox ("Bitte Kunden nach Email Adresse wegen Termin-Bestätigung-Email fragen und Email versenden! Falls Kunde keine Email hat bitte Faxnummer erfragen und Kunden Termin-Bestätigung faxen!")
    'End If
End Sub

Private Sub Status_GotFocus()
Me.Status.DropDown
End Sub

Private Sub Terminart_GotFocus()
Me.Terminart.DropDown
End Sub

Private Sub Terminierer_GotFocus()
Me.Terminierer.DropDown
End Sub

Private Sub Terminübersicht_Click()
On Error GoTo Err_Terminübersicht_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_TerminübersichtAuto"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Terminübersicht_Click:
    Exit Sub

Err_Terminübersicht_Click:
    MsgBox Err.Description
    Resume Exit_Terminübersicht_Click
    
End Sub
Private Sub Befehl26_Click()
On Error GoTo Err_Befehl26_Click


    DoCmd.Close

Exit_Befehl26_Click:
    Exit Sub

Err_Befehl26_Click:
    MsgBox Err.Description
    Resume Exit_Befehl26_Click
    
End Sub