Version =20
VersionRequired =20
Checksum =-1094577130
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 =9534
    DatasheetFontHeight =10
    ItemSuffix =58
    Left =10260
    Top =1170
    Right =18030
    Bottom =9525
    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 ,
        0x000000000000000000000000000000000500000005000000000aa08064006400 ,
        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 ,
        0x0000000000000000000000000000000000000200000000000000000000000000 ,
        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 ,
        0x0000000000000000000000000000000000000000000000006450634be9030000 ,
        0x56010000e4040000000000000000000000000000000000000000000000000000 ,
        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 ,
        0x000000000000000000000000000000000000000000000000000000006450634b ,
        0x64ea000056010000100000000000000000000000000000000000000000000000 ,
        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
        0x080022004f000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000003139322e3136382e3130302e343500
    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
                0xa96cf83def930641a26678c287b36303
            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
                        0xcd45f8a0899c1e4e971868c61750eb31
                    End
                End
            End
        End
        Begin Section
            Height =10941
            Name ="Detailbereich"
            GUID = Begin
                0x6b8c9688d9b8f541a10ce50e48590dba
            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
                        0xafca125d0bb0b0439bc5b960a9d3d764
                    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
                        0x2f61522c083d3c4091cf5b7ee862be85
                    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
                        0xab03ce4565ee4441b6806da85937369d
                    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
                        0xd10e4d777bacbc4f95f03dab13439c9a
                    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
                        0xcfe433d45846ff4d929f23dc79ac8a14
                    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
                        0xda2d004cbbc3344dabc3817a37ca4ea7
                    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
                        0x00d7c723a13d8c4e982da8289af14306
                    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
                        0xc4b93fba2bb19b4a8b449543ef9d7d74
                    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
                        0x9d0f65d020878841a37e19cf443e1ebb
                    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
                        0x2092e8782bec074dbe7634895ed69555
                    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
                        0x1dff5e1e23439141a5d890929440ff2c
                    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
                        0x067ec8d2614b314a8bcaf6d8c9038b7b
                    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
                        0xe1d1b91a7ff4624fa8ed8d612106a660
                    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
                        0x19d3bff4b60c3541861ac8033870f8a2
                    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
                        0x4005dfc078c6844b8a5aec482f8951b2
                    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
                        0x006e7fe54ac3844c8ceda1eda5eace7a
                    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
                        0x521fedc7908dac40aa51d23dd1c9fe3d
                    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
                        0xb667099d1e99dd4eae27807d30159b39
                    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
                        0xb83e3ed8534f8f4d82265fae8c4884f5
                    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
                        0xbd4e8b6159df134f89bd7b78db1b6a8a
                    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
                        0x9e5c6e46a979d34689f04210fb5e5331
                    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
                        0x67acf3b854524f4795320b274621fcc0
                    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
                        0xdf219d0e0d107c47b83b01b565381e0b
                    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
                        0x8a95498febb8c1489c8941387cdb8c30
                    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
                        0xfe0c1ad48027b44691659d28f8b4a8a3
                    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
                        0xbc8af836fabcc1418e144073beeeab17
                    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
                        0x8126ea57c5fc1b4ab3a0f8cf5d891686
                    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
                        0xa637af2f44ab1c409e598a3c5684007a
                    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*\" Or [Forms]![frm_Anmeldung]![Benutzern"
                        "ame]=\"Thiel Oliver\" Or [Forms]![frm_Anmeldung]![Benutzername]=\"Ricardo Rathma"
                        "nn\",\"Online Verkauf\",IIf([Status]=\"Termin Service\",\"Servicetermin\",IIf([S"
                        "tatus]=\"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
                        0x9378407e1506c94eb9d288dfc05add20
                    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
                        0x259771f09e16ec4fb6d8bd6ce5ad7567
                    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
                        0x8ede9e0a7efe294e9cb04d07133111ea
                    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
                        0x52768bad017ebb488461034bf0cec7d4
                    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
                        0xce5748d1b1f96d419212f148949ecdea
                    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
                        0xa18af570d5e96e4480de44bb3c1d14ed
                    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
                        0x2e82ae931d164440abbbd1045bd68568
                    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
                        0x2258e4e66dc0604997d2132eecf4afa8
                    End
                End
                Begin TextBox
                    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
                        0xfd312bdcaf6d984c8d9203724b56b57a
                    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
                        0x3c9eaf478d00004886c35b6085841539
                    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
                        0x53e4e120150d274f8da873795249a8bd
                    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,IIf([Forms]![frm_Anmeldung]![Benutzerart] Between 3.71 And 3.72,2"
                        "00,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
                        0x3c534ebab783c2419ca0a028782e78ae
                    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
                        0xf4c91a825fe0db438b2a68483abb3146
                    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
                        0x3f0587ff5ca983438b2145ae2e80ccb0
                    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
                        0xf8fde611dd619c4294bb7d297e015375
                    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
                        0xa28c8fba64f7c04c9f4608f62d30bab6
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =7596
                    Top =5612
                    Width =1938
                    Height =513
                    TabIndex =30
                    Name ="Befehl56"
                    Caption ="Email Terminbestätigung senden lassen OV"
                    OnClick ="Mkr_NBsetzenOV"
                    GUID = Begin
                        0xdb7cd20832ccf24ab67a2b5480456746
                    End
                End
            End
        End
        Begin FormFooter
            Height =576
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x6d5bfcd27685d143872b69b8e60317ae
            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
                        0x82bf5d2e28ef3a47a028bcff9a578fb9
                    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' ")
            CurrentDb.Execute ("Update tbl_Statustabelle set [WV Datum] = '' WHERE [KD_NR] = " & Me.KD_NR & " AND [Status] = 'WV OV Termin Koordinierung FL' ")
                
                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 OV Termin Koordinierung FL
        
            ElseIf Me.Status = "WV OV Termin Koordinierung 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" And Not Me.Status = "WV OV Termin Koordinierung FL" 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