Version =20
VersionRequired =20
Checksum =-150766537
Begin Form
    PopUp = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =28020
    DatasheetFontHeight =10
    ItemSuffix =103
    Left =4830
    Top =4410
    Right =32730
    Bottom =18075
    DatasheetGridlinesColor =12632256
    Filter ="((tbl_tarifepos.MonatJahr=\"062013\"))"
    OrderBy ="tbl_tarifepos.LfdNR"
    RecSrcDt = Begin
        0x8482c8deac3ae440
    End
    RecordSource ="qry_TarifProv"
    Caption ="Kalkulation"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00bc031fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000000000000000000000000000000000000000000050524956 ,
        0xe030000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000180000000000102710271027 ,
        0x000010270000000000000000e800bc0300000000000000000000000000000000 ,
        0x0000000000000000030000000000000000001000503403002888040000000000 ,
        0x000000000000000000000000000000000000000000000000cb0077d408000000 ,
        0x00000000010001000000ff000200000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x01000000000000000000000000000000e8000000534d544a000000001000d800 ,
        0x4100700070006c00650020004c00610073006500720057007200690074006500 ,
        0x72002000380035003000300000005265736f6c7574696f6e0036303064706900 ,
        0x4475706c6578004e6f6e650042697473506572506978656c004e6f6e6500536d ,
        0x6f6f7468696e670046616c7365005061676553697a65004c6574746572005061 ,
        0x6765526567696f6e0000496e707574536c6f74005374616e6461726443617373 ,
        0x6574746500547261795377697463680054727565000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x08001f005d000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000545330 ,
        0x303100
    End
    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 OptionButton
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin OptionGroup
            SpecialEffect =3
            Width =1701
            Height =1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin PageHeader
            DisplayWhen =1
            Height =0
            BackColor =16777164
            Name ="Seitenkopfbereich"
            GUID = Begin
                0x0d9c96d01f995f4c8ea315c9354912d8
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =13266
            Name ="Detailbereich"
            GUID = Begin
                0x394bbc91d4b86848a84ea487990c7365
            End
            Begin
                Begin ListBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =60
                    Top =345
                    Width =9075
                    Height =7477
                    FontSize =10
                    Name ="Liste9"
                    RowSourceType ="Table/Query"
                    RowSource ="SELECT [qry_TarifProv].[Tarif] FROM [qry_TarifProv];"
                    ColumnWidths ="1440"
                    AfterUpdate ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0xedd1f31132d55f4dbff29e01093f3884
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =60
                    Top =7875
                    Width =9066
                    Height =300
                    FontSize =10
                    TabIndex =27
                    Name ="Tarif"
                    ControlSource ="Tarif"
                    FontName ="Arial"
                    GUID = Begin
                        0x17022aed76bb8c40906cd80e791e3d73
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =16620
                    Top =7875
                    Width =171
                    Height =285
                    TabIndex =28
                    Name ="ProvGesamt"
                    ControlSource ="ProvGesamt"
                    GUID = Begin
                        0x38c37afdba85b54b84ca74a4ce077244
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =16845
                    Top =7875
                    Width =171
                    Height =285
                    TabIndex =29
                    Name ="ProvAD"
                    ControlSource ="ProvAD"
                    GUID = Begin
                        0x3486adc8016cbf40b2fc293e2f3cd372
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15312
                    Top =4847
                    Width =561
                    Height =285
                    TabIndex =30
                    BackColor =12632256
                    Name ="MonateGGBefreiung"
                    ControlSource ="GG_Befreiung_Monate"
                    GUID = Begin
                        0x85821637d2dd254f98336cda0e242312
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    AllowAutoCorrect = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15984
                    Top =4852
                    Width =561
                    Height =285
                    TabIndex =31
                    BackColor =12632256
                    Name ="EinMonGGbefreiung"
                    ControlSource ="EinMonatGGbefreiung"
                    GUID = Begin
                        0x6496d86ab5211f4da6b9a1cf1a1da868
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =975
                    Width =1875
                    Height =255
                    TabIndex =3
                    Name ="VertragsbeginnNeu"
                    Format ="Short Date"
                    ValidationRule ="=[VertragsbeginnNeu] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0xcd28ea227967b2478e9ae2a1d1498b8a
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =975
                            Width =1500
                            Height =240
                            Name ="Bezeichnungsfeld16"
                            Caption ="Vertragsbeginn Neu"
                            GUID = Begin
                                0x3736d1e98cc76f4a8d4bcb69368b5307
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =15300
                    Top =4545
                    Width =1590
                    Height =210
                    Name ="Bezeichnungsfeld17"
                    Caption ="GG Befreiung möglich"
                    GUID = Begin
                        0x520f0f8a52be874b8046d5dde53ef987
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =1303
                    Width =1875
                    Height =255
                    TabIndex =4
                    Name ="VertragsendeAlt"
                    Format ="Short Date"
                    ValidationRule ="=[VertragsendeAlt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x52655c3b411df447bb26809fd7bcdbe6
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =1303
                            Width =1290
                            Height =240
                            Name ="Bezeichnungsfeld19"
                            Caption ="Vertragsende Alt"
                            GUID = Begin
                                0xe4ce2a6a2c5c5148b0ce004ecf2075c5
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =1607
                    Width =1875
                    Height =255
                    TabIndex =5
                    BackColor =12632256
                    Name ="Restlaufzeit"
                    Format ="Standard"
                    GUID = Begin
                        0x862a4bc7c3e33148a58cb54375a97456
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9207
                            Top =1607
                            Width =930
                            Height =240
                            Name ="Bezeichnungsfeld21"
                            Caption ="Restlaufzeit"
                            GUID = Begin
                                0xecaf937b097dd240abf522c1809bb520
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =3221
                    Width =1875
                    Height =255
                    TabIndex =10
                    Name ="RestlaufzeitBisMoeglicherTW"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x9c1772de2e357d43a3d78716fbbeafb8
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =3201
                            Width =2175
                            Height =240
                            Name ="Bezeichnungsfeld23"
                            Caption ="Restlaufzeit bis möglicher TW"
                            GUID = Begin
                                0xcd95bd4339b547469ecd51a7553574d0
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =3915
                    Width =1875
                    Height =255
                    TabIndex =13
                    BackColor =12632256
                    Name ="RestlaufzeitKleinstMoeglicherTarif"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x8f2a8af77d51f04d9b20e7b0d8fd3034
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =3919
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld25"
                            Caption ="Restlaufzeit kleinst möglicher Tarif"
                            GUID = Begin
                                0x2168daf9db3a4c4caa2a5b8c3f761df5
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =1935
                    Width =1875
                    Height =255
                    TabIndex =6
                    Name ="GGalt"
                    Format ="Standard"
                    ValidationRule ="=[GGalt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0x42127ba71380924292a686b42f2b984e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =1935
                            Width =1110
                            Height =240
                            Name ="Bezeichnungsfeld27"
                            Caption ="GG alt / Monat"
                            GUID = Begin
                                0xc10908e7c38e9842a7a48425cbbc8bf9
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =2895
                    Width =1875
                    Height =255
                    TabIndex =9
                    Name ="GGKleinstMoeglich"
                    Format ="Standard"
                    ValidationRule ="=[GGKleinstMoeglich] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0x9d7e0b39d8903a46a9ca0e15f0a697dc
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =2895
                            Width =1350
                            Height =240
                            Name ="Bezeichnungsfeld29"
                            Caption ="GG kleinst möglich"
                            GUID = Begin
                                0x07af025d653b6d45b83e1140ff8baf84
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =3570
                    Width =1875
                    Height =255
                    TabIndex =12
                    Name ="TarifwechselGebühr"
                    Format ="Standard"
                    ValidationRule ="=[TarifwechselGebühr] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0xb078c02989cb6c498ba76de5c985463f
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =3570
                            Width =1545
                            Height =240
                            Name ="Bezeichnungsfeld31"
                            Caption ="Tarifwechsel Gebühr"
                            GUID = Begin
                                0x9626e6e226167c49bd804d565c62de02
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13284
                    Top =5679
                    Width =1875
                    Height =255
                    TabIndex =18
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehr"
                    Format ="Standard"
                    GUID = Begin
                        0xea86d5ec2e1ebd43ab5808489a5d7c51
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =5610
                            Width =3210
                            Height =240
                            Name ="Bezeichnungsfeld33"
                            Caption ="GG alt kleinstmöglich mit TW Gebühr gesamt"
                            GUID = Begin
                                0xcf34c91dbbff574599ad60c4fe6c020c
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6000
                    Width =1875
                    Height =255
                    TabIndex =19
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt"
                    Format ="Standard"
                    GUID = Begin
                        0xf43e049e6fa4c74aa16139fb3cc748ca
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =6000
                            Width =3825
                            Height =240
                            Name ="Bezeichnungsfeld35"
                            Caption ="GG alt kleinstmöglich mit TW Gebühr und VVL gesamt"
                            GUID = Begin
                                0x97fb2c71fdc49546b30012211a0054c2
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6328
                    Width =1875
                    Height =255
                    TabIndex =20
                    BackColor =12632256
                    Name ="KostenAltGesamt"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xa7977cba6c60ba46a6057a313b15e749
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9207
                            Top =6328
                            Width =2535
                            Height =240
                            Name ="Bezeichnungsfeld37"
                            Caption ="Kosten Alt vor Umstellung gesamt "
                            GUID = Begin
                                0xbc38d12cfd09d0439192cf3b0ba37e46
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6656
                    Width =1875
                    Height =255
                    TabIndex =21
                    BackColor =12632256
                    Name ="ErsparnisOhneAltlostenUeberLaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x52bee865d2699545ab6842dbcb58053b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =6656
                            Width =3060
                            Height =240
                            Name ="Bezeichnungsfeld39"
                            Caption ="Alt zu Neu über die Laufzeit"
                            GUID = Begin
                                0x52c4c95b93c50c479eafa94865e4f520
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =6984
                    Width =1875
                    Height =255
                    TabIndex =22
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeit"
                    Format ="Standard"
                    GUID = Begin
                        0x02a617e921377a40ac987e3e8a869063
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9207
                            Top =6984
                            Width =2910
                            Height =240
                            Name ="Bezeichnungsfeld41"
                            Caption ="Ersparnis mit Altlosten über die Laufzeit"
                            GUID = Begin
                                0x8641463dd732c44cb28481995afa63a3
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =7312
                    Width =1875
                    Height =255
                    TabIndex =23
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeitmitVVL"
                    Format ="Standard"
                    GUID = Begin
                        0x1050568464ae5f41a7ef74fb43fa4664
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =7312
                            Width =3465
                            Height =240
                            Name ="Bezeichnungsfeld43"
                            Caption ="Ersparnis mit Altlosten über die Laufzeit mit VVL"
                            GUID = Begin
                                0x92b37b93b10e7f4bb0e6f944866ba499
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =7640
                    Width =1875
                    Height =255
                    TabIndex =24
                    Name ="SubHW"
                    Format ="Standard"
                    ValidationRule ="=[SubHW] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0xe78ca8ba191e744796edad16ab6ed7ba
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =7635
                            Width =2010
                            Height =240
                            Name ="Bezeichnungsfeld45"
                            Caption ="Sub Hardware nicht Bundel"
                            GUID = Begin
                                0x2bcc6c05d011a34bbb28e4556a84135e
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13260
                    Top =4260
                    Width =1875
                    Height =255
                    TabIndex =14
                    BackColor =12632256
                    Name ="GGneu"
                    ControlSource ="GG"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x74f7f252c017314daa4111c9c8d41537
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =345
                    Width =1875
                    Height =255
                    TabIndex =1
                    Name ="KD_NR"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![KD_NR]"
                    GUID = Begin
                        0xdcf1a22c310fc145a335d81a8ca142d7
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =345
                            Width =2370
                            Height =240
                            Name ="Bezeichnungsfeld48"
                            Caption ="Kundennummer / Statusnummer"
                            GUID = Begin
                                0xe5edc4850fe43649a0870eb437f8a847
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =9195
                    Top =4200
                    Width =1200
                    Height =240
                    Name ="Bezeichnungsfeld51"
                    Caption ="GG neu / Monat"
                    GUID = Begin
                        0x8557df8823ef314f84146024461e1f61
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =4852
                    Width =1875
                    Height =255
                    TabIndex =16
                    Name ="GGbefreiungMonate"
                    Format ="Standard"
                    ValidationRule ="=[GGbefreiungMonate] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x1db21bb136e0754190657e0b26fd209d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =4856
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld54"
                            Caption ="GG Befreiung Monate"
                            GUID = Begin
                                0x06e9dbf67366494bbf4e91649ade237c
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13278
                    Top =5197
                    Width =1875
                    Height =255
                    TabIndex =17
                    BackColor =12632256
                    Name ="Vertragslaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=24"
                    GUID = Begin
                        0x9bed0ab1e6ef074b9a25ca9722a53bea
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =5201
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld56"
                            Caption ="Vertragslaufzeit"
                            GUID = Begin
                                0x868a7bf9015be74b89073cc43c84c836
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =7950
                    Width =1875
                    Height =255
                    TabIndex =25
                    Name ="SubGS"
                    Format ="Standard"
                    ValidationRule ="=[SubGS] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x86c1fb18c0af534aacd4e89acdb5e1d5
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =7950
                            Width =2055
                            Height =240
                            Name ="Bezeichnungsfeld58"
                            Caption ="Sub Gutschrift  nicht Bundel"
                            GUID = Begin
                                0x4b1850422f7f0b4dbaef698f65fa37ba
                            End
                        End
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Left =60
                    Top =8445
                    Width =27907
                    Height =4200
                    TabIndex =32
                    Name ="qry_rent_unter"
                    SourceObject ="Form.frm_rent_unter"
                    GUID = Begin
                        0x830811c3d166b54e813acf15fd1cd8aa
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15300
                    Top =7770
                    Width =1215
                    Height =405
                    TabIndex =26
                    Name ="Befehl62"
                    Caption ="Ausführen"
                    OnClick ="MKr_SetzeRent"
                    GUID = Begin
                        0xd685c1133f5ca44db11ee236f43e5433
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15360
                    Top =690
                    TabIndex =33
                    Name ="Sachbearbeiter"
                    ControlSource ="=[Forms]![frm_Anmeldung]![Benutzername]"
                    GUID = Begin
                        0x1c00dd150e69c94e82bfddcf9fe3c94a
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =2256
                    Width =1875
                    Height =255
                    TabIndex =7
                    Name ="InnlandskostenAlt"
                    Format ="Standard"
                    ValidationRule ="=[InnlandskostenAlt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x2e0ef9e84c4c104b84e529997a7d05c4
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =2256
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld64"
                            Caption ="Innlandskosten alt / Monat"
                            GUID = Begin
                                0xc78be27f37417f4ead252d18c3b13a4c
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13272
                    Top =2565
                    Width =1875
                    Height =255
                    TabIndex =8
                    BackColor =12632256
                    Name ="GesamtkostenAlt"
                    Format ="Standard"
                    GUID = Begin
                        0x832cec2db013b046bfd682505e5a7937
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9201
                            Top =2565
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld66"
                            Caption ="Gesamtkosten alt / Monat"
                            GUID = Begin
                                0xfd42748c684af147b18db134eff69b15
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15354
                    Top =3210
                    Width =1221
                    Height =255
                    TabIndex =11
                    GUID = Begin
                        0x0c90b53724004948b8d42d91545ba8d8
                    End
                    Name ="VVLjanein"
                    RowSourceType ="Value List"
                    RowSource ="\"VVL Ja\";\"VVL Nein\""
                    ValidationRule ="=[VVLjanein] Is Not Null"
                    ValidationText =" Feld VVL Alttarif notwendig muss ausgefüllt werden"
                    OnGotFocus ="[Event Procedure]"
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =15368
                            Top =2949
                            Width =1740
                            Height =210
                            Name ="Bezeichnungsfeld87"
                            Caption ="VVL Alttarif notwendig?"
                            GUID = Begin
                                0x903614f1ec84534ab68b25717066a8da
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =17177
                    Top =285
                    Width =4125
                    Height =5326
                    FontSize =12
                    TabIndex =34
                    Name ="Text88"
                    ControlSource ="=IIf([qry_rent_unter].[Form]![Ergebnis]>=0,\"Verträge können zur Eingabe weiterg"
                        "eleitet werden!\",\"Verträge können NICHT aktiviert werden! Bitte Info an Boris "
                        "Djuras geben!\")"
                    ConditionalFormat = Begin
                        0x01000000f2000000020000000100000000000000000000002400000001000000 ,
                        0x0000000000ff0000010000000000000025000000480000000100000000000000 ,
                        0xff00000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b007100720079005f00720065006e0074005f0075006e007400650072005d00 ,
                        0x2e0046006f0072006d0021005b00450072006700650062006e00690073005d00 ,
                        0x3e003d003000000000005b007100720079005f00720065006e0074005f007500 ,
                        0x6e007400650072005d002e0046006f0072006d0021005b004500720067006500 ,
                        0x62006e00690073005d003c00300000000000
                    End
                    GUID = Begin
                        0x4f4c26f0a3e1fc4dae2981997a40d069
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =17190
                    Top =5731
                    Width =4125
                    Height =2431
                    FontSize =12
                    TabIndex =35
                    Name ="Text91"
                    ControlSource ="=IIf([qry_rent_unter].[Form]![Text117]-[qry_rent_unter].[Form]![Text77]-[qry_ren"
                        "t_unter].[Form]![Text78]<=0,IIf([qry_rent_unter].[Form]![Ergebnis]>=0,\"Leider i"
                        "st eine Freischaltung NUR über PV möglich. Bitte Vorgang nach Aktivierung durchf"
                        "ühren lassen!\"))"
                    ConditionalFormat = Begin
                        0x01000000a2020000020000000100000000000000000000008e00000001000000 ,
                        0x0000000000ff000001000000000000008f000000200100000100000000000000 ,
                        0xffff000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b007100720079005f00720065006e0074005f0075006e007400650072005d00 ,
                        0x2e005b0046006f0072006d005d0021005b005400650078007400310031003700 ,
                        0x5d003e003d003000200041006e00640020005b007100720079005f0072006500 ,
                        0x6e0074005f0075006e007400650072005d002e0046006f0072006d0021005b00 ,
                        0x54006500780074003100310037005d002d005b007100720079005f0072006500 ,
                        0x6e0074005f0075006e007400650072005d002e005b0046006f0072006d005d00 ,
                        0x21005b005400650078007400370037005d002d005b007100720079005f007200 ,
                        0x65006e0074005f0075006e007400650072005d002e005b0046006f0072006d00 ,
                        0x5d0021005b005400650078007400370038005d003e003d003000000000005b00 ,
                        0x7100720079005f00720065006e0074005f0075006e007400650072005d002e00 ,
                        0x5b0046006f0072006d005d0021005b0054006500780074003100310037005d00 ,
                        0x2d005b007100720079005f00720065006e0074005f0075006e00740065007200 ,
                        0x5d002e005b0046006f0072006d005d0021005b00540065007800740037003700 ,
                        0x5d002d005b007100720079005f00720065006e0074005f0075006e0074006500 ,
                        0x72005d002e005b0046006f0072006d005d0021005b0054006500780074003700 ,
                        0x38005d003c003d003000200041006e00640020005b007100720079005f007200 ,
                        0x65006e0074005f0075006e007400650072005d002e005b0046006f0072006d00 ,
                        0x5d0021005b00450072006700650062006e00690073005d003e003d0030000000 ,
                        0x0000
                    End
                    GUID = Begin
                        0x7654e55e6f339c409856b0bf94fa8271
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13266
                    Top =675
                    Width =1875
                    Height =255
                    TabIndex =2
                    Name ="Rufnummer"
                    GUID = Begin
                        0x6bafb55f5aca3c4eb7d0cee04a770d08
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9195
                            Top =675
                            Width =1185
                            Height =240
                            Name ="Bezeichnungsfeld93"
                            Caption ="Rufnummer"
                            GUID = Begin
                                0x13cd6be030512c4b9e0c430909585ca2
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15360
                    Top =4228
                    Width =1710
                    Height =270
                    TabIndex =15
                    BackColor =12632256
                    Name ="DifferenzGGAltNeuvorTW"
                    Format ="Standard"
                    GUID = Begin
                        0x2f7f43bfbb580e43b843b958adac7f52
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =15420
                            Top =3686
                            Width =1635
                            Height =450
                            Name ="Bezeichnungsfeld98"
                            Caption ="Differnz Alt Neu GG vor Tarifwechsel"
                            GUID = Begin
                                0xa0fb3dcac73c89498ff680ec4e710f85
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =165
                    Top =12750
                    Width =516
                    Height =516
                    TabIndex =36
                    Name ="Befehl90"
                    Caption ="Befehl90"
                    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
                        0xebe86e945162e9489124d9e31f032c24
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15360
                    Top =345
                    Width =1710
                    Height =285
                    TabIndex =37
                    Name ="Status_Nr"
                    ControlSource ="=[Forms]![frm_HauptTerminierungWV]![subfrm_Terminierung].[Form]![Status_NR]"
                    GUID = Begin
                        0x96badb075ce5db48bf5abac7bdb069eb
                    End
                End
            End
        End
        Begin PageFooter
            DisplayWhen =1
            Height =0
            BackColor =16777164
            Name ="Seitenfußbereich"
            GUID = Begin
                0x46325971fc275b4e990f254a9bb41e05
            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 Liste3_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Tarif] = '" & Me![Liste3] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub ErsparnisOhneAltlostenUeberLaufzeit_Exit(Cancel As Integer)
