5 respuestas en este tema

[axesys]

Que tal amigos, estoy tratando de usar campos calculados para calcular el valor en el que inicia la profundidad de cada capa de suelo (ini) y fin es capturado por el usuario en un grid, por ejemplo:

INI - FIN
--------
0 - 10
10 - 30
30 - 60

Aquí­ el usuario captura el primer registro con 10 en fin, entonces en ini se le asigna 0 por ser el primer registro, el usuario captura el segundo registro con 30 en fin, entonces en ini se le asigna 10 que fue el fin del registro anterior, esto se repite igual para todos los demás registros que no sean el primero.

Por lo pronto lo estoy haciendo de la siguiente manera en el evento OnCalcFields de un ClientDataSet que apunta a la tabla de Estratos (cdsEstratos) la cual tambien esta asignada a otro ClientDataSet que se llama cdsClon:

delphi

procedure TfrmParcelas.cdsEstratosCalcFields(DataSet: TDataSet);
var
  anterior: double;
begin
  anterior:= 0;
  if cdsEstratos.RecNo > 1 then
  begin
    if cdsEstratos.RecordCount <> cdsClon.RecordCount then
    begin
      cdsClon.Close;
      cdsClon.Open;
    end;
    if cdsClon.Locate('ID', cdsEstratos.FieldByName('ID').Value, []) then
    begin
      cdsClon.Prior;
      if not cdsClon.FieldByName('FIN').IsNull then
        anterior:= cdsClon.FieldByName('FIN').Value
    end;
  end;
  cdsEstratos.FieldByName('INI').Value:= anterior;
end;

Pero creo que esto no es muy eficiente usando datasnap y me gustarí­a saber si ustedes conocen otra forma más eficiente.


Saludos

[Kipow]

Por lo que veo tenes un campo ID que seria un correlativo.  con eso en el evento OnNewRecord del cds podes ubicar el valor inicial facilmente.

[axesys]

Mis ids son guids y olvide comentar que no estoy guardando el valor de ini

[Rolphy Reyes]

Saludos.

Has probado a guardar en una variable global en el evento BeforePost el valor capturado, esto funciona correctamente siempre y cuando hagas la comparación con el ultimo registro almacenado.

[poliburro]

Aquí­ el usuario captura el primer registro con 10 en fin, entonces en ini se le asigna 0 por ser el primer registro, el usuario captura el segundo registro con 30 en fin, entonces en ini se le asigna 10 que fue el fin del registro anterior, esto se repite igual para todos los demás registros que no sean el primero.

considerando tu lógica de inicio no serí­a más cómodo que al guardar el registro actual se genere a la par el siguiente? este contendria el valor ini del anterior y 0 en el fin. Tal como sucede con el registro inicial.

De tal manera que distinguirias el inicio y final por los valores 0.

Saludos

[Wilson]

axesys, no se si sea demasiado tarde( estuve muchos dí­as sin conectarme por problemas de salud), yo tuve que implementar algo muy similar con fechas inicial y final en donde el registro actual debí­a consultar en algunos casos el registro anterior y en otros el registro siguiente.

Lo que hice fue agregar a la tabla en cuestión un campo de nombre contador, el ejemplo de enseguida (para Firebird) hará exactamente lo que tu necesitas directamente en la BD, si necesitas implementarlo en el lado cliente ya lo adaptarás con ClientDataset.Locate.

Saludos

sql

CREATE TABLE MEDIDAS (
    ID_MEDIDA  INTEGER NOT NULL,
    INI        INTEGER,
    FIN        INTEGER,
    CONTADOR   INTEGER
);
 
 
/* Trigger: MEDIDAS_BI0 */
CREATE OR ALTER TRIGGER MEDIDAS_BI0 FOR MEDIDAS
ACTIVE BEFORE INSERT POSITION 0
AS
DECLARE VARIABLE VCONTADOR INTEGER;
DECLARE VARIABLE VINI INTEGER;
BEGIN
 SELECT MAX(CONTADOR)
 FROM MEDIDAS
 INTO :VCONTADOR;
  IF (:VCONTADOR IS NULL) THEN
   BEGIN
    NEW.CONTADOR = 1;
    NEW.INI = 0;
   END
  ELSE
   BEGIN
    NEW.CONTADOR = :VCONTADOR + 1;
    SELECT MEDIDAS.FIN
    FROM MEDIDAS
    WHERE MEDIDAS.CONTADOR = NEW.CONTADOR -1
    INTO :VINI;
    NEW.INI = :VINI;
   END
END
^
 
/* Trigger: MEDIDAS_BD0 */
CREATE OR ALTER TRIGGER MEDIDAS_BD0 FOR MEDIDAS
ACTIVE BEFORE DELETE POSITION 0
AS
BEGIN
  UPDATE MEDIDAS SET CONTADOR = CONTADOR -1
  WHERE CONTADOR > OLD.CONTADOR;
END
^