(Resolvido) Gerar código com zeros à esquerda

Gabriel Cabral · Outubro 20, 2008

Bom dia galera...então...estou com um problema grave na geração de código incremental....

uso tabela dbf [sim...já estou largando ela, é que neste caso preciso usá-la]

e tenho algumas condições nessa geração de código....

o campo deve ter 5 caracteres sempre....então, se o número do código não tiver 5 caracteres, ele deve ser preenchido com zeros à esquerda....até aí tudo bem...

mas ele só preenche com zeros à esquerda caso eu digite algo no DBEdit....pois há a possibilidade do usuário digitar um código, sem seguir a ordem...

se eu deixo a DBEdit vazia, para prencher com o próximo número, usando o SELECT MAX, ele não preenche com zeros....

exemplo....a tabela está vazia....tenho a condição de que se ela estiver vazia, o campo é preenchido com 00001.

Lembrando que esse campo é string

então clico em novo, deixo vazia a DBEdit do codigo e clico em gravar...

O campo é preenchido com 00001.

Em seguida, clico em Novo, preencho o código com 2, e clico em gravar....o campo é preenchido com 00002

Depois, se clico em novo, deixo a DBEdit vazia e clico em gravar, o campo é preenchido com 3, e não com 00003.

vou postar aqui os códigos que estou utilizando para isso...

se alguém conseguir me ajudar, ficarei muito grato.

Botão Gravar - Evento OnClick

procedure TfrmCadForn.btnGravarClick(Sender: TObject);
var i: integer;
begin

if dm.tblCadForn.RecordCount = 0 then
    txtCadForn_CodForn.Text := '00001';


  if not (txtCadForn_CodForn.Text = '') then
  begin
    for i:=1 to txtCadForn_CodForn.MaxLength - length(txtCadForn_CodForn.Text) do
      txtCadForn_CodForn.Text := '0' + txtCadForn_CodForn.Text;
  end;


with dm.QueryBuscaForn do
begin
  Close;
  SQL.Clear;

  SQL.Add('SELECT * FROM FINAFOR.dbf');
  SQL.Add('WHERE FORCOD = :pCODIGO');

  ParambyName('pCODIGO').AsString := txtCadForn_CodForn.Text;
  Open;

  if not(IsEmpty) then
  begin
    ShowMessage('       Registro já existente!');
    frmCadForn.btnAlterarClick(Sender);
  end
  else
  begin
    dm.tblCadForn.Post;
    dm.tblCadForn.Last;
  end;
end;

end;

Evento BeforePost

procedure Tdm.tblCadFornBeforePost(DataSet: TDataSet);
begin


  if not tblCadForn.FieldByName('FORCOD').IsNull then
    Exit;

  QueryMaxForn.DatabaseName := tblCadForn.DatabaseName;
  QueryMaxForn.SQL.Clear;
  QueryMaxForn.SQL.Add('SELECT MAX (FORCOD) FROM FINAFOR.dbf');
  QueryMaxForn.Open;

  try
    tblCadForn.FieldByName('FORCOD').AsString := FloatToStr(StrToFloat(QueryMaxForn.Fields[0].AsString)+1);
    finally
    QueryMaxForn.Close;
  end;

end;

Editado Outubro 20, 2008 por Gabriel Cabral

paulobergo · Outubro 20, 2008

Não há nada de mal em usar .dbf...

Inclusive, você pode usar autoinc nas suas tabelas .dbf, apenas observando que não conseguiria mais abrí-las com o Clipper ou dBaseIIIPlus, pois elas passariam a ser VisualDbase7...

Bom... quando ao seu código... eu iria talvez preferir usar isso:

No OnExit do campo Codigo no form:

Try

codigoEdit.Text := FormatFloat('00000', StrToInt(codigoEdit.Text));

Except

ShowMessage('O Código digitado não é válido. Será preenchido com zeros!');

codigoEdit.Text := '00000';

End;

Ok?

Espero haver ajudado...

Gabriel Cabral · Outubro 20, 2008

não consigo usar autoincremento nas tabelas dbf....pelo menos no database desktop eu não consigo colocar isso...

