Cadastro

Question

Como posso fazer para quando colocar incluir, abrir um novo registro com os dados do �ltimo registro? Ap�s concluir fazer o salvamento imediato( s� salva depois de fechar o programa! ).

agrade�o desde j�!!!

Theofernandes · Answer

Acredito que ter�s que usar ou 2 tabelas ou vari�veis.
No primeiro caso, tu ter�s que colocar no AfterInsert tu colocaria mais ou menos assim:

TABELABASE.OPEN;
TABELABASE.LAST;

TABELADEINSER�AO.CAMPO1. VALUE := TABELABASE.CAMPO1.VALUE;
TABELADEINSER�AO.CAMPO2. VALUE := TABELABASE.CAMPO2.VALUE;
TABELADEINSER�AO.CAMPO3. VALUE := TABELABASE.CAMPO3.VALUE;

TABELABASE.CLOSE;

Na segunda op��o, tu colocarias no BeforeInsert assim:
VAR
VARCAMPO1 : STRING;
VARCAMPO2 : STRING;
VARCAMPO3 : DOUBLE;
BEGIN

VARCAMPO1.VALUE := TABELADEINSER�AO.CAMPO1. VALUE;
VARCAMPO2.VALUE := TABELADEINSER�AO.CAMPO2. VALUE;
VARCAMPO3.VALUE := TABELADEINSER�AO.CAMPO3. VALUE;

END;

No AfterInsert

TABELADEINSER�AO.CAMPO1. VALUE := VARCAMPO1.VALUE;
TABELADEINSER�AO.CAMPO2. VALUE := VARCAMPO2.VALUE;
TABELADEINSER�AO.CAMPO3. VALUE := VARCAMPO3.VALUE;

*****
Nos dois casos verifique se � mesmo AfterInsert ou BeforeInsert. Posso estar enganado.

F�rum Cadastro #154358