15 replies to this topic

[giulichajari]

Tengo el metodo de facturacion donde si es un ticket comun no se registra el cliente y si es cuenta corriente si. Para el primer caso el idcliente que paso al metodo desl server debe ser nulo.

 

De lo contrario se podria reservar en la base de datos un registro para el cliente comun por asi decirlo.. y asignar estaticamente este valor.

 

Pero queria consultar tengo la variable idcliente en la aplicacion cliente. Intente con:

delphi

idcliente=null;
idcliente=nil;

pero no funciona. como asigna un nulo?

[Agustin Ortu]

Yo defino costantes de lo que "para mi" es un nulo

 

Ejemplo:

 

EMPTY_INTEGER = -1;

 

o bien

 

NULL_INTEGER = -1;

[Wilson]

La idea que te da OrtuAgustin es buena, luego si por causa de la integridad referencial en la DB no puedes almacenar el -1 entonces basta un trigger en la DB, en  BEFORE INSERT donde comparas si el nuevo valor es -1 entonces le asignas NULL.

 

Saludos.

[giulichajari]

La idea que te da OrtuAgustin es buena, luego si por causa de la integridad referencial en la DB no puedes almacenar el -1 entonces basta un trigger en la DB, en  BEFORE INSERT donde comparas si el nuevo valor es -1 entonces le asignas NULL.

 

Saludos.

 

hice lo siguiente, pero no inserta, entonces hice un debug del server utilizando el cliente, y definitivamente me da error por la referencia a cliente:

sql

delimiter $$
CREATE TRIGGER idc BEFORE INSERT ON ferreteracentral.ticket FOR each ROW 
BEGIN
IF (NEW.idcliente=-1) THEN 
SET NEW.idcliente=NULL;
END IF;
END;

aqui la declaracion de tablas ticket y cliente..

sql

CREATE TABLE cliente(
idcliente INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
idpersona INT,
cuit INT,
cuil INT,
deuda DECIMAL(10,2),
cupodias INTEGER,
cupopesos DECIMAL(10,2),
cupocheques DECIMAL(10,2),
cupochequestro DECIMAL(10,2),
descuento DECIMAL(10,2),
FOREIGN KEY (idpersona) REFERENCES persona(idpersona)
);
 
CREATE TABLE ticket(
idticket INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
idcliente INTEGER,
numero INTEGER,
importe DECIMAL(10,2),
fechae DATE,
horae TIME,
idsucursal INT,
tipo CHAR,
efectivo DECIMAL(10,2),
vuelto DECIMAL(10,2),
FOREIGN KEY (idsucursal) REFERENCES sucursal(idsucursal) ON DELETE no action,
FOREIGN KEY (idcliente) REFERENCES cliente(idcliente) ON DELETE no action
);

me fije en alter table y el default de idcliente en ticket es null...

[Wilson]

Que base de datos estás usando?

[giulichajari]

Que base de datos estás usando?

uso mysql.. y use show triggers y me muestra el trigger de arriba..

 

Ahora funciono, debe ser porque reinicie todo..ajaj disculpen..

El problema que daba no es ese sino con la tabla ventas que contiene el detalle del ticket:

 

VENTAS(idticket,idproducto,preciou,cantidad)

 

Exception class TDBXError with message 'Cannot add or update a child row: a foreign key constraint fails (`ferreteracentral`.`venta`, CONSTRAINT `venta_ibfk_1` FOREIGN KEY (`idticket`) REFERENCES `ticket` (`idticket`))'. Process Project1.exe (2660)

 

Para insertar el detalle uso el siguiente query:

sql

SELECT MAX(idticket)FROM ticket;

[Wilson]

Haber si logro entender, tienes otra tabla de nombre VENTAS? Que a su vez es una tabla de detalles de la la tabla ticket? Realmente creo que deberías considerar dar nombres más acordes a  las tablas, la entidad Ticked y la entidad Ventas en realidad son la misma cosa (idVenta, IdCliente, fecha, numero, idSucursal, tipo, importe, etc); y la tabla para llevar los detalles de las ventas debería llamarse algo así Detalles_Ventas : (idDetalle, IdVenta, IdProducto,Cantidad, PrecioUnitario, etc), para más claridad.

 

 

 

 

Para insertar el detalle uso el siguiente query:

sql

SELECT MAX(idticket)FROM ticket;

 

En una aplicación multi-usuario esta manera de obtener el valor para una clave primaria o foránea es muy mala idea.

 

 

 

 

VENTAS(idticket,idproducto,preciou,cantidad)

 

