Commit 25456b50 by Cam Hayes

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
parent aa8aab08
...@@ -174,7 +174,7 @@ procedure TFSetStatus.SetDueDates(); ...@@ -174,7 +174,7 @@ procedure TFSetStatus.SetDueDates();
begin begin
if OrderType = 'corrugated plate' then if OrderType = 'corrugated plate' then
begin begin
if wlcbStatus.DisplayText = 'Proof Done' then if wlcbStatus.DisplayText = 'Proof Done' then
begin begin
dtpPlateDue.Date := plateDue; dtpPlateDue.Date := plateDue;
dtpMountDue.Date := mountDue; dtpMountDue.Date := mountDue;
...@@ -184,19 +184,19 @@ begin ...@@ -184,19 +184,19 @@ begin
begin begin
dtpPlateDue.Date := getNextDate(dtpDate.Date); dtpPlateDue.Date := getNextDate(dtpDate.Date);
dtpMountDue.Date := getNextDate(dtpPlateDue.Date); dtpMountDue.Date := getNextDate(dtpPlateDue.Date);
dtpShipDue.Date := getNextDate(dtpMountDue.Date); dtpShipDue.Date := dtpMountDue.Date;
end end
else if wlcbStatus.DisplayText = 'Plate Done' then else if wlcbStatus.DisplayText = 'Plate Done' then
begin begin
dtpPlateDue.Date := plateDue; dtpPlateDue.Date := plateDue;
dtpMountDue.Date := getNextDate(dtpDate.Date); dtpMountDue.Date := getNextDate(dtpDate.Date);
dtpShipDue.Date := getNextDate(dtpMountDue.Date); dtpShipDue.Date := dtpMountDue.Date;
end end
else if wlcbStatus.DisplayText = 'Mount Done' then else if wlcbStatus.DisplayText = 'Mount Done' then
begin begin
dtpPlateDue.Date := plateDue; dtpPlateDue.Date := plateDue;
dtpMountDue.Date := mountDue; dtpMountDue.Date := mountDue;
dtpShipDue.Date := getNextDate(dtpDate.Date); dtpShipDue.Date := dtpDate.Date;
end end
else if wlcbStatus.DisplayText = 'Ship Done' then else if wlcbStatus.DisplayText = 'Ship Done' then
begin begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment