PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Como pegar o ID de uma tabela?
Como pegar o ID de uma tabela?
Iniciado por MarcosRoberto, mar., 02 2015 2:07 AM - 3 respostas
Membro registado
11 mensagems
Popularité : +2 (2 votes)
Publicado em março, 02 2015 - 2:07 AM
Caros, tenho uma table sobre uma query (filtrada), ocorre q preciso pegar o no. do ID para localiza-la e abrir em uma window de alteracao. Fiz assim:

n is int
vNoSerie is string
vNoIMEI is string
vDataReset is Date
vMarca is string

n = TableSelect(Table_Qry_ControleMobile)

HReadSeekFirst(Mobile,MobileID,n,hKeepFilter)
IF HFound(Mobile) = True THEN
vNoSerie = Qry_ControleMobile.nseriemobile
vNoIMEI = Qry_ControleMobile.NoIMEI
vDataReset = Qry_ControleMobile.reset
vMarca = Qry_ControleMobile.Marca
END


Entaum na tabela eu tenho 3 registros filtrados. Quero pegar o ID do registro selecionado para pesquisa-lo.

Marcos Roberto
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em março, 02 2015 - 8:53 AM
Normalmente eu faço o seguinte, na Tabela eu coloco o id, e se nao quizer que apareca para o usuario o deixo escondido.. e ai faco o seguinte

// Is a row selected?
IF TableSelect(TABLE_cliente)=-1 THEN RETURN

//ler cliente
HReadSeekFirst(cliente,cliente.id_cliente,TABLE_cliente.COL_Id_cliente)
IF HFound(cliente) THEN
Open(WIN_Form_cliente)
END

// Refresh the table
TableDisplay(TABLE_cliente,taCurrentSelection)
mostra_cli_cliente(gnCodigo_representante,gnSituacao)





Membro registado
11 mensagems
Popularité : +2 (2 votes)
Publicado em março, 02 2015 - 2:09 PM
Obrigado Amarildo, deu certinho.


Marcos Roberto.
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em março, 02 2015 - 6:08 PM
MarcosRoberto escreveu:
Obrigado Amarildo, deu certinho.


Marcos Roberto.

Valeu