quarta-feira, 8 de outubro de 2014

HexecuteQuery - Percorrer

HexecuteQuery - Percorrer

HexecuteQuery - Insert / Delete

HexecuteQuery - Insert / Delete



Combox ListAdd - Popular

Combox ListAdd - Popular
---------------------------------------------------------------------------------------------------------------
Combox - Editavel
Combox - Ensinando
Combox - Estado Grava Uf
Combox - Limpar informações
Combox - Popular Manualmente
Combox - Selecionar
---------------------------------------------------------------------------------------------------------------




ComBox Selecionar

ComBox
---------------------------------------------------------------------------------------------------------------
Combox - Editavel
Combox - Ensinando
Combox - Estado Grava Uf
Combox - Limpar informações
Combox - Popular Manualmente
Combox - Selecionar
---------------------------------------------------------------------------------------------------------------




HExecuteQuery - Proximo Codigo

HExecuteQuery- Proximo Codigo

QRY_PROXIMO_CAD_GERAL

SELECT
    MAX(cadastro_geral.id_cadastro_geral) AS maximum_id_cadastro_geral
FROM
    cadastro_geral

========================================================================
PROCEDURE proximo_codigo_cadastro_geral()
HExecuteQuery(QRY_proximo_cad_geral,hQueryDefault)
HReadFirst(QRY_proximo_cad_geral)
WHILE NOT HOut
    HReadNext(QRY_proximo_cad_geral)
    RESULT = QRY_proximo_cad_geral.maximum_id_cadastro_geral + 1
END

========================================================================
 ScreenToFile()

// If it's a new record
IF cadastro_geral..NewRecord = True THEN
    cadastro_geral.id_cadastro_geral=proximo_codigo_cadastro_geral()
    HAdd(cadastro_geral)
ELSE
    // Modify it
    HModify(cadastro_geral)
END

========================================================================





Teste

Teste
teste