Imports com.esendex.sdk.messaging

Public Class frmSendSMS

    Public KundenNr As Integer
    Public Kunde As String
    Public FahrerName As String
    Public AvisoId As Integer

    Public Kennzeichen As String = ""
    Public ART = "WHATSAPP"
    Public templateID = ""
    Public template_ParamMFGAdditional = ""

    Public SMS As VERAG_PROG_ALLGEMEIN.cSMS = Nothing
    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub



    Sub New(nachricht As String)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.txtNachricht.Text = nachricht
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Sub New(handyNr As String, nachricht As String)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.txtNachricht.Text = nachricht
        Me.txtHandyNummer.Text = handyNr.Trim
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub frmSendSMS_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SMS_Senden", Me) Then
            MsgBox("Fehlende Berechtigung: SMS_Senden")
            Me.Close()
        End If

        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SMS_WhatsAppNrSenden", Me) Then
            btnSndWhatsApp.Visible = False
            '  Label4.Visible = False
            'btnSMS.PerformClick()
        End If

        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
            If Now < CDate("01.04.2018") Then
                MsgBox("Dieser Dienst ist erst ab dem 01.04.2018 verfügbar!")
                Me.Close()
            End If
        End If

        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("WhatsApp") Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
            btnWhatsApp.Enabled = True
        Else
            btnWhatsApp.Enabled = False
            btnSMS.PerformClick()
        End If

        cboFirma.Items.Clear()
        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA))
        If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
            cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER))
        End If
        cboFirma.SelectedIndex = 0

        cboLandVorwahl.Items.Clear()
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+43  Österreich", "0043"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+49  Deutschland", "0049"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+387 Bosnien", "00387"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+359 Bulgarien", "00359"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+98  Iran", "0098"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+40  Rumänien", "0040"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+381 Serbien", "00381"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+90  Türkei", "0090"))
        cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("+36  Ungarn", "0036"))

        If False Then ' Vorwahl ausgebeldnet

            For Each i As VERAG_PROG_ALLGEMEIN.MyListItem In cboLandVorwahl.Items
                If txtHandyNummer.Text.StartsWith(i.Value) Then
                    cboLandVorwahl.changeItem(i.Value)
                    txtHandyNummer.Text = Replace(txtHandyNummer.Text, i.Value, "", , 1)
                End If
                If txtHandyNummer.Text.StartsWith(i.Value.Replace("+", "00")) Then
                    cboLandVorwahl.changeItem(i.Value)
                    txtHandyNummer.Text = Replace(txtHandyNummer.Text, i.Value.Replace("00", "+"), "", , 1)
                End If
            Next
        End If

        cbxLKWOK.Visible = (AvisoId > 0)


        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WHATSAPP_Freitext", "AVISO") Then
            Me.Height -= pnl.Height
            pnl.Visible = False
        End If

    End Sub

    Sub initFirma()
        Dim FIRMATmp = cboFirma._value

        Button1.Text = Button1.Text.Replace("VERAG", FIRMATmp)
        Button2.Text = Button2.Text.Replace("VERAG", FIRMATmp)
        Button3.Text = Button3.Text.Replace("VERAG", FIRMATmp)
        Button4.Text = Button4.Text.Replace("VERAG", FIRMATmp)
        Button25.Text = Button25.Text.Replace("VERAG", FIRMATmp)

    End Sub
    '

    Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
        Me.Close()
    End Sub

    Function getNr(ByRef nr) As Boolean
        If cboLandVorwahl._value <> "" AndAlso IsNumeric(cboLandVorwahl._value) Then
            nr = cboLandVorwahl._value
        End If

        If txtHandyNummer.Text = "" Then MsgBox("Bitte Handy-Nr angegeben!") : nr = "" : Return False
        If txtHandyNummer.Text.Trim.StartsWith("+") Then txtHandyNummer.Text = txtHandyNummer.Text.Replace("+", "00")
        If Not IsNumeric(txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")) Then MsgBox("Handy-Nr im falschem Format!") : nr = "" : Return False

        nr &= txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")


        If nr.Trim = "" Or Not nr.StartsWith("00") Or Not IsNumeric(nr) Or nr.StartsWith("000") Then
            MsgBox("Bitte prüfen Sie die Nummer!" & vbNewLine & "Jede Nummer muss mit der Ländervorwahl beginnen.")
            nr = "" : Return False
        End If
        If nr.Trim.Length <= 5 Then
            MsgBox("Bitte prüfen Sie die Nummer!")
            nr = "" : Return False
        End If
        Return True
    End Function
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles Button26.Click
        SEND_MSG()
    End Sub

    Sub SEND_MSG()
        Try

            Dim nr = ""
            If Not getNr(nr) Then
                Exit Sub
            End If

            If txtNachricht.Text = "" Then MsgBox("Bitte Nachricht angegeben!") : Exit Sub


            Dim absenderAccount = ""
            Dim absenderFirma = ""

            VERAG_PROG_ALLGEMEIN.cSMS.GET_AccountInfo(cboFirma._value, absenderAccount, absenderFirma)


            ' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
            SMS = New VERAG_PROG_ALLGEMEIN.cSMS


            SMS.sms_Vorwahl = cboLandVorwahl._value
            SMS.sms_Handynummer = nr 'txtHandyNummer.Text.Replace(" ", "").Replace("-", "").Replace("/", "")
            SMS.sms_Nachricht = txtNachricht.Text
            SMS.sms_templateID = If(templateID = "", Nothing, templateID)


            SMS.sms_Account = absenderAccount
            SMS.sms_Firma = absenderFirma
            SMS.sms_KundenNr = If(KundenNr > 0, KundenNr, Nothing)
            SMS.sms_Kunde = If(Kunde <> "", Kunde, Nothing)
            SMS.sms_Fahrername = If(FahrerName <> "", FahrerName, Nothing)
            SMS.sms_AvisoId = If(AvisoId > 0, AvisoId, Nothing)

            If ART = "WHATSAPP" Then
                SMS.sms_art = "WHATSAPP"
                '  If SMS.sendWhatsApp(cboFirma._value) Then 'WHATS-APP
                If SMS.sendWhatsAppTemplate(cboFirma._value, template_ParamMFGAdditional) Then 'WHATS-APP TEMPLATE!!
                    If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then
                        VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
                    End If
                    Me.DialogResult = Windows.Forms.DialogResult.OK
                Else
                    Me.DialogResult = Windows.Forms.DialogResult.None
                End If
            Else
                If SMS.sendSMS Then 'SMS
                    If cbxLKWOK.Visible And cbxLKWOK.Checked And AvisoId > 0 Then
                        VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
                    End If
                    Me.DialogResult = Windows.Forms.DialogResult.OK
                Else
                    Me.DialogResult = Windows.Forms.DialogResult.None
                End If
            End If


        Catch ex As Exception
            MsgBox(vbNewLine & ex.Message & ex.StackTrace)
            Me.DialogResult = Windows.Forms.DialogResult.None

        End Try

    End Sub
    Sub fillTXT(s, Optional lkwTxt = "LKW/TIR: ", Optional templateID = "", Optional template_ParamMFGAdditional = "")
        Dim FirmaTmp = cboFirma._value
        If FirmaTmp <> "VERAG" Then
            txtNachricht.Text = s.ToString.Replace("VERAG", FirmaTmp.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
        Else
            txtNachricht.Text = s
        End If

        If Kennzeichen <> "" Then
            txtNachricht.Text &= vbNewLine & lkwTxt & Kennzeichen
            template_ParamMFGAdditional &= " | " & lkwTxt & Kennzeichen
        End If

        If FirmaTmp = "FRONTOFFICE" Then
            txtNachricht.Text &= vbNewLine & "VERAG - UNISPED - IMEX"
        End If

        'WENN WHATSAPP 
        Me.templateID = templateID
        Me.template_ParamMFGAdditional = template_ParamMFGAdditional

        If ART = "WHATSAPP" Then
            If vbYes = MsgBox("WhatsApp senden?", vbYesNoCancel) Then
                SEND_MSG() '--> GLEICH SENDEN
            End If
        End If

    End Sub
    Dim template_DE = "42783623-94d2-48de-8919-34735cc78b58"
    Dim template_TR = "7e0d2e60-720f-4102-9f36-ed194eaa0ace"
    Dim template_RO = "ac361636-16e9-4713-856e-d22f50e47b08"
    Dim template_BG = "47c7128f-69a0-488d-8035-2f10d3255c6d"
    Dim template_EN = "20b1379c-6d2d-4577-a524-ddccf2e8ab59"
    Dim template_YU = "08ef1aec-5b02-47c1-98bb-1d50ed3bfc1a"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        fillTXT("Bitte zu VERAG kommen!", "LKW: ", "e5c1ce77-31a0-4663-9576-be340f73ac1c")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        fillTXT("Bitte zu VERAG kommen und den PASS mitnehmen!", "LKW: ", template_DE, " und den PASS mitnehmen!")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        fillTXT("Bitte zu VERAG kommen und den STEMPEL mitnehmen!", "LKW: ", template_DE, " und den STEMPEL mitnehmen!")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        fillTXT("Bitte zu VERAG kommen und Bargeld mitnehmen: € ", "LKW: ", template_DE, " und Bargeld mitnehmen: € ")
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        fillTXT("VERAG ofise geliniz.", "TIR: ", template_TR)
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        fillTXT("PASAPORTU ile birlikte VERAG ofise geliniz.", "TIR: ", template_TR, " PASAPORTU ile birlikte ")
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        fillTXT("FIRMAKASESI ile birlikte VERAG ofise geliniz.", "TIR: ", template_TR, " FIRMAKASESI ile birlikte")
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        fillTXT("VERAG ofise, nakit para ile geliniz: € ", "TIR: ", template_TR, " nakit para ile: €")
    End Sub


    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        fillTXT("Molim Vas dođite u VERAG!", "TRUCK: ", template_YU, "")
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        fillTXT("Molim Vas dođite u VERAG i PONESITE PASOS!", "TRUCK: ", template_YU, " i PONESITE PASOS")
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        fillTXT("Molim Vas dođite u VERAG i PONESITE PEČAT!", "TRUCK: ", template_YU, " i PONESITE PEČAT")
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        fillTXT("Molim Vas dođite u VERAG i za platit imate: € ", "TRUCK: ", template_YU, " i za platit imate: € ")
    End Sub

    Private Sub txtHandyNummer_KeyDown(sender As Object, e As KeyEventArgs) Handles txtHandyNummer.KeyDown
        If e.KeyCode = Keys.Return Then
            e.Handled = True
        End If
    End Sub


    Private Sub frmSendSMS_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If txtHandyNummer.Text = "" Then
            txtHandyNummer.Focus()
        Else
            txtNachricht.Focus()
        End If

    End Sub

    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
        initFirma()
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        fillTXT("Va rog sa va prezentati la sediul firmei VERAG!", "TRUCK: ", template_RO, "")
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Buletin/ Pasaport!", "TRUCK: ", template_RO, " cu Buletin/ Pasaport")
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu Stampila firmei!", "TRUCK: ", template_RO, " cu Stampila firmei")
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        fillTXT("Va rog sa va prezentati la sediul firmei VERAG cu suma in Cash: € ", "TRUCK: ", template_RO, " cu suma in Cash: € ")
    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        fillTXT("Моля, елате във VERAG!", "TRUCK: ", template_BG)
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        fillTXT("Моля, елате във VERAG и вземете паспорта си!", "TRUCK: ", template_BG, " и вземете паспорта си")
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        fillTXT("Моля, елате във VERAG и вземете печата си!", "TRUCK: ", template_BG, " и вземете печата си")
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        fillTXT("Моля, елате във VERAG и вземете пари в борй в размер на: € ", "TRUCK: ", template_BG, " и вземете пари в борй в размер на: € ")
    End Sub

    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        fillTXT("Bitte Kuvert beim Zoll holen und zu VERAG kommen!", "LKW: ", template_DE, "Bitte Kuvert beim Zoll holen!")
    End Sub

    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
        fillTXT("Gümrükten zarfini al VERAG'a gel lütfen", "TIR: ", template_TR, "Gümrükten zarfini al gel lütfen")
    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        fillTXT("Idi na carinu,  uzmi kovertu, i dodji u verag", "TRUCK: ", template_YU, "Idi na carinu,  uzmi kovertu")
    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        fillTXT("Vă rugăm să ridicați plicul de la vamă și să veniți la VERAG", "TRUCK: ", template_RO, "Vă rugăm să ridicați plicul de la vamă și să veniți la ")
    End Sub

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        fillTXT("Molya, vzemete plika ot mitnitsata i elate vŭv VERAG", "TRUCK: ", template_BG, "Molya, vzemete plika ot mitnitsata i elate vŭv")
    End Sub

    Private Sub btnSndWhatsApp_Click(sender As Object, e As EventArgs) Handles btnSndWhatsApp.Click
        Dim nr = ""
        If Not getNr(nr) Then
            Exit Sub
        End If
        nr = nr.Substring(2) ' nullstellen weg
        Process.Start("https://wa.me/" & nr)
    End Sub



    Private Sub btnSMS_Click(sender As Object, e As EventArgs) Handles btnSMS.Click
        ART = "SMS"
        btnSMS.BackColor = Color.FromArgb(0, 54, 128)
        btnWhatsApp.BackColor = Color.White
        txtNachricht.Enabled = True
        lblInfoWhatsApp.Visible = False
        Button26.Visible = True
        pnl.Enabled = False
    End Sub

    Private Sub btnWhatsApp_Click(sender As Object, e As EventArgs) Handles btnWhatsApp.Click
        ART = "WHATSAPP"
        btnWhatsApp.BackColor = Color.FromArgb(0, 54, 128)
        btnSMS.BackColor = Color.White
        txtNachricht.Enabled = False
        txtNachricht.Text = ""
        lblInfoWhatsApp.Visible = True
        Button26.Visible = False
        pnl.Enabled = True
    End Sub

    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
        If MyRichTextBox1.Text <> "" Then fillTXT("Bitte zu VERAG kommen " & MyRichTextBox1.Text, "", template_DE, MyRichTextBox1.Text)
    End Sub

    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
        If MyRichTextBox1.Text <> "" Then fillTXT("VERAG ofise geliniz " & MyRichTextBox1.Text, "", template_TR, MyRichTextBox1.Text)
    End Sub

    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
        If MyRichTextBox1.Text <> "" Then fillTXT("BMolim Vas dođite u VERAG " & MyRichTextBox1.Text, "", template_YU, MyRichTextBox1.Text)
    End Sub

    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
        If MyRichTextBox1.Text <> "" Then fillTXT("Va rog sa va prezentati la sediul firmei VERAG " & MyRichTextBox1.Text, "", template_RO, MyRichTextBox1.Text)
    End Sub

    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
        If MyRichTextBox1.Text <> "" Then fillTXT("Моля, елате във VERAG " & MyRichTextBox1.Text, "", template_BG, MyRichTextBox1.Text)
    End Sub
End Class

Public Class cSMSOptions

    Shared Sub insertVermerkSMS(AvisoId, HandyNr, SMSId, Optional DatumTmp = Nothing)
        Try
            Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL

            'Daten zuweisen und speichern
            Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk
            myVermerk.VermerkID = 0
            myVermerk.AvisoID = AvisoId

            myVermerk.Datum = If(DatumTmp, Now)
            myVermerk.VermerkArt = "A"
            myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
            myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
            myVermerk.Hinweis_Vermerk = "SMS an Fahrer gesendet: " & HandyNr
            myVermerk.VermerkCodeId = 46
            myVermerk.SMSId = SMSId
            myVermerk.SMSStatus = 0

            VermerkeDAL.SpeichernVermerk(myVermerk)

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub
End Class