Zeoslib Portal

Code: Select all

procedure TZAbstractRODataset.DoOnNewRecord;
var
  I: Integer;
  MasterField, DetailField: TField;
  Temp: Int64;

// start new code

  vStr : String;

  function StringInArray(const pStr : String; const pArray : array of String) : Boolean;
  var
   ii : Integer;
  begin
    Result := False;
    for ii := Low(pArray) to High(pArray) do
    begin
      Result := pStr = pArray[ii];
      if Result then Exit;
    end;
  end;

begin
  for I := 0 to Fields.Count - 1 do
  begin
    with Fields[I] do
    begin
      vStr := UpperCase(Trim(DefaultExpression));
      if vStr <> '' then
      begin
        if Fields[I] is TDateTimeField then
        begin
          if StringInArray(vStr, ['NOW', 'CURRENT_TIME', 'CURRENT_TIMESTAMP']) then
          begin
            AsDateTime := Now;
          end
          else if StringInArray(vStr, ['TODAY', 'CURRENT_DATE']) then
          begin
            AsDateTime := Trunc(Now);
          end
          else if (vStr = 'TOMORROW') then
          begin
            AsDateTime := Trunc(Now) + 1;
          end
          else if (vStr = 'YESTERDAY') then
          begin
            AsDateTime := Trunc(Now) - 1;
          end
          else if vStr <> 'NULL' then
          begin
            AsString := DefaultExpression;
          end;
        end
        else if vStr <> 'NULL' then
        begin
          AsString := DefaultExpression;
        end;
      end;
    end;
  end;

// end new code

  if MasterLink.Active and (MasterLink.Fields.Count > 0) then
  begin
    for I := 0 to MasterLink.Fields.Count - 1 do