SqlExec

SqlExec

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

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

HexecuteSqlQuery

HexecuteSqlQuery


// If it's a new record
IF cadastro_geral..NewRecord = True THEN
   
    nProximo_codigo is numeric
    nGnNumeroconexao is int = SQLConnect("localhost","postgres","matos","matos","PostgreSQL")
    ds is Data Source
    sQuery is string = [
        SELECT Max(id_cadastro_geral) FROM cadastro_geral
    ]  
    SQLExec(sQuery,ds)
    WHILE SQLFetch(ds) =  0
        nProximo_codigo=SQLGetCol(ds,1)
    END
    nProximo_// Read the information entered
ScreenToFile()
codigo++
    cadastro_geral.id_cadastro_geral=nProximo_codigo
   
    HAdd(cadastro_geral)
ELSE
    // Modify it
    HModify(cadastro_geral)
END

// Return value of the window
MyWindow..ReturnedValue = True

Tabela - Form - Alterar ou Excluir

Tabela - Form - Alterar ou Excluir

Caso eu fazer uma tabela por programacao, ou por query
na hora de modificar ou excluir o cadastro tenho de fazer o seguinte:

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

IF TableSelect(TABLE_cliente)=-1 THEN RETURN

HReset(cliente)
HReadSeekFirst(cliente,id_cliente,TABLE_cliente.COL_IdCliente)
IF HFound(cliente) THEN
    // Open the form of cliente file in modification mode
    Open(WIN_Form_cliente)
    // Refresh the table
    TableDisplay(TABLE_cliente,taCurrentSelection)
END

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

HReset(cliente)
HReadSeekFirst(cliente,id_cliente,WIN_Table_cliente.COL_IdCliente)
IF HFound(cliente) THEN
   
END

Tabela Manual

Tabela Manual

c is Control
IF ControlExist("TABELA") THEN ControlDelete("TABELA")
c <- ControlCreate("TABELA",typTable,EDT_A,EDT_B,MyWindow..Width-EDT_C,MyWindow..Height-EDT_D)
c..Anchor = anchorHeight + anchorWidth
c..Opacity=95
//MOSTRA OS DADOS DO ARQUIVO EM TABELA
//BuildBrowsingTable("TABELA",cliente,taFillTable+taItemCaption)
QRY_RECEBER_VENCIDAS.Param_id_empresa=1//gnEmpresaCodigo
QRY_RECEBER_VENCIDAS.Param_data_hoje=dAta_hoje
HExecuteQuery(QRY_RECEBER_VENCIDAS)
BuildBrowsingTable("TABELA",QRY_RECEBER_VENCIDAS,taFillTable+taItemCaption)
cySoma is currency = 0
TableSort("TABELA","-_COL2")
{"TABELA"}..TotalsEnabled = True
FOR EACH ROW OF {"TABELA"}
    cySoma += {"_COL3"}..Value   
END
TableAddLine(c,"Total->","",cySoma)

Camera Capturar

Camera Capturar

Tabela Cor

Tabela Cor

Tabelas Filtros HFilter

Tabelas Filtros HFilter

Email - verificar

Email - verificar

Configura Impressora Manual

Configura Impressora Manual

Exporta Txt/Excel/Word/Xml

Exporta Txt/Excel/Word/Xml

 C:\WinDev 19\Examples\Training\WD Export table\Exe

Compilacao Dinamica - Fazer comandos fora do compilador

Compilacao Dinamica - Fazer comandos fora do compilador

Arquivo Importacao generico

Arquivo Importacao generico

Tabela Query Consulta Usando duas consultas e uma declaracao case

Tabela Query Consulta Usando duas consultas e uma declaracao case

TableToArray - Funcao para copiar colunas da tabela a matriz estruturada

TableToArray - Funcao para copiar colunas da tabela a matriz estruturada

http://www.thenextage.com/wordpress/uncle-petes-corner-tabletoarray-function-to-copy-table-columns-to-structured-array/#more-2101

Usando Xml para Armazenar em opcoes de bancos

Usando Xml para Armazenar em opcoes de bancos

http://www.thenextage.com/wordpress/uncle-petes-corner-using-xml-to-store-options-in-database-instead-of-individual-field

s/#more-2122