quinta-feira, 18 de maio de 2017

Aula 1153 WinDev Curso ErpAmarildo 11 - Tabela Codigo de Alteração









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





// 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 COMENTARIOS
// BTN_MODIFY

// 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






















Teste

Teste
teste