Gerar Mês No Caixa

Como gerar um novo mês na tabela Lancamento: Quando fechar o mês de Dezembro de 2002, gerar o mês janeiro de 2003 com saldo do Mes de Dezembro. Quero utilizar o DBCombox ou outra que seja mais conveniente, para selecionar o Mês a ser gerado

Um novo mês não precisa ser gerado. Basta continuar a lançar os registros e quando você quiser relacionar todos os lançamentos de cada mês você faz o seguinte:

No SQL da query:

SELECT * FROM TABELA
WHERE DATA >= :vDATA1
AND DATA < :vDATA2

No Código:

var
vData1, vData2: TDate;
Ano, Mes, Dia: Word;
begin
DecodeDate(Date, Ano, Mes, Dia); [i:ab4c1c2c14]//Decodifica a data[/i:ab4c1c2c14]
vData1:= EncodeDate(Ano, Mes, 01); [i:ab4c1c2c14]//Codifica a data como 1º dia[/i:ab4c1c2c14]
vData2:= IncMonth(vData1); [i:ab4c1c2c14]//Incrementa 1 mes na data[/i:ab4c1c2c14]
Query.ParamByName(´vDATA1´).Value:= vData1; [i:ab4c1c2c14]//Passa os parametros à consulta[/i:ab4c1c2c14]
Query.ParamByName(´vDATA2´).Value:= vData2;
Query.Open; [i:ab4c1c2c14]//Abre a tabela com os registros do mês atual[/i:ab4c1c2c14]
end;