segunda-feira, 6 de outubro de 2014

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)

Teste

Teste
teste