Exception class TDBXError with message 'Cannot add or update a child row: a foreign key constraint fails (`ferreteracentral`.`venta`, CONSTRAINT `venta_ibfk_1` FOREIGN KEY (`idticket`) REFERENCES `ticket` (`idticket`))'. Process Project1.exe (2660)

 

 

El error es típico cuando se está tratando de referenciar una clave foránea con un valor que aún no existe en la DB, cuando se trata de una inserción de una venta nueva lo que yo hago es: mediante una función obtengo el valor para el identificador de la nueva venta bien sea mediante un generador, obteniendo el valor de la última venta e incrementarlo en uno, o las opciones que el motor de la db ofrezca, luego con ese valor inicializo la venta y los de talles de la venta, luego ya es mirar el procedimiento para grabar primero en la tabla maestra y luego en la de detalles, para la que existen muchas formas de hacerlo según los componentes de conexión.

 

Muéstranos el procedimiento con el cual grabas una venta nueva para poder ayudarte.

 

Saludos.

[giulichajari]

Haber si logro entender, tienes otra tabla de nombre VENTAS? Que a su vez es una tabla de detalles de la la tabla ticket? Realmente creo que deberías considerar dar nombres más acordes a  las tablas, la entidad Ticked y la entidad Ventas en realidad son la misma cosa (idVenta, IdCliente, fecha, numero, idSucursal, tipo, importe, etc); y la tabla para llevar los detalles de las ventas debería llamarse algo así Detalles_Ventas : (idDetalle, IdVenta, IdProducto,Cantidad, PrecioUnitario, etc), para más claridad.

 

 

 

En una aplicación multi-usuario esta manera de obtener el valor para una clave primaria o foránea es muy mala idea.

 

 

 

El error es típico cuando se está tratando de referenciar una clave foránea con un valor que aún no existe en la DB, cuando se trata de una inserción de una venta nueva lo que yo hago es: mediante una función obtengo el valor para el identificador de la nueva venta bien sea mediante un generador, obteniendo el valor de la última venta e incrementarlo en uno, o las opciones que el motor de la db ofrezca, luego con ese valor inicializo la venta y los de talles de la venta, luego ya es mirar el procedimiento para grabar primero en la tabla maestra y luego en la de detalles, para la que existen muchas formas de hacerlo según los componentes de conexión.

 

Muéstranos el procedimiento con el cual grabas una venta nueva para poder ayudarte.

 

Saludos.

Claro como no..

para mi es la transaccion que no deja ver el ultimo registro... es mas hice un:

delphi

ShowMessage(IntoToStr(quticket.ExecSQL()));

donde quticket contiene max(idticket). Y el server me muestra el valor 1.

Antes habia utilizado last_insert_id, pero si falla la transaccion el valor no se restaura, es decir tenemos el ticket 17 falla la insercion del 18 y en la siguiente insercion se va a insertar el 19, pero en la tabla ventas o detalle de la factura se inserta referenciando al ticket 17.

 

Aqui el metodo de cabecera del ticke t ysu detalle:

delphi

procedure TServerMethods1.nuevoticket(numero,ids,idcliente:integer;importe,efectivo,vuelto:Double;fechae,horae,tipo:string);
var
tr:TDBXTransaction;
begin
       if (SUCURSAL.InTransaction) then
     raise Exception.Create('Hay una transacción pendiente');
     SUCURSAL.Open;
       try
          try
            tr:=SUCURSAL.BeginTransaction();
 
               begin
                with qticket do
                  begin
                    Close;
                    ParamByName('numero').AsInteger:=numero;
                    ParamByName('importe').AsFloat:=importe;
                    ParamByName('fechae').AsString:=fechae;
                    ParamByName('horae').AsString:=horae;
                    ParamByName('idsucursal').AsInteger:=ids;
 
                    ParamByName('idcliente').AsInteger:=idcliente;
                    ParamByName('tipo').AsString:=tipo;
                    ParamByName('efectivo').AsFloat:=efectivo;
                    ParamByName('vuelto').AsFloat:=vuelto;
                    ExecSQL();
                  end;
 
         SUCURSAL.CommitFreeAndNil(tr);
               end;
 
      except
        SUCURSAL.RollbackFreeAndNil(tr);
        end;
      finally
      SUCURSAL.Close;
       end;