Dim EmAk As Double
Dim EmAkVVL As Double

If Me.GGaltKleinstmoeglichMitTWGebuehr <> "" Then

EmAk = Me.ErsparnisOhneAltlostenUeberLaufzeit - Me.GGaltKleinstmoeglichMitTWGebuehr
Me.ErsparnisMitAltlostenUeberLaufzeit = EmAk
Else
If Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt <> "" Then

EmAkVVL = Me.ErsparnisOhneAltlostenUeberLaufzeit - Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt
Me.ErsparnisMitAltlostenUeberLaufzeitmitVVL = EmAkVVL

End If
End If

End Sub

Private Sub GGbefreiungMonate_Exit(Cancel As Integer)
Dim Vertragslfz As Double

If (Me.GGbefreiungMonate > 2) Then
Vertragslfz = 36

Else
Vertragslfz = 24

Me.Vertragslaufzeit = Vertragslfz

End If
End Sub

Private Sub GGneu_Exit(Cancel As Integer)

Dim DifGGaltNeu As Double

DifGGaltNeu = (Me.GGalt - Me.GGneu) * Me.RestlaufzeitBisMoeglicherTW

Me.DifferenzGGAltNeuvorTW = DifGGaltNeu



End Sub

Private Sub InnlandskostenAlt_Exit(Cancel As Integer)
If IsNull(Me.GGalt) Then
MsgBox ("Bitte GG Altvertrag angeben")
Else
If IsNull(Me.InnlandskostenAlt) Then
MsgBox ("Bitte Innlandskosten Altvertrag angeben")
Else

