Bolão entre amigos e Bolão da Mega Sena da Virada feito em WEBDEV
// Summary: <specify the procedure action>
// Syntax:
// Evento_Alterar ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Alterar()
IF Autorizado = True AND gnid > 0
acao = "alterar"
HReset(Apostadores)
IF HReadSeek(Apostadores,Apostador_ID,gnid,hIdentical) = True THEN
FileToScreen()
FileToPage()
MyPage..Plane = 2
END
ELSE
Info("Não Autorizado")
END
Evento_Totais()
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
// Evento_Excluir ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Excluir()
IF Autorizado = True AND gnid > 0 THEN
acao = "excluir"
//1 : Sim
//2 : Não
SWITCH Dialog("Deseja excluir o registro?")
// Sim
CASE 1
HReset(Apostadores)
IF HReadSeek(Apostadores,Apostador_ID,gnid,hIdentical) = True THEN
HDelete(Apostadores)
TableDisplay(TABLE_Apostadores,taInit)
END
// Não
CASE 2
END
ELSE
Info("Não Autorizado")
END
Evento_Totais()
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//Evento_Gravar ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Evento_Gravar()
IF EDT_Nome = ""
Info("Campo NOME obrigatório")
RETURN
END
IF EDT_CPF = ""
Info("Campo CPF obrigatório")
RETURN
END
IF EDT_Telefone = ""
Info("Campo TELEFONE obrigatório")
RETURN
END
ScreenToFile()
IF acao = "incluir" THEN
IF HAdd(Apostadores) = True THEN
ScreenToFile()
Info("Gravou com sucesso!")
END
ELSE IF acao = "alterar"
HReset(Apostadores)
IF HReadSeek(Apostadores,CPF,EDT_CPF,hIdentical) = True THEN
ScreenToFile()
IF HModify(Apostadores) = True THEN
Info("Gravou com sucesso!")
END
ELSE
Info("Voce já fez a sua aposta")
END
ELSE
MyPage..Plane = 1
END
TableDisplay(TABLE_Apostadores,taReExecuteQuery)
TableDisplay(TABLE_Apostadores,taInit)
acao = ""
MyPage..Plane = 1
Evento_Totais()
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//Evento_Incluir ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Evento_Incluir()
IF Autorizado = True THEN
GR_CAMPOS = ""
acao = "incluir"
MyPage..Plane = 2
ELSE
Info("Não Autorizado")
END
Evento_Totais()
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//Evento_Localizar ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Evento_Localizar()
HReset(Apostadores)
IF HReadSeek(Apostadores,Telefone,gTelefone,hIdentical) = True THEN
IF Apostadores.Telefone = gTelefone
FileToPage()
HReadSeek(Apostadores,Apostador_ID,Apostadores.Apostador_ID,hIdentical)
FileToPage()
MyPage..Plane = 2
acao = "alterar"
ELSE
Info("Cadastro não localizado")
MyPage..Plane = 1
acao = ""
END
ELSE
Info("Cadastro não localizado")
MyPage..Plane = 1
acao = ""
END
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
//Evento_Login ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Evento_Login()
IF EDT_Nome1 = "" THEN
RETURN
END
IF EDT_CPF1 = "" THEN
RETURN
END
IF EDT_Nome1 = "SUPERVISOR" AND EDT_CPF1 = "123" THEN
gloLogin = "SUPERVISOR"
glosenha = "123"
Info("Autorizado")
Autorizado = True
MyPage..Plane = 1
ELSE
Info("Não Autorizado")
END
Evento_Totais()
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
// Evento_Totais ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Totais()
IF HExecuteQuery(QRY_Totais,hQueryDefault) = True THEN
FOR EACH QRY_Totais
EDT_ValorBolaoEntreAmigos1 = QRY_Totais.sum_ValorBolaoEntreAmigos
EDT_ValorBolaoMegaSena1 = QRY_Totais.sum_ValorBolaoMegaSena
END
END
//-------------------------------------------------------------------------------------------
// Summary: <specify the procedure action>
// Syntax:
// Evento_Visualizar ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Visualizar()
acao = "VISUALIZAR"
HReset(Apostadores)
IF HReadSeek(Apostadores,Apostador_ID,gnid,hIdentical) = True THEN
FileToScreen()
FileToPage()
MyPage..Plane = 2
END
//------------------------------------------------------------------------------------------------
in CODE
select row in table:
gnid = TABLE_Apostadores[TABLE_Apostadores].COL_Apostador_ID
//para pegar o id ao clicar na linha da table
//-------------------------------------------------------------------------------------------
SELECT
SUM(Apostadores.ValorBolaoEntreAmigos) AS sum_ValorBolaoEntreAmigos,
SUM(Apostadores.ValorBolaoMegaSena) AS sum_ValorBolaoMegaSena
FROM
Apostadores
para os totais da table.