PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
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
Started by amarildo, May, 19 2017 8:18 AM - No answer
Connect yourself…
amarildo
#1
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on May, 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
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text