Gerar novo código

[cassios]

Galera boa tarde é o seguinte to montando um sistema e to precisando de uma mãozinha....

Tenho um cadastro de clientes: quando o cliente chega a uma loja de assistência com um equipamento eu quero cadastrar o equipamento para este cliente então é o seguinte:

O cliente chega eu o cadastro ele traz o equipamento e eu o cadastro o equipamento.

Se o mesmo cliente trazer outro equipamento o código será 2

Mas se um cliente novo chega e traz um equipamento então o sistema gera código 2 para o cliente mas o equipamento para esse cliente eu qero que começe a contar a partir do um e assim por diante.

no caso do primeiro cliente voltar a loja com outro equipamento a sequencia continua na boa equipamento 3 e assim vai.

Gostaria de uma ajuda de como montar isso para o meu sistema.

Abraços a todos

[Recife]

Galera boa tarde é o seguinte to montando um sistema e to precisando de uma mãozinha....

Tenho um cadastro de clientes: quando o cliente chega a uma loja de assistência com um equipamento eu quero cadastrar o equipamento para este cliente então é o seguinte:

O cliente chega eu o cadastro ele traz o equipamento e eu o cadastro o equipamento.

Se o mesmo cliente trazer outro equipamento o código será 2

Mas se um cliente novo chega e traz um equipamento então o sistema gera código 2 para o cliente mas o equipamento para esse cliente eu qero que começe a contar a partir do um e assim por diante.

no caso do primeiro cliente voltar a loja com outro equipamento a sequencia continua na boa equipamento 3 e assim vai.

Gostaria de uma ajuda de como montar isso para o meu sistema.

Abraços a todos

Oi Cassios,

Não sei como você montou sua tabela no BD, o cod. do equipamento não pode ser chave primária, e você deve deixar o campo cod equipamento livre para digitar o codigo, tendo atenção para criar rotina de verificação dos codigos do cliente e equipamento. você tmabém deve atentar para não ter nenhum generator de codigo de equipamento.

Se cod cliente já existe faça

cod equipamento + 1

senão

cod equipamento recebe novo cod

Deve aprimorar mais esta pequena rotina mostrando mensagens.

Recife.

Editado Dezembro 19, 2007 por Recife

[Guest --brugall --]

Cassios,

Pelo que entendi na sua tabela o relacionamento está 1 p muitos entre cliente e equipamento, é isso mesmo? Se for isso você pode fazer uma consulta antes do Insert na tabela, pode jogar um select para verificar se existe algum equipamento cadastrado com o Código do cliente ( Lembrando q nesse caso o código do cliente está como chave estrangeira na tabela Equipamento).

A partir desse select você pode somar pelo RecordCount dele por exemplo:

try
  with queryEquipamento do
   begin
    sql.add(' Select * from Cliente C, Equipamento E');
    sql.add('  where C.ID = E.IDCliente');
    Open;                                             // vai fazer a consulta de quantos registros tem para o cliente.
   end;

   objetoEquipamento.ID := queryEquipamento + 1;

 except

 end;

Acho que isso dá pra ajudar um pouco, mas seria interessante analisar como está no Banco.

[Micheus]

brugall a idéia é por aí, mas acho que dá para melhorar um pouquinho, porque existem alguns casos (componentes) que o valor de RecordCount não é confiável e o mais apropriado seria utilizar uma querie com COUNT.

Supondo as tabelas:

- Equipamento com os campos ID_EQUIPAMENTO (INT) e ID_CLIENTE (INT);

- Cliente com o campo ID_CLIENTE (INT);

A proposta é utilizar o mais comum nestes casos: uma querie com o MAX.

Assim, poderia ser criada uma função para isto:

function DMMain.NextEqpID(IDCliente :Integer) :Integer;
begin
  with QryMaxEquipamento do
  begin
    SQL.Clear;
    SQL.Add('SELECT MAX(ID_EQUIPAMENTO) AS ID_EQUIPAMENTO');
    SQL.Add('FROM EQUIPAMENTO');
    SQL.Add('WHERE ID_CLIENTE = :ID_CLIENTE');
    ParamByName('ID_CLIENTE').AsInteger := IDCliente;  
    Open;
    Result := FieldByName('ID_EQUIPAMENTO').AsInteger +1;
    Close;
  end;
end;

daí, no evento BeforePost de seu dataset (ou qualquer outro evento anterior a efetiva gravação no banco), você chama esta função, passando o código do cliente em questão e atribui o seu retorno ao campo de identificação do equipamento.

OBS:

- Ocorre com uma abordagem desta (obter o valor máximo) que, se eventualmente, algum equipamento futuramente for excluído do cadastro, ao listar os equipamentos do cliente, poderá haverá uma lacuna (falta de um código no meio);

- Por outro lado, se utilizar a contagem de itens, havendo a mesma exclusão, ao ser incluso um novo item, há 99% de chance de erro por duplicação de chave (key violation);

Assim, se for necessário manter os itens sempre sequenciais, nenhuma das duas abordagens funcionará corretamente.

Entretanto, eu diria que a melhor abordagem é a do MAX; independente das lacunas, que podem ser contornadas nas "visualizações" se for importante, mas que evita dores de cabeça caso você tenha outras informações que se relacionem a estes dados (questões de integridade referencial).

Abraços