Asignar numero incremental

[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.

[Caren]

Bueno gracias a todos ya lo tengo resuelto.
Si me decis como pongo los tags al código fuente que me dijeron que los pusiera en el cuarto mensaje pongo el codigo.
A falta de eso doy por cerrado el problema.
Muchisimas gracias a todos.

[ecfisa]

Empezado por Caren

Bueno gracias a todos ya lo tengo resuelto.
Si me decis como pongo los tags al código fuente que me dijeron que los pusiera en el cuarto mensaje pongo el codigo.
A falta de eso doy por cerrado el problema.
Muchisimas gracias a todos.

Hola.

Me alegra que lo resolvieras , en el mensaje (#4), Casimiro ya te había puesto una imágen explicativa.

Saludos.