FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
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, 18,may. 2017 09:56 - No hay respuesta
Conéctese…
amarildo
#1
Miembro registrado
535 mensajes
Popularité : +14 (14 votes)
Publicado el 18,mayo 2017 - 09:56
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
Mensaje modificado, 18,mayo 2017 - 09:57
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto