sexta-feira, 19 de maio de 2017

Aula 1154 WinDev Curso ErpAmarildo 12 - Tabela Codigo de Eliminar Empresa









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






















Nenhum comentário:

Postar um comentário

Teste

Teste
teste