GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
[Video Aulas Amarildo] Aula 1153 WinDev Curso ErpAmarildo 11 - Tabela Codigo de Alteração
[Video Aulas Amarildo] Aula 1153 WinDev Curso ErpAmarildo 11 - Tabela Codigo de Alteração
Iniciado por amarildo, mai., 18 2017 9:56 AM - Sem resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em maio, 18 2017 - 9:56 AM
Nessa aula de hoje
vamos fazer a alteração do registro.
En esta clase de hoy
Vamos a cambiar el registro.
In this class today
Let's do the registry change.
//sem comentarios
// BTN_MODIFY
IF
TableSelect
(
TABLE_
QRY_RELACAO_EMPRESAS
)
=
-
1
THEN RETURN
_indice
is int
=
TableSelect
(
TABLE_
QRY_RELACAO_EMPRESAS
)
HReadSeekFirst
(
empresa
,
empresaID
,
TABLE_
QRY_RELACAO_EMPRESAS.COL_EmpresaID
)
IF
HFound
(
empresa
)
THEN
Open
(
WIN_Form_empresa
)
END
TableDisplay
(
TABLE_
QRY_RELACAO_EMPRESAS
,
taReExecuteQuery
)
TableSelectPlus
(
TABLE_
QRY_RELACAO_EMPRESAS
,
_indice
)
//com comentario
// VAMOS ALTERAR, O NOME DA TABELA
// LET'S CHANGE, TABLE NAME
// VAMOS CAMBIAR, EL NOMBRE DE LA TABLA
IF
TableSelect
(
TABLE_
QRY_RELACAO_EMPRESAS
)
=
-
1
THEN RETURN
// SE NAO EXISTIR NADA NA TABELA, ENTAO SAI DESSA ROTINA
// IF THERE IS NOTHING ON THE TABLE, YOU LEAVE THAT ROUTINE
// SI NO EXISTIR NADA EN LA TABLA, ENTABLE SAI DE ESTA RUTA
_indice
is int
=
TableSelect
(
TABLE_
QRY_RELACAO_EMPRESAS
)
// AQUI ESTOU PEGANDO A POSICAO ONDE ESTA
// HERE I'M TAKING THE POSITION WHERE IT IS
// AQUÍ ESTOY PEGANDO LA POSICIÓN DONDE ESTA
HReadSeekFirst
(
empresa
,
empresaID
,
TABLE_
QRY_RELACAO_EMPRESAS.COL_EmpresaID
)
// COMO ESTOU USANDO QUERY, ENTAO TENHO DE LER O REGISTRO
// HOW I AM USING QUERY, I HAVE TO READ THE REGISTRATION
// CÓMO ESTOY USANDO QUERY, TENGO DE LEER EL REGISTRO
IF
HFound
(
empresa
)
THEN
// SE ENCONTREI A EMPRESA
// I found the company
// E ENCUENTRE LA EMPRESA
Open
(
WIN_Form_empresa
)
// VOU ABRIR O FORMULARIO
// I WILL OPEN THE FORM
// VUELO ABRIR EL FORMULARIO
END
TableDisplay
(
TABLE_
QRY_RELACAO_EMPRESAS
,
taReExecuteQuery
)
// ESTOU MOSTRANDO A TABELA,ATUALIZANDO OS REGISTROS
// I'M SHOWING THE TABLE, UPDATING THE RECORDS
// ESTOY MOSTRANDO LA TABLA, ACTUALIZANDO LOS REGISTROS
TableSelectPlus
(
TABLE_
QRY_RELACAO_EMPRESAS
,
_indice
)
// ESTOU POSICIONANDO O CURSOR, ONDE ESTAVA NA TABELA
// I'M POSITIONING THE CURSOR, WHERE I WAS IN THE TABLE
// ESTOY POSICIONANDO EL CURSOR, DONDE ESTÁ EN LA TABLA
http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1153-windev-curso-erpamarildo-11.html
Mensagem modificada, maio, 18 2017 - 9:57 AM
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