PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → WX - Indirection usando tabela e campo para pegar o ultimo registro de uma tabela
WX - Indirection usando tabela e campo para pegar o ultimo registro de uma tabela
Started by BOLLER, Feb., 15 2020 11:45 PM - No answer
#1
Registered member
3,655 messages
Popularité : +175 (223 votes)
Posted on February, 15 2020 - 11:45 PM
//EM UM SISTEMA EM REDE É IMPORTANTE A SEQUENCIA SER UNICA

T002_PESSOAS.T002_PESSOA_ID = GET_SEQ("T002_PESSOAS","T002_PESSOA_ID")
HAdd(T002_PESSOAS)



Procedure GET_SEQ(TABELA,CAMPO_ID)

ID is 8-bytes int

FOR EACH {TABELA,indFile}

ID++
REGISTRO is string = TABELA +"."+ CAMPO_ID
idtable is 8-bytes int = {REGISTRO}
IF idtable > ID THEN
ID = idtable
END

END

RESULT ID+1


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Go back to WINDEV 25