end;
procedure TServerMethods1.nuevodetalleticket(idp:integer;cantidad,preciou:Double);
  var
  tr:TDBXTransaction;
  begin
      if (SUCURSAL.InTransaction) then
     raise Exception.Create('Hay una transacción pendiente');
     SUCURSAL.Open;
       try
          try
            tr:=SUCURSAL.BeginTransaction();
 
               begin
                with qventa do
                  begin
                    Close;
                   // ShowMessage(IntToStr(quticket.ExecSQL()));
                    ParamByName('idt').AsInteger:=quticket.ExecSQL();
                    ParamByName('idp').AsInteger:=idp;
                    ParamByName('cantidad').AsFloat:=cantidad;
                    ParamByName('preciou').AsFloat:=preciou;
                    ExecSQL();
                  end;
 
         SUCURSAL.CommitFreeAndNil(tr);
               end;
 
      except
        SUCURSAL.RollbackFreeAndNil(tr);
        end;
      finally
      SUCURSAL.Close;
       end;
end;

Saludos

[Wilson]

Tienes un problema conceptual, tienes dos transacciones diferentes para el encabezado y para los detalles, en realidad el proceso de grabación de una nueva venta debería estar dentro de una sola transacción, en tu modelo bien podrían grabarse encabezados y si falla la inserción de un detalle, podrían quedar encabezados sin detalles, sin Delphi a mano te he escrito algo de código (con base en el tuyo) de como podría ser el proceso, asumiendo que en la aplicación cliente vas llenando los detalles de la venta en un dataset. 

delphi

function NuevoIDVenta: integer;
begin
  // result
end;
 
procedure TServerMethods1.nuevoticket(idTicket, numero, ids, idcliente: integer;
  importe, efectivo, vuelto: Double; fechae, horae, tipo: string;
  detalles: TDataset);
var
  tr: TDBXTransaction;
  id: integer;
begin
  if (SUCURSAL.InTransaction) then
    raise Exception.Create('Hay una transacción pendiente');
  SUCURSAL.Open;
  try
    try
      tr := SUCURSAL.BeginTransaction();
      id := NuevoIDVenta;
      begin
        with qticket do
        begin
          Close;
          ParamByName('idTicket').AsInteger := id;
          ParamByName('numero').AsInteger := numero;
          ParamByName('importe').AsFloat := importe;
          ParamByName('fechae').AsString := fechae;
          ParamByName('horae').AsString := horae;
          ParamByName('idsucursal').AsInteger := ids;
 
          ParamByName('idcliente').AsInteger := idcliente;
          ParamByName('tipo').AsString := tipo;
          ParamByName('efectivo').AsFloat := efectivo;
          ParamByName('vuelto').AsFloat := vuelto;
          ExecSQL();
        end;
 
        // Tratamiento de detalles
 
        detalles.Open;
        detalles.first;
 
        while not detalles.eof do //recorre el dataset
        begin
          qVenta.Close;
 
          qVenta.ParamByName('idt').AsInteger := id;
 
          qVenta.ParamByName('idp').AsInteger := detalles.FieldByName('idp')
            .AsInteger;
 
          qVenta.ParamByName('cantidad').AsFloat :=
            detalles.FieldByName('cantidad').AsFloat;
 
          qVenta.ParamByName('preciou').AsFloat :=
            detalles.FieldByName('precio').AsFloat;
 
          qVenta.ExecSQL();
 
          detalles.Next;
        end;
        // fin tratamiento detalles
 
        SUCURSAL.CommitFreeAndNil(tr);
      end;
 
    except
      SUCURSAL.RollbackFreeAndNil(tr);
    end;
  finally
    SUCURSAL.Close;
  end;
end;

He colocado una función para obtener un identificador único para la clave principal de tickects, no soy experto en MySql por lo tanto no se como maneja los campos autoincrementales, pero debería haber alguna forma de obtener el valor siguiente para un campo autoincremental (busca en google), de lo contrario es fácil implementarlo creando una tabla con un solo campo de tipo entero que se podría manejar e incrementar dentro de la transacción para obtener un identificador único por venta (obviamente habría que cambiar la declaración del campo en la tabla de tickets). 

 

También he agregado dos nuevos parámetros al procedimiento (idTicket de tipo entero para pasar la clave primaria a la tabla maestra y Detalles de tipo TDataset para manejar los detalles de la venta).

 

 

Saludos.

 

PD: En Datasnap hay una técnica muy efectiva para manejar las relaciones Maestro-Detalles que son los Dataset anidados, si quieres considerar esta opción en este mismo foro de Datasnap hay varios hilos al respecto.

[giulichajari]

Te explico mi concepto: la tabla venta no lleva id porque es una tabla de relacion varios a varios entre un ticket y todos sus productos, en ella esta el idticket y el idproducto, junto a precio y cantidad. Si esa tabla tendria un clave primaria como dice no seria tanto problema, pero no es tabla maestra es varios a varios.. Un producto aparece en varios tickets y un ticket puede tener varios productos.. 

