GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
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
Conecte-se…
MarcosRoberto
#1
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
v
NoSerie is
string
v
NoIMEI is
string
v
DataReset is Date
v
Marca is
string
n
=
TableSelect
(
Table_Qry_ControleMobile
)
HReadSeekFirst
(
Mobile
,
MobileID
,n,
hKeepFilter
)
IF
HFound
(
Mobile
) =
True
THEN
v
NoSerie
=
Qry_ControleMobile.nseriemobile
v
NoIMEI
=
Qry_ControleMobile.NoIMEI
v
DataReset
=
Qry_ControleMobile.reset
v
Marca
=
Qry_ControleMobile.Marca
END
Entaum na tabela eu tenho 3 registros filtrados. Quero pegar o ID do registro selecionado para pesquisa-lo.
Marcos Roberto
Denunciar
0
0
amarildo
#2
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
(
gn
Codigo_representante
,
gn
Situacao
)
Denunciar
0
0
MarcosRoberto
#3
Membro registado
11 mensagems
Popularité : +2 (2 votes)
Publicado em março, 02 2015 - 2:09 PM
Obrigado Amarildo, deu certinho.
Marcos Roberto.
Denunciar
0
0
amarildo
#4
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
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto