*

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)