Version =20
VersionRequired =20
Checksum =-14094503
Begin Form
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    AllowDeletions = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowAdditions = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    ViewsAllowed =1
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =10032
    DatasheetFontHeight =10
    ItemSuffix =17
    Left =270
    Top =990
    Right =19170
    Bottom =10845
    DatasheetGridlinesColor =12632256
    Filter ="((tbl_retention_daten.MSISDN=\"01729566594\"))"
    OrderBy ="tbl_retention_daten.Buchungsnr_beantragt"
    RecSrcDt = Begin
        0xe77adc6c0b62e440
    End
    RecordSource ="qry_VvlVoicefileSenden"
    Caption ="Voice File Formular"
    OnOpen ="Mkr_Max"
    DatasheetFontName ="Arial"
    PrtMip = Begin
        0xa0050000a0050000a0050000a005000000000000201c0000e010000001000000 ,
        0x010000006801000000000000a10700000100000001000000
    End
    PrtDevMode = Begin
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x010400069c00bc031fd30100010009009a0b3408640001000700580201000100 ,
        0x5802010000004134000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000010000000000000001000000 ,
        0x0200000001000000000000000000000000000000000000000000000050524956 ,
        0xe030000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000180000000000102710271027 ,
        0x000010270000000000000000e800bc0300000000000000000000000000000000 ,
        0x0000000000000000030000000000000000001000503403002888040000000000 ,
        0x000000000000000000000000000000000000000000000000cb0077d408000000 ,
        0x00000000010001000000ff000200000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x01000000000000000000000000000000e8000000534d544a000000001000d800 ,
        0x4100700070006c00650020004c00610073006500720057007200690074006500 ,
        0x72002000380035003000300000005265736f6c7574696f6e0036303064706900 ,
        0x4475706c6578004e6f6e650042697473506572506978656c004e6f6e6500536d ,
        0x6f6f7468696e670046616c7365005061676553697a65004c6574746572005061 ,
        0x6765526567696f6e0000496e707574536c6f74005374616e6461726443617373 ,
        0x6574746500547261795377697463680054727565000000000000000000000000 ,
        0x000000000000000000000000000000000000000000000000
    End
    PrtDevNames = Begin
        0x08001f005d000100000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000000000 ,
        0x0000000000000000000000000000000000000000000000000000000000545330 ,
        0x303100
    End
    AllowDatasheetView =0
    AllowPivotTableView =0
    AllowPivotChartView =0
    AllowPivotChartView =0
    Begin
        Begin Label
            BackStyle =0
            BackColor =-2147483633
            ForeColor =-2147483630
        End
        Begin Rectangle
            SpecialEffect =3
            BackStyle =0
            Width =850
            Height =850
        End
        Begin Line
            Width =1701
        End
        Begin Image
            BackStyle =0
            OldBorderStyle =0
            PictureAlignment =2
            Width =1701
            Height =1701
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        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 BoundObjectFrame
            SpecialEffect =2
            OldBorderStyle =0
            BackStyle =0
            Width =4536
            Height =2835
            LabelX =-1701
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
            AsianLineBreak =255
        End
        Begin ListBox
            SpecialEffect =2
            Width =1701
            Height =1417
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin ComboBox
            SpecialEffect =2
            Width =1701
            LabelX =-1701
            BackColor =-2147483643
            ForeColor =-2147483640
        End
        Begin Subform
            SpecialEffect =2
            Width =1701
            Height =1701
        End
        Begin UnboundObjectFrame
            SpecialEffect =2
            OldBorderStyle =1
            Width =4536
            Height =2835
        End
        Begin ToggleButton
            Width =283
            Height =283
            FontSize =8
            FontWeight =400
            FontName ="MS Sans Serif"
        End
        Begin Tab
            BackStyle =0
            Width =5103
            Height =3402
        End
        Begin FormHeader
            Height =566
            BackColor =16777164
            Name ="Formularkopf"
            GUID = Begin
                0x9ddaa6f9478cf6448d48718dc09d6255
            End
        End
        Begin Section
            Height =3004
            Name ="Detailbereich"
            GUID = Begin
                0xc8a2f6c31ae22144ac943bba909e5ecc
            End
            Begin
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2487
                    Top =114
                    Width =7545
                    Height =300
                    ColumnWidth =900
                    FontSize =10
                    Name ="ID"
                    ControlSource ="ID"
                    FontName ="Arial"
                    GUID = Begin
                        0x15996304a20be447938cd3cee119ff0c
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =114
                            Width =255
                            Height =285
                            FontSize =10
                            Name ="ID_Bezeichnungsfeld"
                            Caption ="ID"
                            FontName ="Arial"
                            GUID = Begin
                                0x8cdcf489f964cd4c8dfc3eaf9bbe0b8b
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2487
                    Top =498
                    Width =7545
                    Height =300
                    ColumnWidth =2310
                    FontSize =10
                    TabIndex =1
                    Name ="MSISDN"
                    ControlSource ="MSISDN"
                    FontName ="Arial"
                    GUID = Begin
                        0xe26b9c2cbf79bb4db1f57962a91b6429
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =498
                            Width =825
                            Height =285
                            FontSize =10
                            Name ="MSISDN_Bezeichnungsfeld"
                            Caption ="MSISDN"
                            FontName ="Arial"
                            GUID = Begin
                                0x85e6cc3519306346ada761f7b848869a
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2487
                    Top =882
                    Width =7545
                    Height =300
                    ColumnWidth =1035
                    FontSize =10
                    TabIndex =2
                    Name ="Monat_Jahr"
                    ControlSource ="Monat_Jahr"
                    FontName ="Arial"
                    GUID = Begin
                        0x4e6d45d35657fd469eac979f9aec9ca2
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =882
                            Width =1080
                            Height =285
                            FontSize =10
                            Name ="Monat_Jahr_Bezeichnungsfeld"
                            Caption ="Monat_Jahr"
                            FontName ="Arial"
                            GUID = Begin
                                0x47a3a21f5e34f540a222e777736bdf2f
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    EnterKeyBehavior = NotDefault
                    ScrollBars =2
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2487
                    Top =1266
                    Width =7545
                    Height =300
                    ColumnWidth =3000
                    FontSize =10
                    TabIndex =3
                    Name ="Sachbearbeiter"
                    ControlSource ="Sachbearbeiter"
                    FontName ="Arial"
                    GUID = Begin
                        0x84b75951e28d4043a53518664f6348bf
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =1266
                            Width =1380
                            Height =285
                            FontSize =10
                            Name ="Sachbearbeiter_Bezeichnungsfeld"
                            Caption ="Sachbearbeiter"
                            FontName ="Arial"
                            GUID = Begin
                                0xf5b900a289f13e4991b434c580a07c14
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2487
                    Top =1650
                    Width =7545
                    Height =300
                    ColumnWidth =1035
                    FontSize =10
                    TabIndex =4
                    Name ="VoiceFileversendet"
                    ControlSource ="VoiceFileversendet"
                    FontName ="Arial"
                    GUID = Begin
                        0xc8a0dee1a2f25b4c804652c6d2cf264d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =60
                            Top =1650
                            Width =1830
                            Height =285
                            FontSize =10
                            Name ="VoiceFileversendet_Bezeichnungsfeld"
                            Caption ="Voice File versendet"
                            FontName ="Arial"
                            GUID = Begin
                                0x37ce15b3d7d4094485b5d47f823ec13c
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2487
                    Top =2025
                    Width =7545
                    Height =300
                    ColumnWidth =5985
                    FontSize =10
                    TabIndex =5
                    Name ="Dateiname"
                    ControlSource ="=\"FTP-EXT_VOICE_Voice-File_\" & [MSISDN] & \"_\" & \"28009594\" & \".wav\""
                    FontName ="Arial"
                    GUID = Begin
                        0x0490d55eaa4c914b99f49ce06c64fc40
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =2025
                            Width =1005
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld11"
                            Caption ="Dateiname"
                            FontName ="Arial"
                            GUID = Begin
                                0x00767a7ad0fca14fb38f9c2cf5f6efae
                            End
                        End
                    End
                End
                Begin TextBox
                    Locked = NotDefault
                    OverlapFlags =85
                    TextAlign =3
                    IMESentenceMode =3
                    Left =2484
                    Top =2445
                    Width =7545
                    Height =300
                    ColumnWidth =4995
                    FontSize =10
                    TabIndex =6
                    Name ="Ordner"
                    ControlSource ="=IIf([Sachbearbeiter]=\"Bernd Molinski\",\"\\\\Serv-ma-01\\itmcrm$\\Voicemailarc"
                        "hiv\\510\\Voicefile.wav\",IIf([Sachbearbeiter]=\"Markus Eisenschmidt\",\"\\\\Ser"
                        "v-ma-01\\itmcrm$\\Voicemailarchiv\\518\\Voicefile.wav\",IIf([Sachbearbeiter]=\"A"
                        "lwin Birzer\",IIf([Sachbearbeiter]=\"Julia Köck\",\"\\\\Serv-ma-01\\itmcrm$\\Voi"
                        "cemailarchiv\\537\\Voicefile.wav\"\"\\\\Serv-ma-01\\itmcrm$\\Voicemailarchiv\\53"
                        "0\\Voicefile.wav\"))))"
                    FontName ="Arial"
                    GUID = Begin
                        0x69738fb3c679c74c9f68051316f81ea1
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Left =57
                            Top =2445
                            Width =1830
                            Height =285
                            FontSize =10
                            Name ="Bezeichnungsfeld15"
                            Caption ="Ordner"
                            FontName ="Arial"
                            GUID = Begin
                                0xbf278e932958804abd49940905aebff9
                            End
                        End
                    End
                End
            End
        End
        Begin FormFooter
            Height =746
            BackColor =16777164
            Name ="Formularfuß"
            GUID = Begin
                0x8269494a117ecc4288240962637d8f59
            End
            Begin
                Begin CommandButton
                    OverlapFlags =85
                    Left =165
                    Top =60
                    Width =2955
                    Height =570
                    Name ="Befehl12"
                    Caption ="Voice File versenden es folgen weitere von gleicher Aufzeichnung"
                    OnDblClick ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0xd134728d5aec0346890fad90e70f02df
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =3285
                    Top =60
                    Width =2955
                    Height =570
                    TabIndex =1
                    Name ="Befehl13"
                    Caption ="Voice File versenden es folgen keine weiteren von gleicher Aufzeichnung"
                    OnDblClick ="[Event Procedure]"
                    FontName ="Arial"
                    GUID = Begin
                        0xfab530969ec0d245a1cf79a0394f897f
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =9420
                    Top =60
                    Width =576
                    Height =576
                    TabIndex =2
                    Name ="Befehl16"
                    Caption ="Befehl16"
                    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
                        0xdedf5c272d41bf45bea8f0304ec7e7e2
                    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 Befehl12_DblClick(Cancel As Integer)