E quanto ao código, não deu muito certo, não....

o problema seria mesmo quanto a prencher com zeros o max+1.....pois o programa só pega o max+1 e não preenche com zeros...

e quando o código digitado não for válido, não pode preencher tudo com zeros :lol:

Obrigado

paulobergo · Outubro 20, 2008

O DatabaseDesktop só permite autoincremento nas tabelas Paradox...

Então, seria melhor você se familiarizar com a criação/alteração de tabelas usando TSQL, no DBExplorer (vem com o Delphi também)...

Em troca de criar uma tabela no DatabaseDesktop, use uma query... exemplo:

create table ":acme:produtos.dbf"

(idproduto autoinc,

nome char(40),

unidade char(3)

);

Quanto ao código ser preenchido com zeros, ficaria por sua conta validar isso também...

Assim, se o código ficou inválido, você não deverá gravá-lo...

No evento OnClick do botão Confirmar, poderia colocar:

Begin

If CodigoEdit.Text='00000' then

Begin

CodigoEdit.SetFocus; // Focar novamente o campo Código ou outro...

Exit;

End;

{}

// * Resto da procedure para salvar o registro...

.

End;

Outra coisa importante é que embora você possar ter alguma dificuldade em implementar um código "auto-incremento" agora, os benefícios que isso irá trazer serão imensos... pois isso de numeração automática não poderia, nesta altura do campeonato, estar tomando o seu tempo de desenvolvimento... e a outra coisa é a definição de chave única na tabela, que também evita que você fique perdendo tempo e matutando com coisas que já têm a solução pronta, no mínimo, uns 10 anos atrás...

Ok?

* (pessoal... me ajuda aí... acho que a primeira vez que vi um campo autoinc foi com paradox quando escrevia programas em turbo-pascal lá pelo de 1994 eu acho... mas acho que o Paradox surgiu ainda nos anos 80... agora... quando surgiu o campo autoinc?)

Rodrigo Flores · Outubro 20, 2008

O DatabaseDesktop só permite autoincremento nas tabelas Paradox...
Então, seria melhor você se familiarizar com a criação/alteração de tabelas usando TSQL, no DBExplorer (vem com o Delphi também)...
Em troca de criar uma tabela no DatabaseDesktop, use uma query... exemplo:
create table ":acme:produtos.dbf"
(idproduto autoinc,
nome char(40),
unidade char(3)
);
Quanto ao código ser preenchido com zeros, ficaria por sua conta validar isso também...
Assim, se o código ficou inválido, você não deverá gravá-lo...
No evento OnClick do botão Confirmar, poderia colocar:
Begin
If CodigoEdit.Text='00000' then
Begin
CodigoEdit.SetFocus; // Focar novamente o campo Código ou outro...
Exit;
End;
{}
// * Resto da procedure para salvar o registro...
.
.
End;

Outra coisa importante é que embora você possar ter alguma dificuldade em implementar um código "auto-incremento" agora, os benefícios que isso irá trazer serão imensos... pois isso de numeração automática não poderia, nesta altura do campeonato, estar tomando o seu tempo de desenvolvimento... e a outra coisa é a definição de chave única na tabela, que também evita que você fique perdendo tempo e matutando com coisas que já têm a solução pronta, no mínimo, uns 10 anos atrás...
Ok?
* (pessoal... me ajuda aí... acho que a primeira vez que vi um campo autoinc foi com paradox quando escrevia programas em turbo-pascal lá pelo de 1994 eu acho... mas acho que o Paradox surgiu ainda nos anos 80... agora... quando surgiu o campo autoinc?)

Eu, particularmente, prefiro criar uma sequence a criar um campo auto-incremento.

Uma sequence e uma trigger pra rodá-la e pronto.

Sem muito trabalho, mas como a tabela do amigo é dbf, aí fica difícil, sem SGDB.

Progr'amador · Outubro 20, 2008

Olá Gabriel Cabral,

você falou que o campo é string, então utilize esta função:

function StrZero(Valor:string; QtdZero:integer):String;
var
  I,Tamanho:integer;
  aux: string;
