Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 09-02-2012
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Se supone que has creado un campo autoincrementado ID?, para lo cual tienes que crear un generador y un Trigger, luego puedes desde el IbDataset correspondiente cual es el generado y que campo recibirá el valor automáticamente.

Aquí te dejo un Script de ejemplo:
Código:
/******************************************************************************/
/*                                   LineasCompras                                                  */
/******************************************************************************/
Create Table Lineascompras (
    Id          Bigint Not Null,
    Numfactur    Varchar(10) Not Null,
    Codproduct Varchar(8) Not Null,
    Producto     Varchar(40) Not Null,
    Unidades    Integer,
    Pcompra     Dm_Euro /* Dm_Euro = Numeric(12,2) Default 0 */,
    Importe        Dm_Euro /* Dm_Euro = Numeric(12,2) Default 0 */
);


/******************************************************************************/
/*                                Primary Keys                                */
/******************************************************************************/

Alter Table Lineascompras Add Constraint Pk_Lineascompras Primary Key (Id);



/******************************************************************************/
/*                            LineasCompras                                                         */
/******************************************************************************/
Create Generator Gn_Lineascompras_Id;
Set Generator      Gn_LineasCompras_ID To 0;

Set Term ^ ;

/* Trigger: Lineascompras_Bi */
Create  Trigger Lineascompras_Bi For Lineascompras
Active Before Insert Position 0
As
Begin
  If (New.Id Is Null) Then
    New.Id = Gen_Id(Gn_Lineascompras_Id,1);
End
^

Set Term ; ^


Commit;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 04:02:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi