PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

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:56 - Aucune réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 05 février 2018 - 01:56
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,Chave)


FOR EACH 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/