Mayor Numero Paradox

[lKinGl]

y si...el campo num_veh es entero y hay un registro que tiene 0 para que cuando el codigo me funcione me arroje 1

[lKinGl]

ya funcionó y no se que hice

¿alguien podria explicar?

[lKinGl]

muchas gracias caro por tu ayuda tu siempre tan oportuna

[[coso]]

Hola, usar querys es lo mas (mucho mas) recomendable. Solo añado esto para mostrar que tambien se puede hacer mediante unicamente tablas.

Código Delphi [-]
 
 Tabla.IndexFieldNames := 'num_veh';
 Tabla.Last;
 num_veh := Tabla.FieldByName('num_veg').Asinteger;
 inc(num_veh);
 ...

[roman]

¿Y no se puede usar un campo autoinc y dejar que paradox haga todo?

// Saludos

[marcoszorrilla]

El riesgo de los campos autoinc es que si por un casual se nos ocurre que sean índice para establecer una relación maestro-detalle, por ejemplo una factura y sus líneas. Si por algún motivo falla, tiene efectos desastrosos pues nos borraría facturas.

Me explico, tengo una tabla de facturas y otra líneas, por el motivo que sea decido importar la tabla de facturas completa a una nueva tabla, por ejemplo por alguna corrupción que ha sufrido, a partir de aquí la nueva tabla es posible que no coincida el autoincremento que llevabamos y por lo tanto la relación maestro-detalle se vuelve azarosa.

Si además el autoincremento por el motivo que fuere cambia irá machacando todas las facturas que sea superiores, hablo por experiencia, pues en una ocasión un sistema perdía recibos por suerte descubrí pronto que por un trasvase a otra tabla el autoincremento se había vuelto inferior al que llevaba la tabla antigua.

Un Saludo.

[Softweb]

Hola te paso una funcion para hacer lo que tu quieres.

Código Delphi [-]
function GenerarId(KeyField, TableName, Condicion: string): Integer;
var
  NewValue: Integer;
begin
  NewValue := -1;
  Query1.Close;
  Query1.SQL.Clear;
  if Condicion <> '' then
    Query1.SQL.Add('SELECT Max( '+KeyField+' ) AS MAXIMO FROM '+TableName+ ' WHERE '+Condicion)
  else
    Query1.SQL.Add('SELECT Max('+KeyField+') AS MAXIMO FROM '+TableName);
  Query1.Open;
  // Si no hay registros en la tabla la consulta devuelve null
  if VarIsNull( Query1.FieldValues[ 'MAXIMO' ] ) then
    NewValue := 1 // valor para el primer registro de la tabla
  else
    NewValue := Integer( Query1.FieldValues[ 'MAXIMO' ] ) + 1;
  Query1.Close;
  Result := NewValue;
end;

Para usarla es asín.

Código Delphi [-]
NuevoNumero := GenerarId('num_veh','vehiculos.db', '');

O si lo quieres con alguna condicion.

Código Delphi [-]
NuevoNumero := GenerarId('num_veh','vehiculos.db', 'Fecha > ''01/06/2008''');

Saludos