Nessa aula de hoje
VOU ENSINAR COMO PROCURAR O NOME CONFORME FOR DIGITANDO
In this class today I WILL TEACH HOW TO LOOK FOR THE NAME AS IT IS DIGITING
En esta clase de hoy VOY ENSEÑAR COMO BUSCAR EL NOMBRE CONFORME DIGITANDO
// VAMOS DIGITAR O CODIGO AQUI NO MODIFY,ENQUANTO FOR DIGITANDO
// LET'S DIGIT THE CODE HERE NO MODIFY, WHILE DIGITING
// VAMOS DIGITAR EL CODIGO AQUÍ EN EL MODIFY, EN CUANTO DIGITANDO
// VAMOS USAR TABLEENABLEFILTER,NOME DA COLUNA,FILTER CONTAINS, E NOME EDT
// WE WILL USE TABLEENABLEFILTER, COLUMN NAME, FILTER CONTAINS, AND EDT NAME
// VAMOS USAR TABLEENABLEFILTER, NOMBRE DE LA COLUMNA, FILTER CONTAINS, Y NOMBRE EDT
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
IF YesNo("Deseja eliminar Empresa?") THEN
HDelete(empresa)
END
END
TableDisplay(TABLE_QRY_RELACAO_EMPRESAS,taReExecuteQuery)
IF _indice>1 THEN
_indice-=1
TableSelectPlus(TABLE_QRY_RELACAO_EMPRESAS,_indice)
END
//BTN DELETE
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
// ESSES 3 COMANDOS ACIMA , VER SE EXISTE ALGO NA TABELA, VER POSICAO DA QUERY,
// E LER A EMPRESA, FICAM
//
// THESE 3 COMMANDS ABOVE, SEE IF THERE IS SOMETHING IN THE TABLE, SEE POSITION OF QUERY,
// AND READ THE COMPANY, STAY
//
// ESSES 3 COMANDOS ARRIBA, VER SI EXISTE ALGO EN LA TABLA, VER POSICIÓN DE LA QUERY,
// Y LEER LA EMPRESA, FICAM
//
IF HFound(empresa) THEN
// SE ENCONTREI A EMPRESA, TAMBEM FICA E VOU APAGAR O OPEN ABAIXO
// SE ENCUENTRE A LA EMPRESA, TAMBIÉN FICA Y VUELO APAGAR EL OPEN ABAJO
// IF I FOUND THE COMPANY, ALSO STAY AND I WILL DELETE THE OPEN BELOW
IF YesNo("Deseja eliminar Empresa?") THEN
// vai perguntar se quero eliminar a empresa
// Will ask if I want to delete the company
// Se pregunta si desea eliminar la empresa
HDelete(empresa)
// eliminando empresa
// Eliminating company
// Eliminando la empresa
END
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
// VOU DEIXAR O TABLEDISPLAY ACIMA, E VOU DIMINUIR 1 NO INDICE,
// CASO O INDICE FOR MENOR QUE 1 ENTAO NAO TEM MAIS NADA NA TABELA
// I WILL LEAVE THE TABLEDISPLAY ABOVE, AND I WILL DECREASE 1 IN THE TABLE,
// IF THE TABLE IS LESS THAN 1 TIME, THERE IS NO MORE IN THE TABLE
// VOY DEJAR EL TABLEDISPLAY ARRIBA, Y VOY DIMINUIR 1 EN EL INDICE,
// CASO EL INDICE FOR MENOR QUE 1 ENTREGA NO TIENE MÁS NADA EN LA TABLA
//
//
IF _indice>1 THEN
_indice-=1
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
