procedure orderpacked()
var
rec_postedsales: Record "Sales Shipment Header";
rec_postedsales2: Record "Sales Shipment Header";
rec_User: Record User;
user: text;
TotalUserOrder: Integer;
XpostingDate: Date;
begin
rec_postedsales.Reset();
rec_postedsales.SetRange("User ID", '<>%1', '');
rec_postedsales.SetRange("Order No.", '<>%1', '');
TotalUserOrder := rec_postedsales.Count;
Message('Total user''s orders:%1', TotalUserOrder);
rec_postedsales.Reset();
rec_postedsales.SetCurrentKey("Posting Date");
rec_postedsales.SetRange("Posting Date", CalcDate('<-1M-1D>', workdate()), WorkDate());
rec_postedsales.SetRange("Order No.", '<>%1', '');
if rec_postedsales.FindSet() then
repeat
if XpostingDate <> rec_postedsales."Posting Date" then begin
rec_postedsales2.Reset();
rec_postedsales2.SetRange("Posting Date", rec_postedsales."Posting Date");
Message('Total Orders %1 on Posting Date %2', rec_postedsales2.Count, rec_postedsales2."Posting Date");
end;
XpostingDate := rec_postedsales."Posting Date";
until rec_postedsales.Next() < 1;
end;