'kopiert die datei mit neuem Namen in einen anderen Ordner'

Dim sFile As String
Dim sFileNew As String
Dim Bearbeitungsdatum As Date
Bearbeitungsdatum = Date

    Select Case Dir(Me.Ordner)
        Case Is = ""
        MsgBox "Datei nicht vorhanden"
            Case Else
            
Me.VoiceFileversendet = Bearbeitungsdatum
sFile = Me.Ordner
sFileNew = "\\Serv-ma-01\itmcrm$\Voicemailarchiv\FTPexport\" & Me.Dateiname
FileCopy sFile, sFileNew
MsgBox ("Datei an Mobilcom Schnittstelle übergeben - Bitte Formular schliessen und nächste Nummer übergeben!")
        
        
    End Select

End Sub

Private Sub Befehl13_DblClick(Cancel As Integer)
'verschiebt die datei mit neuem Namen in einen anderen Ordner'

Dim sFile As String
Dim sFileNew As String
Dim Bearbeitungsdatum As Date
Bearbeitungsdatum = Date

Select Case Dir(Me.Ordner)
        Case Is = ""
        MsgBox "Datei nicht vorhanden"
            Case Else


Me.VoiceFileversendet = Bearbeitungsdatum
sFile = Me.Ordner
sFileNew = "\\Serv-ma-01\itmcrm$\Voicemailarchiv\FTPexport\" & Me.Dateiname
Name sFile As sFileNew

MsgBox ("Datei an Mobilcom Schnittstelle übergeben - Ursprungsdatei wurde gelöscht!")

  End Select
  
End Sub
Private Sub Befehl16_Click()
On Error GoTo Err_Befehl16_Click


    DoCmd.Close

Exit_Befehl16_Click:
    Exit Sub

Err_Befehl16_Click:
    MsgBox Err.Description
    Resume Exit_Befehl16_Click
    
End Sub