Exemplo de como popular dados em Looper, Table com dados de arquivos, Query, Arrays, Programados e Struturas


// Summary: <specify the procedure action>
// Syntax:
// Carga_Looper_Programado ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Carga_Looper_Programado()

LooperDeleteAll(LOOP_T001_clientes)

x is int

FOR EACH t001_clientes

LooperAdd(LOOP_T001_clientes)

x++

LOOP_T001_clientes[x].STC_id_valr = t001_clientes.t001_cliente_id
LOOP_T001_clientes[x].STC_nome_vlr = t001_clientes.t001_nome
LOOP_T001_clientes[x].STC_nasc_vlr = t001_clientes.t001_nascimento
LOOP_T001_clientes[x].t001_foto = t001_clientes.t001_foto

END

LooperDisplay(LOOP_T001_clientes,taInit)


//------------------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
// Carga_Looper_Programado ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Carga_Looper_Programado()

FOR EACH t001_clientes

LooperAddLine(LOOP_T001_clientes,
t001_clientes.t001_cliente_id,
t001_clientes.t001_nome,
t001_clientes.t001_nascimento,
t001_clientes.t001_foto)

END

//-------------------------------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------------------------------

PROCEDURE MyWindow()

m_t001_clientes is Structure
m_t001_cliente_id est un 8-byte int
m_t001_nome est une ANSI string
m_t001_nascimento est une Date
m_t001_foto est un Buffer
END

mx_t001_clientes is array of m_t001_clientes //IMPORTANTE TEM QUE SER ARRAY

//-----------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
// CargaEstrutura ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE CargaEstrutura()

x is int=0

FOR EACH t001_clientes
x++
Add(mx_t001_clientes)
mx_t001_clientes[x].m_t001_cliente_id = t001_clientes.t001_cliente_id
mx_t001_clientes[x].m_t001_nome = t001_clientes.t001_nome
mx_t001_clientes[x].m_t001_nascimento = t001_clientes.t001_nascimento
mx_t001_clientes[x].m_t001_foto = t001_clientes.t001_foto
END

//-------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
// CargaLooper ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE CargaLooper()

x is int

total is int = mx_t001_clientes.Count()

LOOP(total)
x++
LooperAddLine(LOOP_T001_clientes,
mx_t001_clientes[x].m_t001_cliente_id,
mx_t001_clientes[x].m_t001_nome,
mx_t001_clientes[x].m_t001_nascimento,
mx_t001_clientes[x].m_t001_foto)
END

//---------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//Carga_Table_Programado ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Carga_Table_Programado()

TableDeleteAll(TABLE_T001_clientes)

x is int

FOR EACH t001_clientes

TableAdd(TABLE_T001_clientes)

x++

TABLE_T001_clientes[x].COL_T001_cliente_id = t001_clientes.t001_cliente_id
TABLE_T001_clientes[x].COL_T001_nome = t001_clientes.t001_nome
TABLE_T001_clientes[x].COL_T001_nascimento = t001_clientes.t001_nascimento
TABLE_T001_clientes[x].COL_T001_foto = t001_clientes.t001_foto

END

TableDisplay(TABLE_T001_clientes,taInit)

//------------------------------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//Carga_Table_Programado ()
//
// Parameters:
// None
// Example:
// <Specify a usage example>
//
// Return value:
PROCEDURE Carga_Table_Programado()

FOR EACH t001_clientes

TableAddLine(TABLE_T001_clientes,
t001_clientes.t001_foto,
t001_clientes.t001_cliente_id,
t001_clientes.t001_nome,
t001_clientes.t001_nascimento)

END

TableDisplay(TABLE_T001_clientes,taInit)

//--------------------------------------------------------------------------------------------------------------------------------