Made changes to PDF so that it fits PDF to much better and now ship due…

Made changes to PDF so that it fits PDF to much better and now ship due autofills to mount due in set status

kgOrdersClient/View.SetStatus.pas

@@ -184,19 +184,19 @@ begin
     begin
       dtpPlateDue.Date := getNextDate(dtpDate.Date);
       dtpMountDue.Date := getNextDate(dtpPlateDue.Date);
-      dtpShipDue.Date := getNextDate(dtpMountDue.Date);
+      dtpShipDue.Date := dtpMountDue.Date;
     end
     else if wlcbStatus.DisplayText = 'Plate Done' then
     begin
       dtpPlateDue.Date := plateDue;
       dtpMountDue.Date := getNextDate(dtpDate.Date);
-      dtpShipDue.Date := getNextDate(dtpMountDue.Date);
+      dtpShipDue.Date := dtpMountDue.Date;
     end
     else if wlcbStatus.DisplayText = 'Mount Done' then
     begin
       dtpPlateDue.Date := plateDue;
       dtpMountDue.Date := mountDue;
-      dtpShipDue.Date := getNextDate(dtpDate.Date);
+      dtpShipDue.Date := dtpDate.Date;
     end
     else if wlcbStatus.DisplayText = 'Ship Done' then
     begin