Por otro lado el idticket que tu envias como parametro es autogenerado en mysql. ni siquiera en el server lo indico..

 

Si es correcto lo que explicas de tener un procedimiento almacenado que genere los ids pero eso estaria en el motor de la base de datos.. La funcion que me recomiendas es hacer un select del ultimo registro, para reservarlo(sumandole 1).. ya que si hay varias sucursales haciendo tickets se generara un conflicto..

 

Y la funcion last_insert_id() tampoco es la solucion... porque estuve leyendo que funciona sobre cada cliente, y no sobre toda la tabla..

[Wilson]

Te explico mi concepto: la tabla venta no lleva id porque es una tabla de relacion varios a varios entre un ticket y todos sus productos.

 

Eso está claro desde siempre y no cambia para nada lo que te he dicho.

 

 

 

Por otro lado el idticket que tu envias como parametro es autogenerado en mysql. ni siquiera en el server lo indico..

 

 

Por eso te decía que debería haber la forma en MySql de averiguar (y actualizar) el nuevo valor de un campo autoincremental (en Firebrird es muy fácil con los generadores).

 

 

 

Si es correcto lo que explicas de tener un procedimiento almacenado que genere los ids pero eso estaria en el motor de la base de datos.. La funcion que me recomiendas es hacer un select del ultimo registro, para reservarlo(sumandole 1).. ya que si hay varias sucursales haciendo tickets se generara un conflicto..

 

 

Por supuesto que no es viable el (select max), por eso te decía que de no haber forma de obtener el dato del campo autoincremental directamente desde el motor de la BD, entonces es posible solventarlo creando una tabla, por ejemplo TABLA_GEN_ID_VENTAS con un solo campo ULTIMO_ID de tipo entero,e insertas un registro con valor 1 (uno). Para que esto funcione solo debes cambiar el tipo de campo idTicket en la tabla tikects para que sea solo entero y no autoincremental. 

 

Luego la función de la que te hablo sería mas o menos así:

delphi

function NuevoIDVenta: integer;
var
  qry: TSQLQuery;
begin
  qry := TSQLQuery.Create(nil);
  try
    qry.SQLConnection := TuConexion;
    qry.SQL.Add('UPDATE TABLA_GEN_ID_VENTAS SET ULTIMO_ID = ULTIMO_ID +1');
    qry.ExecSQL();
    qry.SQL.Clear;
    qry.SQL.Add('SELECT ULTIMO_ID FROM TABLA_GEN_ID_VENTAS');
    qry.Open;
    result := qry.FieldByName('ULTIMO_ID').AsInteger - 1;
  finally
    qry.Free;
  end;
end;
 
procedure TServerMethods1.nuevoticket(idTicket, numero, ids, idcliente: integer;
  importe, efectivo, vuelto: Double; fechae, horae, tipo: string;
  detalles: TDataset);
var
  tr: TDBXTransaction;
  id: integer;
begin
  if (SUCURSAL.InTransaction) then
    raise Exception.Create('Hay una transacción pendiente');
  SUCURSAL.Open;
 
  id := NuevoIDVenta; //Llamamos la función por fuera de la transacción.
  try
    try
      tr := SUCURSAL.BeginTransaction();
 
      begin
        with qticket do
        begin
          Close;
          ParamByName('idTicket').AsInteger := id;
          ParamByName('numero').AsInteger := numero;
          ParamByName('importe').AsFloat := importe;
          ParamByName('fechae').AsString := fechae;
          ParamByName('horae').AsString := horae;
          ParamByName('idsucursal').AsInteger := ids;
 
          ParamByName('idcliente').AsInteger := idcliente;
          ParamByName('tipo').AsString := tipo;
          ParamByName('efectivo').AsFloat := efectivo;
          ParamByName('vuelto').AsFloat := vuelto;
          ExecSQL();
        end;
 
        // Tratamiento de detalles
 
        detalles.Open;
        detalles.first;
 
        while not detalles.eof do // recorre el dataset
        begin
          qVenta.Close;
 
          qVenta.ParamByName('idt').AsInteger := id;
 
          qVenta.ParamByName('idp').AsInteger := detalles.FieldByName('idp')
            .AsInteger;
 
          qVenta.ParamByName('cantidad').AsFloat :=
            detalles.FieldByName('cantidad').AsFloat;
 
          qVenta.ParamByName('preciou').AsFloat :=
            detalles.FieldByName('precio').AsFloat;
 
          qVenta.ExecSQL();
 
          detalles.Next;
        end;
        // fin tratamiento detalles
 
        SUCURSAL.CommitFreeAndNil(tr);
      end;
 
    except
      SUCURSAL.RollbackFreeAndNil(tr);
    end;
  finally
    SUCURSAL.Close;
  end;
