Version =20
VersionRequired =20
Checksum =1620437622
Begin Form
    AllowDesignChanges = NotDefault
    DefaultView =0
    TabularFamily =0
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =31680
    DatasheetFontHeight =10
    ItemSuffix =67
    Left =270
    Top =600
    Right =19170
    Bottom =9585
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xe92f5748b533e440
    End
    RecordSource ="qry_TarifProv"
    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
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin 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 =-2147483633
            Name ="Seitenkopfbereich"
            GUID = Begin
                0xa6dce9f4389a9345887f4ece295a16a5
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =13680
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0xf4abc9c9b75aca43b23df82390ac447b
            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
                        0x0c63d352bb464741beb12bb97a160941
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Top =7590
                    Width =9066
                    Height =300
                    FontSize =10
                    TabIndex =24
                    Name ="Tarif"
                    ControlSource ="Tarif"
                    FontName ="Arial"
                    GUID = Begin
                        0x191041a1a41f62479c96260ab05f779e
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =17640
                    Top =7590
                    Height =285
                    TabIndex =25
                    Name ="ProvGesamt"
                    ControlSource ="ProvGesamt"
                    GUID = Begin
                        0x1b5d6aa250e4a5408192289defe10ac0
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =19455
                    Top =7590
                    Height =285
                    TabIndex =26
                    Name ="ProvAD"
                    ControlSource ="ProvAD"
                    GUID = Begin
                        0x3f2ba8f4ee36b04c95a3dfe26868c6c5
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15483
                    Top =4420
                    Width =561
                    Height =285
                    TabIndex =27
                    BackColor =12632256
                    Name ="MonateGGBefreiung"
                    ControlSource ="GG_Befreiung_Monate"
                    GUID = Begin
                        0x7c2922509c47d9469b688bd8a7abae47
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    AllowAutoCorrect = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =16506
                    Top =4425
                    Width =561
                    Height =285
                    TabIndex =28
                    BackColor =12632256
                    Name ="EinMonGGbefreiung"
                    ControlSource ="EinMonatGGbefreiung"
                    GUID = Begin
                        0x973bbea5d251234687a44f583b1a56b8
                    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
                        0xab352b74b7465c469b1552cb294d6412
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =388
                            Width =1500
                            Height =240
                            Name ="Bezeichnungsfeld16"
                            Caption ="Vertragsbeginn Neu"
                            GUID = Begin
                                0xd54efc6a16f4e849b91f46c894bc55b3
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =15483
                    Top =4079
                    Width =1590
                    Height =210
                    Name ="Bezeichnungsfeld17"
                    Caption ="GG Befreiung möglich"
                    GUID = Begin
                        0x6203a1d8fa3e4146a487065c62a1a99f
                    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
                        0x7f70404410ec56488d911ee28e5afdb3
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =716
                            Width =1290
                            Height =240
                            Name ="Bezeichnungsfeld19"
                            Caption ="Vertragsende Alt"
                            GUID = Begin
                                0x3cc127e8a83b0646a4ad4fd26a347930
                            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
                        0xdfe5c9d003ad014e9b54377816dad995
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9378
                            Top =3448
                            Width =930
                            Height =240
                            Name ="Bezeichnungsfeld21"
                            Caption ="Restlaufzeit"
                            GUID = Begin
                                0xd23e503e445a9b46b0f66bf3b3ab14ae
                            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
                        0xd73c17da7836c043b169fb0596c3528b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =3756
                            Width =2175
                            Height =240
                            Name ="Bezeichnungsfeld23"
                            Caption ="Restlaufzeit bis möglicher TW"
                            GUID = Begin
                                0x603ae6fdf52a7c4aae5ab259c2003e17
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =4075
                    Width =1875
                    Height =255
                    TabIndex =13
                    BackColor =12632256
                    Name ="RestlaufzeitKleinstMoeglicherTarif"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0xc0cdef1ca920b34595cb845c16a8bd9b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =4079
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld25"
                            Caption ="Restlaufzeit kleinst möglicher Tarif"
                            GUID = Begin
                                0x7f14fc06320b2e4f85711f1934d0ea9d
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    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
                        0x765b8873a60991448f52b7f8683a605e
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9354
                            Top =1044
                            Width =1110
                            Height =240
                            Name ="Bezeichnungsfeld27"
                            Caption ="GG alt / Monat"
                            GUID = Begin
                                0x2782e884fef83e458dffcd3b515c15c2
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    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
                        0xb1e62505f0e9704587c80d4d1441317b
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =2430
                            Width =1350
                            Height =240
                            Name ="Bezeichnungsfeld29"
                            Caption ="GG kleinst möglich"
                            GUID = Begin
                                0x39b584d00670fd4d96c627e4f55c3773
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    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
                        0x6cb05adbc6f5134f9e298c1207d4cec5
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =3120
                            Width =1545
                            Height =240
                            Name ="Bezeichnungsfeld31"
                            Caption ="Tarifwechsel Gebühr"
                            GUID = Begin
                                0x742967e052b8bc40851564dd3b20823d
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =5394
                    Width =1875
                    Height =255
                    TabIndex =16
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehr"
                    Format ="Standard"
                    GUID = Begin
                        0x1c52414a044be14097935b686370ace3
                    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
                                0x977115523ea4ae43b37677527f20b746
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =5715
                    Width =1875
                    Height =255
                    TabIndex =17
                    BackColor =12632256
                    Name ="GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt"
                    Format ="Standard"
                    GUID = Begin
                        0x8a47448602745846a7ad7f8e31ab02d4
                    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
                                0x3702e2c6cbf4b14da39beb650865ef66
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =6043
                    Width =1875
                    Height =255
                    TabIndex =18
                    BackColor =12632256
                    Name ="KostenAltGesamt"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x1cc45b030447df4dbce4e53645ace33d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9372
                            Top =6043
                            Width =2535
                            Height =240
                            Name ="Bezeichnungsfeld37"
                            Caption ="Kosten Alt vor Umstellung gesamt "
                            GUID = Begin
                                0x4d4fac95d0825341b1c9cee4a54f4665
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =6371
                    Width =1875
                    Height =255
                    TabIndex =19
                    BackColor =12632256
                    Name ="ErsparnisOhneAltlostenUeberLaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    GUID = Begin
                        0x4da5f6f0f331184fb9c6d4cf45f69772
                    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
                                0x40775a172889c54bb978f706d9a07b1f
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =6699
                    Width =1875
                    Height =255
                    TabIndex =20
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeit"
                    Format ="Standard"
                    GUID = Begin
                        0xbc57c1362b84e14d869d1ff5ae8a1af3
                    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
                                0xa92765f8214e984c85bef2a5816301df
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =7027
                    Width =1875
                    Height =255
                    TabIndex =21
                    BackColor =12632256
                    Name ="ErsparnisMitAltlostenUeberLaufzeitmitVVL"
                    Format ="Standard"
                    GUID = Begin
                        0xa23e8becb06a7c4092f924c2259d3fbf
                    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
                                0x5550fbc8eaa2654a854fd521afc69ebe
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13443
                    Top =7355
                    Width =1875
                    Height =255
                    TabIndex =22
                    Name ="SubHW"
                    Format ="Standard"
                    ValidationRule ="=[SubHW] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x2ba0e91658839144a2a264b3b084d052
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =7350
                            Width =2010
                            Height =240
                            Name ="Bezeichnungsfeld45"
                            Caption ="Sub Hardware nicht Bundel"
                            GUID = Begin
                                0x8ac66ab3f8eb0c4b85e59740d94a1fcc
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13425
                    Top =2085
                    Width =1875
                    Height =255
                    TabIndex =7
                    BackColor =12632256
                    Name ="GGneu"
                    ControlSource ="GG"
                    Format ="Standard"
                    GUID = Begin
                        0xe89d909b4dd60b4083696a114a979eda
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13431
                    Top =60
                    Width =1875
                    Height =255
                    TabIndex =1
                    Name ="KD_NR"
                    GUID = Begin
                        0xcaacb7e948a66f4fb2d6d5fa19125603
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =60
                            Width =1185
                            Height =240
                            Name ="Bezeichnungsfeld48"
                            Caption ="Kundennummer"
                            GUID = Begin
                                0xbd96c8cbfa2a7c449e3bc1f9f8cbaa4d
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =2775
                    Width =1875
                    Height =255
                    TabIndex =9
                    Name ="RestmonateVorTW"
                    ControlSource ="=\"12\""
                    Format ="Standard"
                    ValidationRule ="=[RestmonateVorTW] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=12"
                    GUID = Begin
                        0x5ea3307fdcbe664b99107bce01cf42b9
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =2775
                            Width =2850
                            Height =225
                            Name ="Bezeichnungsfeld50"
                            Caption ="Restmonate vor Tarifwechsel Standart"
                            GUID = Begin
                                0xa3c8051450c779408cd4468662f4cff8
                            End
                        End
                    End
                End
                Begin Label
                    OverlapFlags =85
                    Left =9360
                    Top =2092
                    Width =1200
                    Height =240
                    Name ="Bezeichnungsfeld51"
                    Caption ="GG neu / Monat"
                    GUID = Begin
                        0x0c425ae4110f0141975fc73bc1178aea
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =4425
                    Width =1875
                    Height =255
                    TabIndex =14
                    Name ="GGbefreiungMonate"
                    Format ="Standard"
                    ValidationRule ="=[GGbefreiungMonate] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x7efdc808266de24484b6fb564b5612c3
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =4429
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld54"
                            Caption ="GG Befreiung Monate"
                            GUID = Begin
                                0x80c163990e572244826e26556258cb27
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13449
                    Top =4770
                    Width =1875
                    Height =255
                    TabIndex =15
                    BackColor =12632256
                    Name ="Vertragslaufzeit"
                    Format ="Standard"
                    OnExit ="[Event Procedure]"
                    DefaultValue ="=24"
                    GUID = Begin
                        0x4c4ab5002ffca646acbd6d363acc28f0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =4774
                            Width =2520
                            Height =240
                            Name ="Bezeichnungsfeld56"
                            Caption ="Vertragslaufzeit"
                            GUID = Begin
                                0x7ac02fa843bff949ac0e569d42887b52
                            End
                        End
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13437
                    Top =7665
                    Width =1875
                    Height =255
                    TabIndex =23
                    Name ="SubGS"
                    Format ="Standard"
                    ValidationRule ="=[SubGS] Is Not Null"
                    ValidationText ="Feld muss ausfülltg werden"
                    DefaultValue ="=0"
                    GUID = Begin
                        0x75bd5f8d3c748b46b09b6b313af20165
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9366
                            Top =7665
                            Width =2055
                            Height =240
                            Name ="Bezeichnungsfeld58"
                            Caption ="Sub Gutschrift  nicht Bundel"
                            GUID = Begin
                                0x8f4fcf345954f54e81c31f50db4f6408
                            End
                        End
                    End
                End
                Begin Subform
                    OverlapFlags =85
                    Top =7995
                    Width =31567
                    Height =5685
                    TabIndex =29
                    Name ="qry_rent_unter"
                    SourceObject ="Form.frm_rent_unter"
                    GUID = Begin
                        0x8a905094216cde45bb4ae8f2ea7e0598
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =16333
                    Top =7481
                    Width =870
                    Height =405
                    TabIndex =30
                    Name ="Befehl62"
                    Caption ="Befehl62"
                    OnClick ="MKr_SetzeRent"
                    GUID = Begin
                        0xb1044539fd725b418c03066f690d8326
                    End
                End
                Begin TextBox
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =15525
                    Top =60
                    TabIndex =31
                    Name ="Sachbearbeiter"
                    ControlSource ="=\"Fabian Leinhos\""
                    GUID = Begin
                        0x151fc40e2ac2874cadd4b1d3f0c69f49
                    End
                End
                Begin TextBox
                    DecimalPlaces =0
                    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
                        0x9bf558a2b5125648925bdb227ee80c45
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =1365
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld64"
                            Caption ="Innlandskosten alt / Monat"
                            GUID = Begin
                                0x2ec18ef269c45b47a334107a93100a05
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    DecimalPlaces =0
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =13431
                    Top =1740
                    Width =1875
                    Height =255
                    TabIndex =6
                    BackColor =12632256
                    Name ="GesamtkostenAlt"
                    Format ="Standard"
                    GUID = Begin
                        0xef9d3d92fb145f4db7e63d10245e0461
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =9360
                            Top =1740
                            Width =1995
                            Height =240
                            Name ="Bezeichnungsfeld66"
                            Caption ="Gesamtkosten alt / Monat"
                            GUID = Begin
                                0xb0afaaf898aba74e8a419ad1b81c9ab9
                            End
                        End
                    End
                End
            End
        End
        Begin PageFooter
            DisplayWhen =1
            Height =566
            BackColor =-2147483633
            Name ="Seitenfußbereich"
            GUID = Begin
                0x276694bd263f034697fc30a4e0a805d6
            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

