Asignar numero incremental

[Caren]

Pongo este codigo y no me va, soy nuevo en esto de programacion y seguro que me dejo algo pero no se el que:

Código Delphi [-]
procedure TAltaClientes.FormCreate(Sender: TObject);
 var
  Ultimo : Integer;
begin
  // Obtener el último ID de cliente de la tabla "ConfigurarNumeros"
  // incrementarlo en uno y almacenarlo en la variable Ultimo
  Ultimo := ADONumeros.FieldByName('CodClientes').Value + 1;

  // Agregar un registro en tabla "Clientes"
  ADOClientes.Insert;
  // Asignarle el ID (Codigo) de cliente
  ADOClientes.FieldByName('CodCliente').Value := Ultimo;
  { Asignar los demás valores del cliente
  }
  ADOClientes.Post;  // Guardar

  // Actualizar ultimo cliente en tabla "Configurar Numeros"
  ADONumeros.Edit;
  ADONumeros.FieldByName('CodCliente').Value := Ultimo;
  ADONumeros.Post; // Guardar
begin
 ADOClientes.Active:=  True;
end;

se me para en adonumeros
Gracias

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración


Recuerda poner los tags al código fuente, ejemplo:



Gracias


Y no mezcles mensajes entre los distintos hilos, tu mensaje anterior lo he movido aquí para no mezclar con el otro. Gracias.

[Neftali [Germán.Estévez]]

Empezado por Caren

se me para en adonumeros

¿Te refieres a la linea donde consultas el último?
¿Exactamente qué error te da?

¿Tienes abierta la tabla ADONumeros?
Si no lo has hecho, ábrela (Open) y ves al último registro (Last).

[Caren]

El error me lo da esta linea:

Código Delphi [-]
Ultimo := ADONumeros.FieldByName('CodClientes').Value + 1;

En el ADONumeros y me marca:

Código Delphi [-]
Build
  [Error] Unit2.pas(142): Undeclared identifier: 'ADONumeros'
  [Error] Unit2.pas(142): Missing operator or semicolon
  [Error] Unit2.pas(142): Missing operator or semicolon
  [Error] Unit2.pas(146): Missing operator or semicolon
  [Error] Unit2.pas(147): Missing operator or semicolon
  [Error] Unit2.pas(147): Missing operator or semicolon
  [Error] Unit2.pas(148): Missing operator or semicolon
  [Error] Unit2.pas(156): Statement expected but 'PROCEDURE' found
  [Fatal Error] Pasgon.dpr(10): Could not compile used unit 'Unit2.pas'

Muchas gracias por tu interes, esto pasa por ponerse a hacer estas cosas a mis años.

[Neftali [Germán.Estévez]]

Pues el error está claro: "No encuentra en ese formulario o unit el elemento ADONumeros".
Undeclared identifier: 'ADONumeros'

Tendrás que hacer el USES de la unit donde esté definido.

[Caren]

Haber si me explico. El codigo usado es uno que me recomendo ecfisa en el segundo mensaje, el ADONumeros y el ADOClientes son dos adotables uno en cada formulario, si los pongo en el uses me da el mismo error pero hay en el uses.
Si cambio ADONumeros por el nombre de la tabla ConfigurarNumeros y el ADOClientes por AltaClientes no me deja poner FieldByName el error me salta hay y entonces no se que poner en su lugar. Si podeis miraros un poco el codigo puesto en el 2º mensaje y me decis que estoy haciendo mal o que me falta.
Muchas gracias.

[ecfisa]

Hola Caren.

..
ADONumeros y el ADOClientes son dos adotables uno en cada formulario
...

Es que eso precisamente es lo que te insinuó Neftali cuando te explica la procedencia del error:

"No encuentra en ese formulario o unit el elemento ADONumeros".

A ver... Suponiendo ADOClientes está localizado en TAltaClientes y que el formulario donde está situado ADONumeros se llame FrmNumeros, el código del mensaje #3 tendría que ser:

Código Delphi [-]
...
implementation

uses unitFrmNumeros; // Nombre de la unidad donde está declarado FrmNumeros
  
procedure TAltaClientes.FormCreate(Sender: TObject);
 var
  Ultimo : Integer;
begin
  Ultimo := FrmNumeros.ADONumeros.FieldByName('CodClientes').Value + 1;
  
  ADOClientes.Insert;
  ADOClientes.FieldByName('CodCliente').Value := Ultimo;
  ...
  ADOClientes.Post; 

  FrmNumeros.ADONumeros.Edit;
  FrmNumeros.ADONumeros.FieldByName('CodCliente').Value := Ultimo;
  FrmNumeros.ADONumeros.Post; 
end;

Ya que si ADONumeros no reside en el mismo formulario, Delphi no puede adivinar donde lo hace. Tenes que indicárselo explícitamente.

De todos modos te recomiendo el uso de al menos un TDataModule para agrupar los componentes no visuales (ADOConnection,ADOQuery, ADOTable, etc).

Saludos.