Your question, your audience. Choose who sees your identity—and your question—with question security.
procedure TfrmMfgScheduleForm.edMfgDaysPropertiesEditValueChanged(
Sender: TObject);
var sMfgStart, sDays, sSql, sDaysToAdd, sMfgComplete : String; dMfgStart, dDays, dMfgComplete, dDaysToAdd :TDateTime;
fDayToAdd : Variant;
begin
inherited;
dMfgStart := StrToDate(edMfgStart.Text);
// dMfgComplete := StrToDate(edMfgTarget.Text);
fDayToAdd := StrToFloat(edMfgDays.Text);
// dDays := StrToDate(DateToStr(dMfgStart + StrToFloat(edMfgDays.Text)));
dDays := dMfgStart + fDayToAdd;
//how many non-workdays are there between start of mfg plus days to add?
with dmMfgSchedule.qrySearch do begin
Close;
sql.Clear;
// sql.Add('SELECT CalendarDays FROM CalendarView WHERE CalendarDays = ('''+DateToStr(dDays)+''') ');
sql.Add('SELECT COUNT(ID) AS Expr1 FROM Calendar ');
sql.Add('WHERE (CalendarDays BETWEEN '''+DateToStr(dMfgStart)+''' AND '''+DateToStr(dDays)+''') ');
sql.Add('AND OfficeWorkDays <> ''Workday'' ');
Open;
end;
sDaysToAdd := dmMfgSchedule.qrySearch.FieldValues['CalendarDays'];
sMfgComplete := DateToStr( (fDayToAdd - 1) + (dMfgStart) + (StrToFloat(sDaysToAdd)) );
//Calculate Mfg Start plus Days in Mfg
sSql := ' UPDATE PCJobData SET Mfg_Complete = '''+DateToStr(dMfgComplete)+''' ';
sSql := sSql + ' WHERE ID = '''+sJobID+''' ' ;
dmMfgSchedule.ADOCommand1.CommandText:= sSql;
dmMfgSchedule.ADOCommand1.Execute;
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
something like
Open in new window