Display calculated data in report but getting last value in every row

Answers

• Options

  lubost Member Posts: 614

  2018-07-01 Answer ✓

  It is not a good idea to change "WMS Activity Log" pointer inside repeat-until block. Use another record variable or try to change logic.

  5
• Options

  Mubasher Member Posts: 25

  2018-07-05

  @lubost Thanks for reply i just change my logic and solved this problem.
  

  0
• Options

  Mubasher Member Posts: 25

  2018-07-05 Answer ✓

  
  IF ( "WMS Activity Log"."Action Type" = 'SyncStart') AND (CurrentUser <> "WMS Activity Log"."User ID" ) THEN BEGIN
  CLEAR(StartTime);
  CLEAR(TotalDuration);
  CurrentUser := "WMS Activity Log"."User ID";
  StartTime := "WMS Activity Log"."Date Time";
  WMSActivityTemp.INIT;
  WMSActivityTemp.ID := "WMS Activity Log".ID;
  WMSActivityTemp."User ID" := "WMS Activity Log"."User ID";
  WMSActivityTemp.TotalDuration := TotalDuration;
  WMSActivityTemp."Action Type" := "WMS Activity Log"."Action Type";
  WMSActivityTemp.INSERT;
  END;
  
  IF ("WMS Activity Log"."Action Type" = 'SyncEnd') AND ("WMS Activity Log"."User ID" = CurrentUser) THEN BEGIN
  WMSActivityTemp.INIT;
  WMSActivityTemp.ID := "WMS Activity Log".ID;
  WMSActivityTemp."User ID" := "WMS Activity Log"."User ID";
  WMSActivityTemp.TotalDuration := "WMS Activity Log"."Date Time" - StartTime;
  WMSActivityTemp."Action Type" := "WMS Activity Log"."Action Type";
  WMSActivityTemp."Device ID" := "WMS Activity Log"."Device ID";
  WMSActivityTemp."Date Time" := StartTime;
  WMSActivityTemp.Value := "WMS Activity Log".Value;
  WMSActivityTemp.INSERT;
  CLEAR(CurrentUser);
  END;

  0