PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → 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
Started by amarildo, May, 18 2017 9:56 AM - No answer
#1
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on May, 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

Message modified, May, 18 2017 - 9:57 AM
→ Go back to WINDEV 25