Na Extranet, quando é necessário recuperar a password, a aplicação obriga ao preenchimento do N.º do Cliente e do Nome. Contudo, os clientes poderão não ter estes dados, ficando, assim, sem alternativa que não seja entrar em contacto com a empresa. Para tal, foi criado o seguinte circuito, utilizando a Loja Web/Portal.
Através dos parâmetros gerais, utilizando o parâmetro Login: Instruções, é alterado o template do ecrã de Login, para contemplar um novo URL onde será colocado o email para envio dos dados.
Neste parâmetro, deverá ser colocado, por exemplo, o seguinte:
<br> Para recuperar os dados de acesso à Extranet, nomeadamente número e nome de cliente. Basta clicar <a href="http://localhost/Portal/programs/ewpview.aspx?codigo=recupera">aqui.</a>
{1}Este URL reencaminha, então, para a página de internet onde será inserido o email pelo qual será efetuada uma busca de dados.
Neste URL, ao ser clicado o botão Enviar Dados, será chamado um script que executa Ajax, o qual executará um script interno que recolherá os dados e os enviará por email.
O código HTML utilizado é o seguinte:
html
<script>function sendButtonRsp(){var x=document.getElementById("email").value;$.ajax({url:"../programs/gensel.aspx?cscript=testeemail&var="+x,async: !1});window.location.href="../programs/ewpview.aspx?codigo=dadosenviados";}</script>
<h1>Recuperar dados de Login</h1>
<p> </p>
<p>Para recuperar os seus dados de acesso, nomeadamente o seu numero de cliente e nome de Utilizador insira o e-mail associado à sua conta.</p>
<p><input id="email" size="50" type="text" value="" /></p>
<p><br />
<a name="Button" type="button" class="btn btn-default">Enviar Dados</a></p>
<p>Após a submissão deste formulário irá receber os seus dados de acesso no e-mail introduzido.</p>Esta página de internet executará, então, o script criado (neste exemplo, com o nome testeemail) e apresentará a página de internet com a informação de sucesso, com o nome dadosenviados.
O código do script executado pelo botão é o seguinte:
Dim mcQueryString = mpage.request.querystring("var")
Dim mbody as String
Dim dt_uscl As DataTable = cdata.getdatatable("Select username, email, no from uscl(nolock)where uscl.email='"+mcQueryString+"'")
' Verifica se o e-mail existe na USCL; se existir registos, envia os dados para o e-mail recebido por querystring.
If dt_uscl.haveRows Then
mbody = XcUtil.FormatEmailComoNotification("Dados de Login", "", "", "","Olá " +dt_uscl.rows(0).item("username") + "!<br><br>Enviamos de seguida os seus dados de acesso, tal como solicitado.<br><br> Número de cliente: "+dt_uscl.rows(0).item("no").toString()+"<br><br> Nome do Utilizador: "+dt_uscl.rows(0).item("username")+"<br><br>", "", False,"" , "")
' Deverá ser definido o e-mail de envio
xcutil.sendmail("teste@mail.pt",dt_uscl.rows(0).item("email"),"Envio de Dados de Login",mbody, true)
End IfDeverá ser alterada a função sendmail, para incluir o email configurado para envio na aplicação.
Após esta configuração, será enviado um email com os dados para o utilizador.
Após a criação deste circuito, deverá ser acedido o Monitor de Sistema e efetuada a limpeza da cache da aplicação. Este circuito poderá ser aplicado também no Intranet, pelo que, para este cenário, será necessário alterar as condições de procura do Script para a tabela US.