Protected Sub btnIsplataBankaPosaljiZahtjev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIsplataBankaPosaljiZahtjev.Click
        If prijavaYesNo = False Then
            Return
        End If
        If Page.IsValid Then

            Dim _userService As New db.UserService.UserManagerClient()
            _userService.ClientCredentials.UserName.UserName = token
            _userService.ClientCredentials.UserName.Password = FormsAuthentication.HashPasswordForStoringInConfigFile(token, "SHA1")

            Dim _userBankAccount As New db.UserService.RequestBankItem()
            'If rblIsplataBankaPodrucje.SelectedValue = 0 Then ' BiH
            '    If ddlIsplataBankaPopisBanaka.SelectedValue = 0 Then
            '        lblIsplataBankaGreska.Text = Resources.Account.OdaberiBanku
            '        tblIsplataBiH.Attributes.Add("style", "display:block;")
            '        tblIsplataStranaZemlja.Attributes.Add("style", "display:none;")
            '        Return
            '    End If
            '    If txbIsplataBankaBrojRacunaBiH.Text.Trim() = "" Then
            '        lblIsplataBankaGreska.Text = Resources.Account.PopuniBankPodatke
            '        tblIsplataBiH.Attributes.Add("style", "display:block;")
            '        tblIsplataStranaZemlja.Attributes.Add("style", "display:none;")
            '        Return
            '    End If
            '    If txbIsplataBankaBrojRacunaBiH.Text.Trim().Count() <> 16 OrElse db.Helpers.CheckMod97_10(txbIsplataBankaBrojRacunaBiH.Text.Trim()) = False Then
            '        lblIsplataBankaGreska.Text = Resources.Account.acBankaRacun16
            '        tblIsplataBiH.Attributes.Add("style", "display:block;")
            '        tblIsplataStranaZemlja.Attributes.Add("style", "display:none;")
            '        Return
            '    End If

            '    lblIsplataBankaGreska.Text = ""
            '    _userBankAccount.AccountNumber = txbIsplataBankaBrojRacunaBiH.Text
            '    _userBankAccount.BankName = ddlIsplataBankaPopisBanaka.SelectedItem.Text
            '    _userBankAccount.OutOfState = False
            '    _userBankAccount.Swift = ""
            '    _userBankAccount.Iban = ""
            'Else ' ostale države
            '    'txbIsplataBankaBrojRacunaOther.Text.Trim() = "" Or
            '    If txbIsplataBankaSWIFT.Text.Trim() = "" Or txbIsplataBankaIBAN.Text.Trim() = "" Or txbIsplataBankanazivBanke.Text.Trim() = "" Then
            '        lblIsplataBankaGreska.Text = Resources.Account.PopuniBankPodatke
            '        tblIsplataBiH.Attributes.Add("style", "display:none;")
            '        tblIsplataStranaZemlja.Attributes.Add("style", "display:block;")
            '        Return
            '    End If
            '    lblIsplataBankaGreska.Text = ""
            '    _userBankAccount.AccountNumber = "" ' txbIsplataBankaBrojRacunaOther.Text
            '    _userBankAccount.OutOfState = True
            '    _userBankAccount.BankName = txbIsplataBankanazivBanke.Text
            '    _userBankAccount.Swift = txbIsplataBankaSWIFT.Text
            '    _userBankAccount.Iban = txbIsplataBankaIBAN.Text
            'End If



            Dim _account As New account(token)
            _account.FKorisnikDetalji()
            _userBankAccount.Adress = _account.Adresa & " " & _account.BrojKuce

            _userBankAccount.City = _account.Mjesto
            _userBankAccount.PostalCode = _account.BrojPoste
            _userBankAccount.UserName = _account.Ime & " " & _account.Prezime
            _userBankAccount.StateID = _account.DrzavaId

            Dim novac As Decimal = FNovacZaIsplatu()
            If novac < Decimal.Parse(txbisplataBankaIznos.Text) Then
                lblIsplataBankaGreska.Text = [String].Format(Resources.Account.IsplataBankaPrekoracenje, novac)
                Return
            End If
            If _account.Novac < Decimal.Parse(txbisplataBankaIznos.Text) Then
                lblIsplataBankaGreska.Text = [String].Format(Resources.Account.IsplataBankaPrekoracenje, _account.Novac)
                Return
            End If
            Try
                Dim pfs As New db.PublicFinService.PublicFinClient()
                pfs.ClientCredentials.UserName.UserName = token
                pfs.ClientCredentials.UserName.Password = FormsAuthentication.HashPasswordForStoringInConfigFile(token, "SHA1")
                '
                Dim PodTipTransakcije As New db.UserService.FinanceTransactionSubType
                PodTipTransakcije.TransactionSubType = account.sPodtipoviTransakcija.Banka
                '
                Dim FinancijeUser As New db.UserService.FinanceTransactionSource
                FinancijeUser.TransactionSource = Class1.kljucService

                Dim statusNum = pfs.CreateRequestBankWithDrawal(UserId, PodTipTransakcije.TransactionSubType, txbisplataBankaIznos.Text, FinancijeUser.TransactionSource)
                If statusNum <> 101 Then
                    ' zahtjev nije poslan
                    pnlIsplataBankaForms.Visible = False
                    pnlIsplataBankaIzvjesce.Visible = True
                    lblIsplataBankaIzvjesce.Text = [String].Format(Resources.Account.IsplataGreskaText)
                    pnlIsplataBankaIzvjesce.CssClass = "PokerErrorMsg"
                Else
                    ' zahtjev je uspješno poslan
                    pnlIsplataBankaForms.Visible = False
                    pnlIsplataBankaIzvjesce.Visible = True
                    lblIsplataBankaIzvjesce.Text = [String].Format(Resources.Account.IsplataDistributerIzvjesce.Split("<p>")(0))
                    pnlIsplataBankaIzvjesce.CssClass = "isplatabankaIzvjesce"

                    ' refrešanje salda nakon uplate
                    Dim UserFinancije As db.UserService.UserFinance = _userService.GetUserAmountByToken(token)
                    CType(Master.FindControl("novac"), Label).Text = FormatNumber(UserFinancije.AvailableAmount, 2)
                    If UserFinancije.AvailableAmountPromo > 0 Then
                        CType(Master.FindControl("lblPromoNovac"), Label).Text = " + " & FormatNumber(UserFinancije.AvailableAmountPromo, 2) & " BONUS"
                    End If
                    ' // refrešanje salda nakon uplate
                End If
            Catch ex As Exception
                Dim _WriteException As New WriteException("Neuspješno zahtjev za isplatu na banku (method: btnIsplataBankaPosaljiZahtjev_Click) PublicWin :" & ex.Message(), 3818, Diagnostics.EventLogEntryType.Error, UserId)
                _WriteException.SaveException()
                _WriteException = Nothing
            End Try

        End If
    End Sub