FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 25
→
Wx-Exemplo de como ressuscitar / reativar os registros que foram marcados para deleção no caso de não usar o HDelete( ) em registros que possuem o flag excluído :
Wx-Exemplo de como ressuscitar / reativar os registros que foram marcados para deleção no caso de não usar o HDelete( ) em registros que possuem o flag excluído :
Débuté par BOLLER, 05 fév. 2018 01:55 - Aucune réponse
Connectez-vous…
BOLLER
#1
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 05 février 2018 - 01:55
Prezados,
Exemplo de como ressuscitar / reativar os registros que foram marcados para deleção no caso de não usar o HDelete( ) em registros que possuem o flag excluído :
//Exemplo de reativação de registro
Existe
is boolean
HExecuteQuery
(
qryTabela_VerificaDuplicado
,
hQueryDefault
,
C
have
)
FOR
E
ACH qryTabela_VerificaDuplicado
IF
HFound
(
qryTabela_VerificaDuplicado
) =
True
THEN
Existe
=
True
END
END
IF
Existe
=
False
THEN
ScreenToFile
(
)
HSave
(
ProdutoGrupo
)
ELSE
IF
TipoOperacaoTela
=
Inclusao
THEN
IF
qryTabela_VerificaDuplicado.pgr_Ativo
=
True
THEN
Info
(
"Este registro já existia na base de dados."
)
ELSE
qryTabela_AtivaInativa.pgr_Codigo
=
qryTabela_VerificaDuplicado.pgr_Codigo
qryTabela_AtivaInativa.par_pgr_Ativo
=
True
HExecuteQuery
(
qryTabela_AtivaInativa
)
END
ELSE
IF
qryTabela_VerificaDuplicado.pgr_Ativo
=
True
THEN
Info
(
"Já existe um registro ativo na base de dados com esta informação."
)
ELSE
Info
(
"Já existe um registro inativo na base dados com esta informação."
)
qryTabela_AtivaInativa.pgr_Codigo
=
qryTabela_VerificaDuplicado.pgr_Codigo
qryTabela_AtivaInativa.par_pgr_Ativo
=
True
HExecuteQuery
(
qryTabela_AtivaInativa
)
END
END
END
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte