Video no Youtube Se Gostou clique aqui para dar joinha
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.
https://doc.windev.com/en-US/?3074020&name=TableSelect
https://doc.windev.com/en-US/?3044036&name=HReadSeekFirst
https://doc.windev.com/en-US/?3044104&name=HFound
https://doc.windev.com/en-US/?3038035&name=Open
https://doc.windev.com/en-US/?3074003&name=TableDisplay
https://doc.windev.com/en-US/?3074031&name=TableSelectPlus
Lançamento Curso Iniciante ao Avancado - Windev/Mobile/Webdev 001/... Aula 1133
Criar Analise/Conexao e Tabela de Empresa - Curso 002/... Aula 1140
ErpAmarildo - Menu Principal - Curso 003/... Aula 1145
Menu Ribbon - Menu Principal - Curso 004/... Aula 1146
Botao Empresa - Menu Ribbon - Curso 005/... Aula 1147
Query Empresa - Cadastro Wdl - Curso 006/... Aula 1148
Tabela Empresa - Curso 007 - Aula 1149
Incluir - Botao Incluir Empresa Tabela Codigo - Curso 008 - Aula 1150
Icone Botao de Incluir - Brinde - Curso ErpAmarildo 9/... aula 1151
Icones Novos - Tabela - Curso ErpAmarldo 10/... Aula 1152
Codigos alteracao Tabela Empresa - Curso ErpAmarildo 11/... Aula 1153
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 COMENTARIOS
// 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
