FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
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
Débuté par amarildo, 18 mai 2017 09:56 - Aucune réponse
Connectez-vous…
amarildo
#1
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 18 mai 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
Message modifié, 18 mai 2017 - 09:57
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte