GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
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
Iniciado por amarildo, mai., 19 2017 8:18 AM - Sem resposta
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em maio, 19 2017 - 8:18 AM
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
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto