set(arquivo)
clear(dup:id,1)
set(dup:por_id,dup:por_id)
previous(duplicat)
loc:id=dup:id+1
access:tabela.primerecord -
access:tabela.primeautoinc
access:tabela.insert()
access:tabela.cancelprimeautoinc -> se desistir
CLEAR(MASTER)
SET(MAS:ClavePorID, MAS:ClavePorID)
ACCES:MASTER.Previous()
IF MAS:Id = 0 THEN
MAS:Id = 1
ELSE
MAS:Id = MAS:Id +1
END
> Voce está usando ABC? se estiver vá em PrimeField na prioridade 1300, e
> digite:
>
> Se voce não estiver usando Banco de dados:
>
> CLEAR(CLI:CodCliente,1)
> SET(CLI:KeyCodCLiente,CLI:KeyCodCLiente)
> PREVIOUS(Cliente)
> IF ERRORCODE()
> ___LOC:CodCliente = 1
> ELSE
> ___LOC:CodCliente = CLI:CodCliente + 1
> END
>
> Se estiver usando banco de dados, faça assim:
>
> Cliente{PROP:SQL} = 'SELECT COALESCE(MAX(CodCliente,0)) + 1 FROM Cliente'
> NEXT(Cliente)
> IF ERRORCODE()
> ___LOC:CodCliente = 1
> ELSE
> ___LOC:CodCliente = CLI:CodCliente + 1
> END
>
> E em qualquer um
