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