Dim GKalt As Double
GKalt = Me.GGalt + Me.InnlandskostenAlt
Me.GesamtkostenAlt = GKalt
End If
End If
End Sub

Private Sub KostenAltGesamt_Exit(Cancel As Integer)

Dim EoAk As Double

EoAk = Me.KostenAltGesamt - (Me.GGneu * (Me.Vertragslaufzeit - Me.GGbefreiungMonate))

Me.ErsparnisOhneAltlostenUeberLaufzeit = EoAk

End Sub

Private Sub Liste9_AfterUpdate()
    ' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Tarif] = '" & Me![Liste9] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Restlaufzeit_Exit(Cancel As Integer)

If 9 = 0 Then

Dim RLZTW As Integer
RLZTW = Me.Restlaufzeit - Me.RestmonateVorTW
If (RLZTW > 0) Then Me.RestlaufzeitBisMoeglicherTW = RLZTW
If (RLZTW <= 0) Then Me.RestlaufzeitBisMoeglicherTW = 0
End If
End Sub

Private Sub RestlaufzeitBisMoeglicherTW_Exit(Cancel As Integer)
If IsNull(Me.RestlaufzeitBisMoeglicherTW) Then
MsgBox ("Restlaufzeit bis möglicher TW eingeben")
Else
Dim RLZKT As Double
RLZKT = Me.Restlaufzeit - Me.RestlaufzeitBisMoeglicherTW
Me.RestlaufzeitKleinstMoeglicherTarif = RLZKT
End If
End Sub

