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.