ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Ajuda para incrementar campo

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
VDL
Aprendiz
Aprendiz


Registrado: Sábado, 7 de Mai de 2005
Mensagens: 170

MensagemEnviada: Qua Ago 08, 2007 3:06 pm    Assunto: Ajuda para incrementar campo Responder com Citação

Alguém pode me ajudar:
Vou dar um exemplo do que presciso

Exemplo Tabela CadRIM
ID Data Contr_RIM
1 01/08/2007 5
2 06/08/2007 6
3 01/09/2007 7
4 01/11/2007 8
5 15/12/2007 9
6 10/01/2008 1

Próximo Lançamento em 15/01/08 seria no Max do ID que é 6 acrescentar mais 1 no Contr_RIM
Ficaria assim

7 15/01/2008 2

ID Campo Auto Incrementado

Tem como sempre no max do campo ID eu acrescentar mais 1 no campo Contr_RIM.

Já quebrei a cabeça com isto e não achei como.

Abraço

VDL Sad
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jorge.vaz
Membro Junior
Membro Junior


Registrado: Sábado, 17 de Dezembro de 2005
Mensagens: 300

MensagemEnviada: Qua Ago 08, 2007 3:32 pm    Assunto: Responder com Citação

Ola colega, exite varias maneira de fazer isto que vc quer, chama-se autoincremento. Vc pode dar uma procurada nisso no link pesquisar acima da pagina, vai achar muita coisa. Caso não ache, diga qual banco de dados vc usa, eu tenho algo aqui.

Em firebird agente usa generators, e no paradox eu costumo usar uma função muito boa que um colega do forum me passou. Qquer duvida estamos ai
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
VDL
Aprendiz
Aprendiz


Registrado: Sábado, 7 de Mai de 2005
Mensagens: 170

MensagemEnviada: Qua Ago 08, 2007 5:04 pm    Assunto: Responder com Citação

Jorge obrigado pela atenção...

Cara o autoincremento eu já uso no campo ID, o que eu estou prescisando é que no max do campo ID ou seja na uma linha da tabela, seja incrementado mais 1 no campo Contr_RIM indiferente do nº que estiver nesta ultima linha neste campo.


Abraço

VDL
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Ago 08, 2007 5:20 pm    Assunto: Responder com Citação

Bom amigo, esse MAX tem que pegar o ultimo codigo cfe. o mes?

Tipo assim

1-01/01---1
2-02/01---2
3-01/02---1
4-01/03---1
5-02/03---2
6-03/03---3


Ou eh soh uma sequencia mesmo?
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
VDL
Aprendiz
Aprendiz


Registrado: Sábado, 7 de Mai de 2005
Mensagens: 170

MensagemEnviada: Qui Ago 09, 2007 9:41 am    Assunto: Responder com Citação

Citação:
Bom amigo, esse MAX tem que pegar o ultimo codigo cfe. o mes?


Adriano pode ser sim, mas não o ultimo código do mes e sim o ultimo codigo do ano.
Tem como fazer isto ?
Cara se tiver resolve meu problema.

Abraço

VDL Smile
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
VDL
Aprendiz
Aprendiz


Registrado: Sábado, 7 de Mai de 2005
Mensagens: 170

MensagemEnviada: Sex Ago 10, 2007 11:14 am    Assunto: Responder com Citação

Pessoal será que tem como resolver isto ??????

Estou prescisando meio urgente....



Abraço


VDL Sad
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Sex Ago 10, 2007 11:29 am    Assunto: Responder com Citação

To sem tempo agora, por isso estou postando meu codigo aqui, vj se tem como adaptar ai

Código:
Procedure TFCadFun.MaxFunc;
begin
//--soma o maximo de funcionario i incrementa + 1 (autoincremento)
with dm.qFuncMax do
  begin
    close;
    sql.clear;
    sql.add('select max(id_func)as chavepri from salario_m where id_empresa = :id_empresa');
    Open;
    Prox:=FieldByName('chavePri').asInteger+1; //Mostra a soma do ID maior + 1 para gerar um novo codigo do funcionario
    LBProx.Caption:=IntToStr(Prox);
  end;
end; //final da procedure


Depois é só chamar a procedure para incluir o codigo + 1
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
VDL
Aprendiz
Aprendiz


Registrado: Sábado, 7 de Mai de 2005
Mensagens: 170

MensagemEnviada: Seg Ago 13, 2007 10:32 am    Assunto: Responder com Citação

Adriano obrigado pela atenção.

Cara eu não sou bom com SQL, estou aprendendo, teria como você passar algo direto.
Estou trabalhando com ClientDataSet, a tabela a qual presciso somar mais 1 ao campo é a TBCadRim, o campo a ser incrementado é o ContrNrRim.
Tenho mais campos na tabela.
ID (autoincremento)
ContrNrRim (Integer)
Data (Date)
etc..

Abraço
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB