Version =20
VersionRequired =20
Checksum =-533376640
Begin Form
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =27907
    DatasheetFontHeight =10
    ItemSuffix =92
    Left =30
    Top =555
    Right =27930
    Bottom =14220
    DatasheetGridlinesColor =12632256
    Filter ="((tbl_tarifepos.MonatJahr=\"102012-2\"))"
    OrderBy ="tbl_tarifepos.LfdNR"
    RecSrcDt = Begin
        0x84376ae09337e440
    End
    RecordSource ="qry_TarifProv"
    Caption ="Kalkulation"
    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 =510
            BackColor =16777164
            Name ="Seitenkopfbereich"
            GUID = Begin
                0xb27696208f0ca749ae877059877decb9
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =13680
            Name ="Detailbereich"
            GUID = Begin
                0x02320cccbd296c408725f67e67a8c977
            End
            Begin
                Begin ListBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Top =60
                    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
                        0xec18171a8718284b8a7d7f2eec0e0950
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Top =7590
                    Width =9066
                    Height =300
                    FontSize =10
                    TabIndex =26
                    Name ="Tarif"
                    ControlSource ="Tarif"
                    FontName ="Arial"
                    GUID = Begin
                        0xbc57be9855871041b74e71ad2d65cb01
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =17580
                    Top =7590
                    Width =171
                    Height =285
                    TabIndex =27
                    Name ="ProvGesamt"
                    ControlSource ="ProvGesamt"
                    GUID = Begin
                        0x058328f9efd42342a1f7e384de2f22a3
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =17805
                    Top =7590
                    Width =171
                    Height =285
                    TabIndex =28
                    Name ="ProvAD"
                    ControlSource ="ProvAD"
                    GUID = Begin
                        0xe061e187357a8f4ebe78b9939b6f1a95
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15483
                    Top =4420
                    Width =561
                    Height =285
                    TabIndex =29
                    BackColor =12632256
                    Name ="MonateGGBefreiung"
                    ControlSource ="GG_Befreiung_Monate"
                    GUID = Begin
                        0x247ca93a07641148bf31464a736de1ff
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    AllowAutoCorrect = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =16155
                    Top =4425
                    Width =561
                    Height =285
                    TabIndex =30
                    BackColor =12632256
                    Name ="EinMonGGbefreiung"
                    ControlSource ="EinMonatGGbefreiung"
                    GUID = Begin
                        0x3efe3612867e6e4e9bbf63fa2ea9a069
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =388
                    Width =1875
                    Height =255
                    TabIndex =2
                    Name ="VertragsbeginnNeu"
                    Format ="Short Date"
                    ValidationRule ="=[VertragsbeginnNeu] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0x6f80628d16c38546839913631724940d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =388
                            Width =1500
                            Height =240
                            Name ="Bezeichnungsfeld16"
                            Caption ="Vertragsbeginn Neu"
                            GUID = Begin
                                0x16a5de3edb837b449179b99434ba218f
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =16830
                    Top =4425
                    Width =1590
                    Height =210
                    Name ="Bezeichnungsfeld17"
                    Caption ="GG Befreiung möglich"
                    GUID = Begin
                        0x7a81eb119e8bc24a8a9317658cbfd0a0
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =716
                    Width =1875
                    Height =255
                    TabIndex =3
                    Name ="VertragsendeAlt"
                    Format ="Short Date"
                    ValidationRule ="=[VertragsendeAlt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x13d65e6c9bd407409ddc8317b4e5b3e4
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =716
                            Width =1290
                            Height =240
                            Name ="Bezeichnungsfeld19"
                            Caption ="Vertragsende Alt"
                            GUID = Begin
                                0x07e6563cde8d2f44a0192b3d4ad376ab
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =3448
                    Width =1875
                    Height =255
                    TabIndex =11
                    BackColor =12632256
                    Name ="Restlaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xb60723811e385e4ca72a1db93f266926
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9378
                            Top =3448
                            Width =930
                            Height =240
                            Name ="Bezeichnungsfeld21"
                            Caption ="Restlaufzeit"
                            GUID = Begin
                                0x1ebbaa07f32d494aa26f3ae85e703a8f
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =3776
                    Width =1875
                    Height =255
                    TabIndex =12
                    BackColor =12632256
                    Name ="RestlaufzeitBisMoeglicherTW"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x80ed1fb6f71802458c0f1c43edd1bfc2
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =3756
                            Width =2175
                            Height =240
                            Name ="Bezeichnungsfeld23"
                            Caption ="Restlaufzeit bis möglicher TW"
                            GUID = Begin
                                0x5200a069d82f374ea764abafa08ad232
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =4075
                    Width =1875
                    Height =255
                    TabIndex =14
                    BackColor =12632256
                    Name ="RestlaufzeitKleinstMoeglicherTarif"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xfca334f2c93afc46b26d144ec1c98ff6
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =4079
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld25"
                            Caption ="Restlaufzeit kleinst möglicher Tarif"
                            GUID = Begin
                                0x9957c8b748691249932e72c99bd1acc3
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13425
                    Top =1044
                    Width =1875
                    Height =255
                    TabIndex =4
                    Name ="GGalt"
                    Format ="Standard"
                    ValidationRule ="=[GGalt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0x54ccc5f5f267704d80ff72fd3a167392
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9354
                            Top =1044
                            Width =1110
                            Height =240
                            Name ="Bezeichnungsfeld27"
                            Caption ="GG alt / Monat"
                            GUID = Begin
                                0xc5e9ab6a99b2344b9e91fe1919911692
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =2430
                    Width =1875
                    Height =255
                    TabIndex =8
                    Name ="GGKleinstMoeglich"
                    Format ="Standard"
                    ValidationRule ="=[GGKleinstMoeglich] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    GUID = Begin
                        0x1a8c7c11e84c224cb4015efeca5b5548
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =2430
                            Width =1350
                            Height =240
                            Name ="Bezeichnungsfeld29"
                            Caption ="GG kleinst möglich"
                            GUID = Begin
                                0xf5f672fd5ab67e428259a717ace8f73a
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =3120
                    Width =1875
                    Height =255
                    TabIndex =10
                    Name ="TarifwechselGebühr"
                    Format ="Standard"
                    ValidationRule ="=[TarifwechselGebühr] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0xb878a7b96122b04bae7946ff6621373c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =3120
                            Width =1545
                            Height =240
                            Name ="Bezeichnungsfeld31"
                            Caption ="Tarifwechsel Gebühr"
                            GUID = Begin
                                0xabe6c562cbaa83438f4a84999c1c79ee
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =5394
                    Width =1875
                    Height =255
                    TabIndex =17
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehr"
                    Format ="Standard"
                    GUID = Begin
                        0x0a6b84bd3f01f4449a57952b9092e719
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =5325
                            Width =3210
                            Height =240
                            Name ="Bezeichnungsfeld33"
                            Caption ="GG alt kleinstmöglich mit TW Gebühr gesamt"
                            GUID = Begin
                                0xa7b42a1fb3031445a1aba97d0ea4b6fa
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =5715
                    Width =1875
                    Height =255
                    TabIndex =18
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt"
                    Format ="Standard"
                    GUID = Begin
                        0x59f460b81fb0ce40bad3cf303c4b2030
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =5715
                            Width =3825
                            Height =240
                            Name ="Bezeichnungsfeld35"
                            Caption ="GG alt kleinstmöglich mit TW Gebühr und VVL gesamt"
                            GUID = Begin
                                0xd8e533c4b973d441adaf2e428d031482
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =6043
                    Width =1875
                    Height =255
                    TabIndex =19
                    BackColor =12632256
                    Name ="KostenAltGesamt"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xdc2d74d28945c645ae76e737a1d640d6
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9372
                            Top =6043
                            Width =2535
                            Height =240
                            Name ="Bezeichnungsfeld37"
                            Caption ="Kosten Alt vor Umstellung gesamt "
                            GUID = Begin
                                0xc2703b3be2db7f4893f8cf23e083e151
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =6371
                    Width =1875
                    Height =255
                    TabIndex =20
                    BackColor =12632256
                    Name ="ErsparnisOhneAltlostenUeberLaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xc562f38c20f65346aa766e736327830c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =6371
                            Width =3060
                            Height =240
                            Name ="Bezeichnungsfeld39"
                            Caption ="Ersparnis ohne Altlosten über die Laufzeit"
                            GUID = Begin
                                0x757a7d548a37ab41921b3c2a8bc186a7
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =6699
                    Width =1875
                    Height =255
                    TabIndex =21
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeit"
                    Format ="Standard"
                    GUID = Begin
                        0xaa8558406cce304a8310e5e16140376f
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9372
                            Top =6699
                            Width =2910
                            Height =240
                            Name ="Bezeichnungsfeld41"
                            Caption ="Ersparnis mit Altlosten über die Laufzeit"
                            GUID = Begin
                                0x9b5d1015b8248940a67629ce3ff3361c
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =7027
                    Width =1875
                    Height =255
                    TabIndex =22
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeitmitVVL"
                    Format ="Standard"
                    GUID = Begin
                        0x1a1cf464c912d3459311fde1966bfa4e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =7027
                            Width =3465
                            Height =240
                            Name ="Bezeichnungsfeld43"
                            Caption ="Ersparnis mit Altlosten über die Laufzeit mit VVL"
                            GUID = Begin
                                0x71b0b4f4405c2543b42ab5df519a23dc
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =7355
                    Width =1875
                    Height =255
                    TabIndex =23
                    Name ="SubHW"
                    Format ="Standard"
                    ValidationRule ="=[SubHW] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x3d671f297c316346a5c7cc3951d1350e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =7350
                            Width =2010
                            Height =240
                            Name ="Bezeichnungsfeld45"
                            Caption ="Sub Hardware nicht Bundel"
                            GUID = Begin
                                0x3a9b8411f7e3f3419cecf866590bc2dd
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13425
                    Top =2085
                    Width =1875
                    Height =255
                    TabIndex =7
                    BackColor =12632256
                    Name ="GGneu"
                    ControlSource ="GG"
                    Format ="Standard"
                    GUID = Begin
                        0x3221ccc42560244c98aa9344f91a5918
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13431
                    Top =60
                    Width =1875
                    Height =255
                    TabIndex =1
                    Name ="KD_NR"
                    DefaultValue ="=68"
                    GUID = Begin
                        0xf520b563d74b254a811425a634a1da6d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =60
                            Width =1185
                            Height =240
                            Name ="Bezeichnungsfeld48"
                            Caption ="Kundennummer"
                            GUID = Begin
                                0x2292e862b7a2e04299bab7fd3e19a09f
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =2775
                    Width =1875
                    Height =255
                    TabIndex =9
                    Name ="RestmonateVorTW"
                    Format ="Standard"
                    DefaultValue ="=12"
                    GUID = Begin
                        0x6a84c2755e12824caa75e39716b404f0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =2775
                            Width =2850
                            Height =225
                            Name ="Bezeichnungsfeld50"
                            Caption ="Restmonate vor Tarifwechsel Standart"
                            GUID = Begin
                                0xa66349e9d3833c49b6c46f164271db26
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =9360
                    Top =2092
                    Width =1200
                    Height =240
                    Name ="Bezeichnungsfeld51"
                    Caption ="GG neu / Monat"
                    GUID = Begin
                        0xa0dfad2e8a0d1944aeb5ad103f355be4
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =4425
                    Width =1875
                    Height =255
                    TabIndex =15
                    Name ="GGbefreiungMonate"
                    Format ="Standard"
                    ValidationRule ="=[GGbefreiungMonate] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=0"
                    GUID = Begin
                        0xc9622bb493a38d4d8975d9db34212b93
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =4429
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld54"
                            Caption ="GG Befreiung Monate"
                            GUID = Begin
                                0x98c289622ee2dc48a874f5ec258cc115
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =4770
                    Width =1875
                    Height =255
                    TabIndex =16
                    BackColor =12632256
                    Name ="Vertragslaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=24"
                    GUID = Begin
                        0x8767cb944a81f74dad045af82d917df4
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =4774
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld56"
                            Caption ="Vertragslaufzeit"
                            GUID = Begin
                                0xdb1f697eb8eb0b41abb138988065a6a9
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =93
                    IMESentenceMode =3
                    Left =13437
                    Top =7665
                    Width =1875
                    Height =255
                    TabIndex =24
                    Name ="SubGS"
                    Format ="Standard"
                    ValidationRule ="=[SubGS] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0xdc66719b60d8aa4393b9bf2ecad4990e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =7665
                            Width =2055
                            Height =240
                            Name ="Bezeichnungsfeld58"
                            Caption ="Sub Gutschrift  nicht Bundel"
                            GUID = Begin
                                0x8b8182dd8beb37468e11c31211da870f
                            End
                        End
                    End
                End
                Begin Subform
                    OverlapFlags =87
                    Top =7937
                    Width =27907
                    Height =5685
                    TabIndex =31
                    Name ="qry_rent_unter"
                    SourceObject ="Form.frm_rent_unter"
                    GUID = Begin
                        0x5def071e761c974ca09256bea44932b0
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15988
                    Top =7481
                    Width =1215
                    Height =405
                    TabIndex =25
                    Name ="Befehl62"
                    Caption ="Ausführen"
                    OnClick ="MKr_SetzeRent"
                    GUID = Begin
                        0xb8d2be68d9094745b2d480e976832654
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15525
                    Top =60
                    TabIndex =32
                    Name ="Sachbearbeiter"
                    ControlSource ="=\"Fabian Leinhos\""
                    GUID = Begin
                        0x6041fab94675834fa23a0390475660ba
                    End
                End
                Begin TextBox
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13431
                    Top =1365
                    Width =1875
                    Height =255
                    TabIndex =5
                    Name ="InnlandskostenAlt"
                    Format ="Standard"
                    ValidationRule ="=[InnlandskostenAlt] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x7f40f935d36b1649b5d4e16ac945f3dc
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =1365
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld64"
                            Caption ="Innlandskosten alt / Monat"
                            GUID = Begin
                                0x233a6de89cd1e649bd88f616424b4297
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =2
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13431
                    Top =1740
                    Width =1875
                    Height =255
                    TabIndex =6
                    BackColor =12632256
                    Name ="GesamtkostenAlt"
                    Format ="Standard"
                    GUID = Begin
                        0xc2e19345a2d8234691fe97a4952c5169
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =1740
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld66"
                            Caption ="Gesamtkosten alt / Monat"
                            GUID = Begin
                                0x2a82e28cc50bdd4f9e062859331ea73d
                            End
                        End
                    End
                End
                Begin ComboBox
                    LimitToList = NotDefault
                    RowSourceTypeInt =1
                    OldBorderStyle =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15525
                    Top =3765
                    Width =1221
                    Height =255
                    TabIndex =13
                    GUID = Begin
                        0xf00f79fb7cdb4a40a64b2bb45ecdc6e9
                    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 =16830
                            Top =3750
                            Width =1740
                            Height =210
                            Name ="Bezeichnungsfeld87"
                            Caption ="VVL Alttarif notwendig?"
                            GUID = Begin
                                0x0abbab2ca4135c40a1ae289a6129eec1
                            End
                        End
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =18870
                    Width =9030
                    Height =5326
                    FontSize =20
                    TabIndex =33
                    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
                        0x89fe00ac35950d4dad4b315d193c78c7
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =18870
                    Top =5446
                    Width =9030
                    Height =2431
                    FontSize =20
                    TabIndex =34
                    Name ="Text91"
                    ControlSource ="=IIf([qry_rent_unter].[Form]![Text117]<=0,IIf([qry_rent_unter].[Form]![Ergebnis]"
                        ">=0,\"Leider ist eine Freischaltung NUR über PV möglich. Bitte Vorgang nach Akti"
                        "vierung durchführen lassen!\"))"
                    ConditionalFormat = Begin
                        0x010000009a010000020000000100000000000000000000004c00000001000000 ,
                        0x0000000000ff000001000000000000004d0000009c0000000100000000000000 ,
                        0xffff000000000000000000000000000000000000000000000000000000000000 ,
                        0x5b007100720079005f00720065006e0074005f0075006e007400650072005d00 ,
                        0x2e005b0046006f0072006d005d0021005b005400650078007400310031003700 ,
                        0x5d003e003d003000200041006e00640020005b007100720079005f0072006500 ,
                        0x6e0074005f0075006e007400650072005d002e0046006f0072006d0021005b00 ,
                        0x54006500780074003100310037005d003e003d003000000000005b0071007200 ,
                        0x79005f00720065006e0074005f0075006e007400650072005d002e005b004600 ,
                        0x6f0072006d005d0021005b0054006500780074003100310037005d003c003d00 ,
                        0x3000200041006e00640020005b007100720079005f00720065006e0074005f00 ,
                        0x75006e007400650072005d002e005b0046006f0072006d005d0021005b004500 ,
                        0x72006700650062006e00690073005d003e003d00300000000000
                    End
                    GUID = Begin
                        0x12a53c5db6d8054a98dc4132eb1c8c9a
                    End
                End
            End
        End
        Begin PageFooter
            DisplayWhen =1
            Height =570
            BackColor =16777164
            Name ="Seitenfußbereich"
            GUID = Begin
                0x8897d4bc897998408a2053f454fc39e5
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =45
                    Top =30
                    Width =516
                    Height =516
                    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
                        0xa103be6aa6a5d54fb9155798441892c4
                    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 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 Integer
Dim EmAkVVL As Integer

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 Integer
Vertragslfz = 36
If (Me.GGbefreiungMonate > 2) Then Me.Vertragslaufzeit = Vertragslfz
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 Integer
GKalt = Me.GGalt + Me.InnlandskostenAlt
Me.GesamtkostenAlt = GKalt
End If
End If
End Sub

Private Sub KostenAltGesamt_Exit(Cancel As Integer)
Dim EoAk As Integer
If Me.GG_Befreiung_Monate = 0 Then

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

Else
If Me.GG_Befreiung_Monate > 2 Then
EoAk = Me.KostenAltGesamt - (Me.GGneu * (Me.Vertragslaufzeit - Me.GG_Befreiung_Monate))

Me.ErsparnisOhneAltlostenUeberLaufzeit = EoAk

End If
End If

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)
Dim RLZKT As Integer
RLZKT = Me.Restlaufzeit - Me.RestlaufzeitBisMoeglicherTW
Me.RestlaufzeitKleinstMoeglicherTarif = RLZKT
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 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 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.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 Sub

Private Sub Vertragslaufzeit_Exit(Cancel As Integer)
Dim KAG As Integer
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