Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
| Portuguese |
| Pagetitle | ||||
|---|---|---|---|---|
|
Função: Deleted
Verifica
...
se
...
o
...
registro
...
atual está
...
com marcado para exclusão.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
Deleted() --> lRet
|
Retorno
Nome | Tipo | Descrição |
|---|---|---|
lRet |
...
lógico | Retorna verdadeiro (.T.), se o registro tem marca de excluído; caso contrário, falso (.F.) |
...
. |
Observações
- Quando o registro é excluído, permanece fisicamente na tabela, mas fica marcado como excluído. Essa função verifica esse estado, mas se nenhuma área está selecionada, retorna falso (.F.).
...
- Quando a função __DBPack
...
- é executada, todos os registros marcados como excluídos são apagados fisicamente. Já a função DBRecall
...
- retira a marca de um registro.
Exemplos
O exemplo abaixo utiliza a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
user function test()
Local nHandle := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 )
Local cTable := "MYTABLE"
Local cRDD := "TOPCONN"
// Abre a tabela
DBUseArea( .T., cRDD, cTable, (cTable), .F., .F. )
// Maraca um registro para exclusão e depois desmarca
DBGoTo( 100 )
if Deleted()
conout( //Este exemplo verifica se determinado registro está excluído.//Caso positivo, apresenta uma mensagem. USE "\DADOSADV\AA1990.DBF" SHARED NEW DBGoTo(100) IF Deleted() Messagebox( "O registro atual foi marcado paradeletado","Erro", 0) ENDIF Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server exclusão" )
endif
// Fecha a tabela
DBCloseArea()
// Desconecta do SGBD
TCUnlink( nHandle )
return
|
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas