Version =20
VersionRequired =20
Checksum =-1988339650
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =17001
    DatasheetFontHeight =10
    ItemSuffix =57
    Left =-1485
    Top =2670
    Right =17460
    Bottom =14010
    DatasheetGridlinesColor =12632256
    Filter ="[BearbeitungsNR]=6393"
    RecSrcDt = Begin
        0x152c996c2f70e340
    End
    RecordSource ="qry_Gutschrift_Haupt"
    Caption ="bcs group Gutschrift Berechnung"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    OnLoad ="Mkr_Max"
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin Line
            Width =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin CheckBox
            SpecialEffect =2
            LabelX =230
            LabelY =-30
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x9589eeb53dc01845b9231d3e5780f881
            End
        End
        Begin Section
            CanGrow = NotDefault
            Height =16689
            Name ="Detailbereich"
            GUID = Begin
                0x14abb15cf1e78c4c9c5bebab573b7622
            End
            Begin
                Begin TextBox
                    DecimalPlaces =2
                    SpecialEffect =0
                    BorderWidth =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2040
                    Top =1812
                    Width =3207
                    Height =330
                    FontSize =12
                    TabIndex =3
                    BackColor =16777164
                    Name ="Gutschrift Höhe"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    EventProcPrefix ="Gutschrift_Höhe"
                    GUID = Begin
                        0xfd787c59c3036b4598dc023091c41af3
                    End
                    Begin
                        Begin Label
                            BorderWidth =1
                            OverlapFlags =85
                            Left =165
                            Top =1819
                            Width =1710
                            Height =345
                            FontSize =12
                            Name ="Bezeichnungsfeld6"
                            Caption ="Gutschrift Höhe"
                            FontName ="Arial"
                            GUID = Begin
                                0xc8d411a959ea4d4394b6961e1746d109
                            End
                        End
                    End
                End
                Begin CheckBox
                    OverlapFlags =85
                    Left =226
                    Top =765
                    TabIndex =1
                    Name ="100 % AD"
                    EventProcPrefix ="Ctl100___AD"
                    GUID = Begin
                        0xe21089454c1d884a817797ef47732701
                    End
                    Begin
                        Begin Label
                            OverlapFlags =247
                            Left =456
                            Top =735
                            Width =1440
                            Height =240
                            Name ="Bezeichnungsfeld46"
                            Caption ="100 % AD"
                            GUID = Begin
                                0x3ede02eba47e864da114dc9a2616fbc0
                            End
                        End
                    End
                End
                Begin CheckBox
                    OverlapFlags =85
                    Left =226
                    Top =1155
                    TabIndex =2
                    Name ="100 % IT-Max GmbH"
                    EventProcPrefix ="Ctl100___IT_Max_GmbH"
                    GUID = Begin
                        0xd218ed864542e642a3cf91cb06e0c09c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =215
                            Left =459
                            Top =1118
                            Width =1575
                            Height =240
                            Name ="Bezeichnungsfeld48"
                            Caption ="100 % IT-Max GmbH"
                            GUID = Begin
                                0xbb80c10e492bdd419fe66d7fda327d0a
                            End
                        End
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    BorderWidth =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2040
                    Top =2284
                    Width =3207
                    Height =330
                    FontSize =12
                    TabIndex =4
                    BackColor =16777164
                    Name ="Sub Wert"
                    ControlSource ="=IIf([100 % AD]=-1,[Gutschrift Höhe]*3/1.19,IIf([100 % IT-Max GmbH]=-1,[Gutschri"
                        "ft Höhe]/1.19,[Gutschrift Höhe]*2/1.19))"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    EventProcPrefix ="Sub_Wert"
                    GUID = Begin
                        0x4d750029f71a594fae66b000a5871ff6
                    End
                    Begin
                        Begin Label
                            BorderWidth =1
                            OverlapFlags =85
                            Left =165
                            Top =2291
                            Width =1710
                            Height =345
                            FontSize =12
                            Name ="Bezeichnungsfeld50"
                            Caption ="Sub Wert netto"
                            FontName ="Arial"
                            GUID = Begin
                                0xd04d2e93ced47448bfe3296addb54951
                            End
                        End
                    End
                End
                Begin TextBox
                    TabStop = NotDefault
                    DecimalPlaces =2
                    SpecialEffect =0
                    BorderWidth =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2040
                    Top =2756
                    Width =3207
                    Height =330
                    FontSize =12
                    TabIndex =5
                    BackColor =16777164
                    Name ="Sub Wert brutto"
                    ControlSource ="=[Sub Wert]*1.19"
                    Format ="#,##0.00 €;-#,##0.00 €"
                    FontName ="Arial"
                    EventProcPrefix ="Sub_Wert_brutto"
                    GUID = Begin
                        0xaded3bc961b98240a842807b66a4c757
                    End
                    Begin
                        Begin Label
                            BorderWidth =1
                            OverlapFlags =85
                            Left =165
                            Top =2763
                            Width =1710
                            Height =345
                            FontSize =12
                            Name ="Bezeichnungsfeld52"
                            Caption ="Sub Wert brutto"
                            FontName ="Arial"
                            GUID = Begin
                                0x0324ca7850e0d64c8031451055bf61cb
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    TabStop = NotDefault
                    SpecialEffect =0
                    BorderWidth =1
                    OverlapFlags =87
                    IMESentenceMode =3
                    Left =2040
                    Top =113
                    Width =3207
                    Height =330
                    FontSize =12
                    BackColor =16777164
                    Name ="BearbeitungsNR"
                    ControlSource ="=[Forms]![frmGutschrift]![BearbeitungsNR]"
                    FontName ="Arial"
                    GUID = Begin
                        0x385faba293b0144da64bf5ce6b7b63a7
                    End
                    Begin
                        Begin Label
                            BorderWidth =1
                            OverlapFlags =93
                            Left =225
                            Top =120
                            Width =1815
                            Height =345
                            FontSize =12
                            BackColor =-2147483633
                            Name ="Bezeichnungsfeld2"
                            Caption ="BearbeitungsNR"
                            FontName ="Arial"
                            GUID = Begin
                                0xac622ef38166fe41b6db4f9cde89e94c
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =6689
                    Top =3685
                    TabIndex =8
                    Name ="Befehl53"
                    Caption ="Setzen Werte"
                    OnClick ="Mkr_GutschriftWertSetzen"
                    GUID = Begin
                        0x78a27cbfcea8be4b99e5fd35bf6059c1
                    End
                End
                Begin ComboBox
                    SpecialEffect =0
                    OldBorderStyle =0
                    BorderWidth =1
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =2040
                    Top =3228
                    Width =13752
                    Height =330
                    FontSize =12
                    TabIndex =6
                    BackColor =16777164
                    ColumnInfo ="\"\";\"\";\"12\";\"0\""
                    GUID = Begin
                        0xa350a43c6d47284f8358e5f0d232b326
                    End
                    Name ="GutschriftGrund"
                    RowSourceType ="Table/Query"
                    RowSource ="tbl_gutschriftentext"
                    FontName ="Arial"
                    Begin
                        Begin Label
                            BorderWidth =1
                            OverlapFlags =85
                            Left =165
                            Top =3240
                            Width =1740
                            Height =345
                            FontSize =12
                            Name ="Bezeichnungsfeld55"
                            Caption ="Gutschrift Grund"
                            FontName ="Arial"
                            GUID = Begin
                                0x43ce613307c05d4785dd23488fa11b70
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =15987
                    Top =3231
                    Width =276
                    Height =330
                    TabIndex =7
                    Name ="Befehl56"
                    OnClick ="Mkr_NeuenGutschriftTextErstellen"
                    PictureData = Begin
                        0x28000000100000000f0000000100040000000000780000000000000000000000 ,
                        0x1000000000000000000000000000800000800000008080008000000080008000 ,
                        0x80800000c0c0c000808080000000ff0000ff000000ffff00ff000000ff00ff00 ,
                        0xffff0000ffffff00777777777777777777777777777777777777777777777777 ,
                        0x7077777777777777700777777770777770007777707070777000077777000777 ,
                        0x7000007700000007700007777700077770007777707070777007777777707777 ,
                        0x7077777777777777777777777777777777777777777777777777777777777777
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0xc0c0c00080808000ff00000000ff0000ffff00000000ff00ff00ff0000ffff00 ,
                        0xffffff0000000000
                    End
                    GUID = Begin
                        0x9cd865c05f78464d97b8ad045656a14f
                    End
                End
            End
        End
        Begin FormFooter
            Height =566
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x52aa3055a221a940931e102025142391
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =16485
                    Top =30
                    Width =516
                    Height =516
                    Name ="Befehl15"
                    Caption ="Befehl15"
                    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
                        0xe9d59cec6584744f9110e0302a13cb70
                    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 Befehl15_Click()