Private Sub RestlaufzeitKleinstMoeglicherTarif_Exit(Cancel As Integer)
If IsNull(Me.GGKleinstMoeglich) Then
MsgBox ("Kleinst mögliche GG Altvertrag eingeben")
Else

Dim GGaltTW As Double
Dim GGaltTWVVL As Double

If Me.VVLjanein = "VVL Nein" Then

GGaltTW = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (Me.RestlaufzeitKleinstMoeglicherTarif * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr

Me.GGaltKleinstmoeglichMitTWGebuehr = GGaltTW

Else
If Me.VVLjanein = "VVL Ja" Then
GGaltTWVVL = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (24 * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr
Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt = GGaltTWVVL

End If
End If
End If

End Sub

Private Sub RestmonateVorTW_Exit(Cancel As Integer)
If IsNull(Me.GGKleinstMoeglich) Then
MsgBox ("Kleinst mögliche GG Altvertrag eingeben")
Else

Dim GGaltTW As Integer
Dim GGaltTWVVL As Integer

If Me.VVLjanein = "VVL Nein" Then

GGaltTW = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (Me.RestlaufzeitKleinstMoeglicherTarif * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr

Me.GGaltKleinstmoeglichMitTWGebuehr = GGaltTW

Else
If Me.VVLjanein = "VVL Ja" Then
GGaltTWVVL = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (24 * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr
Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt = GGaltTWVVL

End If
End If
End If
End Sub

Private Sub TarifwechselGebühr_Exit(Cancel As Integer)
Dim GGaltTW As Integer
Dim GGaltTWVVL As Integer

GGaltTW = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (Me.RestlaufzeitKleinstMoeglicherTarif * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr

Me.GGaltKleinstmoeglichMitTWGebuehr = GGaltTW

GGaltTWVVL = (Me.RestlaufzeitBisMoeglicherTW * Me.GGalt) + (24 * Me.GGKleinstMoeglich) + Me.TarifwechselGebühr
Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt = GGaltTWVVL

End Sub

Private Sub VertragsendeAlt_Exit(Cancel As Integer)
If IsNull(Me.RufNummer) Then
MsgBox ("Bitte Rufnummer Altvertrag eingeben")
Else
If IsNull(Me.VertragsendeAlt) Then
MsgBox ("Bitte Vertragsende Altvertrag eingeben")
Else
If IsNull(Me.VertragsbeginnNeu) Then
MsgBox ("Bitte Vertragsbeginn Neuvertrag eingeben")
Else

Dim RLZ As Integer
RLZ = DateDiff("m", Me.VertragsbeginnNeu, Me.VertragsendeAlt)
Me.Restlaufzeit = RLZ
End If
End If
End If
End Sub

Private Sub Vertragslaufzeit_Exit(Cancel As Integer)
Dim KAG As Double
KAG = Me.Vertragslaufzeit * Me.GesamtkostenAlt
Me.KostenAltGesamt = KAG
End Sub

Private Sub VVLjanein_GotFocus()
 Me!VVLjanein.DropDown
End Sub
Private Sub Befehl90_Click()
On Error GoTo Err_Befehl90_Click


    DoCmd.Close

Exit_Befehl90_Click:
    Exit Sub

Err_Befehl90_Click:
    MsgBox Err.Description
    Resume Exit_Befehl90_Click
    
End Sub