Páginas filhas
  • Funções com ADVPL ASP

Funções com ADVPL ASP




Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11

 

O código abaixo representa o arquivo ms01.APH, que contém a parte para Login de um usuario

<html> <h2 align="center"> Login </h2> <hr> <form name="form1" method="post" action="w_ms02.apw"> <p>Nome : <input name="txt_Nome" type="text" id="txt_Nome" size="25"></p> <p>Senha : <input name="txt_Senha" type="password" id="txt_Senha" size="3" maxlength="3"></p> <hr> <p><input type="submit" value="Ok"></p> </form> </html>

O código abaixo representa o arquivo ms02.APH, que contém a parte do formulário

<html> <head> <title>ADVPL ASP</title> </head> <script language="javascript"> //Codigo JavaScript no qual não permite que o formulário seja enviado sem //que seus campos tenham sido preechidos. function envia() { var oFrm = document.forms[0]; if ( oFrm.txt_Nome.value == "" || oFrm.txt_Pre.value == "" || oFrm.txt_Fone.value == "" || oFrm.txt_End.value == "" ) { alert( "Preencha Todos Os Dados Do Formulário" ); return; } oFrm.action = "w_ms03.apw"; oFrm.submit(); } </script> <body> <h2 align="center"> Formulário</h2> <hr> <p>Bem Vindo <%=HttpSession->Usuario%></p> <form name="form" method="post" action=""> <p>Nome : <input name="txt_Nome" type="text" id="txt_Nome" size="25" value=""></p> <p>Telefone : <input name="txt_Pre" type="text" id="txt_Pre" size="3"> - <input name="txt_Fone" type="text" id="txt_Fone" size="10"></p> <p>Endereço : <input name="txt_End" type="text" id="txt_End" size="25"></p> <p><input type="button" value="Enviar" onClick="envia()"></p> </form> <hr> </body> </html>

O código abaixo representa o arquivo ms03.APH, que contém uma tabela que exibe os dados
preenchidos no formulário, mais um contador do total de vezes que foi realizado esse formulário

<HTML> <table width="200" border="1"> <tr> <td width="95">Nome</td> <td colspan="2"><%=HttpPost->txt_Nome%></td> </tr> <tr> <td width="95">Telefone</td> <td width="75"><%=HttpPost->txt_Pre %></td> <td width="75"><%=HttpPost->txt_Fone%></td> </tr> <tr> <td>Endereço;</td> <td colspan="2"><%=HttpPost->txt_End%></td> </tr> <tr> <td width="95">Contador</td> <td colspan="2"><%=HttpSession->Contador%></td> </tr> </table> <P> <input name="Reset" type="reset" value="Voltar" onClick="window.location = 'w_ms02.apw'"> </P> </HTML>

O código abaixo representa o arquivo ms01.PRW, que contém as funções escritas em ADVPL ASP

#INCLUDE "PROTHEUS.CH" #DEFINE ID "Admin" #DEFINE SENHA "123" web function ms01() //A função é executada quando é chamada através do browser. return h_ms01() web function ms02() //Verifica se é a primeira vez q usuário faz login. conout( ID, SENHA ) if empty( HttpSession->Usuario ) //Verifica se os campos foram preenchidos. if empty( HttpPost->txt_Nome ) .And. empty( HttpPost->txt_Senha) return "Nome e Senha não informados!!" endif //Verifica usuário e senha. if HttpPost->txt_Nome != ID return "Usuário Inválido!!" endif if HttpPost->txt_Senha != SENHA return "Senha Inválida!!" endif //Seta o nome do usuario. HttpSession->Usuario := HttpPost->txt_Nome endif return h_ms02() web function ms03() //Verifica se a Sesssion já foi iniciada. if empty( HttpSession->Contador ) HttpSession->Contador := 1 //caso tenha sido, incrementa o contador. else HttpSession->Contador++ endif return h_ms03()

 

Nível 1 (Acesso Clientes)
Espanhol , Inglês

  • Sem rótulos