On Error GoTo Err_Befehl15_Click


    DoCmd.Close

Exit_Befehl15_Click:
    Exit Sub

Err_Befehl15_Click:
    MsgBox Err.Description
    Resume Exit_Befehl15_Click
    
End Sub
Private Sub Befehl24_Click()
On Error GoTo Err_Befehl24_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_HandyPreisliste"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl24_Click:
    Exit Sub

Err_Befehl24_Click:
    MsgBox Err.Description
    Resume Exit_Befehl24_Click
    
End Sub
Private Sub Befehl25_Click()
On Error GoTo Err_Befehl25_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_EmailHandybestellung"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl25_Click:
    Exit Sub

Err_Befehl25_Click:
    MsgBox Err.Description
    Resume Exit_Befehl25_Click
    
End Sub
Private Sub Befehl26_Click()
On Error GoTo Err_Befehl26_Click

    Dim stDocName As String

    stDocName = "qry_Handybestellung1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Befehl26_Click:
    Exit Sub

Err_Befehl26_Click:
    MsgBox Err.Description
    Resume Exit_Befehl26_Click
    
End Sub
Private Sub Befehl27_Click()
On Error GoTo Err_Befehl27_Click

    Dim stDocName As String

    stDocName = "rpt_Handybestellung_direkt zum Kunden_ENO"
    DoCmd.OpenReport stDocName, acPreview

Exit_Befehl27_Click:
    Exit Sub

Err_Befehl27_Click:
    MsgBox Err.Description
    Resume Exit_Befehl27_Click
    
End Sub