TomBuzin/Rootvin-pluginHDCRTN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Zacatek uprav Ramcovy plan

Browse Source
This commit is contained in:
TomBuz
2025-06-10 19:43:13 +02:00
parent fedc940ac4
commit 5fcde65f6b
30 changed files with 1863 additions and 334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
frmPekarna.pas
View File

@ -304,6 +304,8 @@ var
f:= TformTiskyNahledy.Create (nil);
try
f.idKmen:= datMod.aktIdKmen;
f.idPrikaz:= datMod.aktIdPrikaz;
f.idPaleta:= datMod.aktIDPaleta;
f.Helios:= Helios;
f.HeliosHandle:= Application.Handle;
f.ShowModal;
@ -1014,11 +1016,8 @@ procedure TformPekarna.FormClose (Sender: TObject; var Action: TCloseAction);
grdRozpracovane.Font.Height:= Helios.FontHeight;
grdStroje.Font.Height:= Helios.FontHeight;
pgCtrlPlan.ActivePage:= shPlanDnes;
shPlanZitra.TabVisible:= false;
runTimerRozprac:= true;
sgInfo.Cells[0, 0]:= 'Rok';
@ -1075,7 +1074,7 @@ procedure TformPekarna.FormClose (Sender: TObject; var Action: TCloseAction);
infoTimerTimer (Sender);
dm.NactiDataPaneluStroje (self, arrStroje);
dm.NactiDataPaneluStroje (self, arrStroje); // stroje strediska 211
if (dm.vtStroje.RecordCount>0) then
grdStrojeCellClick(grdStroje.Columns.Items[2]);
@ -1121,7 +1120,7 @@ procedure TformPekarna.FormClose (Sender: TObject; var Action: TCloseAction);
if (dm.vtStroje.RecordCount>0) then
datMod.bmIdStroj:= dm.vtStroje.FieldByName('fIDStroj').AsInteger;
dm.NactiPlanStroje (self, datMod.bmIdStroj);
dm.NactiPlanStroje (self, datMod.bmIdStroj, true); // dnesni plan (tj. davky kapacitniho planu)
end;
@ -1315,6 +1314,8 @@ procedure TformPekarna.FormClose (Sender: TObject; var Action: TCloseAction);
aktIdKmen:= grdStroje.DataSource.DataSet.FieldByName('fIDKmen').AsInteger;
datMod.aktIdKmen:= aktIdKmen;
datMod.aktIDPaleta:= grdStroje.DataSource.DataSet.FieldByName('fIDPaleta').AsInteger;
datMod.aktIdPrikaz:= grdStroje.DataSource.DataSet.FieldByName('fIDPrikaz').AsInteger;
datMod.bmIdPrikaz:= datMod.aktIdPrikaz;
@ -1611,7 +1612,7 @@ procedure TformPekarna.FormClose (Sender: TObject; var Action: TCloseAction);
begin
edtNazevRozpracVyrobku.Text:= '';
edtRozpracZakazka.Text:= '';
dm.NactiRozpracovane (self);
dm.NactiRozpracovane (self, datMod.aktIdStroj);
end;
end;
@ -1644,7 +1645,7 @@ procedure TformPekarna.FormClose (Sender: TObject; var Action: TCloseAction);
if (initOK) then
begin
dm.NactiRozpracovane (self);
dm.NactiRozpracovane (self, datMod.aktIdStroj);
dm.NactiPlanStroje (self, datMod.bmIdStroj);
end;