[Resolvido] Número do processo

[wllf 2]

Bom dia pessoal, estou finalizando um sistema para Auto Escola e tenho um probleminha. Tenho um campo

ID_Solicitação ele é auto_increment, esse número pertence a toda solicitação de serviço solicitada.

 

Bom o Campo auto_increment vai bem, só que ele está assim: ID_Solicitação = "1"

 

Eu Gostaria que ele ficasse assim: ID_Solicitação = "0001/10"

 

Estou usando Access, componentes ADO, Delphi7. O Campo está descrito como inteiro longo no Access, já tentei de várias formas, fiz pesquisa na net, até postei no fórum coisa parecida, mas tá dificil.

 

Se alguém puder me ajudar !!!

[Raficcha 1]

Como seria a sequencia deste número?

 

0002/10

0003/10

 

isso?

[wllf 2]

Exatamente isso ?

[Raficcha 1]

Hum, se é do jeito que eu intendi, você pode fazer isso via codigo e ai não precisa nem se preocupar com o banco, basta aproveitar o id que ele retorna(mas você pode criar uma outra coluna na sua tabela e fazer isso la)

 

se fizer via codigo você pode usar esta função:

 

function PreparaCodigo(Id: integer): String;
	function AddZeros(n: string; Tamanho: integer): string;
	var
		Cont : Integer;
	begin
		Result := n;
		for cont := 1 to Tamanho - Length(n) do
			Result := '0'+Result;
	end;
begin
	Result := AddZeros(IntToStr(Id), 4)+'/01';
end;

[wllf 2]

Colega valeu pela força, desse modo eu já tentei mas não deu certo.

 

Eu montei um código + ou -, criei um campo CODIGO(texto) na tabela e deu certo.

 

dm.ds_solicit_serviCODIGO.AsString := '00' + IntToStr(dm.ds_solicit_serviID_SOLICITAAO.Value) + FormatDateTime('/yy',Date)

 

Assim eu controlo o final da ID_Solicitação 0001"/10" que significa o ano da solicitação, acho que não é o certo mas, improvisei.

 

Valeu pela força colega !!!!

[Raficcha 1]

A ta, esses dois numeros ai (/01) seria o ano?

 

Bom, mas o que exatamente não deu certo, foi isto? ou não retornou nenhum resultado da função? o banco não retorna nada?

 

:D

[wllf 2]

Na verdade eu postei essa dúvida no começo do desenvolvimento do projeto, e postarão um código muito parecido com esse, testei na época e não deu certo. Acho q era um erro na função.

 

Vou testar de novo em casa, agora a tarde.

 

Amanhã eu posto o resultado !!!

 

Colega desculpe a minha ignorância, mas não sei onde colocar a sua função.

 

Sou iniciante e uma das maiores dificuldades que tenho é em criar e aplicar funções no delphi.

 

Coloquei as funções no formulário onde vou usar as IDs, só não sei como chamar a função.

 

Tentei de um modo mas não deu resposta nenhuma e nem erro !!!

 

Se você puder me ajudar mais uma vez !

[Raficcha 1]

Hehe, ninguem nasce sabendo tudo, com o tempo isso vai ser tão facil para você como escrever.

 

O banco de dados sempre lhe retorna um ID nos registros (o id provavelmente você colocou como auto incremento) e este id é um numero inteiro. Para utilizar a função basta bassar este id por parametro e esta por sua vez vai retornar o numero no formato "0000/00".

 

ID_Solicitação_formatada := PreparaCodigo(ID_Solicitação);

[wllf 2]

Colega acabei de testar o código e funcionou muito bem, obrigado pela força !!!!

 

você indica algum tutorial na net sobre funções ?

 

Valeu até a próxima !!!

[Raficcha 1]

Este link fala sobre funções e procedimentos

 

http://www.lsd.ic.un...scal/aula9.html

 

este aqui é um link para uma apostila de delphi

 

 

Não sei se vai lhe ajudar, mas espero que sim.

 

Para entender bem funções, nada melhor que fazer e utilizar para pegar experiência

 

:D