Exemplo simples de como usar classe oop em seus sistemas
VIDEO EXPLICATIVO DO ASSUNTO
https://youtu.be/0G9LXYsFWUE
CODIGOS
ClasseInstanciada is a Class
cl_Nome1 is string
cl_SobreNome1 is string
cl_Nome2 is string
cl_SobreNome2 is string
END
PROCEDURE Constructor()
PROCEDURE Destructor()
// Summary: <specify the procedure action>
// Syntax:
// Executar ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Executar()
Info(cl_Nome1,cl_SobreNome1,cl_Nome2,cl_SobreNome2)
// Summary: <specify the procedure action>
// Syntax:
// Listar ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Listar()
Info(cl_Nome1,cl_SobreNome1,cl_Nome2,cl_SobreNome2)
//----------------------------------------------------------------------------------------------------------------------
ClasseTabela_1e2 is a Class
cl_Cliente_id is int
cl_Nome is string
cl_CPF is string
cl_Conta is string
cl_DataMov is Date
cl_Valor is real
END
PROCEDURE Constructor()
PROCEDURE Destructor()
// Summary: <specify the procedure action>
// Syntax:
//Evento_Incluir_Tabela01 ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Evento_Incluir_Tabela01()
IF cl_Nome = "" THEN
RESULT 0
END
IF cl_CPF = "" THEN
RESULT 0
END
Cliente_id is 8-byte int
TABELA_01.NOME = cl_Nome
TABELA_01.CPF = cl_CPF
IF HAdd(TABELA_01) = True THEN
Cliente_id = TABELA_01.TABELA_01_ID
Info("gravou")
TableDisplay(WIN_Exemplo_Tabelas.TABLE_TABELA_01,taInit)
ELSE
Info(HErrorInfo())
END
RESULT Cliente_id
// Summary: <specify the procedure action>
// Syntax:
//Evento_Incluir_Tabela02 (<Cliente_id>)
//
// Parameters:
// Cliente_id:
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Incluir_Tabela02(Cliente_id)
cl_Cliente_id = Cliente_id
IF cl_Cliente_id = "" THEN
RETURN
END
IF cl_Conta = "" THEN
RETURN
END
IF cl_DataMov = "" THEN
RETURN
END
IF cl_Valor = "" THEN
RETURN
END
TABELA_02.TABELA_01_ID = cl_Cliente_id
TABELA_02.CONTA = cl_Conta
TABELA_02.DATA = cl_DataMov
TABELA_02.VALOR = cl_Valor
IF HAdd(TABELA_02) = True THEN
Info("gravou")
TableDisplay(WIN_Exemplo_Tabelas.TABLE_TABELA_02,taInit)
WIN_Exemplo_Tabelas.GR_CAMPOS = ""
SetFocus(WIN_Exemplo_Tabelas.EDT_NOME)
ELSE
Info(HErrorInfo())
END