PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → [Video Aulas Amarildo] Aula 1154 WinDev Curso ErpAmarildo 12 - Tabela Codigo de Eliminar Empresa
[Video Aulas Amarildo] Aula 1154 WinDev Curso ErpAmarildo 12 - Tabela Codigo de Eliminar Empresa
Débuté par amarildo, 19 mai 2017 08:18 - Aucune réponse
Membre enregistré
535 messages
Popularité : +14 (14 votes)
Posté le 19 mai 2017 - 08:18
Nessa aula de hoje
Vamos fazer a exclusao da empresa

In this class today
Let's exclude the company

En esta clase de hoy
Vamos a hacer la exclusión de la empresa


// SEM COMENTARIOS
//BTN DELETE

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


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

END




http://windevdesenvolvimento.blogspot.com.br/2017/05/aula-1154-windev-curso-erpamarildo-12.html