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

@@ -174,7 +174,7 @@ procedure TFSetStatus.SetDueDates();
 begin
   if OrderType = 'corrugated plate' then
   begin
-        if wlcbStatus.DisplayText = 'Proof Done' then
+    if wlcbStatus.DisplayText = 'Proof Done' then
     begin
       dtpPlateDue.Date := plateDue;
       dtpMountDue.Date := mountDue;
@@ -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