EmAk = Me.ErsparnisOhneAltlostenUeberLaufzeit - Me.GGaltKleinstmoeglichMitTWGebuehr
Me.ErsparnisMitAltlostenUeberLaufzeit = EmAk
EmAkVVL = Me.ErsparnisOhneAltlostenUeberLaufzeit - Me.GGaltKleinstmoeglichMitTWGebuehrUndVVLgesamt
Me.ErsparnisMitAltlostenUeberLaufzeitmitVVL = EmAkVVL
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)
Dim GKalt As Integer
GKalt = Me.GGalt + Me.InnlandskostenAlt
Me.GesamtkostenAlt = GKalt
End Sub

Private Sub KostenAltGesamt_Exit(Cancel As Integer)
Dim EoAk As Integer
EoAk = Me.KostenAltGesamt - (Me.GGneu * (Me.Vertragslaufzeit - Me.GG_Befreiung_Monate))
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)

Dim RLZTW As Integer
RLZTW = Me.Restlaufzeit - Me.RestmonateVorTW
If (RLZTW > 0) Then Me.RestlaufzeitBisMoeglicherTW = RLZTW
If (RLZTW <= 0) Then Me.RestlaufzeitBisMoeglicherTW = 0
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)

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 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)
Dim RLZ As Integer
RLZ = DateDiff("m", Me.VertragsbeginnNeu, Me.VertragsendeAlt)
Me.Restlaufzeit = RLZ

End Sub

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