Prvotni verze pro Giteu
This commit is contained in:
17
.gitignore
vendored
17
.gitignore
vendored
@ -80,4 +80,21 @@ __recovery/
|
|||||||
|
|
||||||
# Boss dependency manager vendor folder https://github.com/HashLoad/boss
|
# Boss dependency manager vendor folder https://github.com/HashLoad/boss
|
||||||
modules/
|
modules/
|
||||||
|
.git/
|
||||||
|
|
||||||
|
|
||||||
|
*.otares
|
||||||
|
*.cmds
|
||||||
|
*.skincfg
|
||||||
|
*.bmp
|
||||||
|
*.mp3
|
||||||
|
*.mes
|
||||||
|
*.vtd
|
||||||
|
*.xls
|
||||||
|
*.xlsx
|
||||||
|
*.vlb
|
||||||
|
*.tmp
|
||||||
|
*.xml
|
||||||
|
|
||||||
|
*.zip
|
||||||
|
*.7z
|
||||||
|
|||||||
477
ComObjekt.pas
Normal file
477
ComObjekt.pas
Normal file
@ -0,0 +1,477 @@
|
|||||||
|
unit ComObjekt;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses System.SysUtils, System.Win.ComObj, ddPlugin_TLB;
|
||||||
|
|
||||||
|
const
|
||||||
|
Class_plgPolanskych: TGUID = '{0E52DB47-274A-44D3-A492-85BD0BE8760E}';
|
||||||
|
|
||||||
|
type
|
||||||
|
TUctenkaVydejItem = record
|
||||||
|
id, idZboSklad, idUctoR: integer;
|
||||||
|
jcEvid, jcJC: single;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TUctenkaItem = record
|
||||||
|
id, idZboSklad, idKmen, idUctoR: integer;
|
||||||
|
isVyrobek: boolean;
|
||||||
|
rada: string;
|
||||||
|
mnozstvi, jcEvid, jcJC: single;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TUctenkaHlava = record
|
||||||
|
id, typDokladu: integer;
|
||||||
|
rada: string;
|
||||||
|
vydejkyItems: TArray<TUctenkaVydejItem>;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TUctenkaDoklad = record
|
||||||
|
id, druhPohybu, vstupniCena: integer;
|
||||||
|
mena, doklad: string;
|
||||||
|
kurz, jednotkaMeny, kurzEuro: single;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TplgPolanskych = class(TComObject, IHePlugin)
|
||||||
|
private
|
||||||
|
procedure Run(const Helios: IHelios); safecall;
|
||||||
|
public
|
||||||
|
function KontrolyLikvidaceOK(const Helios: IHelios): boolean; safecall;
|
||||||
|
procedure VytvorStornoVydejky (const Helios: IHelios; const idDZ: integer); safecall;
|
||||||
|
procedure VytvorVydejkaDoSpotreby (const Helios: IHelios; const idDZ: integer); safecall;
|
||||||
|
procedure ZrusCertifikatEETTrzby (const Helios: IHelios; arrID: TArray<integer>); safecall;
|
||||||
|
procedure OdeslatEmail(const Helios: IHelios; idDZ: integer; idTiskFrm: integer); safecall;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses System.Win.ComServ, System.Variants, System.StrUtils, System.UITypes, Vcl.Themes, Vcl.Forms,
|
||||||
|
frmOrder, frmOrder2, frmOrder21024, frmOrder21366, frmLikvidace, frmLikvidace1024, frmPrijem, frmPrijem1024,
|
||||||
|
frmZamena,
|
||||||
|
helUtils, myUtils;
|
||||||
|
|
||||||
|
var
|
||||||
|
oVar1, oVar2: OleVariant;
|
||||||
|
jeTest: boolean;
|
||||||
|
stylWin10: TStyleManager.TStyleServicesHandle;
|
||||||
|
delkaPoradCisla: byte;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgPolanskych.OdeslatEmail(const Helios: IHelios; idDZ: Integer; idTiskFrm: Integer);
|
||||||
|
var lSQL: string;
|
||||||
|
begin
|
||||||
|
if (idDZ>0) and (idTiskFrm>0) then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function TplgPolanskych.KontrolyLikvidaceOK(const Helios: IHelios): Boolean;
|
||||||
|
var lSQL: string;
|
||||||
|
begin
|
||||||
|
{
|
||||||
|
result:= false;
|
||||||
|
|
||||||
|
lSQL:= 'SELECT ID FROM ' + tblKZ + ' WHERE Aktu'
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount=0) then
|
||||||
|
}
|
||||||
|
result:= true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgPolanskych.VytvorVydejkaDoSpotreby (const Helios: IHelios; const idDZ: integer);
|
||||||
|
var lSQL: string;
|
||||||
|
uct: TUctenkaHlava;
|
||||||
|
begin
|
||||||
|
uct.id:= idDZ;
|
||||||
|
uct.rada:= '';
|
||||||
|
uct.typDokladu:= helUtils.getHeliosIntVal(Helios, -1, 'SELECT TypDokladu FROM ' + tblUctenkaH + ' WHERE ID=' + idDZ.ToString);
|
||||||
|
if (uct.typDokladu=1) or (uct.typDokladu=2) then
|
||||||
|
begin
|
||||||
|
uct.rada:= helUtils.getHeliosStrVal(Helios, '', 'SELECT Rada FROM ' + tblUctenkaH + ' WHERE ID=' + idDZ.ToString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgPolanskych.VytvorStornoVydejky(const Helios: IHelios; const idDZ: integer);
|
||||||
|
var uct: TUctenkaHlava;
|
||||||
|
itm: TUctenkaItem;
|
||||||
|
begin
|
||||||
|
uct.id:= idDZ;
|
||||||
|
uct.rada:= '';
|
||||||
|
uct.typDokladu:= helUtils.getHeliosIntVal(Helios, -1, 'SELECT TypDokladu FROM ' + tblUctenkaH + ' WHERE ID=' + idDZ.ToString);
|
||||||
|
if (uct.typDokladu=1) or (uct.typDokladu=2) then
|
||||||
|
begin
|
||||||
|
uct.rada:= helUtils.getHeliosStrVal(Helios, '', 'SELECT Rada FROM ' + tblUctenkaH + ' WHERE ID=' + idDZ.ToString);
|
||||||
|
with Helios.OpenSQL('SELECT * FROM ' + tblUctenkaR + ' WHERE IDHlava=' + idDZ.ToString + ' ORDER BY PoradiPolozky') do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
itm.id:= StrToInt(VarToStr(FieldByNameValues('ID')));
|
||||||
|
itm.idZboSklad:= StrToInt(VarToStr(FieldByNameValues('IDZboSklad')));
|
||||||
|
itm.idKmen:= helUtils.getHeliosIntVal(Helios, 0, 'SELECT IDKmenZbozi FROM ' + tblSS + ' WHERE ID=' + itm.idZboSklad.ToString);
|
||||||
|
itm.mnozstvi:= StrToFloat(VarToStr(FieldByNameValues('Mnozstvi')));
|
||||||
|
// itm.isVyrobek
|
||||||
|
itm.jcEvid:= StrToFloat(VarToStr(FieldByNameValues('ID')));
|
||||||
|
itm.jcJC:= StrToFloat(VarToStr(FieldByNameValues('ID')));
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgPolanskych.ZrusCertifikatEETTrzby(const Helios: IHelios; arrID: TArray<integer>);
|
||||||
|
var lSQL: string;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
lSQL:= '';
|
||||||
|
for i:=0 to Length(arrID)-1 do
|
||||||
|
begin
|
||||||
|
lSQL:= 'UPDATE dbo.TabEETTrzba SET SCertByName=NULL, SCertSN=NULL, SCertStoreLocation=NULL, SCertStoreName=NULL, Pocitac=N'''' WHERE ID=' + arrID[i].ToString ;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgPolanskych.Run(const Helios: IHelios);
|
||||||
|
const MinVerzeHeO = $030020220300;
|
||||||
|
var sql, IDcka, podm: string;
|
||||||
|
params, vlastTbl, vlastTbl2, verText: string;
|
||||||
|
browId, typAkce, cRec, cntID, l_loop, scrW: integer;
|
||||||
|
arrId: TArray<integer>;
|
||||||
|
contInfo, sTmp1, sTmp2: string;
|
||||||
|
fOrd: TformOrder;
|
||||||
|
fOrd2: TformOrder2;
|
||||||
|
fOrd21024: TformOrder21024;
|
||||||
|
fOrd21366: TformOrder21366;
|
||||||
|
fLikv: TformLikvidace;
|
||||||
|
fLikv1024: TformLikvidace1024;
|
||||||
|
fPrij: TformPrijem;
|
||||||
|
fPrij1024: TformPrijem1024;
|
||||||
|
fZamena: TformZamena;
|
||||||
|
begin
|
||||||
|
// Application.Handle:= Helios.MainApplicationHandle;
|
||||||
|
// Application.Icon.Handle:= Helios.MainApplicationIconHandle;
|
||||||
|
|
||||||
|
with Helios.OpenSQL('SELECT CONVERT(nvarchar(128),CONTEXT_INFO(),2)') do
|
||||||
|
if VarIsNull(FieldValues(0)) then
|
||||||
|
contInfo:= 'NULL'
|
||||||
|
else
|
||||||
|
contInfo:= VarToStr(FieldValues(0));
|
||||||
|
|
||||||
|
Helios.ExecSQL('SET CONTEXT_INFO 0x' + StringToHex2('HDC - plgPolanskych')); // nastav context v sys.sysprocesses
|
||||||
|
|
||||||
|
verText:= StringReplace(GetFileVersion2(GetModuleName(HInstance)),'.','',[rfReplaceAll]);
|
||||||
|
verText:= '0300' + MidStr(verText,3,8);
|
||||||
|
if Length(verText)=11 then
|
||||||
|
verText:= LeftStr(verText,8) + '0' + RightStr(verText,3);
|
||||||
|
|
||||||
|
{$REGION 'Region - zjistit jeTest, typAkce, browID, vlastTbl, vytvor #TabExtKom'}
|
||||||
|
jeTest:= false;
|
||||||
|
typAkce:= 0;
|
||||||
|
vlastTbl:= '';
|
||||||
|
vlastTbl2:= '';
|
||||||
|
params:= '';
|
||||||
|
with Helios.OpenSQL('SELECT Parametry FROM TabExtKom WHERE ID=' + IntToStr(Helios.ExtKomID)) do
|
||||||
|
begin
|
||||||
|
params:= VarToStr(FieldValues(0));
|
||||||
|
jeTest:= ContainsText(params, ';test');
|
||||||
|
|
||||||
|
if Pos(';',params)>0 then
|
||||||
|
begin
|
||||||
|
typAkce:= StrToInt(LeftStr(params, Pos(';', params)-1));
|
||||||
|
params:= MidStr(params,Pos(';',params)+1,255);
|
||||||
|
if (Pos(';',params)>0) then
|
||||||
|
begin
|
||||||
|
if not(TryStrToInt(LeftStr(params, Pos(';', params)-1), browId)) then
|
||||||
|
browID:= 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if not(TryStrToInt(params, browId)) then
|
||||||
|
browID:= 0;
|
||||||
|
if (Pos(';', params)>0) then // zadany 3 parametry (akce, browID, vlastnikID)
|
||||||
|
begin
|
||||||
|
params:= MidStr(params, Pos(';', params)+1,255);
|
||||||
|
vlastTbl:= params;
|
||||||
|
if (Pos(';', vlastTbl)>0) then
|
||||||
|
begin
|
||||||
|
vlastTbl:= LeftStr(vlastTbl, Pos(';', vlastTbl)-1);
|
||||||
|
vlastTbl2:= MidStr(vlastTbl, Pos(';', vlastTbl)+1,255);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
raise Exception.Create('Nem<65>m pot<6F>ebn<62> po<70>et parametr<74> !');
|
||||||
|
end;
|
||||||
|
|
||||||
|
sql:= 'IF OBJECT_ID(N''tempdb..#TabExtKom'', N''U'') IS NOT NULL DROP TABLE #TabExtKom' + CRLF;
|
||||||
|
sql:= sql + 'CREATE TABLE #TabExtKom (Poznamka nvarchar(255) NOT NULL, Typ TINYINT)';
|
||||||
|
Helios.ExecSQL(sql);
|
||||||
|
{$ENDREGION}
|
||||||
|
|
||||||
|
if (Helios.HeVersion<MinVerzeHeO) then
|
||||||
|
raise Exception.Create('Plugin vy<76>aduje min verzi Heliosu ' + IntToHex(MinVerzeHeO, 12));
|
||||||
|
|
||||||
|
IDcka:= '';
|
||||||
|
cRec:= 0;
|
||||||
|
if (Helios.SelectedRecordIDs<>'') then
|
||||||
|
IDcka:= Helios.SelectedRecordIDs
|
||||||
|
else
|
||||||
|
if not VarIsNull(Helios.CurrentRecordID) then
|
||||||
|
begin
|
||||||
|
cRec:= StrToInt(VarToStr(Helios.CurrentRecordID));
|
||||||
|
IDcka:= IntToStr(cRec);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (IDcka<>'') then
|
||||||
|
begin
|
||||||
|
cntID:= 1 + Length(IDcka)-Length(StringReplace(IDcka, ',', '', [rfReplaceAll]));
|
||||||
|
SetLength(arrID,cntID);
|
||||||
|
for l_loop:=0 to cntID-1 do
|
||||||
|
begin
|
||||||
|
if Pos(',', IDcka)>0 then
|
||||||
|
begin
|
||||||
|
arrID[l_loop]:= StrToInt(LeftStr(IDcka,Pos(',', IDcka)-1));
|
||||||
|
IDcka:= MidStr(IDcka,Pos(',', IDcka)+1, 20*1024)
|
||||||
|
end
|
||||||
|
else
|
||||||
|
arrID[l_loop]:= StrToInt(IDcka);
|
||||||
|
end;
|
||||||
|
cRec:= arrID[0];
|
||||||
|
end;
|
||||||
|
|
||||||
|
vlastTbl:= vlastTbl.Replace('''', '').Replace(';','');
|
||||||
|
|
||||||
|
scrW:= Screen.WorkAreaWidth;
|
||||||
|
|
||||||
|
case typAkce of
|
||||||
|
1: begin
|
||||||
|
sql:= 'SELECT s.ID FROM ' + tblStrom + ' s LEFT JOIN ' + tblStromE + ' se ON (se.ID=s.ID) WHERE s.Cislo=N';
|
||||||
|
sql:= sql + Helios.Sklad.QuotedString + ' AND ISNULL(se._App_Objednavka,0)=1';
|
||||||
|
with Helios.OpenSQL(sql) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
helUtils.waitStart(nil, 'Na<4E><61>t<EFBFBD>m historick<63> data...', 0, 0);
|
||||||
|
if (scrW>1020) and (scrW<1030) then
|
||||||
|
begin
|
||||||
|
fOrd21024:= TformOrder21024.Create(nil);
|
||||||
|
try
|
||||||
|
fOrd21024.Helios:= Helios;
|
||||||
|
fOrd21024.jeTest:= jeTest;
|
||||||
|
fOrd21024.oznacKOdeslani:= (vlastTbl='1');
|
||||||
|
fOrd21024.ShowModal;
|
||||||
|
finally
|
||||||
|
fOrd21024.Free;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if (scrW>1360) and (scrW<1380) then
|
||||||
|
begin
|
||||||
|
fOrd21366:= TformOrder21366.Create(nil);
|
||||||
|
try
|
||||||
|
fOrd21366.Helios:= Helios;
|
||||||
|
fOrd21366.jeTest:= jeTest;
|
||||||
|
fOrd21366.oznacKOdeslani:= (vlastTbl='1');
|
||||||
|
fOrd21366.ShowModal;
|
||||||
|
finally
|
||||||
|
fOrd21366.Free;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
fOrd2:= TformOrder2.Create(nil);
|
||||||
|
try
|
||||||
|
fOrd2.Helios:= Helios;
|
||||||
|
fOrd2.jeTest:= jeTest;
|
||||||
|
fOrd2.oznacKOdeslani:= (vlastTbl='1');
|
||||||
|
fOrd2.ShowModal;
|
||||||
|
finally
|
||||||
|
fOrd2.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Helios.Error('Na tomto sklad<61> nen<65> aplikace Objedn<64>vka povolena.');
|
||||||
|
|
||||||
|
helUtils.waitEnd;
|
||||||
|
end;
|
||||||
|
|
||||||
|
2: begin
|
||||||
|
if (Length(arrID)>1) then
|
||||||
|
Helios.Error(#1'Akci lze spustit pouze nad jednim dokladem'#1)
|
||||||
|
else
|
||||||
|
VytvorStornoVydejky(Helios, cRec);
|
||||||
|
end;
|
||||||
|
|
||||||
|
3: begin
|
||||||
|
if Length(arrId)>0 then
|
||||||
|
ZrusCertifikatEETTrzby(Helios, arrID);
|
||||||
|
end;
|
||||||
|
|
||||||
|
4: begin // z <20><>tenky generuj v<>d/stor (plg)
|
||||||
|
if (Length(arrID)>1) then
|
||||||
|
Helios.Error(#1'Akci lze spustit pouze nad jednim dokladem'#1)
|
||||||
|
else
|
||||||
|
// VytvorVydejkaDoSpotreby(Helios, cRec);
|
||||||
|
if (vlastTbl<>'') and (LeftStr(vlastTbl,4)='dbo.') then
|
||||||
|
try
|
||||||
|
sql:= 'IF OBJECT_ID(N' + vlastTbl.QuotedString + ', N''P'') IS NOT NULL EXEC ' + vlastTbl + ' ' + cRec.ToString;
|
||||||
|
if (vlastTbl2<>'') then
|
||||||
|
sql:= sql + ', ' + vlastTbl2;
|
||||||
|
Helios.ExecSQL(sql);
|
||||||
|
except on E:Exception do
|
||||||
|
Helios.Error(#1'Chyba HDC plg (4) - '#1 + E.Message);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
5: begin
|
||||||
|
// if (KontrolyLikvidaceOK(Helios)) then
|
||||||
|
begin
|
||||||
|
sql:= 'SELECT s.ID FROM ' + tblStrom + ' s LEFT JOIN ' + tblStromE + ' se ON (se.ID=s.ID) WHERE s.Cislo=N';
|
||||||
|
sql:= sql + Helios.Sklad.QuotedString + ' AND ISNULL(se._App_Likvidace,0)=1';
|
||||||
|
with Helios.OpenSQL(sql) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
helUtils.waitStart(nil, 'Na<4E><61>t<EFBFBD>m data skladu...', 0, 0);
|
||||||
|
if (scrW>1020) and (scrW<1030) then
|
||||||
|
begin
|
||||||
|
fLikv1024:= TformLikvidace1024.Create(nil);
|
||||||
|
try
|
||||||
|
fLikv1024.Helios:= Helios;
|
||||||
|
fLikv1024.jeTest:= jeTest;
|
||||||
|
fLikv1024.ShowModal;
|
||||||
|
finally
|
||||||
|
fLikv1024.Free;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
fLikv:= TformLikvidace.Create(nil);
|
||||||
|
try
|
||||||
|
fLikv.Helios:= Helios;
|
||||||
|
fLikv.jeTest:= jeTest;
|
||||||
|
fLikv.ShowModal;
|
||||||
|
finally
|
||||||
|
fLikv.Free;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Helios.Error('Na tomto sklad<61> nen<65> aplikace Likvidace povolena.');
|
||||||
|
helUtils.waitEnd;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
6: begin
|
||||||
|
sql:= 'SELECT ID FROM ' + tblPZ + ' WHERE DruhPohybuZbo=6 AND IDDoklad=' + cRec.ToString;
|
||||||
|
with Helios.OpenSQL(sql) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
sql:= 'SELECT p.ID FROM ' + tblPZ + ' p LEFT JOIN ' + tblPZe + ' pe ON (pe.ID=p.ID) INNER JOIN ' + tblDZ + ' d ON (d.ID=p.IDDoklad) WHERE d.DruhPohybuZbo=6 AND d.ID=' + cRec.ToString;
|
||||||
|
sql:= sql + ' AND (p.Mnozstvi-p.MnOdebrane-p.MnozstviStorno)>0 AND d.Splneno=0';
|
||||||
|
with Helios.OpenSQL(sql) do
|
||||||
|
if (RecordCount=0) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Vydan<61> objedn<64>vka je pln<6C> p<>evedena do p<><70>jemky, akci nelze opakovat.'#1);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
helUtils.waitStart(nil, 'Na<4E><61>t<EFBFBD>m data objedn<64>vky...', 0, 0);
|
||||||
|
if (scrW>1020) and (scrW<1030) then
|
||||||
|
begin
|
||||||
|
fPrij1024:= TformPrijem1024.Create(nil);
|
||||||
|
try
|
||||||
|
fPrij1024.idDZ:= cRec;
|
||||||
|
fPrij1024.Helios:= Helios;
|
||||||
|
fPrij1024.jeTest:= jeTest;
|
||||||
|
fPrij1024.ShowModal;
|
||||||
|
finally
|
||||||
|
fPrij1024.Free;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if (scrW>1360) then
|
||||||
|
begin
|
||||||
|
fPrij:= TformPrijem.Create(nil);
|
||||||
|
try
|
||||||
|
fPrij.idDZ:= cRec;
|
||||||
|
fPrij.Helios:= Helios;
|
||||||
|
fPrij.jeTest:= jeTest;
|
||||||
|
fPrij.ShowModal;
|
||||||
|
finally
|
||||||
|
fPrij.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
helUtils.waitEnd;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Helios.Error(#1'! Na dokladu Vydan<61> objedn<64>vky nejsou polo<6C>ky !'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
7: begin
|
||||||
|
sql:= 'SELECT s.ID FROM ' + tblStrom + ' s LEFT JOIN ' + tblStromE + ' se ON (se.ID=s.ID) WHERE s.Cislo=N';
|
||||||
|
sql:= sql + Helios.Sklad.QuotedString + ' AND ISNULL(se._App_Zamena,0)=1';
|
||||||
|
with Helios.OpenSQL(sql) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
fZamena:= TformZamena.Create(nil);
|
||||||
|
try
|
||||||
|
fZamena.Helios:= Helios;
|
||||||
|
fZamena.jeTest:= jeTest;
|
||||||
|
fZamena.ShowModal;
|
||||||
|
finally
|
||||||
|
fZamena.Free;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
Helios.Error('Na tomto sklad<61> nen<65> aplikace Z<>m<EFBFBD>na povolena.');
|
||||||
|
end;
|
||||||
|
|
||||||
|
8: begin
|
||||||
|
if (cRec>0) then
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
Helios.ExecSQL('IF OBJECT_ID(N''dbo.ep_HDC_NavazneDoklady'', N''P'') IS NOT NULL EXEC dbo.ep_HDC_NavazneDoklady @IDSrc=' + cRec.ToString);
|
||||||
|
Helios.OpenBrowse(231, '');
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Helios.Refresh(true);
|
||||||
|
if (contInfo='NULL') then
|
||||||
|
Helios.ExecSQL('SET CONTEXT_INFO 0x00')
|
||||||
|
else
|
||||||
|
Helios.ExecSQL('SET CONTEXT_INFO 0x' + contInfo); // vymaz context v sys.sysprocesses
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
TComObjectFactory.Create(ComServer, TplgPolanskych, Class_plgPolanskych, 'runMe', '', ciMultiInstance, tmSingle);
|
||||||
|
TStyleManager.SystemHooks := [];
|
||||||
|
// stylWin10:= TStyleManager.LoadFromResource(HInstance, 'stylWin10Blue');
|
||||||
|
// TStyleManager.SetStyle(stylWin10);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
277
datModObj.dfm
Normal file
277
datModObj.dfm
Normal file
@ -0,0 +1,277 @@
|
|||||||
|
object dmObj: TdmObj
|
||||||
|
Height = 240
|
||||||
|
Width = 640
|
||||||
|
PixelsPerInch = 96
|
||||||
|
object vTabObj: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
Left = 24
|
||||||
|
Top = 20
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Required = True
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev: TStringField
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabRano: TFloatField
|
||||||
|
DisplayLabel = 'R'#225'no'
|
||||||
|
FieldName = 'Rano'
|
||||||
|
end
|
||||||
|
object vTabDoporuceno: TFloatField
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
end
|
||||||
|
object vTabPoledne: TFloatField
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
end
|
||||||
|
object vTabStavSkladu: TFloatField
|
||||||
|
DisplayLabel = 'Stav skladu'
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
end
|
||||||
|
object vTabPriorita: TIntegerField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabCisloZbozi: TStringField
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
object vTabIDKZ: TIntegerField
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabDodavatel: TIntegerField
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabJenRano: TSmallintField
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabMinimum: TFloatField
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabDelitelnost: TFloatField
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSingleField
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object Delitelnost: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Minimum: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object JenRano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Dodavatel: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object IDKZ: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object Nazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object StavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Doporuceno: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Rano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Rano'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Poledne: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Priorita: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 3
|
||||||
|
end
|
||||||
|
object CisloZbozi: TMTStringDataFieldEh
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsObj: TDataSource
|
||||||
|
DataSet = vTabObj
|
||||||
|
Left = 85
|
||||||
|
Top = 21
|
||||||
|
end
|
||||||
|
end
|
||||||
178
datModObj.pas
Normal file
178
datModObj.pas
Normal file
@ -0,0 +1,178 @@
|
|||||||
|
unit datModObj;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
System.SysUtils, System.Classes, MemTableDataEh, Data.DB, MemTableEh, ddPlugin_TLB, Vcl.ComCtrls;
|
||||||
|
|
||||||
|
const
|
||||||
|
CRLF = #13#10;
|
||||||
|
|
||||||
|
type
|
||||||
|
TdmObj = class(TDataModule)
|
||||||
|
vTabObj: TMemTableEh;
|
||||||
|
dsObj: TDataSource;
|
||||||
|
vTabPoradiSort: TSingleField;
|
||||||
|
vTabK1: TStringField;
|
||||||
|
vTabK2: TStringField;
|
||||||
|
vTabSortiment: TStringField;
|
||||||
|
vTabIDZboSklad: TIntegerField;
|
||||||
|
vTabRegCis: TStringField;
|
||||||
|
vTabNazev: TStringField;
|
||||||
|
vTabRano: TFloatField;
|
||||||
|
vTabPoledne: TFloatField;
|
||||||
|
vTabStavSkladu: TFloatField;
|
||||||
|
vTabDoporuceno: TFloatField;
|
||||||
|
vTabPriorita: TIntegerField;
|
||||||
|
vTabCisloZbozi: TStringField;
|
||||||
|
vTabIDKZ: TIntegerField;
|
||||||
|
vTabSkupZbo: TStringField;
|
||||||
|
vTabDodavatel: TIntegerField;
|
||||||
|
vTabJenRano: TSmallintField;
|
||||||
|
vTabMinimum: TFloatField;
|
||||||
|
vTabDelitelnost: TFloatField;
|
||||||
|
vTabPoradi: TSingleField;
|
||||||
|
vTabK1K2: TStringField;
|
||||||
|
vTabPoradiSortNazev: TStringField;
|
||||||
|
procedure vTabRanoValidate(Sender: TField);
|
||||||
|
procedure vTabPoledneValidate(Sender: TField);
|
||||||
|
procedure vTabAfterPost(DataSet: TDataSet);
|
||||||
|
procedure vTabAfterDelete(DataSet: TDataSet);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
procedure ZapisObjednavky(tbl: TMemTableEh; cOrgDod, cisloObj: integer; dt: TDatetimePicker);
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
dmObj: TdmObj;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses System.Variants, frmOrder2, frmOrder21024, frmOrder21366;
|
||||||
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmObj.ZapisObjednavky(tbl: TMemTableEh; cOrgDod, cisloObj: integer; dt: TDatetimePicker);
|
||||||
|
var lSQL: string;
|
||||||
|
idH, i: integer;
|
||||||
|
begin
|
||||||
|
if (tbl.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
idH:= 0;
|
||||||
|
lSQL:= 'INSERT dbo._HDC_Objednavky (CisloOrg, IDSklad, CisloObj, DatPozadavek) SELECT ISNULL(TRY_PARSE(N' + cOrgDod.ToString.Replace(';', '').Replace('-','').Replace(' ', '').QuotedString;
|
||||||
|
lSQL:= lSQL + ' AS INT), 0), N' + Helios.Sklad.QuotedString + ', ' + cisloObj.ToString + ', CONVERT(datetime, N' + FormatDateTime('d.m.yyyy', dt.Date).QuotedString + ', 104)' + CRLF;
|
||||||
|
lSQL:= lSQL + 'SELECT SCOPE_IDENTITY()';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
idH:= VarToStr(FieldValues(0)).ToInteger;
|
||||||
|
|
||||||
|
tbl.DisableControls;
|
||||||
|
i:= tbl.RecNo;
|
||||||
|
tbl.First;
|
||||||
|
while not(tbl.Eof) do
|
||||||
|
begin
|
||||||
|
if (tbl.FieldByName('Rano').AsSingle>0) or (tbl.FieldByName('Poledne').AsSingle>0) then
|
||||||
|
begin
|
||||||
|
lSQL:= 'INSERT dbo._HDC_ObjednavkyR (IDHlava, IDZboSklad, MnRano, MnPoledne) SELECT ' + idH.ToString + ', ' + tbl.FieldByName('IDZboSklad').AsString;
|
||||||
|
lSQL:= lSQL + ', ' + tbl.FieldByName('Rano').AsSingle.ToString + ', ' + tbl.FieldByName('Poledne').AsSingle.ToString;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
end;
|
||||||
|
tbl.Next;
|
||||||
|
end;
|
||||||
|
tbl.RecNo:= i;
|
||||||
|
tbl.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmObj.vTabAfterDelete(DataSet: TDataSet);
|
||||||
|
begin
|
||||||
|
if (formOrder2.Visible) then
|
||||||
|
formOrder2.btnVynulovat.Enabled:= (DataSet.RecordCount>0);
|
||||||
|
if (formOrder21024.Visible) then
|
||||||
|
formOrder21024.btnVynulovat.Enabled:= (DataSet.RecordCount>0);
|
||||||
|
if (formOrder21366.Visible) then
|
||||||
|
formOrder21366.btnVynulovat.Enabled:= (DataSet.RecordCount>0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmObj.vTabAfterPost(DataSet: TDataSet);
|
||||||
|
begin
|
||||||
|
if (formOrder2.Visible) then
|
||||||
|
formOrder2.btnVynulovat.Enabled:= (DataSet.RecordCount>0);
|
||||||
|
if (formOrder21024.Visible) then
|
||||||
|
formOrder21024.btnVynulovat.Enabled:= (DataSet.RecordCount>0);
|
||||||
|
if (formOrder21366.Visible) then
|
||||||
|
formOrder21366.btnVynulovat.Enabled:= (DataSet.RecordCount>0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmObj.vTabPoledneValidate(Sender: TField);
|
||||||
|
var canCont: Boolean;
|
||||||
|
mv, mm: Single;
|
||||||
|
begin
|
||||||
|
canCont:= true;
|
||||||
|
mv:= TField(Sender).AsFloat;
|
||||||
|
mm:= TField(Sender).DataSet.FieldByName('Minimum').AsSingle;
|
||||||
|
|
||||||
|
if (TField(Sender).AsInteger<>0) and (TField(Sender).DataSet.FieldByName('JenRano').AsInteger=1) then
|
||||||
|
begin
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
Helios.Error(#1'Položka "' + TField(Sender).DataSet.FieldByName('RegCis').AsString +'" je určena jen pro ranní závoz.'#1);
|
||||||
|
canCont:= false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) and (TField(Sender).AsInteger<0) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Položka "' + TField(Sender).DataSet.FieldByName('RegCis').AsString +'" je určena jen pro ranní závoz.'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) and (mv<mm) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Minimální množství je ' + FormatFloat('#,##0.###', mm) + #1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(canCont) then
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmObj.vTabRanoValidate(Sender: TField);
|
||||||
|
var canCont: Boolean;
|
||||||
|
mv, mm: Single;
|
||||||
|
begin
|
||||||
|
canCont:= true;
|
||||||
|
mv:= TField(Sender).AsFloat;
|
||||||
|
mm:= TField(Sender).DataSet.FieldByName('Minimum').AsSingle;
|
||||||
|
|
||||||
|
if (TField(Sender).AsInteger<0) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Lze zadávat jen kladná čísla.'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) and (mv<mm) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Minimální množství je ' + FormatFloat('#,##0.###', mm) + #1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(canCont) then
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
217
datModPrij.dfm
Normal file
217
datModPrij.dfm
Normal file
@ -0,0 +1,217 @@
|
|||||||
|
object dmPrij: TdmPrij
|
||||||
|
Height = 240
|
||||||
|
Width = 640
|
||||||
|
PixelsPerInch = 96
|
||||||
|
object vTabPrij: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
Options = [mtoPersistentStructEh]
|
||||||
|
OnFilterRecord = vTabFilterRecord
|
||||||
|
Left = 27
|
||||||
|
Top = 17
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSmallintField
|
||||||
|
DisplayLabel = 'Po'#345'ad'#237
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
DisplayFormat = '#0'
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
DisplayLabel = #268#237'slo'
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Required = True
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev1: TStringField
|
||||||
|
DisplayLabel = 'N'#225'zev'
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabMnozstvi: TFloatField
|
||||||
|
DisplayLabel = 'Mno'#382'stv'#237
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
OnValidate = vTabMnozstviValidate
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabIDPohybZboziObj: TIntegerField
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabTypZavozu: TStringField
|
||||||
|
FieldName = 'TypZavozu'
|
||||||
|
Visible = False
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object vTabPoradiExt: TSingleField
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabJCbezDaniKc: TSingleField
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object JCbezDaniKc: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object PoradiExt: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object TypZavozu: TMTStringDataFieldEh
|
||||||
|
FieldName = 'TypZavozu'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 1
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Nazev1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 30
|
||||||
|
Required = True
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Mnozstvi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object IDPohybZboziObj: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsPrij: TDataSource
|
||||||
|
DataSet = vTabPrij
|
||||||
|
Left = 100
|
||||||
|
Top = 18
|
||||||
|
end
|
||||||
|
end
|
||||||
142
datModPrij.pas
Normal file
142
datModPrij.pas
Normal file
@ -0,0 +1,142 @@
|
|||||||
|
unit datModPrij;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
System.SysUtils, System.Classes, MemTableDataEh, Data.DB, MemTableEh, ddPlugin_TLB;
|
||||||
|
|
||||||
|
type
|
||||||
|
TdmPrij = class(TDataModule)
|
||||||
|
vTabPrij: TMemTableEh;
|
||||||
|
dsPrij: TDataSource;
|
||||||
|
vTabPoradiSort: TSingleField;
|
||||||
|
vTabPoradi: TSmallintField;
|
||||||
|
vTabPoradiSortNazev: TStringField;
|
||||||
|
vTabNazev1: TStringField;
|
||||||
|
vTabRegCis: TStringField;
|
||||||
|
vTabSkupZbo: TStringField;
|
||||||
|
vTabIDZboSklad: TIntegerField;
|
||||||
|
vTabMnozstvi: TFloatField;
|
||||||
|
vTabIDPohybZboziObj: TIntegerField;
|
||||||
|
vTabSortiment: TStringField;
|
||||||
|
vTabK2: TStringField;
|
||||||
|
vTabK1: TStringField;
|
||||||
|
vTabTypZavozu: TStringField;
|
||||||
|
vTabPoradiExt: TSingleField;
|
||||||
|
vTabK1K2: TStringField;
|
||||||
|
vTabJCbezDaniKc: TSingleField;
|
||||||
|
procedure vTabFilterRecord(DataSet: TDataSet; var Accept: Boolean);
|
||||||
|
procedure vTabMnozstviValidate(Sender: TField);
|
||||||
|
procedure vTabRanoValidate(Sender: TField);
|
||||||
|
procedure vTabPoledneValidate(Sender: TField);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
dmPrij: TdmPrij;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses frmPrijem;
|
||||||
|
|
||||||
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmPrij.vTabFilterRecord(DataSet: TDataSet; var Accept: Boolean);
|
||||||
|
var t: string;
|
||||||
|
begin
|
||||||
|
if (vTabPrij.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
t:= vTabPrij.FieldByName('TypZavozu').AsString;
|
||||||
|
case formPrijem.cbZavoz.ItemIndex of
|
||||||
|
0: Accept:= (t='R');
|
||||||
|
1: Accept:= (t='P');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmPrij.vTabMnozstviValidate(Sender: TField);
|
||||||
|
var canCont: Boolean;
|
||||||
|
mv, mm: Single;
|
||||||
|
begin
|
||||||
|
canCont:= true;
|
||||||
|
mv:= TField(Sender).AsFloat;
|
||||||
|
if (mv<0) then
|
||||||
|
canCont:=false;
|
||||||
|
|
||||||
|
if not(canCont) then
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmPrij.vTabPoledneValidate(Sender: TField);
|
||||||
|
var canCont: Boolean;
|
||||||
|
mv, mm: Single;
|
||||||
|
begin
|
||||||
|
canCont:= true;
|
||||||
|
mv:= TField(Sender).AsFloat;
|
||||||
|
mm:= TField(Sender).DataSet.FieldByName('Minimum').AsSingle;
|
||||||
|
|
||||||
|
if (TField(Sender).AsInteger<>0) and (TField(Sender).DataSet.FieldByName('JenRano').AsInteger=1) then
|
||||||
|
begin
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
Helios.Error(#1'Položka "' + TField(Sender).DataSet.FieldByName('RegCis').AsString +'" je určena jen pro ranní závoz.'#1);
|
||||||
|
canCont:= false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) and (TField(Sender).AsInteger<0) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Položka "' + TField(Sender).DataSet.FieldByName('RegCis').AsString +'" je určena jen pro ranní závoz.'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) and (mv<mm) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Minimální množství je ' + FormatFloat('#,##0.###', mm) + #1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(canCont) then
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmPrij.vTabRanoValidate(Sender: TField);
|
||||||
|
var canCont: Boolean;
|
||||||
|
mv, mm: Single;
|
||||||
|
begin
|
||||||
|
canCont:= true;
|
||||||
|
mv:= TField(Sender).AsFloat;
|
||||||
|
mm:= TField(Sender).DataSet.FieldByName('Minimum').AsSingle;
|
||||||
|
|
||||||
|
if (TField(Sender).AsInteger<0) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Lze zadávat jen kladná čísla.'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) and (mv<mm) then
|
||||||
|
begin
|
||||||
|
canCont:= false;
|
||||||
|
Helios.Error(#1'Minimální množství je ' + FormatFloat('#,##0.###', mm) + #1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(canCont) then
|
||||||
|
TField(Sender).DataSet.Cancel;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
384
frmLikvidace.dfm
Normal file
384
frmLikvidace.dfm
Normal file
@ -0,0 +1,384 @@
|
|||||||
|
object formLikvidace: TformLikvidace
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' V'#221'DEJ ZBO'#381#205' K LIKVIDACI'
|
||||||
|
ClientHeight = 744
|
||||||
|
ClientWidth = 1364
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1364
|
||||||
|
744)
|
||||||
|
TextHeight = 25
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 14
|
||||||
|
Top = 12
|
||||||
|
Width = 1058
|
||||||
|
Height = 709
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object grdPol: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 1054
|
||||||
|
Height = 680
|
||||||
|
Align = alClient
|
||||||
|
AllowedSelections = []
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.Color = 13425149
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_0_NazevSort'
|
||||||
|
end>
|
||||||
|
DataGrouping.ParentColor = False
|
||||||
|
DataSource = dSource
|
||||||
|
DynProps = <>
|
||||||
|
GridLineParams.ColorScheme = glcsThemedEh
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnGetCellParams = grdPolGetCellParams
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'NazevSort'
|
||||||
|
Footers = <>
|
||||||
|
MRUList.AutoAdd = False
|
||||||
|
STFilter.Visible = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Zbo'#382#237'|'#268#237'slo'
|
||||||
|
Width = 189
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Zbo'#382#237'|N'#225'zev'
|
||||||
|
Width = 572
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '###0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Mno'#382'stv'#237'|Stav skladu'
|
||||||
|
Width = 125
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '###0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'KeVraceni'
|
||||||
|
Footers = <>
|
||||||
|
Layout = tlCenter
|
||||||
|
Title.Caption = 'Mno'#382'stv'#237'|Ke vr'#225'cen'#237
|
||||||
|
Width = 124
|
||||||
|
OnAdvDrawDataCell = grdPolColumns4AdvDrawDataCell
|
||||||
|
OnGetCellParams = grdPolColumns4GetCellParams
|
||||||
|
OnUpdateData = grdPolColumns4UpdateData
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 1102
|
||||||
|
Top = 66
|
||||||
|
Width = 244
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it v'#253'dej k likvidaci'
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 1102
|
||||||
|
Top = 209
|
||||||
|
Width = 244
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 1102
|
||||||
|
Top = 277
|
||||||
|
Width = 244
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 1102
|
||||||
|
Top = 385
|
||||||
|
Width = 244
|
||||||
|
Height = 65
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Zav'#345#237't (bez ulo'#382'en'#237')'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 1089
|
||||||
|
Top = 663
|
||||||
|
Width = 166
|
||||||
|
Height = 50
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = '(HDC) Save tbl'
|
||||||
|
TabOrder = 5
|
||||||
|
Visible = False
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object btnNuluj: TButton
|
||||||
|
Left = 1089
|
||||||
|
Top = 594
|
||||||
|
Width = 253
|
||||||
|
Height = 50
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = '(HDC) Vymazat mno'#382'stv'#237
|
||||||
|
TabOrder = 6
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnNulujClick
|
||||||
|
end
|
||||||
|
object dSource: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 1224
|
||||||
|
Top = 10
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
Left = 1278
|
||||||
|
Top = 12
|
||||||
|
object vTabSortimentK1: TStringField
|
||||||
|
Alignment = taCenter
|
||||||
|
FieldName = 'K1'
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabSortimentK2: TStringField
|
||||||
|
Alignment = taCenter
|
||||||
|
FieldName = 'K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabNazevSort: TStringField
|
||||||
|
DisplayLabel = 'Sortiment'
|
||||||
|
FieldName = 'NazevSort'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev1: TStringField
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabStavSkladu: TFloatField
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
DisplayFormat = '0'
|
||||||
|
EditFormat = '0'
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object vTabKeVraceni: TFloatField
|
||||||
|
FieldName = 'KeVraceni'
|
||||||
|
DisplayFormat = '0'
|
||||||
|
EditFormat = '0'
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object vTabIDStavSkladu: TIntegerField
|
||||||
|
FieldName = 'IDStavSkladu'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabAktDodavatel: TIntegerField
|
||||||
|
FieldName = 'AktDodavatel'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPriorita: TIntegerField
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Visible = False
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradiVSort: TSingleField
|
||||||
|
FieldName = 'PoradiVSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object PoradiVSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiVSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object Priorita: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 2
|
||||||
|
currency = False
|
||||||
|
Precision = 0
|
||||||
|
end
|
||||||
|
object AktDodavatel: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'AktDodavatel'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object IDStavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDStavSkladu'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object KeVraceni: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'KeVraceni'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '0'
|
||||||
|
currency = False
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object StavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '0'
|
||||||
|
currency = False
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object Nazev1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object NazevSort: TMTStringDataFieldEh
|
||||||
|
FieldName = 'NazevSort'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
426
frmLikvidace.pas
Normal file
426
frmLikvidace.pas
Normal file
@ -0,0 +1,426 @@
|
|||||||
|
unit frmLikvidace;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Types, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, System.ImageList, Vcl.StdCtrls, Vcl.Buttons,
|
||||||
|
Vcl.ComCtrls, ddPlugin_TLB, TBPackageU, Vcl.WinXPickers, Vcl.Mask, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls,
|
||||||
|
DynVarsEh, Data.DB, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh, MemDS, MemTableDataEh, MemTableEh;
|
||||||
|
|
||||||
|
type
|
||||||
|
TWideStringHelper = record helper for WideString
|
||||||
|
function QuotedString: string; overload;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TformLikvidace = class(TForm)
|
||||||
|
gbPolozky: TGroupBox;
|
||||||
|
btnOK: TButton;
|
||||||
|
btnRozbalit: TButton;
|
||||||
|
btnSbalit: TButton;
|
||||||
|
btnZavrit: TButton;
|
||||||
|
dSource: TDataSource;
|
||||||
|
vTab: TMemTableEh;
|
||||||
|
vTabSortimentK1: TStringField;
|
||||||
|
vTabSortimentK2: TStringField;
|
||||||
|
vTabSkupZbo: TStringField;
|
||||||
|
vTabRegCis: TStringField;
|
||||||
|
vTabNazev1: TStringField;
|
||||||
|
vTabStavSkladu: TFloatField;
|
||||||
|
vTabKeVraceni: TFloatField;
|
||||||
|
vTabNazevSort: TStringField;
|
||||||
|
Button1: TButton;
|
||||||
|
grdPol: TDBGridEh;
|
||||||
|
vTabIDStavSkladu: TIntegerField;
|
||||||
|
vTabAktDodavatel: TIntegerField;
|
||||||
|
vTabPriorita: TIntegerField;
|
||||||
|
vTabPoradiSortNazev: TStringField;
|
||||||
|
vTabK1K2: TStringField;
|
||||||
|
vTabPoradiVSort: TSingleField;
|
||||||
|
btnNuluj: TButton;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure btnZavritClick(Sender: TObject);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure grdPolColumns4GetCellParams(Sender: TObject; EditMode: Boolean; Params: TColCellParamsEh);
|
||||||
|
procedure grdPolColumns4UpdateData(Sender: TObject; var Text: string; var Value: Variant; var UseText,
|
||||||
|
Handled: Boolean);
|
||||||
|
procedure btnRozbalitClick(Sender: TObject);
|
||||||
|
procedure btnSbalitClick(Sender: TObject);
|
||||||
|
procedure grdPolColumns4AdvDrawDataCell(Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord; Column: TColumnEh;
|
||||||
|
const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
|
||||||
|
procedure btnOKClick(Sender: TObject);
|
||||||
|
procedure grdPolGetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
|
||||||
|
State: TGridDrawState);
|
||||||
|
procedure btnNulujClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure NactiData;
|
||||||
|
function ZjistiBranchID: Integer;
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
jeTest: boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
formLikvidace: TformLikvidace;
|
||||||
|
branchId: integer;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses System.StrUtils, System.RegularExpressions, helUtils;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
function TWideStringHelper.QuotedString: string;
|
||||||
|
begin
|
||||||
|
Result:= string(Self).QuotedString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function TformLikvidace.ZjistiBranchID: Integer;
|
||||||
|
var s: string;
|
||||||
|
begin
|
||||||
|
result:= -1;
|
||||||
|
s:= Helios.Sklad;
|
||||||
|
if (LeftStr(s, 3)='005') then
|
||||||
|
result:= RightStr(s, 1).ToInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.btnOKClick(Sender: TObject);
|
||||||
|
var lSQL, cZbo: string;
|
||||||
|
begin
|
||||||
|
if (Helios.YesNo('Opravdu ulo<6C>it doklad k likvidaci ?', false)) then
|
||||||
|
begin
|
||||||
|
lSQL:= 'IF OBJECT_ID(N''dbo._temp_TabLikvidaceR'') IS NOT NULL DELETE FROM dbo._temp_TabLikvidaceR WHERE Autor=SUSER_SNAME()' + CRLF;
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''dbo._temp_TabLikvidaceR'') IS NOT NULL' + CRLF + ' IF NOT EXISTS(SELECT * FROM dbo._temp_TabLikvidaceR)' + CRLF;
|
||||||
|
lSQL:= lSQL + ' DROP TABLE dbo._temp_TabLikvidaceR' + CRLF;
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''tempdb..#HDC_TabLikvidaceR'') IS NOT NULL DROP TABLE #HDC_TabLikvidaceR' + CRLF;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
if (vTab.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''tempdb..#HDC_TabLikvidaceR'') IS NULL' + CRLF;
|
||||||
|
lSQL:= lSQL + ' CREATE TABLE #HDC_TabLikvidaceR (ID INT IDENTITY(1,1) NOT NULL, Sklad NVARCHAR(30), Autor NVARCHAR(80) NOT NULL DEFAULT SUSER_SNAME(), IDZboSklad INT NOT NULL';
|
||||||
|
lSQL:= lSQL + ', Mnozstvi NUMERIC(15,4) NOT NULL DEFAULT 0.0, CisloZbozi NVARCHAR(33) NOT NULL, DatPorizeni DATETIME NOT NULL DEFAULT GETDATE())';
|
||||||
|
if (jeTest) then
|
||||||
|
begin
|
||||||
|
lSQL:= lSQL.Replace('tempdb..#HDC_TabLi', 'dbo._temp_TabLi');
|
||||||
|
lSQL:= lSQL.Replace('#HDC_TabLi', 'dbo._temp_TabLi');
|
||||||
|
end;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
vTab.First;
|
||||||
|
while not(vTab.Eof) do
|
||||||
|
begin
|
||||||
|
if (vTab.FieldByName('IDStavSkladu').AsInteger>0) and (vTab.FieldByName('KeVraceni').AsFloat>0) then
|
||||||
|
begin
|
||||||
|
cZbo:= vTab.FieldByName('SkupZbo').AsString + vTab.FieldByName('RegCis').AsString;
|
||||||
|
lSQL:= 'INSERT #HDC_TabLikvidaceR (IDZboSklad, Sklad, Mnozstvi, CisloZbozi) SELECT ' + vTab.FieldByName('IDStavSkladu').AsString + ', N' + Helios.Sklad.QuotedString + ', ';
|
||||||
|
lSQL:= lSQL + vTab.FieldByName('KeVraceni').AsString.Replace(',', '.') + ', N' + cZbo.QuotedString;
|
||||||
|
if (jeTest) then
|
||||||
|
lSQL:= lSQL.Replace('#HDC_TabLi', 'dbo._temp_TabLi');
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
end;
|
||||||
|
vTab.Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(jeTest) then
|
||||||
|
begin
|
||||||
|
helUtils.waitStart(self, 'Prob<6F>h<EFBFBD> generov<6F>n<EFBFBD> likvidace/v<>dejky...', 0, 0);
|
||||||
|
try
|
||||||
|
Helios.ExecSQL('IF OBJECT_ID(N''dbo.ep_HDC_App_Likvidace'') IS NOT NULL EXEC dbo.ep_HDC_App_Likvidace @Sklad=N' + Helios.Sklad.QuotedString);
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
helUtils.waitEnd;
|
||||||
|
end;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.btnRozbalitClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
grdPol.DataGrouping.ActiveGroupLevels[0].ExpandNodes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.btnSbalitClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
grdPol.DataGrouping.ActiveGroupLevels[0].CollapseNodes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.btnZavritClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.Button1Click(Sender: TObject);
|
||||||
|
var s: string;
|
||||||
|
begin
|
||||||
|
s:= ExtractFilePath(GetModuleName(hInstance));
|
||||||
|
s:= GetEnvironmentVariable('USERPROFILE') + '/Desktop/';
|
||||||
|
vTab.SaveToFile(s + 'data.vtd');
|
||||||
|
Helios.Info(#1'Ulo<6C>eno na plochu - data.vtd'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.btnNulujClick(Sender: TObject);
|
||||||
|
var i: integer;
|
||||||
|
begin
|
||||||
|
if (vTab.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
i:= vTab.RecNo;
|
||||||
|
vTab.DisableControls;
|
||||||
|
vTab.First;
|
||||||
|
while not(vTab.Eof) do
|
||||||
|
begin
|
||||||
|
vTab.Edit;
|
||||||
|
vTab.FieldByName('KeVraceni').AsInteger:= 0;
|
||||||
|
vTab.Post;
|
||||||
|
vTab.Next;
|
||||||
|
end;
|
||||||
|
vTab.RecNo:= i;
|
||||||
|
vTab.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
if (vTab.Active) then
|
||||||
|
vTab.Close;
|
||||||
|
Action:= caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.NactiData;
|
||||||
|
var lSQL: string;
|
||||||
|
nazevSort, nazevSort2, K1, K2: string;
|
||||||
|
idSort: integer;
|
||||||
|
poradiSort, poradiSort2: Single;
|
||||||
|
begin
|
||||||
|
lSQL:= 'SELECT DISTINCT(k.IDSortiment) AS IDSortiment, s.K1, s.K2, s.Nazev FROM ' + tblKZ + ' k INNER JOIN ' + tblSortim + ' s ON (s.ID=k.IDSortiment)';
|
||||||
|
lSQL:= lSQL + ' LEFT JOIN' + tblSortimE + ' se ON (se.ID=s.ID) INNER JOIN ' + tblSS + ' ss ON (ss.IDKmenZbozi=k.ID AND ss.IDSklad=N' + Helios.Sklad.QuotedString;
|
||||||
|
lSQL:= lSQL + ') WHERE (s.K1 IN (SELECT so.K1 FROM ' + tblSortim + ' so INNER JOIN ' + tblSortimE + ' soe ON (soe.ID=so.ID) WHERE soe._ProLikvidaci=1)';
|
||||||
|
lSQL:= lSQL + ' OR ISNULL(se._ProLikvidaci,0)=1) AND ss.Mnozstvi>0 AND ISNULL(s.K2,N'''')<>N'''' ORDER BY s.Nazev';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
if not(vTab.Active) then
|
||||||
|
vTab.Open;
|
||||||
|
First;
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
idSort:= VarToStr(FieldByNameValues('IDSortiment')).ToInteger;
|
||||||
|
K1:= VarToStr(FieldByNameValues('K1'));
|
||||||
|
K2:= VarToStr(FieldByNameValues('K2'));
|
||||||
|
|
||||||
|
lSQL:= 'SELECT ISNULL(se.';
|
||||||
|
case branchID of
|
||||||
|
1: lSQL:= lSQL + '_PoradiObj_Klas1';
|
||||||
|
2: lSQL:= lSQL + '_PoradiObj_MozPi';
|
||||||
|
3: lSQL:= lSQL + '_PoradiObj_MozVod';
|
||||||
|
else
|
||||||
|
lSQL:= lSQL + '_priorita';
|
||||||
|
end;
|
||||||
|
lSQL:= lSQL + ', ISNULL(se._priorita, 999)) FROM ' + tblSortim + ' s LEFT JOIN ' + tblSortimE + ' se ON (se.ID=s.ID) WHERE K2 IS NULL AND K1=N' + k1.QuotedString;
|
||||||
|
poradiSort:= helUtils.getHeliosFloatVal(Helios, 0, lSQL);
|
||||||
|
|
||||||
|
lSQL:= 'SELECT ISNULL(se.';
|
||||||
|
case branchID of
|
||||||
|
1: lSQL:= lSQL + '_PoradiObj_Klas1';
|
||||||
|
2: lSQL:= lSQL + '_PoradiObj_MozPi';
|
||||||
|
3: lSQL:= lSQL + '_PoradiObj_MozVod';
|
||||||
|
else
|
||||||
|
lSQL:= lSQL + '_priorita';
|
||||||
|
end;
|
||||||
|
lSQL:= lSQL + ', ISNULL(se._priorita, 999)) FROM ' + tblSortim + ' s LEFT JOIN ' + tblSortimE + ' se ON (se.ID=s.ID) WHERE K3 IS NULL AND K2=N' + k2.QuotedString;
|
||||||
|
lSQL:= lSQL + ' AND K1=N' + k1.QuotedString;
|
||||||
|
poradiSort2:= helUtils.getHeliosFloatVal(Helios, 0, lSQL);
|
||||||
|
|
||||||
|
{
|
||||||
|
nazevSort:= K2 + ' ' + VarToStr(FieldByNameValues('Nazev'));
|
||||||
|
nazevSort2:= VarToStr(FieldByNameValues('Nazev'));
|
||||||
|
vTab.Append;
|
||||||
|
vTab.FieldByName('K1').AsString:= K1;
|
||||||
|
vTab.FieldByName('K2').AsString:= K2;
|
||||||
|
vTab.FieldByName('NazevSort').AsString:= nazevSort;
|
||||||
|
vTab.Post;
|
||||||
|
}
|
||||||
|
lSQL:= 'SELECT k.SkupZbo, k.RegCis, k.Nazev1, so.Nazev, s.Mnozstvi, s.ID AS idSS, ISNULL(k.Aktualni_Dodavatel, -1) AS Aktualni_Dodavatel, ISNULL(ke._priorita, 0) AS Priorita';
|
||||||
|
lSQL:= lSQL + ', ISNULL(ke._poradivsortimentu, ISNULL(ke._poradivsortimentu, 999)) AS PoradiVSort';
|
||||||
|
lSQL:= lSQL + ' FROM ' + tblKZ;
|
||||||
|
lSQL:= lSQL + ' k INNER JOIN ' + tblKZe + ' ke ON (ke.ID=k.ID) INNER JOIN ' + tblSortim + ' so ON (so.ID=k.IDSortiment) INNER JOIN ';
|
||||||
|
lSQL:= lSQL + tblSS + ' s ON (s.IDKmenZbozi=k.ID AND s.IDSklad=N' + Helios.Sklad.QuotedString + ') WHERE so.K1=N' + K1.QuotedString;
|
||||||
|
lSQL:= lSQL + ' AND so.K2=N' + K2.QuotedString + ' AND so.K3 IS NULL AND s.Mnozstvi>0 ORDER BY k.SkupZbo, k.RegCis';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
vTab.Append;
|
||||||
|
vTab.FieldByName('K1').AsString:= K1;
|
||||||
|
vTab.FieldByName('K2').AsString:= K2;
|
||||||
|
vTab.FieldByName('K1K2').AsString:= K1+K2;
|
||||||
|
vTab.FieldByName('PoradiSortNazev').AsString:= ((poradiSort*1000.0)+poradiSort2).ToString.Replace(',', '.') + ' ' + nazevSort2;
|
||||||
|
vTab.FieldByName('NazevSort').AsString:= nazevSort2;
|
||||||
|
vTab.FieldByName('SkupZbo').AsString:= VarToStr(FieldByNameValues('SkupZbo'));
|
||||||
|
vTab.FieldByName('RegCis').AsString:= VarToStr(FieldByNameValues('RegCis'));
|
||||||
|
vTab.FieldByName('Nazev1').AsString:= VarToStr(FieldByNameValues('Nazev1'));
|
||||||
|
vTab.FieldByName('StavSkladu').AsFloat:= VarToStr(FieldByNameValues('Mnozstvi')).ToSingle;
|
||||||
|
vTab.FieldByName('KeVraceni').AsFloat:= VarToStr(FieldByNameValues('Mnozstvi')).ToSingle;
|
||||||
|
vTab.FieldByName('IDStavSkladu').AsInteger:= VarToStr(FieldByNameValues('idSS')).ToInteger;
|
||||||
|
vTab.FieldByName('AktDodavatel').AsInteger:= VarToStr(FieldByNameValues('Aktualni_Dodavatel')).ToInteger;
|
||||||
|
vTab.FieldByName('Priorita').AsInteger:= VarToStr(FieldByNameValues('Priorita')).ToInteger;
|
||||||
|
vTab.FieldByName('PoradiVSort').AsSingle:= VarToStr(FieldByNameValues('PoradiVSort')).ToSingle;
|
||||||
|
vTab.Post;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
vTab.SortByFields('PoradiSortNazev, PoradiVSort, SkupZbo, RegCis');
|
||||||
|
|
||||||
|
vTab.First;
|
||||||
|
vTab.DisableControls;
|
||||||
|
while not(vTab.Eof) do
|
||||||
|
begin
|
||||||
|
if (vTab.FieldByName('K1').AsString='') then
|
||||||
|
vTab.Delete;
|
||||||
|
vTab.Next;
|
||||||
|
end;
|
||||||
|
vTab.First;
|
||||||
|
vTab.EnableControls;
|
||||||
|
grdPol.Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
helUtils.waitEnd;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.FormShow(Sender: TObject);
|
||||||
|
var rHeight: integer;
|
||||||
|
lSQL: string;
|
||||||
|
begin
|
||||||
|
UseLatestCommonDialogs:= true;
|
||||||
|
self.SetBounds(Screen.WorkAreaRect.Left, 0, Screen.WorkAreaRect.Width, Screen.WorkAreaRect.Height);
|
||||||
|
|
||||||
|
branchId:= ZjistiBranchID;
|
||||||
|
|
||||||
|
if (Helios.LoginName='hdc') then
|
||||||
|
Button1.Visible:= true;
|
||||||
|
|
||||||
|
{
|
||||||
|
grd.RowCount:= 2;
|
||||||
|
grd.FixedRows:= 1;
|
||||||
|
|
||||||
|
rHeight:= grd.Canvas.TextHeight('<27><>');
|
||||||
|
grd.DefaultRowHeight:= grd.Font.Size + 18;
|
||||||
|
|
||||||
|
// grd.RowHeights[1]:= grd.Canvas.TextHeight('Akce') + 4;
|
||||||
|
grd.Cells[0, 0]:= 'Akce';
|
||||||
|
grd.Cells[1, 0]:= '<27><>slo';
|
||||||
|
grd.Cells[2, 0]:= 'N<>zev';
|
||||||
|
grd.Cells[3, 0]:= 'Doporu<72>eno';
|
||||||
|
grd.Cells[4, 0]:= 'R<>no';
|
||||||
|
grd.Cells[5, 0]:= 'Poledne';
|
||||||
|
}
|
||||||
|
|
||||||
|
btnNuluj.Visible:= (Helios.LoginName='hdc');
|
||||||
|
|
||||||
|
NactiData;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.grdPolColumns4AdvDrawDataCell(Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord;
|
||||||
|
Column: TColumnEh; const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
|
||||||
|
var x: single;
|
||||||
|
begin
|
||||||
|
if (vTab.FieldByName('StavSkladu').AsSingle<>vTab.FieldByName('KeVraceni').AsSingle) then
|
||||||
|
Params.Background:= $00A4A4FF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.grdPolColumns4GetCellParams(Sender: TObject; EditMode: Boolean; Params: TColCellParamsEh);
|
||||||
|
begin
|
||||||
|
Params.Alignment:= taCenter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.grdPolColumns4UpdateData(Sender: TObject; var Text: string; var Value: Variant; var UseText, Handled: Boolean);
|
||||||
|
var s: single;
|
||||||
|
begin
|
||||||
|
Text:= Text.Trim.Replace(' ', '').Replace('.', ',');
|
||||||
|
if not(VarIsNull(Value)) then
|
||||||
|
if (Text='') then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Mus<75>te zadat <20><>slo'#1);
|
||||||
|
Handled:= true;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if not(TryStrToFloat(Text,s)) then
|
||||||
|
s:= 0;
|
||||||
|
if ((s<0) or (s>vTab.FieldByName('StavSkladu').AsSingle)) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Nelze vr<76>tit mno<6E>stv<74> men<65><6E> ne<6E> 0 a v<>t<EFBFBD><74> ne<6E> je skladem'#1);
|
||||||
|
Handled:= true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace.grdPolGetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
|
||||||
|
begin
|
||||||
|
// if (State<>[]) then
|
||||||
|
// if (gdRowSelected in State) then
|
||||||
|
if (Column.FieldName='KeVraceni') then
|
||||||
|
Background:= grdPol.Color;
|
||||||
|
if (vTab.FieldByName('Priorita').AsInteger=1) or (vTab.FieldByName('Priorita').AsInteger=2) then
|
||||||
|
Background:= clSilver;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
384
frmLikvidace1024.dfm
Normal file
384
frmLikvidace1024.dfm
Normal file
@ -0,0 +1,384 @@
|
|||||||
|
object formLikvidace1024: TformLikvidace1024
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' V'#221'DEJ ZBO'#381#205' K LIKVIDACI'
|
||||||
|
ClientHeight = 729
|
||||||
|
ClientWidth = 1008
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1008
|
||||||
|
729)
|
||||||
|
TextHeight = 23
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 7
|
||||||
|
Top = 12
|
||||||
|
Width = 746
|
||||||
|
Height = 700
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object grdPol: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 742
|
||||||
|
Height = 671
|
||||||
|
Align = alClient
|
||||||
|
AllowedSelections = []
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.Color = 13425149
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_0_NazevSort'
|
||||||
|
end>
|
||||||
|
DataGrouping.ParentColor = False
|
||||||
|
DataSource = dSource
|
||||||
|
DynProps = <>
|
||||||
|
GridLineParams.ColorScheme = glcsThemedEh
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnGetCellParams = grdPolGetCellParams
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'NazevSort'
|
||||||
|
Footers = <>
|
||||||
|
MRUList.AutoAdd = False
|
||||||
|
STFilter.Visible = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Zbo'#382#237'|'#268#237'slo'
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Zbo'#382#237'|N'#225'zev'
|
||||||
|
Width = 374
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '###0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Mno'#382'stv'#237'|Stav skl.'
|
||||||
|
Width = 93
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '###0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'KeVraceni'
|
||||||
|
Footers = <>
|
||||||
|
Layout = tlCenter
|
||||||
|
Title.Caption = 'Mno'#382'stv'#237'|Vr'#225'tit'
|
||||||
|
Width = 85
|
||||||
|
OnAdvDrawDataCell = grdPolColumns4AdvDrawDataCell
|
||||||
|
OnGetCellParams = grdPolColumns4GetCellParams
|
||||||
|
OnUpdateData = grdPolColumns4UpdateData
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 770
|
||||||
|
Top = 66
|
||||||
|
Width = 221
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it v'#253'dej k likvidaci'
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 770
|
||||||
|
Top = 209
|
||||||
|
Width = 221
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 770
|
||||||
|
Top = 277
|
||||||
|
Width = 221
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 770
|
||||||
|
Top = 385
|
||||||
|
Width = 221
|
||||||
|
Height = 65
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Zav'#345#237't (bez ulo'#382'en'#237')'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 791
|
||||||
|
Top = 639
|
||||||
|
Width = 166
|
||||||
|
Height = 50
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = '(HDC) Save tbl'
|
||||||
|
TabOrder = 5
|
||||||
|
Visible = False
|
||||||
|
OnClick = Button1Click
|
||||||
|
end
|
||||||
|
object btnNuluj: TButton
|
||||||
|
Left = 764
|
||||||
|
Top = 579
|
||||||
|
Width = 229
|
||||||
|
Height = 50
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = '(HDC) Vymazat mno'#382'stv'#237
|
||||||
|
TabOrder = 6
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnNulujClick
|
||||||
|
end
|
||||||
|
object dSource: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 1224
|
||||||
|
Top = 10
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
Left = 1278
|
||||||
|
Top = 12
|
||||||
|
object vTabSortimentK1: TStringField
|
||||||
|
Alignment = taCenter
|
||||||
|
FieldName = 'K1'
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabSortimentK2: TStringField
|
||||||
|
Alignment = taCenter
|
||||||
|
FieldName = 'K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabNazevSort: TStringField
|
||||||
|
DisplayLabel = 'Sortiment'
|
||||||
|
FieldName = 'NazevSort'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev1: TStringField
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabStavSkladu: TFloatField
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
DisplayFormat = '0'
|
||||||
|
EditFormat = '0'
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object vTabKeVraceni: TFloatField
|
||||||
|
FieldName = 'KeVraceni'
|
||||||
|
DisplayFormat = '0'
|
||||||
|
EditFormat = '0'
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object vTabIDStavSkladu: TIntegerField
|
||||||
|
FieldName = 'IDStavSkladu'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabAktDodavatel: TIntegerField
|
||||||
|
FieldName = 'AktDodavatel'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPriorita: TIntegerField
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Visible = False
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradiVSort: TSingleField
|
||||||
|
FieldName = 'PoradiVSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object PoradiVSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiVSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object Priorita: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 2
|
||||||
|
currency = False
|
||||||
|
Precision = 0
|
||||||
|
end
|
||||||
|
object AktDodavatel: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'AktDodavatel'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object IDStavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDStavSkladu'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object KeVraceni: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'KeVraceni'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '0'
|
||||||
|
currency = False
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object StavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '0'
|
||||||
|
currency = False
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
object Nazev1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object NazevSort: TMTStringDataFieldEh
|
||||||
|
FieldName = 'NazevSort'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
423
frmLikvidace1024.pas
Normal file
423
frmLikvidace1024.pas
Normal file
@ -0,0 +1,423 @@
|
|||||||
|
unit frmLikvidace1024;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Types, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, System.ImageList, Vcl.StdCtrls, Vcl.Buttons,
|
||||||
|
Vcl.ComCtrls, ddPlugin_TLB, TBPackageU, Vcl.WinXPickers, Vcl.Mask, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls,
|
||||||
|
DynVarsEh, Data.DB, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh, MemDS, MemTableDataEh, MemTableEh;
|
||||||
|
|
||||||
|
type
|
||||||
|
TWideStringHelper = record helper for WideString
|
||||||
|
function QuotedString: string; overload;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TformLikvidace1024 = class(TForm)
|
||||||
|
gbPolozky: TGroupBox;
|
||||||
|
btnOK: TButton;
|
||||||
|
btnRozbalit: TButton;
|
||||||
|
btnSbalit: TButton;
|
||||||
|
btnZavrit: TButton;
|
||||||
|
dSource: TDataSource;
|
||||||
|
vTab: TMemTableEh;
|
||||||
|
vTabSortimentK1: TStringField;
|
||||||
|
vTabSortimentK2: TStringField;
|
||||||
|
vTabSkupZbo: TStringField;
|
||||||
|
vTabRegCis: TStringField;
|
||||||
|
vTabNazev1: TStringField;
|
||||||
|
vTabStavSkladu: TFloatField;
|
||||||
|
vTabKeVraceni: TFloatField;
|
||||||
|
vTabNazevSort: TStringField;
|
||||||
|
Button1: TButton;
|
||||||
|
grdPol: TDBGridEh;
|
||||||
|
vTabIDStavSkladu: TIntegerField;
|
||||||
|
vTabAktDodavatel: TIntegerField;
|
||||||
|
vTabPriorita: TIntegerField;
|
||||||
|
vTabPoradiSortNazev: TStringField;
|
||||||
|
vTabK1K2: TStringField;
|
||||||
|
vTabPoradiVSort: TSingleField;
|
||||||
|
btnNuluj: TButton;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure btnZavritClick(Sender: TObject);
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure grdPolColumns4GetCellParams(Sender: TObject; EditMode: Boolean; Params: TColCellParamsEh);
|
||||||
|
procedure grdPolColumns4UpdateData(Sender: TObject; var Text: string; var Value: Variant; var UseText,
|
||||||
|
Handled: Boolean);
|
||||||
|
procedure btnRozbalitClick(Sender: TObject);
|
||||||
|
procedure btnSbalitClick(Sender: TObject);
|
||||||
|
procedure grdPolColumns4AdvDrawDataCell(Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord; Column: TColumnEh;
|
||||||
|
const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
|
||||||
|
procedure btnOKClick(Sender: TObject);
|
||||||
|
procedure grdPolGetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
|
||||||
|
State: TGridDrawState);
|
||||||
|
procedure btnNulujClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure NactiData;
|
||||||
|
function ZjistiBranchID: Integer;
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
jeTest: boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
formLikvidace1024: TformLikvidace1024;
|
||||||
|
branchId: integer;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses System.StrUtils, helUtils;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
function TWideStringHelper.QuotedString: string;
|
||||||
|
begin
|
||||||
|
Result:= string(Self).QuotedString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function TformLikvidace1024.ZjistiBranchID: Integer;
|
||||||
|
var s: string;
|
||||||
|
begin
|
||||||
|
result:= -1;
|
||||||
|
s:= Helios.Sklad;
|
||||||
|
if (LeftStr(s, 3)='005') then
|
||||||
|
result:= RightStr(s, 1).ToInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.btnOKClick(Sender: TObject);
|
||||||
|
var lSQL, cZbo: string;
|
||||||
|
begin
|
||||||
|
if (Helios.YesNo('Opravdu ulo<6C>it doklad k likvidaci ?', false)) then
|
||||||
|
begin
|
||||||
|
lSQL:= 'IF OBJECT_ID(N''dbo._temp_TabLikvidaceR'') IS NOT NULL DELETE FROM dbo._temp_TabLikvidaceR WHERE Autor=SUSER_SNAME()' + CRLF;
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''dbo._temp_TabLikvidaceR'') IS NOT NULL' + CRLF + ' IF NOT EXISTS(SELECT * FROM dbo._temp_TabLikvidaceR)' + CRLF;
|
||||||
|
lSQL:= lSQL + ' DROP TABLE dbo._temp_TabLikvidaceR' + CRLF;
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''tempdb..#HDC_TabLikvidaceR'') IS NOT NULL DROP TABLE #HDC_TabLikvidaceR' + CRLF;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
if (vTab.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''tempdb..#HDC_TabLikvidaceR'') IS NULL' + CRLF;
|
||||||
|
lSQL:= lSQL + ' CREATE TABLE #HDC_TabLikvidaceR (ID INT IDENTITY(1,1) NOT NULL, Sklad NVARCHAR(30), Autor NVARCHAR(80) NOT NULL DEFAULT SUSER_SNAME(), IDZboSklad INT NOT NULL';
|
||||||
|
lSQL:= lSQL + ', Mnozstvi NUMERIC(15,4) NOT NULL DEFAULT 0.0, CisloZbozi NVARCHAR(33) NOT NULL, DatPorizeni DATETIME NOT NULL DEFAULT GETDATE())';
|
||||||
|
if (jeTest) then
|
||||||
|
begin
|
||||||
|
lSQL:= lSQL.Replace('tempdb..#HDC_TabLi', 'dbo._temp_TabLi');
|
||||||
|
lSQL:= lSQL.Replace('#HDC_TabLi', 'dbo._temp_TabLi');
|
||||||
|
end;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
vTab.First;
|
||||||
|
while not(vTab.Eof) do
|
||||||
|
begin
|
||||||
|
if (vTab.FieldByName('IDStavSkladu').AsInteger>0) and (vTab.FieldByName('KeVraceni').AsFloat>0) then
|
||||||
|
begin
|
||||||
|
cZbo:= vTab.FieldByName('SkupZbo').AsString + vTab.FieldByName('RegCis').AsString;
|
||||||
|
lSQL:= 'INSERT #HDC_TabLikvidaceR (IDZboSklad, Sklad, Mnozstvi, CisloZbozi) SELECT ' + vTab.FieldByName('IDStavSkladu').AsString + ', N' + Helios.Sklad.QuotedString + ', ';
|
||||||
|
lSQL:= lSQL + vTab.FieldByName('KeVraceni').AsString.Replace(',', '.') + ', N' + cZbo.QuotedString;
|
||||||
|
if (jeTest) then
|
||||||
|
lSQL:= lSQL.Replace('#HDC_TabLi', 'dbo._temp_TabLi');
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
end;
|
||||||
|
vTab.Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if not(jeTest) then
|
||||||
|
begin
|
||||||
|
helUtils.waitStart(self, 'Prob<6F>h<EFBFBD> generov<6F>n<EFBFBD> likvidace/v<>dejky...', 0, 0);
|
||||||
|
try
|
||||||
|
Helios.ExecSQL('IF OBJECT_ID(N''dbo.ep_HDC_App_Likvidace'') IS NOT NULL EXEC dbo.ep_HDC_App_Likvidace @Sklad=N' + Helios.Sklad.QuotedString);
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
helUtils.waitEnd;
|
||||||
|
end;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.btnRozbalitClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
grdPol.DataGrouping.ActiveGroupLevels[0].ExpandNodes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.btnSbalitClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
grdPol.DataGrouping.ActiveGroupLevels[0].CollapseNodes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.btnZavritClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.Button1Click(Sender: TObject);
|
||||||
|
var s: string;
|
||||||
|
begin
|
||||||
|
s:= ExtractFilePath(GetModuleName(hInstance));
|
||||||
|
s:= GetEnvironmentVariable('USERPROFILE') + '/Desktop/';
|
||||||
|
vTab.SaveToFile(s + 'data.vtd');
|
||||||
|
Helios.Info(#1'Ulo<6C>eno na plochu - data.vtd'#1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.btnNulujClick(Sender: TObject);
|
||||||
|
var i: integer;
|
||||||
|
begin
|
||||||
|
if (vTab.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
i:= vTab.RecNo;
|
||||||
|
vTab.DisableControls;
|
||||||
|
vTab.First;
|
||||||
|
while not(vTab.Eof) do
|
||||||
|
begin
|
||||||
|
vTab.Edit;
|
||||||
|
vTab.FieldByName('KeVraceni').AsInteger:= 0;
|
||||||
|
vTab.Post;
|
||||||
|
vTab.Next;
|
||||||
|
end;
|
||||||
|
vTab.RecNo:= i;
|
||||||
|
vTab.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
if (vTab.Active) then
|
||||||
|
vTab.Close;
|
||||||
|
Action:= caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.NactiData;
|
||||||
|
var lSQL: string;
|
||||||
|
nazevSort, nazevSort2, K1, K2: string;
|
||||||
|
idSort: integer;
|
||||||
|
poradiSort, poradiSort2: Single;
|
||||||
|
begin
|
||||||
|
lSQL:= 'SELECT DISTINCT(k.IDSortiment) AS IDSortiment, s.K1, s.K2, s.Nazev FROM ' + tblKZ + ' k INNER JOIN ' + tblSortim + ' s ON (s.ID=k.IDSortiment)';
|
||||||
|
lSQL:= lSQL + ' LEFT JOIN' + tblSortimE + ' se ON (se.ID=s.ID) INNER JOIN ' + tblSS + ' ss ON (ss.IDKmenZbozi=k.ID AND ss.IDSklad=N' + Helios.Sklad.QuotedString;
|
||||||
|
lSQL:= lSQL + ') WHERE (s.K1 IN (SELECT so.K1 FROM ' + tblSortim + ' so INNER JOIN ' + tblSortimE + ' soe ON (soe.ID=so.ID) WHERE soe._ProLikvidaci=1)';
|
||||||
|
lSQL:= lSQL + ' OR ISNULL(se._ProLikvidaci,0)=1) AND ss.Mnozstvi>0 AND ISNULL(s.K2,N'''')<>N'''' ORDER BY s.Nazev';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
if not(vTab.Active) then
|
||||||
|
vTab.Open;
|
||||||
|
First;
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
idSort:= VarToStr(FieldByNameValues('IDSortiment')).ToInteger;
|
||||||
|
K1:= VarToStr(FieldByNameValues('K1'));
|
||||||
|
K2:= VarToStr(FieldByNameValues('K2'));
|
||||||
|
|
||||||
|
lSQL:= 'SELECT ISNULL(se.';
|
||||||
|
case branchID of
|
||||||
|
1: lSQL:= lSQL + '_PoradiObj_Klas1';
|
||||||
|
2: lSQL:= lSQL + '_PoradiObj_MozPi';
|
||||||
|
3: lSQL:= lSQL + '_PoradiObj_MozVod';
|
||||||
|
else
|
||||||
|
lSQL:= lSQL + '_priorita';
|
||||||
|
end;
|
||||||
|
lSQL:= lSQL + ', ISNULL(se._priorita, 999)) FROM ' + tblSortim + ' s LEFT JOIN ' + tblSortimE + ' se ON (se.ID=s.ID) WHERE K2 IS NULL AND K1=N' + k1.QuotedString;
|
||||||
|
poradiSort:= helUtils.getHeliosFloatVal(Helios, 0, lSQL);
|
||||||
|
|
||||||
|
lSQL:= 'SELECT ISNULL(se.';
|
||||||
|
case branchID of
|
||||||
|
1: lSQL:= lSQL + '_PoradiObj_Klas1';
|
||||||
|
2: lSQL:= lSQL + '_PoradiObj_MozPi';
|
||||||
|
3: lSQL:= lSQL + '_PoradiObj_MozVod';
|
||||||
|
else
|
||||||
|
lSQL:= lSQL + '_priorita';
|
||||||
|
end;
|
||||||
|
lSQL:= lSQL + ', ISNULL(se._priorita, 999)) FROM ' + tblSortim + ' s LEFT JOIN ' + tblSortimE + ' se ON (se.ID=s.ID) WHERE K3 IS NULL AND K2=N' + k2.QuotedString;
|
||||||
|
lSQL:= lSQL + ' AND K1=N' + k1.QuotedString;
|
||||||
|
poradiSort2:= helUtils.getHeliosFloatVal(Helios, 0, lSQL);
|
||||||
|
|
||||||
|
{
|
||||||
|
nazevSort:= K2 + ' ' + VarToStr(FieldByNameValues('Nazev'));
|
||||||
|
nazevSort2:= VarToStr(FieldByNameValues('Nazev'));
|
||||||
|
vTab.Append;
|
||||||
|
vTab.FieldByName('K1').AsString:= K1;
|
||||||
|
vTab.FieldByName('K2').AsString:= K2;
|
||||||
|
vTab.FieldByName('NazevSort').AsString:= nazevSort;
|
||||||
|
vTab.Post;
|
||||||
|
}
|
||||||
|
lSQL:= 'SELECT k.SkupZbo, k.RegCis, k.Nazev1, so.Nazev, s.Mnozstvi, s.ID AS idSS, ISNULL(k.Aktualni_Dodavatel, -1) AS Aktualni_Dodavatel, ISNULL(ke._priorita, 0) AS Priorita';
|
||||||
|
lSQL:= lSQL + ', ISNULL(ke._poradivsortimentu, ISNULL(ke._poradivsortimentu, 999)) AS PoradiVSort';
|
||||||
|
lSQL:= lSQL + ' FROM ' + tblKZ;
|
||||||
|
lSQL:= lSQL + ' k INNER JOIN ' + tblKZe + ' ke ON (ke.ID=k.ID) INNER JOIN ' + tblSortim + ' so ON (so.ID=k.IDSortiment) INNER JOIN ';
|
||||||
|
lSQL:= lSQL + tblSS + ' s ON (s.IDKmenZbozi=k.ID AND s.IDSklad=N' + Helios.Sklad.QuotedString + ') WHERE so.K1=N' + K1.QuotedString;
|
||||||
|
lSQL:= lSQL + ' AND so.K2=N' + K2.QuotedString + ' AND so.K3 IS NULL AND s.Mnozstvi>0 ORDER BY k.SkupZbo, k.RegCis';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
vTab.Append;
|
||||||
|
vTab.FieldByName('K1').AsString:= K1;
|
||||||
|
vTab.FieldByName('K2').AsString:= K2;
|
||||||
|
vTab.FieldByName('K1K2').AsString:= K1+K2;
|
||||||
|
vTab.FieldByName('PoradiSortNazev').AsString:= ((poradiSort*1000.0)+poradiSort2).ToString.Replace(',', '.') + ' ' + nazevSort2;
|
||||||
|
vTab.FieldByName('NazevSort').AsString:= nazevSort2;
|
||||||
|
vTab.FieldByName('SkupZbo').AsString:= VarToStr(FieldByNameValues('SkupZbo'));
|
||||||
|
vTab.FieldByName('RegCis').AsString:= VarToStr(FieldByNameValues('RegCis'));
|
||||||
|
vTab.FieldByName('Nazev1').AsString:= VarToStr(FieldByNameValues('Nazev1'));
|
||||||
|
vTab.FieldByName('StavSkladu').AsFloat:= VarToStr(FieldByNameValues('Mnozstvi')).ToSingle;
|
||||||
|
vTab.FieldByName('KeVraceni').AsFloat:= VarToStr(FieldByNameValues('Mnozstvi')).ToSingle;
|
||||||
|
vTab.FieldByName('IDStavSkladu').AsInteger:= VarToStr(FieldByNameValues('idSS')).ToInteger;
|
||||||
|
vTab.FieldByName('AktDodavatel').AsInteger:= VarToStr(FieldByNameValues('Aktualni_Dodavatel')).ToInteger;
|
||||||
|
vTab.FieldByName('Priorita').AsInteger:= VarToStr(FieldByNameValues('Priorita')).ToInteger;
|
||||||
|
vTab.FieldByName('PoradiVSort').AsSingle:= VarToStr(FieldByNameValues('PoradiVSort')).ToSingle;
|
||||||
|
vTab.Post;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
vTab.SortByFields('PoradiSortNazev, PoradiVSort, SkupZbo, RegCis');
|
||||||
|
|
||||||
|
vTab.First;
|
||||||
|
vTab.DisableControls;
|
||||||
|
while not(vTab.Eof) do
|
||||||
|
begin
|
||||||
|
if (vTab.FieldByName('K1').AsString='') then
|
||||||
|
vTab.Delete;
|
||||||
|
vTab.Next;
|
||||||
|
end;
|
||||||
|
vTab.First;
|
||||||
|
vTab.EnableControls;
|
||||||
|
grdPol.Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
helUtils.waitEnd;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.FormShow(Sender: TObject);
|
||||||
|
var rHeight: integer;
|
||||||
|
lSQL: string;
|
||||||
|
begin
|
||||||
|
UseLatestCommonDialogs:= true;
|
||||||
|
self.SetBounds(Screen.WorkAreaRect.Left, 0, Screen.WorkAreaRect.Width, Screen.WorkAreaRect.Height);
|
||||||
|
|
||||||
|
branchId:= ZjistiBranchID;
|
||||||
|
|
||||||
|
if (Helios.LoginName='hdc') then
|
||||||
|
Button1.Visible:= true;
|
||||||
|
|
||||||
|
{
|
||||||
|
grd.RowCount:= 2;
|
||||||
|
grd.FixedRows:= 1;
|
||||||
|
|
||||||
|
rHeight:= grd.Canvas.TextHeight('<27><>');
|
||||||
|
grd.DefaultRowHeight:= grd.Font.Size + 18;
|
||||||
|
|
||||||
|
// grd.RowHeights[1]:= grd.Canvas.TextHeight('Akce') + 4;
|
||||||
|
grd.Cells[0, 0]:= 'Akce';
|
||||||
|
grd.Cells[1, 0]:= '<27><>slo';
|
||||||
|
grd.Cells[2, 0]:= 'N<>zev';
|
||||||
|
grd.Cells[3, 0]:= 'Doporu<72>eno';
|
||||||
|
grd.Cells[4, 0]:= 'R<>no';
|
||||||
|
grd.Cells[5, 0]:= 'Poledne';
|
||||||
|
}
|
||||||
|
|
||||||
|
btnNuluj.Visible:= (Helios.LoginName='hdc');
|
||||||
|
|
||||||
|
NactiData;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.grdPolColumns4AdvDrawDataCell(Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord;
|
||||||
|
Column: TColumnEh; const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
|
||||||
|
var x: single;
|
||||||
|
begin
|
||||||
|
if (vTab.FieldByName('StavSkladu').AsSingle<>vTab.FieldByName('KeVraceni').AsSingle) then
|
||||||
|
Params.Background:= $00A4A4FF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.grdPolColumns4GetCellParams(Sender: TObject; EditMode: Boolean; Params: TColCellParamsEh);
|
||||||
|
begin
|
||||||
|
Params.Alignment:= taCenter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.grdPolColumns4UpdateData(Sender: TObject; var Text: string; var Value: Variant; var UseText, Handled: Boolean);
|
||||||
|
var s: single;
|
||||||
|
begin
|
||||||
|
Text:= Text.Trim.Replace(' ', '').Replace('.', ',');
|
||||||
|
if not(VarIsNull(Value)) then
|
||||||
|
if (Text='') then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Mus<75>te zadat <20><>slo'#1);
|
||||||
|
Handled:= true;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if not(TryStrToFloat(Text,s)) then
|
||||||
|
s:= 0;
|
||||||
|
if ((s<0) or (s>vTab.FieldByName('StavSkladu').AsSingle)) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Nelze vr<76>tit mno<6E>stv<74> men<65><6E> ne<6E> 0 a v<>t<EFBFBD><74> ne<6E> je skladem'#1);
|
||||||
|
Handled:= true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformLikvidace1024.grdPolGetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
|
||||||
|
begin
|
||||||
|
// if (State<>[]) then
|
||||||
|
// if (gdRowSelected in State) then
|
||||||
|
if (Column.FieldName='KeVraceni') then
|
||||||
|
Background:= grdPol.Color;
|
||||||
|
if (vTab.FieldByName('Priorita').AsInteger=1) or (vTab.FieldByName('Priorita').AsInteger=2) then
|
||||||
|
Background:= clSilver;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
409
frmOrder.dfm
Normal file
409
frmOrder.dfm
Normal file
@ -0,0 +1,409 @@
|
|||||||
|
object formOrder: TformOrder
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' Vytvo'#345'en'#237' objedn'#225'vky'
|
||||||
|
ClientHeight = 766
|
||||||
|
ClientWidth = 1475
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1475
|
||||||
|
766)
|
||||||
|
TextHeight = 25
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 41
|
||||||
|
Top = 82
|
||||||
|
Width = 138
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Datum z'#225'vozu:'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 20
|
||||||
|
Top = 22
|
||||||
|
Width = 160
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Druh sortimentu:'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 15
|
||||||
|
Top = 138
|
||||||
|
Width = 162
|
||||||
|
Height = 25
|
||||||
|
Caption = #268#237'slo objedn'#225'vky:'
|
||||||
|
end
|
||||||
|
object gbDodavatel: TGroupBox
|
||||||
|
Left = 569
|
||||||
|
Top = 19
|
||||||
|
Width = 594
|
||||||
|
Height = 169
|
||||||
|
Caption = ' Dodavatel '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 88
|
||||||
|
Width = 71
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Adresa:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblDodAdresa: TLabel
|
||||||
|
Left = 129
|
||||||
|
Top = 88
|
||||||
|
Width = 445
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodICO: TLabel
|
||||||
|
Left = 52
|
||||||
|
Top = 126
|
||||||
|
Width = 485
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object selCOrg: TComboEdit
|
||||||
|
Left = 28
|
||||||
|
Top = 32
|
||||||
|
Width = 127
|
||||||
|
Height = 33
|
||||||
|
Alignment = taCenter
|
||||||
|
GlyphKind = gkEllipsis
|
||||||
|
NumGlyphs = 1
|
||||||
|
TabOrder = 0
|
||||||
|
Text = ''
|
||||||
|
end
|
||||||
|
object selOrg: TComboEdit
|
||||||
|
Left = 168
|
||||||
|
Top = 32
|
||||||
|
Width = 407
|
||||||
|
Height = 33
|
||||||
|
GlyphKind = gkEllipsis
|
||||||
|
NumGlyphs = 1
|
||||||
|
TabOrder = 1
|
||||||
|
Text = ''
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 20
|
||||||
|
Top = 234
|
||||||
|
Width = 1175
|
||||||
|
Height = 507
|
||||||
|
Anchors = [akLeft, akTop, akBottom]
|
||||||
|
Caption = ' Polo'#382'ky '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
DesignSize = (
|
||||||
|
1175
|
||||||
|
507)
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 8
|
||||||
|
Top = 30
|
||||||
|
Width = 763
|
||||||
|
Height = 35
|
||||||
|
Caption = 'Zbo'#382#237
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 770
|
||||||
|
Top = 30
|
||||||
|
Width = 389
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Objedn'#225'no'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object polTree: TVirtualStringTree
|
||||||
|
Left = 8
|
||||||
|
Top = 98
|
||||||
|
Width = 1151
|
||||||
|
Height = 403
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Colors.BorderColor = 15987699
|
||||||
|
Colors.DisabledColor = clGray
|
||||||
|
Colors.DropMarkColor = 15385233
|
||||||
|
Colors.DropTargetColor = 15385233
|
||||||
|
Colors.DropTargetBorderColor = 15385233
|
||||||
|
Colors.FocusedSelectionColor = 15385233
|
||||||
|
Colors.FocusedSelectionBorderColor = 15385233
|
||||||
|
Colors.GridLineColor = 15987699
|
||||||
|
Colors.HeaderHotColor = clBlack
|
||||||
|
Colors.HotColor = clBlack
|
||||||
|
Colors.SelectionRectangleBlendColor = 15385233
|
||||||
|
Colors.SelectionRectangleBorderColor = 15385233
|
||||||
|
Colors.SelectionTextColor = clBlack
|
||||||
|
Colors.TreeLineColor = 9471874
|
||||||
|
Colors.UnfocusedColor = clGray
|
||||||
|
Colors.UnfocusedSelectionColor = 13421772
|
||||||
|
Colors.UnfocusedSelectionBorderColor = 13421772
|
||||||
|
Header.AutoSizeIndex = 0
|
||||||
|
Header.Height = 25
|
||||||
|
SelectionCurveRadius = 5
|
||||||
|
TabOrder = 2
|
||||||
|
TreeOptions.AnimationOptions = [toAnimatedToggle]
|
||||||
|
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
|
||||||
|
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
||||||
|
TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
|
||||||
|
TreeOptions.StringOptions = [toAutoAcceptEditChange]
|
||||||
|
OnGetText = polTreeGetText
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Position = 0
|
||||||
|
Text = 'Akce'
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Position = 1
|
||||||
|
Text = #268#237'slo'
|
||||||
|
Width = 152
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Position = 2
|
||||||
|
Text = 'N'#225'zev'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Position = 3
|
||||||
|
Text = 'Doporu'#269'eno'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Position = 4
|
||||||
|
Text = 'R'#225'no'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Position = 5
|
||||||
|
Text = 'Poledne'
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
object pnlAkce: TPanel
|
||||||
|
Left = 8
|
||||||
|
Top = 64
|
||||||
|
Width = 73
|
||||||
|
Height = 35
|
||||||
|
Caption = 'Akce'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object pnlCislo: TPanel
|
||||||
|
Left = 81
|
||||||
|
Top = 64
|
||||||
|
Width = 152
|
||||||
|
Height = 35
|
||||||
|
Caption = #268#237'slo'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object pnlNazev: TPanel
|
||||||
|
Left = 233
|
||||||
|
Top = 64
|
||||||
|
Width = 320
|
||||||
|
Height = 35
|
||||||
|
Caption = 'N'#225'zev'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object pnlDoporuceno: TPanel
|
||||||
|
Left = 552
|
||||||
|
Top = 64
|
||||||
|
Width = 219
|
||||||
|
Height = 35
|
||||||
|
Caption = 'Doporu'#269'eno'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object pnlRano: TPanel
|
||||||
|
Left = 770
|
||||||
|
Top = 64
|
||||||
|
Width = 191
|
||||||
|
Height = 35
|
||||||
|
Caption = 'R'#225'no'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object pnlPoledne: TPanel
|
||||||
|
Left = 960
|
||||||
|
Top = 64
|
||||||
|
Width = 199
|
||||||
|
Height = 35
|
||||||
|
Caption = 'Poledne'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 1213
|
||||||
|
Top = 234
|
||||||
|
Width = 244
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it objedn'#225'vku'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object dtZavoz: TDateTimePicker
|
||||||
|
Left = 191
|
||||||
|
Top = 79
|
||||||
|
Width = 149
|
||||||
|
Height = 33
|
||||||
|
Date = 44268.000000000000000000
|
||||||
|
Time = 0.431178437502239800
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object cbSortiment: TComboBox
|
||||||
|
Left = 191
|
||||||
|
Top = 19
|
||||||
|
Width = 339
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = cbSortimentChange
|
||||||
|
end
|
||||||
|
object edtCisloObj: TNumberBox
|
||||||
|
Left = 191
|
||||||
|
Top = 135
|
||||||
|
Width = 97
|
||||||
|
Height = 33
|
||||||
|
Alignment = taCenter
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object btnTisk: TButton
|
||||||
|
Left = 1213
|
||||||
|
Top = 320
|
||||||
|
Width = 244
|
||||||
|
Height = 49
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Vytisknout'
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object btnPoslat: TButton
|
||||||
|
Left = 1213
|
||||||
|
Top = 392
|
||||||
|
Width = 244
|
||||||
|
Height = 51
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Odeslat dodavateli'
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 1213
|
||||||
|
Top = 504
|
||||||
|
Width = 244
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 1213
|
||||||
|
Top = 572
|
||||||
|
Width = 244
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 1213
|
||||||
|
Top = 680
|
||||||
|
Width = 244
|
||||||
|
Height = 61
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Caption = 'Zav'#345#237't'
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object cbSortimentX: TComboBox
|
||||||
|
Left = 385
|
||||||
|
Top = 51
|
||||||
|
Width = 145
|
||||||
|
Height = 33
|
||||||
|
TabOrder = 11
|
||||||
|
Text = 'cbSortimentX'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
215
frmOrder.pas
Normal file
215
frmOrder.pas
Normal file
@ -0,0 +1,215 @@
|
|||||||
|
unit frmOrder;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Types, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, System.ImageList, Vcl.ImgList, Vcl.StdCtrls, Vcl.Buttons,
|
||||||
|
Vcl.ComCtrls, ddPlugin_TLB, TBPackageU, Vcl.WinXPickers, Vcl.Mask, RxToolEdit, Vcl.NumberBox, Vcl.Grids, VirtualTrees;
|
||||||
|
|
||||||
|
type
|
||||||
|
PPolozka = ^TPolozka;
|
||||||
|
TPolozka = packed record
|
||||||
|
idKZ: integer;
|
||||||
|
regCislo, nazev: string;
|
||||||
|
k1, k2: string;
|
||||||
|
mnRano, mnPoledne, mnDoporuceno: smallint;
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
class operator Initialize(out Dest: TPolozka);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
TTreeData = record
|
||||||
|
regCislo: string[35];
|
||||||
|
PNodePolozka: Pointer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
TformOrder = class(TForm)
|
||||||
|
gbDodavatel: TGroupBox;
|
||||||
|
gbPolozky: TGroupBox;
|
||||||
|
selCOrg: TComboEdit;
|
||||||
|
selOrg: TComboEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
dtZavoz: TDateTimePicker;
|
||||||
|
btnOK: TButton;
|
||||||
|
Label2: TLabel;
|
||||||
|
lblDodAdresa: TLabel;
|
||||||
|
lblDodICO: TLabel;
|
||||||
|
cbSortiment: TComboBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
edtCisloObj: TNumberBox;
|
||||||
|
Label4: TLabel;
|
||||||
|
btnTisk: TButton;
|
||||||
|
btnPoslat: TButton;
|
||||||
|
btnRozbalit: TButton;
|
||||||
|
btnSbalit: TButton;
|
||||||
|
btnZavrit: TButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Panel2: TPanel;
|
||||||
|
polTree: TVirtualStringTree;
|
||||||
|
pnlAkce: TPanel;
|
||||||
|
pnlCislo: TPanel;
|
||||||
|
pnlNazev: TPanel;
|
||||||
|
pnlDoporuceno: TPanel;
|
||||||
|
pnlRano: TPanel;
|
||||||
|
pnlPoledne: TPanel;
|
||||||
|
cbSortimentX: TComboBox;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure cbSortimentChange(Sender: TObject);
|
||||||
|
procedure polTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
|
||||||
|
var CellText: string);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
jeTest: boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
formOrder: TformOrder;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses helUtils;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
class operator TPolozka.Initialize(out Dest: TPolozka);
|
||||||
|
begin
|
||||||
|
dest.idKZ:= 0;
|
||||||
|
dest.regCislo:= '';
|
||||||
|
dest.nazev:= '';
|
||||||
|
dest.k1:= '';
|
||||||
|
dest.k2:= '';
|
||||||
|
dest.mnRano:= 0;
|
||||||
|
dest.mnPoledne:= 0;
|
||||||
|
dest.mnDoporuceno:= 0;
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformOrder.cbSortimentChange(Sender: TObject);
|
||||||
|
var lSQL: string;
|
||||||
|
idSort: integer;
|
||||||
|
rNode, pNode: PVirtualNode;
|
||||||
|
myRec: PPolozka;
|
||||||
|
begin
|
||||||
|
cbSortimentX.ItemIndex:= cbSortiment.ItemIndex;
|
||||||
|
|
||||||
|
lSQL:= 'SELECT s.ID FROM ' + tblSortim + ' s INNER JOIN ' + tblSortimE + ' se ON (se.ID=s.ID) WHERE se._Objednavky_Zobrazit=1';
|
||||||
|
lSQL:= lSQL + ' AND s.K1=N' + cbSortimentX.Items[0].QuotedString + ' AND s.K2 IS NOT NULL';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
begin
|
||||||
|
polTree.BeginUpdate;
|
||||||
|
polTree.Clear;
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
idSort:= VarToStr(FieldByNameValues('ID')).ToInteger;
|
||||||
|
|
||||||
|
lSQL:= 'SELECT ID, SkupZbo, RegCis, Nazev1 FROM ' + tblKZ + ' WHERE IDSortiment=' + idSort.ToString + ' ORDER BY SkupZbo, RegCis';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
rNode:= polTree.AddChild(nil); // root
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
pNode:= polTree.AddChild(nil);
|
||||||
|
myRec:= polTree.GetNodeData(pNode);
|
||||||
|
myRec.idKZ:= VarToStr(FieldByNameValues('ID')).ToInteger;
|
||||||
|
myRec.regCislo:= VarToStr(FieldByNameValues('RegCis'));
|
||||||
|
myRec.nazev:= VarToStr(FieldByNameValues('Nazev1'));
|
||||||
|
pNode:= polTree.AddChild(rNode, myRec);
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end;
|
||||||
|
polTree.EndUpdate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformOrder.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action:= caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformOrder.FormShow(Sender: TObject);
|
||||||
|
var rHeight: integer;
|
||||||
|
lSQL: string;
|
||||||
|
begin
|
||||||
|
UseLatestCommonDialogs:= true;
|
||||||
|
self.SetBounds(Screen.WorkAreaRect.Left, Screen.WorkAreaRect.Top, Screen.WorkAreaRect.Width, Screen.WorkAreaRect.Height);
|
||||||
|
|
||||||
|
{
|
||||||
|
grd.RowCount:= 2;
|
||||||
|
grd.FixedRows:= 1;
|
||||||
|
|
||||||
|
rHeight:= grd.Canvas.TextHeight('<27><>');
|
||||||
|
grd.DefaultRowHeight:= grd.Font.Size + 18;
|
||||||
|
|
||||||
|
// grd.RowHeights[1]:= grd.Canvas.TextHeight('Akce') + 4;
|
||||||
|
grd.Cells[0, 0]:= 'Akce';
|
||||||
|
grd.Cells[1, 0]:= '<27><>slo';
|
||||||
|
grd.Cells[2, 0]:= 'N<>zev';
|
||||||
|
grd.Cells[3, 0]:= 'Doporu<72>eno';
|
||||||
|
grd.Cells[4, 0]:= 'R<>no';
|
||||||
|
grd.Cells[5, 0]:= 'Poledne';
|
||||||
|
}
|
||||||
|
|
||||||
|
polTree.NodeDataSize:= SizeOf(TPolozka);
|
||||||
|
polTree.DefaultNodeHeight:= polTree.Canvas.TextHeight('<27><>') + 8;
|
||||||
|
polTree.Header.Columns[0].Width:= pnlAkce.Width-1;
|
||||||
|
polTree.Header.Columns[1].Width:= pnlCislo.Width-1;
|
||||||
|
polTree.Header.Columns[2].Width:= pnlNazev.Width-1;
|
||||||
|
polTree.Header.Columns[3].Width:= pnlDoporuceno.Width-1;
|
||||||
|
polTree.Header.Columns[4].Width:= pnlRano.Width-1;
|
||||||
|
polTree.Header.Columns[5].Width:= pnlPoledne.Width-1;
|
||||||
|
polTree.RootNodeCount:= 1;
|
||||||
|
|
||||||
|
cbSortiment.Items.Clear;
|
||||||
|
cbSortimentX.Items.Clear;
|
||||||
|
lSQL:= 'SELECT DISTINCT(s.K1), ISNULL(e._priorita, 999) AS PoradiSort FROM ' + tblSortim + ' s INNER JOIN ' + tblSortimE + ' e ON (e.ID=s.ID) WHERE e._Objednavky_Zobrazit=1 GROUP BY s.K1';
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if (RecordCount>0) then
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not(EOF) do
|
||||||
|
begin
|
||||||
|
cbSortimentX.Items.Add(VarToStr(FieldValues(0)));
|
||||||
|
lSQL:= helUtils.getHeliosStrVal(Helios, '', 'SELECT Nazev FROM ' + tblSortim + ' WHERE K2 IS NULL AND K1=N' + VarToStr(FieldValues(0)).QuotedString);
|
||||||
|
cbSortiment.Items.Add(lSQL);
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
cbSortiment.ItemIndex:= 0;
|
||||||
|
cbSortimentChange(Sender);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformOrder.polTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
|
||||||
|
var myRec: PPolozka;
|
||||||
|
begin
|
||||||
|
myRec:= Sender.GetNodeData(Node);
|
||||||
|
case Column of
|
||||||
|
0: CellText:= '';
|
||||||
|
1: CellText:= myRec.regCislo;
|
||||||
|
2: CellText:= myRec.nazev;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
895
frmOrder2.dfm
Normal file
895
frmOrder2.dfm
Normal file
@ -0,0 +1,895 @@
|
|||||||
|
object formOrder2: TformOrder2
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' Vytvo'#345'en'#237' objedn'#225'vky'
|
||||||
|
ClientHeight = 766
|
||||||
|
ClientWidth = 1413
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnResize = FormResize
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1413
|
||||||
|
766)
|
||||||
|
TextHeight = 25
|
||||||
|
object lblInfo: TLabel
|
||||||
|
Left = 80
|
||||||
|
Top = 194
|
||||||
|
Width = 4
|
||||||
|
Height = 16
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object gbDodavatel: TGroupBox
|
||||||
|
Left = 666
|
||||||
|
Top = 19
|
||||||
|
Width = 640
|
||||||
|
Height = 169
|
||||||
|
Caption = ' Dodavatel '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 72
|
||||||
|
Width = 71
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Adresa:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblDodAdresa: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 72
|
||||||
|
Width = 445
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodMisto: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 110
|
||||||
|
Width = 405
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodICO: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object lblDodDIC: TLabel
|
||||||
|
Left = 360
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object cbxDodavatel: TComboBox
|
||||||
|
Left = 28
|
||||||
|
Top = 33
|
||||||
|
Width = 589
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = cbxDodavatelChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 20
|
||||||
|
Top = 276
|
||||||
|
Width = 1139
|
||||||
|
Height = 462
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
object btnNovaPolozka: TSpeedButton
|
||||||
|
Left = 15
|
||||||
|
Top = 0
|
||||||
|
Width = 37
|
||||||
|
Height = 28
|
||||||
|
Glyph.Data = {
|
||||||
|
36100000424D3610000000000000360000002800000020000000200000000100
|
||||||
|
2000000000000010000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000020003092A0145145902911C7B02C9219103ED239C03FF239C03FF2192
|
||||||
|
03EF1C7C02CB145A02940A2C0149000200040000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000200040E3F
|
||||||
|
01681F8803DF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1F8B03E30F43016E01030005000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000061A002A1C7E02CE239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF1D8102D3061D00300000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000A2E014B219503F4239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF229703F60B33
|
||||||
|
0153000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000A2D0149229903FA239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239A
|
||||||
|
03FC0B3301530000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000006190029219403F3239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF229703F6061D003000000000000000000000000000000000000000000000
|
||||||
|
000000000000000200031C7C02CC239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF1D8102D301030005000000000000000000000000000000000000
|
||||||
|
0000000000000E3C0163239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF0F43016E000000000000000000000000000000000000
|
||||||
|
0000000100011E8503DA239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF1F8A03E3000200040000000000000000000000000000
|
||||||
|
00000826013E239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF0A2C01490000000000000000000000000000
|
||||||
|
000013540289239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF145A02940000000000000000000000000000
|
||||||
|
00001A7602C0239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1C7C02CB0000000000000000000000000000
|
||||||
|
00001F8B03E4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF219203EE0000000000000000000000000000
|
||||||
|
0000229503F4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF0000000000000000000000000000
|
||||||
|
0000229503F4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF0000000000000000000000000000
|
||||||
|
00001F8A03E3239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF219103ED0000000000000000000000000000
|
||||||
|
00001A7402BF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1C7B02C90000000000000000000000000000
|
||||||
|
000012520286239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF145902910000000000000000000000000000
|
||||||
|
00000823013A239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF092A01450000000000000000000000000000
|
||||||
|
0000000000011D8302D6239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF1F8803DF000200030000000000000000000000000000
|
||||||
|
0000000000000D39015D239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF0E3F0168000000000000000000000000000000000000
|
||||||
|
000000000000000100021B7902C6239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF1C7E02CE00020004000000000000000000000000000000000000
|
||||||
|
0000000000000000000005160024219203EF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF219503F4061A002A00000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000009280141229803F8239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF2299
|
||||||
|
03FA0A2E014B0000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000009280141219203EF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF219403F30A2D
|
||||||
|
0149000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000051600241B7902C6239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF1C7C02CC061900290000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000100020D39
|
||||||
|
015D1D8302D6239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1E8503DA0E3D016300020003000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000100010823013A125202871A7502BF1F8B03E3229503F4229503F41F8B
|
||||||
|
03E41A7602C0135402890826013E000100010000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000}
|
||||||
|
OnClick = btnNovaPolozkaClick
|
||||||
|
end
|
||||||
|
object polGrd: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 1135
|
||||||
|
Height = 433
|
||||||
|
Align = alClient
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.DefaultStateExpanded = True
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_15_PoradiSortNazev'
|
||||||
|
end>
|
||||||
|
DataSource = ds
|
||||||
|
DynProps = <>
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
EmptyDataInfo.Active = True
|
||||||
|
EmptyDataInfo.Text = #381#225'dn'#233' polo'#382'ky nenalezeny'
|
||||||
|
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnDataGroupGetRowText = polGrdDataGroupGetRowText
|
||||||
|
OnKeyUp = polGrdKeyUp
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Footers = <>
|
||||||
|
Title.Caption = 'Po'#345'ad'#237
|
||||||
|
Visible = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = #268#237'slo'
|
||||||
|
Width = 158
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 441
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 126
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Doporu'#269'eno'
|
||||||
|
Width = 125
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Rano'
|
||||||
|
Footers = <>
|
||||||
|
Width = 112
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
Footers = <>
|
||||||
|
Width = 120
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Footers = <>
|
||||||
|
STFilter.DataField = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Footers = <>
|
||||||
|
TextEditing = False
|
||||||
|
Visible = False
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 1187
|
||||||
|
Top = 204
|
||||||
|
Width = 208
|
||||||
|
Height = 99
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it a odeslat objedn'#225'vku'
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = True
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object btnTisk: TButton
|
||||||
|
Left = 1187
|
||||||
|
Top = 320
|
||||||
|
Width = 208
|
||||||
|
Height = 49
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Vytisknout'
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnTiskClick
|
||||||
|
end
|
||||||
|
object btnPoslat: TButton
|
||||||
|
Left = 1187
|
||||||
|
Top = 392
|
||||||
|
Width = 208
|
||||||
|
Height = 51
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Odeslat dodavateli'
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnPoslatClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 1187
|
||||||
|
Top = 504
|
||||||
|
Width = 208
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 1187
|
||||||
|
Top = 572
|
||||||
|
Width = 208
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 6
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 1187
|
||||||
|
Top = 680
|
||||||
|
Width = 208
|
||||||
|
Height = 61
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Zav'#345#237't'
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object edtNumEditor: TNxEdit6
|
||||||
|
Left = 501
|
||||||
|
Top = 190
|
||||||
|
Width = 121
|
||||||
|
Height = 41
|
||||||
|
Alignment = taCenter
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -27
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
MaxLength = 3
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
Visible = False
|
||||||
|
UserDefinedColorPalette.GeometryHoverColor = clBlack
|
||||||
|
OnClick = edtNumEditorClick
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 20
|
||||||
|
Top = 242
|
||||||
|
Width = 855
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Zbo'#382#237
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 874
|
||||||
|
Top = 242
|
||||||
|
Width = 243
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Objedn'#225'no'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object btnVynulovat: TButton
|
||||||
|
Left = 885
|
||||||
|
Top = 194
|
||||||
|
Width = 220
|
||||||
|
Height = 42
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Vynulovat mno'#382'stv'#237
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = btnVynulovatClick
|
||||||
|
end
|
||||||
|
object gbSortiment: TGroupBox
|
||||||
|
Left = 80
|
||||||
|
Top = 19
|
||||||
|
Width = 559
|
||||||
|
Height = 175
|
||||||
|
TabOrder = 12
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 38
|
||||||
|
Top = 74
|
||||||
|
Width = 138
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Datum z'#225'vozu:'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 160
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Druh sortimentu:'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 14
|
||||||
|
Top = 125
|
||||||
|
Width = 162
|
||||||
|
Height = 25
|
||||||
|
Caption = #268#237'slo objedn'#225'vky:'
|
||||||
|
end
|
||||||
|
object cbxSortiment: TComboBox
|
||||||
|
Left = 196
|
||||||
|
Top = 13
|
||||||
|
Width = 339
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = cbxSortimentChange
|
||||||
|
end
|
||||||
|
object dtZavoz: TDateTimePicker
|
||||||
|
Left = 196
|
||||||
|
Top = 70
|
||||||
|
Width = 149
|
||||||
|
Height = 33
|
||||||
|
Date = 44268.000000000000000000
|
||||||
|
Time = 0.431178437502239800
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = dtZavozChange
|
||||||
|
end
|
||||||
|
object edtCisloObj: TNumberBox
|
||||||
|
Left = 196
|
||||||
|
Top = 122
|
||||||
|
Width = 97
|
||||||
|
Height = 33
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayFormat = '#####0'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
AfterPost = vTabAfterPost
|
||||||
|
AfterDelete = vTabAfterDelete
|
||||||
|
Left = 12
|
||||||
|
Top = 11
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Required = True
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev: TStringField
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabRano: TFloatField
|
||||||
|
DisplayLabel = 'R'#225'no'
|
||||||
|
FieldName = 'Rano'
|
||||||
|
OnValidate = vTabRanoValidate
|
||||||
|
end
|
||||||
|
object vTabDoporuceno: TFloatField
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
end
|
||||||
|
object vTabPoledne: TFloatField
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
OnValidate = vTabPoledneValidate
|
||||||
|
end
|
||||||
|
object vTabStavSkladu: TFloatField
|
||||||
|
DisplayLabel = 'Stav skladu'
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
end
|
||||||
|
object vTabPriorita: TIntegerField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabCisloZbozi: TStringField
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
object vTabIDKZ: TIntegerField
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabDodavatel: TIntegerField
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabJenRano: TSmallintField
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabMinimum: TFloatField
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabDelitelnost: TFloatField
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSingleField
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object Delitelnost: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Minimum: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object JenRano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Dodavatel: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object IDKZ: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object Nazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object StavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Doporuceno: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Rano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Rano'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Poledne: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Priorita: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 3
|
||||||
|
end
|
||||||
|
object CisloZbozi: TMTStringDataFieldEh
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ds: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 13
|
||||||
|
Top = 60
|
||||||
|
end
|
||||||
|
end
|
||||||
1202
frmOrder2.pas
Normal file
1202
frmOrder2.pas
Normal file
File diff suppressed because it is too large
Load Diff
901
frmOrder21024.dfm
Normal file
901
frmOrder21024.dfm
Normal file
@ -0,0 +1,901 @@
|
|||||||
|
object formOrder21024: TformOrder21024
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' Vytvo'#345'en'#237' objedn'#225'vky'
|
||||||
|
ClientHeight = 729
|
||||||
|
ClientWidth = 1008
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnResize = FormResize
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1008
|
||||||
|
729)
|
||||||
|
TextHeight = 23
|
||||||
|
object lblInfo: TLabel
|
||||||
|
Left = 12
|
||||||
|
Top = 197
|
||||||
|
Width = 4
|
||||||
|
Height = 16
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object gbDodavatel: TGroupBox
|
||||||
|
Left = 522
|
||||||
|
Top = 19
|
||||||
|
Width = 478
|
||||||
|
Height = 169
|
||||||
|
Caption = ' Dodavatel '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 68
|
||||||
|
Width = 71
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Adresa:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblDodAdresa: TLabel
|
||||||
|
Left = 111
|
||||||
|
Top = 68
|
||||||
|
Width = 362
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodMisto: TLabel
|
||||||
|
Left = 111
|
||||||
|
Top = 104
|
||||||
|
Width = 359
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodICO: TLabel
|
||||||
|
Left = 111
|
||||||
|
Top = 135
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object lblDodDIC: TLabel
|
||||||
|
Left = 301
|
||||||
|
Top = 135
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object cbxDodavatel: TComboBox
|
||||||
|
Left = 28
|
||||||
|
Top = 29
|
||||||
|
Width = 439
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = cbxDodavatelChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 4
|
||||||
|
Top = 276
|
||||||
|
Width = 778
|
||||||
|
Height = 425
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
object btnNovaPolozka: TSpeedButton
|
||||||
|
Left = 15
|
||||||
|
Top = 0
|
||||||
|
Width = 37
|
||||||
|
Height = 28
|
||||||
|
Glyph.Data = {
|
||||||
|
36100000424D3610000000000000360000002800000020000000200000000100
|
||||||
|
2000000000000010000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000020003092A0145145902911C7B02C9219103ED239C03FF239C03FF2192
|
||||||
|
03EF1C7C02CB145A02940A2C0149000200040000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000200040E3F
|
||||||
|
01681F8803DF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1F8B03E30F43016E01030005000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000061A002A1C7E02CE239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF1D8102D3061D00300000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000A2E014B219503F4239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF229703F60B33
|
||||||
|
0153000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000A2D0149229903FA239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239A
|
||||||
|
03FC0B3301530000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000006190029219403F3239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF229703F6061D003000000000000000000000000000000000000000000000
|
||||||
|
000000000000000200031C7C02CC239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF1D8102D301030005000000000000000000000000000000000000
|
||||||
|
0000000000000E3C0163239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF0F43016E000000000000000000000000000000000000
|
||||||
|
0000000100011E8503DA239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF1F8A03E3000200040000000000000000000000000000
|
||||||
|
00000826013E239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF0A2C01490000000000000000000000000000
|
||||||
|
000013540289239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF145A02940000000000000000000000000000
|
||||||
|
00001A7602C0239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1C7C02CB0000000000000000000000000000
|
||||||
|
00001F8B03E4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF219203EE0000000000000000000000000000
|
||||||
|
0000229503F4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF0000000000000000000000000000
|
||||||
|
0000229503F4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF0000000000000000000000000000
|
||||||
|
00001F8A03E3239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF219103ED0000000000000000000000000000
|
||||||
|
00001A7402BF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1C7B02C90000000000000000000000000000
|
||||||
|
000012520286239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF145902910000000000000000000000000000
|
||||||
|
00000823013A239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF092A01450000000000000000000000000000
|
||||||
|
0000000000011D8302D6239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF1F8803DF000200030000000000000000000000000000
|
||||||
|
0000000000000D39015D239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF0E3F0168000000000000000000000000000000000000
|
||||||
|
000000000000000100021B7902C6239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF1C7E02CE00020004000000000000000000000000000000000000
|
||||||
|
0000000000000000000005160024219203EF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF219503F4061A002A00000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000009280141229803F8239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF2299
|
||||||
|
03FA0A2E014B0000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000009280141219203EF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF219403F30A2D
|
||||||
|
0149000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000051600241B7902C6239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF1C7C02CC061900290000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000100020D39
|
||||||
|
015D1D8302D6239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1E8503DA0E3D016300020003000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000100010823013A125202871A7502BF1F8B03E3229503F4229503F41F8B
|
||||||
|
03E41A7602C0135402890826013E000100010000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000}
|
||||||
|
OnClick = btnNovaPolozkaClick
|
||||||
|
end
|
||||||
|
object polGrd: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 774
|
||||||
|
Height = 396
|
||||||
|
Align = alClient
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.DefaultStateExpanded = True
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_15_PoradiSortNazev'
|
||||||
|
end>
|
||||||
|
DataSource = ds
|
||||||
|
DynProps = <>
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
EmptyDataInfo.Active = True
|
||||||
|
EmptyDataInfo.Text = #381#225'dn'#233' polo'#382'ky nenalezeny'
|
||||||
|
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
ParentFont = False
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnDataGroupGetRowText = polGrdDataGroupGetRowText
|
||||||
|
OnKeyUp = polGrdKeyUp
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Footers = <>
|
||||||
|
Title.Caption = 'Po'#345'ad'#237
|
||||||
|
Visible = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = #268#237'slo'
|
||||||
|
Width = 112
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 291
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Stav skl.'
|
||||||
|
Width = 89
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Doporu'#269'.'
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Rano'
|
||||||
|
Footers = <>
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
Footers = <>
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Footers = <>
|
||||||
|
STFilter.DataField = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Footers = <>
|
||||||
|
TextEditing = False
|
||||||
|
Visible = False
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 793
|
||||||
|
Top = 198
|
||||||
|
Width = 208
|
||||||
|
Height = 105
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it a odeslat objedn'#225'vku'
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = True
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object btnTisk: TButton
|
||||||
|
Left = 793
|
||||||
|
Top = 320
|
||||||
|
Width = 208
|
||||||
|
Height = 49
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Vytisknout'
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnTiskClick
|
||||||
|
end
|
||||||
|
object btnPoslat: TButton
|
||||||
|
Left = 793
|
||||||
|
Top = 392
|
||||||
|
Width = 208
|
||||||
|
Height = 51
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Odeslat dodavateli'
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnPoslatClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 793
|
||||||
|
Top = 488
|
||||||
|
Width = 208
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 793
|
||||||
|
Top = 556
|
||||||
|
Width = 208
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 6
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 793
|
||||||
|
Top = 643
|
||||||
|
Width = 208
|
||||||
|
Height = 61
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Zav'#345#237't'
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object edtNumEditor: TNxEdit6
|
||||||
|
Left = 102
|
||||||
|
Top = 195
|
||||||
|
Width = 121
|
||||||
|
Height = 41
|
||||||
|
Alignment = taCenter
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -27
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
MaxLength = 3
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
Visible = False
|
||||||
|
UserDefinedColorPalette.GeometryHoverColor = clBlack
|
||||||
|
OnClick = edtNumEditorClick
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 7
|
||||||
|
Top = 242
|
||||||
|
Width = 585
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Zbo'#382#237
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 591
|
||||||
|
Top = 242
|
||||||
|
Width = 153
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Objedn'#225'no'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object btnVynulovat: TButton
|
||||||
|
Left = 579
|
||||||
|
Top = 198
|
||||||
|
Width = 183
|
||||||
|
Height = 42
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Vynulovat mno'#382'stv'#237
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = btnVynulovatClick
|
||||||
|
end
|
||||||
|
object gbSortiment: TGroupBox
|
||||||
|
Left = 9
|
||||||
|
Top = 19
|
||||||
|
Width = 503
|
||||||
|
Height = 175
|
||||||
|
TabOrder = 12
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 38
|
||||||
|
Top = 74
|
||||||
|
Width = 125
|
||||||
|
Height = 23
|
||||||
|
Caption = 'Datum z'#225'vozu:'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 144
|
||||||
|
Height = 23
|
||||||
|
Caption = 'Druh sortimentu:'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 14
|
||||||
|
Top = 125
|
||||||
|
Width = 145
|
||||||
|
Height = 23
|
||||||
|
Caption = #268#237'slo objedn'#225'vky:'
|
||||||
|
end
|
||||||
|
object cbxSortiment: TComboBox
|
||||||
|
Left = 171
|
||||||
|
Top = 13
|
||||||
|
Width = 320
|
||||||
|
Height = 31
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = cbxSortimentChange
|
||||||
|
end
|
||||||
|
object dtZavoz: TDateTimePicker
|
||||||
|
Left = 171
|
||||||
|
Top = 70
|
||||||
|
Width = 149
|
||||||
|
Height = 31
|
||||||
|
Date = 44268.000000000000000000
|
||||||
|
Time = 0.431178437502239800
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = dtZavozChange
|
||||||
|
end
|
||||||
|
object edtCisloObj: TNumberBox
|
||||||
|
Left = 171
|
||||||
|
Top = 122
|
||||||
|
Width = 97
|
||||||
|
Height = 31
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayFormat = '#####0'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
AfterPost = vTabAfterPost
|
||||||
|
AfterDelete = vTabAfterDelete
|
||||||
|
Left = 12
|
||||||
|
Top = 11
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Required = True
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev: TStringField
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabRano: TFloatField
|
||||||
|
DisplayLabel = 'R'#225'no'
|
||||||
|
FieldName = 'Rano'
|
||||||
|
OnValidate = vTabRanoValidate
|
||||||
|
end
|
||||||
|
object vTabDoporuceno: TFloatField
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
end
|
||||||
|
object vTabPoledne: TFloatField
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
OnValidate = vTabPoledneValidate
|
||||||
|
end
|
||||||
|
object vTabStavSkladu: TFloatField
|
||||||
|
DisplayLabel = 'Stav skladu'
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
end
|
||||||
|
object vTabPriorita: TIntegerField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabCisloZbozi: TStringField
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
object vTabIDKZ: TIntegerField
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabDodavatel: TIntegerField
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabJenRano: TSmallintField
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabMinimum: TFloatField
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabDelitelnost: TFloatField
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSingleField
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object Delitelnost: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Minimum: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object JenRano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Dodavatel: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object IDKZ: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object Nazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object StavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Doporuceno: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Rano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Rano'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Poledne: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Priorita: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 3
|
||||||
|
end
|
||||||
|
object CisloZbozi: TMTStringDataFieldEh
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ds: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 13
|
||||||
|
Top = 60
|
||||||
|
end
|
||||||
|
end
|
||||||
1198
frmOrder21024.pas
Normal file
1198
frmOrder21024.pas
Normal file
File diff suppressed because it is too large
Load Diff
895
frmOrder21366.dfm
Normal file
895
frmOrder21366.dfm
Normal file
@ -0,0 +1,895 @@
|
|||||||
|
object formOrder21366: TformOrder21366
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' Vytvo'#345'en'#237' objedn'#225'vky'
|
||||||
|
ClientHeight = 729
|
||||||
|
ClientWidth = 1350
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnResize = FormResize
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1350
|
||||||
|
729)
|
||||||
|
TextHeight = 25
|
||||||
|
object lblInfo: TLabel
|
||||||
|
Left = 80
|
||||||
|
Top = 200
|
||||||
|
Width = 4
|
||||||
|
Height = 16
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object gbDodavatel: TGroupBox
|
||||||
|
Left = 666
|
||||||
|
Top = 19
|
||||||
|
Width = 640
|
||||||
|
Height = 169
|
||||||
|
Caption = ' Dodavatel '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 72
|
||||||
|
Width = 71
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Adresa:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblDodAdresa: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 72
|
||||||
|
Width = 445
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodMisto: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 110
|
||||||
|
Width = 405
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodICO: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object lblDodDIC: TLabel
|
||||||
|
Left = 360
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object cbxDodavatel: TComboBox
|
||||||
|
Left = 28
|
||||||
|
Top = 33
|
||||||
|
Width = 589
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = cbxDodavatelChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 20
|
||||||
|
Top = 276
|
||||||
|
Width = 1076
|
||||||
|
Height = 425
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
object btnNovaPolozka: TSpeedButton
|
||||||
|
Left = 15
|
||||||
|
Top = 0
|
||||||
|
Width = 37
|
||||||
|
Height = 28
|
||||||
|
Glyph.Data = {
|
||||||
|
36100000424D3610000000000000360000002800000020000000200000000100
|
||||||
|
2000000000000010000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000020003092A0145145902911C7B02C9219103ED239C03FF239C03FF2192
|
||||||
|
03EF1C7C02CB145A02940A2C0149000200040000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000200040E3F
|
||||||
|
01681F8803DF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1F8B03E30F43016E01030005000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000061A002A1C7E02CE239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF1D8102D3061D00300000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000A2E014B219503F4239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF229703F60B33
|
||||||
|
0153000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000A2D0149229903FA239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239A
|
||||||
|
03FC0B3301530000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000006190029219403F3239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF229703F6061D003000000000000000000000000000000000000000000000
|
||||||
|
000000000000000200031C7C02CC239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF1D8102D301030005000000000000000000000000000000000000
|
||||||
|
0000000000000E3C0163239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF0F43016E000000000000000000000000000000000000
|
||||||
|
0000000100011E8503DA239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF1F8A03E3000200040000000000000000000000000000
|
||||||
|
00000826013E239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF0A2C01490000000000000000000000000000
|
||||||
|
000013540289239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF145A02940000000000000000000000000000
|
||||||
|
00001A7602C0239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1C7C02CB0000000000000000000000000000
|
||||||
|
00001F8B03E4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF219203EE0000000000000000000000000000
|
||||||
|
0000229503F4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF0000000000000000000000000000
|
||||||
|
0000229503F4239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF0000000000000000000000000000
|
||||||
|
00001F8A03E3239C03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF219103ED0000000000000000000000000000
|
||||||
|
00001A7402BF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1C7B02C90000000000000000000000000000
|
||||||
|
000012520286239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF145902910000000000000000000000000000
|
||||||
|
00000823013A239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF092A01450000000000000000000000000000
|
||||||
|
0000000000011D8302D6239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF1F8803DF000200030000000000000000000000000000
|
||||||
|
0000000000000D39015D239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF0E3F0168000000000000000000000000000000000000
|
||||||
|
000000000000000100021B7902C6239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
||||||
|
FFFF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF1C7E02CE00020004000000000000000000000000000000000000
|
||||||
|
0000000000000000000005160024219203EF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF219503F4061A002A00000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000009280141229803F8239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF2299
|
||||||
|
03FA0A2E014B0000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000009280141219203EF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF219403F30A2D
|
||||||
|
0149000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000051600241B7902C6239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF239C03FF239C03FF1C7C02CC061900290000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000100020D39
|
||||||
|
015D1D8302D6239C03FF239C03FF239C03FF239C03FF239C03FF239C03FF239C
|
||||||
|
03FF239C03FF239C03FF239C03FF1E8503DA0E3D016300020003000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000100010823013A125202871A7502BF1F8B03E3229503F4229503F41F8B
|
||||||
|
03E41A7602C0135402890826013E000100010000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000}
|
||||||
|
OnClick = btnNovaPolozkaClick
|
||||||
|
end
|
||||||
|
object polGrd: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 1072
|
||||||
|
Height = 396
|
||||||
|
Align = alClient
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.DefaultStateExpanded = True
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_15_PoradiSortNazev'
|
||||||
|
end>
|
||||||
|
DataSource = ds
|
||||||
|
DynProps = <>
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
EmptyDataInfo.Active = True
|
||||||
|
EmptyDataInfo.Text = #381#225'dn'#233' polo'#382'ky nenalezeny'
|
||||||
|
Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnDataGroupGetRowText = polGrdDataGroupGetRowText
|
||||||
|
OnKeyUp = polGrdKeyUp
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Footers = <>
|
||||||
|
Title.Caption = 'Po'#345'ad'#237
|
||||||
|
Visible = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = #268#237'slo'
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 409
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 118
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Title.Caption = 'Doporu'#269'eno'
|
||||||
|
Width = 125
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Rano'
|
||||||
|
Footers = <>
|
||||||
|
Width = 104
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
Footers = <>
|
||||||
|
Width = 109
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Footers = <>
|
||||||
|
STFilter.DataField = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Footers = <>
|
||||||
|
TextEditing = False
|
||||||
|
Visible = False
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 200
|
||||||
|
Width = 208
|
||||||
|
Height = 103
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it a odeslat objedn'#225'vku'
|
||||||
|
TabOrder = 0
|
||||||
|
WordWrap = True
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object btnTisk: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 320
|
||||||
|
Width = 208
|
||||||
|
Height = 49
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Vytisknout'
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnTiskClick
|
||||||
|
end
|
||||||
|
object btnPoslat: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 392
|
||||||
|
Width = 208
|
||||||
|
Height = 51
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Odeslat dodavateli'
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnPoslatClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 467
|
||||||
|
Width = 208
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 535
|
||||||
|
Width = 208
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 6
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 643
|
||||||
|
Width = 208
|
||||||
|
Height = 61
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Zav'#345#237't'
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object edtNumEditor: TNxEdit6
|
||||||
|
Left = 501
|
||||||
|
Top = 190
|
||||||
|
Width = 121
|
||||||
|
Height = 41
|
||||||
|
Alignment = taCenter
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -27
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
MaxLength = 3
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
Visible = False
|
||||||
|
UserDefinedColorPalette.GeometryHoverColor = clBlack
|
||||||
|
OnClick = edtNumEditorClick
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 20
|
||||||
|
Top = 242
|
||||||
|
Width = 792
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Zbo'#382#237
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 811
|
||||||
|
Top = 242
|
||||||
|
Width = 243
|
||||||
|
Height = 35
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Objedn'#225'no'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object btnVynulovat: TButton
|
||||||
|
Left = 816
|
||||||
|
Top = 197
|
||||||
|
Width = 235
|
||||||
|
Height = 42
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Caption = 'Vynulovat mno'#382'stv'#237
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = btnVynulovatClick
|
||||||
|
end
|
||||||
|
object gbSortiment: TGroupBox
|
||||||
|
Left = 80
|
||||||
|
Top = 19
|
||||||
|
Width = 559
|
||||||
|
Height = 175
|
||||||
|
TabOrder = 12
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 38
|
||||||
|
Top = 74
|
||||||
|
Width = 138
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Datum z'#225'vozu:'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 160
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Druh sortimentu:'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 14
|
||||||
|
Top = 125
|
||||||
|
Width = 162
|
||||||
|
Height = 25
|
||||||
|
Caption = #268#237'slo objedn'#225'vky:'
|
||||||
|
end
|
||||||
|
object cbxSortiment: TComboBox
|
||||||
|
Left = 196
|
||||||
|
Top = 13
|
||||||
|
Width = 339
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = cbxSortimentChange
|
||||||
|
end
|
||||||
|
object dtZavoz: TDateTimePicker
|
||||||
|
Left = 196
|
||||||
|
Top = 70
|
||||||
|
Width = 149
|
||||||
|
Height = 33
|
||||||
|
Date = 44268.000000000000000000
|
||||||
|
Time = 0.431178437502239800
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = dtZavozChange
|
||||||
|
end
|
||||||
|
object edtCisloObj: TNumberBox
|
||||||
|
Left = 196
|
||||||
|
Top = 122
|
||||||
|
Width = 97
|
||||||
|
Height = 33
|
||||||
|
Alignment = taCenter
|
||||||
|
DisplayFormat = '#####0'
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
AfterPost = vTabAfterPost
|
||||||
|
AfterDelete = vTabAfterDelete
|
||||||
|
Left = 12
|
||||||
|
Top = 11
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Required = True
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev: TStringField
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabRano: TFloatField
|
||||||
|
DisplayLabel = 'R'#225'no'
|
||||||
|
FieldName = 'Rano'
|
||||||
|
OnValidate = vTabRanoValidate
|
||||||
|
end
|
||||||
|
object vTabDoporuceno: TFloatField
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
end
|
||||||
|
object vTabPoledne: TFloatField
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
OnValidate = vTabPoledneValidate
|
||||||
|
end
|
||||||
|
object vTabStavSkladu: TFloatField
|
||||||
|
DisplayLabel = 'Stav skladu'
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
end
|
||||||
|
object vTabPriorita: TIntegerField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabCisloZbozi: TStringField
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
Visible = False
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
object vTabIDKZ: TIntegerField
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabDodavatel: TIntegerField
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabJenRano: TSmallintField
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabMinimum: TFloatField
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabDelitelnost: TFloatField
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSingleField
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object Delitelnost: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Delitelnost'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Minimum: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Minimum'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object JenRano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JenRano'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Dodavatel: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Dodavatel'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 50
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object IDKZ: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDKZ'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object Nazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object StavSkladu: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'StavSkladu'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Doporuceno: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Doporuceno'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Rano: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Rano'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object Poledne: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poledne'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 10
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Priorita: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Priorita'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 3
|
||||||
|
end
|
||||||
|
object CisloZbozi: TMTStringDataFieldEh
|
||||||
|
FieldName = 'CisloZbozi'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 50
|
||||||
|
Size = 33
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ds: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 13
|
||||||
|
Top = 60
|
||||||
|
end
|
||||||
|
end
|
||||||
1204
frmOrder21366.pas
Normal file
1204
frmOrder21366.pas
Normal file
File diff suppressed because it is too large
Load Diff
677
frmPrijem.dfm
Normal file
677
frmPrijem.dfm
Normal file
@ -0,0 +1,677 @@
|
|||||||
|
object formPrijem: TformPrijem
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Align = alLeft
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' P'#345#237'jem objedn'#225'vky'
|
||||||
|
ClientHeight = 774
|
||||||
|
ClientWidth = 1324
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1324
|
||||||
|
774)
|
||||||
|
TextHeight = 25
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 138
|
||||||
|
Top = 82
|
||||||
|
Width = 130
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Datum p'#345#237'jmu'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 120
|
||||||
|
Top = 31
|
||||||
|
Width = 160
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Druh sortimentu:'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 112
|
||||||
|
Top = 138
|
||||||
|
Width = 162
|
||||||
|
Height = 25
|
||||||
|
Caption = #268#237'slo objedn'#225'vky:'
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 91
|
||||||
|
Top = 193
|
||||||
|
Width = 60
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Z'#225'voz:'
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 365
|
||||||
|
Top = 193
|
||||||
|
Width = 85
|
||||||
|
Height = 25
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'Dod.fakt:'
|
||||||
|
end
|
||||||
|
object gbDodavatel: TGroupBox
|
||||||
|
Left = 666
|
||||||
|
Top = 19
|
||||||
|
Width = 640
|
||||||
|
Height = 169
|
||||||
|
Caption = ' Dodavatel '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 72
|
||||||
|
Width = 71
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Adresa:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblDodAdresa: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 72
|
||||||
|
Width = 445
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodMisto: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 110
|
||||||
|
Width = 405
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodICO: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object lblDodDIC: TLabel
|
||||||
|
Left = 360
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object cbxDodavatel: TComboBox
|
||||||
|
Left = 28
|
||||||
|
Top = 33
|
||||||
|
Width = 589
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 3
|
||||||
|
Top = 276
|
||||||
|
Width = 1089
|
||||||
|
Height = 470
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 9
|
||||||
|
object polGrd: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 1085
|
||||||
|
Height = 441
|
||||||
|
Align = alClient
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.DefaultStateExpanded = True
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_12_PoradiSortNazev'
|
||||||
|
end>
|
||||||
|
DataSource = ds
|
||||||
|
DynProps = <>
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
EmptyDataInfo.Active = True
|
||||||
|
EmptyDataInfo.Text = #381#225'dn'#233' polo'#382'ky nenalezeny'
|
||||||
|
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
STFilter.Local = True
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnDataGroupGetRowText = polGrdDataGroupGetRowText
|
||||||
|
OnDrawColumnCell = polGrdDrawColumnCell
|
||||||
|
OnKeyUp = polGrdKeyUp
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 230
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 594
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
Footers = <>
|
||||||
|
Width = 105
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
WordWrap = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Footers = <>
|
||||||
|
TextEditing = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
Footers = <>
|
||||||
|
Title.Caption = 'JC bez DPH'
|
||||||
|
Width = 120
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 234
|
||||||
|
Width = 191
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it p'#345#237'jemku'
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object dtZavoz: TDateTimePicker
|
||||||
|
Left = 288
|
||||||
|
Top = 79
|
||||||
|
Width = 149
|
||||||
|
Height = 33
|
||||||
|
Date = 44268.000000000000000000
|
||||||
|
Time = 0.431178437502239800
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object cbxSortiment: TComboBox
|
||||||
|
Left = 291
|
||||||
|
Top = 28
|
||||||
|
Width = 339
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = cbxSortimentChange
|
||||||
|
end
|
||||||
|
object edtCisloObj: TNumberBox
|
||||||
|
Left = 288
|
||||||
|
Top = 135
|
||||||
|
Width = 97
|
||||||
|
Height = 33
|
||||||
|
Alignment = taCenter
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnExit = edtCisloObjExit
|
||||||
|
end
|
||||||
|
object btnTisk: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 320
|
||||||
|
Width = 188
|
||||||
|
Height = 49
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Vytisknout'
|
||||||
|
TabOrder = 10
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnTiskClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 504
|
||||||
|
Width = 188
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 572
|
||||||
|
Width = 188
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 12
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 1124
|
||||||
|
Top = 680
|
||||||
|
Width = 188
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Zav'#345#237't'
|
||||||
|
TabOrder = 13
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object edtNumEditor: TNxEdit6
|
||||||
|
Left = 8
|
||||||
|
Top = 177
|
||||||
|
Width = 121
|
||||||
|
Height = 41
|
||||||
|
Alignment = taCenter
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -27
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
MaxLength = 3
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 14
|
||||||
|
Visible = False
|
||||||
|
UserDefinedColorPalette.GeometryHoverColor = clBlack
|
||||||
|
OnClick = edtNumEditorClick
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 3
|
||||||
|
Top = 242
|
||||||
|
Width = 829
|
||||||
|
Height = 35
|
||||||
|
Caption = 'Zbo'#382#237
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 831
|
||||||
|
Top = 242
|
||||||
|
Width = 232
|
||||||
|
Height = 35
|
||||||
|
Caption = 'P'#345#237'jem'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 16
|
||||||
|
end
|
||||||
|
object btnNactiObj: TButton
|
||||||
|
Left = 398
|
||||||
|
Top = 133
|
||||||
|
Width = 117
|
||||||
|
Height = 37
|
||||||
|
Caption = 'Na'#269'ti data'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = btnNactiObjClick
|
||||||
|
end
|
||||||
|
object cbZavoz: TComboBox
|
||||||
|
Left = 160
|
||||||
|
Top = 190
|
||||||
|
Width = 163
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
ExtendedUI = True
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 5
|
||||||
|
Text = ' R'#225'no'
|
||||||
|
OnChange = cbZavozChange
|
||||||
|
Items.Strings = (
|
||||||
|
' R'#225'no'
|
||||||
|
' Poledne')
|
||||||
|
end
|
||||||
|
object btnNuluj: TButton
|
||||||
|
Left = 831
|
||||||
|
Top = 199
|
||||||
|
Width = 109
|
||||||
|
Height = 37
|
||||||
|
Caption = 'Vynulovat'
|
||||||
|
TabOrder = 7
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnNulujClick
|
||||||
|
end
|
||||||
|
object edtDodFak: TEdit
|
||||||
|
Left = 456
|
||||||
|
Top = 189
|
||||||
|
Width = 198
|
||||||
|
Height = 33
|
||||||
|
MaxLength = 20
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
Options = [mtoPersistentStructEh]
|
||||||
|
OnFilterRecord = vTabFilterRecord
|
||||||
|
Left = 27
|
||||||
|
Top = 17
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSmallintField
|
||||||
|
DisplayLabel = 'Po'#345'ad'#237
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
DisplayFormat = '#0'
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
DisplayLabel = #268#237'slo'
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Required = True
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev1: TStringField
|
||||||
|
DisplayLabel = 'N'#225'zev'
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabMnozstvi: TFloatField
|
||||||
|
DisplayLabel = 'Mno'#382'stv'#237
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
OnValidate = vTabMnozstviValidate
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabIDPohybZboziObj: TIntegerField
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabTypZavozu: TStringField
|
||||||
|
FieldName = 'TypZavozu'
|
||||||
|
Visible = False
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object vTabPoradiExt: TSingleField
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabJCbezDaniKc: TSingleField
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object JCbezDaniKc: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object PoradiExt: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object TypZavozu: TMTStringDataFieldEh
|
||||||
|
FieldName = 'TypZavozu'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 1
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Nazev1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 30
|
||||||
|
Required = True
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Mnozstvi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object IDPohybZboziObj: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ds: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 34
|
||||||
|
Top = 81
|
||||||
|
end
|
||||||
|
end
|
||||||
1004
frmPrijem.pas
Normal file
1004
frmPrijem.pas
Normal file
File diff suppressed because it is too large
Load Diff
677
frmPrijem1024.dfm
Normal file
677
frmPrijem1024.dfm
Normal file
@ -0,0 +1,677 @@
|
|||||||
|
object formPrijem1024: TformPrijem1024
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Align = alLeft
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' P'#345#237'jem objedn'#225'vky'
|
||||||
|
ClientHeight = 729
|
||||||
|
ClientWidth = 1008
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -19
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
1008
|
||||||
|
729)
|
||||||
|
TextHeight = 23
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 42
|
||||||
|
Top = 69
|
||||||
|
Width = 116
|
||||||
|
Height = 23
|
||||||
|
Caption = 'Datum p'#345#237'jmu'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 24
|
||||||
|
Top = 18
|
||||||
|
Width = 144
|
||||||
|
Height = 23
|
||||||
|
Caption = 'Druh sortimentu:'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 125
|
||||||
|
Width = 145
|
||||||
|
Height = 23
|
||||||
|
Caption = #268#237'slo objedn'#225'vky:'
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 15
|
||||||
|
Top = 180
|
||||||
|
Width = 55
|
||||||
|
Height = 23
|
||||||
|
Caption = 'Z'#225'voz:'
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 270
|
||||||
|
Top = 180
|
||||||
|
Width = 78
|
||||||
|
Height = 23
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'Dod.fakt:'
|
||||||
|
end
|
||||||
|
object gbDodavatel: TGroupBox
|
||||||
|
Left = 528
|
||||||
|
Top = 15
|
||||||
|
Width = 468
|
||||||
|
Height = 169
|
||||||
|
Caption = ' Dodavatel '
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 72
|
||||||
|
Width = 71
|
||||||
|
Height = 25
|
||||||
|
Caption = 'Adresa:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblDodAdresa: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 72
|
||||||
|
Width = 445
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodMisto: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 110
|
||||||
|
Width = 405
|
||||||
|
Height = 29
|
||||||
|
AutoSize = False
|
||||||
|
end
|
||||||
|
object lblDodICO: TLabel
|
||||||
|
Left = 130
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object lblDodDIC: TLabel
|
||||||
|
Left = 360
|
||||||
|
Top = 142
|
||||||
|
Width = 7
|
||||||
|
Height = 25
|
||||||
|
end
|
||||||
|
object cbxDodavatel: TComboBox
|
||||||
|
Left = 28
|
||||||
|
Top = 33
|
||||||
|
Width = 435
|
||||||
|
Height = 33
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object gbPolozky: TGroupBox
|
||||||
|
Left = 5
|
||||||
|
Top = 276
|
||||||
|
Width = 788
|
||||||
|
Height = 425
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -21
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 6
|
||||||
|
object polGrd: TDBGridEh
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 784
|
||||||
|
Height = 396
|
||||||
|
Align = alClient
|
||||||
|
DataGrouping.Active = True
|
||||||
|
DataGrouping.DefaultStateExpanded = True
|
||||||
|
DataGrouping.GroupLevels = <
|
||||||
|
item
|
||||||
|
ColumnName = 'Column_12_PoradiSortNazev'
|
||||||
|
end>
|
||||||
|
DataSource = ds
|
||||||
|
DynProps = <>
|
||||||
|
GridLineParams.VertEmptySpaceStyle = dessNonEh
|
||||||
|
IndicatorOptions = []
|
||||||
|
EmptyDataInfo.Active = True
|
||||||
|
EmptyDataInfo.Text = #381#225'dn'#233' polo'#382'ky nenalezeny'
|
||||||
|
Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
|
||||||
|
OptionsEh = [dghFixed3D, dghData3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
|
||||||
|
SelectionDrawParams.SelectionStyle = gsdsClassicEh
|
||||||
|
STFilter.Local = True
|
||||||
|
TabOrder = 0
|
||||||
|
TitleParams.Color = clMoneyGreen
|
||||||
|
TitleParams.FillStyle = cfstSolidEh
|
||||||
|
TitleParams.MultiTitle = True
|
||||||
|
TitleParams.SecondColor = clMoneyGreen
|
||||||
|
OnDataGroupGetRowText = polGrdDataGroupGetRowText
|
||||||
|
OnDrawColumnCell = polGrdDrawColumnCell
|
||||||
|
OnKeyUp = polGrdKeyUp
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K1'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'K2'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 115
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Footers = <>
|
||||||
|
ReadOnly = True
|
||||||
|
TextEditing = False
|
||||||
|
Width = 397
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
Footers = <>
|
||||||
|
Width = 94
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
WordWrap = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
Footers = <>
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
CellButtons = <>
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Footers = <>
|
||||||
|
TextEditing = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
CellButtons = <>
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
DynProps = <>
|
||||||
|
EditButtons = <>
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
Footers = <>
|
||||||
|
Title.Caption = 'JC bez DPH'
|
||||||
|
Width = 120
|
||||||
|
end>
|
||||||
|
object RowDetailData: TRowDetailPanelControlEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 809
|
||||||
|
Top = 228
|
||||||
|
Width = 191
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Ulo'#382'it p'#345#237'jemku'
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object dtZavoz: TDateTimePicker
|
||||||
|
Left = 172
|
||||||
|
Top = 66
|
||||||
|
Width = 149
|
||||||
|
Height = 31
|
||||||
|
Date = 44268.000000000000000000
|
||||||
|
Time = 0.431178437502239800
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object cbxSortiment: TComboBox
|
||||||
|
Left = 172
|
||||||
|
Top = 15
|
||||||
|
Width = 306
|
||||||
|
Height = 31
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = cbxSortimentChange
|
||||||
|
end
|
||||||
|
object edtCisloObj: TNumberBox
|
||||||
|
Left = 172
|
||||||
|
Top = 122
|
||||||
|
Width = 97
|
||||||
|
Height = 31
|
||||||
|
Alignment = taCenter
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnExit = edtCisloObjExit
|
||||||
|
end
|
||||||
|
object btnTisk: TButton
|
||||||
|
Left = 809
|
||||||
|
Top = 314
|
||||||
|
Width = 188
|
||||||
|
Height = 49
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
Caption = 'Vytisknout'
|
||||||
|
TabOrder = 7
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnTiskClick
|
||||||
|
end
|
||||||
|
object btnRozbalit: TButton
|
||||||
|
Left = 809
|
||||||
|
Top = 453
|
||||||
|
Width = 188
|
||||||
|
Height = 46
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Rozbalit v'#353'e'
|
||||||
|
TabOrder = 8
|
||||||
|
OnClick = btnRozbalitClick
|
||||||
|
end
|
||||||
|
object btnSbalit: TButton
|
||||||
|
Left = 809
|
||||||
|
Top = 521
|
||||||
|
Width = 188
|
||||||
|
Height = 45
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Sbalit v'#353'e'
|
||||||
|
TabOrder = 9
|
||||||
|
OnClick = btnSbalitClick
|
||||||
|
end
|
||||||
|
object btnZavrit: TButton
|
||||||
|
Left = 809
|
||||||
|
Top = 629
|
||||||
|
Width = 188
|
||||||
|
Height = 69
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Zav'#345#237't'
|
||||||
|
TabOrder = 10
|
||||||
|
OnClick = btnZavritClick
|
||||||
|
end
|
||||||
|
object edtNumEditor: TNxEdit6
|
||||||
|
Left = 882
|
||||||
|
Top = 190
|
||||||
|
Width = 121
|
||||||
|
Height = 41
|
||||||
|
Alignment = taCenter
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -27
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
MaxLength = 3
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 11
|
||||||
|
Visible = False
|
||||||
|
UserDefinedColorPalette.GeometryHoverColor = clBlack
|
||||||
|
OnClick = edtNumEditorClick
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 5
|
||||||
|
Top = 242
|
||||||
|
Width = 518
|
||||||
|
Height = 35
|
||||||
|
Caption = 'Zbo'#382#237
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 522
|
||||||
|
Top = 242
|
||||||
|
Width = 219
|
||||||
|
Height = 35
|
||||||
|
Caption = 'P'#345#237'jem'
|
||||||
|
Color = 14471860
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBackground = False
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object btnNactiObj: TButton
|
||||||
|
Left = 282
|
||||||
|
Top = 120
|
||||||
|
Width = 117
|
||||||
|
Height = 37
|
||||||
|
Caption = 'Na'#269'ti data'
|
||||||
|
TabOrder = 14
|
||||||
|
OnClick = btnNactiObjClick
|
||||||
|
end
|
||||||
|
object cbZavoz: TComboBox
|
||||||
|
Left = 84
|
||||||
|
Top = 177
|
||||||
|
Width = 163
|
||||||
|
Height = 31
|
||||||
|
Style = csDropDownList
|
||||||
|
ExtendedUI = True
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 4
|
||||||
|
Text = ' R'#225'no'
|
||||||
|
OnChange = cbZavozChange
|
||||||
|
Items.Strings = (
|
||||||
|
' R'#225'no'
|
||||||
|
' Poledne')
|
||||||
|
end
|
||||||
|
object btnNuluj: TButton
|
||||||
|
Left = 570
|
||||||
|
Top = 205
|
||||||
|
Width = 106
|
||||||
|
Height = 37
|
||||||
|
Caption = 'Vynulovat'
|
||||||
|
TabOrder = 15
|
||||||
|
Visible = False
|
||||||
|
OnClick = btnNulujClick
|
||||||
|
end
|
||||||
|
object edtDodFak: TEdit
|
||||||
|
Left = 354
|
||||||
|
Top = 177
|
||||||
|
Width = 162
|
||||||
|
Height = 31
|
||||||
|
MaxLength = 20
|
||||||
|
TabOrder = 16
|
||||||
|
end
|
||||||
|
object vTab: TMemTableEh
|
||||||
|
Params = <>
|
||||||
|
Options = [mtoPersistentStructEh]
|
||||||
|
OnFilterRecord = vTabFilterRecord
|
||||||
|
Left = 3
|
||||||
|
Top = 2
|
||||||
|
object vTabPoradiSort: TSingleField
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabPoradi: TSmallintField
|
||||||
|
DisplayLabel = 'Po'#345'ad'#237
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
DisplayFormat = '#0'
|
||||||
|
end
|
||||||
|
object vTabRegCis: TStringField
|
||||||
|
DisplayLabel = #268#237'slo'
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Required = True
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object vTabNazev1: TStringField
|
||||||
|
DisplayLabel = 'N'#225'zev'
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabMnozstvi: TFloatField
|
||||||
|
DisplayLabel = 'Mno'#382'stv'#237
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
OnValidate = vTabMnozstviValidate
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
end
|
||||||
|
object vTabSkupZbo: TStringField
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object vTabIDZboSklad: TIntegerField
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabIDPohybZboziObj: TIntegerField
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabSortiment: TStringField
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabK2: TStringField
|
||||||
|
FieldName = 'K2'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabK1: TStringField
|
||||||
|
FieldName = 'K1'
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object vTabTypZavozu: TStringField
|
||||||
|
FieldName = 'TypZavozu'
|
||||||
|
Visible = False
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object vTabPoradiExt: TSingleField
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object vTabK1K2: TStringField
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
Visible = False
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
object vTabPoradiSortNazev: TStringField
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object vTabJCbezDaniKc: TSingleField
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
end
|
||||||
|
object MemTableData: TMemTableDataEh
|
||||||
|
object DataStruct: TMTDataStructEh
|
||||||
|
object JCbezDaniKc: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'JCbezDaniKc'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object PoradiSortNazev: TMTStringDataFieldEh
|
||||||
|
FieldName = 'PoradiSortNazev'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object PoradiExt: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiExt'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object PoradiSort: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'PoradiSort'
|
||||||
|
NumericDataType = fdtSingleEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Poradi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Poradi'
|
||||||
|
NumericDataType = fdtSmallintEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object TypZavozu: TMTStringDataFieldEh
|
||||||
|
FieldName = 'TypZavozu'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 1
|
||||||
|
Size = 1
|
||||||
|
end
|
||||||
|
object Sortiment: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Sortiment'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object K1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 10
|
||||||
|
Visible = False
|
||||||
|
Size = 10
|
||||||
|
end
|
||||||
|
object Nazev1: TMTStringDataFieldEh
|
||||||
|
FieldName = 'Nazev1'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 100
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object RegCis: TMTStringDataFieldEh
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 30
|
||||||
|
Required = True
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object SkupZbo: TMTStringDataFieldEh
|
||||||
|
FieldName = 'SkupZbo'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 3
|
||||||
|
Visible = False
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object IDZboSklad: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDZboSklad'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object Mnozstvi: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
NumericDataType = fdtFloatEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayLabel = '0'
|
||||||
|
DisplayWidth = 20
|
||||||
|
DisplayFormat = '##0.##'
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
object K1K2: TMTStringDataFieldEh
|
||||||
|
FieldName = 'K1K2'
|
||||||
|
StringDataType = fdtStringEh
|
||||||
|
DisplayWidth = 20
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object IDPohybZboziObj: TMTNumericDataFieldEh
|
||||||
|
FieldName = 'IDPohybZboziObj'
|
||||||
|
NumericDataType = fdtIntegerEh
|
||||||
|
AutoIncrement = False
|
||||||
|
DisplayWidth = 20
|
||||||
|
Required = True
|
||||||
|
Visible = False
|
||||||
|
currency = False
|
||||||
|
Precision = 15
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RecordsList: TRecordsListEh
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ds: TDataSource
|
||||||
|
DataSet = vTab
|
||||||
|
Left = 4
|
||||||
|
Top = 57
|
||||||
|
end
|
||||||
|
end
|
||||||
1001
frmPrijem1024.pas
Normal file
1001
frmPrijem1024.pas
Normal file
File diff suppressed because it is too large
Load Diff
301
frmZamena.dfm
Normal file
301
frmZamena.dfm
Normal file
@ -0,0 +1,301 @@
|
|||||||
|
object formZamena: TformZamena
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' Operativn'#237' z'#225'm'#283'na'
|
||||||
|
ClientHeight = 390
|
||||||
|
ClientWidth = 492
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -27
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
PixelsPerInch = 96
|
||||||
|
DesignSize = (
|
||||||
|
492
|
||||||
|
390)
|
||||||
|
TextHeight = 37
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 18
|
||||||
|
Top = 27
|
||||||
|
Width = 56
|
||||||
|
Height = 32
|
||||||
|
Caption = #268#237'slo:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 18
|
||||||
|
Top = 92
|
||||||
|
Width = 71
|
||||||
|
Height = 32
|
||||||
|
Caption = 'N'#225'zev:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblNazev: TLabel
|
||||||
|
Left = 102
|
||||||
|
Top = 92
|
||||||
|
Width = 373
|
||||||
|
Height = 32
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 18
|
||||||
|
Top = 140
|
||||||
|
Width = 124
|
||||||
|
Height = 32
|
||||||
|
Caption = 'Stav skladu:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 204
|
||||||
|
Width = 152
|
||||||
|
Height = 32
|
||||||
|
Caption = 'N'#225'kupn'#237' cena:'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 75
|
||||||
|
Top = 254
|
||||||
|
Width = 102
|
||||||
|
Height = 32
|
||||||
|
Caption = 'Mno'#382'stv'#237':'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object lblStav: TLabel
|
||||||
|
Left = 195
|
||||||
|
Top = 140
|
||||||
|
Width = 164
|
||||||
|
Height = 32
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
AutoSize = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object edtKod: TEdit
|
||||||
|
Left = 80
|
||||||
|
Top = 20
|
||||||
|
Width = 320
|
||||||
|
Height = 45
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnExit = edtKodExit
|
||||||
|
end
|
||||||
|
object btnHledat: TBitBtn
|
||||||
|
Left = 415
|
||||||
|
Top = 15
|
||||||
|
Width = 54
|
||||||
|
Height = 55
|
||||||
|
Glyph.Data = {
|
||||||
|
36100000424D3610000000000000360000002800000020000000200000000100
|
||||||
|
2000000000000010000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000003B3B3B853B3B3B85000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00003B3B3B85727272FF727272FF3B3B3B850000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00003636367A727272FF727272FF727272FF3B3B3B8500000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000003636367A727272FF727272FF727272FF3B3B3B85000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000003636367A727272FF727272FF727272FF3B3B3B850000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000003636367A727272FF727272FF727272FF3B3B
|
||||||
|
3B85000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000003636367A727272FF727272FF7272
|
||||||
|
72FF3B3B3B850000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000003636367A727272FF7272
|
||||||
|
72FF727272FF3B3B3B8500000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000003636367A7272
|
||||||
|
72FF727272FF727272FF3B3B3B85000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000003636
|
||||||
|
367A727272FF727272FF727272FF3B3B3B850000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00003636367A727272FF727272FF727272FF3B3B3B85000000002A1703328148
|
||||||
|
0A9ABB670FDDD57611FDD57611FDBC680FDF84490A9D2D190436000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000003636367A727272FF727272FF75726FFF945B1EC5D67711FED777
|
||||||
|
11FFD77711FFD77711FFD77711FFD77711FFD77711FFD77711FE874B0BA00905
|
||||||
|
010B000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000003636367A75726FFFBD762AFFD77711FFD17310F77641
|
||||||
|
098C2816033004020004030200042615032D723F0987CF7210F5D77711FFA65C
|
||||||
|
0DC40905010B0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000090581DBFD77711FFBF6A0FE32615032E0000
|
||||||
|
0000000000000000000000000000000000000000000022130328BA670FDDD777
|
||||||
|
11FF874A0BA00000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000002615032DD57611FDD27411F92816032F000000000000
|
||||||
|
000000000000000000000000000000000000000000000000000022130328CF72
|
||||||
|
10F5D77711FE2E19043600000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000007B440A92D77711FF7B440A9200000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000000000000000000723F
|
||||||
|
0987D77711FF84490A9D00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000B3630ED5D77711FF2F1A043800000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000002615
|
||||||
|
032DD77711FFBC680FDF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000CD7110F3D77711FF0C06010E00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000302
|
||||||
|
0004D77711FFD57611FD00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000CC7110F2D77711FF0D07010F00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000402
|
||||||
|
0004D77711FFD57611FD00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000B1620ED3D77711FF311B043A00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000002816
|
||||||
|
0330D77711FFBA670FDD00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000007843098FD77711FF7F460A9700000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000007641
|
||||||
|
098CD77711FF81470A9A00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000022130329D57611FCD37511FA2D190435000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000002715032ED173
|
||||||
|
10F7D67711FE2A17033200000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000007742098DD77711FFC36C0FE72D1903350000
|
||||||
|
000000000000000000000000000000000000000000002816032FBF6A0FE3D777
|
||||||
|
11FF80470A980000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000503000698540CB4D77711FFD37511FB7F46
|
||||||
|
0A97311B043A0D07010F0C07010E2F1A04387B440A92D27411F9D77711FF9F58
|
||||||
|
0DBD070401080000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000050300067742098DD57611FCD777
|
||||||
|
11FFD77711FFD77711FFD77711FFD77711FFD77711FFD57611FD7D450A950704
|
||||||
|
0108000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000221303297943
|
||||||
|
098FB2620ED3CC7110F2CC7110F3B3630ED57C440A922615032D000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000}
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = btnHledatClick
|
||||||
|
end
|
||||||
|
object edtNakup: TNumberBox
|
||||||
|
Left = 189
|
||||||
|
Top = 197
|
||||||
|
Width = 181
|
||||||
|
Height = 45
|
||||||
|
Alignment = taCenter
|
||||||
|
Mode = nbmFloat
|
||||||
|
TabOrder = 2
|
||||||
|
OnExit = edtNakupExit
|
||||||
|
end
|
||||||
|
object edtMnoz: TNumberBox
|
||||||
|
Left = 189
|
||||||
|
Top = 248
|
||||||
|
Width = 181
|
||||||
|
Height = 45
|
||||||
|
Alignment = taCenter
|
||||||
|
Mode = nbmFloat
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object btnOK: TButton
|
||||||
|
Left = 57
|
||||||
|
Top = 327
|
||||||
|
Width = 139
|
||||||
|
Height = 49
|
||||||
|
Caption = 'OK'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = btnOKClick
|
||||||
|
end
|
||||||
|
object btnStorno: TButton
|
||||||
|
Left = 324
|
||||||
|
Top = 327
|
||||||
|
Width = 139
|
||||||
|
Height = 49
|
||||||
|
Caption = 'Storno'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = btnStornoClick
|
||||||
|
end
|
||||||
|
end
|
||||||
162
frmZamena.pas
Normal file
162
frmZamena.pas
Normal file
@ -0,0 +1,162 @@
|
|||||||
|
unit frmZamena;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.NumberBox, ddPlugin_TLB;
|
||||||
|
|
||||||
|
type
|
||||||
|
TformZamena = class(TForm)
|
||||||
|
Label1: TLabel;
|
||||||
|
edtKod: TEdit;
|
||||||
|
btnHledat: TBitBtn;
|
||||||
|
Label2: TLabel;
|
||||||
|
lblNazev: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
edtNakup: TNumberBox;
|
||||||
|
edtMnoz: TNumberBox;
|
||||||
|
btnOK: TButton;
|
||||||
|
btnStorno: TButton;
|
||||||
|
lblStav: TLabel;
|
||||||
|
procedure btnHledatClick(Sender: TObject);
|
||||||
|
procedure edtNakupExit(Sender: TObject);
|
||||||
|
procedure btnOKClick(Sender: TObject);
|
||||||
|
procedure btnStornoClick(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure edtKodExit(Sender: TObject);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
jeTest: boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
formZamena: TformZamena;
|
||||||
|
idKZ, idSS: integer;
|
||||||
|
mj: string;
|
||||||
|
stav: Extended;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses helUtils;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformZamena.btnHledatClick(Sender: TObject);
|
||||||
|
var lSQL: string;
|
||||||
|
begin
|
||||||
|
edtKod.Text:= edtKod.Text.Trim;
|
||||||
|
if (edtKod.Text<>'') then
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
with Helios.OpenSQL('SELECT ID FROM ' + tblKZ + ' WHERE RegCis=N' + edtKod.Text.QuotedString) do
|
||||||
|
if (RecordCount=1) then
|
||||||
|
begin
|
||||||
|
idKZ:= helUtils.getHeliosIntVal(Helios, 0, 'SELECT ID FROM ' + tblKZ + ' WHERE RegCis=N' + edtKod.Text.QuotedString);
|
||||||
|
lblNazev.Caption:= helUtils.getHeliosStrVal(Helios, '', 'SELECT Nazev1 FROM ' + tblKZ + ' WHERE ID=' + idKZ.ToString);
|
||||||
|
mj:= helUtils.getHeliosStrVal(Helios, '', 'SELECT MJEvidence FROM ' + tblKZ + ' WHERE ID=' + idKZ.ToString);
|
||||||
|
stav:= helUtils.getHeliosFloatVal(Helios, 0, 'SELECT Mnozstvi FROM ' + tblSS + ' WHERE IDSklad=N' + Helios.Sklad.QuotedString + ' AND IDKmenZbozi=' + idKZ.toString);
|
||||||
|
lblStav.Caption:= Trim(stav.ToString + ' ' + mj);
|
||||||
|
lSQL:= 'CASE Mnozstvi WHEN 0 THEN 0 ELSE StavSkladuSouvis/Mnozstvi END';
|
||||||
|
edtNakup.Value:= helUtils.getHeliosFloatVal(Helios, 0, 'SELECT ' + lSQL + ' FROM ' + tblSS + ' WHERE IDSklad=N' + Helios.Sklad.QuotedString + ' AND IDKmenZbozi=' + idKZ.toString);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
stav:= 0;
|
||||||
|
lblStav.Caption:= '';
|
||||||
|
lblNazev.Caption:= '';
|
||||||
|
idKZ:= 0;
|
||||||
|
if (RecordCount=0) then
|
||||||
|
Helios.Error(#1'Nebyla nalezena žádná karta'#1)
|
||||||
|
else
|
||||||
|
Helios.Error(#1'Zadanému kódu odpovídá víc než 1 karta'#1);
|
||||||
|
if (edtKod.CanFocus) then
|
||||||
|
edtKod.SetFocus;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformZamena.btnOKClick(Sender: TObject);
|
||||||
|
var lSQL: string;
|
||||||
|
begin
|
||||||
|
if (edtMnoz.Value<(-1.0*stav)) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'!! Nelze vydat víc než máte skladem !!'#1);
|
||||||
|
if (edtMnoz.CanFocus) then
|
||||||
|
begin
|
||||||
|
edtMnoz.SetFocus;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (edtMnoz.Value=0) then
|
||||||
|
Helios.Error(#1'Zadejte množství'#1)
|
||||||
|
else
|
||||||
|
if (idKZ=0) then
|
||||||
|
Helios.Error(#1'Není specifikována karta zboží'#1)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
lSQL:= 'IF OBJECT_ID(N''tempdb..#TabAppZamena'') IS NOT NULL DROP TABLE #TabAppZamena' + CRLF;
|
||||||
|
lSQL:= lSQL + 'CREATE TABLE #TabAppZamena (IDKmenZbozi INT, IDSklad NVARCHAR(30) NOT NULL, Mnozstvi NUMERIC(19,6) NOT NULL DEFAULT 0.0';
|
||||||
|
lSQL:= lSQL + ', NakupniCena NUMERIC(19,6) NOT NULL DEFAULT 0.0, UserID INT NOT NULL)' + CRLF;
|
||||||
|
lSQL:= lSQL + 'INSERT #TabAppZamena (IDKmenZbozi, IDSklad, Mnozstvi, NakupniCena, UserID) SELECT ' + idKZ.ToString + ', N' + Helios.Sklad.QuotedString;
|
||||||
|
lSQL:= lSQL + ', ' + edtMnoz.Value.ToString.Replace(',', '.') + ', ' + edtNakup.Value.ToString.Replace(',', '.') + ', ' + Helios.UserId.ToString + CRLF;
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N''dbo.ep_HDC_App_Zamena'') IS NOT NULL EXEC dbo.ep_HDC_App_Zamena';
|
||||||
|
try
|
||||||
|
helUtils.waitStart(nil, 'Generuji doklad...', 0, 255);
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
helUtils.waitEnd;
|
||||||
|
except on E:Exception do
|
||||||
|
Helios.Error('Chyba: ' + E.Message);
|
||||||
|
end;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformZamena.btnStornoClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformZamena.edtKodExit(Sender: TObject);
|
||||||
|
begin
|
||||||
|
btnHledatClick(Sender);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformZamena.edtNakupExit(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (edtNakup.Value<=0) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'!! Nákupní cena musí být větší než 0 !!'#1);
|
||||||
|
if (edtNakup.CanFocus) then
|
||||||
|
edtNakup.SetFocus;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformZamena.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action:= caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
5
plgPolanskych.ctp
Normal file
5
plgPolanskych.ctp
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
4
|
||||||
|
AutoGen False
|
||||||
|
|
||||||
|
GAC:mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
|
||||||
|
|
||||||
55
plgPolanskych.dpr
Normal file
55
plgPolanskych.dpr
Normal file
@ -0,0 +1,55 @@
|
|||||||
|
library plgPolanskych;
|
||||||
|
|
||||||
|
{$WEAKLINKRTTI ON}
|
||||||
|
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
|
||||||
|
{$IFOPT D-}
|
||||||
|
{$SetPEFlags $AE0E}
|
||||||
|
{$SetPEOptFlags $AE0E}
|
||||||
|
{$ELSE}
|
||||||
|
{$SetPEFlags $AC02}
|
||||||
|
{$SetPEOptFlags $AC02}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
// IMAGE_FILE_RELOCS_STRIPPED = $0001
|
||||||
|
// IMAGE_FILE_EXECUTABLE_IMAGE = $0002 *
|
||||||
|
// IMAGE_FILE_LINE_NUMS_STRIPPED = $0004 *
|
||||||
|
// IMAGE_FILE_LOCAL_SYMS_STRIPPED = $0008 *
|
||||||
|
// IMAGE_FILE_AGGRESIVE_WS_TRIM = $0010
|
||||||
|
// IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020
|
||||||
|
// IMAGE_FILE_BYTES_REVERSED_LO = $0080
|
||||||
|
// IMAGE_FILE_32BIT_MACHINE = $0100
|
||||||
|
// IMAGE_FILE_DEBUG_STRIPPED = $0200
|
||||||
|
// IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP = $0400 *
|
||||||
|
// IMAGE_FILE_NET_RUN_FROM_SWAP = $0800 *
|
||||||
|
// IMAGE_FILE_SYSTEM = $1000
|
||||||
|
// IMAGE_FILE_DLL = $2000 *
|
||||||
|
// IMAGE_FILE_UP_SYSTEM_ONLY = $4000
|
||||||
|
// IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000 *
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
uses
|
||||||
|
System.Win.ComServ,
|
||||||
|
ComObjekt in 'ComObjekt.pas',
|
||||||
|
frmLikvidace in 'frmLikvidace.pas' {formLikvidace},
|
||||||
|
frmLikvidace1024 in 'frmLikvidace1024.pas' {formLikvidace1024},
|
||||||
|
frmPrijem in 'frmPrijem.pas' {formPrijem},
|
||||||
|
frmPrijem1024 in 'frmPrijem1024.pas' {formPrijem1024},
|
||||||
|
frmOrder in 'frmOrder.pas' {formOrder},
|
||||||
|
frmOrder2 in 'frmOrder2.pas' {formOrder2},
|
||||||
|
frmOrder21024 in 'frmOrder21024.pas' {formOrder21024},
|
||||||
|
frmOrder21366 in 'frmOrder21366.pas' {formOrder21366},
|
||||||
|
frmZamena in 'frmZamena.pas' {formZamena},
|
||||||
|
datModObj in 'datModObj.pas' {dm: TDataModule},
|
||||||
|
datModPrij in 'datModPrij.pas' {dm: TDataModule};
|
||||||
|
|
||||||
|
exports
|
||||||
|
DllGetClassObject,
|
||||||
|
DllCanUnloadNow,
|
||||||
|
DllRegisterServer,
|
||||||
|
DllUnregisterServer;
|
||||||
|
|
||||||
|
{$R *.RES}
|
||||||
|
|
||||||
|
begin
|
||||||
|
end.
|
||||||
1249
plgPolanskych.dproj
Normal file
1249
plgPolanskych.dproj
Normal file
File diff suppressed because it is too large
Load Diff
7
plgPolanskych.eof
Normal file
7
plgPolanskych.eof
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=7007
|
||||||
|
Activate=0
|
||||||
|
DeleteMapAfterCompile=0
|
||||||
|
Encrypt Password=""
|
||||||
|
|
||||||
BIN
plgPolanskych.res
Normal file
BIN
plgPolanskych.res
Normal file
Binary file not shown.
Reference in New Issue
Block a user