Video no Youtube Se Gostou clique aqui para dar joinha
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
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/?3074003&name=TableDisplayhttps://doc.windev.com/en-US/?3074031&name=TableSelectPlus
IF YesNo
HDelete
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
Exclusão Codigos - Tabela Empresa - Curso ErpAmarildo 12/... Aula 1154
// 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
//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
END