end;
 
end.

Como ves es una tabla con un único campo que siempre tendrá un solo registro, si llamamos la función por fuera de la transacción jamás chocarán pedidos desde diferentes clientes, puesto que el tiempo que demora en incrementar el número son milésimas de segundo, en realidad esta implementación actúa de la misma manera que un generador en Firebird. 

 

Prueba y me cuentas.

 

Saludos. 

[giulichajari]

ok lo probare.. pero lo que si que debo tener un metodo como este para cada relacion en la base de datos en la cual tenga este caso? Deberia estar solucionado esto por parte de los motores de base de datos .jja

 

Gracias

[Wilson]

ok lo probare.. pero lo que si que debo tener un metodo como este para cada relacion en la base de datos en la cual tenga este caso? Deberia estar solucionado esto por parte de los motores de base de datos .jja

 

Gracias

 

La decisión de declarar un campo autoincremental es tuya y solo tuya, de tus conocimientos sobre el motor y las exigencias de tu diseño dependerá si los usas o no. Personalmente jamás uso autoincrementales para claves primarias de tablas maestras. Por algo será que algunos motores no tienen esa opción directamente, por ejemplo en Firebird un campo autoincremental como tal no existe, en cambio cuenta con generadores que actúan en conjunción con un Trigger o con un Procedimiento almacenado, y su mecánica no es muy distinta a lo que te he planteado.

 

A lo largo de mis respuestas te he repetido que debe haber una forma en MYSQL de conocer el último valor insertado en un campo autoincremental,  si decides insistir con el campo autoincremental,  googleando he visto que hay funciones en MYSQL para eso, podrías implementar una función en Delphi que ejecute la función de MySQL y obtenga su valor.  Luego tu procedimiento de grabación debería seguir este orden:

 

- Declarar una variable de tipo entero.

- Iniciar la transacción.

- Iniciar la grabación del registro de la tabla maestra.

- Llamar la función que genera el ID y pasarla a la variable.

- Pasar el valor de la variable a cada registro de detalles y grabarlos.

- Finalizar transacción.

 

Saludos.

[giulichajari]

ok muchas gracias por tu ayuda.. voy a implementar esa solucion porque no veo otra salida... pero te pregunto:

 

en la tabla de generador de id podria tener los ids de las otras tablas(donde se da el mismo caso): tu pones todos los ids en una sola(por ejemplo idpresupuesto para relacionarlo con su detalle?)

[Wilson]

ok muchas gracias por tu ayuda.. voy a implementar esa solucion porque no veo otra salida... pero te pregunto:

 

en la tabla de generador de id podria tener los ids de las otras tablas(donde se da el mismo caso): tu pones todos los ids en una sola(por ejemplo idpresupuesto para relacionarlo con su detalle?)

 

No hay ningún problema, hay dos opciones:

- O bien usas la tabla tal como está y te genera números únicos para cuantas tablas quieras (por supuesto quedan huecos entre tablas pero eso no es relevante).

- O creas otro campo en la tabla generadora para identificar la tabla para la que vas a generar (entonces habría que ajustar las sentencias de actualización y de obtención del valor en función de la tabla que hace la petición).

 

Si crees que tu aplicación es de muy alta concurrencia entonces es mejor curarse en salud y crear una tabla generadora por cada tabla maestra crítica, para evitar cuellos de botella.

 

No te preocupes, esta es una técnica muy común para generar números consecutivos (sin huecos) para campos diferentes a la clave primaria que así lo requieran, por ejemplo en la numeración de facturas, en cuyo caso la obtención de dicho número si debería  ir inmerso en una transacción.

 

En tu caso que solo necesitas generar claves primarias (no necesariamente consecutivas) no es necesario hacer la llamada dentro de la transacción, esto evitará bloqueos por inperceptibles que sean.

 

En cualquier caso es mucho más barato en términos de consumo de recursos consultar y  actualizar una tabla que tiene un solo campo y un solo registro que hacer un select max (id) o un select max(numero) a una tabla con 2 o 3 millones de registros. 

 

Saludos.

 

PD: Vuelvo y te repito esta es solo una forma de encarar el problema, si investigas más acerca del motor de DB muy seguramente encontrarás otras maneras de hacerlo, quizá otro compañero tenga otras experiencias al respecto.

[giulichajari]

Comparto este enlace:

 

http://mysql.conclas...=LAST_INSERT_ID

 

donde justamente nombra el metodo que me recomendaste y lo compara con last_insert_id().

 

Saludos