PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Paulo Viana Brumado: esse código é para gerar uma nova chave para o BD HFSQL em caso de problema com o sequencial
Paulo Viana Brumado: esse código é para gerar uma nova chave para o BD HFSQL em caso de problema com o sequencial
Started by Boller, Apr., 20 2022 5:12 PM - No answer
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on April, 20 2022 - 5:12 PM
//LOGIN
-------------

*
*

IF NOT rot_verifica_senha() THEN

RETURN     

END

*

IF COMBO_tabela_editar IN ("",-1) THEN

Info("Selecione a tabela")
RETURN       

END

*

tabela is string=COMBO_tabela_editar..DisplayedValue

*

sChave is string=tabela+"."+tabela+"id"

*

schavesimples is string=tabela+"id"

*

meusql is string=[
select max([%sChave%]) as maximo from [%tabela%]
]

*

dsDsquery is Data Source

*

IF NOT HExecuteSQLQuery(dsDsquery,hQueryDefault,meusql) THEN

*
Info(HErrorInfo(hErrMessage))

RETURN       

*

END

*

HReadFirst(dsDsquery)

*

HReset({tabela})

*

{sChave}=dsDsquery.maximo+1

*

HSave({tabela},hSetIdAuto)

*


registro is 8-byte int={sChave}

*

IF HReadSeekFirst({tabela},schavesimples,registro) THEN

HDelete({tabela})

InfoWithTimeout(1s,"Remoção realizada com sucesso!")

END

*

Info("No do registro gerado "+registro)


Paulo Viana Brumado: esse código é para gerar uma nova chave para o BD HFSQL em caso de problema com o sequencial

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modified, April, 20 2022 - 5:20 PM