begin
  aux:=Valor;
  Tamanho:=length(Valor);
  Valor:='';
  for I:=1 to QtdZero-tamanho do
  Valor:=Valor+'0';
  aux:=Valor+aux;
  StrZero:=aux;
end;

pra chamar é simples: (apenas exemplo)

var inc, campo : string;
begin
  inc := '2'
  campo := StrZero(inc,5);
  // resultado será: '00002'

Abs. Progr'amador.

Editado Outubro 20, 2008 por Progr'amador

Gabriel Cabral · Outubro 20, 2008

Então 'Progr'amador', mas isto funcionaria com o código max+1 ???

por exemplo....o código máximo da tabela é 00001...

então eu vou cadastrar outro registro...deixo o DBEdit vazio, o programa seleciona o max [00001] e soma 1, resultando no código 2 [sem zeros..q é como está ficando]...

com essa função o 2 fica 00002 tambem ou só funciona se eu digitar o 2 no DBEdit???

Obrigado

Editado Outubro 20, 2008 por Gabriel Cabral

Progr'amador · Outubro 20, 2008

fuciona de qualqer forma,

adptando pro seu código, ficaria tipo assim:

procedure Tdm.tblCadFornBeforePost(DataSet: TDataSet);
begin


  if not tblCadForn.FieldByName('FORCOD').IsNull then
    Exit;

  QueryMaxForn.DatabaseName := tblCadForn.DatabaseName;
  QueryMaxForn.SQL.Clear;
  QueryMaxForn.SQL.Add('SELECT MAX (FORCOD)+1 FROM FINAFOR.dbf');
  QueryMaxForn.Open;

  try
    tblCadForn.FieldByName('FORCOD').AsString := StrZero(QueryMaxForn.Fields[0].AsString,5);
    finally
    QueryMaxForn.Close;
  end;

end;

Veja que coloquei o incremento diretamente na Select: SELECT MAX (FORCOD)+1

Abs. Progr'amador.

Gabriel Cabral · Outubro 20, 2008

Mas colocando este incremento no Select não da certo, dá??!! Porque o FORCOD é string....não seria uma concatenação desse jeito que está aí??

Progr'amador · Outubro 20, 2008

Mas colocando este incremento no Select não da certo, dá??!! Porque o FORCOD é string....não seria uma concatenação desse jeito que está aí??

hum!!! realmente, você ta usando dbf, por exemplo com SQLServer, MySQL e alguns outros quando se usa a função MAX +1, ele já entende que se trata valor numerico, não sei se pro dbf tem alguma função de converta isso para numeric, ou sei la outro tipo, mas de qualer forma então, vamos fazer isso forma mesmo,

Tenta assim:

procedure Tdm.tblCadFornBeforePost(DataSet: TDataSet);
begin


  if not tblCadForn.FieldByName('FORCOD').IsNull then
    Exit;

  QueryMaxForn.DatabaseName := tblCadForn.DatabaseName;
  QueryMaxForn.SQL.Clear;
  QueryMaxForn.SQL.Add('SELECT MAX (FORCOD) FROM FINAFOR.dbf');
  QueryMaxForn.Open;

  try
    tblCadForn.FieldByName('FORCOD').AsString := StrZero(IntToStr(StrToInt(QueryMaxForn.Fields[0].AsString)+1)),5);

    finally
    QueryMaxForn.Close;
  end;

end;

Abs. Progr'amador.

Editado Outubro 20, 2008 por Progr'amador

Micheus · Outubro 20, 2008

Outra opção usando os recursos do próprio Delphi:

tblCadForn.FieldByName('FORCOD').AsString := FormatFloat('00000', StrToInt(QueryMaxForn.Fields[0].AsString)+1);

Abraços

Gabriel Cabral · Outubro 21, 2008

Aeeeeeeeeee Micheus.........exatamente.....isso mesmo que eu precisava....muitíssimo obrigado

E muito obrigado também a todos que me ajudaram...

até +

Entrar

(Resolvido) Gerar código com zeros à esquerda

Pergunta

Link para o comentário

Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns