Asignar numero incremental

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

[Caren]

Si pero no me dice con que programa o complemento de todas formas lo subo tal cual aunque me heche la bronca.

Código Delphi [-]

procedure TAltaClientes.JvHTButton5Click(Sender: TObject);
var
Ultimo : Integer;
begin
Ultimo := ConfigurarNumeros.ADONumerosCodClientes.Value + 1;
ADOClientes.Open;
ADOClientes.Insert;
ADOClientes.FieldByName('CodCliente').Value := Ultimo;
ADOClientes.Post;
ConfigurarNumeros.ADONumeros.Edit;
ConfigurarNumeros.ADONumerosCodClientes.Value := Ultimo;
ConfigurarNumeros.ADONumeros.Post;
end;

Reitero las gracias con todo el corazon, estaba muy atascado y apunto de abandonar.

[Casimiro Notevi]

Amiga, te lo copio aquí otra vez
Recuerda poner los tags al código fuente, ejemplo:



Gracias