Mostrar el Número de CLiente en un Mantenimiento

[hondaalberto]

Buenas tardes amigos espero que estén muy bien

El motivo de este mensaje es porque necesito que en un Mantenimiento de Clientes cuando el usuario hace clic en el botón "Nuevo"
inmediatamente en el formulario en el Campo número de cliente (No.) aparezca cual es el numero que se le ha asignado al cliente que se esta creando.

Utilizo Delphi 7 y Sql Server Express

En el evento OnCLic del Botón Nuevo tengo el Siguiente Codigo: TClientes.Insert;

La Estructura de la Tabla es la Siguiente:

CREATE TABLE [dbo].[Clientes](
[No] [int] IDENTITY(1,1) NOT NULL,
[Nombre] [nvarchar](50) NOT NULL,
[Nombre 2] [nvarchar](50) NULL,
[Direccion] [nvarchar](50) NOT NULL,
[Contacto] [nvarchar](50) NULL,
[Telefono] [nvarchar](15) NULL,
[Fax] [nvarchar](15) NULL,
[Tel_Movil] [nvarchar](15) NULL,
[Tel_Oficina] [nvarchar](15) NULL,
[E-Mail] [nvarchar](100) NULL,
[Pagina_Web] [nvarchar](100) NULL,
[Limite_Credito] [decimal](38, 2) NOT NULL,
[Pais] [int] NOT NULL,
[Ciudad] [int] NOT NULL,
[Estado] [nvarchar](8) NOT NULL,
[Fecha_ult_modificación] [date] NOT NULL,
[RNC] [nvarchar](20) NULL,
[Grupo_Contable_Cliente] [nvarchar](20) NOT NULL,
[Usuario] [nvarchar](20) NULL,
[Fecha_Cumpleaño] [datetime] NULL,
CONSTRAINT [PK_Clientes] PRIMARY KEY CLUSTERED


Muchas Gracias de antemano por la Ayuda que puedan Brindarme.

[[Caral]]

Hola

Código Delphi [-]
Query1.Sql.text:= 'Select Nombre form Clientes';
Query1.Open;
Edit1.text:= (query1.Fields[0].Text);

Saludos

[ecfisa]

Hola hondaalberto.

Por favor, si tu mensaje incluye código, utilizá TAG's para que sea más legible:



Saludos y gracias por tu colaboración.

[hondaalberto]

Con la Respuesta que Caral me escribio me muestra el primer cliente creado en la base de datos y lo que necesito mostrar es el número que le corresponde al cliente que estan creando.

Gracias de antemano...

[[Caral]]

Hola

Código Delphi [-]
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger);

Saludos

[hondaalberto]

Probé haciéndolo así utilizando la función max (no.) de Sql, pero lo que me muestra es el último cliente que se creo y lo que necesito hacer es lo siguiente:

Ej.: Tengo dos clientes ya creados en la Base de datos Cliente 1 y Cliente 2 cuando el usuario hace clic en el botón nuevo para crear el cliente numero 3 se debería mostrar que es el cliente No. 3 que es lo que no me sale con el código que me mostraste caral.

[[duilioisola]]

Pues es tan simple como sumar 1...

Código SQL [-]
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger + 1);

[ecfisa]

Si, y como otra alternativa, también debería funcionar:

Código SQL [-]
SELECT MAX(NO)+1 FROM CLIENTES

Saludos.

[[Caral]]

Hola
O Tambien.....

Código Delphi [-]
Var Caral: Integer;
Begin
 Caral := 1;
Query1.Sql.text:= 'Select Max(No)+'+Caral+' form Clientes';
Query1.Open;
Edit1.text:= IntToStr(query1.Fields[0].asinteger);

Saludos

[ecfisa]

Me encanta este código:

Código Delphi [-]
   Query1.Sql.text:= 'Select Max(No)+'+Caral+' form Clientes';

Está cargado de sincera humildad

[[Caral]]

Hola
Venga hombre que ahora le generara un error:

El código (novato) no se puede ejecutar,
A la variable Caral le falta experiencia.

Saludos

[ecfisa]

No seas modesto mi amigo, al menos para mi, la sentencia:

Código Delphi [-]
  Caral:= 1;

Funciona de maravilla

Saludos.

[[Caral]]

Hola
Por lo menos lo que le demuestra al amigo hondaalberto es que con delphi se puede hacer lo mismo de muchas maneras, eso es lo que me encanta de este lenguaje, nunca se termina de aprender algo mejor.
Saludos

[hondaalberto]

Ok, Con esto si me da el número de cliente 3 pero si varios usuarios al mismo tiempo intentan crear un cliente le mostrara el número 3 a todos, como se podria corregir eso.

[ecfisa]

Hola hondaalberto.

Revisá este enlace: Creacion de un campo clave interno autonumerico

Saludos.

[[Caral]]

Hola
Tambien:

Código Delphi [-]
procedure TFOrdProd.ADOQuery1BeforePost(DataSet: TDataSet);
begin
  Query1.Sql.text:= 'Select Max(No) form Clientes';
  Query1.Open;
  If Edit1.Text = IntToStr(Query.Fields[0].asinteger) then
  begin
  if MessageBox(Handle,
                PChar('Esta tratando de poner un numero que ya existe' + #13#10 +
                      'Desea cambiarlo ?'),
                PChar('Numero Repetido'),
                MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = IDOK then
  begin
  Query1.Sql.text:= 'Select Max(No) form Clientes';
  Query1.Open;
  Edit1.Text = IntToStr(Query.Fields[0].asinteger+1);
  end;
  end;
end;

Saludos

[[duilioisola]]

Bien... ahora si estamos pensando en una aplicación multipuesto...
Eso se resuelve de dos maneras posibles:
- Dejas el nro. de cliente = 0 y dejas que los triggers de la tabla se encarguen.
- Estableces el nro de cliente justo antes de grabar el registro

Código Delphi [-]
OnBeforePost
begin
    Query.SELECT MAX(CLIENTE)+1 FROM CLIENTES
    Tabla.FieldByName('NRO_CLIENTE') = Query.FieldBeName('MAX')
end;

[hondaalberto]

Buenas tardes DuilioIsola

Con el Código que me pusiste hice lo siguiente en el evento beforePost de la Tabla clientes:

Código Delphi [-]
begin
Query1.sql.add ( 'SELECT MAX(CLIENTE)+1 FROM CLIENTES');
Query1.Open;
TClientes.FieldByName('No').asinteger := Query1.FieldByName('MAX');

end;

y me devuelve el siguiente error:
[Error] UMantClientes.pas(254): Incompatible types: 'Integer' and 'TField'
[Fatal Error] RetailPos.dpr(18): Could not compile used unit 'UMantClientes.pas'

[ecfisa]

Hola.

Código Delphi [-]
TClientes.FieldByName('No').asinteger := Query1.FieldByName('MAX').????? ; // (AsInteger)

Saludos.