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

Prvni verze na Git

Browse Source
This commit is contained in:
TomBuz
2026-04-07 18:23:56 +02:00
parent d314d0524b
commit c0aa420ae0
92 changed files with 59472 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
.gitignore vendored
View File

@ -30,8 +30,8 @@
# Default Delphi compiler directories # Default Delphi compiler directories
# Content of this directories are generated with each Compile/Construct of a project. # Content of this directories are generated with each Compile/Construct of a project.
# Most of the time, files here have not there place in a code repository. # Most of the time, files here have not there place in a code repository.
#Win32/ Win32/
#Win64/ Win64/
#OSX64/ #OSX64/
#OSXARM64/ #OSXARM64/
#Android/ #Android/
@ -81,3 +81,26 @@ __recovery/
# Boss dependency manager vendor folder https://github.com/HashLoad/boss # Boss dependency manager vendor folder https://github.com/HashLoad/boss
modules/ modules/
# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
*.stat
.gitignore
*.log
*.dxsettings
*.7z
*.zip
*.skincfg
*.json
SumatraPDF*
*.mes
*.tmp
x/
xx/
bak/
oldDLL/
Resources/
.git/

4323
ComObjekt - kopie.pas Normal file
View File

File diff suppressed because it is too large Load Diff

5134
ComObjekt.pas Normal file
View File

File diff suppressed because it is too large Load Diff

347
Globalni.pas Normal file
View File

@ -0,0 +1,347 @@
unit Globalni;
interface
uses System.SysUtils, System.Win.ComObj, ddPlugin_TLB;
const strLov = '40755509 LOVATO spol.s r.o.';
CRLF = #13#10;
sklVyroba = '200';
//vytvo<76>eno 10.6.2022// z funkce ExportKoopObj v ComObject upraven<65> 6.5.2020
function ExportKoopObjXls(const Helios: IHelios; idKObj: integer; ZobrTypKooObj: boolean; NadpisTypuKoopObj: string; vlastTbl: string; Cesta: string; Nazev: string; ZobrazInfoKonec: Integer): string; safecall;
implementation
uses Vcl.Controls, System.Win.ComServ, Vcl.Graphics, Vcl.Forms, System.Variants, System.StrUtils, Vcl.Dialogs,
Vcl.Clipbrd, System.Classes, Winapi.Windows, System.DateUtils, Vcl.StdActns, Winapi.ShlObj, Vcl.StdCtrls,
Vcl.ComCtrls, myUtils, helUtils, XLSReadWriteII5, XLSSheetData5, Xc12DataStyleSheet5, Xc12Utils5//, // nExcel,
;
//procedure ExportKoopObj(const Helios: IHelios; idKObj: integer; ZobrTypKooObj: boolean; NadpisTypuKoopObj: string; vlastTbl: string); safecall; // upraveno 6.5.2020
// upraveno 6.5.2020
function ExportKoopObjXls (const Helios: IHelios; idKObj: integer; ZobrTypKooObj: boolean; NadpisTypuKoopObj: string; vlastTbl: string; Cesta: string; Nazev: string; ZobrazInfoKonec: Integer): string;
var lSQL, fld: string;
jCena: Extended;
xls: TXLSReadWriteII5;
wSheet1, wSheet2: TXLSWorksheet;
poz: IHeQuery;
idPolKObj, idKZ, idx, idDZCenik: integer;
cObj, cOrg, dodav, dat, datKO: string;
listSumace: boolean;
VybranyAdresar: boolean; // p<>id<69>no 10.6.2022
NazevSouboru: String; // p<>id<69>no 10.6.2022
Vysledek: String; // p<>id<69>no 10.6.2022
begin
// Helios.Info('ID: "' + IntToStr(idKObj) + '", ZobrTypKooObj:"' + BoolToStr(ZobrTypKooObj) + '", NadpisTypuKoopObj"' + NadpisTypuKoopObj + '", Zarovnani: "' + vlastTbl + '", cesta: "' + Cesta + '", Nazev: "' + Nazev + '", ZobrazInfoKonec: "'+ IntToStr(ZobrazInfoKonec) + '"');
listSumace:= false;
Vysledek := '**_CHYBA_**';
if (idKObj>0) then
begin
// lSQL:= 'SELECT p.Polozka,p.Kusy,p.PozadTerDod_X,k.RegCis FROM ' + tblPKObj + ' p INNER JOIN ' + tblPrikaz + ' pr ON (p.IDPrikaz=pr.id)';
// lSQL:= lSQL + ' INNER JOIN ' + tblKZ + ' k ON (pr.IdTabKmen=k.id) WHERE p.IDObjednavky=' + IntToStr(idKObj);
// lSQL:= lSQL + ' ORDER BY p.Polozka';
// lSQL:= 'SELECT DISTINCT(kz.RegCis),pko.PozadTerDod,SUM(pko.Kusy) FROM ' + tblPKObj + ' pko'; // zakomentov<6F>no 6.5.2020
lSQL:= 'SELECT DISTINCT(kz.RegCis), pko.PozadTerDod,SUM(pko.Kusy), dbo._ef_NTS_TypObjednavkyKZKooP(kz.id, pko.id) FROM ' + tblPKObj + ' pko'; // p<>id<69>no 6.5.2020
lSQL:= lSQL + ' INNER JOIN ' + tblPrikaz + ' p ON (pko.IDPrikaz=p.id) INNER JOIN ' + tblKZ + ' kz ON (p.IDTabKmen=kz.id)';
lSQL:= lSQL + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj) + ' GROUP BY kz.RegCis,pko.PozadTerDod, dbo._ef_NTS_TypObjednavkyKZKooP(kz.id, pko.id) ORDER BY pko.PozadTerDod'; // kz.RegCis'; // p<>id<69>no 6.5.2020
// lSQL:= lSQL + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj) + ' GROUP BY kz.RegCis,pko.PozadTerDod ORDER BY pko.PozadTerDod'; // kz.RegCis'; // zakomentov<6F>no 6.5.2020
poz:= Helios.OpenSQL(lSQL);
if (poz.RecordCount>0) then
begin
cOrg:= '';
datKO:= '';
lSQL:= 'SELECT c.CisloOrg, k.TerminOdeslani FROM ' + tblKObj + ' k INNER JOIN ' + tblCOrg + ' c ON (k.IDOrganizace=c.id) WHERE k.id=' + IntToStr(idKObj);
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
begin
if not(VarIsNull(FieldByNameValues('CisloOrg'))) then
cOrg:= VarToStr(FieldByNameValues('CisloOrg'));
if not(VarIsNull(FieldByNameValues('TerminOdeslani'))) then
datKO:= VarToStr(FieldByNameValues('TerminOdeslani'));
end;
idDZCenik:= 0;
if (cOrg<>'') and (datKO<>'') then
begin
lSQL:= 'DECLARE @dat DATETIME, @cnt INT' + CRLF + 'SET @dat=CONVERT(datetime,N' + datKO.QuotedString + ', 104)' + CRLF
+ 'SELECT COUNT(d.ID) AS Pocet FROM ' + tblDZ + ' d INNER JOIN ' + tblDZe + ' de ON (de.ID=d.ID)'
+ ' WHERE d.IDSklad=N' + sklVyroba.QuotedString + ' AND d.CisloOrg=' + cOrg + ' AND d.RadaDokladu=N''220'' AND d.DruhPohybuZbo=11'
+ ' AND @dat BETWEEN d.Splatnost AND d.DatUhrady AND dbo.hfx_SD_AktualniUrovenSchvalovani(d.ID, 0)=9999';
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
if (VarToStr(FieldByNameValues('Pocet')).ToInteger)>1 then
begin
Helios.Error('Pro dan<61>ho dodavatele existuje v<>c platn<74>ch Nab<61>dkov<6F>ch cen<65>k<EFBFBD> !' + CRLF + 'Export nebude proveden');
Exit;
end;
lSQL:= 'DECLARE @idDZ INT=0, @dat DATETIME' + CRLF
+ 'SET @dat=CONVERT(datetime,N' + datKO.QuotedString + ', 104)' + CRLF
+ 'IF EXISTS(SELECT 1 FROM ' + tblDZ + ' d INNER JOIN ' + tblDZe + ' de ON (de.ID=d.ID)'
+ ' WHERE d.IDSklad=N' + sklVyroba.QuotedString + ' AND d.CisloOrg=' + cOrg + ' AND d.RadaDokladu=N''220'' AND d.DruhPohybuZbo=11'
+ ' AND @dat BETWEEN d.Splatnost AND d.DatUhrady AND dbo.hfx_SD_AktualniUrovenSchvalovani(d.ID, 0)=9999)' + CRLF
+ ' SET @idDZ=(SELECT d.ID FROM ' + tblDZ + ' d INNER JOIN ' + tblDZe + ' de ON (de.ID=d.ID)'
+ ' WHERE d.IDSklad=N' + sklVyroba.QuotedString + ' AND d.CisloOrg=' + cOrg + ' AND d.RadaDokladu=N''220'' AND d.DruhPohybuZbo=11'
+ ' AND @dat BETWEEN d.Splatnost AND d.DatUhrady AND dbo.hfx_SD_AktualniUrovenSchvalovani(d.ID, 0)=9999)' + CRLF + 'SELECT @idDZ AS idDoklad';
with Helios.OpenSQL(lSQL) do
idDZCenik:= VarToStr(FieldByNameValues('idDoklad')).ToInteger;
end;
// p<>id<69>no 10.6.2022
VybranyAdresar := false;
if trim(cesta) <> '' then
begin
fld := cesta;
VybranyAdresar := true;
end
else
begin
// fld:= GetEnvironmentVariable('USERPROFILE') + '\Desktop';
VybranyAdresar := VyberAdresar(fld, 'Um<55>st<73>n<EFBFBD> exportn<74>ho souboru');
end;
// konec p<>id<69>n<EFBFBD> 10.6.2022
cObj:= '';
dodav:= '';
// if VyberAdresar(fld, 'Um<55>st<73>n<EFBFBD> exportn<74>ho souboru') then // zakomentov<6F>no 10.6.2022
if VybranyAdresar then // p<>id<69>no 10.6.202
begin
lSQL:= 'SELECT k.Objednavka, (c.ICO + N' + QuotedStr(' ') + ' + c.Nazev) AS Nazev, k.TerminOdeslani FROM ' + tblKObj;
lSQL:= lSQL + ' k INNER JOIN ' + tblCOrg + ' c ON (k.IDOrganizace=c.id) WHERE k.id=' + IntToStr(idKObj);
with Helios.OpenSQL(lSQL) do
begin
cObj:= VarToStr(FieldByNameValues('Objednavka'));
dodav:= VarToStr(FieldByNameValues('Nazev'));
datKO:= VarToStr(FieldByNameValues('TerminOdeslani'));
end;
cObj:= StringReplace(cObj,'/','',[rfReplaceAll]);
xls:= TXLSReadWriteII5.Create(nil);
try
xls.Version:= xvExcel97;
if (listSumace) then
begin
wSheet2:= xls.Sheets[0];
wSheet2.Name:= 'Sumace';
// xls[1].InsertRows(0,poz.RecordCount);
// xls[1].InsertColumns(0,7);
wSheet2.AsString[0,0]:= 'Objednavatel';
wSheet2.AsString[2,0]:= strLov;
wSheet2.AsString[0,2]:= 'Dodavatel:';
wSheet2.AsString[2,2]:= dodav;
wSheet2.AsString[0,4]:= 'Datum vystaven<65>:';
wSheet2.AsString[2,4]:= datKO;
wSheet2.AsString[0,6]:= '<27><>s.obj.';
wSheet2.AsString[1,6]:= 'Po<50>.<2E>.';
wSheet2.Columns.Items[1].NumberFormat:= '##0';
wSheet2.Columns.Items[1].HorizAlignment:= chaCenter;
wSheet2.AsString[2,6]:= '<27><>slo v<>robku';
wSheet2.AsString[3,6]:= 'Mno<6E>stv<74>';
wSheet2.Columns.Items[3].NumberFormat:= '###,##0.###';
wSheet2.AsString[4,6]:= 'Splnit do';
wSheet2.Columns.Items[4].NumberFormat:= 'DD.MM.YYYY';
wSheet2.Columns.Items[4].HorizAlignment:= chaCenter;
// p<>id<69>no 6.5.2020
if ZobrTypKooObj then
begin
wSheet2.AsString[5,6]:= NadpisTypuKoopObj;
if (vlastTbl='NaStred') then
wSheet2.Columns.Items[5].HorizAlignment:= chaCenter;
if (vlastTbl='Vpravo') then
wSheet2.Columns.Items[5].HorizAlignment:= chaRight;
end;
// konec p<>id<69>no 6.5.2020
idx:= 7;
poz.First;
while not(poz.EOF) do
begin
wSheet2.AsString[0, idx]:= cObj;
wSheet2.AsInteger[1, idx]:= idx-6; // VarToStr(poz.FieldValues(0));
wSheet2.AsString[2, idx]:= VarToStr(poz.FieldValues(0)); // RegCis
wSheet2.AsFloat[3, idx]:= StrToFloat(VarToStr(poz.FieldValues(2))); // mnozstvi
dat:= VarToStr(poz.FieldValues(1));
if (dat<>'') then
wSheet2.AsString[4, idx]:= dat;
// p<>id<69>no 6.5.2020
if ZobrTypKooObj then
wSheet2.AsString[5, idx]:= VarToStr(poz.FieldValues(3)); // Typ objedn<64>vky - pozn<7A>mka z kmenov<6F> karty
// konec p<>id<69>no 6.5.2020
Inc(idx);
poz.Next;
end;
wSheet2.AutoWidthCols(0, 4);
end;
// if Helios.YesNo('M<>m p<>erovnat polo<6C>ky objedn<64>vky podle datumu a reg.<2E><>sla ?',false) then
// PrerovnejPolozkyKoopObj(Helios,idKObj);
// lSQL:= 'SELECT pko.Polozka,kz.RegCis,pko.Kusy,pko.PozadTerDod_X FROM ' + tblPKObj + ' pko'; // zakomentov<6F>no 6.5.2020
lSQL:= 'SELECT pko.Polozka, kz.RegCis, pko.Kusy, pko.PozadTerDod_X, dbo._ef_NTS_TypObjednavkyKZKooP(kz.id, pko.id), kz.ID AS IDKmen'
+ ' FROM ' + tblPKObj + ' pko' // p<>id<69>no 6.5.2020
+ ' INNER JOIN ' + tblPrikaz + ' p ON (pko.IdPrikaz=p.id)'
+ ' INNER JOIN ' + tblKZ + ' kz ON (p.IdTabKmen=kz.id)'
+ ' WHERE pko.IDObjednavky=' + IntToStr(idKObj);
{
lSQL:= 'CREATE TABLE #Vystup (Pozice INT IDENTITY(1,1),RegCis NVARCHAR(20),Polozka INT,Kusu NUMERIC(19,6)) ' + CRLF;
lSQL:= lSQL + 'INSERT INTO #Vystup (RegCis,Polozka,Kusu) ';
lSQL:= lSQL + 'SELECT DISTINCT(kz.RegCis),pko.Polozka,SUM(pko.Kusy) FROM ' + tblPKObj + ' pko';
lSQL:= lSQL + ' INNER JOIN ' + tblPrikaz + ' p ON (pko.IDPrikaz=p.id) INNER JOIN ' + tblKZ + ' kz ON (p.IDTabKmen=kz.id)';
lSQL:= lSQL + ' WHERE pko.IDObjednavky=' + IntToStr(idKObj) + ' GROUP BY kz.RegCis,pko.Polozka ORDER BY pko.Polozka' + CRLF;
lSQL:= lSQL + 'SELECT * FROM #Vystup';
}
poz:= Helios.OpenSQL(lSQL);
if (poz.RecordCount>0) then
begin
poz.First;
idx:= 7;
if (listSumace) then
wSheet1:= xls.Add
else
wSheet1:= xls.Sheets[0];
wSheet1.Name:= 'Detail';
wSheet1.AsString[0,0]:= 'Objednavatel';
wSheet1.AsString[2,0]:= strLov;
wSheet1.AsString[0,2]:= 'Dodavatel:';
wSheet1.AsString[2,2]:= dodav;
wSheet1.AsString[0,4]:= 'Datum vystaven<65>:';
wSheet1.AsString[2,4]:= datKO;
wSheet1.AsString[0,6]:= '<27><>s.obj.';
wSheet1.AsString[1,6]:= 'Po<50>.<2E>.';
wSheet1.Columns.Items[1].NumberFormat:= '##0';
wSheet1.Columns.Items[1].HorizAlignment:= chaCenter;
wSheet1.AsString[2,6]:= '<27><>slo v<>robku';
wSheet1.AsString[3,6]:= 'Mno<6E>stv<74>';
wSheet1.Columns.Items[3].NumberFormat:= '###,##0.###';
wSheet1.AsString[4,6]:= 'Splnit do';
wSheet1.Columns.Items[4].NumberFormat:= 'DD.MM.YYYY';
wSheet1.Columns.Items[4].HorizAlignment:= chaCenter;
// p<>id<69>no 6.5.2020
if ZobrTypKooObj then
begin
wSheet1.AsString[5,6]:= NadpisTypuKoopObj;
if (vlastTbl='NaStred') then
wSheet1.Columns.Items[5].HorizAlignment:= chaCenter;
if (vlastTbl='Vpravo') then
wSheet1.Columns.Items[5].HorizAlignment:= chaRight;
wSheet1.AsString[6,6]:= 'JCena';
wSheet1.Columns.Items[6].NumberFormat:= '###,##0.###';
end
// konec p<>id<69>no 6.5.2020
else
begin
wSheet1.AsString[5,6]:= 'JCena';
wSheet1.Columns.Items[5].NumberFormat:= '###,##0.###';
end;
while not(poz.EOF) do
begin
wSheet1.AsString[0, idx]:= cObj;
wSheet1.AsInteger[1, idx]:= VarToStr(poz.FieldByNameValues('Polozka')).ToInteger; // polozka
wSheet1.AsString[2, idx]:= VarToStr(poz.FieldByNameValues('RegCis')); // RegCis
wSheet1.AsFloat[3, idx]:= StrToFloat(VarToStr(poz.FieldByNameValues('Kusy'))); // mnozstvi
dat:= '';
if not(VarIsNull(poz.FieldByNameValues('PozadTerDod_X'))) then
dat:= VarToStr(poz.FieldByNameValues('PozadTerDod_X'));
if (dat<>'') then
wSheet1.AsString[4, idx]:= dat;
idKZ:= VarToStr(poz.FieldByNameValues('IDKmen')).ToInteger;
jCena:= 0;
if (idDZCenik>0) then
begin
lSQL:= 'SELECT TOP(1) CASE WHEN d.Mena=N''CZK'' THEN pz.JCbezDaniKcPoS ELSE pz.JCBezDaniValPoS END AS JCPolozky FROM '
+ tblPZ + ' pz INNER JOIN ' + tblSS + ' ss ON (ss.ID=pz.IDZboSklad) INNER JOIN ' + tblDZ
+ ' d ON (d.ID=pz.IDDoklad) WHERE d.ID=' + idDZCenik.ToString + ' AND ss.IDKmenZbozi=' + idKZ.ToString;
with Helios.OpenSQL (lSQL) do
if (RecordCount>0) then
jCena:= VarToStr(FieldByNameValues('JCPolozky')).ToDouble;
end;
// p<>id<69>no 6.5.2020
if ZobrTypKooObj then
begin
wSheet1.AsString[5, idx]:= VarToStr(poz.FieldValues(4)); // Typ objedn<64>vky - pozn<7A>mka z kmenov<6F> karty
if (jCena>0) then
wSheet1.AsFloat[6, idx]:= jCena;
end
// konec p<>id<69>no 6.5.2020
else
if (jCena>0) then
wSheet1.AsFloat[5, idx]:= jCena;
Inc(idx);
poz.Next;
end;
wSheet1.AutoWidthCols(0, 4);
end;
if (listSumace) then
begin
xls.Sheets[0].Rows.Items[6].FontStyle:= [xfsBold];
xls.Sheets[0].Columns.Items[1].HorizAlignment:= chaCenter;
xls.Sheets[0].Columns.Items[3].HorizAlignment:= chaCenter;
xls.Sheets[0].Columns.Items[4].HorizAlignment:= chaCenter;
end;
if not(listSumace) then
xls.Sheets[0].Rows.Items[6].FontStyle:= [xfsBold]
else
xls.Sheets[1].Rows.Items[6].FontStyle:= [xfsBold];
//p<>id<69>no 10.6.2022
if (Nazev.Trim<>'') then
NazevSouboru:= Nazev.Trim
else
NazevSouboru:= 'Obj-' + cObj + '.xls';
//konec p<>id<69>n<EFBFBD> 10.6.2022
//xls.SaveToFile(fld + '\Obj-' + cObj + '.xls'); // zakomentov<6F>no 10.6.2022
xls.SaveToFile(fld + '\' + NazevSouboru); // p<>id<69>no 10.6.2022
Vysledek:= NazevSouboru; // p<>id<69>no 10.6.2022
finally
xls.Free;
end;
if (ZobrazInfoKonec=1) then
Helios.Info('Export souboru ukon<6F>en.');
end;
end
else
Helios.Error(#1'Koopera<72>n<EFBFBD> objedn<64>vka neobsahuje <20><>dnou polo<6C>ku.'#1);
end
else
Helios.Error(#1'Nelze identifikovat Koopera<72>n<EFBFBD> objedn<64>vku.'#1);
ExportKoopObjXls := Vysledek;
end;
end.

0
HeODefine.inc Normal file
View File

2843
IEGate.pas Normal file
View File

File diff suppressed because it is too large Load Diff

203
IEGate_Impl.pas Normal file
View File

@ -0,0 +1,203 @@
unit IEGate_Impl;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}
{$I RemObjects.inc}
interface
uses
{$IFDEF LCL}LResources,{$ENDIF}
{vcl:} Classes, SysUtils,
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Required:} uRORemoteDataModule,
{Generated:} libPPL_Intf;
type
{ TIEGate }
TIEGate = class(TRORemoteDataModule, IIEGate)
private
protected
{ IIEGate methods }
function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse;
function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse;
function GetCities(const parameters: GetCities): GetCitiesResponse;
function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse;
function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse;
function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse;
function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse;
function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse;
function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse;
function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse;
function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse;
function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse;
function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse;
function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse;
function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse;
function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse;
function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse;
function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse;
function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse;
function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse;
function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse;
end;
implementation
{$IFNDEF FPC}
{$R *.dfm}
{$ENDIF}
uses
{Generated:} libPPL_Invk;
procedure Create_IEGate(out anInstance : IUnknown);
begin
anInstance := TIEGate.Create(nil);
end;
{ IEGate }
function TIEGate.ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.GetCities(const parameters: GetCities): GetCitiesResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportPackages(const parameters: ImportPackages): ImportPackagesResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportOrders(const parameters: ImportOrders): ImportOrdersResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
function TIEGate.ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse;
begin
{$Message Hint 'is not implemented yet!'}
Result := nil;
end;
var
fClassFactory: IROClassFactory;
initialization
{$IFDEF LCL}
{$I IEGate_Impl.lrs}
{$ENDIF}
fClassFactory := TROClassFactory.Create('IEGate', {$IFDEF FPC}@{$ENDIF}Create_IEGate, TIEGate_Invoker);
// RegisterForZeroConf(fClassFactory,'_IEGate_rosdk._tcp.');
finalization
UnRegisterClassFactory(fClassFactory);
fClassFactory := nil;
end.

BIN
barcode.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
czStrings.res Normal file
View File

Binary file not shown.

524
frmBaliciListy.dfm Normal file
View File

@ -0,0 +1,524 @@
object formBaliciListy: TformBaliciListy
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = ' Balic'#237' listy'
ClientHeight = 589
ClientWidth = 589
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnShow = FormShow
TextHeight = 13
object lblVerze: TLabel
Left = 12
Top = 572
Width = 3
Height = 11
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object GroupBox2: TGroupBox
Left = 7
Top = 46
Width = 574
Height = 493
Caption = ' Obsah '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 12
Top = 150
Width = 205
Height = 16
Caption = 'Obsah bal'#237'c'#237'ho listu (boxu, krabice):'
end
object Label4: TLabel
Left = 267
Top = 47
Width = 42
Height = 16
Caption = 'Datum:'
end
object Label5: TLabel
Left = 17
Top = 22
Width = 53
Height = 16
Caption = 'Na sklad:'
end
object GroupBox3: TGroupBox
Left = 9
Top = 62
Width = 546
Height = 88
Caption = ' Polo'#382'ka '
TabOrder = 0
object Label2: TLabel
Left = 10
Top = 18
Width = 61
Height = 16
Caption = 'Skup.zbo'#382#237
end
object Label3: TLabel
Left = 78
Top = 18
Width = 51
Height = 16
Caption = 'Reg.'#269#237'slo'
end
object Label7: TLabel
Left = 220
Top = 18
Width = 49
Height = 16
Caption = 'Mno'#382'stv'#237
end
object Label9: TLabel
Left = 318
Top = 18
Width = 58
Height = 16
Caption = #268#237'slo boxu'
end
object lblKarta: TLabel
Left = 13
Top = 62
Width = 4
Height = 14
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 390
Top = 18
Width = 81
Height = 16
Caption = 'V'#253'robn'#237' p'#345#237'kaz'
end
object selSZ: TRzButtonEdit
Left = 11
Top = 36
Width = 55
Height = 24
Text = ''
Alignment = taCenter
TabOrder = 0
OnKeyUp = selSZKeyUp
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selSZButtonClick
end
object selRegCis: TRzButtonEdit
Left = 78
Top = 38
Width = 131
Height = 24
Text = ''
CharCase = ecUpperCase
TabOrder = 1
OnExit = selRegCisExit
OnKeyUp = selRegCisKeyUp
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selRegCisButtonClick
end
object edtKS: TRzNumericEdit
Left = 220
Top = 36
Width = 81
Height = 24
Alignment = taCenter
CharCase = ecUpperCase
TabOrder = 2
OnExit = edtKSExit
CalculatorVisible = True
DisplayFormat = '###,###0;-###,###0'
end
object edtBox: TRzNumericEdit
Left = 318
Top = 36
Width = 55
Height = 24
TabOrder = 3
DisplayFormat = ',0;(,0)'
end
object btnAddPol: TBitBtn
Left = 323
Top = 61
Width = 47
Height = 25
Caption = 'V'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnAddPolClick
end
object edtPrikaz: TRzNumericEdit
Left = 392
Top = 36
Width = 74
Height = 24
MaxLength = 10
TabOrder = 5
DisplayFormat = ',0;(,0)'
end
end
object edtDat: TRzDateTimeEdit
Left = 313
Top = 44
Width = 100
Height = 24
CalendarElements = [ceYear, ceMonth, ceArrows, ceDaysOfWeek, ceFillDays, ceTodayButton]
CaptionTodayBtn = 'Dnes'
CaptionClearBtn = 'Smazat'
FirstDayOfWeek = fdowMonday
EditType = etDate
Format = 'd.m.yyyy'
Alignment = taCenter
TabOrder = 1
end
object cbOrg: TRzComboBox
Left = 91
Top = 19
Width = 159
Height = 24
Style = csDropDownList
TabOrder = 2
OnChange = cbOrgChange
OnEnter = cbOrgEnter
Items.Strings = (
'LOVATO It'#225'lie'
'VD Otava Strakonice'
'Pikl Protiv'#237'n')
end
object cbVratka: TCheckBox
Left = 263
Top = 20
Width = 144
Height = 17
Caption = 'vratka od kooperanta'
Enabled = False
TabOrder = 3
OnClick = cbVratkaClick
end
object cbTypDokl: TRzComboBox
Left = 91
Top = 44
Width = 139
Height = 24
Style = csDropDownList
TabOrder = 4
OnChange = cbTypDoklChange
OnEnter = cbTypDoklEnter
Items.Strings = (
'FIN'#193'LN'#205' PRODUKTY'
'NEBALEN'#201' V'#221'ROBKY'
'MATERI'#193'LY'
'REKLAMACE')
end
object cbReklamace: TCheckBox
Left = 423
Top = 21
Width = 97
Height = 17
Caption = ' REKLAMACE'
Enabled = False
TabOrder = 5
Visible = False
end
object grd: TJvDBGrid
Left = 6
Top = 169
Width = 561
Height = 302
DataSource = dsBL
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
PopupMenu = pMenu
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = grdDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Expanded = False
FieldName = 'idKZ'
Visible = False
end
item
Expanded = False
FieldName = 'idSS'
Visible = False
end
item
Expanded = False
FieldName = 'idPZ'
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SkupZbo'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'RegCis'
Width = 150
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Mnoz'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Box'
Title.Alignment = taCenter
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'CelkHmot'
Title.Alignment = taCenter
Title.Caption = 'Hmotnost'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'Prikaz'
Width = 0
Visible = True
end
item
Expanded = False
FieldName = 'IdBLPol'
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'IDSklad'
Title.Alignment = taCenter
Title.Caption = 'Sklad zdroj'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'idSSCil'
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'IDSkladCil'
Title.Alignment = taCenter
Title.Caption = 'Sklad c'#237'l'
Width = 70
Visible = True
end>
end
object statBar: TJvStatusBar
Left = 2
Top = 472
Width = 570
Height = 19
Panels = <
item
Width = 205
end
item
Alignment = taRightJustify
Width = 60
end
item
Width = 80
end
item
Alignment = taRightJustify
Width = 60
end
item
Width = 100
end>
end
end
object btnOK: TButton
Left = 202
Top = 556
Width = 75
Height = 25
Caption = '&OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = btnOKClick
OnMouseDown = btnOKMouseDown
end
object btnCancel: TButton
Left = 381
Top = 556
Width = 75
Height = 25
Caption = '&Zru'#353'it'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 2
OnClick = btnCancelClick
end
object vTabBL: TFDMemTable
Active = True
AfterPost = vTabBLAfterPost
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 496
Top = 96
object vTabBLidKZ: TIntegerField
FieldName = 'idKZ'
Visible = False
end
object vTabBLidSS: TIntegerField
FieldName = 'idSS'
Visible = False
end
object vTabBLidPZ: TIntegerField
FieldName = 'idPZ'
Visible = False
end
object vTabBLSkupZbo: TStringField
FieldName = 'SkupZbo'
Size = 3
end
object vTabBLRegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object vTabBLBox: TStringField
FieldName = 'Box'
end
object vTabBLMnoz: TFloatField
FieldName = 'Mnoz'
DisplayFormat = '#,##0.###'
end
object vTabBLCelkHmot: TFloatField
FieldName = 'CelkHmot'
DisplayFormat = '#,##0.##'
end
object vTabBLPrikaz: TIntegerField
FieldName = 'Prikaz'
Visible = False
end
object vTabBLIdBLPol: TIntegerField
FieldName = 'IdBLPol'
Visible = False
end
object vTabBLIDSklad: TStringField
FieldName = 'IDSklad'
Size = 30
end
object vTabBLidSSCil: TIntegerField
FieldName = 'idSSCil'
Visible = False
end
object vTabBLIDSkladCil: TStringField
FieldName = 'IDSkladCil'
Size = 30
end
end
object dsBL: TDataSource
DataSet = vTabBL
Left = 540
Top = 98
end
object pMenu: TPopupMenu
Left = 154
Top = 304
object pmDelPol: TMenuItem
Caption = '&Smazat polo'#382'ku'
OnClick = pmDelPolClick
end
object N1: TMenuItem
Caption = '-'
end
object pmObnovNeulozene: TMenuItem
Caption = '&Obnovit neulo'#382'en'#233' polo'#382'ky'
OnClick = pmObnovNeulozeneClick
end
object N2: TMenuItem
Caption = '-'
end
object pmSmazNeulozene: TMenuItem
Caption = 'Sma&zat neulo'#382'en'#233' polo'#382'ky'
OnClick = pmSmazNeulozeneClick
end
object N3: TMenuItem
Caption = '-'
end
object pmImpReader: TMenuItem
Caption = '&Import dat ze '#269'te'#269'ky'
OnClick = pmImpReaderClick
end
end
end

2082
frmBaliciListy.pas Normal file
View File

File diff suppressed because it is too large Load Diff

695
frmDemontaz.dfm Normal file
View File

@ -0,0 +1,695 @@
object formDemontaz: TformDemontaz
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = ' Demont'#225#382' d'#237'lce/polosestavy'
ClientHeight = 547
ClientWidth = 622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Position = poOwnerFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnShow = FormShow
TextHeight = 16
object Label7: TLabel
Left = 5
Top = 86
Width = 84
Height = 16
Caption = 'V'#253'dejka do IT:'
end
object lblVerze: TLabel
Left = 7
Top = 530
Width = 3
Height = 11
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object lblZpracovavam: TLabel
Left = 244
Top = 521
Width = 87
Height = 13
Caption = 'Zpracov'#225'v'#225'm...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label3: TLabel
Left = 232
Top = 86
Width = 81
Height = 16
Caption = 'Zam'#283'stnanec:'
end
object lblZamest: TLabel
Left = 407
Top = 85
Width = 204
Height = 16
AutoSize = False
end
object GroupBox1: TGroupBox
Left = 13
Top = 110
Width = 600
Height = 121
Caption = ' D'#237'lce / polosestavy '
TabOrder = 0
object Label4: TLabel
Left = 11
Top = 18
Width = 56
Height = 16
Caption = 'Reg.'#269#237'slo:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblNazev: TLabel
Left = 74
Top = 40
Width = 53
Height = 16
Caption = 'lblNazev'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 401
Top = 19
Width = 54
Height = 16
Caption = 'Mno'#382'stv'#237':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object btnRozeber: TSpeedButton
Left = 547
Top = 13
Width = 33
Height = 32
Glyph.Data = {
42080000424D4208000000000000420000002800000020000000200000000100
10000300000000080000202E0000202E00000000000000000000007C0000E003
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7F9D77B556FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7F4E3A8000D65AFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FD556E0016002E104F862FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
1863C2098002E102C00104119D77FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F7B6F
C1058002A1028102C102C0016821BF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9D77E71D
4002A10281028102A102C00240018B31FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FE8212002
A1028102810281028102A102C00240011042FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6F3E0002A102
810281028102810281028102A102A002E000734EFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6F3EE001C002A102
A102A102A102A102A102A102A102C1028002E000F966FF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF65AE001A002A102A102
A102A102A102A102A102A102A102A102E102400225155C73FF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF75EC105A002A102A102A102
A102A102A102A102A102A102A102A102A102E102E00105199F7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F9B6F020A8002C002C002A102A102
A102A102A102A102A102A102A102A102C002C002E002C001CA29BD77FF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6B2E200282066206430AA106A102
A102A102A102A102A102A102A102A106630E630A6206A2068001914AFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F796739675B6B5B6B3C6FA61EA002
A102A102A102A102A102A102C0026002B24A5C6F5B6B5B6B59679B6FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FA722A002
C102C102C102C102C102C10201032002B34EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
C102C102C102C102C102C102E1022002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
C102C102C102C102C102C102E1024002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EA002
C102C102C102C102C102C102E1022002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EC002
C102C102C102C102C102C102E1022002B14AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
E102E102E102E102E102E10201034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
E102E102E102E102E102E10221034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
E102E102E102E102E102E10201034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71EE002
E102E102E102E102E102E10201034002B14AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EE002
E102E102E102E102E102E10201034002924AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71EE002
E102E102E102E102E102E10200034002934EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA71E0003
01030103010301030103010320034002934EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FC71E0003
01030103010301030103010340036002924EFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDF7FA412C002
C002C002C002C002C002E00200034002914AFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FF24ACF3E
F042F042F042F042F0420F3FF042CF3E5863FF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7FFF7FFF7F}
OnClick = btnRozeberClick
end
object selRegCis: TRzButtonEdit
Left = 74
Top = 16
Width = 184
Height = 24
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 30
ParentFont = False
TabOrder = 0
OnExit = selRegCisExit
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selRegCisButtonClick
end
object edtMnoz: TRzNumericEdit
Left = 463
Top = 16
Width = 65
Height = 24
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyDown = edtMnozKeyDown
DisplayFormat = '##,##0.##;-##,##0.##'
end
object cbMaxRozpad: TCheckBox
Left = 271
Top = 45
Width = 183
Height = 17
Caption = 'Rozpad na z'#225'kladn'#237' MAT'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 2
end
object selSZ: TRzButtonEdit
Left = 21
Top = 36
Width = 35
Height = 24
Text = ''
MaxLength = 3
TabOrder = 3
Visible = False
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
end
object cbTiskRozp: TCheckBox
Left = 475
Top = 46
Width = 109
Height = 17
Caption = 'Tisk rozpisky'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object grdDilce: TJvDBGrid
Left = 11
Top = 66
Width = 528
Height = 50
DataSource = dsDilce
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
PopupMenu = popMenu
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = grdDilceDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Expanded = False
FieldName = 'idKZ'
Visible = False
end
item
Expanded = False
FieldName = 'idSS'
Visible = False
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SZ'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 42
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'RegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 130
Visible = True
end
item
Expanded = False
FieldName = 'Nazev'
Title.Alignment = taCenter
Title.Caption = 'N'#225'zev'
Width = 265
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Mnozstvi'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 62
Visible = True
end>
end
end
object GroupBox2: TGroupBox
Left = 14
Top = 243
Width = 594
Height = 262
Caption = ' Materi'#225'ly '
TabOrder = 1
object grdMat: TJvDBGrid
Left = 1
Top = 18
Width = 590
Height = 240
DataSource = dsMat
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
PopupMenu = popMat
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = grdMatDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'SZ'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 40
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'RegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'Nazev'
Title.Alignment = taCenter
Title.Caption = 'N'#225'zev'
Width = 220
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Mnozstvi'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CilSklad'
Title.Alignment = taCenter
Title.Caption = 'C'#237'l materi'#225'lu'
Width = 86
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'MnozstviIT'
Title.Alignment = taCenter
Title.Caption = 'V'#253'voz IT'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'idKZ'
Visible = False
end
item
Expanded = False
FieldName = 'idSSold'
Visible = False
end
item
Expanded = False
FieldName = 'idSS'
Visible = False
end
item
Expanded = False
FieldName = 'CilSkladCislo'
Visible = False
end>
end
end
object btnOK: TButton
Left = 421
Top = 516
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 2
OnClick = btnOKClick
end
object btnStorno: TButton
Left = 533
Top = 516
Width = 75
Height = 25
Caption = 'Storno'
TabOrder = 3
OnClick = btnStornoClick
end
object GroupBox3: TGroupBox
Left = 5
Top = 4
Width = 605
Height = 69
Caption = ' Sklady '
TabOrder = 4
object Label1: TLabel
Left = 11
Top = 16
Width = 87
Height = 16
Caption = 'Zdrojov'#253' sklad:'
end
object Label2: TLabel
Left = 25
Top = 45
Width = 71
Height = 16
Caption = 'C'#237'lov'#253' sklad:'
end
object selSrcSkl: TRzButtonEdit
Left = 107
Top = 13
Width = 113
Height = 24
Text = ''
Alignment = taCenter
Enabled = False
TabOrder = 0
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selSrcSklButtonClick
end
object selDstSkl: TRzButtonEdit
Left = 107
Top = 42
Width = 113
Height = 24
Text = ''
Alignment = taCenter
Enabled = False
TabOrder = 1
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selDstSklButtonClick
end
object selSrcSklNazev: TRzButtonEdit
Left = 225
Top = 13
Width = 228
Height = 24
Text = ''
Enabled = False
TabOrder = 2
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
end
object selDstSklNazev: TRzButtonEdit
Left = 225
Top = 42
Width = 228
Height = 24
Text = ''
Enabled = False
TabOrder = 3
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
end
object dtDatum: TRzDateTimePicker
Left = 475
Top = 26
Width = 106
Height = 24
Date = 41411.000000000000000000
Format = 'dd.MM.yyyy'
Time = 0.458783750000293400
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
end
end
object selVydejIT: TRzButtonEdit
Left = 96
Top = 82
Width = 112
Height = 24
Text = ''
Alignment = taCenter
TabOrder = 5
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selVydejITButtonClick
end
object selCisZam: TRzButtonEdit
Left = 325
Top = 82
Width = 68
Height = 24
Text = ''
Alignment = taCenter
TabOrder = 6
OnExit = selCisZamExit
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selCisZamButtonClick
end
object dsDilce: TDataSource
DataSet = tabDilce
Left = 228
Top = 174
end
object dsMat: TDataSource
DataSet = tabMat
Left = 122
Top = 462
end
object popMenu: TPopupMenu
Left = 290
Top = 174
object pmOprav: TMenuItem
Caption = '&Oprav mno'#382'stv'#237
OnClick = pmOpravClick
end
object N1: TMenuItem
Caption = '-'
end
object pmSmazat: TMenuItem
Caption = '&Smazat polo'#382'ku'
OnClick = pmSmazatClick
end
end
object tabMat: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 65
Top = 462
object colMidKZ: TIntegerField
FieldName = 'idKZ'
end
object colMidSSold: TIntegerField
FieldName = 'idSSold'
Visible = False
end
object colMidSS: TIntegerField
FieldName = 'idSS'
end
object colMSZ: TStringField
FieldName = 'SZ'
Size = 3
end
object colMRegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object colMNazev: TStringField
FieldName = 'Nazev'
Size = 100
end
object colMMnoz: TFloatField
FieldName = 'Mnozstvi'
DisplayFormat = '#,##0.###'
end
object colMMnozIT: TFloatField
FieldName = 'MnozstviIT'
DisplayFormat = '#,##0.###'
end
object colMCilSklad: TStringField
FieldName = 'CilSklad'
Size = 30
end
object tabMatCilSkladCislo: TStringField
FieldName = 'CilSkladCislo'
Size = 30
end
end
object tabDilce: TFDMemTable
Active = True
AfterPost = tabDilceAfterPost
AfterDelete = tabDilceAfterDelete
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 164
Top = 174
object colDidKZ: TIntegerField
FieldName = 'idKZ'
end
object colDidSS: TIntegerField
FieldName = 'idSS'
end
object colDSZ: TStringField
FieldName = 'SZ'
Size = 3
end
object colDRegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object colDNazev: TStringField
FieldName = 'Nazev'
Size = 100
end
object colDMnoz: TFloatField
FieldName = 'Mnozstvi'
DisplayFormat = '#,##0'
end
end
object popMat: TPopupMenu
Left = 178
Top = 460
object pmAll2IT: TMenuItem
Caption = '&V'#353'e do IT'
OnClick = pmAll2ITClick
end
object N2: TMenuItem
Caption = '-'
end
object pmDel2IT: TMenuItem
Caption = 'Smazat v'#353'e z IT'
OnClick = pmDel2ITClick
end
end
end

1446
frmDemontaz.pas Normal file
View File

File diff suppressed because it is too large Load Diff

196
frmKanbanBox.dfm Normal file
View File

@ -0,0 +1,196 @@
object formKanbanBox: TformKanbanBox
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = 'Definice kanban box'#367
ClientHeight = 220
ClientWidth = 544
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 22
Top = 50
Width = 135
Height = 16
Caption = 'V'#253'robek / polosestava :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 22
Top = 20
Width = 114
Height = 16
Caption = 'Unik'#225'tn'#237' '#269#237'slo boxu :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblPopis: TLabel
Left = 22
Top = 77
Width = 499
Height = 16
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 23
Top = 103
Width = 63
Height = 16
Caption = 'Ks v boxu :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 19
Top = 134
Width = 67
Height = 16
Caption = 'Pozn'#225'mka :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object selCisloZbozi: TRzButtonEdit
Left = 172
Top = 47
Width = 175
Height = 24
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
OnExit = selCisloZboziExit
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selCisloZboziButtonClick
end
object lblID: TEdit
Left = 144
Top = 15
Width = 76
Height = 24
Alignment = taCenter
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
NumbersOnly = True
ParentFont = False
TabOrder = 1
end
object edtKs: TEdit
Left = 99
Top = 100
Width = 48
Height = 24
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
NumbersOnly = True
ParentFont = False
TabOrder = 2
OnExit = edtKsExit
end
object btnOK: TButton
Left = 336
Top = 180
Width = 75
Height = 25
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnOKClick
end
object btnZrus: TButton
Left = 446
Top = 180
Width = 75
Height = 25
Caption = 'Storno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnZrusClick
end
object edtPozn: TEdit
Left = 99
Top = 131
Width = 422
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 255
ParentFont = False
TabOrder = 5
OnExit = edtPoznExit
end
object colBarva1: TPanel
Left = 364
Top = 46
Width = 29
Height = 25
ParentBackground = False
TabOrder = 6
end
object colBarva2: TPanel
Left = 410
Top = 46
Width = 29
Height = 25
TabOrder = 7
end
end

228
frmKanbanBox.pas Normal file
View File

@ -0,0 +1,228 @@
unit frmKanbanBox;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.StrUtils,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, RzEdit, RzBtnEdt, ddPlugin_TLB,
Vcl.ExtCtrls;
const
tblKanBox = '[dbo].[_TabKanbanBox]';
tblKmen = '[dbo].[TabKmenZbozi]';
type
TformKanbanBox = class(TForm)
selCisloZbozi: TRzButtonEdit;
Label1: TLabel;
Label2: TLabel;
lblID: TEdit;
lblPopis: TLabel;
edtKs: TEdit;
Label3: TLabel;
btnOK: TButton;
btnZrus: TButton;
Label4: TLabel;
edtPozn: TEdit;
colBarva1: TPanel;
colBarva2: TPanel;
procedure FormShow(Sender: TObject);
procedure btnZrusClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure selCisloZboziButtonClick(Sender: TObject);
procedure edtPoznExit(Sender: TObject);
procedure edtKsExit(Sender: TObject);
procedure selCisloZboziExit(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure NactiKmen(idKZx: Integer); safecall;
public
Helios: IHelios;
idBox: integer;
end;
var
formKanbanBox: TformKanbanBox;
idKZ: integer;
edit: boolean;
mnoz: integer;
implementation
{$R *.dfm}
procedure TformKanbanBox.btnOKClick(Sender: TObject);
var lSQL: string;
jeOK: boolean;
begin
jeOK:= true;
if (edit) then
begin
lSQL:= 'Zmenil=SUSER_SNAME(), DatZmeny=GETDATE(), Poznamka=' + Ifthen(edtPozn.Text='','null','N' + QuotedStr(edtPozn.Text));
jeOK:= true;
end
else
begin
if (idKZ=0) then
begin
jeOK:= false;
selCisloZbozi.SetFocus;
end;
lSQL:= 'idKmenZbozi=' + IntToStr(idKZ) + ',Mnozstvi=' + edtKs.Text + ',Poznamka=' + Ifthen(edtPozn.Text='','null','N' + QuotedStr(edtPozn.Text));
end;
if (jeOK) then
begin
lSQL:= 'UPDATE ' + tblKanBox + ' SET ' + lSQL + ' WHERE id=' + IntToStr(idBox);
try
Helios.ExecSQL(lSQL);
Helios.Refresh(true);
Close;
except on E:Exception do
Helios.Error(#1'Chyba box ' + IntToStR(idBox) + ': '#1 + E.Message);
end;
end
else
Helios.Error(#1'Vypl<70>te v<>echny pot<6F>ebn<62> <20>daje...'#1);
end;
procedure TformKanbanBox.btnZrusClick(Sender: TObject);
begin
with Helios.OpenSQL('SELECT id FROM ' + tblKanBox + ' WHERE Id=' + IntToStr(idBox) + ' AND IdKmenZbozi=0') do
if (RecordCount=1) then
Helios.ExecSQL('DELETE FROM ' + tblKanBox + ' WHERE Id=' + IntToStr(idBox));
with Helios.OpenSQL('SELECT ISNULL(MAX(id),1) FROM ' + tblKanBox) do
Helios.ExecSQL('DBCC CHECKIDENT(_TabKanbanBox, reseed, ' + VarToStr(FieldValues(0)) + ')');
Close;
end;
procedure TformKanbanBox.edtKsExit(Sender: TObject);
begin
edtKs.Text:= Trim(edtKs.Text);
end;
procedure TformKanbanBox.edtPoznExit(Sender: TObject);
begin
edtPozn.Text:= Trim(edtPozn.Text);
end;
procedure TformKanbanBox.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
function RGBtoTColor(strRGB: string): TColor;
var sR,sG,sB: string;
r,g,b: byte;
begin
result:= 0;
strRGB:= StringOfChar('0', 6-Length(strRGB)) + strRGB;
sR:= LeftStr(strRGB,2);
r:= StrToInt('$'+sR);
sG:= MidStr(strRGB,3,2);
g:= StrToInt('$'+sG);
sB:= RightStr(strRGB,2);
b:= StrToInt('$'+sB);
result:= RGB(r,g,b);
end;
procedure TformKanbanBox.FormShow(Sender: TObject);
var lSQL: string;
begin
edit:= false;
selCisloZbozi.Enabled:= false;
edtKs.Enabled:= false;
mnoz:= 0;
if (idBox>0) then
begin
edit:= true;
lSQL:= 'SELECT kz.CisloZbozi, kz.Nazev1, kz.Id, kze._KanbanMnozstvi, b.Poznamka, kze._KanbanBarva,';
lSQL:= lSQL + ' kze._KanbanBarva2 FROM ' + tblKanBox + ' b INNER JOIN ' + tblKmen + ' kz ON (kz.Id=b.IdKmenZbozi) INNER JOIN';
lSQL:= lSQL + ' dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) WHERE b.Id=' + IntToStr(idBox);
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
begin
lblID.Text:= IntToStr(idBox);
selCisloZbozi.Text:= VarToStr(FieldValues(0));
lblPopis.Caption:= VarToStr(FieldValues(1));
idKZ:= StrToInt(VarToStr(FieldValues(2)));
edtKs.Text:= VarToStr(FieldValues(3));
if not(VarIsNull(FieldValues(4))) then
edtPozn.Text:= Trim(VarToStr(FieldValues(4)));
if not(VarIsNull(FieldValues(5))) then
// colBarva1.Color:= RGBtoTColor(IntToHex(StrToInt(VarToStr(FieldValues(5))),2));
colBarva1.Color:= StrToInt(VarToStr(FieldValues(5)));
if not(VarIsNull(FieldValues(6))) then
// colBarva2.Color:= RGBtoTColor(IntToHex(StrToInt(VarToStr(FieldValues(6))),2));
colBarva2.Color:= StrToInt(VarToStr(FieldValues(6)));
end;
end
else
begin
idBox:= 0;
with Helios.OpenSQL('INSERT ' + tblKanBox + ' (Mnozstvi) VALUES (0); SELECT SCOPE_IDENTITY();') do
begin
lblID.Text:= VarToStr(FieldValues(0));
idBox:= StrToInt(lblID.Text);
end;
idKZ:= 0;
lblPopis.Caption:= '';
selCisloZbozi.Enabled:= true;
selCisloZbozi.Text:= '';
end;
end;
procedure TformKanbanBox.NactiKmen(idKZx: Integer);
var lSQL: string;
begin
lSQL:= 'SELECT kz.RegCis, kz.Nazev1, kze._KanbanBarva, kze._KanbanBarva2, kze._KanbanMnozstvi FROM ' + tblKmen + ' kz';
lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) WHERE kz.Id=' + IntToStr(idKZx);
with Helios.OpenSQL(lSQL) do
begin
selCisloZbozi.Text:= VarToStr(FieldValues(0));
lblPopis.Caption:= VarToStr(FieldValues(1));
if not VarIsNull(FieldValues(2)) then
colBarva1.Color:= StrToInt(VarToStr(FieldValues(2)));
if not VarIsNull(FieldValues(3)) then
colBarva1.Color:= StrToInt(VarToStr(FieldValues(3)));
if not VarIsNull(FieldValues(4)) then
edtKs.Text:= VarToStr(FieldValues(4));
end;
end;
procedure TformKanbanBox.selCisloZboziButtonClick(Sender: TObject);
var oVar: OleVariant;
begin
if Helios.Prenos(2,'TabKmenZbozi.id',oVar,'TabKmenZbozi.Blokovano=0','Vyberte polo<6C>ku',true) then
begin
idKZ:= StrToInt(VarToStr(oVar));
NactiKmen(idKZ);
end;
end;
procedure TformKanbanBox.selCisloZboziExit(Sender: TObject);
begin
selCisloZbozi.Text:= Trim(selCisloZbozi.Text);
if (selCisloZbozi.Text<>'') and (idKZ=0) then
begin
with Helios.OpenSQL('SELECT id FROM ' + tblKmen + ' WHERE RegCis=N' + QuotedStr(selCisloZbozi.Text)) do
if (RecordCount=1) then
begin
idKZ:= StrToInt(VarToStr(FieldValues(0)));
NactiKmen(idKZ);
end;
end;
end;
end.

283
frmKanbanObj.dfm Normal file
View File

@ -0,0 +1,283 @@
object formKanbanObj: TformKanbanObj
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = 'Kanban objedn'#225'vka'
ClientHeight = 626
ClientWidth = 737
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
TextHeight = 13
object Label1: TLabel
Left = 391
Top = 19
Width = 87
Height = 16
Caption = 'Po'#269'et polo'#382'ek :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblPocetPol: TLabel
Left = 489
Top = 4
Width = 24
Height = 45
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -37
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 26
Top = 24
Width = 65
Height = 16
Caption = 'Dodavatel :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblDodavatel: TLabel
Left = 102
Top = 19
Width = 7
Height = 25
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 26
Top = 66
Width = 75
Height = 16
Caption = 'Kanban box :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblWork: TLabel
Left = 444
Top = 606
Width = 285
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'lblWork'
end
object btnStorno: TButton
Left = 638
Top = 565
Width = 75
Height = 25
Caption = 'Zru'#353'it'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btnStornoClick
end
object btnOK: TButton
Left = 490
Top = 565
Width = 75
Height = 25
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnOKClick
end
object btnGenObj: TButton
Left = 558
Top = 12
Width = 155
Height = 29
Caption = 'Generuj v'#253'dejku obal'#367
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnGenObjClick
end
object btnGenKoopOrVPr: TButton
Left = 558
Top = 8
Width = 155
Height = 29
Caption = 'Generuj v'#253'dejku obal'#367
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = btnGenKoopOrVPrClick
end
object mLog: TMemo
Left = 26
Top = 538
Width = 401
Height = 75
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
ScrollBars = ssVertical
TabOrder = 3
end
object edtBox: TEdit
Left = 107
Top = 63
Width = 121
Height = 24
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
NumbersOnly = True
ParentFont = False
TabOrder = 4
OnKeyUp = edtBoxKeyUp
end
object grdPolozky: TJvDBGrid
Left = 25
Top = 90
Width = 687
Height = 440
DataSource = ds
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnKeyUp = grdPolozkyKeyUp
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 17
TitleRowHeight = 17
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'IdKanbanBox'
Title.Alignment = taCenter
Title.Caption = #268#237'slo boxu'
Width = 84
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'RegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 126
Visible = True
end
item
Expanded = False
FieldName = 'Nazev'
Title.Caption = 'Popis'
Width = 373
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Mnozstvi'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 73
Visible = True
end
item
Expanded = False
FieldName = 'IdPohybu'
Visible = False
end>
end
object ds: TDataSource
DataSet = vTable
Left = 282
Top = 8
end
object vTable: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 328
Top = 10
object vTableIdPohybu: TIntegerField
FieldName = 'IdPohybu'
end
object vTableIdKanbanBox: TIntegerField
FieldName = 'IdKanbanBox'
Required = True
end
object vTableRegCis: TStringField
FieldName = 'RegCis'
Required = True
Size = 30
end
object vTableNazev: TStringField
FieldName = 'Nazev'
Required = True
Size = 50
end
object vTableMnozstvi: TSmallintField
FieldName = 'Mnozstvi'
Required = True
DisplayFormat = '#,##0'
end
end
end

590
frmKanbanObj.pas Normal file
View File

@ -0,0 +1,590 @@
unit frmKanbanObj;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, FireDAC.Comp.Client, ddPlugin_TLB,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid;
const
KLF_ACTIVATE = $00000001;
KLF_SETFORPROCESS = $00000100;
CRLF = #13#10;
type
TformKanbanObj = class(TForm)
Label1: TLabel;
lblPocetPol: TLabel;
Label2: TLabel;
lblDodavatel: TLabel;
ds: TDataSource;
vTable: TFDMemTable;
vTableIdPohybu: TIntegerField;
vTableIdKanbanBox: TIntegerField;
vTableNazev: TStringField;
vTableMnozstvi: TSmallintField;
btnStorno: TButton;
btnOK: TButton;
btnGenObj: TButton;
btnGenKoopOrVPr: TButton; // p<>id<69>no 18.3.2021
vTableRegCis: TStringField;
mLog: TMemo;
Label3: TLabel;
edtBox: TEdit;
lblWork: TLabel;
grdPolozky: TJvDBGrid;
procedure FormShow (Sender: TObject);
procedure edtBoxKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
procedure btnStornoClick (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure btnGenObjClick (Sender: TObject);
procedure btnGenKoopOrVPrClick(Sender: TObject); // p<>id<69>no 18.3.2021
procedure btnOKClick (Sender: TObject);
procedure grdPolozkyKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
private
function IDPol2Str: string;
public
Helios: IHelios;
idObj: integer;
btnGenVPrOrKoopText: string; // p<>id<69>no 18.3.2021
PoslatEmail: integer; // p<>id<69>no 10.6.2022
TypKooObj: boolean; // p<>id<69>no 10.6.2022
NadpisTypuKoopObj: String; // p<>id<69>no 10.6.2022
Zarovnani: string; // p<>id<69>no 10.6.2022
Cesta: string; // p<>id<69>no 10.6.2022
Nazev: string // p<>id<69>no 10.6.2022
end;
var
formKanbanObj: TformKanbanObj;
cOrg: integer;
jeGenVydej, jeKoopObj, primaObj: Boolean;
layName: array[0..KL_NAMELENGTH+1] of Char;
jsouGenVPr: Boolean; // p<>id<69>no 18.3.2021
implementation
uses
System.StrUtils,
Globalni;
{$R *.dfm}
function TformKanbanObj.IDPol2Str: string;
var tmp: string;
x: integer;
begin
x:= vTable.RecNo;
grdPolozky.LockDrawing;
vTable.First;
tmp:= '';
while not(vTable.Eof) do
begin
if (vTable.Fields.FieldByName('IdPohybu').AsString<>'') then
tmp:= tmp + vTable.Fields.FieldByName('IdPohybu').AsString + ',';
vTable.Next;
end;
if (RightStr(tmp,1)=',') then
SetLength(tmp, Length(tmp)-1);
vTable.RecNo:= x;
grdPolozky.UnlockDrawing;
result:= tmp;
end;
procedure TformKanbanObj.grdPolozkyKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (jeGenVydej) then
Helios.Error(#1'Z objedn<64>vky byla vytvo<76>ena v<>dejka obal<61>, z<>znamy nelze mazat.'#1)
else
begin
// p<>id<69>no 18.3.2021
if (jsouGenVPr) then
Helios.Error(#1'Z objedn<64>vky byly vygenerov<6F>ny v<>robn<62> p<><70>kazy nebo koopera<72>n<EFBFBD> objedn<64>vka, z<>znamy nelze mazat.'#1)
else
begin
// konec p<>id<69>no 18.3.2021
if (Key=VK_DELETE) and (vTable.RecordCount>0) then
if Helios.YesNo('Opravdu chcete z objedn<64>vky smazat tento box ?',false) then
begin
vTable.Delete;
lblPocetPol.Caption:= IntToStr(StrToInt(lblPocetPol.Caption)-1);
grdPolozky.Refresh;
edtBox.SetFocus;
end;
end;
end; // p<>id<69>no 18.3.2021
end;
procedure TformKanbanObj.btnStornoClick(Sender: TObject);
begin
Close;
end;
procedure TformKanbanObj.btnOKClick(Sender: TObject);
var lSQL, idcka, idKZobal: string;
x: integer;
begin
lblWork.Visible:= true;
lblWork.Caption:= 'Ukl<6B>d<EFBFBD>m polo<6C>ky...';
lSQL:= 'DECLARE @i INT; SELECT @i=ISNULL(MAX(id),0) FROM dbo._TabKanbanPohyby;DBCC CHECKIDENT(_TabKanbanPohyby,reseed,@i);';
Helios.ExecSQL(lSQL);
idcka:= IDPol2Str;
if (idObj>0) then
begin
Helios.ExecSQL('DELETE FROM dbo._TabKanbanPohyby WHERE IdKanbanObj=' + IntToStr(idObj) + ' AND Id NOT IN (' + IfThen(idcka='','0',idcka) + ')');
x:= vTable.RecNo;
grdPolozky.BeginUpdate;
vTable.First;
while not(vTable.Eof) do
begin
if (vTable.Fields.FieldByName('IdPohybu').AsString='') then
begin
idKZobal:= '';
lSQL:= 'SELECT kzO.Id FROM dbo._TabKanbanBox b INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) LEFT JOIN dbo.TabKmenZbozi kzO ON';
lSQL:= lSQL + ' (kzO.CisloZbozi=kze._KanbanObal) WHERE b.Id=' + vTable.Fields.FieldByName('IdKanbanBox').AsString;
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
if not VarIsNull(FieldValues(0)) then
idKZobal:= VarToStr(FieldValues(0));
lSQL:= 'INSERT dbo._TabKanbanPohyby (IDKanbanObj, IDKanbanBox, IdKmenZboziObal) VALUES (';
lSQL:= lSQL + IntToStr(idObj) + ',' + vTable.Fields.FieldByName('IdKanbanBox').AsString + ',';
lSQL:= lSQL + IfThen(idKZobal='','null',idKZobal) + ')';
Helios.ExecSQL(lSQL);
end;
vTable.Next;
end;
vTable.RecNo:= x;
grdPolozky.EndUpdate;
Close;
end
else
begin
if (cOrg >=0) then
begin // p<>id<69>no 18.3.2021
lSQL:= 'DECLARE @i INT; SELECT @i=ISNULL(MAX(id),0) FROM dbo._TabKanbanObj; DBCC CHECKIDENT(_TabKanbanObj,reseed,@i);';
Helios.ExecSQL(lSQL);
lSQL:= 'INSERT dbo._TabKanbanObj (CisloOrgKoop) VALUES (' + IntToStr(cOrg) + '); SELECT SCOPE_IDENTITY()';
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
begin
idObj:= StrToInt(VarToStr(FieldValues(0)));
x:= vTable.RecNo;
grdPolozky.BeginUpdate;
vTable.First;
while not(vTable.Eof) do
begin
idKZobal:= '';
lSQL:= 'SELECT kzO.Id FROM dbo._TabKanbanBox b INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) LEFT JOIN dbo.TabKmenZbozi kzO ON';
lSQL:= lSQL + ' (kzO.CisloZbozi=kze._KanbanObal) WHERE b.Id=' + vTable.Fields.FieldByName('IdKanbanBox').AsString;
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
if not VarIsNull(FieldValues(0)) then
idKZobal:= VarToStr(FieldValues(0));
lSQL:= 'INSERT dbo._TabKanbanPohyby (IDKanbanObj, IDKanbanBox, IdKmenZboziObal) VALUES (';
lSQL:= lSQL + IntToStr(idObj) + ',' + vTable.Fields.FieldByName('IdKanbanBox').AsString + ',';
lSQL:= lSQL + IfThen(idKZobal='','null',idKZobal) + ')';
Helios.ExecSQL(lSQL);
vTable.Next;
end;
vTable.RecNo:= x;
grdPolozky.EndUpdate;
Close;
end;
end
else
begin
Close;
end; // p<>id<69>no 18.3.2021
end;
lblWork.Visible:= false;
end;
procedure TformKanbanObj.btnGenObjClick (Sender: TObject);
begin
btnGenObj.Caption:= 'Prob<6F>h<EFBFBD> generov<6F>n<EFBFBD>...';
if (primaObj) then
btnOKClick(Sender);
try
Helios.ExecSQL('EXEC dbo.ep_KanbanGenVydejObalu @idKanObj=' + IntToStr(idObj));
btnGenObj.Caption:= 'Generuj v<>dejku obal<61>';
with Helios.OpenSQL('SELECT IdVydejObalu FROM dbo._TabKanbanObj WHERE Id=' + IntToStr(idObj)) do
if (RecordCount=1) then
if not VarIsNull(FieldValues(0)) then
Helios.PrintForm3(18, 2, 'TabDokladyZbozi.Id=' + VarToStr(FieldValues(0)));
Close;
except on E:Exception do
Helios.Error(#1'Chyba p<>i generov<6F>n<EFBFBD> v<>dejky kanban box<6F>'#1#13#10 + E.Message);
end;
end;
// p<>id<69>no 18.3.2021
procedure TformKanbanObj.btnGenKoopOrVPrClick (Sender: TObject);
var
IDKoopObj, JeGenKoop : integer;
Sql : string;
JmenoSouboruVyg: String;
begin
//if (primaObj) then
btnOKClick (Sender);
with Helios.OpenSQL('SELECT CASE WHEN EXISTS (SELECT 1 FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ' AND IDPrikaz IS NULL) OR NOT EXISTS (SELECT 1 FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ') THEN 1 ELSE 0 END' ) do
begin
if VarIsNull(FieldValues(0)) or (VarToStr(FieldValues(0))='0') or (VarToStr(FieldValues(0))='') then begin
Helios.Error('V<>robn<62> p<><70>kazy ji<6A> byly vygenerov<6F>ny. Nelze je vygenerovat znovu');
exit;
end;
end;
with Helios.OpenSQL('SELECT CASE WHEN EXISTS (SELECT 1 FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ') THEN 1 ELSE 0 END' ) do
begin
if VarIsNull(FieldValues(0)) or (VarToStr(FieldValues(0))='0') or (VarToStr(FieldValues(0))='') then begin
Helios.Error('Nejsou zad<61>ny <20><>dn<64> polo<6C>ky');
exit;
end;
end;
btnGenKoopOrVPr.Caption:= 'Prob<6F>h<EFBFBD> generov<6F>n<EFBFBD>...';
try
//Helios.ExecSQL('EXEC dbo.hpx_NTS_Kanban_GenerujKoopObjNeboVPr @idKanObj=' + IntToStr(idObj)); // zakomentov<6F>no 10.6.2022
// p<>id<69>no 10.6.2022
Sql := 'DECLARE @IDKoopObj INT, @VzniklaKoopObj INT; ';
Sql := Sql + ' EXEC dbo.hpx_NTS_Kanban_GenerujKoopObjNeboVPr_Plugin @idKanObj=' + IntToStr(idObj) + ', @IDKoopObj = @IDKoopObj OUT, @VzniklaKoopObj = @VzniklaKoopObj OUT;';
Sql := Sql + ' SELECT @IDKoopObj AS IDKoopObj, @VzniklaKoopObj AS VzniklaKoopObj';
with Helios.OpenSQL(Sql) do
begin
if not VarIsNull(FieldValues(0)) then IDKoopObj := FieldValues(0) else IDKoopObj := -99;
if not VarIsNull(FieldValues(1)) then JeGenKoop := FieldValues(1) else JeGenKoop := 0;
end;
// konec p<>id<69>n<EFBFBD> 10.6.2022
btnGenKoopOrVPr.Caption:= btnGenVPrOrKoopText;
//Close; // zakomentov<6F>no 10.6.2022
except on E:Exception do begin
Helios.Error(#1'Chyba p<>i generov<6F>n<EFBFBD> koopera<72>n<EFBFBD> objedn<64>vky nebo VP<56>'#1#13#10 + E.Message);
btnGenKoopOrVPr.Caption:= btnGenVPrOrKoopText; // p<>id<69>no 10.6.2022
exit; // p<>id<69>no 10.6.2022
end;
end;
// p<>id<69>no 10.6.2022
if (PoslatEmail = 1) and (IDKoopObj > 0) and (JeGenKoop > 0) then begin
btnGenKoopOrVPr.Caption:= 'Export do xls...';
// export do xls
with Helios.OpenSQL('SELECT id FROM dbo.TabKoopObj WHERE realizovano=0 AND id=' + IntToStr(IDKoopObj)) do begin
if (RecordCount=0) then begin
JmenoSouboruVyg:= ExportKoopObjXls (Helios, IDKoopObj, TypKooObj, NadpisTypuKoopObj, Zarovnani, Cesta, Nazev, 0) ;
end else begin
Helios.Error(#1'Koopera<72>n<EFBFBD> objedn<64>vka nen<65> realizov<6F>na, nelze exportovat.'#1 + CRLF + 'Realizujte j<> a zkuste to znovu.');
end;
end;
// zavol<6F>n<EFBFBD> procedury na posl<73>n<EFBFBD> e-mailu
btnGenKoopOrVPr.Caption:= 'Generov<6F>n<EFBFBD> e-mailu...';
Sql := 'DECLARE @IDExtKom INT = ' + IntToStr(Helios.ExtKomID) + ', @Soubor NVARCHAR(255) = N''' + JmenoSouboruVyg + ''', @Cesta NVARCHAR(255) = N''' + Cesta + ''', @Chyba NVARCHAR(500);';
Sql := Sql + ' EXEC dbo.hpx_OdeslatKooperacniObjednavkuEmailem_Plugin @IDExtKom , @Soubor = @Soubor, @Cesta = @Cesta, @Chyba = @Chyba OUT, @IDKoopObj = ' + IntToStr(IDKoopObj) + ';' ;
Sql := Sql + ' SELECT @Chyba; ' ;
// Helios.Info(sql);
with Helios.OpenSQL(Sql) do
begin
if (Not VarIsNull(FieldValues(0))) and (trim(VarToStr(FieldValues(0)))<>'') then begin
Helios.Error(VarToStr(FieldValues(0)));
end;
end;
btnGenKoopOrVPr.Caption:= btnGenVPrOrKoopText;
end;
Close;
// konec p<>id<69>n<EFBFBD> 10.6.2022
end;
// konec p<>id<69>n<EFBFBD> 18.3.2021
procedure TformKanbanObj.edtBoxKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var lSQL: string;
idx, idKZ: Integer;
PridatPolozku: boolean; // p<>id<69>no 18.3.2021
begin
edtBox.Text:= Trim(edtBox.Text);
if (jeKoopObj) then
begin
Helios.Error(#1'Byla vytvo<76>ena Koopera<72>n<EFBFBD> objedn<64>vka, polo<6C>ky nelze p<>id<69>vat.'#1);
Exit;
end;
// p<>id<69>no 18.3.2021
if (jsouGenVPr) then
begin
Helios.Error(#1'Byly vytvo<76>eny v<>robn<62> p<><70>kazy, polo<6C>ky nelze p<>id<69>vat.'#1);
Exit;
end;
// konec p<>id<69>n<EFBFBD> 18.3.2021
if (jeGenVydej) then
begin
Helios.Error(#1'Byla vytvo<76>ena v<>dejka na obaly, polo<6C>ky nelze p<>id<69>vat.'#1);
Exit;
end;
if ((Key=VK_TAB) or (Key=VK_RETURN)) and (edtBox.Text<>'') then
begin
idx:= vTable.RecNo;
if not(vTable.Locate('IdKanbanBox', VarArrayOf([edtBox.Text]),[loCaseInsensitive])) then
begin
PridatPolozku := true; //p<>id<69>no 18.3.2021
vTable.RecNo:= idx;
with Helios.OpenSQL('SELECT id FROM dbo._TabKanbanBox WHERE Id=' + edtBox.Text) do
if (RecordCount=1) then
begin
lSQL:= 'SELECT kz.RegCis, kz.Nazev1, kze._KanbanMnozstvi, kz.Id FROM dbo._TabKanbanBox b';
lSQL:= lSQL + ' INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
lSQL:= lSQL + ' LEFT JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id) WHERE b.Id=' + edtBox.Text;
with Helios.OpenSQL(lSQL) do
begin
if (cOrg=-99) then // upraveno 18.3.2021
begin
idKZ:= StrToInt(VarToStr(FieldValues(3)));
lSQL:= 'SELECT se._CisloOrg, co.Nazev FROM dbo.TabKmenZbozi kz INNER JOIN dbo.TabStrom s ON (s.Cislo=kz.KmenoveStredisko)';
lSQL:= lSQL + ' INNER JOIN dbo.TabStrom_EXT se ON (se.Id=s.Id) INNER JOIN dbo.TabCisOrg co ON (co.CisloOrg=se._CisloOrg)';
lSQL:= lSQL + ' WHERE kz.Id=' + IntToStr(idKZ);
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
begin
cOrg:= StrToInt(VarToStr(FieldValues(0)));
lblDodavatel.Caption:= VarToStr(FieldValues(1));
end;
// p<>id<69>no 18.3.2021
end else begin
idKZ:= StrToInt(VarToStr(FieldValues(3)));
lSQL:= 'SELECT se._CisloOrg, co.Nazev FROM dbo.TabKmenZbozi kz INNER JOIN dbo.TabStrom s ON (s.Cislo=kz.KmenoveStredisko)';
lSQL:= lSQL + ' INNER JOIN dbo.TabStrom_EXT se ON (se.Id=s.Id) INNER JOIN dbo.TabCisOrg co ON (co.CisloOrg=se._CisloOrg)';
lSQL:= lSQL + ' WHERE kz.Id=' + IntToStr(idKZ);
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
begin
if (cOrg <> StrToInt(VarToStr(FieldValues(0)))) then begin
PridatPolozku := false;
Helios.Error('Tento kanbanbox pat<61><74> jin<69> organizaci. Nelze p<>idat na objedn<64>vku.') ;
if (mLog.Lines.Count=0) then
mLog.Lines.Append('Kanbanbox pat<61><74> jin<69> organizaci: ' + edtBox.Text)
else
mLog.Lines.Insert(0, 'Kanbanbox pat<61><74> jin<69> organizaci: ' + edtBox.Text);
end;
end;
// konec p<>id<69>no 18.3.2021
end;
if (PridatPolozku) then begin // p<>id<69>no 18.3.2021
vTable.Append;
vTable.Fields.FieldByName('IdKanbanBox').AsString:= edtBox.Text;
vTable.Fields.FieldByName('RegCis').AsString:= VarToStr(FieldValues(0));
vTable.Fields.FieldByName('Nazev').AsString:= VarToStr(FieldValues(1));
vTable.Fields.FieldByName('Mnozstvi').AsInteger:= StrToInt(VarToStr(FieldValues(2)));
vTable.Post;
lblPocetPol.Caption:= IntToStr(1 + StrToInt(lblPocetPol.Caption));
end; // p<>id<69>no 18.3.2021
end;
end
else
begin
if (mLog.Lines.Count=0) then
mLog.Lines.Append('Nebyl nalezen kanban box: ' + edtBox.Text)
else
mLog.Lines.Insert(0, 'Nebyl nalezen kanban box: ' + edtBox.Text);
end;
end
else
if (mLog.Lines.Count=0) then
mLog.Lines.Append('Kanban box je ji<6A> zad<61>n: ' + edtBox.Text)
else
mLog.Lines.Insert(0, 'Kanban box je ji<6A> zad<61>n: ' + edtBox.Text);
edtBox.Text:= '';
edtBox.SetFocus;
end;
end;
procedure TformKanbanObj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (layName[0]<>'') then
LoadKeyboardLayout(@layName, KLF_ACTIVATE or KLF_SETFORPROCESS);
if (vTable.Active) then
vTable.Close;
Action:= caFree;
end;
procedure TformKanbanObj.FormShow(Sender: TObject);
var lSQL: string;
begin
if GetKeyboardLayoutName(@layName) then
LoadKeyboardLayout('00020409', KLF_ACTIVATE or KLF_SETFORPROCESS);
lblWork.Visible:= false;
cOrg:= -99; // upraveno 18.3.2021
jeGenVydej:= false;
jeKoopObj:= false;
jsouGenVPr := false; // p<>id<69>no 18.3.2021
primaObj:= true;
if not(vTable.Active) then
vTable.Open;
vTable.EmptyDataSet;
Self.Caption:= 'Kanban objedn<64>vka';
edtBox.SetFocus;
edtBox.Color:= clWindow;
btnGenObj.Enabled:= true;
btnGenKoopOrVPr.Enabled:= true; // p<>id<69>no 18.3.2021
//p<>id<69>no 18.3.2021
with Helios.OpenSQL('EXEC dbo.hpx_NTS_Kanban_TextButonuGenVPrNeboKoop') do
begin
btnGenVPrOrKoopText:=VarToStr(FieldValues(0));
btnGenKoopOrVPr.Width := StrToInt(VarToStr(FieldValues(1))) ;
btnGenKoopOrVPr.Height := StrToInt(VarToStr(FieldValues(2))) ;
btnGenKoopOrVPr.Top := StrToInt(VarToStr(FieldValues(3))) ;
btnGenKoopOrVPr.Left := StrToInt(VarToStr(FieldValues(4))) ;
btnGenKoopOrVPr.Font.Height := StrToInt(VarToStr(FieldValues(5))) ;
end;
btnGenKoopOrVPr.Caption := btnGenVPrOrKoopText;
// konec p<>id<69>n<EFBFBD> 18.3.2021
if (idObj>0) then
begin
primaObj:= false;
with Helios.OpenSQL('SELECT CisloOrgKoop, IdVydejObalu, IdKoopObj FROM dbo._TabKanbanObj WHERE Id=' + IntToStr(idObj)) do
begin
cOrg:= StrToInt(VarToStr(FieldValues(0)));
if not VarIsNull(FieldValues(1)) and (VarToStr(FieldValues(1))<>'0') and (VarToStr(FieldValues(1))<>'') then
jeGenVydej:= true;
if not VarIsNull(FieldValues(2)) and (VarToStr(FieldValues(2))<>'0') and (VarToStr(FieldValues(2))<>'') then
jeKoopObj:= true;
end;
// p<>id<69>no 18.3.2021
with Helios.OpenSQL('SELECT COUNT(1) FROM dbo._TabKanbanPohyby WHERE IdKanbanObj = ' + IntToStr(idObj) + ' AND IDPrikaz IS NOT NULL' ) do
begin
if not VarIsNull(FieldValues(0)) and (VarToStr(FieldValues(0))<>'0') and (VarToStr(FieldValues(0))<>'') then
jsouGenVPr:= true else jsouGenVPr := false;
end;
// konec p<>id<69>n<EFBFBD> 18.3.2021
if (jeKoopObj) or (jeGenVydej) or (jsouGenVPr) then // upraveno 18.3.2021
begin
btnGenObj.Enabled:= false;
edtBox.Enabled:= false;
edtBox.Color:= clBtnFace;
btnStorno.SetFocus;
if ((jeKoopObj) or (jeGenVydej)) then btnGenKoopOrVPr.Enabled := false;
end;
if (jeKoopObj) then
begin
Self.Caption:= Self.Caption + ' (odesl<73>na)';
mLog.Lines.Insert(0, 'Objedn<64>vka byla ji<6A> odesl<73>na...');
end
else
begin
if (jeGenVydej) then
begin
Self.Caption:= Self.Caption + ' (v<>dejka obal<61>)';
mLog.Lines.Insert(0, 'Byla ji<6A> vygenerov<6F>na v<>dejka obal<61>...');
end
else
begin
// p<>id<69>no 18.3.2021
if (jsouGenVPr) then
begin
Self.Caption:= Self.Caption + ' (v<>robn<62> p<><70>kaz)';
mLog.Lines.Insert(0, 'Byl ji<6A> vygenerov<6F>n v<>robn<62> p<><70>kaz...');
end;
// konec p<>id<69>n<EFBFBD> 18.3.2021
end;
end;
with Helios.OpenSQL('SELECT Nazev FROM dbo.TabCisOrg WHERE CisloOrg=' + IntToStr(cOrg)) do
lblDodavatel.Caption:= VarToStr(FieldValues(0));
lSQL:= 'SELECT p.Id, b.Id, kz.RegCis, kz.Nazev1, kze._KanbanMnozstvi FROM dbo._TabKanbanPohyby p';
lSQL:= lSQL + ' INNER JOIN dbo._TabKanbanBox b ON (p.IdKanbanBox=b.Id)';
lSQL:= lSQL + ' INNER JOIN dbo.TabKmenZbozi kz ON (kz.Id=b.IdKmenZbozi)';
lSQL:= lSQL + ' INNER JOIN dbo.TabKmenZbozi_EXT kze ON (kze.Id=kz.Id)';
lSQL:= lSQL + ' WHERE p.IdKanbanObj=' + IntToStr(idObj) + ' ORDER BY p.Id';
with Helios.OpenSQL(lSQL) do
begin
lblPocetPol.Caption:= IntToStr(RecordCount);
grdPolozky.BeginUpdate;
First;
while not(EOF) do
begin
vTable.Append;
vTable.Fields.FieldByName('IdPohybu').AsString:= VarToStr(FieldValues(0));
vTable.Fields.FieldByName('IdKanbanBox').AsString:= VarToStr(FieldValues(1));
vTable.Fields.FieldByName('RegCis').AsString:= VarToStr(FieldValues(2));
vTable.Fields.FieldByName('Nazev').AsString:= VarToStr(FieldValues(3));
vTable.Fields.FieldByName('Mnozstvi').AsInteger:= StrToInt(VarToStr(FieldValues(4)));
vTable.Post;
Next;
end;
grdPolozky.EndUpdate;
end;
end;
end;
end.

307
frmKanbanObj_bak_do210318.dfm Normal file
View File

@ -0,0 +1,307 @@
object formKanbanObj: TformKanbanObj
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = 'Kanban objedn'#225'vka'
ClientHeight = 624
ClientWidth = 737
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 391
Top = 19
Width = 87
Height = 16
Caption = 'Po'#269'et polo'#382'ek :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblPocetPol: TLabel
Left = 489
Top = 4
Width = 24
Height = 45
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -37
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 26
Top = 24
Width = 65
Height = 16
Caption = 'Dodavatel :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblDodavatel: TLabel
Left = 102
Top = 19
Width = 7
Height = 25
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 26
Top = 66
Width = 75
Height = 16
Caption = 'Kanban box :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblWork: TLabel
Left = 444
Top = 606
Width = 285
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'lblWork'
end
object gPolozky: TcxGrid
Left = 26
Top = 93
Width = 687
Height = 439
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
object vgPolozky: TcxGridDBTableView
OnKeyUp = vgPolozkyKeyUp
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = ds
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = vgPolozkyMnozstvi
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsCustomize.ColumnHorzSizing = False
OptionsCustomize.ColumnMoving = False
OptionsCustomize.GroupBySorting = True
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object vgPolozkyIdPohybu: TcxGridDBColumn
DataBinding.FieldName = 'IdPohybu'
Visible = False
end
object vgPolozkyIdKanbanBox: TcxGridDBColumn
Caption = #268#237'slo boxu'
DataBinding.FieldName = 'IdKanbanBox'
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
MinWidth = 84
Options.Editing = False
Options.Filtering = False
Options.AutoWidthSizable = False
Options.Grouping = False
Options.HorzSizing = False
Options.Moving = False
Width = 84
end
object vgPolozkyRegCis: TcxGridDBColumn
Caption = 'Reg. '#269#237'slo'
DataBinding.FieldName = 'RegCis'
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
MinWidth = 126
Options.Editing = False
Options.Filtering = False
Options.HorzSizing = False
Options.Moving = False
Width = 126
end
object vgPolozkyNazev: TcxGridDBColumn
Caption = 'Popis'
DataBinding.FieldName = 'Nazev'
PropertiesClassName = 'TcxLabelProperties'
MinWidth = 373
Options.Editing = False
Options.Filtering = False
Options.AutoWidthSizable = False
Options.HorzSizing = False
Options.Moving = False
Options.Sorting = False
Width = 373
end
object vgPolozkyMnozstvi: TcxGridDBColumn
Caption = 'Mno'#382'stv'#237
DataBinding.FieldName = 'Mnozstvi'
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
MinWidth = 73
Options.Editing = False
Options.Filtering = False
Options.AutoWidthSizable = False
Options.Grouping = False
Options.HorzSizing = False
Options.Moving = False
Options.Sorting = False
Width = 73
end
end
object lvlgPolozky: TcxGridLevel
GridView = vgPolozky
end
end
object btnStorno: TButton
Left = 638
Top = 565
Width = 75
Height = 25
Caption = 'Zru'#353'it'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnStornoClick
end
object btnOK: TButton
Left = 490
Top = 565
Width = 75
Height = 25
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnOKClick
end
object btnGenObj: TButton
Left = 558
Top = 12
Width = 155
Height = 29
Caption = 'Generuj v'#253'dejku obal'#367
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnGenObjClick
end
object mLog: TMemo
Left = 26
Top = 538
Width = 401
Height = 75
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
ScrollBars = ssVertical
TabOrder = 4
end
object edtBox: TEdit
Left = 107
Top = 63
Width = 121
Height = 24
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
NumbersOnly = True
ParentFont = False
TabOrder = 5
OnKeyUp = edtBoxKeyUp
end
object ds: TDataSource
DataSet = vTable
Left = 282
Top = 8
end
object vTable: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 328
Top = 10
object vTableIdPohybu: TIntegerField
FieldName = 'IdPohybu'
end
object vTableIdKanbanBox: TIntegerField
FieldName = 'IdKanbanBox'
Required = True
end
object vTableRegCis: TStringField
FieldName = 'RegCis'
Required = True
Size = 30
end
object vTableNazev: TStringField
FieldName = 'Nazev'
Required = True
Size = 50
end
object vTableMnozstvi: TSmallintField
FieldName = 'Mnozstvi'
Required = True
end
end
end

22
frmMain.dfm Normal file
View File

@ -0,0 +1,22 @@
object formMain: TformMain
Left = 0
Top = 0
Caption = 'formMain'
ClientHeight = 202
ClientWidth = 447
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object imgList: TImageList
Height = 24
Width = 24
Left = 18
Top = 16
end
end

25
frmMain.pas Normal file
View File

@ -0,0 +1,25 @@
unit frmMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList;
type
TformMain = class(TForm)
imgList: TImageList;
private
{ Private declarations }
public
{ Public declarations }
end;
var
formMain: TformMain;
implementation
{$R *.dfm}
end.

65
frmMaterial.dfm Normal file
View File

@ -0,0 +1,65 @@
object formMaterial: TformMaterial
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'formMaterial'
ClientHeight = 382
ClientWidth = 570
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
TextHeight = 13
object treeMat: TTreeView
Left = 0
Top = 0
Width = 568
Height = 380
Indent = 19
TabOrder = 0
end
object ds: TDataSource
DataSet = vTab
Left = 514
Top = 326
end
object vTab: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 444
Top = 328
object vTabId: TIntegerField
FieldName = 'Id'
Visible = False
end
object vTabParentId: TIntegerField
FieldName = 'ParentId'
Visible = False
end
object vTabSZ: TStringField
FieldName = 'SZ'
Size = 3
end
object vTabRegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object vTabNazev: TStringField
FieldName = 'Nazev'
Size = 100
end
object vTabMnoz: TFloatField
FieldName = 'Mnoz'
end
end
end

87
frmMaterial.pas Normal file
View File

@ -0,0 +1,87 @@
unit frmMaterial;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, ddPlugin_TLB, Data.DB, FireDAC.Comp.Client,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet;
type
TformMaterial = class(TForm)
ds: TDataSource;
vTab: TFDMemTable;
vTabId: TIntegerField;
vTabParentId: TIntegerField;
vTabSZ: TStringField;
vTabRegCis: TStringField;
vTabNazev: TStringField;
vTabMnoz: TFloatField;
treeMat: TTreeView;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure NactiTree;
public
Helios: IHelios;
idMat: integer;
end;
var
formMaterial: TformMaterial;
implementation
uses helUtils;
{$R *.dfm}
procedure TformMaterial.NactiTree;
var lSQL: string;
id: integer;
root,uzel: TTreeNode;
cont: boolean;
begin
with Helios.OpenSQL('SELECT SkupZbo,RegCis,Nazev1 FROM ' + tblKZ + ' WHERE id=' + IntToStr(idMat)) do
begin
treeMat.Items.AddFirst(nil, VarToStr(FieldValues(0)) + ' ' + VarToStr(FieldValues(1)) + ' ' + VarToStr(FieldValues(2)));
root:= treeMat.Items.GetFirstNode;
end;
id:= idMat;
lSQL:= 'SELECT kz.id, kz.SkupZbo, kz.RegCis, kz.Nazev1, v.MnozstviSeZtratou/v.DavkaTPV FROM ' + tblKVaz;
lSQL:= lSQL + ' v INNER JOIN ' + tblKZ + ' kz ON (kz.id=v.vyssi)';
lSQL:= lSQL + ' LEFT JOIN ' + tblParKZ + ' p ON (p.IdKmenZbozi=kz.id) WHERE v.nizsi=';
cont:= true;
while (cont) do
begin
with Helios.OpenSQL(lSQL + IntToStr(id)) do
if (RecordCount=0) then
cont:= false
else
begin
First;
while not(EOF) do
begin
treeMat.Items.AddChild(root, VarToStr(FieldValues(1)) + ' ' + VarToStr(FieldValues(2)) + ' ' + VarToStr(FieldValues(3)));
Next;
end;
cont:= false;
end;
end;
end;
procedure TformMaterial.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure TformMaterial.FormShow(Sender: TObject);
begin
Self.Icon.Handle:= Helios.MainApplicationIconHandle;
Self.Font.Name:= Helios.Font;
Self.Font.Height:= Helios.FontHeight;
NactiTree;
end;
end.

864
frmOdvedPrikaz - kopie (2).dfm Normal file
View File

@ -0,0 +1,864 @@
object formOdvedeniPrikazu: TformOdvedeniPrikazu
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
ClientHeight = 577
ClientWidth = 724
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnKeyUp = FormKeyUp
OnResize = FormResize
OnShow = FormShow
DesignSize = (
724
577)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 272
Width = 121
Height = 17
Caption = 'Odv'#225'd'#283'n'#253'ch kus'#367' :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 10
Top = 231
Width = 51
Height = 17
Caption = 'Sm'#283'na :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 11
Top = 185
Width = 51
Height = 17
Caption = 'Datum :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 205
Top = 185
Width = 91
Height = 17
Caption = 'Zam'#283'stnanec :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblZamest: TLabel
Left = 400
Top = 183
Width = 275
Height = 20
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblDilec: TLabel
Left = 8
Top = 38
Width = 404
Height = 20
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 13
Top = 74
Width = 95
Height = 17
Caption = 'V'#253'robn'#237' p'#345#237'kaz :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 8
Top = 11
Width = 101
Height = 17
Caption = 'D'#237'lec / v'#253'robek :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 11
Top = 146
Width = 37
Height = 17
Caption = 'Sklad:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 10
Top = 111
Width = 87
Height = 17
Caption = 'Fronta pr'#225'ce :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object gOperace: TNextGrid6
Left = 15
Top = 318
Width = 701
Height = 208
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
PopupMenu = pOperace
TabOrder = 12
TabStop = True
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
ActiveView = gView
ActiveViewIndex = 0
ScrollBars = [sbHorizontal, sbVertical]
SelectFullRow = True
object gView: TNxReportGridView6
ColumnMoving = False
GridLines = True
HeaderHeight = 24
InsertRowHeight = 24
end
object colOper: TNxNumberColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = #268'.op.'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 0
PlaceholderText = '1742.50'
Position = 0
FormatMask = '0'
Precision = 0
Incrememnt = 1.000000000000000000
InsertString = '0'
end
object colEvid: TNxCheckBoxColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Evid ?'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 1
PlaceholderText = 'True'
Position = 1
InsertString = 'False'
end
object colPopis: TNxTextColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'Popis'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 2
PlaceholderText = 'Text Text'
Position = 2
end
object colIdPostup: TNxNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'idPostup'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 3
PlaceholderText = '1742.50'
Position = 3
Visible = False
Width = 8
FormatMask = '#,##0.00'
Precision = 0
Incrememnt = 1.000000000000000000
InsertString = '0'
end
object colNormCasS: TNxNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'NormCasS'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 4
PlaceholderText = '1742.50'
Position = 4
Visible = False
Width = 8
FormatMask = '#,##0.00'
Precision = 0
Incrememnt = 1.000000000000000000
InsertString = '0'
end
end
object edtKusu: TRzNumericEdit
Left = 140
Top = 268
Width = 68
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 6
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 5
OnEnter = edtKusuEnter
OnExit = edtKusuExit
OnKeyUp = edtKusuKeyUp
Max = 999999.000000000000000000
DisplayFormat = ',0;(,0)'
end
object GroupBox2: TGroupBox
Left = 488
Top = 8
Width = 225
Height = 109
Anchors = [akTop, akRight]
Caption = ' Kusy '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 13
object Label2: TLabel
Left = 8
Top = 22
Width = 86
Height = 17
Caption = 'Kusy zadan'#233' :'
end
object lblZadane: TLabel
Left = 171
Top = 21
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 53
Width = 95
Height = 17
Caption = 'Kusy zb'#253'vaj'#237'c'#237' :'
end
object lblZive: TLabel
Left = 171
Top = 52
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 83
Width = 74
Height = 17
Caption = 'Evidov'#225'no :'
end
object lblEvid: TLabel
Left = 171
Top = 81
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
object btnSave: TBitBtn
Left = 155
Top = 537
Width = 92
Height = 32
Align = alCustom
Anchors = [akBottom]
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
ModalResult = 1
NumGlyphs = 2
ParentFont = False
TabOrder = 7
OnClick = btnSaveClick
end
object btnSavetisk: TBitBtn
Left = 305
Top = 537
Width = 92
Height = 32
Align = alCustom
Anchors = [akBottom]
Caption = 'OK + Tisk'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
ModalResult = 1
NumGlyphs = 2
ParentFont = False
TabOrder = 7
OnClick = btnSaveTiskClick
end
object btnCancel: TBitBtn
Left = 455
Top = 537
Width = 89
Height = 32
Anchors = [akBottom]
Caption = ' Storno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Kind = bkCancel
NumGlyphs = 2
ParentFont = False
TabOrder = 8
end
object cbCasMzda: TCheckBox
Left = 238
Top = 228
Width = 184
Height = 17
Caption = 'Mzda dle skute'#269'n'#233'ho '#269'asu'
Checked = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 11
end
object selSmena: TRzButtonEdit
Left = 68
Top = 228
Width = 75
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 10
AltBtnWidth = 16
ButtonWidth = 16
end
object selZamest: TRzButtonEdit
Left = 303
Top = 181
Width = 84
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
OnEnter = selZamestEnter
OnExit = selZamestExit
OnKeyUp = selZamestKeyUp
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selZamestButtonClick
end
object selBarCode: TRzButtonEdit
Left = 256
Top = 69
Width = 131
Height = 25
Text = ''
CharCase = ecUpperCase
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 15
ParentFont = False
TabOrder = 2
Visible = False
OnExit = selBarCodeExit
OnKeyUp = selBarCodeKeyUp
ButtonGlyph.Data = {
AE060000424DAE0600000000000036000000280000001E000000120000000100
18000000000078060000C40E0000C40E00000000000000000000FBFCF8F0F1EE
FBFCF8FBFCF8FBFCF8CDCECAE3E4E0CACAC7DDDEDAC4C4C1E7E8E4DEDFDBECED
E9CFCFCBECEDE9F7F8F4CBCBC8E5E6E2DCDCD8F5F6F2DCDDD9E6E7E4CCCCC9E7
E8E5EAEAE7FBFCF8FBFCF8FBFCF8EFEFECF6F7F30000FAFBF7CDCECACBCCC9BA
BAB7D2D3CFB5B6B3BFBFBC949391BFBEBC9C9C9ACECFCBB1B0AEDCDDD99C9C9A
BFBFBCD1D1CF929290D2D3CF7F7E7CDDDEDAB1B2AFCECECB9B9B98E3E3E0B2B2
AFC5C5C2A4A4A2BFBFBCC8C9C6E8E9E50000FBFCF8E8E8E4A1A29F80807FAFAF
ACA8A8A6BABAB7959593AFB0ADADADABC0C1BEA8A9A6D8D9D5A8A8A5959694AB
ABA9C8C8C6D9D9D6959593C8C9C6A1A19FC9C9C7D5D6D2DADBD7B2B2AF959593
5857588A8A88D8D9D5F6F7F30000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C
8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2
C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80
807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B484747
4B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5
B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAF
AC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C
8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B2989897
5857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
A2A2A081817FAFAFAD92929190908E3D3C3C555554A2A2A07E7E7D8787858D8D
8C4948484C4C4C8D8D8CA3A4A2A4A4A260605F9191907170706D6D6CD2D3D0C2
C3C0B4B5B39999975958598B8B89E8E9E5FBFCF80000FBFCF8FAFBF7D8D8D5CB
CBC8DDDDDAD1D2CFD0D1CEAFB0ADB9BAB7D8D9D5C9CAC7CDCDCACFD0CDB4B5B2
B5B5B3CFD0CDD8D9D6D8D9D5BDBEBBD2D3D0C7C7C5C4C4C1EBECE8E4E5E2DFE0
DCD4D4D1BABBB8CFCFCCF3F4F0FBFCF80000}
ButtonKind = bkCustom
AltBtnWidth = 16
ButtonWidth = 16
end
object selPrikaz: TRzButtonEdit
Left = 115
Top = 69
Width = 132
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 1
OnExit = selPrikazExit
OnKeyUp = selPrikazKeyUp
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selPrikazButtonClick
end
object selDilec: TRzButtonEdit
Left = 122
Top = 6
Width = 183
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 22
ParentFont = False
TabOrder = 0
OnEnter = selDilecEnter
OnExit = selDilecExit
OnKeyDown = selDilecKeyDown
OnKeyUp = selDilecKeyUp
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selDilecButtonClick
end
object cbSklad: TComboBox
Left = 58
Top = 143
Width = 198
Height = 25
Style = csDropDownList
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = '200 - V'#253'roba'
Items.Strings = (
'200 - V'#253'roba'
'210 - Sklad v'#253'robk'#367
'200.00105 - Nadv'#253'roba'
'100.00300 - Va'#269'ky')
end
object dtDatum: TRzDateTimePicker
Left = 70
Top = 182
Width = 121
Height = 26
Date = 41401.452400474540000000
Format = 'dd.MM.yyyy'
Time = 41401.452400474540000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
MinDate = 41275.000000000000000000
ParentFont = False
TabOrder = 9
ShowToday = True
FirstDayOfWeek = dowMonday
end
object grpTampo: TGroupBox
Left = 238
Top = 262
Width = 294
Height = 31
TabOrder = 6
object Label6: TLabel
Left = 4
Top = 11
Width = 76
Height = 13
Caption = 'Evidovan'#253' '#269'as :'
OnMouseDown = Label6MouseDown
end
object Label7: TLabel
Left = 136
Top = 11
Width = 26
Height = 14
AutoSize = False
Caption = 'hod'
end
object Label8: TLabel
Left = 223
Top = 11
Width = 25
Height = 14
AutoSize = False
Caption = 'min'
end
object edtCasHod: TRzNumericEdit
Left = 96
Top = 4
Width = 32
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 0
OnKeyUp = edtCasHodKeyUp
DisplayFormat = ',0;(,0)'
end
object edtCasMin: TRzNumericEdit
Left = 179
Top = 4
Width = 39
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyUp = edtCasMinKeyUp
DisplayFormat = ',0;(,0)'
end
end
object grpNadvyroba: TGroupBox
Left = 238
Top = 263
Width = 307
Height = 30
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 14
object Label14: TLabel
Left = 10
Top = 6
Width = 113
Height = 17
Caption = 'V'#253'dejka materi'#225'lu:'
end
object selVydejMat: TRzButtonEdit
Left = 140
Top = 4
Width = 161
Height = 25
Text = ''
Alignment = taCenter
TabOrder = 0
OnExit = selVydejMatExit
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selVydejMatButtonClick
end
end
object selFronta: TRzButtonEdit
Left = 103
Top = 106
Width = 132
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 15
Visible = False
OnExit = selFrontaExit
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selFrontaButtonClick
end
object pOperace: TPopupMenu
Left = 510
Top = 347
object pOdznacVse: TMenuItem
Caption = 'O&dzna'#269'it v'#353'e'
OnClick = pOdznacVseClick
end
object pVyberVse: TMenuItem
Caption = '&Vybrat v'#353'e'
OnClick = pVyberVseClick
end
end
end

828
frmOdvedPrikaz - kopie.dfm Normal file
View File

@ -0,0 +1,828 @@
object formOdvedeniPrikazu: TformOdvedeniPrikazu
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
ClientHeight = 577
ClientWidth = 724
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnKeyUp = FormKeyUp
OnResize = FormResize
OnShow = FormShow
DesignSize = (
724
577)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 272
Width = 121
Height = 17
Caption = 'Odv'#225'd'#283'n'#253'ch kus'#367' :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 10
Top = 231
Width = 51
Height = 17
Caption = 'Sm'#283'na :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 11
Top = 185
Width = 51
Height = 17
Caption = 'Datum :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 205
Top = 185
Width = 91
Height = 17
Caption = 'Zam'#283'stnanec :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblZamest: TLabel
Left = 400
Top = 183
Width = 275
Height = 20
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblDilec: TLabel
Left = 8
Top = 38
Width = 404
Height = 20
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 13
Top = 74
Width = 95
Height = 17
Caption = 'V'#253'robn'#237' p'#345#237'kaz :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 8
Top = 11
Width = 101
Height = 17
Caption = 'D'#237'lec / v'#253'robek :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 11
Top = 146
Width = 37
Height = 17
Caption = 'Sklad:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 10
Top = 111
Width = 87
Height = 17
Caption = 'Fronta pr'#225'ce :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object gOperace: TNextGrid6
Left = 15
Top = 318
Width = 701
Height = 208
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
PopupMenu = pOperace
TabOrder = 12
TabStop = True
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
ActiveView = gView
ActiveViewIndex = 0
ScrollBars = [sbHorizontal, sbVertical]
SelectFullRow = True
object gView: TNxReportGridView6
ColumnMoving = False
GridLines = True
HeaderHeight = 24
InsertRowHeight = 24
end
object colOper: TNxNumberColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = #268'.op.'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 0
PlaceholderText = '1742.50'
Position = 0
FormatMask = '0'
Precision = 0
Incrememnt = 1.000000000000000000
InsertString = '0'
end
object colEvid: TNxCheckBoxColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Evid ?'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 1
PlaceholderText = 'True'
Position = 1
InsertString = 'False'
end
object colPopis: TNxTextColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'Popis'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 2
PlaceholderText = 'Text Text'
Position = 2
end
object colIdPostup: TNxNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'idPostup'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 3
PlaceholderText = '1742.50'
Position = 3
Visible = False
Width = 8
FormatMask = '#,##0.00'
Precision = 0
Incrememnt = 1.000000000000000000
InsertString = '0'
end
object colNormCasS: TNxNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'NormCasS'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 4
PlaceholderText = '1742.50'
Position = 4
Visible = False
Width = 8
FormatMask = '#,##0.00'
Precision = 0
Incrememnt = 1.000000000000000000
InsertString = '0'
end
end
object edtKusu: TRzNumericEdit
Left = 140
Top = 268
Width = 68
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 6
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 5
OnEnter = edtKusuEnter
OnExit = edtKusuExit
OnKeyUp = edtKusuKeyUp
Max = 999999.000000000000000000
DisplayFormat = ',0;(,0)'
end
object GroupBox2: TGroupBox
Left = 488
Top = 8
Width = 225
Height = 109
Anchors = [akTop, akRight]
Caption = ' Kusy '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 13
object Label2: TLabel
Left = 8
Top = 22
Width = 86
Height = 17
Caption = 'Kusy zadan'#233' :'
end
object lblZadane: TLabel
Left = 171
Top = 21
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 53
Width = 95
Height = 17
Caption = 'Kusy zb'#253'vaj'#237'c'#237' :'
end
object lblZive: TLabel
Left = 171
Top = 52
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 83
Width = 74
Height = 17
Caption = 'Evidov'#225'no :'
end
object lblEvid: TLabel
Left = 171
Top = 81
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
object btnSave: TBitBtn
Left = 205
Top = 537
Width = 92
Height = 32
Align = alCustom
Anchors = [akBottom]
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
ModalResult = 1
NumGlyphs = 2
ParentFont = False
TabOrder = 7
OnClick = btnSaveClick
end
object btnCancel: TBitBtn
Left = 405
Top = 537
Width = 89
Height = 32
Anchors = [akBottom]
Caption = ' Storno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Kind = bkCancel
NumGlyphs = 2
ParentFont = False
TabOrder = 8
end
object cbCasMzda: TCheckBox
Left = 238
Top = 228
Width = 184
Height = 17
Caption = 'Mzda dle skute'#269'n'#233'ho '#269'asu'
Checked = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 11
end
object selSmena: TRzButtonEdit
Left = 68
Top = 228
Width = 75
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 10
AltBtnWidth = 16
ButtonWidth = 16
end
object selZamest: TRzButtonEdit
Left = 303
Top = 181
Width = 84
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
OnEnter = selZamestEnter
OnExit = selZamestExit
OnKeyUp = selZamestKeyUp
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selZamestButtonClick
end
object selBarCode: TRzButtonEdit
Left = 256
Top = 69
Width = 131
Height = 25
Text = ''
CharCase = ecUpperCase
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 15
ParentFont = False
TabOrder = 2
Visible = False
OnExit = selBarCodeExit
OnKeyUp = selBarCodeKeyUp
ButtonGlyph.Data = {
AE060000424DAE0600000000000036000000280000001E000000120000000100
18000000000078060000C40E0000C40E00000000000000000000FBFCF8F0F1EE
FBFCF8FBFCF8FBFCF8CDCECAE3E4E0CACAC7DDDEDAC4C4C1E7E8E4DEDFDBECED
E9CFCFCBECEDE9F7F8F4CBCBC8E5E6E2DCDCD8F5F6F2DCDDD9E6E7E4CCCCC9E7
E8E5EAEAE7FBFCF8FBFCF8FBFCF8EFEFECF6F7F30000FAFBF7CDCECACBCCC9BA
BAB7D2D3CFB5B6B3BFBFBC949391BFBEBC9C9C9ACECFCBB1B0AEDCDDD99C9C9A
BFBFBCD1D1CF929290D2D3CF7F7E7CDDDEDAB1B2AFCECECB9B9B98E3E3E0B2B2
AFC5C5C2A4A4A2BFBFBCC8C9C6E8E9E50000FBFCF8E8E8E4A1A29F80807FAFAF
ACA8A8A6BABAB7959593AFB0ADADADABC0C1BEA8A9A6D8D9D5A8A8A5959694AB
ABA9C8C8C6D9D9D6959593C8C9C6A1A19FC9C9C7D5D6D2DADBD7B2B2AF959593
5857588A8A88D8D9D5F6F7F30000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C
8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2
C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80
807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B484747
4B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5
B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAF
AC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C
8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B2989897
5857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
A2A2A081817FAFAFAD92929190908E3D3C3C555554A2A2A07E7E7D8787858D8D
8C4948484C4C4C8D8D8CA3A4A2A4A4A260605F9191907170706D6D6CD2D3D0C2
C3C0B4B5B39999975958598B8B89E8E9E5FBFCF80000FBFCF8FAFBF7D8D8D5CB
CBC8DDDDDAD1D2CFD0D1CEAFB0ADB9BAB7D8D9D5C9CAC7CDCDCACFD0CDB4B5B2
B5B5B3CFD0CDD8D9D6D8D9D5BDBEBBD2D3D0C7C7C5C4C4C1EBECE8E4E5E2DFE0
DCD4D4D1BABBB8CFCFCCF3F4F0FBFCF80000}
ButtonKind = bkCustom
AltBtnWidth = 16
ButtonWidth = 16
end
object selPrikaz: TRzButtonEdit
Left = 115
Top = 69
Width = 132
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 1
OnExit = selPrikazExit
OnKeyUp = selPrikazKeyUp
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selPrikazButtonClick
end
object selDilec: TRzButtonEdit
Left = 122
Top = 6
Width = 183
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 22
ParentFont = False
TabOrder = 0
OnEnter = selDilecEnter
OnExit = selDilecExit
OnKeyDown = selDilecKeyDown
OnKeyUp = selDilecKeyUp
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selDilecButtonClick
end
object cbSklad: TComboBox
Left = 58
Top = 143
Width = 198
Height = 25
Style = csDropDownList
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = '200 - V'#253'roba'
Items.Strings = (
'200 - V'#253'roba'
'210 - Sklad v'#253'robk'#367
'200.00105 - Nadv'#253'roba'
'100.00300 - Va'#269'ky')
end
object dtDatum: TRzDateTimePicker
Left = 70
Top = 182
Width = 121
Height = 26
Date = 41401.452400474540000000
Format = 'dd.MM.yyyy'
Time = 41401.452400474540000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
MinDate = 41275.000000000000000000
ParentFont = False
TabOrder = 9
ShowToday = True
FirstDayOfWeek = dowMonday
end
object grpTampo: TGroupBox
Left = 238
Top = 262
Width = 294
Height = 31
TabOrder = 6
object Label6: TLabel
Left = 4
Top = 11
Width = 76
Height = 13
Caption = 'Evidovan'#253' '#269'as :'
OnMouseDown = Label6MouseDown
end
object Label7: TLabel
Left = 136
Top = 11
Width = 26
Height = 14
AutoSize = False
Caption = 'hod'
end
object Label8: TLabel
Left = 223
Top = 11
Width = 25
Height = 14
AutoSize = False
Caption = 'min'
end
object edtCasHod: TRzNumericEdit
Left = 96
Top = 4
Width = 32
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 0
OnKeyUp = edtCasHodKeyUp
DisplayFormat = ',0;(,0)'
end
object edtCasMin: TRzNumericEdit
Left = 179
Top = 4
Width = 39
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyUp = edtCasMinKeyUp
DisplayFormat = ',0;(,0)'
end
end
object grpNadvyroba: TGroupBox
Left = 238
Top = 263
Width = 307
Height = 30
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 14
object Label14: TLabel
Left = 10
Top = 6
Width = 113
Height = 17
Caption = 'V'#253'dejka materi'#225'lu:'
end
object selVydejMat: TRzButtonEdit
Left = 140
Top = 4
Width = 161
Height = 25
Text = ''
Alignment = taCenter
TabOrder = 0
OnExit = selVydejMatExit
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selVydejMatButtonClick
end
end
object selFronta: TRzButtonEdit
Left = 103
Top = 106
Width = 132
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 15
Visible = False
OnExit = selFrontaExit
AltBtnWidth = 16
ButtonWidth = 16
OnButtonClick = selFrontaButtonClick
end
object pOperace: TPopupMenu
Left = 510
Top = 347
object pOdznacVse: TMenuItem
Caption = 'O&dzna'#269'it v'#353'e'
OnClick = pOdznacVseClick
end
object pVyberVse: TMenuItem
Caption = '&Vybrat v'#353'e'
OnClick = pVyberVseClick
end
end
end

1789
frmOdvedPrikaz - kopie.pas Normal file
View File

File diff suppressed because it is too large Load Diff

830
frmOdvedPrikaz.dfm Normal file
View File

@ -0,0 +1,830 @@
object formOdvedeniPrikazu: TformOdvedeniPrikazu
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
ClientHeight = 577
ClientWidth = 724
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poOwnerFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnKeyUp = FormKeyUp
OnResize = FormResize
OnShow = FormShow
DesignSize = (
724
577)
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 272
Width = 121
Height = 17
Caption = 'Odv'#225'd'#283'n'#253'ch kus'#367' :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 10
Top = 231
Width = 51
Height = 17
Caption = 'Sm'#283'na :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 11
Top = 185
Width = 51
Height = 17
Caption = 'Datum :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 205
Top = 185
Width = 91
Height = 17
Caption = 'Zam'#283'stnanec :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblZamest: TLabel
Left = 400
Top = 183
Width = 275
Height = 20
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblDilec: TLabel
Left = 8
Top = 38
Width = 404
Height = 20
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 13
Top = 74
Width = 95
Height = 17
Caption = 'V'#253'robn'#237' p'#345#237'kaz :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 8
Top = 11
Width = 101
Height = 17
Caption = 'D'#237'lec / v'#253'robek :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 11
Top = 146
Width = 37
Height = 17
Caption = 'Sklad:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 10
Top = 111
Width = 87
Height = 17
Caption = 'Fronta pr'#225'ce :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
Visible = False
end
object gOperace: TNextGrid6
Left = 15
Top = 318
Width = 701
Height = 208
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentColor = False
ParentFont = False
PopupMenu = pOperace
TabOrder = 12
TabStop = True
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
ActiveView = gView
ActiveViewIndex = 0
ScrollBars = [sbHorizontal, sbVertical]
SelectFullRow = True
UserDefinedColorPalette.GeometryHoverColor = clBlack
object gView: TNxReportGridView6
ColumnMoving = False
GridLines = True
HeaderHeight = 24
InsertRowHeight = 24
end
object colOper: TNxNumberColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = #268'.op.'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 0
PlaceholderText = '1742.50'
Position = 0
FormatMask = '0'
Precision = 0
Increment = 1.000000000000000000
InsertString = '0'
end
object colEvid: TNxCheckBoxColumn6
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Alignment = taCenter
Header.Caption = 'Evid ?'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 1
PlaceholderText = 'True'
Position = 1
CheckedImageIndex = -1
UncheckedImageIndex = -1
InsertString = 'False'
end
object colPopis: TNxTextColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'Popis'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -17
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 2
PlaceholderText = 'Text Text'
Position = 2
end
object colIdPostup: TNxNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'idPostup'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 3
PlaceholderText = '1742.50'
Position = 3
Visible = False
Width = 8
FormatMask = '#,##0.00'
Precision = 0
Increment = 1.000000000000000000
InsertString = '0'
end
object colNormCasS: TNxNumberColumn6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -13
Footer.Font.Name = 'Tahoma'
Footer.Font.Style = []
Footer.ParentFont = False
Footer.FormatMask = '#,##0.00'
Header.Caption = 'NormCasS'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.ParentFont = False
Index = 4
PlaceholderText = '1742.50'
Position = 4
Visible = False
Width = 8
FormatMask = '#,##0.00'
Precision = 0
Increment = 1.000000000000000000
InsertString = '0'
end
end
object edtKusu: TRzNumericEdit
Left = 140
Top = 268
Width = 68
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 6
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 5
OnEnter = edtKusuEnter
OnExit = edtKusuExit
OnKeyUp = edtKusuKeyUp
Max = 999999.000000000000000000
DisplayFormat = ',0;(,0)'
end
object GroupBox2: TGroupBox
Left = 488
Top = 8
Width = 225
Height = 109
Anchors = [akTop, akRight]
Caption = ' Kusy '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 13
object Label2: TLabel
Left = 8
Top = 22
Width = 86
Height = 17
Caption = 'Kusy zadan'#233' :'
end
object lblZadane: TLabel
Left = 171
Top = 21
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 53
Width = 95
Height = 17
Caption = 'Kusy zb'#253'vaj'#237'c'#237' :'
end
object lblZive: TLabel
Left = 171
Top = 52
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 83
Width = 74
Height = 17
Caption = 'Evidov'#225'no :'
end
object lblEvid: TLabel
Left = 171
Top = 81
Width = 8
Height = 14
Alignment = taRightJustify
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
end
object btnSave: TBitBtn
Left = 205
Top = 537
Width = 92
Height = 32
Align = alCustom
Anchors = [akBottom]
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
ModalResult = 1
NumGlyphs = 2
ParentFont = False
TabOrder = 7
OnClick = btnSaveClick
end
object btnCancel: TBitBtn
Left = 405
Top = 537
Width = 89
Height = 32
Anchors = [akBottom]
Caption = ' Storno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
Kind = bkCancel
NumGlyphs = 2
ParentFont = False
TabOrder = 8
end
object cbCasMzda: TCheckBox
Left = 238
Top = 228
Width = 184
Height = 17
Caption = 'Mzda dle skute'#269'n'#233'ho '#269'asu'
Checked = True
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 11
end
object selSmena: TRzButtonEdit
Left = 68
Top = 228
Width = 75
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 10
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
end
object selZamest: TRzButtonEdit
Left = 303
Top = 181
Width = 84
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
OnEnter = selZamestEnter
OnExit = selZamestExit
OnKeyUp = selZamestKeyUp
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selZamestButtonClick
end
object selBarCode: TRzButtonEdit
Left = 256
Top = 69
Width = 131
Height = 25
Text = ''
CharCase = ecUpperCase
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 15
ParentFont = False
TabOrder = 2
Visible = False
OnExit = selBarCodeExit
OnKeyUp = selBarCodeKeyUp
ButtonGlyph.Data = {
AE060000424DAE0600000000000036000000280000001E000000120000000100
18000000000078060000C40E0000C40E00000000000000000000FBFCF8F0F1EE
FBFCF8FBFCF8FBFCF8CDCECAE3E4E0CACAC7DDDEDAC4C4C1E7E8E4DEDFDBECED
E9CFCFCBECEDE9F7F8F4CBCBC8E5E6E2DCDCD8F5F6F2DCDDD9E6E7E4CCCCC9E7
E8E5EAEAE7FBFCF8FBFCF8FBFCF8EFEFECF6F7F30000FAFBF7CDCECACBCCC9BA
BAB7D2D3CFB5B6B3BFBFBC949391BFBEBC9C9C9ACECFCBB1B0AEDCDDD99C9C9A
BFBFBCD1D1CF929290D2D3CF7F7E7CDDDEDAB1B2AFCECECB9B9B98E3E3E0B2B2
AFC5C5C2A4A4A2BFBFBCC8C9C6E8E9E50000FBFCF8E8E8E4A1A29F80807FAFAF
ACA8A8A6BABAB7959593AFB0ADADADABC0C1BEA8A9A6D8D9D5A8A8A5959694AB
ABA9C8C8C6D9D9D6959593C8C9C6A1A19FC9C9C7D5D6D2DADBD7B2B2AF959593
5857588A8A88D8D9D5F6F7F30000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C
8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2
C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80
807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B484747
4B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5
B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAF
AC919190908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C
8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B2989897
5857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190
908F8E3C3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3
A1A3A3A15F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A
8A88E8E9E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C
3B3B545453A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A1
5F5F5E90908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9
E5FBFCF80000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B5454
53A2A2A07D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90
908E6F6E6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF8
0000FBFCF8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A0
7D7D7C8686858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E
6E6C6C6BD2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFC
F8F7F8F4A1A29F80807FAFAFAC919190908F8E3C3B3B545453A2A2A07D7D7C86
86858C8C8B4847474B4A4B8C8C8BA3A3A1A3A3A15F5F5E90908E6F6E6E6C6C6B
D2D3D0C2C2C0B4B5B29898975857588A8A88E8E9E5FBFCF80000FBFCF8F7F8F4
A2A2A081817FAFAFAD92929190908E3D3C3C555554A2A2A07E7E7D8787858D8D
8C4948484C4C4C8D8D8CA3A4A2A4A4A260605F9191907170706D6D6CD2D3D0C2
C3C0B4B5B39999975958598B8B89E8E9E5FBFCF80000FBFCF8FAFBF7D8D8D5CB
CBC8DDDDDAD1D2CFD0D1CEAFB0ADB9BAB7D8D9D5C9CAC7CDCDCACFD0CDB4B5B2
B5B5B3CFD0CDD8D9D6D8D9D5BDBEBBD2D3D0C7C7C5C4C4C1EBECE8E4E5E2DFE0
DCD4D4D1BABBB8CFCFCCF3F4F0FBFCF80000}
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
ButtonKind = bkCustom
ButtonWidth = 16
end
object selPrikaz: TRzButtonEdit
Left = 115
Top = 69
Width = 132
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 1
OnExit = selPrikazExit
OnKeyUp = selPrikazKeyUp
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selPrikazButtonClick
end
object selDilec: TRzButtonEdit
Left = 122
Top = 6
Width = 183
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 22
ParentFont = False
TabOrder = 0
OnEnter = selDilecEnter
OnExit = selDilecExit
OnKeyDown = selDilecKeyDown
OnKeyUp = selDilecKeyUp
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selDilecButtonClick
end
object cbSklad: TComboBox
Left = 58
Top = 143
Width = 198
Height = 25
Style = csDropDownList
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = '200 - V'#253'roba'
Items.Strings = (
'200 - V'#253'roba'
'210 - Sklad v'#253'robk'#367
'200.00105 - Nadv'#253'roba'
'100.00300 - Va'#269'ky')
end
object dtDatum: TRzDateTimePicker
Left = 70
Top = 182
Width = 121
Height = 26
Date = 41401.000000000000000000
Format = 'dd.MM.yyyy'
Time = 41401.000000000000000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = []
MinDate = 41275.000000000000000000
ParentFont = False
TabOrder = 9
ShowToday = True
FirstDayOfWeek = dowMonday
end
object grpTampo: TGroupBox
Left = 238
Top = 262
Width = 294
Height = 31
TabOrder = 6
object Label6: TLabel
Left = 4
Top = 11
Width = 76
Height = 13
Caption = 'Evidovan'#253' '#269'as :'
OnMouseDown = Label6MouseDown
end
object Label7: TLabel
Left = 136
Top = 11
Width = 26
Height = 14
AutoSize = False
Caption = 'hod'
end
object Label8: TLabel
Left = 223
Top = 11
Width = 25
Height = 14
AutoSize = False
Caption = 'min'
end
object edtCasHod: TRzNumericEdit
Left = 96
Top = 4
Width = 32
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 2
ParentFont = False
TabOrder = 0
OnKeyUp = edtCasHodKeyUp
DisplayFormat = ',0;(,0)'
end
object edtCasMin: TRzNumericEdit
Left = 179
Top = 4
Width = 39
Height = 25
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyUp = edtCasMinKeyUp
DisplayFormat = ',0;(,0)'
end
end
object grpNadvyroba: TGroupBox
Left = 238
Top = 263
Width = 307
Height = 30
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 14
object Label14: TLabel
Left = 10
Top = 6
Width = 113
Height = 17
Caption = 'V'#253'dejka materi'#225'lu:'
end
object selVydejMat: TRzButtonEdit
Left = 140
Top = 4
Width = 161
Height = 25
Text = ''
Alignment = taCenter
TabOrder = 0
OnExit = selVydejMatExit
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selVydejMatButtonClick
end
end
object selFronta: TRzButtonEdit
Left = 103
Top = 106
Width = 132
Height = 25
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 15
Visible = False
OnExit = selFrontaExit
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selFrontaButtonClick
end
object pOperace: TPopupMenu
Left = 510
Top = 347
object pOdznacVse: TMenuItem
Caption = 'O&dzna'#269'it v'#353'e'
OnClick = pOdznacVseClick
end
object pVyberVse: TMenuItem
Caption = '&Vybrat v'#353'e'
OnClick = pVyberVseClick
end
end
end

1828
frmOdvedPrikaz.pas Normal file
View File

File diff suppressed because it is too large Load Diff

325
frmReklamaceMat.dfm Normal file
View File

@ -0,0 +1,325 @@
object formReklamaceMat: TformReklamaceMat
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = ' Reklamace - p'#345'esun MATERI'#193'LU'
ClientHeight = 533
ClientWidth = 792
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
TextHeight = 14
object Label1: TLabel
Left = 5
Top = 5
Width = 69
Height = 16
Caption = 'REKLAMACE'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 5
Top = 253
Width = 53
Height = 16
Caption = 'P'#344'ESUNY'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object btnOK: TButton
Left = 586
Top = 499
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 0
OnClick = btnOKClick
end
object btnStorno: TButton
Left = 708
Top = 499
Width = 75
Height = 25
Caption = 'Storno'
TabOrder = 1
OnClick = btnStornoClick
end
object gridMat: TJvDBGrid
Left = 3
Top = 25
Width = 781
Height = 215
DataSource = dsMat
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = gridMatDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 18
TitleRowHeight = 18
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'mSZ'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 40
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'mRegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 115
Visible = True
end
item
Expanded = False
FieldName = 'mNazev'
Title.Caption = 'N'#225'zev'
Width = 535
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'mMnoz'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Visible = True
end
item
Expanded = False
FieldName = 'mIdSS'
Visible = False
end>
end
object gridCil: TJvDBGrid
Left = 5
Top = 272
Width = 779
Height = 215
DataSource = dsCil
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
PopupMenu = pmCil
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = gridCilDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 18
TitleRowHeight = 18
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'cSZ'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 40
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cRegCis'
Title.Alignment = taCenter
Title.Caption = 'Reg. '#269#237'slo'
Width = 115
Visible = True
end
item
Expanded = False
FieldName = 'cNazev'
Title.Caption = 'N'#225'zev'
Width = 295
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cMnoz'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'.'
Width = 65
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cSklad'
Title.Alignment = taCenter
Title.Caption = 'Sklad'
Width = 110
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cMnozPresun'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'.skl.'
Width = 64
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cMnozIT'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'. IT'
Visible = True
end
item
Expanded = False
FieldName = 'cIdSSOld'
Visible = False
end
item
Expanded = False
FieldName = 'cIdSSNew'
Visible = False
end
item
Expanded = False
FieldName = 'cIdSklad'
Visible = False
end>
end
object tblMat: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 38
Top = 110
object mIdSS: TIntegerField
FieldName = 'mIdSS'
end
object mSZ: TStringField
FieldName = 'mSZ'
Size = 3
end
object mRegCis: TStringField
FieldName = 'mRegCis'
Size = 30
end
object mNazev: TStringField
FieldName = 'mNazev'
Size = 100
end
object mMnoz: TFloatField
FieldName = 'mMnoz'
DisplayFormat = '#,##0.##'
end
end
object tblCil: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 68
Top = 321
object cIdSSOld: TIntegerField
FieldName = 'cIdSSOld'
Required = True
end
object cIdSSNew: TIntegerField
FieldName = 'cIdSSNew'
end
object cSZ: TStringField
FieldName = 'cSZ'
Required = True
Size = 3
end
object cRegCis: TStringField
FieldName = 'cRegCis'
Required = True
Size = 30
end
object cNazev: TStringField
FieldName = 'cNazev'
Required = True
Size = 100
end
object cMnoz: TFloatField
FieldName = 'cMnoz'
Required = True
DisplayFormat = '#,##0.##'
end
object cIdSklad: TStringField
FieldName = 'cIdSklad'
Size = 30
end
object cMnozPresun: TFloatField
FieldName = 'cMnozPresun'
DisplayFormat = '#,##0.##'
end
object cSklad: TStringField
FieldName = 'cSklad'
Size = 50
end
object tblCilcMnozIT: TFloatField
FieldName = 'cMnozIT'
DisplayFormat = '#,##0.##'
end
end
object dsMat: TDataSource
DataSet = tblMat
Left = 82
Top = 110
end
object dsCil: TDataSource
DataSet = tblCil
Left = 108
Top = 319
end
object pmCil: TPopupMenu
Left = 246
Top = 347
object pmDelCil: TMenuItem
Caption = '&Smazat polo'#382'ku'
OnClick = pmDelCilClick
end
end
end

327
frmReklamaceMat.pas Normal file
View File

@ -0,0 +1,327 @@
unit frmReklamaceMat;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Buttons, FireDAC.Comp.Client, Vcl.StdCtrls,
ddPlugin_TLB, Vcl.Menus, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet,
Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid;
const
sklady: TArray<string> = ['20000101','20000101001','20000104','20000104001','20000106','20000106001','200','20000001001','20000107','20000107001'];
nazvy: TArray<string> = ['VDST','VDST REKL.','Pikl','Pikl REKL.','PCO','PCO REKL.','LOVATO V','DEMONT<4E><54>','CHD','CHD REKL.'];
type
TformReklamaceMat = class(TForm)
tblMat: TFDMemTable;
tblCil: TFDMemTable;
dsMat: TDataSource;
dsCil: TDataSource;
mIdSS: TIntegerField;
mNazev: TStringField;
mMnoz: TFloatField;
mSZ: TStringField;
mRegCis: TStringField;
cIdSSOld: TIntegerField;
cIdSSNew: TIntegerField;
cSZ: TStringField;
cRegCis: TStringField;
cNazev: TStringField;
cMnoz: TFloatField;
cIdSklad: TStringField;
cSklad: TStringField;
cMnozPresun: TFloatField;
btnOK: TButton;
btnStorno: TButton;
pmCil: TPopupMenu;
pmDelCil: TMenuItem;
Label1: TLabel;
Label2: TLabel;
tblCilcMnozIT: TFloatField;
gridMat: TJvDBGrid;
gridCil: TJvDBGrid;
procedure FormShow(Sender: TObject);
procedure btnStornoClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure pmDelCilClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure gridMatDblClick(Sender: TObject);
procedure gridCilDblClick(Sender: TObject);
private
procedure ImportStavuSkladu; safecall;
public
Helios: IHelios;
end;
var
formDemontazMat: TformReklamaceMat;
oVar1: OleVariant;
vydejky: array[0..7] of integer;
implementation
uses System.StrUtils, helUtils;
{$R *.dfm}
procedure TformReklamaceMat.ImportStavuSkladu;
var lSQL: string;
begin
lSQL:= 'SELECT ss.Id,kz.SkupZbo,kz.RegCis,kz.Nazev1,ss.Mnozstvi FROM ' + tblSS + ' ss INNER JOIN ' + tblKZ;
lSQL:= lSQL + ' kz ON (kz.Id=ss.IdKmenZbozi) WHERE ss.Mnozstvi>0 AND ss.IDSklad=N' + QuotedStr(Helios.Sklad);
lSQL:= lSQL + ' AND kz.Blokovano=0 AND kz.SkupZbo=N' + QuotedStr('MAT');
lSQL:= lSQL + ' ORDER BY kz.SkupZbo,kz.RegCis';
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
begin
if not(tblMat.Active) then
tblMat.Open;
tblMat.DisableControls;
First;
while not(EOF) do
begin
tblMat.Append;
tblMat.FieldByName('mIdSS').AsString:= VarToStr(FieldValues(0));
tblMat.FieldByName('mSZ').AsString:= VarToStr(FieldValues(1));
tblMat.FieldByName('mRegCis').AsString:= VarToStr(FieldValues(2));
tblMat.FieldByName('mNazev').AsString:= VarToStr(FieldValues(3));
tblMat.FieldByName('mMnoz').AsFloat:= StrToFloat(VarToStr(FieldValues(4)));
tblMat.Post;
Next;
end;
tblMat.First;
tblMat.EnableControls;
end;
end;
procedure TformReklamaceMat.pmDelCilClick(Sender: TObject);
begin
if Helios.YesNo('Opravdu smazat polo<6C>ku ?',false) then
begin
tblMat.Append;
tblMat.FieldByName('mIdSS').AsInteger:= tblCil.FieldByName('cIdSSOld').AsInteger;
tblMat.FieldByName('mSZ').AsString:= tblCil.FieldByName('cSZ').AsString;
tblMat.FieldByName('mRegCis').AsString:= tblCil.FieldByName('cRegCis').AsString;
tblMat.FieldByName('mNazev').AsString:= tblCil.FieldByName('cNazev').AsString;
tblMat.FieldByName('mMnoz').AsFloat:= tblCil.FieldByName('cMnoz').AsFloat;
tblMat.Post;
tblCil.Delete;
gridMat.LockDrawing;
tblMat.IndexFieldNames:= 'mSZ;mRegCis';
tblmat.Refresh;
gridMat.UnlockDrawing;
end;
end;
procedure TformReklamaceMat.btnOKClick(Sender: TObject);
var lSQL: string;
begin
if (tblCil.RecordCount>0) then
begin
tblCil.DisableControls;
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('dbo._TabReklamaceMat') + ') IS NOT NULL DROP TABLE dbo._TabReklamaceMat' + CRLF;
lSQL:= lSQL + 'CREATE TABLE dbo._TabReklamaceMat (IdSSOld INT NOT NULL,IdSSNew INT,SkupZbo NVARCHAR(3),';
lSQL:= lSQL + 'RegCis NVARCHAR(30),Nazev1 NVARCHAR(100),Mnozstvi NUMERIC(19,6), Sklad NVARCHAR(30),';
lSQL:= lSQL + 'IdSklad NVARCHAR(20), MnozPrev NUMERIC(19,6), MnozIT NUMERIC(19,6))';
Helios.ExecSQL(lSQL);
tblCil.First;
while not(tblCil.Eof) do
begin
lSQL:= 'INSERT dbo._TabReklamaceMat (IdSSOld,SkupZbo,RegCis,Nazev1,Mnozstvi,Sklad,IdSklad,MnozPrev,MnozIT) VALUES (';
lSQL:= lSQL + tblCil.FieldByName('cIdSSOld').AsString + ',N' + QuotedStr(tblCil.FieldByName('cSZ').AsString);
lSQL:= lSQL + ',N' + QuotedStr(tblCil.FieldByName('cRegCis').AsString) + ',N' + QuotedStr(tblCil.FieldByName('cNazev').AsString);
lSQL:= lSQL + ',' + StringReplace(tblCil.FieldByName('cMnoz').AsString,',','.',[rfReplaceAll]);
lSQL:= lSQL + ',N' + QuotedStr(tblCil.FieldByName('cSklad').AsString) + ',N';
lSQL:= lSQL + QuotedStr(IfThen(tblCil.FieldByName('cSklad').AsString='DEMONT<4E><54>', '20000001001', tblCil.FieldByName('cIdSklad').AsString));
lSQL:= lSQL + ',' + IfThen(tblCil.FieldByName('cMnozPresun').AsString='','0',StringReplace(tblCil.FieldByName('cMnozPresun').AsString,',','.',[rfReplaceAll]));
lSQL:= lSQL + ',' + IfThen(tblCil.FieldByName('cMnozIT').AsString='','0',StringReplace(tblCil.FieldByName('cMnozIT').AsString,',','.',[rfReplaceAll]));
lSQL:= lSQL + ')';
try
Helios.ExecSQL(lSQL);
except
end;
tblCil.Next;
end;
tblCil.EnableControls;
Helios.ExecSQL('INSERT #TabExtKom(Poznamka) EXEC dbo.ep_ReklamaceMatDilce');
end;
Close;
end;
procedure TformReklamaceMat.btnStornoClick(Sender: TObject);
begin
Close;
end;
procedure TformReklamaceMat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (tblMat.Active) then
tblMat.Close;
if (tblCil.Active) then
tblCil.Close;
Action:= caFree;
end;
procedure TformReklamaceMat.FormShow(Sender: TObject);
begin
ImportStavuSkladu;
end;
procedure TformReklamaceMat.gridCilDblClick (Sender: TObject);
var podm: string;
iR, iC: integer;
skl, strMn, sql, cisSkl: string;
jc, mn, mnOld, mnSkl, mnIT: Extended;
clCol, clRow: integer;
fldName: string;
begin
clCol:= gridCil.MouseCoord (Mouse.CursorPos.X - gridCil.ClientOrigin.X, Mouse.CursorPos.Y - gridCil.ClientOrigin.Y).X;
clRow:= gridCil.MouseCoord (Mouse.CursorPos.X - gridCil.ClientOrigin.X, Mouse.CursorPos.Y - gridCil.ClientOrigin.Y).X;
if (clRow>0) and (clCol>0) and (tblCil.RecordCount>0) then
begin
fldName:= gridCil.Columns[clCol].FieldName;
case helUtils.StringToCaseSelect(fldName, ['cSklad', 'cMnozPresun', 'cMnozIT']) of
0: begin // cilovy sklad
skl:= '';
cisSkl:= '';
podm:= 'TabStrom.Cislo IN (N' + QuotedStr('200') + ',N' + QuotedStr('20000101') + ',N' + QuotedStr('20000101001');
podm:= podm + ',N' + QuotedStr('20000104') + ',N' + QuotedStr('20000104001') + ',N' + QuotedStr('20000106');
podm:= podm + ',N' + QuotedStr('20000106001') + ',N' + QuotedStr('20000001001') + ')';
if Helios.Prenos(bidStrom,'Cislo',oVar1,podm,'Vyberte c<>lov<6F> sklad',true) then
cisSkl:= VarToStr(oVar1);
case sStrIndex(cisSkl,sklady) of
0: skl:= nazvy[0];
1: skl:= nazvy[1];
2: skl:= nazvy[2];
3: skl:= nazvy[3];
4: skl:= nazvy[4];
5: skl:= nazvy[5];
6: skl:= nazvy[6];
7: skl:= nazvy[7];
end;
if (skl='') then
skl:= nazvy[7];
tblCil.Edit;
tblCil.FieldByName('cSklad').AsString:= skl;
tblCil.FieldByName('cIdSklad').AsString:= cisSkl;
tblCil.Post;
end;
1: begin
jc:= 0;
mnOld:= tblCil.FieldByName('cMnoz').AsExtended;
mn:= 0;
mnSkl:= 0;
mnIT:= 0;
if not(VarIsNull(tblCil.FieldByName('cMnozPresun').AsVariant)) then
mnSkl:= tblCil.FieldByName('cMnozPresun').AsExtended;
if not(VarIsNull(tblCil.FieldByName('cMnozIT').AsVariant)) then
mnIT:= tblCil.FieldByName('cMnozIT').AsExtended;
if (mnSkl>0) then
mn:= mnSkl;
if (FormMnozstviCena('Mno<6E>stv<74> na vybran<61> sklad',mn,jc,false,false)) then
begin
if (mn>=0) then
begin
if (mn<=mnOld) then
begin
tblCil.DisableControls;
tblCil.Edit;
if (mn=0) then
tblCil.FieldByName('cMnozPresun').AsString:= ''
else
tblCil.FieldByName('cMnozPresun').AsExtended:= mn;
tblCil.Post;
tblCil.EnableControls;
end
else
Helios.Error(#1'Nelze zadat mno<6E>stv<74> vy<76><79><EFBFBD> ne<6E> demontovan<61>.'#1);
end;
end;
end;
2: begin
jc:= 0;
mnOld:= tblCil.FieldByName('cMnoz').AsExtended;
mn:= 0;
mnSkl:= 0;
mnIT:= 0;
if not(VarIsNull(tblCil.FieldByName('cMnozPresun').AsVariant)) then
mnSkl:= tblCil.FieldByName('cMnozPresun').AsExtended;
if not(VarIsNull(tblCil.FieldByName('cMnozIT').AsVariant)) then
mnIT:= tblCil.FieldByName('cMnozIT').AsExtended;
if (mnIT>0) then
mn:= mnIT;
if (FormMnozstviCena('Mno<6E>stv<74> na v<>dejku IT',mn,jc,false,false)) then
begin
if (mn>=0) then
begin
if (mn+mnSkl<=mnOld) then
begin
tblCil.DisableControls;
tblCil.Edit;
if (mn=0) then
tblCil.FieldByName('cMnozIT').AsString:= ''
else
tblCil.FieldByName('cMnozIT').AsExtended:= mn;
tblCil.Post;
tblCil.EnableControls;
end
else
Helios.Error(#1'Nelze zadat mno<6E>stv<74> vy<76><79><EFBFBD> ne<6E> demontovan<61>.'#1);
end;
end;
end;
end;
end;
end;
procedure TformReklamaceMat.gridMatDblClick (Sender: TObject);
begin
if not(tblMat.Active) then
tblMat.Open;
if (tblMat.RecordCount>0) then
begin
if not(tblCil.Active) then
tblCil.Open;
tblCil.Append;
tblCil.FieldByName('cIdSSOld').AsString:= tblMat.FieldByName('mIdSS').AsString;
tblCil.FieldByName('cSZ').AsString:= tblMat.FieldByName('mSZ').AsString;
tblCil.FieldByName('cRegCis').AsString:= tblMat.FieldByName('mRegCis').AsString;
tblCil.FieldByName('cNazev').AsString:= tblMat.FieldByName('mNazev').AsString;
tblCil.FieldByName('cMnoz').AsFloat:= tblMat.FieldByName('mMnoz').AsFloat;
if (tblMat.FieldByName('mSZ').AsString='MAT') then
tblCil.FieldByName('cSklad').AsString:= 'DEMONT<4E><54>';
tblCil.Post;
tblMat.Delete;
end;
end;
end.

8
frmUnit1.dfm Normal file
View File

@ -0,0 +1,8 @@
object formUnit1: TformImportEP
Left = 196
Top = 237
BorderStyle = bsDialog
Caption = 'Obchodn'#237' kalkulace'
ClientHeight = 543
ClientWidth = 1009
end

21
frmUnit1.pas Normal file
View File

@ -0,0 +1,21 @@
unit frmUnit1;
interface
uses
Windows, Variants, Classes, Controls, Forms, SysUtils, ddPlugin_TLB, StdCtrls;
type
TformImportEP = class(TForm)
private
public
Helios : IHelios;
end;
var
formImportEP: TformImportEP;
implementation
{$R *.dfm}
end.

291
frmUnit11.dfm Normal file
View File

@ -0,0 +1,291 @@
object formStavSklHromZmeny: TformStavSklHromZmeny
Left = 196
Top = 237
BorderIcons = [biSystemMenu]
Caption = ' Hromadn'#233' zm'#283'ny'
ClientHeight = 297
ClientWidth = 344
Color = clBtnFace
Constraints.MaxHeight = 335
Constraints.MaxWidth = 360
Constraints.MinHeight = 335
Constraints.MinWidth = 360
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object btnOK: TButton
Left = 152
Top = 264
Width = 75
Height = 25
Caption = 'OK'
ModalResult = 1
TabOrder = 0
OnClick = btnOKClick
end
object btnStorno: TButton
Left = 260
Top = 264
Width = 75
Height = 25
Caption = 'Storno'
TabOrder = 1
OnClick = btnStornoClick
end
object GroupBox1: TGroupBox
Left = 8
Top = 9
Width = 327
Height = 247
Caption = ' Zm'#283'ny '
TabOrder = 2
object Label1: TLabel
Left = 20
Top = 30
Width = 44
Height = 13
Caption = 'Polo'#382'ka'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 164
Top = 30
Width = 78
Height = 13
Caption = 'Nov'#225' hodnota'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 256
Top = 30
Width = 40
Height = 13
Caption = 'Zm'#283'nit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 20
Top = 53
Width = 77
Height = 13
Caption = 'Minimum skladu:'
end
object Label5: TLabel
Left = 16
Top = 80
Width = 81
Height = 13
Caption = 'Maximum skladu:'
end
object Label6: TLabel
Left = 44
Top = 133
Width = 53
Height = 13
Caption = 'Blokov'#225'no:'
end
object Label7: TLabel
Left = 37
Top = 160
Width = 60
Height = 13
Caption = 'Kontrola V'#268':'
end
object Label8: TLabel
Left = 31
Top = 187
Width = 66
Height = 13
Caption = 'K'#243'd '#250#269'tov'#225'n'#237':'
end
object Label9: TLabel
Left = 20
Top = 106
Width = 77
Height = 13
Caption = 'Zadan'#253' pr'#367'm'#283'r:'
end
object cbJedenRadek: TCheckBox
Left = 13
Top = 220
Width = 117
Height = 17
Caption = 'Pouze aktu'#225'ln'#237' '#345#225'dek'
Enabled = False
TabOrder = 12
Visible = False
end
object cbMin: TComboBox
Left = 250
Top = 50
Width = 57
Height = 21
Style = csDropDownList
ItemIndex = 1
TabOrder = 1
Text = ' Ne'
Items.Strings = (
' Ano'
' Ne')
end
object edtMin: TRzNumericEdit
Left = 144
Top = 50
Width = 93
Height = 21
MaxLength = 8
TabOrder = 0
CalculatorVisible = True
IntegersOnly = False
DisplayFormat = ',0;-,0'
end
object edtMax: TRzNumericEdit
Left = 144
Top = 77
Width = 93
Height = 21
MaxLength = 8
TabOrder = 2
CalculatorVisible = True
IntegersOnly = False
DisplayFormat = ',0;-,0'
end
object cbMax: TComboBox
Left = 250
Top = 77
Width = 57
Height = 21
Style = csDropDownList
ItemIndex = 1
TabOrder = 3
Text = ' Ne'
Items.Strings = (
' Ano'
' Ne')
end
object cbBlokVal: TComboBox
Left = 124
Top = 130
Width = 113
Height = 21
Style = csDropDownList
ItemIndex = 0
TabOrder = 6
Text = ' B'#283#382'n'#253' z'#225'znam'
Items.Strings = (
' B'#283#382'n'#253' z'#225'znam'
' Archivn'#237' z'#225'znam')
end
object cbBlok: TComboBox
Left = 250
Top = 130
Width = 57
Height = 21
Style = csDropDownList
ItemIndex = 1
TabOrder = 7
Text = ' Ne'
Items.Strings = (
' Ano'
' Ne')
end
object cbVCVal: TComboBox
Left = 124
Top = 157
Width = 113
Height = 21
Style = csDropDownList
ItemIndex = 0
TabOrder = 8
Text = ' Ne'
Items.Strings = (
' Ne'
' Ano'
' Ano s hl'#237'd'#225'n'#237'm')
end
object cbVC: TComboBox
Left = 250
Top = 157
Width = 57
Height = 21
Style = csDropDownList
ItemIndex = 1
TabOrder = 9
Text = ' Ne'
Items.Strings = (
' Ano'
' Ne')
end
object cbKontace: TComboBox
Left = 250
Top = 184
Width = 57
Height = 21
Style = csDropDownList
ItemIndex = 1
TabOrder = 11
Text = ' Ne'
Items.Strings = (
' Ano'
' Ne')
end
object selKontace: TRzButtonEdit
Left = 124
Top = 184
Width = 113
Height = 21
Alignment = taCenter
TabOrder = 10
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selKontaceButtonClick
end
object edtPrumer: TRzNumericEdit
Left = 144
Top = 103
Width = 93
Height = 21
MaxLength = 8
TabOrder = 4
CalculatorVisible = True
IntegersOnly = False
DisplayFormat = ',0;-,0'
end
object cbPrumer: TComboBox
Left = 250
Top = 103
Width = 57
Height = 21
Style = csDropDownList
ItemIndex = 1
TabOrder = 5
Text = ' Ne'
Items.Strings = (
' Ano'
' Ne')
end
end
end

163
frmUnit11.pas Normal file
View File

@ -0,0 +1,163 @@
unit frmUnit11;
interface
uses
Windows, Variants, Classes, Controls, Forms, SysUtils, ddPlugin_TLB, StdCtrls, RzEdit, RzBtnEdt, Vcl.Mask;
type
TformStavSklHromZmeny = class(TForm)
btnOK: TButton;
btnStorno: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
cbJedenRadek: TCheckBox;
Label4: TLabel;
Label5: TLabel;
cbMin: TComboBox;
edtMin: TRzNumericEdit;
edtMax: TRzNumericEdit;
cbMax: TComboBox;
Label6: TLabel;
cbBlokVal: TComboBox;
cbBlok: TComboBox;
cbVCVal: TComboBox;
cbVC: TComboBox;
Label7: TLabel;
Label8: TLabel;
cbKontace: TComboBox;
selKontace: TRzButtonEdit;
Label9: TLabel;
edtPrumer: TRzNumericEdit;
cbPrumer: TComboBox;
procedure btnStornoClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure selKontaceButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnOKClick(Sender: TObject);
private
public
Helios : IHelios;
arrId: TArray<integer>;
end;
var
formStSklHrZmen: TformStavSklHromZmeny;
oVar1, oVar2: OleVariant;
implementation
uses helUtils;
{$R *.dfm}
procedure TformStavSklHromZmeny.btnOKClick(Sender: TObject);
var i: integer;
lSQL: WideString;
id: ShortString;
begin
if Length(arrId)>0 then
begin
for i:=Low(arrId) to High(arrId) do
begin
id:= IntToStr(arrId[i]);
lSQL:= '';
if cbMin.ItemIndex=0 then
lSQL:= lSQL + 'Minimum=' + StringReplace(FloatToStr(edtMin.Value),'','',[rfReplaceAll]) + ',';
if cbMax.ItemIndex=0 then
lSQL:= lSQL + 'Maximum=' + StringReplace(FloatToStr(edtMax.Value),'','',[rfReplaceAll]) + ',';
if cbPrumer.ItemIndex=0 then
lSQL:= lSQL + 'PrumerZadany=' + StringReplace(FloatToStr(edtPrumer.Value),'','',[rfReplaceAll]) + ',';
if cbBlok.ItemIndex=0 then
lSQL:= lSQL + 'Blokovano=' + IntToStr(cbBlokVal.ItemIndex) + ',';
if cbVC.ItemIndex=0 then
begin
lSQL:= lSQL + 'KontrolaVC=N''';
case cbVCVal.ItemIndex of
0: lSQL:= lSQL + 'N';
1: lSQL:= lSQL + 'A';
2: lSQL:= lSQL + 'B';
end;
lSQL:= lSQL + ''',';
end;
if cbKontace.ItemIndex=0 then
lSQL:= lSQL + 'UKod=' + Trim(selKontace.Text) + ',';
if (lSQL<>'') then
SetLength(lSQL,Length(lSQL)-1);
lSQL:= 'UPDATE ' + tblSS + ' SET ' + lSQL + ' WHERE id=' + id;
try
Helios.ExecSQL(lSQL);
except on E:Exception do
Helios.ExecSQL('INSERT #TabExtKom VALUES (N' + QuotedStr('Nelze aktualizovat z<>znam id '
+ id + ' : ' + E.ClassName + ' : ' + E.Message) + ')');
end;
end;
end;
end;
procedure TformStavSklHromZmeny.btnStornoClick(Sender: TObject);
begin
Close;
end;
procedure TformStavSklHromZmeny.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure TformStavSklHromZmeny.FormShow(Sender: TObject);
var lSQL: WideString;
edtCol, idx: integer;
begin
Self.Icon.Handle:= Helios.MainApplicationIconHandle;
{$REGION 'Nastav FontSize a edit Col'}
edtCol:= $FFFF; // clYellow
with Helios.OpenSQL('SELECT BarvaPodbarveni FROM ' + tblUziv + ' WHERE BarevnePodbarveni=1 AND LoginName=N' + QuotedStr(Helios.LoginName)) do
if RecordCount>0 then
edtCol:= StrToInt(VarToStr(FieldValues(0)));
Self.Font.Name:= Helios.Font;
Self.Font.Height:= Helios.FontHeight;
idx:= 0;
while idx<Self.ComponentCount-1 do
begin
if (Self.Components[idx] is TLabel) then
begin
(Self.Components[idx] as TLabel).Font.Name:= Helios.Font;
(Self.Components[idx] as TLabel).Font.Height:= Helios.FontHeight;
end;
if (Self.Components[idx] is TRzEdit) then
begin
(Self.Components[idx] as TRzEdit).Font.Name:= Helios.Font;
(Self.Components[idx] as TRzEdit).Font.Height:= Helios.FontHeight;
(Self.Components[idx] as TRzEdit).FocusColor:= edtCol;
end;
if (Self.Components[idx] is TRzNumericEdit) then
begin
(Self.Components[idx] as TRzNumericEdit).Font.Name:= Helios.Font;
(Self.Components[idx] as TRzNumericEdit).Font.Height:= Helios.FontHeight;
(Self.Components[idx] as TRzNumericEdit).FocusColor:= edtCol;
end;
if (Self.Components[idx] is TButton) then
begin
(Self.Components[idx] as TButton).Font.Name:= Helios.Font;
(Self.Components[idx] as TButton).Font.Height:= Helios.FontHeight;
end;
Inc(idx);
end;
{$ENDREGION}
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabExtKom') + ',N' + QuotedStr('U') + ') IS NULL' + CRLF;
lSQL:= lSQL + 'CREATE TABLE #TabExtKom(Poznamka NVARCHAR(255) NOT NULL)';
Helios.ExecSQL(lSQL);
end;
procedure TformStavSklHromZmeny.selKontaceButtonClick(Sender: TObject);
begin
if Helios.Prenos(bidSUKod,'id',oVar1,'','Skupiny <20><>etn<74>ch k<>d<EFBFBD>',true) then
selKontace.Text:= VarToStr(oVar1);
end;
end.

92
frmUnit12.dfm Normal file
View File

@ -0,0 +1,92 @@
object frmRozdelMat: TfrmRozdelMat
Left = 0
Top = 0
Caption = ' Rozd'#283'len'#237' materi'#225'lu'
ClientHeight = 440
ClientWidth = 1030
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnResize = FormResize
OnShow = FormShow
TextHeight = 13
object btnQuit: TButton
Left = 929
Top = 398
Width = 90
Height = 25
Caption = 'Storno'
Default = True
ModalResult = 2
TabOrder = 0
OnClick = btnQuitClick
end
object btnPrevod: TButton
Left = 767
Top = 398
Width = 101
Height = 25
Caption = 'Generuj p'#345'evodky'
ModalResult = 1
TabOrder = 1
end
object gRozpad2: TJvDBGrid
Left = 2
Top = 6
Width = 1020
Height = 375
DataSource = dsRozpad2
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDrawColumnCell = gRozpad2DrawColumnCell
OnKeyUp = gRozpad2KeyUp
OnMouseMove = gRozpad2MouseMove
OnEditChange = gRozpad2EditChange
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 17
TitleRowHeight = 17
end
object dsRozpad: TDataSource
DataSet = tabRozpad
Left = 598
Top = 380
end
object tabRozpad: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 524
Top = 380
end
object dsRozpad2: TDataSource
DataSet = tabRozpad2
Left = 286
Top = 376
end
object tabRozpad2: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 206
Top = 378
end
end

1019
frmUnit12.pas Normal file
View File

File diff suppressed because it is too large Load Diff

143
frmUnit13.dfm Normal file
View File

@ -0,0 +1,143 @@
object formPrevPrij: TformPrevPrij
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = ' Oprava P'#345'evodky / P'#345#237'jemky'
ClientHeight = 348
ClientWidth = 601
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
TextHeight = 16
object btnOK: TButton
Left = 396
Top = 315
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 0
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 518
Top = 315
Width = 75
Height = 25
Caption = 'Storno'
TabOrder = 1
OnClick = btnCancelClick
end
object grdPrijemky: TJvDBGrid
Left = 8
Top = 16
Width = 585
Height = 290
DataSource = ds1
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleHotTrack]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDrawColumnCell = grdPrijemkyDrawColumnCell
OnDblClick = grdPrijemkyDblClick
ScrollBars = ssVertical
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'SZ'
Title.Alignment = taCenter
Title.Caption = 'SK'
Width = 50
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'RegCis'
Title.Alignment = taCenter
Title.Caption = 'Registra'#269'n'#237' '#269#237'slo'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'Nazev1'
Title.Caption = 'N'#225'zev'
Width = 310
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Mnoz'
Title.Alignment = taCenter
Title.Caption = 'Mno'#382'stv'#237
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'idPZ'
Visible = False
end
item
Expanded = False
FieldName = 'idPZold'
Visible = False
end>
end
object vTab1: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 194
Top = 2
object vTab1idPZ: TIntegerField
FieldName = 'idPZ'
end
object vTab1SZ: TStringField
FieldName = 'SZ'
Size = 3
end
object vTab1RegCis: TStringField
FieldName = 'RegCis'
Size = 30
end
object vTab1Nazev1: TStringField
FieldName = 'Nazev1'
Size = 100
end
object vTab1Mnoz: TFloatField
FieldName = 'Mnoz'
DisplayFormat = '#,##0.###'
end
object vTab1idPZold: TIntegerField
FieldName = 'idPZold'
Visible = False
end
end
object ds1: TDataSource
DataSet = vTab1
Left = 242
Top = 4
end
end

185
frmUnit13.pas Normal file
View File

@ -0,0 +1,185 @@
unit frmUnit13;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, FireDAC.Comp.Client, ddPlugin_TLB,
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids,
JvExDBGrids, JvDBGrid;
type
TformPrevPrij = class(TForm)
vTab1: TFDMemTable;
ds1: TDataSource;
btnOK: TButton;
btnCancel: TButton;
vTab1idPZ: TIntegerField;
vTab1SZ: TStringField;
vTab1RegCis: TStringField;
vTab1Nazev1: TStringField;
vTab1Mnoz: TFloatField;
vTab1idPZold: TIntegerField;
grdPrijemky: TJvDBGrid;
procedure FormShow (Sender: TObject);
procedure btnCancelClick (Sender: TObject);
procedure btnOKClick (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure grdPrijemkyDblClick (Sender: TObject);
procedure grdPrijemkyDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
private
procedure NactiPrijemku;
public
Helios: IHelios;
idDZ: integer;
idDZold: integer;
end;
var
formPrevPrij: TformPrevPrij;
implementation
uses myUtils, helUtils;
{$R *.dfm}
procedure TformPrevPrij.btnCancelClick (Sender: TObject);
begin
Close;
end;
procedure TformPrevPrij.NactiPrijemku;
var sql: string;
c: TCloseAction;
begin
if (idDZ>0) then
begin
with Helios.OpenSQL('SELECT RadaDokladu,CONVERT(nvarchar,PoradoveCislo) FROM ' + tblDZ + ' WHERE id=' + IntToStr(idDZ)) do
begin
sql:= ' Oprava P<>evodky/P<><50>jemky : ' + VarHodnota(FieldValues(0),'') + ' ';
sql:= sql + VarHodnota(FieldValues(1),'');
Self.Caption:= sql;
end;
if not vTab1.Active then
vTab1.Open;
sql:= 'SELECT id,SkupZbo,RegCis,Nazev1,Mnozstvi,ISNULL(IdOldPolozka,0) FROM ' + tblPZ;
sql:= sql + ' WHERE IdDoklad=' + IntToStr(idDZ) + ' ORDER BY DatPorizeni';
with Helios.OpenSQL(sql) do
begin
First;
while not(EOF) do
begin
vTab1.Append;
vTab1.FieldByName('idPZ').AsInteger:= VarHodnota(FieldValues(0),0);
vTab1.FieldByName('SZ').AsString:= VarHodnota(FieldValues(1),'');
vTab1.FieldByName('RegCis').AsString:= VarHodnota(FieldValues(2),'');
vTab1.FieldByName('Nazev1').AsString:= VarHodnota(FieldValues(3),'');
vTab1.FieldByName('Mnoz').AsExtended:= VarHodnota(FieldValues(4),0.0);
vTab1.FieldByName('idPZOld').AsInteger:= VarHodnota(FieldValues(5),0);
vTab1.Post;
Next;
end;
vTab1.RecNo:= 1;
end;
end
else
Helios.Error(#1'Nebyla vybr<62>na <20><>dn<64> p<><70>jemka.'#1);
end;
procedure TformPrevPrij.grdPrijemkyDblClick(Sender: TObject);
var mn: Extended;
begin
if not(VarIsNull(vTab1.FieldByName('Mnoz').Value)) then
mn:= vTab1.FieldByName('Mnoz').AsExtended
else
mn:= 0;
if InputNumeric('Zadejte mno<6E>stv<74>','Nov<6F> mno<6E>stv<74>:',mn) then
begin
vTab1.Edit;
vTab1.FieldByName('Mnoz').AsExtended:= mn;
vTab1.Post;
end;
end;
procedure TformPrevPrij.grdPrijemkyDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) then
begin
TJvDBGrid(Sender).Canvas.Font.Color:= clWhite;
TJvDBGrid(Sender).Canvas.Brush.Color:= $00FF9933;
end;
TJvDBGrid(Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;
procedure TformPrevPrij.btnOKClick (Sender: TObject);
var idx: integer;
sql: string;
begin
try
if (vTab1.RecordCount>0) then
begin
idx:= 0;
vTab1.First;
while not(vTab1.Eof) do
begin
sql:= 'UPDATE ' + tblPZ + ' SET Mnozstvi=' + StringReplace(vTab1.FieldByName('Mnoz').AsString,'','',[rfReplaceAll]);
sql:= sql + ' WHERE id=' + vTab1.FieldByName('idPZ').AsString;
Helios.ExecSQL(sql);
sql:= 'UPDATE ' + tblPZ + ' SET CCbezDaniKc=JcBezDaniKc*Mnozstvi,CCsDPHKc=JcBezDaniKc*Mnozstvi,CCbezDaniVal=JcBezDaniKc*Mnozstvi,';
sql:= sql + 'CCsDPHVal=JcBezDaniKc*Mnozstvi,CCbezDaniKcPoS=JcBezDaniKc*Mnozstvi,CCsDPHKcPoS=JcBezDaniKc*Mnozstvi,';
sql:= sql + 'CCbezDaniValPoS=JcBezDaniKc*Mnozstvi,CCsDPHValPoS=JcBezDaniKc*Mnozstvi,CCsSDKc=JcBezDaniKc*Mnozstvi,';
sql:= sql + 'CCsSDVal=JcBezDaniKc*Mnozstvi,BlokovaniEditoru=NULL WHERE id=' + vTab1.FieldByName('idPZ').AsString;
Helios.ExecSQL(sql);
sql:= 'UPDATE ' + tblPZ + ' SET Mnozstvi=' + StringReplace(vTab1.FieldByName('Mnoz').AsString,'','',[rfReplaceAll]);
sql:= sql + ' WHERE id=' + vTab1.FieldByName('idPZold').AsString;
Helios.ExecSQL(sql);
sql:= 'UPDATE ' + tblPZ + ' SET CCbezDaniKc=JcBezDaniKc*Mnozstvi,CCsDPHKc=JcBezDaniKc*Mnozstvi,CCbezDaniVal=JcBezDaniKc*Mnozstvi,';
sql:= sql + 'CCsDPHVal=JcBezDaniKc*Mnozstvi,CCbezDaniKcPoS=JcBezDaniKc*Mnozstvi,CCsDPHKcPoS=JcBezDaniKc*Mnozstvi,';
sql:= sql + 'CCbezDaniValPoS=JcBezDaniKc*Mnozstvi,CCsDPHValPoS=JcBezDaniKc*Mnozstvi,CCsSDKc=JcBezDaniKc*Mnozstvi,';
sql:= sql + 'CCsSDVal=JcBezDaniKc*Mnozstvi,BlokovaniEditoru=NULL WHERE id=' + vTab1.FieldByName('idPZold').AsString;
Helios.ExecSQL(sql);
vTab1.Next;
end;
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=1');
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZ));
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZold) + ',@AktualizaceSlev=1');
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZold));
end;
Close;
finally
end;
end;
procedure TformPrevPrij.FormClose (Sender: TObject; var Action: TCloseAction);
begin
if (vTab1.Active) then
vTab1.Close;
Helios.Refresh (true);
Action:= caFree;
end;
procedure TformPrevPrij.FormShow(Sender: TObject);
begin
grdPrijemky.Font.Size:= Helios.FontHeight;
grdPrijemky.Font.Name:= Helios.Font;
NactiPrijemku;
end;
end.

200
frmUnit15.dfm Normal file
View File

@ -0,0 +1,200 @@
object formOdvodRele: TformOdvodRele
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = ' Odvod Pr'#225'ce'
ClientHeight = 295
ClientWidth = 377
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object lblKusy: TLabel
Left = 8
Top = 167
Width = 92
Height = 16
Caption = 'Vyroben'#233' kusy :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblDilecPrikaz: TLabel
Left = 45
Top = 134
Width = 55
Height = 16
Caption = 'V'#253'robek :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object lblZamest: TLabel
Left = 15
Top = 98
Width = 85
Height = 16
Caption = 'Zam'#283'stnanec :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Panel1: TPanel
Left = 6
Top = 67
Width = 361
Height = 218
Caption = 'Panel1'
TabOrder = 2
DesignSize = (
361
218)
object pgControl: TPageControl
Left = 0
Top = -21
Width = 361
Height = 238
ActivePage = tbVyrobek
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
object tbVyrobek: TTabSheet
Caption = 'tbVyrobek'
end
object tbPrikaz: TTabSheet
Caption = 'tbPrikaz'
ImageIndex = 1
end
end
end
object btnPrikaz: TButton
Left = 221
Top = 8
Width = 129
Height = 45
Caption = 'Odvod &P'#345#237'kazu'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = btnPrikazClick
end
object btnVyrobek: TButton
Left = 28
Top = 8
Width = 129
Height = 45
Caption = 'Odvod &V'#253'robku'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = btnVyrobekClick
end
object selZamest: TRzButtonEdit
Left = 127
Top = 95
Width = 88
Height = 24
Text = '0'
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 6
ParentFont = False
TabOrder = 3
OnExit = selZamestExit
OnKeyUp = selZamestKeyUp
AltBtnWidth = 15
ButtonWidth = 15
end
object selDilecPrikaz: TRzButtonEdit
Left = 127
Top = 131
Width = 165
Height = 24
Text = ''
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 4
OnExit = selDilecPrikazExit
OnKeyUp = selDilecPrikazKeyUp
AltBtnWidth = 15
ButtonWidth = 15
end
object edtKusy: TRzNumericEdit
Left = 127
Top = 165
Width = 65
Height = 24
Alignment = taCenter
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
MaxLength = 5
ParentFont = False
TabOrder = 5
OnKeyUp = edtKusyKeyUp
DisplayFormat = ',0;(,0)'
end
object btnOK: TButton
Left = 34
Top = 224
Width = 97
Height = 35
Caption = 'OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object btnZrus: TButton
Left = 234
Top = 224
Width = 97
Height = 35
Caption = 'Zru'#353'it'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = btnZrusClick
end
end

513
frmUnit15.pas Normal file
View File

@ -0,0 +1,513 @@
unit frmUnit15;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
RzEdit, Vcl.Mask, RzBtnEdt, ddPlugin_TLB;
const
sklVyr = '200';
radaOdved = '220';
type
TarrPrikazy = record
id: Integer;
ks: Single;
ksZive: Single;
idKZ: integer;
end;
TformOdvodRele = class(TForm)
btnVyrobek: TButton;
btnPrikaz: TButton;
Panel1: TPanel;
pgControl: TPageControl;
tbVyrobek: TTabSheet;
tbPrikaz: TTabSheet;
selZamest: TRzButtonEdit;
lblDilecPrikaz: TLabel;
selDilecPrikaz: TRzButtonEdit;
lblZamest: TLabel;
lblKusy: TLabel;
edtKusy: TRzNumericEdit;
btnOK: TButton;
btnZrus: TButton;
procedure FormShow(Sender: TObject);
procedure btnVyrobekClick(Sender: TObject);
procedure btnPrikazClick(Sender: TObject);
procedure btnZrusClick(Sender: TObject);
procedure selZamestExit(Sender: TObject);
procedure selDilecPrikazExit(Sender: TObject);
procedure selZamestKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure selDilecPrikazKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure edtKusyKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
private
procedure OdvodPrikazu; safecall;
public
Helios: IHelios;
end;
var
formOdvodRele: TformOdvodRele;
lSQL: string;
idZam, idKZ: integer;
idPrikazy: TArray<TarrPrikazy>;
odvVyr: boolean;
implementation
{$R *.dfm}
uses
Vcl.Clipbrd, helUtils;
procedure TformOdvodRele.OdvodPrikazu;
var ksZbyt, ksZive: Single;
idx, idx2, idPrikaz, idDZ, idDZv, idDZp, idKJ: integer;
realVyd, realPrij, cont: boolean;
begin
if (edtKusy.Value=0) then
Helios.Error(#1'Nen<65> zad<61>no odv<64>d<EFBFBD>n<EFBFBD> mno<6E>stv<74>.'#1)
else
if (Length(idPrikazy)>0) then
begin
ksZbyt:= edtKusy.Value;
idx:= 0;
while (idx<=High(idPrikazy)) and (ksZbyt>0) do
begin
ksZive:= idPrikazy[idx].ksZive;
if (ksZive>=ksZbyt) then
begin
ksZive:= ksZbyt;
ksZbyt:= 0;
end;
if (ksZive>0) then
begin
idPrikazy[idx].ks:= ksZive;
ksZbyt:= ksZbyt-ksZive;
end;
idx:= idx+1;
end;
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved' + CRLF;
lSQL:= lSQL + 'CREATE TABLE #TabOdved (id int identity, IDPrikaz int NOT NULL, IDDilec int NOT NULL, IDZakazka int, maxMnozstvi NUMERIC(19,6),';
lSQL:= lSQL + 'mnozstvi NUMERIC(19,6) NOT NULL, EvidJednotka INT NOT NULL, Sklad NVARCHAR(30), KodUmisteni NVARCHAR(15) )';
Helios.ExecSQL(lSQL);
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd' + CRLF;
lSQL:= lSQL + 'CREATE TABLE #TabGenRezVyd(ID INT NOT NULL)';
Helios.ExecSQL(lSQL);
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen' + CRLF;
lSQL:= lSQL + 'CREATE TABLE #TabPrKVazbyGen(ID INT IDENTITY NOT NULL, Generuj BIT NOT NULL DEFAULT 1,';
lSQL:= lSQL + 'PoKorekciDat BIT NOT NULL DEFAULT 0, IDPrKV INT NOT NULL, Doklad INT NOT NULL, IDPrikaz INT NOT NULL,';
lSQL:= lSQL + 'Prednastaveno BIT NOT NULL DEFAULT 1, Sklad NVARCHAR(30) COLLATE database_default NULL,';
lSQL:= lSQL + 'VyrStredisko NVARCHAR(30) COLLATE database_default NULL, IDPracoviste INT NULL,';
lSQL:= lSQL + 'mnoz_zad NUMERIC(19, 6) NOT NULL DEFAULT 0, Mnoz_nepotrebne NUMERIC(19, 6) NOT NULL DEFAULT 0,';
lSQL:= lSQL + 'Mnoz_skut_realizovane NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_real NUMERIC(19, 6) NOT NULL DEFAULT 0,';
lSQL:= lSQL + 'Mnoz_odv NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_odv NUMERIC(19, 6) NOT NULL DEFAULT 0,';
lSQL:= lSQL + 'MnozstviMax NUMERIC(19, 6) NULL, MnozstviPoz NUMERIC(19, 6) NOT NULL, PomMnozPoz NUMERIC(19, 6) NOT NULL DEFAULT 0,';
lSQL:= lSQL + 'IDPohZbo INT NULL, priorita INT NOT NULL DEFAULT 0, vyssi INT NOT NULL, nizsi INT NOT NULL,';
lSQL:= lSQL + 'DavkaTPV NUMERIC(19, 6) NOT NULL DEFAULT 1, pozice NVARCHAR(100) COLLATE database_default NULL DEFAULT '''',';
lSQL:= lSQL + 'Operace NCHAR(4) COLLATE database_default NULL DEFAULT N'''', FixniMnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 0,';
lSQL:= lSQL + 'mnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 1, ProcZtrat NUMERIC(5, 2) NOT NULL DEFAULT 0,';
lSQL:= lSQL + 'mnozstviSeZtratou NUMERIC(19, 6) NOT NULL DEFAULT 0, Prirez NUMERIC(19, 6) NOT NULL DEFAULT 1,';
lSQL:= lSQL + 'Poznamka NTEXT COLLATE database_default NULL, pom_pomer_A NUMERIC(19, 6) NULL,';
lSQL:= lSQL + 'pom_pomer_B NUMERIC(19, 6) NULL, Dodavatel INT NULL)';
Helios.ExecSQL(lSQL);
for idx:=Low(idPrikazy) to High(idPrikazy) do
begin
if (idPrikazy[idx].ks<=0) then
Continue;
lSQL:= 'INSERT #TabOdved (IDPrikaz,IDDilec,Mnozstvi,EvidJednotka,Sklad) VALUES (';
lSQL:= lSQL + IntToStr(idPrikazy[idx].id) + ',' + IntToStr(idPrikazy[idx].idKZ) + ',';
lSQL:= lSQL + StringReplace( FloatToStr(idPrikazy[idx].ks) ,',','.',[rfReplaceAll]);
lSQL:= lSQL + ',1,N' + QuotedStr(sklVyr) + ')';
Helios.ExecSQL(lSQL);
end;
lSQL:= 'DECLARE @RespekExistDoklady bit' + CRLF + 'SET @RespekExistDoklady=1' + CRLF;
lSQL:= lSQL + 'INSERT #TabPrKVazbyGen (IDPrKV, MnozstviPoz, pom_pomer_A, pom_pomer_B, Doklad, IDPrikaz,';
lSQL:= lSQL + 'Prednastaveno, Sklad, VyrStredisko, IDPracoviste, mnoz_zad, Mnoz_nepotrebne, Mnoz_skut_realizovane,';
lSQL:= lSQL + 'Cena_real, Mnoz_odv, Cena_odv, priorita, vyssi, nizsi, DavkaTPV, pozice, Operace, FixniMnozstvi,';
lSQL:= lSQL + 'mnozstvi, ProcZtrat, mnozstviSeZtratou, Prirez, Poznamka) SELECT PrKV.ID, PrKV.mnoz_zad*O.mnozstvi/P.kusy_zad';
lSQL:= lSQL + '-CASE WHEN @RespekExistDoklady=1 THEN PrKV.VydanoRefMnoz + (SELECT ISNULL(SUM(PZ2.prepmnozstvi*(PZ2.mnozstvi';
lSQL:= lSQL + '-PZ2.MnOdebrane) * PrKV2.RefMnoz / PrKV2.mnoz_zad), 0.0) FROM TabPohybyZbozi PZ2 INNER JOIN TabStavSkladu SS2 ON (SS2.ID=PZ2.IDZboSklad)';
lSQL:= lSQL + ' INNER JOIN TabPrKVazby PrKV2 ON (PrKV2.IDPrikaz=PZ2.IDPrikaz AND PrKV2.Doklad=PZ2.DokladPrikazu AND ';
lSQL:= lSQL + 'PrKV2.nizsi=SS2.IDKmenZbozi AND PrKV2.IDOdchylkyDo IS NULL) WHERE PZ2.TypVyrobnihoDokladu=1 AND ';
lSQL:= lSQL + 'PZ2.IDPrikaz=PrKV.IDPrikaz AND PZ2.DokladPrikazu=PrKV.Doklad AND PZ2.druhPohybuZbo IN (2,4,9,10) AND ';
lSQL:= lSQL + 'PZ2.SkutecneDatReal IS NULL) ELSE 0.0 END, CASE WHEN @RespekExistDoklady=0 THEN O.mnozstvi END,';
lSQL:= lSQL + 'CASE WHEN @RespekExistDoklady=0 THEN P.kusy_zad END,PrKV.Doklad, PrKV.IDPrikaz, PrKV.Prednastaveno,';
lSQL:= lSQL + 'PrKV.Sklad, PrKV.VyrStredisko, PrKV.IDPracoviste, PrKV.mnoz_zad, PrKV.Mnoz_nepotrebne, PrKV.Mnoz_skut_realizovane,';
lSQL:= lSQL + 'PrKV.Cena_real, PrKV.Mnoz_odv, PrKV.Cena_odv, PrKV.priorita, PrKV.vyssi, PrKV.nizsi, PrKV.DavkaTPV,';
lSQL:= lSQL + 'PrKV.pozice, PrKV.Operace, PrKV.FixniMnozstvi, PrKV.mnozstvi, PrKV.ProcZtrat, PrKV.mnozstviSeZtratou,';
lSQL:= lSQL + 'PrKV.Prirez, PrKV.Poznamka FROM (SELECT IDPrikaz=O1.IDPrikaz, Mnozstvi=SUM(O1.mnozstvi)';
lSQL:= lSQL + ' + CASE WHEN @RespekExistDoklady=1 THEN MAX(P1.kusy_odved+P1.kusy_ztrac+P1.kusy_zmet)';
lSQL:= lSQL + ' + (SELECT ISNULL(SUM(PZ1.prepmnozstvi*PZ1.mnozstvi), 0.0) FROM TabPohybyZbozi PZ1 WHERE PZ1.TypVyrobnihoDokladu=0';
lSQL:= lSQL + ' AND PZ1.IDPrikaz=O1.IDPrikaz AND PZ1.druhPohybuZbo=0 AND PZ1.SkutecneDatReal IS NULL) ELSE 0.0 END';
lSQL:= lSQL + ' FROM #TabOdved O1 INNER JOIN TabPrikaz P1 ON (P1.ID=O1.IDPrikaz) GROUP BY O1.IDPrikaz) O';
lSQL:= lSQL + ' INNER JOIN TabPrikaz P ON (P.ID=O.IDPrikaz AND P.StavPrikazu IN (30,50)) INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)';
lSQL:= lSQL + ' INNER JOIN TabPrKVazby PrKV ON (PrKV.IDPrikaz=O.IDPrikaz AND PrKV.predzpracovano=0 AND PrKV.prednastaveno=1';
lSQL:= lSQL + ' AND PrKV.uzavreno=0 AND PrKV.RezijniMat=0 AND PrKV.IDOdchylkyDo IS NULL) INNER JOIN TabKmenZbozi KZ ON';
lSQL:= lSQL + ' (KZ.ID=PrKV.nizsi AND KZ.sluzba=0) WHERE (P.kusy_zive>0.0 OR RP.KontrolovatRozpracPriUzav=0)';
Helios.ExecSQL(lSQL);
lSQL:= 'UPDATE G SET MnozstviMax=CASE WHEN RP.NekontrolovatMnozMatPol=1 THEN NULL ELSE (CASE WHEN PrKV.splneno=1';
lSQL:= lSQL + ' THEN 0.0 ELSE PrKV.mnoz_zad-PrKV.VydanoRefMnoz*PrKV.mnoz_zad/PrKV.RefMnoz END) END FROM #TabPrKVazbyGen G';
lSQL:= lSQL + ' INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabPrikaz P ON (P.ID=PrKV.IDPrikaz)';
lSQL:= lSQL + ' INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)' + CRLF;
lSQL:= lSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=CEILING(mnozstviPoz) FROM #TabPrKVazbyGen G INNER JOIN';
lSQL:= lSQL + ' TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi)';
lSQL:= lSQL + ' INNER JOIN TabMJ MJ ON (MJ.kod=KZ.MJEvidence AND MJ.nedelitelna=1) WHERE G.PoKorekciDat=0' + CRLF;
lSQL:= lSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=MnozstviMax WHERE MnozstviMax IS NOT NULL AND mnozstviPoz>MnozstviMax';
lSQL:= lSQL + CRLF + 'DELETE #TabPrKVazbyGen WHERE MnozstviPoz<=0.0 AND PoKorekciDat=0' + CRLF;
lSQL:= lSQL + 'UPDATE G SET Dodavatel=CO.ID FROM #TabPrKVazbyGen G INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV)';
lSQL:= lSQL + ' INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi) INNER JOIN TabCisOrg CO ON (CO.CisloOrg=KZ.Aktualni_Dodavatel)';
lSQL:= lSQL + ' WHERE G.PoKorekciDat=0 AND G.Dodavatel IS NULL' + CRLF + 'UPDATE #TabPrKVazbyGen SET PoKorekciDat=1 WHERE PoKorekciDat=0';
lSQL:= lSQL + CRLF + 'UPDATE #TabPrKVazbyGen SET Generuj=1';
Helios.ExecSQL(lSQL);
for idx:=Low(idPrikazy) to High(idPrikazy) do
begin
if (idPrikazy[idx].id=0) then
Continue;
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabSouhKusov') + ') IS NOT NULL DROP TABLE #TabSouhKusov' + CRLF;
lSQL:= lSQL + 'CREATE TABLE #TabSouhKusov (IDKZ INT, mnozstvi NUMERIC(19,6) DEFAULT 0.0)' + CRLF;
Helios.ExecSQL(lSQL);
lSQL:= 'DECLARE @dt DATETIME' + CRLF + 'SET @dt=GETDATE()' + CRLF + 'EXEC dbo.ep_GetKusovnikProOZ';
lSQL:= lSQL + ' @ID=' + IntToStr(idPrikazy[idx].idKZ) + ',@mnozstvi=' + StringReplace(FloatToStr(idPrikazy[idx].ks),',','.',[rfReplaceAll]);
lSQL:= lSQL + ',@datum=@dt' + CRLF + 'MERGE #TabPrKVazbyGen AS T USING #TabSouhKusov AS S ON (T.nizsi=S.IDKZ AND';
lSQL:= lSQL + ' T.IDPrikaz=' + IntToStr(idPrikazy[idx].id) + ') WHEN MATCHED THEN UPDATE SET T.MnozstviPoz=S.mnozstvi;';
Helios.ExecSQL(lSQL);
end;
lSQL:= 'SELECT DISTINCT(v.nizsi),X.Soucet,ss.Mnozstvi,kz.SkupZbo,kz.RegCis,kz.Nazev1 FROM #TabPrKVazbyGen v';
lSQL:= lSQL + ' INNER JOIN (SELECT DISTINCT(g.nizsi),SUM(g.MnozstviPoz) AS [Soucet] FROM #TabPrKVazbyGen g GROUP BY g.nizsi) AS X';
lSQL:= lSQL + ' ON (v.nizsi=X.nizsi) INNER JOIN ' + tblSS + ' ss ON (v.nizsi=ss.IDKmenZbozi AND v.Sklad=ss.IDSklad)';
lSQL:= lSQL + ' INNER JOIN ' + tblKZ + ' kz ON (v.nizsi=kz.id) WHERE ss.Mnozstvi<X.Soucet';
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
begin
First;
lSQL:= '';
while not(EOF) do
begin
lSQL:= lSQL + CRLF + VarToStr(FieldValues(3)) + ' : ' + VarToStr(FieldValues(4)) + ' ' + VarToStr(FieldValues(5));
lSQL:= lSQL + ' - ' + VarToStr(FieldValues(1)) + ' ks (skladem je ' + VarToStr(FieldValues(2)) + ' ks)';
Next;
end;
Clipboard.AsText:= lSQL;
Helios.Error(#1'Nelze vygenerovat v<>dejku, chyb<79> n<>kter<65> materi<72>l.'#1 + CRLF + 'Zpracov<6F>n<EFBFBD> evidence nebude provedeno.' + CRLF + lSQL);
Exit;
end;
lSQL:= 'SELECT SUM(vazGen.mnozstviPoz),kz.RegCis,ss.Mnozstvi,kz.Nazev1';
lSQL:= lSQL + ' FROM #TabPrKVazbyGen vazGen';
lSQL:= lSQL + ' INNER JOIN ' + tblSS + ' ss ON (ss.IDSklad=vazGen.Sklad AND ss.IDKmenZbozi=vazGen.nizsi)';
lSQL:= lSQL + ' INNER JOIN ' + tblKZ + ' kz ON (vazGen.nizsi=kz.id) WHERE ss.Mnozstvi<vazGen.MnozstviPoz';
lSQL:= lSQL + ' GROUP BY kz.RegCis,ss.Mnozstvi,kz.Nazev1';
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
begin
First;
lSQL:= '';
while not(EOF) do
begin
lSQL:= lSQL + CRLF + VarToStr(FieldValues(1)) + ' : ' + VarToStr(FieldValues(3)) + ' - ' + VarToStr(FieldValues(0));
lSQL:= lSQL + ' ks (skladem je ' + VarToStr(FieldValues(2)) + ' ks)';
Next;
end;
// Clipboard.AsText:= lSQL;
Helios.Error(#1'Nelze vygenerovat v<>dejku, chyb<79> n<>kter<65> materi<72>l.'#1 + CRLF + 'Zpracov<6F>n<EFBFBD> evidence nebude provedeno.' + CRLF + lSQL);
Exit;
end
else
begin
lSQL:= 'DECLARE @obd INT,@dt DATETIME' + CRLF + 'SELECT @dt=GETDATE()';
lSQL:= lSQL + CRLF + 'EXEC @obd=dbo.hp_GetObdobiDleDatumu @dt,0,null,null,0,0' + CRLF;
lSQL:= lSQL + 'EXEC dbo.hp_generujRezVyd @RadaDokladu=N' + QuotedStr('400') + ',@DruhPohybuZbo=4,@IDObdobi=@obd,@DatPorizeni=@dt';
lSQL:= lSQL + ',@SekejZakazky=0';
try
Helios.ExecSQL(lSQL);
with Helios.OpenSQL('SELECT id FROM #TabGenRezVyd') do
if (RecordCount>0) then
begin
idDZ:= StrToInt(VarToStr(FieldValues(0)));
idDZv:= idDZ;
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET StredNaklad=N' + QuotedStr('200') + ',CisloZam=' + Trim(selZamest.Text) + ' WHERE id=' + IntToStr(idDZ));
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=0');
if Length(idPrikazy)=1 then
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET IDPrikaz=' + IntToStr(idPrikazy[0].id) + ' WHERE id=' + IntToStr(idDZ));
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=null WHERE id=' + IntToStr(idDZ));
try
lSQL:= 'DECLARE @chyba BIT' + CRLF + 'EXEC dbo.hp_Realizuj_Vydej ' + IntToStr(idDZ) + ',NULL,' + IntToStr(Helios.UserId);
lSQL:= lSQL + ',0,@chyba OUT' + CRLF + 'SELECT @chyba';
with Helios.OpenSQL(lSQL) do
if not VarIsNull(FieldValues(0)) then
if LowerCase(VarToStr(FieldValues(0)))='false' then
realVyd:= true;
except on E:Exception do
begin
Helios.ExecSQL('DELETE FROM ' + tblDZDod + ' WHERE IDHlavicky=' + IntToStr(idDZ));
Helios.ExecSQL('DELETE FROM ' + tblPZ + ' WHERE iddoklad=' + IntToStr(idDZ));
Helios.ExecSQL('DELETE FROM ' + tblDZ + ' WHERE id=' + IntToStR(idDZ));
Helios.Error(#1'Nelze realizovat v<>dejku.'#1 + CRLF + E.Message);
{
idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat v<>dejku.');
if idKJ>0 then
Helios.ExecSQL('INSERT INTO ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit10') + ',N' + QuotedStr(E.Message + CRLF + lSQL) + ')');
}
idKJ:= 0;
Exit;
end;
end;
end;
except on E:Exception do
begin
Helios.Error(#1'Nelze vygenerovat v<>dejku materi<72>lu.'#1 + CRLF + E.Message);
Exit;
end;
end;
end;
// odvedeni prikazu, tj. vytvoreni prijemky s cenou podle vydeje za material a ceny za praci
// sBar.SimpleText:= 'Odv<64>d<EFBFBD>m p<><70>kazy...';
lSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NOT NULL DROP TABLE #TabGenPrijem' + CRLF;
lSQL:= lSQL + 'CREATE TABLE #TabGenPrijem (ID int)';
Helios.ExecSQL(lSQL);
idDZ:= 0;
lSQL:= 'DECLARE @dt DATETIME' + CRLF + 'SELECT @dt=GETDATE()';
lSQL:= lSQL + CRLF + 'EXEC dbo.hp_OdvedeniPrikazu N' + QuotedStr(radaOdved) + ',' + IntToStr(Helios.Obdobi) + ',0,@dt,0,0';
try
Helios.ExecSQL(lSQL);
cont:= true;
except on E:Exception do
begin
Helios.Error(#1'P<><50>prava na odveden<65> na sklad nebyla <20>sp<73><70>n<EFBFBD>.'#1 + CRLF + E.Message + CRLF + lSQL);
idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze p<>ipravit Odveden<65> na sklad.');
if (idKJ>0) then
Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit10') + ',N' + QuotedStr(E.Message + CRLF + lSQL) + ')');
idKJ:= 0;
cont:= false;
end;
end;
with Helios.OpenSQL('SELECT * FROM #TabGenPrijem') do
begin
if (RecordCount=1) then
idDZ:= StrToInt(VarToStr(FieldValues(0)));
if (RecordCount>1) then
Helios.Info(#1'Pozor, vznik<69> v<>ce p<><70>jemek.'#1);
end;
if (idDZ>0) and cont then
begin
idDZp:= idDZ;
try
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET CisloZam=' + Trim(selZamest.Text) + ' WHERE id=' + IntToStr(idDZp));
// Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyPrijemka @idDZ=' + IntToStr(idDZp));
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZp) + ',@AktualizaceSlev=0');
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET StredNaklad=N' + QuotedStr('200') + ',BlokovaniEditoru=null WHERE id=' + IntToStr(idDZp));
except on E:Exception do
Helios.Error(#1'Nelze napo<70><6F>tat ceny p<><70>jemky z v<>roby.'#1 + CRLF + E.Message + CRLF + '(plgLOVATO,unit10)');
end;
if (realVyd) then
begin
realPrij:= false;
// lSQL:= 'IF EXISTS(SELECT id FROM ' + tblPravaSklad + ' WHERE Realizace=1 AND Cislo=N' + QuotedStr(sklVyr) + ' AND';
// lSQL:= lSQL + ' (LoginName=SUSER_SNAME() OR IDRole=(SELECT IdRole FROM ' + tblUziv + ' WHERE LoginName=SUSER_SNAME())))' + CRLF + ' BEGIN' + CRLF;
// sBar.SimpleText:= 'Realizace p<><70>jemky...';
lSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SELECT @dt=GETDATE()' + CRLF;
lSQL:= lSQL + 'EXEC dbo.hp_Realizuj_Prijem ' + IntToStr(idDZp) + ',@dt,' + IntToStr(Helios.UserId) + ',@chyba OUT';
lSQL:= lSQL + CRLF + 'SELECT @chyba';
try
with Helios.OpenSQL(lSQL) do
if not VarIsNull(FieldValues(0)) then
if LowerCase(VarToStr(FieldValues(0)))='false' then
realPrij:= true;
except on E:Exception do
begin
idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat Odvod na sklad.');
if (idKJ>0) then
Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit10') + ',N' + QuotedStr(E.Message + CRLF + lSQL) + ')');
idKJ:= 0;
end;
end;
end;
end; // prijemka
if realPrij then
begin
// sBar.SimpleText:= 'Uzav<61>r<EFBFBD>n<EFBFBD> p<><70>kaz<61>...';
for idx2:=Low(idPrikazy) to High(idPrikazy) do
begin
idPrikaz:= idPrikazy[idx2].id;
if (idPrikaz<=0) then
Continue;
with Helios.OpenSQL('SELECT id FROM ' + tblPrikaz + ' WHERE StavPrikazu<50 AND id=' + IntToStr(idPrikaz)) do
if (RecordCount>0) then
try
Helios.ExecSQL('UPDATE ' + tblPrikaz + ' SET ukonceni=GETDATE(),StavPrikazu=50 WHERE id=' + IntToStr(idPrikaz));
except on E:Exception do
Helios.Error(#1'Chyba: ' + E.Message + #1);
end;
end;
end;
Helios.Refresh(true);
end;
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen');
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved');
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NOT NULL DROP TABLE #TabGenPrijem');
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd');
end;
procedure TformOdvodRele.FormShow(Sender: TObject);
begin
Panel1.SendToBack;
lblDilecPrikaz.BringToFront;
lblKusy.BringToFront;
lblZamest.BringToFront;
SetLength(idPrikazy,0);
odvVyr:= true; // odvod vyrobku
end;
procedure TformOdvodRele.selDilecPrikazExit(Sender: TObject);
var idx: integer;
begin
selDilecPrikaz.Text:= Trim(selDilecPrikaz.Text);
if (selDilecPrikaz.Text<>'') then
begin
if (odvVyr) then
begin
idKZ:= 0;
lSQL:= 'SELECT kz.id FROM ' + tblKZ + ' kz INNER JOIN ' + tblSZ + ' sz ON (sz.SkupZbo=kz.SkupZbo) INNER JOIN ';
lSQL:= lSQL + tblSZe + ' sze ON (sz.id=sze.id) WHERE sze._JeVyroba=1 AND kz.RegCis=N' + QuotedStr(selDilecPrikaz.Text);
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
begin
idKZ:= StrToInt(VarToStr(FieldValues(0)));
lSQL:= 'SELECT id,kusy_zive FROM ' + tblPrikaz + ' WHERE StavPrikazu<=40 AND kusy_zive>0 AND IdTabKmen=' + IntToStr(idKZ);
lSQL:= lSQL + 'ORDER BY DatPorizeni DESC';
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
begin
SetLength(idPrikazy, RecordCount);
for idx:=0 to RecordCount-1 do
begin
idPrikazy[idx].id:= StrToInt(VarToStr(FieldValues(0)));
idPrikazy[idx].ksZive:= StrToFloat(VarToStr(FieldValues(1)));
idPrikazy[idx].ks:= 0;
idPrikazy[idx].idKZ:= idKZ;
end;
end
else
Helios.Error(#1'Nenalezeny <20><>dn<64> p<><70>kazy k odveden<65> tohoto v<>robku.'#1);
end
else
Helios.Error(#1'Nejednozna<6E>n<EFBFBD> identifikace v<>robku.'#1);
end
else
begin
lSQL:= 'SELECT id,kusy_zive,IdTabKmen FROM ' + tblPrikaz + ' WHERE StavPrikazu<=40 AND kusy_zive>0 AND RadaPrikaz=N' + QuotedStr(selDilecPrikaz.Text);
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
begin
SetLength(idPrikazy, 1);
idPrikazy[0].id:= StrToInt(VarToStr(FieldValues(0)));
idPrikazy[0].ksZive:= StrToFloat(VarToStr(FieldValues(1)));
idKZ:= StrToInt(VarToStr(FieldValues(2)));
end
else
Helios.Error(#1'Zadan<61> v<>robn<62> p<><70>kaz nebyl nalezen nebo je uzav<61>en<65>.'#1);
end;
OdvodPrikazu;
end
else
Helios.Error(#1'Nen<65> zad<61>no <20><>slo v<>robku nebo p<><70>kazu.'#1);
end;
procedure TformOdvodRele.selDilecPrikazKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_RETURN) then
edtKusy.SetFocus;
end;
procedure TformOdvodRele.selZamestExit(Sender: TObject);
begin
selZamest.Text:= Trim(selZamest.Text);
if (selZamest.Text<>'') then
begin
if (selZamest.Text<>'0') then
begin
idZam:= 0;
lSQL:= 'SELECT id FROM ' + tblCZam + ' WHERE Cislo=' + selZamest.Text;
with Helios.OpenSQL(lSQL) do
if (RecordCount>0) then
idZam:= StrToInt(VarToStr(FieldValues(0)));
end;
end
else
Helios.Error(#1'Nen<65> zad<61>no osobn<62> <20><>slo zam<61>stnance.'#1);
end;
procedure TformOdvodRele.selZamestKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_RETURN) then
selDilecPrikaz.SetFocus;
end;
procedure TformOdvodRele.btnVyrobekClick(Sender: TObject);
begin
odvVyr:= true;
Self.Height:= 315;
btnPrikaz.Enabled:= false;
selZamest.SetFocus;
end;
procedure TformOdvodRele.btnPrikazClick(Sender: TObject);
begin
odvVyr:= false;
Self.Height:= 315;
btnVyrobek.Enabled:= false;
selZamest.SetFocus;
end;
procedure TformOdvodRele.btnZrusClick(Sender: TObject);
begin
selZamest.Text:= '0';
selDilecPrikaz.Text:= '';
edtKusy.Value:= 0;
Self.Height:= 90;
btnVyrobek.Enabled:= true;
btnPrikaz.Enabled:= true;
end;
procedure TformOdvodRele.edtKusyKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_RETURN) then
btnOK.SetFocus;
end;
end.

18
frmUnit2.dfm Normal file
View File

@ -0,0 +1,18 @@
object formOdvezMzdy: TformOdvezMzdy
Left = 196
Top = 237
BorderStyle = bsDialog
Caption = ' Hromadn'#233' odveden'#237' operac'#237
ClientHeight = 394
ClientWidth = 762
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
end

21
frmUnit2.pas Normal file
View File

@ -0,0 +1,21 @@
unit frmUnit2;
interface
uses
Windows, Variants, Classes, Controls, Forms, SysUtils, ddPlugin_TLB, StdCtrls;
type
TformOdvedMzdy = class(TForm)
private
public
Helios : IHelios;
end;
var
formOdvedMzdy: TformOdvedMzdy;
implementation
{$R *.dfm}
end.

234
frmUnit3.dfm Normal file
View File

@ -0,0 +1,234 @@
object formCRM_Aktivity: TformCRM_Aktivity
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = ' Firemn'#237' aktivity - Aktivity'
ClientHeight = 353
ClientWidth = 1108
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1108
Height = 39
ButtonHeight = 38
ButtonWidth = 39
Caption = 'ToolBar1'
Images = imgList
TabOrder = 0
object btnPrev: TToolButton
Left = 0
Top = 0
Caption = 'P'#345'edchoz'#237
ImageIndex = 0
end
object btnNext: TToolButton
Left = 39
Top = 0
Caption = 'Dal'#353#237
ImageIndex = 1
end
end
object pgCtrl: TPageControl
Left = 0
Top = 42
Width = 1105
Height = 261
ActivePage = pgAktivity
TabOrder = 1
object pgAktivity: TTabSheet
Caption = '1 - Aktivity'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = -4
Top = 0
Width = 583
Height = 221
TabOrder = 0
object Label1: TLabel
Left = 14
Top = 18
Width = 73
Height = 13
Caption = 'Po'#345'adov'#233' '#269#237'slo:'
end
object Label2: TLabel
Left = 102
Top = 18
Width = 82
Height = 13
Caption = 'P'#345'edm'#283't aktivity:'
end
object Label4: TLabel
Left = 14
Top = 72
Width = 50
Height = 13
Caption = 'Kategorie:'
end
object Label5: TLabel
Left = 102
Top = 72
Width = 22
Height = 13
Caption = 'Typ:'
end
object Label6: TLabel
Left = 208
Top = 72
Width = 26
Height = 13
Caption = 'Stav:'
end
object Label7: TLabel
Left = 14
Top = 122
Width = 63
Height = 13
Caption = 'M'#237'sto kon'#225'n'#237':'
end
object Label10: TLabel
Left = 14
Top = 168
Width = 42
Height = 13
Caption = 'Za'#269#225'tek:'
end
object Label11: TLabel
Left = 284
Top = 168
Width = 33
Height = 13
Caption = 'Konec:'
end
object dtpKon: TDateTimePicker
Left = 284
Top = 188
Width = 95
Height = 21
Date = 40826.617409398150000000
Time = 40826.617409398150000000
TabOrder = 0
end
object dtpKonCas: TDateTimePicker
Left = 391
Top = 188
Width = 75
Height = 21
Date = 40826.620618379630000000
Time = 40826.620618379630000000
Kind = dtkTime
TabOrder = 1
end
object dtpZac: TDateTimePicker
Left = 14
Top = 188
Width = 96
Height = 21
Date = 40826.617099652780000000
Time = 40826.617099652780000000
TabOrder = 2
end
object dtpZacCas: TDateTimePicker
Left = 122
Top = 188
Width = 75
Height = 21
Date = 40826.620280509260000000
Time = 40826.620280509260000000
Kind = dtkTime
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 590
Top = 0
Width = 501
Height = 171
TabOrder = 1
object Label3: TLabel
Left = 14
Top = 18
Width = 29
Height = 13
Caption = 'Popis:'
end
end
end
object pgUcast: TTabSheet
Caption = '2 - '#218#269'astn'#237'ci jedn'#225'n'#237
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox3: TGroupBox
Left = 0
Top = 0
Width = 427
Height = 123
TabOrder = 0
object Label8: TLabel
Left = 10
Top = 18
Width = 64
Height = 13
Caption = 'Jedn'#225'n'#237' vedl:'
end
object Label9: TLabel
Left = 10
Top = 62
Width = 58
Height = 13
Caption = 'Organizace:'
end
object edtOrgNazev: TEdit
Left = 122
Top = 84
Width = 285
Height = 21
ReadOnly = True
TabOrder = 0
end
end
end
end
object btnOK: TButton
Left = 916
Top = 316
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 2
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 1014
Top = 316
Width = 75
Height = 25
Caption = 'Storno'
TabOrder = 3
OnClick = btnCancelClick
end
object imgList: TImageList
Height = 32
Width = 32
Left = 270
Top = 2
end
end

443
frmUnit3.pas Normal file
View File

@ -0,0 +1,443 @@
unit frmUnit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ddPlugin_TLB,
Dialogs, ImgList, ComCtrls, ToolWin, ShellAPI, StdCtrls, TBPackageU,
System.ImageList;
const tblAkt = '[dbo].[TabKontaktJednani]';
tblCZam = '[dbo].[TabCisZam]';
tblOrg = '[dbo].[TabCisOrg]';
bidTyp = 195;
bidDruhVystupu = 196;
bidStav = 197;
CRLF = #13#10;
type
TformCRM_Aktivity = class(TForm)
ToolBar1: TToolBar;
btnPrev: TToolButton;
imgList: TImageList;
btnNext: TToolButton;
pgCtrl: TPageControl;
btnOK: TButton;
btnCancel: TButton;
pgAktivity: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
GroupBox2: TGroupBox;
Label3: TLabel;
memoPopis: TTB_Memo;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
edtKat: TTB_Edit;
edtMisto: TTB_Edit;
pgUcast: TTabSheet;
edtTyp: TTB_Edit;
edtStav: TTB_Edit;
selTyp: TTB_3Button;
selStav: TTB_3Button;
edtPredmet: TTB_Edit;
edtCislo: TTB_Edit;
GroupBox3: TGroupBox;
Label8: TLabel;
Label9: TLabel;
edtVedl: TTB_Edit;
selVedlCislo: TTB_3Button;
edtVedlPrijm: TTB_Edit;
edtVedlJm: TTB_Edit;
selVedlPrijm: TTB_3Button;
selVedlJm: TTB_3Button;
edtOrg: TTB_Edit;
edtOrgNazev: TEdit;
selOrg: TTB_3Button;
Label10: TLabel;
Label11: TLabel;
dtpZac: TDateTimePicker;
dtpKon: TDateTimePicker;
dtpZacCas: TDateTimePicker;
dtpKonCas: TDateTimePicker;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure edtCisloEnter(Sender: TObject);
procedure edtCisloExit(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure edtPredmetExit(Sender: TObject);
procedure edtPredmetEnter(Sender: TObject);
procedure memoPopisEnter(Sender: TObject);
procedure memoPopisExit(Sender: TObject);
procedure edtMistoEnter(Sender: TObject);
procedure edtMistoExit(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure selTypClick(Sender: TObject);
procedure selStavClick(Sender: TObject);
procedure selVedlCisloClick(Sender: TObject);
procedure selVedlPrijmClick(Sender: TObject);
procedure selVedlJmClick(Sender: TObject);
procedure selOrgClick(Sender: TObject);
private
procedure NactiAktivitu;
public
Helios: IHelios;
idAkt: integer;
end;
var
formCRM_Aktivity: TformCRM_Aktivity;
sCis: string;
iCis: integer;
sql: string;
iPrev,iNext: TIcon;
bgCol: TColor;
oVar1, oVar2: OleVariant;
tStr: string;
implementation
uses StrUtils, myUtils, helUtils;
{$R *.dfm}
procedure TformCRM_Aktivity.btnCancelClick(Sender: TObject);
begin
Close;
end;
procedure TformCRM_Aktivity.btnOKClick(Sender: TObject);
var sql: string;
begin
sql:= '';
if (idAkt>0) then
begin
sql:= 'UPDATE ' + tblAkt + ' SET Predmet=N' + QuotedStr(edtPredmet.Text);
sql:= sql + ',Typ=N' + QuotedStr(edtTyp.Text) + ',Stav=N' + QuotedStr(edtStav.Text);
sql:= sql + ',MistoKonani=N' + QuotedStr(edtMisto.Text);
sql:= sql + ',CisloOrg=';
if edtOrg.Text<>'' then
sql:= sql + edtOrg.Text
else
sql:= sql + 'null';
sql:= sql + ',CisloZam=';
if edtOrg.Text<>'' then
sql:= sql + edtVedl.Text
else
sql:= sql + 'null';
sql:= sql + ',Popis=CONVERT(ntext,' + QuotedStr(memoPopis.Text) + ')';
tStr:= DateToStr(dtpZac.Date) + ' ' + TimeToStr(dtpZacCas.Time);
sql:= sql + ',DatumJednaniOd=CONVERT(datetime,' + QuotedStr(tStr) + ',104)';
tStr:= DateToStr(dtpKon.Date) + ' ' + TimeToStr(dtpKonCas.Time);
sql:= sql + ',DatumJednaniDo=CONVERT(datetime,' + QuotedStr(tStr) + ',104)';
sql:= sql + ' WHERE id=' + IntToStr(idAkt);
end
else
begin
sql:= 'INSERT ' + tblAkt + ' (PoradoveCislo,Kategorie,Predmet,Typ,Stav,DruhVystupu,MistoKonani,';
sql:= sql + 'DatumJednaniOd,DatumJednaniDo,CisloOrg,CisloZam,Popis) VALUES (' + edtCislo.Text;
sql:= sql + ',N' + QuotedStr(edtKat.Text) + ',N' + QuotedStr(edtPredmet.Text);
sql:= sql + ',N' + QuotedStr(edtTyp.Text) + ',N' + QuotedStr(edtStav.Text) + ',N' + QuotedStr('');
sql:= sql + ',N' + QuotedStr(edtMisto.Text) + ',';
tStr:= DateToStr(dtpZac.Date) + ' ' + TimeToStr(dtpZacCas.Time);
sql:= sql + 'CONVERT(datetime,' + QuotedStr(tStr) + ',104),';
tStr:= DateToStr(dtpKon.Date) + ' ' + TimeToStr(dtpKonCas.Time);
sql:= sql + 'CONVERT(datetime,' + QuotedStr(tStr) + ',104),';
if edtOrg.Text<>'' then
sql:= sql + edtOrg.Text
else
sql:= sql + 'null';
sql:= sql + ',';
if edtVedl.Text<>'' then
sql:= sql + edtVedl.Text
else
sql:= sql + 'null';
sql:= sql + ',CONVERT(ntext,' + QuotedStr(memoPopis.Text) + ')';
sql:= sql + ')';
end;
if sql<>'' then
try
Helios.ExecSQL(sql);
except on E:Exception do
Helios.Error('Nelze ulo<6C>it <20>daje pro Aktivitu. ' + CRLF + sql + CRLF + E.Message);
end;
Close;
end;
procedure TformCRM_Aktivity.edtCisloEnter(Sender: TObject);
begin
edtCislo.Color:= bgCol;
end;
procedure TformCRM_Aktivity.edtCisloExit(Sender: TObject);
begin
edtCislo.Color:= clWindow;
end;
procedure TformCRM_Aktivity.edtMistoEnter(Sender: TObject);
begin
edtMisto.Color:= bgCol;
end;
procedure TformCRM_Aktivity.edtMistoExit(Sender: TObject);
begin
edtMisto.Color:= clWindow;
end;
procedure TformCRM_Aktivity.edtPredmetEnter(Sender: TObject);
begin
edtPredmet.Color:= bgCol;
end;
procedure TformCRM_Aktivity.edtPredmetExit(Sender: TObject);
begin
edtPredmet.Color:= clWindow;
end;
procedure TformCRM_Aktivity.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
DestroyIcon(iPrev.Handle);
iPrev.Free;
DestroyIcon(iNext.Handle);
iNext.Free;
end;
procedure TformCRM_Aktivity.NactiAktivitu;
var sql: string;
tStr,tStr2: string;
tInt: Integer;
begin
sql:= 'SELECT * FROM ' + tblAkt + ' WHERE id=' + IntToStr(idAkt);
with Helios.OpenSQL(sql) do
if RecordCount>0 then
begin
edtMisto.Text:= VarToStr(FieldByNameValues('MistoKonani'));
edtPredmet.Text:= VarToStr(FieldByNameValues('Predmet'));
edtTyp.Text:= VarToStr(FieldByNameValues('Typ'));
edtStav.Text:= VarToStr(FieldByNameValues('Stav'));
memoPopis.Text:= VarToStr(FieldByNameValues('Popis'));
tStr:= VarToStr(FieldByNameValues('DatumJednaniOd'));
tStr2:= tStr;
tStr:= Trim(LeftStr(tStr, Pos(' ',tStr)-1));
if tStr<>'' then
dtpZac.Date:= StrToDate(tStr);
tStr:= MidStr(tStr2,Pos(' ',tStr2),255);
if (tStr<>'') and (Pos(':',tStr)>0) then
dtpZacCas.Time:= StrToTime(tStr);
tStr:= VarToStr(FieldByNameValues('DatumJednaniDo'));
tStr2:= tStr;
tStr:= Trim(LeftStr(tStr, Pos(' ',tStr)-1));
if tStr<>'' then
dtpKon.Date:= StrToDate(tStr);
tStr:= Trim(MidStr(tStr2,Pos(' ',tStr2),255));
if (tStr<>'') and (Pos(':',tStr)>0) then
dtpKonCas.Time:= StrToTime(tStr);
tStr:= VarToStr(FieldByNameValues('CisloOrg'));
if tStr<>'' then
with Helios.OpenSQL('SELECT Firma FROM ' + tblOrg + ' WHERE CisloOrg=' + tStr) do
if RecordCount>0 then
begin
edtOrg.Text:= tStr;
edtOrgNazev.Text:= VarToStr(FieldValues(0));
end;
tStr:= VarToStr(FieldByNameValues('CisloZam'));
if tStr<>'' then
with Helios.OpenSQL('SELECT Prijmeni,Jmeno FROM ' + tblCZam + ' WHERE Cislo=' + tStr) do
if RecordCount>0 then
begin
tInt:= StrToInt(tStr);
edtVedl.Text:= Format('%.6d',[tInt]);
edtVedlPrijm.Text:= VarToStr(FieldValues(0));
edtVedlJm.Text:= VarToStr(FieldValues(1));
end;
end;
end;
procedure TformCRM_Aktivity.selOrgClick(Sender: TObject);
var cOrg: string;
begin
if Helios.Prenos(1,'CisloOrg',oVar1,'','Organizace',true) then
cOrg:= VarToStr(oVar1);
if cOrg<>'' then
begin
edtOrg.Text:= cOrg;
with Helios.OpenSQL('SELECT Firma FROM ' + tblOrg + ' WHERE CisloOrg=' + cOrg) do
edtOrgNazev.Text:= VarToStr(FieldValues(0));
end;
end;
procedure TformCRM_Aktivity.selStavClick(Sender: TObject);
begin
if Helios.Prenos2(bidStav,'Cislo','Popis',oVar1,oVar2,'','Typy aktvit',true,true,false,1) then
begin
edtTyp.Text:= VarToStr(oVar1);
edtTyp.Hint:= VarToStr(oVar2);
edtTyp.ShowHint:= true;
end;
end;
procedure TformCRM_Aktivity.selTypClick(Sender: TObject);
begin
if Helios.Prenos2(bidTyp,'Cislo','Popis',oVar1,oVar2,'','Typy aktvit',true,false,false,1) then
begin
edtTyp.Text:= VarToStr(oVar1);
// edtTyp.Text:= StringReplace(edtTyp.Text,'N''','',[rfReplaceAll]);
// edtTyp.Text:= StringReplace(edtTyp.Text,'''','',[rfReplaceAll]);
edtTyp.Hint:= VarToStr(oVar2);
edtTyp.ShowHint:= true;
end;
end;
procedure TformCRM_Aktivity.selVedlCisloClick(Sender: TObject);
var cZam: string;
iZam: integer;
begin
cZam:= '';
if Helios.Prenos(86,'Cislo',oVar1,'','Zam<61>stnanec',true) then
cZam:= VarToStr(oVar1);
if cZam<>'' then
with Helios.OpenSQL('SELECT Prijmeni,Jmeno FROM ' + tblCZam + ' WHERE Cislo=' + cZam) do
begin
iZam:= StrToInt(cZam);
edtVedl.Text:= Format('%.6d',[iZam]);
edtVedlPrijm.Text:= VarToStr(FieldValues(0));
edtVedlJm.Text:= VarToStr(FieldValues(1));
end;
end;
procedure TformCRM_Aktivity.selVedlJmClick(Sender: TObject);
begin
selVedlCisloClick(Sender);
end;
procedure TformCRM_Aktivity.selVedlPrijmClick(Sender: TObject);
begin
selVedlCisloClick(Sender);
end;
procedure TformCRM_Aktivity.FormShow(Sender: TObject);
var sTmp: string;
hFnd: THandle;
idx: Integer;
begin
SendMessage(Self.Handle, WM_SETICON, 0, Helios.MainApplicationIconHandle);
dtpZac.DateTime:= Now;
dtpZacCas.DateTime:= Now;
dtpKon.DateTime:= Now;
dtpKonCas.DateTime:= Now;
Self.Font.Name:= Helios.Font;
Self.Font.Height:= Helios.FontHeight;
bgCol:= clWindow;
with Helios.OpenSQL('SELECT BarvaPodbarveni FROM TabUziv WHERE BarevnePodbarveni=1 AND LoginName=N' + QuotedStr(Helios.LoginName)) do
if RecordCount>0 then
bgCol:= StrToInt(VarToStr(FieldValues(0)));
idx:= 0;
while idx<Self.ComponentCount-1 do
begin
if (Self.Components[idx] is TTB_Edit) then
(Self.Components[idx] as TTB_Edit).ColorOnEnter:= bgCol;
if (Self.Components[idx] is TTB_Memo) then
(Self.Components[idx] as TTB_Memo).ColorOnEnter:= bgCol;
Inc(idx);
end;
iCis:= 1;
sql:= 'SELECT PoradoveCislo FROM ' + tblAkt + ' WHERE ';
if idAkt<1 then
sql:= sql + 'Kategorie=N' + QuotedStr(Helios.KategorieKJ)
else
sql:= sql + 'id=' + IntToStr(idAkt);
with Helios.OpenSQL(sql) do
if RecordCount>0 then
begin
sCis:= VarToStr(FieldValues(0));
iCis:= StrToInt(sCis);
if idAkt<1 then
begin
Inc(iCis);
sCis:= IntToStr(iCis);
end;
end;
sCis:= Format('%.6d',[iCis]);
Self.Caption:= ' ' + Helios.KategorieKJ + ' ' + sCis;
edtCislo.Text:= sCis;
edtKat.Text:= Helios.KategorieKJ;
hFnd:= GetModuleHandle('helios.exe');
SetLength(sTmp, MAX_PATH+1);
SetLength(sTmp, GetModuleFileName(hFnd, PChar(sTmp), MAX_PATH+1));
imgList.Clear;
iPrev:= TIcon.Create;
iPrev.SetSize(32,32);
iPrev.Handle:= ExtractIcon(hFnd,PChar(sTmp),20); // X_DBPRIOR
imgList.AddIcon(iPrev);
iNext:= TIcon.Create;
iNext.SetSize(32,32);
iNext.Handle:= ExtractIcon(hFnd,PChar(sTmp),19); // X_DBNEXT
imgList.AddIcon(iNext);
pgCtrl.ActivePageIndex:= 0;
if idAkt>0 then
NactiAktivitu;
edtCislo.SetFocus;
end;
procedure TformCRM_Aktivity.memoPopisEnter(Sender: TObject);
begin
memoPopis.Color:= bgCol;
end;
procedure TformCRM_Aktivity.memoPopisExit(Sender: TObject);
begin
memoPopis.Color:= clWindow;
end;
end.

27
frmUnit4.dfm Normal file
View File

@ -0,0 +1,27 @@
object formDodavky: TformDodavky
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = ' Term'#237'ny dod'#225'vek'
ClientHeight = 278
ClientWidth = 388
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
object btnOK: TButton
Left = 226
Top = 232
Width = 75
Height = 25
Caption = '&OK'
TabOrder = 0
OnClick = btnOKClick
end
end

32
frmUnit4.pas Normal file
View File

@ -0,0 +1,32 @@
unit frmUnit4;
interface
uses
Winapi.Windows, System.Classes, Vcl.Forms, Vcl.Controls, Vcl.StdCtrls,
ddPlugin_TLB;
type
TformDodavky = class(TForm)
btnOK: TButton;
procedure btnOKClick(Sender: TObject);
private
public
Helios: IHelios;
idOrg: integer;
end;
var
formDodavky: TformDodavky;
implementation
uses ComObjekt, helUtils;
{$R *.dfm}
procedure TformDodavky.btnOKClick(Sender: TObject);
begin
Close;
end;
end.

227
frmUnit5.dfm Normal file
View File

@ -0,0 +1,227 @@
object formKartyZbozi: TformKartyZbozi
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
ClientHeight = 249
ClientWidth = 718
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 5
Top = 5
Width = 709
Height = 115
Caption = ' Hlavn'#237' '#250'daje '
TabOrder = 0
object Label1: TLabel
Left = 22
Top = 21
Width = 41
Height = 13
Caption = 'Skupina:'
end
object Label2: TLabel
Left = 98
Top = 21
Width = 80
Height = 13
Caption = 'Registra'#269'n'#237' '#269#237'slo:'
end
object Label3: TLabel
Left = 263
Top = 21
Width = 43
Height = 13
Caption = 'N'#225'zev 1:'
end
object Label4: TLabel
Left = 22
Top = 68
Width = 22
Height = 13
Caption = 'SKP:'
end
object Label5: TLabel
Left = 156
Top = 68
Width = 63
Height = 13
Caption = 'MJ evidence:'
end
object Label6: TLabel
Left = 263
Top = 68
Width = 43
Height = 13
Caption = 'N'#225'zev 2:'
end
object selSZ: TRzButtonEdit
Left = 22
Top = 37
Width = 61
Height = 21
Alignment = taCenter
CharCase = ecUpperCase
MaxLength = 3
TabOrder = 0
OnKeyUp = selSZKeyUp
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selSZButtonClick
end
object edtRC: TRzEdit
Left = 98
Top = 37
Width = 143
Height = 21
CharCase = ecUpperCase
TabOrder = 1
OnKeyUp = edtRCKeyUp
end
object edtNazev1: TRzEdit
Left = 263
Top = 37
Width = 426
Height = 21
TabOrder = 2
end
object edtSKP: TRzEdit
Left = 22
Top = 83
Width = 121
Height = 21
MaxLength = 20
TabOrder = 3
end
object cbMJ: TRzComboBox
Left = 156
Top = 83
Width = 66
Height = 21
AllowEdit = False
Style = csDropDownList
TabOrder = 4
end
object edtNazev2: TRzEdit
Left = 263
Top = 84
Width = 426
Height = 21
TabOrder = 5
end
end
object btnOK: TBitBtn
Left = 472
Top = 211
Width = 80
Height = 30
Caption = 'OK'
ModalResult = 1
TabOrder = 1
OnClick = btnOKClick
end
object btnCancel: TBitBtn
Left = 630
Top = 211
Width = 80
Height = 30
Caption = 'Storno'
ModalResult = 2
TabOrder = 2
OnClick = btnCancelClick
end
object GroupBox2: TGroupBox
Left = 5
Top = 125
Width = 709
Height = 73
Caption = ' Dopl'#328'uj'#237'c'#237' '#250'daje '
TabOrder = 3
object Label7: TLabel
Left = 55
Top = 48
Width = 24
Height = 13
Caption = 'DPH:'
end
object Label8: TLabel
Left = 7
Top = 22
Width = 72
Height = 13
Caption = 'Hmotnost (kg):'
end
object Label9: TLabel
Left = 180
Top = 22
Width = 32
Height = 13
Caption = 'Balen'#237':'
end
object Label10: TLabel
Left = 306
Top = 22
Width = 93
Height = 13
Caption = 'Aktu'#225'ln'#237' dodavatel:'
end
object Label11: TLabel
Left = 168
Top = 49
Width = 127
Height = 13
Caption = 'Um'#237'st'#283'n'#237' pro sklad V'#253'roby:'
end
object cbDPH: TComboBox
Left = 98
Top = 44
Width = 57
Height = 21
Style = csDropDownList
TabOrder = 0
end
object edtHmot: TRzNumericEdit
Left = 96
Top = 19
Width = 58
Height = 21
TabOrder = 1
IntegersOnly = False
DisplayFormat = '##,##0.0###;-##,##0.0###'
end
object edtBal: TRzEdit
Left = 231
Top = 19
Width = 55
Height = 21
TabOrder = 2
end
object selDodavatel: TRzButtonEdit
Left = 423
Top = 18
Width = 174
Height = 21
TabOrder = 3
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selDodavatelButtonClick
end
object edtUmist: TRzEdit
Left = 321
Top = 45
Width = 121
Height = 21
TabOrder = 4
end
end
end

307
frmUnit5.pas Normal file
View File

@ -0,0 +1,307 @@
unit frmUnit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ddPlugin_TLB, helUtils,
Dialogs, StdCtrls, Mask, RzEdit, RzCmboBx, RzButton, RzPanel, Vcl.Buttons, RzBtnEdt;
type
TformKartyZbozi = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
selSZ: TRzButtonEdit;
edtRC: TRzEdit;
edtNazev1: TRzEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
edtSKP: TRzEdit;
cbMJ: TRzComboBox;
edtNazev2: TRzEdit;
Label6: TLabel;
btnOK: TBitBtn;
btnCancel: TBitBtn;
GroupBox2: TGroupBox;
Label7: TLabel;
Label8: TLabel;
cbDPH: TComboBox;
edtHmot: TRzNumericEdit;
edtBal: TRzEdit;
Label9: TLabel;
Label10: TLabel;
selDodavatel: TRzButtonEdit;
Label11: TLabel;
edtUmist: TRzEdit;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure selSZButtonClick(Sender: TObject);
procedure selSZKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure edtRCKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure btnUpClick(Sender: TObject);
procedure btnDownClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure selDodavatelButtonClick(Sender: TObject);
private
helParams: THeliosParams;
procedure NastavEdity;
procedure NulujForm;
procedure NactiKartu;
public
Helios: IHelios;
idKZ: Integer;
end;
var
formKartyZbozi: TformKartyZbozi;
oVar1,oVar2: OleVariant;
cisDod: ShortString;
implementation
uses System.StrUtils;
{$R *.dfm}
procedure TformKartyZbozi.NactiKartu;
var polKZ: IHeQuery;
mj: ShortString;
lSQL: WideString;
begin
if idKZ>0 then
begin
lSQL:= 'SELECT * FROM ' + tblKZ + ' WHERE id=' + IntToStr(idKZ);
polKZ:= Helios.OpenSQL(lSQL);
if polKZ.RecordCount>0 then
begin
selSZ.Text:= VarToStr(polKZ.FieldByNameValues('SkupZbo'));
edtRC.Text:= VarToStr(polKZ.FieldByNameValues('RegCis'));
edtNazev1.Text:= VarToStr(polKZ.FieldByNameValues('Nazev1'));
edtNazev2.Text:= VarToStr(polKZ.FieldByNameValues('Nazev2'));
edtSKP.Text:= VarToStr(polKZ.FieldByNameValues('SKP'));
edtBal.Text:= VarToStr(polKZ.FieldByNameValues('BaleniTXT'));
if VarIsNull(polKZ.FieldByNameValues('MJevidence')) then
mj:= '(nen<65>)'
else
mj:= VarToStr(polKZ.FieldByNameValues('MJevidence'));
cbMJ.ItemIndex:= cbMJ.Items.IndexOf(mj);
if VarIsNull(polKZ.FieldByNameValues('SazbaDPHVystup')) then
mj:= '(nen<65>)'
else
mj:= VarToStr(polKZ.FieldByNameValues('SazbaDPHVystup'));
cbDPH.ItemIndex:= cbDPH.Items.IndexOf(mj);
edtHmot.Value:= StrToFloat(VarToStr(polKZ.FieldByNameValues('Hmotnost')));
with Helios.OpenSQL('SELECT _UmisteniVyroba FROM ' + tblKZe + ' WHERE id=' + IntToStr(idKZ)) do
if RecordCount=1 then
begin
if not VarIsNull(FieldValues(0)) then
edtUmist.Text:= VarToStr(FieldValues(0))
else
edtUmist.Text:= '';
end;
end;
end;
end;
procedure TformKartyZbozi.NastavEdity;
var idx: integer;
begin
for idx:=0 to ComponentCount-1 do
begin
if (Self.Components[idx] is TRzEdit) then
(Self.Components[idx] as TRzEdit).FocusColor:= helParams.colBg;
end;
end;
procedure TformKartyZbozi.NulujForm;
var idx: integer;
begin
for idx:=0 to ComponentCount-1 do
begin
if (Self.Components[idx] is TRzEdit) then
(Self.Components[idx] as TRzEdit).Text:= '';
end;
edtHmot.Value:= 0;
end;
procedure TformKartyZbozi.selDodavatelButtonClick(Sender: TObject);
begin
if Helios.Prenos(bidCisOrg,'CisloOrg',oVar1,'','Organizace',True) then
begin
cisDod:= VarToStr(oVar1);
with Helios.OpenSQL('SELECT Nazev FROM ' + tblCOrg + ' WHERE CisloOrg=' + cisDod) do
if RecordCount=1 then
selDodavatel.Text:= VarToStr(FieldValues(0));
end;
end;
procedure TformKartyZbozi.selSZButtonClick(Sender: TObject);
begin
if Helios.Prenos(bidSZ,'SkupZbo',oVar1,'','Vyberte skupinu zbo<62><6F>',true) then
begin
selSZ.Text:= VarToStr(oVar1);
edtRC.SetFocus;
end;
end;
procedure TformKartyZbozi.selSZKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key<>Ord(32) then
if Length(selSZ.Text)=3 then
edtRC.SetFocus;
end;
procedure TformKartyZbozi.btnCancelClick(Sender: TObject);
begin
Close;
end;
procedure TformKartyZbozi.btnDownClick(Sender: TObject);
begin
if not Helios.QueryBrowse.EOF then
Helios.QueryBrowse.Next;
end;
procedure TformKartyZbozi.btnOKClick(Sender: TObject);
var lSQL: WideString;
begin
if idKZ>0 then
begin
lSQL:= 'UPDATE ' + tblKZ + ' SET Nazev1=N' + QuotedStr(edtNazev1.Text) + ',Nazev2=N' + QuotedStr(edtNazev2.Text);
lSQL:= lSQL + ',BaleniTXT=N' + QuotedStr(edtBal.Text) + ',SKP=N' + QuotedStr(edtSKP.Text);
if cbMJ.ItemIndex=0 then
lSQL:= lSQL + ',MJevidence=null'
else
lSQL:= lSQL + ',MJevidence=N' + QuotedStr(cbMJ.Text);
lSQL:= lSQL + ',Aktualni_Dodavatel=';
if cisDod<>'' then
lSQL:= lSQL + cisDod
else
lSQL:= lSQL + 'null';
lSQL:= lSQL + ',SkupZbo=N' + QuotedStr(selSZ.Text);
lSQL:= lSQL + ',RegCis=N' + QuotedStr(edtRC.Text) + ',Hmotnost=' + StringReplace(edtHmot.Text,',','.',[rfReplaceAll]);
if cbDPH.ItemIndex=0 then
lSQL:= lSQL + ',SazbaDPHVystup=null'
else
lSQL:= lSQL + ',SazbaDPHVystup=' + cbDPH.Text;
lSQL:= lSQL + ' WHERE id=' + IntToStr(idKZ);
lSQL:= lSQL + CRLF + 'IF EXISTS(SELECT Id FROM ' + tblKZe + ' WHERE id=' + IntToStr(idKZ) + ') ';
lSQL:= lSQL + 'UPDATE ' + tblKZe + ' SET _UmisteniVyroba=N' + QuotedStr(edtUmist.Text) + ' WHERE id=' + IntToStr(idKZ);
lSQL:= lSQL + CRLF + ' ELSE INSERT INTO ' + tblKZe + ' (id,_UmisteniVyroba) VALUES(' + IntToStr(idKZ) + ',N' + QuotedStr(edtUmist.Text) + ')';
end
else
begin
lSQL:= 'INSERT INTO ' + tblKZ + ' (SkupZbo,RegCis,Nazev1,Nazev2,SKP,MJevidence,BaleniTXT,SazbaDPHVystup,Hmotnost,DruhSkladu,Aktualni_Dodavatel)';
lSQL:= lSQL + ' VALUES (N' + QuotedStr(selSZ.Text);
lSQL:= lSQL + ',N' + QuotedStr(edtRC.Text) + ',N' + QuotedStr(edtNazev1.Text) + ',N' + QuotedStr(edtNazev2.Text);
lSQL:= lSQL + ',N' + QuotedStr(edtSKP.Text) + ',';
if cbMJ.ItemIndex=0 then
lSQL:= lSQL + 'null'
else
lSQL:= lSQL + 'N' + QuotedStr(cbMJ.Text);
lSQL:= lSQL + ',N' + QuotedStr(edtBal.Text) + ',';
if cbDPH.ItemIndex=0 then
lSQL:= lSQL + 'null'
else
lSQL:= lSQL + cbDPH.Text;
lSQL:= lSQL + ',' + StringReplace(edtHmot.Text,',','.',[rfReplaceAll]) + ',1,';
if cisDod<>'' then
lSQL:= lSQL + cisDod
else
lSQL:= lSQL + 'null';
lSQL:= lSQL + ')';
lSQL:= lSQL + CRLF + 'INSERT INTO ' + tblKZe + ' (id,_UmisteniVyroba) VALUES(SCOPE_IDENTITY(),N' + QuotedStr(edtUmist.Text) + ')';
end;
try
Helios.ExecSQL(lSQL);
except on E:Exception do
Helios.Error(#1'Nelze ulo<6C>it novou/aktualizovanou kartu.'#1 + CRLF + E.Message);
end;
Close;
end;
procedure TformKartyZbozi.btnUpClick(Sender: TObject);
begin
if not Helios.QueryBrowse.BOF then
Helios.QueryBrowse.Prev;
end;
procedure TformKartyZbozi.edtRCKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var iCislo: integer;
lSQL: WideString;
begin
edtRC.Text:= UpperCase(edtRC.Text);
if LeftStr(edtRC.Text,4)='POL_' then
if Length(edtRC.Text)=8 then
begin
lSQL:= 'SELECT TOP(1) RegCis FROM ' + tblKZ + ' WHERE SkupZbo=N' + QuotedStr(selSZ.Text) + ' AND RegCis LIKE ';
lSQL:= lSQL + QuotedStr(edtRC.Text + '%') + ' ORDER BY RegCis DESC';
with Helios.OpenSQL(lSQL) do
if RecordCount>0 then
iCislo:= 1 + StrToInt(MidStr(FieldValues(0),9,10))
else
iCislo:= 1;
edtRC.Text:= edtRC.Text + StringOfChar('0', 3 - Length(IntToStr(iCislo))) + IntToStr(iCislo);
edtNazev1.SetFocus;
end;
end;
procedure TformKartyZbozi.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure TformKartyZbozi.FormShow(Sender: TObject);
var lSQL: WideString;
begin
UseLatestCommonDialogs:= True;
Self.Icon.Handle:= Helios.MainApplicationIconHandle;
Self.Font.Name:= Helios.Font;
Self.Font.Height:= Helios.FontHeight;
NactiParametryHeliosu(Helios, helParams);
if helParams.podbarveni then
NastavEdity;
lSQL:= 'SELECT d.Sazba FROM ' + tblDPH + ' d INNER JOIN ' + tblDPHDef + ' df ON (d.id=df.IdDPH) WHERE df.Platnost=0';
lSQL:= lSQL + ' AND df.Blokovano=0 AND df.IdObdobi=' + IntToStr(Helios.Obdobi) + ' ORDER BY d.Sazba';
with Helios.OpenSQL(lSQL) do
if RecordCount>0 then
begin
cbDPH.Clear;
cbDPH.Items.Add('(nen<65>)');
First;
while not(EOF) do
begin
cbDPH.Items.Add(VarToStr(FieldValues(0)));
Next;
end;
cbDPH.ItemIndex:= 0;
end;
with Helios.OpenSQL('SELECT kod FROM TabMJ ORDER BY kod') do
if RecordCount>0 then
begin
First;
cbMJ.Clear;
cbMJ.Items.Add('(nen<65>)');
while not(EOF) do
begin
cbMJ.Items.Add(VarToStr(FieldValues(0)));
Next;
end;
cbMJ.ItemIndex:= 0;
end;
if idKZ=0 then
begin
Self.Caption:= ' Nov<6F> karta zbo<62><6F>';
NulujForm;
end
else
NactiKartu;
end;
end.

457
frmUnit6.dfm Normal file
View File

@ -0,0 +1,457 @@
object formVydejka: TformVydejka
Left = 0
Top = 0
Caption = ' V'#253'dejka'
ClientHeight = 467
ClientWidth = 944
Color = clBtnFace
Constraints.MaxHeight = 505
Constraints.MaxWidth = 960
Constraints.MinHeight = 505
Constraints.MinWidth = 960
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object pgControl: TPageControl
Left = 4
Top = 40
Width = 940
Height = 390
ActivePage = pgHlavicka
TabOrder = 0
OnChange = pgControlChange
object pgHlavicka: TTabSheet
Caption = '1 - Hlavi'#269'ka'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 6
Top = 6
Width = 409
Height = 139
Caption = ' [1] Organizace '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 10
Top = 24
Width = 52
Height = 13
Caption = '&Odb'#283'ratel:'
end
object Label2: TLabel
Left = 10
Top = 74
Width = 61
Height = 13
Caption = '&M'#237'sto ur'#269'en'#237':'
end
object selCisOrg: TRzButtonEdit
Left = 10
Top = 45
Width = 81
Height = 21
Alignment = taRightJustify
MaxLength = 8
TabOrder = 0
OnExit = selCisOrgExit
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selCisOrgButtonClick
end
object selOdber: TRzButtonEdit
Left = 106
Top = 45
Width = 289
Height = 21
TabOrder = 1
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selOdberButtonClick
end
object selCisOrgMisto: TRzButtonEdit
Left = 10
Top = 92
Width = 81
Height = 21
Alignment = taRightJustify
TabOrder = 2
OnExit = selCisOrgMistoExit
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selCisOrgMistoButtonClick
end
object selOdberMisto: TRzButtonEdit
Left = 106
Top = 92
Width = 289
Height = 21
TabOrder = 3
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selOdberMistoButtonClick
end
end
object GroupBox2: TGroupBox
Left = 427
Top = 6
Width = 278
Height = 139
Caption = ' [2] Datum, dopl'#328'uj'#237'c'#237' informace '
TabOrder = 1
object Label3: TLabel
Left = 11
Top = 24
Width = 74
Height = 13
Caption = 'Datum p'#345#237'padu:'
end
object Label4: TLabel
Left = 55
Top = 52
Width = 30
Height = 13
Caption = 'M'#283'na:'
end
object Label5: TLabel
Left = 60
Top = 85
Width = 25
Height = 13
Caption = 'Kurz:'
end
object edtDatPrip: TRzDateTimeEdit
Left = 109
Top = 21
Width = 102
Height = 21
CaptionTodayBtn = 'Dnes'
CaptionClearBtn = 'Smazat'
CaptionSet = 'Vybrat'
EditType = etDate
Alignment = taCenter
TabOrder = 0
end
object cbMena: TComboBox
Left = 110
Top = 49
Width = 101
Height = 21
Style = csDropDownList
CharCase = ecUpperCase
TabOrder = 1
end
object selKurz: TRzButtonEdit
Left = 109
Top = 82
Width = 102
Height = 21
Alignment = taRightJustify
MaxLength = 6
TabOrder = 2
AltBtnWidth = 15
ButtonWidth = 15
OnButtonClick = selKurzButtonClick
end
end
end
object pgPolozky: TTabSheet
Caption = '2 - Polo'#382'ky'
ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox3: TGroupBox
Left = 0
Top = 3
Width = 931
Height = 359
TabOrder = 0
object GroupBox4: TGroupBox
Left = 3
Top = 1
Width = 925
Height = 55
TabOrder = 0
object btnPolAdd: TSpeedButton
Left = 6
Top = 1
Width = 49
Height = 52
Caption = 'Nov'#253'...'
Layout = blGlyphTop
OnClick = btnPolAddClick
end
object btnPolEdit: TSpeedButton
Left = 59
Top = 1
Width = 56
Height = 52
Caption = 'Oprava...'
Layout = blGlyphTop
OnClick = btnPolEditClick
end
object btnPolDel: TSpeedButton
Left = 119
Top = 1
Width = 51
Height = 52
Caption = 'Zru'#353'it'
Layout = blGlyphTop
OnClick = btnPolDelClick
end
end
object gridPol: TcxGrid
Left = 7
Top = 58
Width = 924
Height = 301
TabOrder = 1
object viewPol: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = viewPolCellDblClick
DataController.DataSource = dsPol
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '### ### ##0.0##'
Position = spFooter
Column = colCCbezDPH
end
item
Format = '###,###,##0.0##'
Position = spFooter
Column = colMnoz
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = colMnoz
end
item
Kind = skSum
Column = colCCbezDPH
end>
DataController.Summary.SummaryGroups = <>
Images = imgList
OptionsCustomize.ColumnFiltering = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.FooterAutoHeight = True
OptionsView.GroupByBox = False
OnColumnHeaderClick = viewPolColumnHeaderClick
object colIdSS: TcxGridDBColumn
Visible = False
end
object colIdKZ: TcxGridDBColumn
Visible = False
end
object colSZ: TcxGridDBColumn
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
end
object colRegCis: TcxGridDBColumn
end
object colNazev1: TcxGridDBColumn
end
object colNazev2: TcxGridDBColumn
end
object colMJ: TcxGridDBColumn
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
end
object colMnoz: TcxGridDBColumn
end
object colJCbezDaniKc: TcxGridDBColumn
end
object colCCbezDPH: TcxGridDBColumn
end
object colIdPZ: TcxGridDBColumn
end
end
object lvPol: TcxGridLevel
GridView = viewPol
end
end
end
end
object pgSklad: TTabSheet
Caption = '3 - Sklady kooperant'#367
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object gridSklad: TcxGrid
Left = 0
Top = 0
Width = 929
Height = 359
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
PopupMenu = pmSklad
TabOrder = 0
object viewSklad: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
FilterBox.CustomizeDialog = False
FilterBox.Position = fpTop
FilterBox.Visible = fvNever
OnCellDblClick = viewSkladCellDblClick
DataController.DataSource = dsSklad
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
Filtering.ColumnMRUItemsList = False
FilterRow.InfoText = 'Sem klikn'#283'te pro definici filtru'
FilterRow.ApplyChanges = fracImmediately
OptionsCustomize.ColumnFiltering = False
OptionsData.CancelOnExit = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object colIdSS2: TcxGridDBColumn
end
object colIdKZ2: TcxGridDBColumn
end
object colSZ2: TcxGridDBColumn
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
end
object colRegCis2: TcxGridDBColumn
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
end
object colNazev12: TcxGridDBColumn
end
object colNazev22: TcxGridDBColumn
end
object colMJ2: TcxGridDBColumn
PropertiesClassName = 'TcxLabelProperties'
Properties.Alignment.Horz = taCenter
end
object colMnoz2: TcxGridDBColumn
end
object colJCbezDaniKc2: TcxGridDBColumn
end
object colCCbezDPH2: TcxGridDBColumn
end
end
object lvSklad: TcxGridLevel
GridView = viewSklad
end
end
end
end
object tBar: TToolBar
Left = 0
Top = 0
Width = 944
Height = 36
ButtonHeight = 38
ButtonWidth = 39
Caption = 'tBar'
Images = imgList
TabOrder = 1
object tBtn1: TToolButton
Left = 0
Top = 0
Margins.Left = 1
Margins.Top = 1
Margins.Right = 1
Margins.Bottom = 1
Caption = 'tBtn1'
ImageIndex = 1
end
object tBtn2: TToolButton
Left = 39
Top = 0
Caption = 'tBtn2'
ImageIndex = 2
end
end
object btnOK: TButton
Left = 762
Top = 439
Width = 75
Height = 25
Caption = '&OK'
ModalResult = 1
TabOrder = 2
OnClick = btnOKClick
end
object btnCanel: TButton
Left = 857
Top = 439
Width = 75
Height = 25
Caption = '&Storno'
ModalResult = 2
TabOrder = 3
OnClick = btnCanelClick
end
object vTabPol: TVirtualTable
OnCalcFields = vTabPolCalcFields
Left = 90
Top = 404
Data = {03000000000000000000}
end
object dsPol: TDataSource
DataSet = vTabPol
Left = 142
Top = 404
end
object imgList: TImageList
ColorDepth = cd8Bit
Height = 32
ShareImages = True
Width = 32
Left = 30
Top = 402
end
object dsSklad: TDataSource
DataSet = vTabSklad
Left = 274
Top = 404
end
object vTabSklad: TVirtualTable
Left = 214
Top = 404
Data = {03000000000000000000}
end
object pmSklad: TPopupMenu
Left = 440
Top = 404
object pmSklad1: TMenuItem
Caption = '&Na'#269'ti obsah skladu'
OnClick = pmSklad1Click
end
end
end

1016
frmUnit6.pas Normal file
View File

File diff suppressed because it is too large Load Diff

214
frmUnit8.dfm Normal file
View File

@ -0,0 +1,214 @@
object formPrijemkaNadvyroba: TformPrijemkaNadvyroba
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = ' P'#345#237'jemka (evidence) - Dom'#225'c'#237' v'#253'roba'
ClientHeight = 192
ClientWidth = 584
Color = clBtnFace
Constraints.MaxHeight = 230
Constraints.MaxWidth = 600
Constraints.MinHeight = 230
Constraints.MinWidth = 600
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox2: TGroupBox
Left = 7
Top = 8
Width = 569
Height = 137
TabOrder = 0
object Label4: TLabel
Left = 383
Top = 11
Width = 41
Height = 13
Caption = 'Datum:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label5: TLabel
Left = 9
Top = 11
Width = 96
Height = 13
Caption = 'Os.'#269#237'slo zam'#283'st. :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label1: TLabel
Left = 23
Top = 30
Width = 83
Height = 13
Caption = 'Zam'#283'stnanec :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label2: TLabel
Left = 23
Top = 66
Width = 14
Height = 13
Caption = 'SZ'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label3: TLabel
Left = 58
Top = 66
Width = 50
Height = 13
Caption = 'Reg.'#269#237'slo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label6: TLabel
Left = 170
Top = 66
Width = 34
Height = 13
Caption = 'N'#225'zev'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label7: TLabel
Left = 389
Top = 106
Width = 57
Height = 13
Alignment = taCenter
Caption = 'Mno'#382'stv'#237' :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object lblSZ: TLabel
Left = 23
Top = 82
Width = 3
Height = 13
end
object lblRegCis: TLabel
Left = 58
Top = 82
Width = 3
Height = 13
end
object lblNazev: TLabel
Left = 170
Top = 82
Width = 3
Height = 13
end
object lblCisZam: TLabel
Left = 117
Top = 11
Width = 3
Height = 13
end
object lblZamest: TLabel
Left = 117
Top = 30
Width = 3
Height = 13
end
object lblPrikaz: TLabel
Left = 23
Top = 106
Width = 3
Height = 13
end
object dtPicker: TDateTimePicker
Left = 435
Top = 8
Width = 96
Height = 21
Date = 40952.869654375000000000
Time = 40952.869654375000000000
MaxDate = 44196.000000000000000000
MinDate = 40909.000000000000000000
TabOrder = 0
end
object edtMnoz: TRzNumericEdit
Left = 456
Top = 103
Width = 53
Height = 21
Alignment = taCenter
MaxLength = 6
TabOrder = 1
Max = 999999.000000000000000000
DisplayFormat = '0;-0'
end
end
object btnOK: TButton
Left = 384
Top = 156
Width = 75
Height = 25
Caption = '&OK'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 501
Top = 156
Width = 75
Height = 25
Caption = '&Zru'#353'it'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 2
OnClick = btnCancelClick
end
end

502
frmUnit8.pas Normal file
View File

@ -0,0 +1,502 @@
unit frmUnit8;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ddPlugin_TLB, helUtils, Vcl.Buttons, Vcl.Menus, Vcl.ComCtrls, Vcl.StdCtrls,
Vcl.Mask, RzEdit;
const
sklProOdvodDP = '200';
radaOdvedDP = '240';
radaVydejDP = '470';
errPlg = #13#10 + '(plgLOVATO,unit8)';
rDoklVydMat = '400';
sklProMatDP = '20000105';
type
TformPrijemkaNadvyroba = class(TForm)
GroupBox2: TGroupBox;
btnOK: TButton;
btnCancel: TButton;
Label4: TLabel;
Label5: TLabel;
Label1: TLabel;
dtPicker: TDateTimePicker;
Label2: TLabel;
Label3: TLabel;
Label6: TLabel;
Label7: TLabel;
lblSZ: TLabel;
lblRegCis: TLabel;
lblNazev: TLabel;
lblCisZam: TLabel;
lblZamest: TLabel;
edtMnoz: TRzNumericEdit;
lblPrikaz: TLabel;
procedure FormShow(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure edtMnozKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
private
helParams: THeliosParams;
procedure NastavFonty;
procedure NactiPolozkuKoopObj;
public
idPKObj: integer;
Helios: IHelios;
end;
var
formPrijemkaNadvyroba: TformPrijemkaNadvyroba;
idKO,idKZ,idVPr,dokl: integer;
idCOrgDP: integer;
cZam: shortString;
implementation
uses System.StrUtils, System.DateUtils;
{$R *.dfm}
procedure TformPrijemkaNadvyroba.NactiPolozkuKoopObj;
var locSQL: WideString;
begin
with Helios.OpenSQL('SELECT id FROM ' + tblPrikaz + ' WHERE StavPrikazu IN (30,40) AND kusy_zive>0 AND id=' + IntToStr(idVPr)) do
if RecordCount>0 then
begin
if idPKObj>0 then
begin
locSQL:= 'SELECT (pko.Kusy-pko.KusyPrevedene),kz.SkupZbo,kz.RegCis,kz.Nazev1,cz.PrijmeniJmeno,cz.Cislo,ko.id,';
locSQL:= locSQL + 'kz.id,p.id,pko.DokladPrPostup FROM ' + tblPKObj + ' pko INNER JOIN ' + tblPrikaz + ' p ON (pko.IdPrikaz=p.Id)';
locSQL:= locSQL + ' INNER JOIN ' + tblKZ + ' kz ON (p.IdTabKmen=kz.id) INNER JOIN ' + tblKObj + ' ko ON';
locSQL:= locSQL + ' (pko.IDObjednavky=ko.id) INNER JOIN ' + tblCZam + ' cz ON (ko.IdZamestnance=cz.id) WHERE';
locSQL:= locSQL + ' pko.id=' + IntToStr(idPKObj) + ' AND ko.IDOrganizace=' + IntToStr(idCOrgDP);
with Helios.OpenSQL(locSQL) do
if RecordCount>0 then
begin
edtMnoz.Value:= StrToFloat(VarToStr(FieldValues(0)));
lblSZ.Caption:= VarToStr(FieldValues(1));
lblRegCis.Caption:= VarToStr(FieldValues(2));
lblNazev.Caption:= VarToStr(FieldValues(3));
lblZamest.Caption:= VarToStr(FieldValues(4));
lblCisZam.Caption:= VarToStr(FieldValues(5));
cZam:= lblCisZam.Caption;
lblCisZam.Caption:= StringOfChar('0',6-Length(cZam)) + cZam;
idKO:= StrToInt(VarToStr(FieldValues(6)));
idKZ:= StrToInt(VarToStr(FieldValues(7)));
// idVPr:= StrToInt(VarToStr(FieldValues(8)));
dokl:= StrToInt(VarToStr(FieldValues(9)));
end;
end;
end
else
begin
locSQL:= #1'Na p<><70>kaze nejsou u<> <20><>dn<64> <20>iv<69> kusy, nelze d<>lat dal<61><6C> p<><70>jemku.'#1 + CRLF + 'Pokud i p<>esto chcete';
locSQL:= locSQL + ' zaevidovat p<><70>jemku, kontaktujte' + CRLF + 'firmu NTS Strakonice, konzultanty Heliosu, modul V<>roba.';
Helios.Error(locSQL);
btnOK.Enabled:= false;
edtMnoz.Enabled:= false;
Close;
end;
end;
procedure TformPrijemkaNadvyroba.btnCancelClick(Sender: TObject);
begin
Close;
end;
procedure TformPrijemkaNadvyroba.btnOKClick(Sender: TObject);
var locSQL,podm: WideString;
idPMaZ,idDZ,idPZ,cKoop,idDZshift,idPrKVaz,GidKZ: integer;
jc,cc,kurz,qDat,GidSS,Gdokl,mnTxt,idObd,dt: shortString;
mnoz,mnReal: Extended;
realVyd, realPrij: boolean;
begin
jc:= '0.05';
kurz:= '25';
realVyd:= false;
realPrij:= false;
dt:= DateToStr(dtPicker.Date) + ' ' + TimeToStr(Now);
idObd:= '0';
locSQL:= 'DECLARE @obd INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC @obd=dbo.hp_GetObdobiDleDatumu @dt,0,null,null,0,0' + CRLF + 'SELECT @obd';
with Helios.OpenSQL(locSQL) do
idObd:= VarToStr(FieldValues(0));
with Helios.OpenSQL('SELECT id FROM dbo.TabCKoop WHERE Rada=N' + QuotedStr('105')) do
cKoop:= StrToInt(VarToStr(FieldValues(0)));
locSQL:= 'SELECT CelniKurz FROM ' + tblKList + ' WHERE Mena=N' + QuotedStr('EUR') + ' AND Datum_Y=';
locSQL:= locSQL + IntToStr(YearOf(dtPicker.Date)) + ' AND Datum_M=' + IntToStr(MonthOf(dtPicker.Date));
locSQL:= locSQL + ' ORDER BY Cislo desc';
with Helios.OpenSQL(locSQL) do
if RecordCount>0 then
kurz:= VarToStr(FieldValues(0));
with Helios.OpenSQL('SELECT Mat FROM ' + tblZaKalk + ' WHERE dilec=' + IntToStr(idKZ)) do
if RecordCount>0 then
jc:= VarToStr(FieldValues(0));
jc:= FloatToStr(StrToFloat(jc) * StrToFloat(kurz));
cc:= FloatToStr(StrToFloat(jc) * edtMnoz.Value);
jc:= StringReplace(jc,',','.',[rfReplaceAll]);
cc:= StringReplace(cc,',','.',[rfReplaceAll]);
ReseedTable(Helios,tblMzdZm);
idPMaZ:= 0;
Helios.ExecSQL('INSERT ' + tblMzdZm + ' (TypMzdy,BlokovaniEditoru) VALUES (2,1)');
with Helios.OpenSQL('SELECT SCOPE_IDENTITY()') do
idPMaZ:= StrToInt(VarToStr(FieldValues(0)));
mnTxt:= StringReplace(edtMnoz.Text,' ','',[rfReplaceAll]);
locSQL:= 'UPDATE ' + tblMzdZm + ' SET Datum=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
locSQL:= locSQL + ',Stav=0,IDKoopObj=' + IntToStr(idKO) + ',IDPolKoopObj=' + IntToStr(idPKObj) + ',IDPrikaz=' + IntToStr(idVPr);
locSQL:= locSQL + ',IDTabKmen=' + IntToStr(idKZ) + ',kusy_odv=' + StringReplace(mnTxt,',','.',[rfReplaceAll]);
locSQL:= locSQL + ',DokladPrPostup=' + IntToStr(dokl) + ',IDDodavatel=' + IntToStr(idCOrgDP) + ',AltPrPostup=N' + QuotedStr('A');
locSQL:= locSQL + ',Operace_odv=' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ',BlokovaniEditoru=null';
locSQL:= locSQL + ',IDKooperace=' + IntToStr(cKoop);
locSQL:= locSQL + ' WHERE id=' + IntToStr(idPMaZ);
try
Helios.ExecSQL(locSQL);
except on E:Exception do
Helios.Error(#1'Chyba p<>i ukl<6B>d<EFBFBD>n<EFBFBD> z<>znamu evidence Nadv<64>roby.'#1 + CRLF + E.Message + locSQL + errPlg);
end;
if idPMaZ>0 then
begin
idDZ:= 0;
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd' + CRLF;
locSQL:= locSQL + 'CREATE TABLE #TabGenRezVyd(ID INT NOT NULL)';
Helios.ExecSQL(locSQL);
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved' + CRLF;
locSQL:= locSQL + 'CREATE TABLE #TabOdved (id int identity, IDPrikaz int NOT NULL, IDDilec int NOT NULL, IDZakazka int, maxMnozstvi NUMERIC(19,6)';
locSQL:= locSQL + ',mnozstvi NUMERIC(19,6) NOT NULL, EvidJednotka INT NOT NULL, Sklad NVARCHAR(30), KodUmisteni NVARCHAR(15) )';
Helios.ExecSQL(locSQL);
locSQL:= 'INSERT #TabOdved (IDPrikaz,IDDilec,Mnozstvi,EvidJednotka,Sklad) VALUES (';
locSQL:= locSQL + IntToStr(idVPr) + ',' + IntToStr(idKZ) + ',' + StringReplace(mnTxt,',','.',[rfReplaceAll]);
locSQL:= locSQL + ',1,N' + QuotedStr(sklProOdvodDP) + ')';
Helios.ExecSQL(locSQL);
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen' + CRLF;
locSQL:= locSQL + 'CREATE TABLE #TabPrKVazbyGen(ID INT IDENTITY NOT NULL, Generuj BIT NOT NULL DEFAULT 1,';
locSQL:= locSQL + 'PoKorekciDat BIT NOT NULL DEFAULT 0, IDPrKV INT NOT NULL, Doklad INT NOT NULL, IDPrikaz INT NOT NULL,';
locSQL:= locSQL + 'Prednastaveno BIT NOT NULL DEFAULT 1, Sklad NVARCHAR(30) COLLATE database_default NULL,';
locSQL:= locSQL + 'VyrStredisko NVARCHAR(30) COLLATE database_default NULL, IDPracoviste INT NULL,';
locSQL:= locSQL + 'mnoz_zad NUMERIC(19, 6) NOT NULL DEFAULT 0, Mnoz_nepotrebne NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'Mnoz_skut_realizovane NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_real NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'Mnoz_odv NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_odv NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'MnozstviMax NUMERIC(19, 6) NULL, MnozstviPoz NUMERIC(19, 6) NOT NULL, PomMnozPoz NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'IDPohZbo INT NULL, priorita INT NOT NULL DEFAULT 0, vyssi INT NOT NULL, nizsi INT NOT NULL,';
locSQL:= locSQL + 'DavkaTPV NUMERIC(19, 6) NOT NULL DEFAULT 1, pozice NVARCHAR(100) COLLATE database_default NULL DEFAULT '''',';
locSQL:= locSQL + 'Operace NCHAR(4) COLLATE database_default NULL DEFAULT '''', FixniMnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'mnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 1, ProcZtrat NUMERIC(5, 2) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'mnozstviSeZtratou NUMERIC(19, 6) NOT NULL DEFAULT 0, Prirez NUMERIC(19, 6) NOT NULL DEFAULT 1,';
locSQL:= locSQL + 'Poznamka NTEXT COLLATE database_default NULL, pom_pomer_A NUMERIC(19, 6) NULL,';
locSQL:= locSQL + 'pom_pomer_B NUMERIC(19, 6) NULL, Dodavatel INT NULL)';
Helios.ExecSQL(locSQL);
locSQL:= 'DECLARE @RespekExistDoklady bit' + CRLF + 'SELECT @RespekExistDoklady=0' + CRLF;
locSQL:= locSQL + 'INSERT INTO #TabPrKVazbyGen (IDPrKV, MnozstviPoz, pom_pomer_A, pom_pomer_B, Doklad, IDPrikaz,';
locSQL:= locSQL + 'Prednastaveno, Sklad, VyrStredisko, IDPracoviste, mnoz_zad, Mnoz_nepotrebne, Mnoz_skut_realizovane,';
locSQL:= locSQL + 'Cena_real, Mnoz_odv, Cena_odv, priorita, vyssi, nizsi, DavkaTPV, pozice, Operace, FixniMnozstvi,';
locSQL:= locSQL + 'mnozstvi, ProcZtrat, mnozstviSeZtratou, Prirez, Poznamka) SELECT PrKV.ID, PrKV.mnoz_zad*O.mnozstvi/P.kusy_zad';
locSQL:= locSQL + '-CASE WHEN @RespekExistDoklady=1 THEN PrKV.VydanoRefMnoz + (SELECT ISNULL(SUM(PZ2.prepmnozstvi*(PZ2.mnozstvi';
locSQL:= locSQL + '-PZ2.MnOdebrane) * PrKV2.RefMnoz / PrKV2.mnoz_zad), 0.0) FROM TabPohybyZbozi PZ2 INNER JOIN TabStavSkladu SS2 ON (SS2.ID=PZ2.IDZboSklad)';
locSQL:= locSQL + ' INNER JOIN TabPrKVazby PrKV2 ON (PrKV2.IDPrikaz=PZ2.IDPrikaz AND PrKV2.Doklad=PZ2.DokladPrikazu AND ';
locSQL:= locSQL + 'PrKV2.nizsi=SS2.IDKmenZbozi AND PrKV2.IDOdchylkyDo IS NULL) WHERE PZ2.TypVyrobnihoDokladu=1 AND ';
locSQL:= locSQL + 'PZ2.IDPrikaz=PrKV.IDPrikaz AND PZ2.DokladPrikazu=PrKV.Doklad AND PZ2.druhPohybuZbo IN (2,4,9,10) AND ';
locSQL:= locSQL + 'PZ2.SkutecneDatReal IS NULL) ELSE 0.0 END, CASE WHEN @RespekExistDoklady=0 THEN O.mnozstvi END,';
locSQL:= locSQL + 'CASE WHEN @RespekExistDoklady=0 THEN P.kusy_zad END,PrKV.Doklad, PrKV.IDPrikaz, PrKV.Prednastaveno,';
locSQL:= locSQL + 'PrKV.Sklad, PrKV.VyrStredisko, PrKV.IDPracoviste, PrKV.mnoz_zad, PrKV.Mnoz_nepotrebne, PrKV.Mnoz_skut_realizovane,';
locSQL:= locSQL + 'PrKV.Cena_real, PrKV.Mnoz_odv, PrKV.Cena_odv, PrKV.priorita, PrKV.vyssi, PrKV.nizsi, PrKV.DavkaTPV,';
locSQL:= locSQL + 'PrKV.pozice, PrKV.Operace, PrKV.FixniMnozstvi, PrKV.mnozstvi, PrKV.ProcZtrat, PrKV.mnozstviSeZtratou,';
locSQL:= locSQL + 'PrKV.Prirez, PrKV.Poznamka FROM (SELECT IDPrikaz=O1.IDPrikaz, Mnozstvi=SUM(O1.mnozstvi)';
locSQL:= locSQL + ' + CASE WHEN @RespekExistDoklady=1 THEN MAX(P1.kusy_odved+P1.kusy_ztrac+P1.kusy_zmet)';
locSQL:= locSQL + ' + (SELECT ISNULL(SUM(PZ1.prepmnozstvi*PZ1.mnozstvi), 0.0) FROM TabPohybyZbozi PZ1 WHERE PZ1.TypVyrobnihoDokladu=0';
locSQL:= locSQL + ' AND PZ1.IDPrikaz=O1.IDPrikaz AND PZ1.druhPohybuZbo=0 AND PZ1.SkutecneDatReal IS NULL) ELSE 0.0 END';
locSQL:= locSQL + ' FROM #TabOdved O1 INNER JOIN ' + tblPrikaz + ' P1 ON (P1.ID=O1.IDPrikaz) GROUP BY O1.IDPrikaz) O';
locSQL:= locSQL + ' INNER JOIN ' + tblPrikaz + ' P ON (P.ID=O.IDPrikaz AND P.StavPrikazu IN (30,50)) INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)';
locSQL:= locSQL + ' INNER JOIN ' + tblPrVaz + ' PrKV ON (PrKV.IDPrikaz=O.IDPrikaz AND PrKV.predzpracovano=0 AND PrKV.prednastaveno=1';
locSQL:= locSQL + ' AND PrKV.uzavreno=0 AND PrKV.RezijniMat=0 AND PrKV.IDOdchylkyDo IS NULL) INNER JOIN ' + tblKZ + ' KZ ON';
locSQL:= locSQL + ' (KZ.ID=PrKV.nizsi AND KZ.sluzba=0) WHERE (P.kusy_zive>0.0 OR RP.KontrolovatRozpracPriUzav=0)';
Helios.ExecSQL(locSQL);
locSQL:= 'UPDATE G SET MnozstviMax=CASE WHEN RP.NekontrolovatMnozMatPol=1 THEN NULL ELSE (CASE WHEN PrKV.splneno=1';
locSQL:= locSQL + ' THEN 0.0 ELSE PrKV.mnoz_zad-PrKV.VydanoRefMnoz*PrKV.mnoz_zad/PrKV.RefMnoz END) END FROM #TabPrKVazbyGen G';
locSQL:= locSQL + ' INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabPrikaz P ON (P.ID=PrKV.IDPrikaz)';
locSQL:= locSQL + ' INNER JOIN TabRadyPrikazu RP ON (RP.rada=P.rada)' + CRLF;
locSQL:= locSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=CEILING(mnozstviPoz) FROM #TabPrKVazbyGen G INNER JOIN';
locSQL:= locSQL + ' TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV) INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi)';
locSQL:= locSQL + ' INNER JOIN TabMJ MJ ON (MJ.kod=KZ.MJEvidence AND MJ.nedelitelna=1) WHERE G.PoKorekciDat=0' + CRLF;
locSQL:= locSQL + 'UPDATE #TabPrKVazbyGen SET mnozstviPoz=MnozstviMax WHERE MnozstviMax IS NOT NULL AND mnozstviPoz>MnozstviMax';
locSQL:= locSQL + CRLF + 'DELETE #TabPrKVazbyGen WHERE MnozstviPoz<=0.0 AND PoKorekciDat=0' + CRLF;
locSQL:= locSQL + 'UPDATE G SET Dodavatel=CO.ID FROM #TabPrKVazbyGen G INNER JOIN TabPrKVazby PrKV ON (PrKV.ID=G.IDPrKV)';
locSQL:= locSQL + ' INNER JOIN TabKmenZbozi KZ ON (KZ.ID=PrKV.nizsi) INNER JOIN TabCisOrg CO ON (CO.CisloOrg=KZ.Aktualni_Dodavatel)';
locSQL:= locSQL + ' WHERE G.PoKorekciDat=0 AND G.Dodavatel IS NULL' + CRLF + 'UPDATE #TabPrKVazbyGen SET PoKorekciDat=1 WHERE PoKorekciDat=0';
locSQL:= locSQL + CRLF + 'UPDATE #TabPrKVazbyGen SET Generuj=1';
Helios.ExecSQL(locSQL);
locSQL:= 'SELECT vazGen.IDPrKV, vazGen.Doklad, vazGen.nizsi, ss.id, vazGen.MnozstviPoz';
locSQL:= locSQL + ' FROM #TabPrKVazbyGen vazGen';
locSQL:= locSQL + ' LEFT OUTER JOIN TabKmenZbozi kz ON (vazGen.nizsi=kz.ID)';
locSQL:= locSQL + ' LEFT OUTER JOIN TabStavSkladu ss ON (ss.IDSklad=N' + QuotedStr(sklProMatDP) + ' AND ss.IDKmenZbozi=vazGen.nizsi)';
with Helios.OpenSQL(locSQL) do
if RecordCount>0 then
begin
podm:= 'Obdobi=' + idObd + ' AND DruhPohybuZbo=4 AND RadaDokladu=N' + QuotedStr(rDoklVydMat);
podm:= podm + ' AND IDSklad=N' + QuotedStr(sklProMatDP);
idDZshift:= NajdiPrvniVolny(Helios,'TabDokladyZbozi','PoradoveCislo','4',rDoklVydMat,idObd,podm);
locSQL:= 'DECLARE @i INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertHlavickyOZ @i OUT,@sklad=N' + QuotedStr(sklProMatDP) + ',@DatumPorizeni=@dt';
locSQL:= locSQL + ',@DruhPohybu=4,@RadaDokladu=N' + QuotedStr(rDoklVydMat) + ',@CisloOrg=0,@Mena=N';
locSQL:= locSQL + QuotedStr('CZK') + ',@Insert=1,@PC=' + IntToStr(idDZshift) + CRLF + 'SELECT @i';
idDZ:= 0;
try
with Helios.OpenSQL(locSQL) do
if not VarIsNull(FieldValues(0)) then
idDZ:= StrToInt(VarToStr(FieldValues(0)));
except on E:Exception do
Helios.Error(#1'Nelze ulo<6C>it hlavi<76>ku V<>dejky materi<72>lu.'#1 + CRLF + E.Message + errPlg);
end;
if idDZ>0 then
begin
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=' + IntToStr(Helios.UserId) + ' WHERE id=' + IntToStr(idDZ));
First;
while not(EOF) do
begin
idPrKVaz:= StrToInt(VarToStr(FieldValues(0)));
Gdokl:= VarToStr(FieldValues(1));
GidKZ:= StrToInt(VarToStr(FieldValues(2)));
GidSS:= VarToStr(FieldValues(3));
if GidSS='' then
begin
Helios.ExecSQL('INSERT ' + tblSS + ' (IDSklad,IDKmenZbozi) VALUES (N' + QuotedStr(sklProMatDP) + ',' + IntToStr(GidKZ) + ')');
with Helios.OpenSQL('SELECT SCOPE_IDENTITY()') do
GidSS:= VarToStr(FieldValues(0));
end;
mnoz:= StrToFloat(VarToStr(FieldValues(4)));
mnReal:= 0;
with Helios.OpenSQL('SELECT Mnoz_odv FROM ' + tblPrVaz + ' WHERE id=' + IntToStr(idPrKVaz)) do
if RecordCount>0 then
mnReal:= StrToFloat(VarToStr(FieldValues(0)));
mnReal:= mnReal + mnoz;
locSQL:= 'DECLARE @i INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertPolozkyOZ @i OUT,@IDDoklad=' + IntToStr(idDZ);
locSQL:= locSQL + ',@DruhPohybu=4,@CisloOrg=0,@IDZboSklad=' + GidSS + ',@Mena=N' + QuotedStr('CZK');
locSQL:= locSQL + ',@JednotkaMeny=1,@Kurz=1';
locSQL:= locSQL + ',@VstupniCena=0,@JCbezDaniKC=0.1,@KurzEuro=1,@SazbaSD=0,@SazbaDPH=0,@ZakazanoDPH=0';
locSQL:= locSQL + ',@Selectem=0,@Mnozstvi=' + StringReplace(FloatToStr(mnoz),',','.',[rfReplaceAll]);
locSQL:= locSQL + ',@DatPorizeni=@dt,@PovolitDuplicitu=1' + CRLF + 'SELECT @i';
idPZ:= 0;
with Helios.OpenSQL(locSQL) do
if not VarIsNull(FieldValues(0)) then
idPZ:= StrToInt(VarToStr(FieldValues(0)));
if idPZ>0 then
try
Helios.ExecSQL('UPDATE ' + tblPZ + ' SET DokladPrikazu=' + Gdokl + ',TypVyrobnihoDokladu=1,IDPrikaz=' + IntToStr(idVPr) + ' WHERE id=' + IntToStr(idPZ));
Helios.ExecSQL('INSERT ' + tblMzdZmGenPZ + ' (IDMzdy,TypGen,IDPohybu) VALUES (' + IntToStr(IdPMaZ) + ',0,' + IntToStr(idPZ) + ')');
{
locSQL:= 'UPDATE ' + tblPrVaz + ' SET ';
locSQL:= locSQL + 'Mnoz_skut_realizovane=' + StringReplace(FloatToStr(mnReal),',','.',[rfReplaceAll]);
locSQL:= locSQL + ',Mnoz_odv=' + StringReplace(FloatToStr(mnReal),',','.',[rfReplaceAll]);
locSQL:= locSQL + ' WHERE id=' + IntToStr(idPrKVaz);
Helios.ExecSQL(locSQL);
}
except on E:Exception do
Helios.Error(#1'Nelze ulo<6C>it polo<6C>ku v<>dejky.'#1 + CRLF + E.Message + errPlg);
end
else
Helios.Error(#1'Nelze ulo<6C>it polo<6C>ku v<>dejky.'#1 + CRLF + locSQL + errPlg);
Next;
Helios.ExecSQL('UPDATE ' + tblMzdZm + ' SET GenerovanaMatVydejka=1 WHERE id=' + IntToStr(idPMaZ));
end;
try
// Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyVydejky @idDZ=' + IntToStr(idDZ));
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=1');
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=null,IDPrikaz=' + IntToStr(idVPr) + ',CisloZam=' + cZam + ' WHERE id=' + IntToStr(idDZ));
locSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC dbo.hp_Realizuj_Vydej ' + IntToStr(idDZ) + ',@dt,' + IntToStr(Helios.UserId) + ',0,@chyba OUT';
locSQL:= locSQL + CRLF + 'SELECT @chyba';
with Helios.OpenSQL(locSQL) do
if not VarIsNull(FieldValues(0)) then
if LowerCase(VarToStr(FieldValues(0)))='false' then
realVyd:= true;
except on E:Exception do
Helios.Error(#1'Nelze realizovat v<>dejku.'#1 + CRLF + E.Message + errPlg);
end;
end;
end;
idDZ:= 0;
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved_IDMzdy') + ') IS NULL CREATE TABLE #TabOdved_IDMzdy (IDPrikaz int, IDMzdy int)';
Helios.ExecSQL(locSQL);
locSQL:= 'INSERT #TabOdved_IDMzdy (IDMzdy,IDPrikaz) VALUES (' + IntToStr(idPMaZ) + ',' + IntToStr(idVPr) + ')';
Helios.ExecSQL(locSQL);
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NULL CREATE TABLE #TabGenPrijem (ID int)';
Helios.ExecSQL(locSQL);
locSQL:= 'DECLARE @dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(dt) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC dbo.hp_OdvedeniPrikazu @RadaDokladu=N' + QuotedStr(radaOdvedDP) + ',@IDObdobi=' + idObd;
locSQL:= locSQL + ',@KonecneOdvedeni=0,@DatPorizeni=@dt,@SekejZakazky=0,@SekejPrikazy=0';
try
Helios.ExecSQL(locSQL);
except on E:Exception do
Helios.Error(#1'P<><50>prava odveden<65> na sklad nebyla <20>sp<73><70>n<EFBFBD>.'#1 + CRLF + E.Message + errPlg);
end;
with Helios.OpenSQL('SELECT * FROM #TabGenPrijem') do
if RecordCount>0 then
idDZ:= StrToInt(VarToStr(FieldValues(0)));
if idDZ>0 then
begin
realPrij:= false;
Helios.ExecSQL('UPDATE ' + tblMzdZm + ' SET GenerovanoOdvadeni=1 WHERE id=' + IntToStr(idPMaZ));
{
// prirad polozky prijmu k udaji PrikazMzdyAZmetky
with Helios.OpenSQL('SELECT id FROM ' + tblPZ + ' WHERE idDoklad=' + IntToStr(idDZ)) do
if RecordCount>0 then
begin
First;
while not(EOF) do
begin
idPZ:= StrToInt(VarToStr(FieldValues(0)));
Helios.ExecSQL('INSERT INTO ' + tblMzdZmGenPZ + ' (IDMzdy,TypGen,IDPohybu) VALUES (' + IntToStr(IdPMaZ) + ',2,' + IntToStr(idPZ) + ')');
Next;
end;
end;
}
try
// Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyPrijemka @idDZ=' + IntToStr(idDZ));
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ) + ',@AktualizaceSlev=0');
except on E:Exception do
Helios.Error(#1'Nelze p<>epo<70><6F>tat ceny na p<><70>jemce z Nadv<64>roby.'#1 + CRLF + E.Message + errPlg);
end;
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET CisloZam=' + cZam + ',BlokovaniEditoru=null WHERE id=' + IntToStr(idDZ));
if realVyd then
begin
try
locSQL:= 'DECLARE @c BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtPicker.DateTime)) + ',104)' + CRLF;
locSQL:= locSQL + 'EXEC dbo.hp_Realizuj_Prijem ' + IntToStr(idDZ) + ',@dt,' + IntToStr(Helios.UserId) + ',@c OUT' + CRLF + 'SELECT @c';
with Helios.OpenSQL(locSQL) do
if not VarIsNull(FieldValues(0)) then
if StrToBool(VarToStr(FieldValues(0)))=true then
realPrij:= true;
except on E:Exception do
Helios.Error(#1'Nelze realizovat p<><70>jemku z Nadv<64>roby.'#1 + CRLF + E.Message + errPlg);
end;
end;
if realPrij then // je realizovana Prijemka? Ano, uprav kusy na prikazu a evidenci kooperace
begin
try
locSQL:= 'EXEC dbo.hp_ZmenaStavuMezdAZmetku ' + IntToStr(idPMaZ) + ',1';
try
Helios.ExecSQL(locSQL);
except on E:Exception do
Helios.Error(#1'Nelze zm<7A>nit stav Evidence kooperace.'#1 + CRLF + E.Message + errPlg);
end;
locSQL:= 'UPDATE ' + tblPKObj + ' SET KusyPrevedene=KusyPrevedene+' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ' WHERE id=' + IntToStr(idPKObj);
locSQL:= locSQL + CRLF + 'UPDATE ' + tblPrikaz + ' SET kusy_zive=kusy_zive-' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ' WHERE id=' + IntToStr(idVPr);
locSQL:= locSQL + CRLF + 'UPDATE ' + tblPrikaz + ' SET kusy_odved=kusy_odved+' + StringReplace(mnTxt,',','.',[rfReplaceAll]) + ' WHERE id=' + IntToStr(idVPr);
Helios.ExecSQL(locSQL);
locSQL:= 'SELECT pko.id FROM ' + tblPKObj + ' pko INNER JOIN ' + tblKObj + ' ko ON (pko.IdObjednavky=ko.id) WHERE ko.id=' + IntToStr(idKO);
locSQL:= locSQL + ' AND pko.KusyVKoop>0';
with Helios.OpenSQL(locSQL) do
if RecordCount=0 then
Helios.ExecSQL('UPDATE ' + tblKObj + ' SET PolSplneny=1 WHERE id=' + IntToStr(idKO));
except on E:Exception do
Helios.Error(#1'Nelze p<>epo<70><6F>tat kusy na p<><70>kaz nadv<64>roby.'#1 + CRLF + E.Message + errPlg);
end;
end;
end;
Helios.Refresh(true);
Close;
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen');
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabOdved') + ') IS NOT NULL DROP TABLE #TabOdved');
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenPrijem') + ') IS NOT NULL DROP TABLE #TabGenPrijem');
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabGenRezVyd') + ') IS NOT NULL DROP TABLE #TabGenRezVyd');
end;
end;
procedure TformPrijemkaNadvyroba.edtMnozKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key=VK_RETURN then
btnOKClick(Sender);
end;
procedure TformPrijemkaNadvyroba.FormActivate(Sender: TObject);
begin
edtMnoz.SetFocus;
end;
procedure TformPrijemkaNadvyroba.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure TformPrijemkaNadvyroba.NastavFonty;
var idx: integer;
begin
idx:= 0;
while idx<Self.ComponentCount-1 do
begin
if (Self.Components[idx] is TLabel) then
begin
(Self.Components[idx] as TLabel).Font.Name:= Helios.Font;
(Self.Components[idx] as TLabel).Font.Height:= Helios.FontHeight;
end;
if (Self.Components[idx] is TButton) then
begin
(Self.Components[idx] as TButton).Font.Name:= Helios.Font;
(Self.Components[idx] as TButton).Font.Height:= Helios.FontHeight;
end;
if (Self.Components[idx] is TGroupBox) then
begin
(Self.Components[idx] as TGroupBox).Font.Name:= Helios.Font;
(Self.Components[idx] as TGroupBox).Font.Height:= Helios.FontHeight;
end;
Inc(idx);
end;
end;
procedure TformPrijemkaNadvyroba.FormShow(Sender: TObject);
begin
Self.Icon.Handle:= Helios.MainApplicationIconHandle;
Self.Font.Name:= Helios.Font;
try
NactiParametryHeliosu(Helios, helParams);
except on E:Exception do
Helios.Error(#1'Nelze na<6E><61>st parametry Heliosu pro u<>ivatele.'#1 + CRLF + E.Message + errPlg);
end;
NastavFonty;
with Helios.OpenSQL('SELECT id FROM ' + tblCOrg + ' WHERE CisloOrg=2') do
idCOrgDP:= StrToInt(VarToStr(FieldValues(0)));
idVPr:= 0;
lblPrikaz.Caption:= '';
with Helios.OpenSQL('SELECT pko.idPrikaz,p.RadaPrikaz FROM ' + tblPKObj + ' pko INNER JOIN ' + tblPrikaz + ' p ON (pko.IdPrikaz=p.id) WHERE pko.id=' + IntToStr(idPKObj)) do
if RecordCount>0 then
begin
idVPr:= StrToInt(VarToStr(FieldValues(0)));
lblPrikaz.Caption:= '(p<><70>kaz ' + VarToStr(FieldValues(1)) + ')';
end;
dtPicker.Date:= Now;
if idPKObj>0 then
NactiPolozkuKoopObj;
end;
end.

349
frmUnit9.dfm Normal file
View File

@ -0,0 +1,349 @@
object frmVydejDPrace: TfrmVydejDPrace
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
Caption = ' V'#253'dejka/p'#345'evodka - Nadv'#253'roba (dom'#225'c'#237' pr'#225'ce)'
ClientHeight = 416
ClientWidth = 588
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnActivate = FormActivate
OnClose = FormClose
OnShow = FormShow
TextHeight = 16
object Label1: TLabel
Left = 219
Top = 14
Width = 53
Height = 16
Caption = 'Os.'#269#237'slo :'
end
object lblZamest: TLabel
Left = 356
Top = 14
Width = 3
Height = 13
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 18
Top = 44
Width = 32
Height = 16
Caption = 'Skup.'
end
object Label3: TLabel
Left = 68
Top = 44
Width = 51
Height = 16
Caption = 'Reg.'#269#237'slo'
end
object Label4: TLabel
Left = 356
Top = 43
Width = 49
Height = 16
Caption = 'Mno'#382'stv'#237
end
object lblPopis: TLabel
Left = 67
Top = 87
Width = 3
Height = 13
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object lblSZ: TLabel
Left = 18
Top = 64
Width = 4
Height = 16
end
object Label5: TLabel
Left = 9
Top = 14
Width = 87
Height = 16
Caption = 'Datum v'#253'daje :'
end
object GroupBox1: TGroupBox
Left = 6
Top = 185
Width = 566
Height = 187
Caption = ' Vyd'#225'van'#253' materi'#225'l '
TabOrder = 0
object gMat2: TJvDBGrid
Left = 2
Top = 18
Width = 562
Height = 167
Align = alClient
DataSource = dsMat
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDrawDataCell = gMat2DrawDataCell
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Expanded = False
FieldName = 'SkupZbo'
Visible = True
end
item
Expanded = False
FieldName = 'RegCis'
Width = 111
Visible = True
end
item
Expanded = False
FieldName = 'Popis'
Width = 198
Visible = True
end
item
Expanded = False
FieldName = 'Mnoz'
Visible = True
end
item
Expanded = False
FieldName = 'idKZ'
Visible = False
end
item
Expanded = False
FieldName = 'MnozSkl'
Visible = False
end>
end
end
object selCisZam: TRzButtonEdit
Left = 281
Top = 11
Width = 65
Height = 24
Text = ''
Alignment = taCenter
MaxLength = 6
TabOrder = 1
OnExit = selCisZamExit
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selCisZamButtonClick
end
object selRegCis: TRzButtonEdit
Left = 67
Top = 60
Width = 208
Height = 24
Text = ''
MaxLength = 20
TabOrder = 2
OnExit = selRegCisExit
AltBtnNumGlyphs = 1
ButtonNumGlyphs = 1
OnButtonClick = selRegCisButtonClick
end
object edtMnoz: TRzNumericEdit
Left = 356
Top = 60
Width = 65
Height = 24
MaxLength = 8
TabOrder = 3
OnKeyUp = edtMnozKeyUp
DisplayFormat = ',0;(,0)'
end
object btnAdd: TButton
Left = 444
Top = 58
Width = 35
Height = 25
Caption = 'V'
TabOrder = 4
OnClick = btnAddClick
end
object OK: TButton
Left = 376
Top = 382
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 5
OnClick = OKClick
end
object btnCancel: TButton
Left = 486
Top = 382
Width = 75
Height = 25
Caption = 'Storno'
ModalResult = 2
TabOrder = 6
end
object dtDatum: TRzDateTimePicker
Left = 105
Top = 9
Width = 93
Height = 24
Date = 41402.000000000000000000
Format = 'dd.MM.yyyy'
Time = 41402.000000000000000000
MinDate = 41275.000000000000000000
TabOrder = 7
ShowToday = True
ShowTodayCircle = True
end
object gPolos2: TJvDBGrid
Left = 8
Top = 103
Width = 561
Height = 64
DataSource = dsPolos
TabOrder = 8
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = gPolos2DblClick
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 20
TitleRowHeight = 20
Columns = <
item
Expanded = False
FieldName = 'SkupZbo'
Visible = True
end
item
Expanded = False
FieldName = 'RegCis'
Visible = True
end
item
Expanded = False
FieldName = 'Popis'
Visible = True
end
item
Expanded = False
FieldName = 'Mnoz'
Visible = True
end
item
Expanded = False
FieldName = 'idKZ'
Visible = False
end>
end
object dsPolos: TDataSource
DataSet = vtPolos
Left = 80
Top = 130
end
object dsMat: TDataSource
DataSet = vtMat
Left = 154
Top = 338
end
object vtPolos: TFDMemTable
AfterPost = vtPolosAfterPost
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 132
Top = 128
object vtPolosSkupZbo: TStringField
FieldName = 'SkupZbo'
Required = True
Size = 3
end
object vtPolosRegCis: TStringField
FieldName = 'RegCis'
Required = True
Size = 30
end
object vtPolosPopis: TStringField
FieldName = 'Popis'
Size = 80
end
object vtPolosMnoz: TFloatField
FieldName = 'Mnoz'
Required = True
end
object vtPolosidKZ: TIntegerField
FieldName = 'idKZ'
Required = True
end
end
object vtMat: TFDMemTable
FetchOptions.AssignedValues = [evMode]
FetchOptions.Mode = fmAll
ResourceOptions.AssignedValues = [rvSilentMode]
ResourceOptions.SilentMode = True
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
UpdateOptions.CheckRequired = False
UpdateOptions.AutoCommitUpdates = True
Left = 198
Top = 336
object vtMatSkupZbo: TStringField
FieldName = 'SkupZbo'
Required = True
Size = 3
end
object vtMatRegCis: TStringField
FieldName = 'RegCis'
Required = True
Size = 30
end
object vtMatPopis: TStringField
FieldName = 'Popis'
Size = 80
end
object vtMatMnoz: TFloatField
FieldName = 'Mnoz'
Required = True
end
object vtMatidKZ: TIntegerField
FieldName = 'idKZ'
Required = True
end
object vtMatMnozSkl: TFloatField
FieldName = 'MnozSkl'
end
end
end

835
frmUnit9.pas Normal file
View File

@ -0,0 +1,835 @@
unit frmUnit9;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
RzEdit, Vcl.Mask, RzBtnEdt, ddPlugin_TLB, Vcl.ComCtrls,
RzDTP, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Comp.DataSet, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, Data.DB,
FireDAC.Comp.Client;
const
tblEvidNadvyroby = '[dbo].[_TabEvidNadvyroby]';
tblEvidNadvyrVPr = '[dbo].[_TabEvidNadvyrPrikaz]';
druhPrevVydejDP = '450';
druhPrevPrijDP = '250';
sklVyroba = '200';
sklFin = '210';
sklDP = '20000105';
errPlg = #13#10 + '(plgLOVATO.unit9)';
type
TfrmVydejDPrace = class(TForm)
GroupBox1: TGroupBox;
selCisZam: TRzButtonEdit;
selRegCis: TRzButtonEdit;
edtMnoz: TRzNumericEdit;
dsPolos: TDataSource;
dsMat: TDataSource;
vtPolos: TFDMemTable;
vtMat: TFDMemTable;
Label1: TLabel;
lblZamest: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
lblPopis: TLabel;
lblSZ: TLabel;
btnAdd: TButton;
OK: TButton;
btnCancel: TButton;
Label5: TLabel;
dtDatum: TRzDateTimePicker;
vtPolosSkupZbo: TStringField;
vtPolosRegCis: TStringField;
vtPolosPopis: TStringField;
vtPolosMnoz: TFloatField;
vtPolosidKZ: TIntegerField;
vtMatSkupZbo: TStringField;
vtMatRegCis: TStringField;
vtMatPopis: TStringField;
vtMatMnoz: TFloatField;
vtMatidKZ: TIntegerField;
vtMatMnozSkl: TFloatField;
gPolos2: TJvDBGrid;
gMat2: TJvDBGrid;
procedure FormShow (Sender: TObject);
procedure btnAddClick (Sender: TObject);
procedure selRegCisButtonClick (Sender: TObject);
procedure vtPolosAfterPost (DataSet: TDataSet);
procedure selCisZamButtonClick (Sender: TObject);
procedure OKClick (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure edtMnozKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormActivate (Sender: TObject);
procedure selCisZamExit (Sender: TObject);
procedure selRegCisExit (Sender: TObject);
procedure gPolos2DblClick (Sender: TObject);
procedure gMat2DrawDataCell (Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
private
procedure VytvorTabulkyAGridy;
procedure NastavFonty;
function VratKZSZ(id: integer): ShortString;
function VratKZNazev1(id: integer): ShortString;
function VratKZRegCis(id: integer): ShortString;
public
Helios: IHelios;
end;
var
frmVydejDPrace: TfrmVydejDPrace;
idKZ, cZam, idZam: integer;
mnoz: Extended;
vOle1,vOle2: OleVariant;
implementation
uses Vcl.Clipbrd, helUtils;
{$R *.dfm}
procedure TfrmVydejDPrace.VytvorTabulkyAGridy;
begin
if not vtPolos.Active then
vtPolos.Open;
vtPolos.EmptyDataset;
if not vtMat.Active then
vtMat.Open;
vtMat.EmptyDataset;
end;
function TfrmVydejDPrace.VratKZRegCis(id: Integer): ShortString;
begin
result:= '';
if (id>0) then
with Helios.OpenSQL('SELECT RegCis FROM ' + tblKZ + ' WHERE id=' + IntToStR(id)) do
if (RecordCount=1) then
result:= VarToStr(FieldValues(0));
end;
function TfrmVydejDPrace.VratKZSZ (id: Integer): ShortString;
begin
result:= '';
if (id>0) then
with Helios.OpenSQL('SELECT SkupZbo FROM ' + tblKZ + ' WHERE id=' + IntToStR(id)) do
if (RecordCount=1) then
result:= VarToStr(FieldValues(0));
end;
function TfrmVydejDPrace.VratKZNazev1 (id: Integer): ShortString;
begin
result:= '';
if (id>0) then
with Helios.OpenSQL('SELECT Nazev1 FROM ' + tblKZ + ' WHERE id=' + IntToStR(id)) do
if (RecordCount=1) then
result:= VarToStr(FieldValues(0));
end;
procedure TfrmVydejDPrace.btnAddClick (Sender: TObject);
var lSQL: WideString;
mn: Extended;
begin
if (vtPolos.RecordCount>0) then
begin
Helios.Error(#1'Na doklad lze uložit jen 1 položku.'#1);
Exit;
end;
if (edtMnoz.Value>0) then
begin
if (idKZ>0) then
begin
mn:= 0;
lSQL:= 'SELECT ISNULL(SUM(kusy_zive),0) FROM ' + tblPrikaz + ' WHERE StavPrikazu IN (30,40,50) AND IDTabKmen=' + IntToStr(idKZ);
with Helios.OpenSQL(lSQL) do
if not(VarIsNull(FieldValues(0))) then
mn:= StrToFloat(VarToStr(FieldValues(0)))
else
mn:= 0;
if (mn<edtMnoz.Value) then
begin
lSQL:= #1'Na Výrobních příkazech není dostatek živých kusů k evidenci,' + CRLF + 'je nutno přidělat nový příkaz na ';
lSQL:= lSQL + FloatToStr(edtMnoz.Value-mn) + ' ks'#1 + CRLF + CRLF + 'Otevřít přehled Výrobních příkazů ?';
if Helios.YesNo(lSQL,false) then
Helios.OpenBrowse(bidVyrPrik,'');
Exit;
end;
vtPolos.Open;
selRegCis.Text:= Trim(selRegCis.Text);
if vtPolos.Locate('idKZ',VarArrayOf([idKZ]),[loCaseInsensitive]) then
begin
vtPolos.Edit;
mnoz:= vtPolos.FieldByName('Mnoz').AsExtended + edtMnoz.Value;
end
else
begin
mnoz:= edtMnoz.Value;
vtPolos.Insert;
vtPolos.FieldByName('SkupZbo').AsString:= lblSZ.Caption;
vtPolos.FieldByName('RegCis').AsString:= selRegCis.Text;
vtPolos.FieldByName('Popis').AsString:= lblPopis.Caption;
vtPolos.FieldByName('idKZ').AsInteger:= idKZ;
end;
vtPolos.FieldByName('Mnoz').AsExtended:= mnoz;
vtPolos.Post;
end;
selRegCis.Text:= '';
lblPopis.Caption:= '';
lblSZ.Caption:= '';
edtMnoz.Value:= 0;
selRegCis.SetFocus;
end
else
Helios.Error(#1'Nelze přidat nulové množství.'#1);
end;
procedure TfrmVydejDPrace.edtMnozKeyUp (Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key=VK_RETURN) then
if (edtMnoz.Value<>0) then
btnAddClick (Sender);
end;
procedure TfrmVydejDPrace.FormActivate (Sender: TObject);
begin
selCisZam.SetFocus;
end;
procedure TfrmVydejDPrace.FormClose (Sender: TObject; var Action: TCloseAction);
begin
if vtMat.Active then
vtMat.Close;
if vtPolos.Active then
vtPolos.Close;
Action:= caFree;
end;
procedure TfrmVydejDPrace.FormShow (Sender: TObject);
begin
Application.Handle := Helios.MainApplicationHandle;
Application.Icon.Handle := Helios.MainApplicationIconHandle;
// cxSetResourceString(@scxGridNoDataInfoText,'<Neexistují data k zobrazení>');
VytvorTabulkyAGridy;
NastavFonty;
idKZ:= 0;
cZam:= 0;
idZam:= 0;
dtDatum.Date:= Now;
end;
procedure TfrmVydejDPrace.OKClick (Sender: TObject);
var locSQL, podm, mn, sklVyd: string;
idNadvyr, idDZshift1, idDZ1, idObd, idSS1, idPZ1, idKJ: integer;
idDZshift2, idDZ2, idSS2, idPZ2: integer;
idx, i: integer;
qry: IHeQuery;
realVyd, realPrij: boolean;
matOK: boolean;
oVar: OleVariant;
begin
dtDatum.Time:= Now;
if (cZam=0) or (selCisZam.Text='') then
Helios.Error(#1'Není vybrán zaměstnanec kterému bude materiál vydán.'#1)
else
begin
if (vtMat.RecordCount>0) then
begin
matOK:= true;
i:= vtMat.RecNo; // vMat.DataController.FocusedRecordIndex;
gMat2.BeginUpdate;
for idx:= 1 to vtMat.RecordCount do
begin
vtMat.RecNo:= idx;
locSQL:= 'SELECT Mnozstvi FROM ' + tblSS + ' WHERE IDSklad=N' + QuotedStr(sklFin);
locSQL:= locSQL + ' AND IdKmenZbozi=' + vtMat.FieldByName('idKZ').AsString;
with Helios.OpenSQL(locSQL) do
begin
if (RecordCount=1) then
begin
mn:= VarToStr(FieldValues(0));
mn:= StringReplace(mn,',','.',[rfReplaceAll]);
if (StrToFloat(mn)<vtMat.FieldByName('Mnoz').AsFloat) then
matOK:= false;
end
else
matOK:= false;
end;
end;
vtMat.RecNo:= i;
gMat2.EndUpdate;
end;
if not(matOK) then
begin
Helios.Error(#1'Některý materiál požadovaný pro nadvýrobu není dostupný.'#1);
Exit;
end;
ReseedTable(Helios,tblDZ);
ReseedTable(Helios,tblPZ);
ReseedTable(Helios,tblEvidNadvyroby);
ReseedTable(Helios,tblEvidNadvyrVPr);
gPolos2.BeginUpdate;
idDZ2:= vtPolos.RecNo;
for idDZ1:=1 to vtPolos.RecordCount do
begin
vtPolos.RecNo:= idDZ1;
mn:= StringReplace(vtPolos.FieldByName('Mnoz').AsString,',','.',[rfReplaceAll]);
locSQL:= 'INSERT ' + tblEvidNadvyroby + ' (CisloZam, IdKmenZbozi, Mnozstvi, DatPorizeni) VALUES (';
locSQL:= locSQL + selCisZam.Text + ',' + vtPolos.FieldByName('IdKZ').AsString + ',';
locSQL:= locSQL + mn + ',CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104) )';
locSQL:= locSQL + CRLF + 'SELECT SCOPE_IDENTITY()';
idNadvyr:= 0;
try
with Helios.OpenSQL(locSQL) do
if not(VarIsNull(FieldValues(0))) then
idNadvyr:= StrToInt(VarToStr(FieldValues(0)));
except on E:Exception do
Helios.Error(#1'Nelze uložit požadovanou evidenci Nadvýroby.'#1 + CRLF + E.Message + CRLF + locSQL);
end;
end;
vtPolos.RecNo:= idDZ2;
gPolos2.EndUpdate;
idDZ1:= 0;
idDZ2:= 0;
idObd:= 0;
locSQL:= 'DECLARE @obd INT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateToStr(dtDatum.Date)) + ',104)';
locSQL:= locSQL + 'EXEC @obd=dbo.hp_GetObdobiDleDatumu @dt,0,null,null,0,0' + CRLF + 'SELECT @obd';
with Helios.OpenSQL(locSQL) do
idObd:= StrToInt(VarToStr(FieldValues(0)));
if (idObd>0) AND (vtMat.RecordCount>0) then
begin
// zaloz prevodku/vydejku na 200
{
idDZshift1:= 0; // posunuti cisla brane z nastaveni TabDruhDokZboDef
locSQL:= 'SELECT dzd.PosledniPC FROM ' + tblDDZdef + ' dzd INNER JOIN ' + tblDDZ + ' dz';
locSQL:= locSQL + ' ON (dz.ID=dzd.idDruhDZ) WHERE dzd.IdObdobi=' + IntToStr(idObd);
locSQL:= locSQL + ' AND dz.DruhPohybuZbo=4 AND dz.RadaDokladu=N' + QuotedStr(druhPrevVydejDP);
qry:= Helios.OpenSQL(locSQL);
if qry.RecordCount>0 then
idDZshift1:= StrToInt(VarToStr(qry.FieldValues(0)));
podm:= 'DruhPohybuZbo=4 AND RadaDokladu=N' + QuotedStr(druhPrevVydejDP) + ' AND IDSklad=N' + QuotedStr(sklVyroba);
podm:= podm + ' AND Obdobi=' + IntToStr(idObd);
locSQL:= 'EXEC dbo.hp_NajdiPrvniVolny N' + QuotedStr(tblDZ) + ',N' + QuotedStr('PoradoveCislo');
locSQL:= locSQL + ',' + IntToStr(idDZshift1) + ',99999999,N' + QuotedStr(podm) + ',0,1';
idDZ1:= 0;
qry:= Helios.OpenSQL(locSQL);
if qry.RecordCount>0 then
idDZ1:= StrToInt(VarToStr(qry.FieldValues(0)));
if (idDZ1=0) or (idDZ1=idDZshift1) then
idDZ1:= idDZshift1 + 1;
}
sklVyd:= Trim('210 ');
{
locSQL:= 'TabStrom.Cislo LIKE ''2%'' AND TabStrom.ID NOT IN (SELECT IDStrom FROM dbo.TabStromDef WHERE (Blokovano=1 OR Zakazano=1) AND IdObdobi=' + IntToStr(Helios.Obdobi) + ')';
if Helios.Prenos(4, 'Cislo', oVar, locSQL, 'Materiál vydat ze skladu', true) then
sklVyd:= VarToStr(oVar);
}
locSQL:= 'DECLARE @dt DATETIME,@IDcko INT' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertHlavickyOZ @IDcko OUT,@RadaDokladu=N' + QuotedStr(druhPrevVydejDP);
locSQL:= locSQL + ',@DruhPohybu=4,@CisloOrg=2,@Insert=1,@Sklad=N' + QuotedStr(sklVyd) + ',@PC=null';
locSQL:= locSQL + ',@DatumPorizeni=@dt' + CRLF + 'SELECT @IDcko';
idDZ1:= 0;
with Helios.OpenSQL(locSQL) do
if RecordCount>0 then
idDZ1:= StrToInt(VarToStr(FieldValues(0)));
if (idDZ1>0) then
begin
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=' + IntToStr(Helios.UserId) + ' WHERE id=' + IntToStr(idDZ1));
// polozky prevodky/vydejky
vtMat.First;
while not(vtMat.Eof) do
begin
idSS1:= 0;
with Helios.OpenSQL('SELECT id FROM ' + tblSS + ' WHERE IdSklad=N' + QuotedStr(sklVyd) + ' AND IdKmenZbozi=' + vtMat.FieldByName('idKZ').AsString) do
if RecordCount>0 then
idSS1:= StrToInt(VarToStr(FieldValues(0)));
if (idSS1=0) then
begin
locSQL:= 'DELCARE @idSS INT' + CRLF + 'INSERT ' + tblSS + ' (IDSklad,IDKmenZbozi) VALUES (N' + QuotedStr(sklVyd);
locSQL:= locSQL + ',' + vtMat.FieldByName('idKZ').AsString + ')' + CRLF + 'SELECT SCOPE_IDENTITY()';
with Helios.OpenSQL(locSQL) do
idSS1:= StrToInt(VarToStr(FieldValues(0)));
end;
locSQL:= 'DECLARE @IDcko INT' + CRLF + 'EXEC dbo.hp_InsertPolozkyOZ @IDcko OUT,';
locSQL:= locSQL + '@IDDoklad=' + IntToStr(idDZ1) + ',@DruhPohybu=4,@CisloOrg=2,@IDZboSklad=' + IntToStr(idSS1);
locSQL:= locSQL + ',@PovolitDuplicitu=1,@Mnozstvi=' + StringReplace(vtMat.FieldByName('Mnoz').AsString,'','.',[rfReplaceAll]);
locSQL:= locSQL + ',@Selectem=0,@Mena=N' + QuotedStr('CZK') + ',@Kurz=1,@JednotkaMeny=1,@KurzEuro=1,@SazbaSD=0,@SazbaDPH=0';
locSQL:= locSQL + ',@ZakazanoDPH=0,@VstupniCena=0' + CRLF + 'SELECT @IDcko';
idPZ1:= 0;
with Helios.OpenSQL(locSQL) do
idPZ1:= StrToInt(VarToStr(FieldValues(0)));
vtMat.Next;
end;
if (idDZ1>0) then
begin
Helios.ExecSQL('UPDATE ' + tblEvidNadvyroby + ' SET IdVydejkaMat=' + IntToStR(idDZ1) + ' WHERE id=' + IntToStr(idNadvyr));
try
Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyVydejky ' + IntToStr(idDZ1));
locSQL:= 'UPDATE ' + tblDZ + ' SET TypPrevodky=N' + QuotedStr(druhPrevPrijDP) + ',IdSkladPrevodu=N' + QuotedStr(sklDP);
locSQL:= locSQL + ',CisloZam=' + IntToStr(cZam) + ',DruhPohybuPrevod=0,BlokovaniEditoru=null WHERE id=' + IntToStr(idDZ1);
Helios.ExecSQL(locSQL);
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ1) + ',@AktualizaceSlev=0');
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZ1));
except on E:Exception do
begin
Helios.Error(#1'Chyba při nápočtu cen dokladu převodky/výdejky.'#1 + CRLF + E.Message + CRLF + locSQL + errPlg);
idKJ:= helUtils.ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Chyba při nápočtu cen dokladu převodky/výdejky Nadvýroby');
if idKJ>0 then
Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
idKJ:= 0;
Exit;
end;
end;
podm:= 'DruhPohybuZbo=0 AND RadaDokladu=N' + QuotedStr(druhPrevPrijDP) + ' AND IDSklad=N' + QuotedStr(sklDP);
podm:= podm + ' AND Obdobi=' + IntToStr(idObd);
idDZ2:= helUtils.NajdiPrvniVolny(Helios,tblDZ,'PoradoveCislo','0',druhPrevPrijDP,IntToStr(idObd),podm);
{
idDZshift2:= 0; // posunuti cisla brane z nastaveni TabDruhDokZboDef
locSQL:= 'SELECT dzd.PosledniPC FROM ' + tblDDZdef + ' dzd INNER JOIN ' + tblDDZ + ' dz';
locSQL:= locSQL + ' ON (dz.ID=dzd.idDruhDZ) WHERE dzd.IdObdobi=' + IntToStr(idObd);
locSQL:= locSQL + ' AND dz.DruhPohybuZbo=0 AND dz.RadaDokladu=N' + QuotedStr(druhPrevPrijDP);
qry:= Helios.OpenSQL(locSQL);
if qry.RecordCount>0 then
idDZshift2:= StrToInt(VarToStr(qry.FieldValues(0)));
podm:= 'DruhPohybuZbo=0 AND RadaDokladu=N' + QuotedStr(druhPrevPrijDP) + ' AND IDSklad=N' + QuotedStr(sklDP);
podm:= podm + ' AND Obdobi=' + IntToStr(idObd);
locSQL:= 'EXEC dbo.hp_NajdiPrvniVolny N' + QuotedStr(tblDZ) + ',N' + QuotedStr('PoradoveCislo');
locSQL:= locSQL + ',' + IntToStr(idDZshift2) + ',99999999,N' + QuotedStr(podm) + ',0,1';
idDZ2:= 0;
qry:= Helios.OpenSQL(locSQL);
if qry.RecordCount>0 then
idDZ2:= StrToInt(VarToStr(qry.FieldValues(0)));
if (idDZ2=0) or (idDZ2=idDZshift2) then
idDZ2:= idDZshift2 + 1;
}
{ beg: vypnuti tvorby nasledne prijemky
locSQL:= 'DECLARE @dt DATETIME,@IDcko INT' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)';
locSQL:= locSQL + CRLF + 'EXEC dbo.hp_InsertHlavickyOZ @IDcko OUT,@RadaDokladu=N' + QuotedStr(druhPrevPrijDP);
locSQL:= locSQL + ',@DruhPohybu=0,@CisloOrg=0,@Insert=1,@Sklad=N' + QuotedStr(sklDP) + ',@PC=' + IntToStr(idDZ2);
locSQL:= locSQL + ',@DatumPorizeni=@dt' + CRLF + 'SELECT @IDcko';
idDZ2:= 0;
with Helios.OpenSQL(locSQL) do
if (RecordCount>0) then
idDZ2:= StrToInt(VarToStr(FieldValues(0)));
end: vypnuti tvorby nasledne prijemky }
if (1=0) then { vypnuti tvorby nasledne prijemky (idDZ2>0) }
begin
try
locSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabTempUziv') + ') IS NULL CREATE TABLE #TabTempUziv(Tabulka';
locSQL:= locSQL + ' NVARCHAR(255) NOT NULL, SCOPE_IDENTITY INT NULL, Datum DATETIME NULL)' + CRLF;
locSQL:= locSQL + 'EXEC dbo.hp_generuj_navazny_doklad @IDDokladDst=' + IntToStr(idDZ2) + ',@IDDokladSrc=' + IntToStr(idDZ1);
locSQL:= locSQL + ',@CisloOrgCil=0,@MUcil=null,@KurzCil=1,@JednotkaMenyCil=1,@MenaCil=N' + QuotedStr('CZK');
locSQL:= locSQL + ',@Returnem=1,@KurzEuroCil=0,@CisloZakCil=null,@NOkruhCil=null,@StredNakladCil=null,@StredVynosCil=null';
locSQL:= locSQL + ',@FormaDopravyCil=null,@VozidloCil=null,@ObjednavkaCil=null,@PopisDodavkyCil=N' + QuotedStr('Převod materiálu');
locSQL:= locSQL + ',@NavaznyDobropisCil=null,@ZamestnanecCil=null,@DodFakCil=null,@Nasobek=1,@SlevaCil=0';
Helios.ExecSQL(locSQL);
except on E:Exception do
begin
try
locSQL:= 'FROM ' + tblPZ + ' WHERE IdDoklad=' + IntToStr(idDZ2);
Helios.ExecSQL('DELETE FROM dbo.TabPohybyZboziSD WHERE id IN (SELECT id ' + locSQL + ')');
Helios.ExecSQL('DELETE ' + locSQL);
Helios.ExecSQL('DELETE FROM dbo.TabDokZboDodatek WHERE IDHlavicky=' + IntToStr(idDZ2));
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET NavaznyDoklad=null WHERE id='+ IntToStr(idDZ1));
Helios.ExecSQL('DELETE FROM ' + tblDZ + ' WHERE Id=' + IntToStr(idDZ2));
Helios.Error(#1'Chyba při generování návazného dokladu.'#1 + CRLF + E.Message + errPlg);
idKJ:= ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze generovat následný doklad Výdejky Nadvýroby');
if (idKJ>0) then
Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
idKJ:= 0;
except on E:Exception do
begin
Helios.Error(#1 + E.Message + #1);
Exit;
end;
end;
Exit;
end;
end;
Helios.ExecSQL('EXEC dbo.ep_DoplnKooperacniCenyVydejky ' + IntToStr(idDZ2));
Helios.ExecSQL('EXEC dbo.hp_VypCenOZPolozek_IDDokladu @IDDoklad=' + IntToStr(idDZ2) + ',@AktualizaceSlev=0');
Helios.ExecSQL('UPDATE ' + tblDZ + ' SET BlokovaniEditoru=NULL WHERE id=' + IntToStr(idDZ2));
realVyd:= false;
// if idDZ2>0 then
// begin
try
locSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)' + CRLF;
locSQL:= locSQL + 'EXEC dbo.hp_Realizuj_Vydej @ID=' + IntToStr(idDZ1) + ',@DatumRealizace=@dt,@Uzivatel=' + IntToStr(Helios.UserId) + ',@Hlidat=0,@BylaChyba=@chyba OUT';
locSQL:= locSQL + CRLF + 'SELECT @chyba';
with Helios.OpenSQL(locSQL) do
if not VarIsNull(FieldValues(0)) then
if (LowerCase(VarToStr(FieldValues(0)))='false') then
realVyd:= true;
except on E:Exception do
begin
// Clipboard.AsText:= locSQL;
try
Helios.Error(#1'Nelze realizovat Převodku/výdejku'#1 + CRLF + E.Message + errPlg);
{
idKJ:= helUtils.ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat Převodku/výdejku Nadvýroby.');
if idKJ>0 then
Helios.ExecSQL('INSERT INTO ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
}
idKJ:= 0;
except on E:Exception do
begin
Helios.Error(#1 + E.Message + #1);
Exit;
end;
end;
Exit;
end;
end;
// end;
idDZ2:= 0;
realPrij:= false;
if realVyd then
begin
try
locSQL:= 'DECLARE @chyba BIT,@dt DATETIME' + CRLF + 'SET @dt=CONVERT(datetime,N' + QuotedStr(DateTimeToStr(dtDatum.DateTime)) + ',104)' + CRLF;
locSQL:= locSQL + 'EXEC dbo.hp_Realizuj_Prijem @ID=' + IntToStr(idDZ2) + ',@DatumRealizace=@dt,@Uzivatel=' + IntToStr(Helios.UserId) + ',@BylaChyba=@chyba OUT';
locSQL:= locSQL + CRLF + 'SELECT @chyba';
with Helios.OpenSQL(locSQL) do
if not VarIsNull(FieldValues(0)) then
if (LowerCase(VarToStr(FieldValues(0)))='false') then
realPrij:= true;
except on E:Exception do
begin
// ClipBoard.AsText:= locSQL;
Helios.Error(#1'Chyba při realizaci Převodky/příjemky pro Nadvýrobu.'#1 + CRLF + E.Message + CRLF + errPlg);
idKJ:= helUtils.ZapisDoKJ(Helios,'HEO','','POR','','Plugin plgLOVATO','Nelze realizovat příjemku Převodku/příjemku Nadvýroby');
if (idKJ>0) then
Helios.ExecSQL('INSERT ' + tblKJPozn + ' (IDKontJednani,Nazev,Poznamka) VALUES (' + IntToStr(idKJ) + ',N'
+ QuotedStr('Podrobnosti.unit9') + ',N' + QuotedStr(E.Message + CRLF + locSQL) + ')');
idKJ:= 0;
end;
end;
end;
end;
end;
end;
Helios.Refresh(true);
Close;
end;
end;
end;
procedure TfrmVydejDPrace.NastavFonty;
var idx: integer;
HelPars: THeliosParams;
begin
NactiParametryHeliosu(Helios,HelPars);
idx:= 0;
{
while idx<Self.ComponentCount-1 do
begin
if (Self.Components[idx] is TLabel) then
begin
(Self.Components[idx] as TLabel).Font.Name:= HelPars.FontName;
(Self.Components[idx] as TLabel).Font.Size:= HelPars.FontSize;
end;
if (Self.Components[idx] is TButton) then
begin
(Self.Components[idx] as TButton).Font.Name:= HelPars.FontName;
(Self.Components[idx] as TButton).Font.Size:= HelPars.FontSize;
end;
if (Self.Components[idx] is TGroupBox) then
begin
(Self.Components[idx] as TGroupBox).Font.Name:= HelPars.FontName;
(Self.Components[idx] as TGroupBox).Font.Size:= HelPars.FontSize;
end;
if (Self.Components[idx] is TButton) then
begin
(Self.Components[idx] as TButton).Font.Name:= HelPars.FontName;
(Self.Components[idx] as TButton).Font.Size:= HelPars.FontSize;
end;
Inc(idx);
end;
}
end;
procedure TfrmVydejDPrace.selCisZamButtonClick (Sender: TObject);
begin
if Helios.Prenos(bidCisZam,'Cislo',vOle1,'','Vyberte zaměstnance',true) then
begin
cZam:= StrToInt(VarToStr(vOle1));
with Helios.OpenSQL('SELECT id,PrijmeniJmeno FROM ' + tblCZam + ' WHERE Cislo=' + IntToStr(cZam)) do
begin
idZam:= StrToInt(VarToStr(FieldValues(0)));
lblZamest.Caption:= VarToStr(FieldValues(1));
end;
selCisZam.Text:= StringOfChar('0',6-Length(IntToStr(cZam))) + IntToStr(cZam);
end
else
begin
cZam:= 0;
idZam:= 0;
Helios.Error(#1'Nebyl vybrán žádný zaměstnanec.'#1);
end;
end;
procedure TfrmVydejDPrace.selCisZamExit (Sender: TObject);
begin
if selCisZam.Text<>'' then
begin
with Helios.OpenSQL('SELECT id,PrijmeniJmeno,Cislo FROM ' + tblCZam + ' WHERE Cislo=' + selCisZam.Text) do
if RecordCount>0 then
begin
begin
idZam:= StrToInt(VarToStr(FieldValues(0)));
lblZamest.Caption:= VarToStr(FieldValues(1));
cZam:= StrToInt(VarToStr(FieldValues(2)));
end;
selCisZam.Text:= StringOfChar('0',6-Length(IntToStr(cZam))) + IntToStr(cZam);
end;
end;
end;
procedure TfrmVydejDPrace.selRegCisButtonClick (Sender: TObject);
var podm: WideString;
begin
// podm:= 'TabKmenZbozi.SkupZbo IN (SELECT sz.id FROM TabSkupinyZbozi sz INNER JOIN TabSkupinyZbozi_EXT sze ON (sz.id=sze.id)';
// podm:= podm + ' WHERE sze._JeVyroba=1) AND';
{ podm:= podm + ' TabKmenZbozi.id IN (';
podm:= podm + 'SELECT kz.id FROM TabPolKoopObj pko INNER JOIN TabPrikaz p ON (pko.IDPrikaz=p.id)';
podm:= podm + ' INNER JOIN TabKmenZbozi kz ON (p.IDTabKmen=kz.id) WHERE pko.id IN (SELECT po.id FROM TabPolKoopObj po';
podm:= podm + ' WHERE po.IDObjednavky IN (SELECT o.id FROM TabKoopObj o WHERE o.IDOrganizace=(SELECT id FrOM TabCisOrg WHERE CisloOrg=2)';
podm:= podm + ' AND o.Splneno=0 AND o.realizovano=1)) GROUP BY kz.id)';
}
podm:= '';
if Helios.Prenos(100089,'IdTabKmen',vOle1,podm,'Vyberte dílec/polosestavu',true) then
begin
idKZ:= StrToInt(VarToStr(vOle1));
lblSZ.Caption:= VratKZSZ(idKZ);
selRegCis.Text:= VratKZRegCis(idKZ);
lblPopis.Caption:= VratKZNazev1(idKZ);
edtMnoz.SetFocus;
end
else
Helios.Error(#1'Nebyla vybrána žádná karta.'#1);
end;
procedure TfrmVydejDPrace.selRegCisExit (Sender: TObject);
var podm: ShortString;
begin
selRegCis.Text:= Trim(selRegCis.Text);
if (selRegCis.Text='') then
Exit;
with Helios.OpenSQL('SELECT id FROM ' + tblKZ + ' WHERE Dilec=1 AND RegCis LIKE N''%' + selRegCis.Text + '%''') do
begin
if (RecordCount=1) then
idKZ:= StrToInt(VarToStr(FieldValues(0)));
if (RecordCount>1) then
begin
podm:= 'TabKmenZbozi.RegCis LIKE N''%' + selRegCis.Text + '%'' AND TabKmenZbozi.Dilec=1';
if Helios.Prenos(bidKZ,'id',vOle1,podm,'Zboží a služby',True) then
idKZ:= StrToInt(VarToStr(FieldValues(0)));
end;
lblSZ.Caption:= VratKZSZ(idKZ);
lblPopis.Caption:= VratKZNazev1(idKZ);
selRegCis.Text:= VratKZRegCis(idKZ);
end;
end;
procedure TfrmVydejDPrace.gMat2DrawDataCell (Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
var m,s: Extended;
begin
if not(TryStrToFloat(gMat2.DataSource.Dataset.FieldByName('Mnoz').AsString, m)) then
m:= 0;
if not(TryStrToFloat(gMat2.DataSource.DataSet.FieldByName('MnozSkl').AsString, s)) then
s:= 0;
if (s<=m) then
gMat2.Canvas.Brush.Color:= $005D5DFC
else
gMat2.Canvas.Brush.Color:= $0;
end;
procedure TfrmVydejDPrace.gPolos2DblClick (Sender: TObject);
var mn,jc: Extended;
begin
mn:= vtPolos.FieldByName('Mnoz').AsExtended;
jc:= 0;
if FormMnozstviCena('Změna množství',mn,jc,true,false) then
if (mn<>0) then
begin
vtPolos.Edit;
vtPolos.FieldByName('Mnoz').AsExtended:= mn;
vtPolos.Post;
end;
end;
procedure TfrmVydejDPrace.vtPolosAfterPost (DataSet: TDataSet);
var idMat: integer;
mnoz,mnozNiz: Extended;
idKZNiz: integer;
sz,regcis,pop: ShortString;
iRowPolos: integer;
lp: integer;
locSQL: WideString;
rozp: IHeQuery;
begin
iRowPolos:= vtPolos.RecNo;
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#MatPozadavky') + ') IS NOT NULL DROP TABLE #MatPozadavky' + CRLF;
locSQL:= locSQL + 'CREATE TABLE #MatPozadavky(ID INT IDENTITY NOT NULL, IdKZMat INT NOT NULL,';
locSQL:= locSQL + 'MnozNizsi NUMERIC(19,6) NOT NULL DEFAULT 0, MnozVyssi NUMERIC(19,6) NOT NULL DEFAULT 0)';
Helios.ExecSQL(locSQL);
{
locSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen' + CRLF;
locSQL:= locSQL + 'CREATE TABLE #TabPrKVazbyGen(ID INT IDENTITY NOT NULL, Generuj BIT NOT NULL DEFAULT 1,';
locSQL:= locSQL + 'PoKorekciDat BIT NOT NULL DEFAULT 0, IDPrKV INT NOT NULL, Doklad INT NOT NULL, IDPrikaz INT NOT NULL,';
locSQL:= locSQL + 'Prednastaveno BIT NOT NULL DEFAULT 1, Sklad NVARCHAR(30) COLLATE database_default NULL,';
locSQL:= locSQL + 'VyrStredisko NVARCHAR(30) COLLATE database_default NULL, IDPracoviste INT NULL,';
locSQL:= locSQL + 'mnoz_zad NUMERIC(19, 6) NOT NULL DEFAULT 0, Mnoz_nepotrebne NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'Mnoz_skut_realizovane NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_real NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'Mnoz_odv NUMERIC(19, 6) NOT NULL DEFAULT 0, Cena_odv NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'MnozstviMax NUMERIC(19, 6) NULL, MnozstviPoz NUMERIC(19, 6) NOT NULL, PomMnozPoz NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'IDPohZbo INT NULL, priorita INT NOT NULL DEFAULT 0, vyssi INT NOT NULL, nizsi INT NOT NULL,';
locSQL:= locSQL + 'DavkaTPV NUMERIC(19, 6) NOT NULL DEFAULT 1, pozice NVARCHAR(100) COLLATE database_default NULL DEFAULT '''',';
locSQL:= locSQL + 'Operace NCHAR(4) COLLATE database_default NULL DEFAULT '''', FixniMnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'mnozstvi NUMERIC(19, 6) NOT NULL DEFAULT 1, ProcZtrat NUMERIC(5, 2) NOT NULL DEFAULT 0,';
locSQL:= locSQL + 'mnozstviSeZtratou NUMERIC(19, 6) NOT NULL DEFAULT 0, Prirez NUMERIC(19, 6) NOT NULL DEFAULT 1,';
locSQL:= locSQL + 'Poznamka NTEXT COLLATE database_default NULL, pom_pomer_A NUMERIC(19, 6) NULL,';
locSQL:= locSQL + 'pom_pomer_B NUMERIC(19, 6) NULL, Dodavatel INT NULL)';
Helios.ExecSQL(locSQL);
}
vtPolos.First;
while not(vtPolos.Eof) do
begin
idKZ:= vtPolos.FieldByName('idKZ').asInteger;
mnoz:= vtPolos.FieldByName('Mnoz').AsFloat;
rozp:= Helios.OpenSQL('SELECT nizsi,Mnozstvi FROM ' + tblKVaz + ' WHERE vyssi=' + IntToStr(idKZ));
if rozp.RecordCount>0 then
begin
rozp.First;
while not(rozp.EOF) do
begin
locSQL:= 'INSERT #MatPozadavky VALUES (' + VarToStr(rozp.FieldValues(0)) + ',';
mnozNiz:= StrToFloat(VarToStr(rozp.FieldValues(1)));
locSQL:= locSQL + StringReplace(FloatToStr(mnozNiz),',','.',[rfReplaceAll]) + ',';
locSQL:= locSQL + StringReplace(FloatToStr(mnoz),',','.',[rfReplaceAll]) + ')';
Helios.ExecSQL(locSQL);
rozp.Next;
end;
end;
vtPolos.Next;
end;
rozp:= Helios.OpenSQL('SELECT * FROM #MatPozadavky');
if rozp.RecordCount>0 then
begin
idMat:= rozp.RecordCount;
if (vtPolos.RecordCount>0) then
vtMat.EmptyDataset;
rozp.First;
vtMat.Open;
while not(rozp.EOF) do
begin
idKZNiz:= StrToInt(VarToStr(rozp.FieldValues(1)));
mnozNiz:= StrToFloat(VarToStr(rozp.FieldValues(2))) * StrToFloat(VarToStr(rozp.FieldValues(3)));
if vtMat.Locate('idKZ',VarArrayOf([idKZNiz]),[loCaseInsensitive]) then
begin
vtMat.Edit;
mnozNiz:= mnozNiz + vtMat.FieldByName('Mnoz').AsExtended;
end
else
begin
vtMat.Insert;
vtMat.FieldByName('idKZ').AsInteger:= idKZNiz;
with Helios.OpenSQL('SELECT SkupZbo,RegCis,Nazev1 FROM ' + tblKZ + ' WHERE id=' + IntToStr(idKZNiz)) do
begin
vtMat.FieldByName('SkupZbo').AsString:= VarToStr(FieldValues(0));
vtMat.FieldByName('RegCis').AsString:= VarToStr(FieldValues(1));
vtMat.FieldByName('Popis').AsString:= VarToStr(FieldValues(2));
end;
end;
vtMat.FieldByName('Mnoz').AsExtended:= mnozNiz;
with Helios.OpenSQL('SELECT Mnozstvi FROM ' + tblSS + ' WHERE IdKmenZbozi=' + IntToStr(idKZNiz) + ' AND IDSklad=N' + QuotedStr(sklFin)) do
if (RecordCount=1) then
vtMat.FieldByName('MnozSkl').AsExtended:= StrToFloat(VarToStr(FieldValues(0)))
else
vtMat.FieldByName('MnozSkl').AsExtended:= 0;
vtMat.Post;
rozp.Next;
end;
end;
Helios.ExecSQL('IF OBJECT_ID(' + QuotedStr('tempdb..#TabPrKVazbyGen') + ') IS NOT NULL DROP TABLE #TabPrKVazbyGen');
vtPolos.RecNo:= iRowPolos;
end;
end.

10
lib/plgHlaskyEx.INC Normal file
View File

@ -0,0 +1,10 @@
// PRVNI HLASKA MUSI ZACINAT min. W = 5050000 !!!
// ,(SelfIdent: plx...;
// H : '';
// W : 5050000;{$IFDEF EdHlasky}I:'';E:'';D:'';{$ENDIF})
//last

847
lib/plgHlaskyJadro.INC Normal file
View File

@ -0,0 +1,847 @@
// prvni hlaska MUSI zustat prazdna !!
(SelfIdent: plxNic;
H : '';
W : 5000000)
,(SelfIdent: plxOK;
H : 'OK';
SK: 'OK';
W : 5000001; I:'text na klávese OK';E:'OK';D:'OK')
,(SelfIdent: plxStorno;
H : 'Storno';
SK: 'Storno';
W : 5000002; I:'text na klávese Storno';E:'Cancel';D:'')
,(SelfIdent: plxJadroUlozitZmeny;
H : 'Uložit změny ?';
SK: 'Uložiť zmeny ?';
W : 5000003)
,(SelfIdent: plxJadroPrazdnaNeboChybneZadanaPolozka;
H : 'Prázdná nebo chybně zadaná položka';
SK: 'Prázdná alebo chybne zadaná položka';
W : 5000004)
,(SelfIdent: plxJadroOprPrejSmazAkt;
H : 'Opravdu si přejete smazat aktuální záznam ?';
SK: 'Naozaj si prajete zmazať aktuálny záznam ?';
W : 5000005; I:'Dotaz na DELETE v přehledu';E:'';D:'';)
,(SelfIdent: plxJadroOprPrejSmazVse;
H : 'Opravdu si přejete smazat'#1' všechny '#1'označené záznamy';
SK: 'Naozaj si prajete zmazať'#1' všetky '#1'označené záznamy';
W : 5000006; I:'Dotaz na DELETE v přehledu';E:'';D:'';)
,(SelfIdent: plxJadroNeni;
H : '(není)';
SK: '(nie je)';
W : 5000007; I:'text značící nepřítomnost hodnoty';E:'(none)';D:'')
,(SelfIdent: plxJadroPluginVyzadujeMinVerziX;
H : 'Plugin vyžaduje minimální verzi Heliosu '#1'%s'#1' !';
SK: 'Plugin vyžaduje minimálnu verziu Heliosu '#1'%s'#1' !';
W : 5000008)
,(SelfIdent: plxJadroAkceNemuzeBytSpustena;
H : 'Akce nemůže být spuštěna nad aktuálním přehledem (chyba č. %d)!';
SK: 'Akcia nemôže byť spustená nad aktuálnym prehľadom (chyba č. %d)!';
W : 5000009)
,(SelfIdent: plxJadroMenuEditace;
H : 'Editace';
SK: 'Editácia';
W : 5000010)
,(SelfIdent: plxJadroAkceNovy;
H : 'Nový';
SK: 'Nový';
W : 5000011; GUID: '{B24F7317-2850-4E23-84C2-23759E2104BD}')
,(SelfIdent: plxJadroAkceOprava;
H : 'Oprava';
SK: 'Oprava';
W : 5000012; GUID: '{E72DC09D-A06D-4712-B44E-40F8D4023DD9}')
,(SelfIdent: plxJadroAkceZrusit;
H : 'Zrušit';
SK: 'Zrušiť';
W : 5000013; GUID: '{69B3748A-4A0D-4FAF-95DA-C5A86EAAF64C}')
,(SelfIdent: plxJadroPouzeKeCteni;
H : 'pouze ke čtení';
SK: 'len na čítanie';
W : 5000014)
,(SelfIdent: plxJadroZavrit;
H : 'Zavřít';
SK: 'Zavrieť';
W : 5000015)
,(SelfIdent: plxJadroIndexSeZmenil;
H : 'Index se v databázi změnil';
SK: 'Index sa v databázi zmenil';
W : 5000016)
,(SelfIdent: plxJadroIndexV_DB_Chybi;
H : 'Index v databázi chybí';
SK: 'Index v databázi chýba';
W : 5000017)
,(SelfIdent: plxJadroKontrolaPluginuX;
H : 'Kontrola pluginu %s (%s)';
SK: 'Kontrola pluginu %s (%s)';
W : 5000018)
,(SelfIdent: plxJadroSpustit;
H : 'Spustit';
SK: 'Spustiť';
W : 5000019)
,(SelfIdent: plxJadroZmenoveSkripty;
H : 'Změnové skripty';
SK: 'Zmenové skripty';
W : 5000020)
,(SelfIdent: plxJadroKontrolaTabulek;
H : 'Kontrola tabulek';
SK: 'Kontrola tabuliek';
W : 5000021)
,(SelfIdent: plxJadroKontrolaJednotlivychAtributu;
H : 'Kontrola jednotlivých atributů';
SK: 'Kontrola jednotlivých atribútov';
W : 5000022)
,(SelfIdent: plxJadroKontrolaUnikatnichKlicu;
H : 'Kontrola unikátních klíčů';
SK: 'Kontrola unikátnych kľúčov';
W : 5000023)
,(SelfIdent: plxJadroKontrolaIntegritnichOmezeni;
H : 'Kontrola integritních omezení';
SK: 'Kontrola integritných omedzení';
W : 5000024)
,(SelfIdent: plxJadroKontrolaCizichKlicu;
H : 'Kontrola cizích klíčů';
SK: 'Kontrola cudzích kľúčov';
W : 5000025)
,(SelfIdent: plxJadroKontrolaUlozenychProcedur;
H : 'Kontrola uložených procedur';
SK: 'Kontrola uložených procedúr';
W : 5000026)
,(SelfIdent: plxJadroKontrolaTriggeru;
H : 'Kontrola triggerů';
SK: 'Kontrola triggerov';
W : 5000027)
,(SelfIdent: plxJadroKontrolaIndexu;
H : 'Kontrola indexů';
SK: 'Kontrola indexov';
W : 5000028)
,(SelfIdent: plxJadroKontrolaPrehledu_a_Akci;
H : 'Kontrola def.přehledů a externích akcí';
SK: 'Kontrola def.prehľadov a externých akcií';
W : 5000029)
,(SelfIdent: plxJadroImportFormularuFilruOpisu;
H : 'Import formulářů, filtrů a opisů';
SK: 'Import formulárov, filtrov a opisov';
W : 5000030)
,(SelfIdent: plxJadroZmenovySkriptJizBylProveden;
H : 'Změnový skript už byl proveden někým jiným - informace by měla být v žurnálu !';
SK: 'Zmenový skript už bol vykonaný niekym iným - informácia by mala byť v žurnále !';
W : 5000031)
,(SelfIdent: plxJadroUpdateZVerze_X_NaVerzi_Y;
H : 'Update z verze %s na verzi %s.';
SK: 'Update z verzie %s na verziu %s.';
W : 5000032)
,(SelfIdent: plxJadroZmenovychSkriptuX;
H : 'změnových skriptů: %d';
SK: 'zmenových skriptov: %d';
W : 5000033)
,(SelfIdent: plxJadroInstalaceHotovo;
H : 'Hotovo';
SK: 'Hotovo';
W : 5000034)
,(SelfIdent: plxJadro_X_BudeNyniUkoncen;
H : 'Aplikace %s bude ukončena.';
SK: 'Aplikácia %s bude ukončená.';
W : 5000035)
,(SelfIdent: plxJadroBylaDetekovanaZmenaStruktury;
H : 'Byla detekována změna struktury.';
SK: 'Bola detekovaná zmena štruktúry.';
W : 5000036)
,(SelfIdent: plxJadroUvedeneTabulkyChybi;
H : 'Uvedené tabulky v databázi chybí.';
SK: 'Uvedené tabuľky v databázi chýbajú.';
W : 5000037)
,(SelfIdent: plxJadroVytvoreniZakladnichPrehledu;
H : 'Vytvoření a změna základních přehledů, akcí a vazeb.';
SK: 'Vytvorenie a zmena základných prehľadov, akcií a väzieb.';
W : 5000038)
,(SelfIdent: plxJadroZmenaStrukturyDB;
H : 'Změna struktury databáze';
SK: 'Zmena štruktúry databázy';
W : 5000039)
,(SelfIdent: plxJadroOpravduSiPrejeteUvedeneZmeny;
H : 'Opravdu si přejete provést výše uvedené změny ?';
SK: 'Naozaj si prajete vykonať vyššie uvedené zmeny ?';
W : 5000040)
,(SelfIdent: plxJadroPredZmenamiDoporucujemeZalohuDB;
H : 'Před provedením změn doporučujeme provést zálohu databáze.';
SK: 'Pred vykonaním zmien doporučujeme vykonať zálohu databázy.';
W : 5000041)
,(SelfIdent: plxJadroTlacitkoZalohovani;
H : '&Zálohování...';
SK: '&Zálohovanie...';
W : 5000042)
,(SelfIdent: plxJadroProvest;
H : 'Provést';
SK: 'Vykonať';
W : 5000043)
,(SelfIdent: plxJadroAkceUkazSQLSkript;
H : '&Ukaž SQL skript...';
SK: '&Ukáž SQL skript...';
W : 5000044)
,(SelfIdent: plxJadroDefinovaneFormulare;
H : 'Definované formuláře';
SK: 'Definované formuláre';
W : 5000045)
,(SelfIdent: plxJadroDefinovaneFiltry;
H : 'Definované filtry';
SK: 'Definované filtre';
W : 5000046)
,(SelfIdent: plxJadroDefinovaneOpisy;
H : 'Definované opisy';
SK: 'Definované opisy';
W : 5000047)
,(SelfIdent: plxJadroAutoImportInfo;
H : 'Byly nalezeny nové soubory pro import.'#13#13+
'Pokud neprovedete import v tuto chvíli, máte ' +
'možnost ho provést později ručně - soubory jsou ' +
'umístěny v podadresáři SYSTEM v cestě, kde se ' +
'nachází plugin %s.';
SK: 'Boli nájdené nové súbory pre import.'#13#13+
'Pokiaľ nevykonáte import v tejto chvíli, máte ' +
'možnosť ho vykonať neskôr ručne - súbory sú ' +
'umiestnené v podadresári SYSTEM v ceste, kde sa ' +
'nachádza plugin %s.';
W : 5000048)
,(SelfIdent: plxJadroAbout_OPluginu;
H : 'O pluginu...';
SK: 'O plugine...';
W : 5000049)
,(SelfIdent: plxJadroKopirovat;
H : 'Kopírovat';
SK: 'Kopírovať';
W : 5000050)
,(SelfIdent: plxJadroAbout_Nazev;
H : 'Název';
SK: 'Názov';
W : 5000051)
,(SelfIdent: plxJadroAbout_Hodnota;
H : 'Hodnota';
SK: 'Hodnota';
W : 5000052)
,(SelfIdent: plxJadroVerze;
H : 'Verze';
SK: 'Verzia';
W : 5000053)
,(SelfIdent: plxJadroAbout_Vyrobce;
H : 'Výrobce';
SK: 'Výrobca';
W : 5000054)
,(SelfIdent: plxJadroAbout_MinVerze_X;
H : 'Min. verze %s';
SK: 'Min. verzia %s';
W : 5000055)
,(SelfIdent: plxJadroAbout_JADRO;
H : 'JÁDRO';
SK: 'JADRO';
W : 5000056)
,(SelfIdent: plxJadroVerze_V_DB;
H : 'Verze v DB';
SK: 'Verzia v DB';
W : 5000057)
,(SelfIdent: plxJadroVerzePluginu;
H : 'Verze pluginu';
SK: 'Verzia pluginu';
W : 5000058)
,(SelfIdent: plxJadroVerzePluginuJeNizsiNezVDB;
H : 'Verze pluginu je nižší než verze v databázi!';
SK: 'Verzia pluginu je nižšia ako verzia v databázy!';
W : 5000059)
,(SelfIdent: plxJadroNeznamaAkce;
H : 'Neznámá akce!';
SK: 'Neznáma akcia!';
W : 5000060)
,(SelfIdent: plxJadroJeTrebaSpustitInstalaciPluginu;
H : 'Je třeba spustit instalaci pluginu!';
SK: 'Je potrebné spustiť inštalácia pluginu!';
W : 5000061)
,(SelfIdent: plxJadroVerzePluginuJeVyssiNezVDB;
H : 'Verze pluginu je vyšší než verze v databázi!';
SK: 'Verzia pluginu je vyššia ako verzia v databázy!';
W : 5000062)
,(SelfIdent: plxJadroMinulaInstalaceNeprobehlaKorektne;
H : 'Při minulé instalaci nebyly korektně provedeny všechny změny!';
SK: 'Pri minulej inštalácii neboli korektne vykonané všetky zmeny!';
W : 5000063)
,(SelfIdent: plxJadroVymazat;
H : 'Vymazat';
SK: 'Vymazať';
W : 5000064)
,(SelfIdent: plxJadroZakazkaXJeUzavrena;
H : 'Zakázka '#1'%s'#1' je '#1'uzavřena'#1'!';
SK: 'Zákazka '#1'%s'#1' je '#1'uzavretá'#1'!';
W : 5000065)
,(SelfIdent: plxJadroNalezenoViceStejnychHodnotPolozky;
H : 'Nalezeno více stejných hodnot položky';
SK: 'Nájdených viac rovnakých hodnôt položky';
W : 5000066)
,(SelfIdent: plxJadroOrganizaceJeZakazana;
H : 'Organizace je zakázána!';
SK: 'Organizácia je zakázaná';
W : 5000067)
,(SelfIdent: plxJadroOrganizaceJeBlokovana;
H : 'Organizace je blokovaná!';
SK: 'Organizácia je blokovaná!';
W : 5000068)
,(SelfIdent: plxJadroInfoOrg_DluhXKeDniY;
H : ', dluh %s Kč ke dni %s';
SK: ', dlh %s Sk ku dňu %s';
W : 5000069)
,(SelfIdent: plxJadroDatumPoslednihoAutoImportuFormularu;
H : 'Datum posledního autoimportu formulářů';
SK: 'Dátum posledného autoimportu formulárov';
W : 5000070)
,(SelfIdent: plxJadroDatumPoslednihoAutoImportuFiltru;
H : 'Datum posledního autoimportu filtrů';
SK: 'Dátum posledného autoimportu filtrov';
W : 5000071)
,(SelfIdent: plxJadroDatumPoslednihoAutoImportuOpisu;
H : 'Datum posledního autoimportu opisů';
SK: 'Dátum posledného autoimportu opisov';
W : 5000072)
,(SelfIdent: plxJadroSystemoveCislo;
H : 'Systémové číslo';
SK: 'Systémové číslo';
W : 5000073)
,(SelfIdent: plxJadroSysCisZkr;
H : 'Sys.č.';
SK: 'Sys.č.';
W : 5000074)
,(SelfIdent: plxJadroAutor;
H : 'Autor';
SK: 'Autor';
W : 5000075; I:'';E:'Author';D:'Autor')
,(SelfIdent: plxJadroDatumPorizeni;
H : 'Datum pořízení';
SK: 'Dátum zaevidovania';
W : 5000076; I:'';E:'Creation date';D:'')
,(SelfIdent: plxJadroZmenil;
H : 'Změnil';
SK: 'Zmenil';
W : 5000077)
,(SelfIdent: plxJadroDatumZmeny;
H : 'Datum změny';
SK: 'Dátum zmeny';
W : 5000078)
,(SelfIdent: plxJadroBlokovaniEditoru;
H : 'Blokování editoru';
SK: 'Blokovanie editoru';
W : 5000079)
,(SelfIdent: plxJadroNovy;
H : 'Nový...';
SK: 'Nový...';
W : 5000080)
,(SelfIdent: plxJadroOprava;
H : 'Oprava...';
SK: 'Oprava...';
W : 5000081)
,(SelfIdent: plxJadroZrusit;
H : 'Zrušit';
SK: 'Zrušiť';
W : 5000082)
,(SelfIdent: plxJadroObnovit;
H : 'Obnovit';
SK: 'Obnoviť';
W : 5000083)
,(SelfIdent: plxJadroAno;
H : 'Ano';
SK: 'Áno';
W : 5000084)
,(SelfIdent: plxJadroNe;
H : 'Ne';
SK: 'Nie';
W : 5000085)
,(SelfIdent: plxJadroNebylNalezenPrehled_X_Y;
H : 'Nebyl nalezen def.přehled '#1'%s'#1' (%s)!';
SK: 'Nebol nájdený def.prehľad '#1'%s'#1' (%s)!';
W : 5000086)
,(SelfIdent: plxJadroNebylNalezenPrehledCislo_X;
H : 'Nebyl nalezen def.přehled číslo '#1'%s'#1'!';
SK: 'Nebol nájdený def.prehľad číslo '#1'%s'#1'!';
W : 5000087)
,(SelfIdent: plxJadroDefPrehledy_a_JejichAkce;
H : 'Definované přehledy a jejich akce';
SK: 'Definované prehľady a ich akcia';
W : 5000088)
,(SelfIdent: plxJadroExterniAkce;
H : 'Externí akce';
SK: 'Externá akcia';
W : 5000089)
,(SelfIdent: plxJadroAkceProPrehledCislo_X;
H : 'Akce pro přehled č.%d';
SK: 'Akcia pre prehľad č.%d';
W : 5000090)
,(SelfIdent: plxJadroDefinovaneVazby;
H : 'Definované vazby';
SK: 'Definované väzby';
W : 5000091)
,(SelfIdent: plxJadroExterniAtributy;
H : 'Externí atributy';
SK: 'Externé atribúty';
W : 5000092)
,(SelfIdent: plxJadroExterniAtribut_T_A;
H : 'Ext.atribut %s.%s';
SK: 'Ext.atribút %s.%s';
W : 5000093)
,(SelfIdent: plxJadroUzivatelskeSoudecky;
H : 'Uživatelské soudečky';
SK: 'Uživateľské súdočky';
W : 5000094)
,(SelfIdent: plxJadroPoradiSoudecku;
H : 'Pořadí soudečků';
SK: 'Poradie súdočkov';
W : 5000095)
,(SelfIdent: plxJadroInstalace;
H : 'Instalace';
SK: 'Inštalácia';
W : 5000096)
,(SelfIdent: plxJadroZakladniInformace;
H : 'Základní informace';
SK: 'Základné informácie';
W : 5000097)
,(SelfIdent: plxJadroTechnickyPopis;
H : 'Technický popis';
SK: 'Technický popis';
W : 5000098)
,(SelfIdent: plxJadroMinVerzeSQLServeru;
H : 'Min. verze SQL Serveru';
SK: 'Min. verzia SQL Servera';
W : 5000099)
,(SelfIdent: plxJadroNeinstalovano;
H : '<neinstalováno>';
SK: '<neinštalované>';
W : 5000100)
,(SelfIdent: plxJadroInstalovanaVerze;
H : 'Instalovaná verze';
SK: 'Inštalovaná verzia';
W : 5000101)
,(SelfIdent: plxJadroUmisteni;
H : 'Umístění';
SK: 'Umiestnenie';
W : 5000102)
,(SelfIdent: plxJadroPrerusit;
H : 'Přerušit';
SK: 'Prerušiť';
W : 5000103)
,(SelfIdent: plxJadroOpravduAkciPrerusit;
H : 'Opravdu chcete akci přerušit?';
SK: 'Naozaj chcete akciu prerušiť?';
W : 5000104)
,(SelfIdent: plxJadroPluginVyzadujeMinVerziSQL_X;
H : 'Plugin vyžaduje MS SQL Server verze minimálně '#1'%s'#1'!';
SK: 'Plugin vyžaduje MS SQL Server verzia minimálne '#1'%s'#1'!';
W : 5000105)
,(SelfIdent: plxJadroNavaznyCiselnikSFiltraci;
H : 'Návazný číselník s filtrací';
SK: 'Náväzný číselník s filtráciou';
W : 5000106)
,(SelfIdent: plxJadroNavaznyCiselnik;
H : 'Návazný číselník';
SK: 'Náväzný číselník';
W : 5000107)
,(SelfIdent: plxJadroOdesilamPostu;
H : 'Odesílám poštu';
SK: 'Odosielam poštu';
W : 5000108)
,(SelfIdent: plxJadroMailNebylNalezenHeMail;
H : 'Nebyl nalezen program HeMail.EXE pro posílání pošty!';
SK: 'Nebol nájdený program HeMail.EXE pre posielanie pošty!';
W : 5000109)
,(SelfIdent: plxJadroMailNepodariloSeVytvoriKonfigSoubor;
H : 'Nepodařilo se vytvořit konfigurační soubor!';
SK: 'Nepodarilo sa vytvoriť konfiguračný súbor!';
W : 5000110)
,(SelfIdent: plxJadroKontrolaExternichAtributu;
H : 'Kontrola externích atributů';
SK: 'Kontrola externých atribútov';
W : 5000111)
,(SelfIdent: plxJadroStredisko_X_JeZakazano;
H : 'Středisko '#1'%s'#1' je '#1'zakázáno'#1'!';
SK: 'Stredisko '#1'%s'#1' je '#1'zakázané'#1'';
W : 5000112)
,(SelfIdent: plxJadroRegistrovanyOtaznik;
H : 'Registrovaný?';
SK: 'Registrovaný?';
W : 5000113)
,(SelfIdent: plxJadroIdentifikator;
H : 'Identifikátor';
SK: 'Identifikátor';
W : 5000114)
,(SelfIdent: plxJadro_Nepouzito_;
H : '<nepoužito>';
SK: '<nepoužité>';
W : 5000115)
,(SelfIdent: plxJadroLogo;
H : 'Logo';
SK: 'Logo';
W : 5000116)
,(SelfIdent: plxJadroExterniHlasky;
H : 'Externí hlášky';
W : 5000117)
,(SelfIdent: plxJadroDoplneniExternichHlasek;
H : 'Doplnění externích hlášek';
W : 5000118)
,(SelfIdent: plxJadroAbout_IdentifikaceVyrobce;
H : 'Identifikace výrobce';
SK: 'Identifikácia výrobca';
W : 5000119)
,(SelfIdent: plxJadroHistorieVerzi;
H : 'Historie verzí';
SK: 'História verzí';
W : 5000120)
,(SelfIdent: plxJadroZaznamJeBlokovanNelzeSmazat;
H : 'Záznam je blokován jiným uživatelem - nelze smazat!';
W : 5000121)
,(SelfIdent: plxJadroDefinovanyPrehled_X_NebylNalezen;
H : 'Definovaný přehled %s nebyl nalezen!';
W : 5000122)
,(SelfIdent: plxJadroCislaPrehleduBylaVycerpana;
H : 'Čísla přehledů byla vyčerpána!';
W : 5000123)
,(SelfIdent: plxJadroPredchoziRok;
H : 'Předchozí rok';
W : 5000124)
,(SelfIdent: plxJadroPredchoziMesic;
H : 'Předchozí měsíc';
W : 5000125)
,(SelfIdent: plxJadroNasledujiciMesic;
H : 'Následující měsíc';
W : 5000126)
,(SelfIdent: plxJadroNasledujiciRok;
H : 'Následující rok';
W : 5000127)
,(SelfIdent: plxJadroZvolteDatum;
H : 'Zvolte datum';
W : 5000128)
,(SelfIdent: plxJadroDnes;
H : 'Dnes';
W : 5000129)
,(SelfIdent: plxJadroKalendar;
H : 'Kalendář';
W : 5000130)
,(SelfIdent: plxJadroAktualniCas;
H : 'Aktuální čas';
W : 5000131)
,(SelfIdent: plxJadroKalkulacka;
H : 'Kalkulačka';
W : 5000132)
,(SelfIdent: plxJadroKontrolaUzivatelskychFunkci;
H : 'Kontrola uživatelských funkcí';
W : 5000133)
,(SelfIdent: plxJadroPrevodDoUNICODE;
H : 'Převod do UNICODE';
W : 5000134)
,(SelfIdent: plxJadroDoplneniPrehleduProUzivAtr;
H : 'Doplnění přehledů pro uživ. atributy';
W : 5000135)
,(SelfIdent: plxJadroSkupinaNastrojuPrizpusobeni;
H : 'Skupina nástrojů přizpůsobení';
W : 5000136)
,(SelfIdent: plxJadroDoplneniSkupiny;
H : 'Doplnění skupiny';
W : 5000137)
,(SelfIdent: plxJadroVlastniInstalace;
H : 'Vlastní instalace';
W : 5000138)
,(SelfIdent: plxJadroHotovo;
H : 'hotovo';
W : 5000139)
,(SelfIdent: plxJadroOmezeniVDBPrebyva;
H : 'Omezení tohoto názvu v databázi přebývá';
W : 5000140)
,(SelfIdent: plxJadroPocitanyAtributChybi;
H : 'Počítaný atribut tohoto názvu v tabulce chybí';
W : 5000141)
,(SelfIdent: plxJadroAtributVTabulceChybi;
H : 'Atribut tohoto názvu v tabulce chybí';
W : 5000142)
,(SelfIdent: plxJadroZmenaPocitanehoAtributuSmazani;
H : 'Změna počítaného atributu %s -> %s (smazání)';
W : 5000143)
,(SelfIdent: plxJadroZmenaPocitanehoAtributuPridani;
H : 'Změna počítaného atributu %s -> %s (přidání)';
W : 5000144)
,(SelfIdent: plxJadroZmenaPocitanehoAtributuKodDB;
H : 'Změna počítaného atributu %s -> %s (kód v DB)';
W : 5000145)
,(SelfIdent: plxJadroAtributVTabulcePrebyva;
H : 'Atribut tohoto názvu v tabulce přebývá';
W : 5000146)
,(SelfIdent: plxJadroOmezeniJeVDBVypnuto;
H : 'Omezení je v databází vypnuto';
W : 5000147)
,(SelfIdent: plxJadroOmezeniVDBChybi;
H : 'Omezení tohoto názvu v databázi chybí';
W : 5000148)
,(SelfIdent: plxJadroOmezeniSeVDBZmenilo;
H : 'Omezení tohoto názvu se v databázi změnilo';
W : 5000149)
,(SelfIdent: plxJadroOmezeniSeVDBZmeniloKodDB;
H : 'Omezení tohoto názvu se v databázi změnilo (kód v DB)';
W : 5000150)
,(SelfIdent: plxJadroOmezeniJeVypnuto;
H : 'Omezení je v databází vypnuto';
W : 5000151)
,(SelfIdent: plxJadroUlozenkaVDBChybi;
H : 'Uložená procedura tohoto názvu v databázi chybí';
W : 5000152)
,(SelfIdent: plxJadroNastaveniPravKUlozence;
H : 'Nastavení práv k nové uložené proceduře';
W : 5000153)
,(SelfIdent: plxJadroUlozenkaSeZmenila;
H : 'Uložená procedura se změnila';
W : 5000154)
,(SelfIdent: plxJadroFunkceVDBChybi;
H : 'Uživatelská funkce tohoto názvu v databázi chybí';
W : 5000155)
,(SelfIdent: plxJadroNastaveniPravKFunkci;
H : 'Nastavení práv k nové uživatelské funkci';
W : 5000156)
,(SelfIdent: plxJadroFunkceSeZmenila;
H : 'Uživatelská funkce se změnila';
W : 5000157)
,(SelfIdent: plxJadroTriggerVDBChybi;
H : 'Trigger v databázi chybí';
W : 5000158)
,(SelfIdent: plxJadroTriggerVDBPrebyva;
H : 'Trigger v databázi přebývá';
W : 5000159)
,(SelfIdent: plxJadroTriggerJeVDBVypnut;
H : 'Trigger je v databázi vypnut';
W : 5000160)
,(SelfIdent: plxJadroTriggerVDBSeZmenil;
H : 'Trigger v databázi se změnil';
W : 5000161)
,(SelfIdent: plxJadroIndexJeVDBPrejmenovan;
H : 'Index je v databázi přejmenován';
W : 5000162)
,(SelfIdent: plxJadroHeslo;
H : 'Heslo';
W : 5000163)
,(SelfIdent: plxJadroZobrazitHeslo;
H : 'Zobrazit heslo';
W : 5000164)
,(SelfIdent: plxJadroAdresarProJazykovaDLL;
H : 'Adresář pro uložení jazykových DLL';
W : 5000165)
,(SelfIdent: plxJadroVysledek;
H : 'Výsledek';
W : 5000166)
,(SelfIdent: plxJadroPluginNeobsahujeZadneHlasky;
H : 'Plugin neobsahuje žádné hlášky!';
W : 5000167)
,(SelfIdent: plxJadroNeniZadanoHeslo;
H : 'Není zadáno heslo!';
W : 5000168)
,(SelfIdent: plxJadroNeniZadanAdresarProJazykovaDLL;
H : 'Není zadán adresář pro uložení jazykových DLL!';
W : 5000169)
,(SelfIdent: plxJadroAdresarProJazykovaDLLNeexistuje;
H : 'Adresář pro uložení jazykových DLL neexistuje!';
W : 5000170)
,(SelfIdent: plxJadroPodporaTicheInstalacePluginu;
H : 'Podpora tiché instalace pluginů';
W : 5000171)
,(SelfIdent: plxJadroNepodporaOdinstalace;
H : 'Tento plugin nepodporuje automatickou odinstalaci.';
W : 5000172)
// plgTypeTxtJadro.INC
//last
// LOCAL | USER: RK | DT: 27.11.2006 09:11:00 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
// LIB | USER: RK | DT: 27.11.2006 09:16:24 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 03.05.2007 09:33:23 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
// LIB | USER: RK | DT: 03.05.2007 09:40:20 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RJ | DT: 23.05.2007 12:13:33 | VER: | TXT: | PC: RJ-XP-D | FROM: L:\H\IQ10\PlugLib | TO: C:\Plugins\SEW\Bin
// LIB | USER: RJ | DT: 23.05.2007 12:14:14 | VER: 20070523 | TXT: | PC: RJ-XP-D | FROM: C:\Plugins\SEW\Bin | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 10.07.2007 08:46:24 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginExample
// LIB | USER: RK | DT: 10.07.2007 08:46:46 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 05.11.2007 15:57:29 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginEurest
// LIB | USER: RK | DT: 05.11.2007 15:57:39 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginEurest | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 21.07.2008 15:12:53 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginLCSEIUctenek
// LIB | USER: RK | DT: 21.07.2008 15:33:58 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginLCSEIUctenek | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 29.09.2008 10:01:23 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
// LIB | USER: RK | DT: 29.09.2008 10:03:06 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: RK | DT: 05.03.2009 14:00:40 | VER: | TXT: | PC: RK-VI-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
// LIB | USER: RK | DT: 05.03.2009 14:05:44 | VER: ?? LB ?? | TXT: | PC: RK-VI-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: roman.krupicka | DT: 12.09.2011 16:51:54 | VER: | TXT: | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
// LIB | USER: roman.krupicka | DT: 13.09.2011 13:39:35 | VER: 20110913 | TXT: | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: roman.krupicka | DT: 10.10.2011 15:02:21 | VER: | TXT: | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
// LIB | USER: roman.krupicka | DT: 10.10.2011 15:06:41 | VER: ?? LB ?? | TXT: | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: roman.krupicka | DT: 10.10.2011 15:06:43 | VER: | TXT: | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
// LIB | USER: roman.krupicka | DT: 10.10.2011 15:07:21 | VER: ?? LB ?? | TXT: | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: roman.krupicka | DT: 10.10.2011 16:19:37 | VER: | TXT: | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
// LIB | USER: roman.krupicka | DT: 10.10.2011 16:28:33 | VER: ?? LB ?? | TXT: | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2

5
lib/plgTypeBrowse.INC Normal file
View File

@ -0,0 +1,5 @@
type
TplgBrowse = (bZadny
//last
);

1516
lib/plgTypeJadro.INC Normal file
View File

File diff suppressed because it is too large Load Diff

5
lib/plgTypeSoudky.inc Normal file
View File

@ -0,0 +1,5 @@
type
TplgSoudek = (sdNeniVidet // neni videt ve stromecku (default)
//last
);

7
lib/plgTypeTabulka.inc Normal file
View File

@ -0,0 +1,7 @@
// === TABULKY ================================================================
type
TplgTabulka = (tZadna
);
//last <- to je kvuli rychlejsimu hledani

15
lib/plgTypeTxtEx.inc Normal file
View File

@ -0,0 +1,15 @@
// === HLASKY OSTATNI =========================================================
const
// priklad:
// plxMojeHlaska1=plx_MAX_Jadro+1; <--- POZOR musi byt plx_MAX_Jadro !!
// plxMojeHlaska2=plxMojeHlaska1+1;
// plx_MAX = plxMojeHlaska2; <--- plx_MAX se rovna posledni hlasce, ale bez +1 !!
plx_MAX = plx_MAX_Jadro;
//last <- to je kvuli rychlejsimu hledani

192
lib/plgTypeTxtJadro.INC Normal file
View File

@ -0,0 +1,192 @@
// === HLASKY JADRA ===========================================================
const
plxNic=0;
plxOK=plxNic+1;
plxStorno=plxOK+1;
plxJadroUlozitZmeny=plxStorno+1;
plxJadroPrazdnaNeboChybneZadanaPolozka=plxJadroUlozitZmeny+1;
plxJadroOprPrejSmazAkt=plxJadroPrazdnaNeboChybneZadanaPolozka+1;
plxJadroOprPrejSmazVse=plxJadroOprPrejSmazAkt+1;
plxJadroNeni=plxJadroOprPrejSmazVse+1;
plxJadroPluginVyzadujeMinVerziX=plxJadroNeni+1;
plxJadroAkceNemuzeBytSpustena=plxJadroPluginVyzadujeMinVerziX+1;
plxJadroMenuEditace=plxJadroAkceNemuzeBytSpustena+1;
plxJadroAkceNovy=plxJadroMenuEditace+1;
plxJadroAkceOprava=plxJadroAkceNovy+1;
plxJadroAkceZrusit=plxJadroAkceOprava+1;
plxJadroPouzeKeCteni=plxJadroAkceZrusit+1;
plxJadroZavrit=plxJadroPouzeKeCteni+1;
plxJadroIndexSeZmenil=plxJadroZavrit+1;
plxJadroIndexV_DB_Chybi=plxJadroIndexSeZmenil+1;
plxJadroKontrolaPluginuX=plxJadroIndexV_DB_Chybi+1;
plxJadroSpustit=plxJadroKontrolaPluginuX+1;
plxJadroZmenoveSkripty=plxJadroSpustit+1;
plxJadroKontrolaTabulek=plxJadroZmenoveSkripty+1;
plxJadroKontrolaJednotlivychAtributu=plxJadroKontrolaTabulek+1;
plxJadroKontrolaUnikatnichKlicu=plxJadroKontrolaJednotlivychAtributu+1;
plxJadroKontrolaIntegritnichOmezeni=plxJadroKontrolaUnikatnichKlicu+1;
plxJadroKontrolaCizichKlicu=plxJadroKontrolaIntegritnichOmezeni+1;
plxJadroKontrolaUlozenychProcedur=plxJadroKontrolaCizichKlicu+1;
plxJadroKontrolaTriggeru=plxJadroKontrolaUlozenychProcedur+1;
plxJadroKontrolaIndexu=plxJadroKontrolaTriggeru+1;
plxJadroKontrolaPrehledu_a_Akci=plxJadroKontrolaIndexu+1;
plxJadroImportFormularuFilruOpisu=plxJadroKontrolaPrehledu_a_Akci+1;
plxJadroZmenovySkriptJizBylProveden=plxJadroImportFormularuFilruOpisu+1;
plxJadroUpdateZVerze_X_NaVerzi_Y=plxJadroZmenovySkriptJizBylProveden+1;
plxJadroZmenovychSkriptuX=plxJadroUpdateZVerze_X_NaVerzi_Y+1;
plxJadroInstalaceHotovo=plxJadroZmenovychSkriptuX+1;
plxJadro_X_BudeNyniUkoncen=plxJadroInstalaceHotovo+1;
plxJadroBylaDetekovanaZmenaStruktury=plxJadro_X_BudeNyniUkoncen+1;
plxJadroUvedeneTabulkyChybi=plxJadroBylaDetekovanaZmenaStruktury+1;
plxJadroVytvoreniZakladnichPrehledu=plxJadroUvedeneTabulkyChybi+1;
plxJadroZmenaStrukturyDB=plxJadroVytvoreniZakladnichPrehledu+1;
plxJadroOpravduSiPrejeteUvedeneZmeny=plxJadroZmenaStrukturyDB+1;
plxJadroPredZmenamiDoporucujemeZalohuDB=plxJadroOpravduSiPrejeteUvedeneZmeny+1;
plxJadroTlacitkoZalohovani=plxJadroPredZmenamiDoporucujemeZalohuDB+1;
plxJadroProvest=plxJadroTlacitkoZalohovani+1;
plxJadroAkceUkazSQLSkript=plxJadroProvest+1;
plxJadroDefinovaneFormulare=plxJadroAkceUkazSQLSkript+1;
plxJadroDefinovaneFiltry=plxJadroDefinovaneFormulare+1;
plxJadroDefinovaneOpisy=plxJadroDefinovaneFiltry+1;
plxJadroAutoImportInfo=plxJadroDefinovaneOpisy+1;
plxJadroAbout_OPluginu=plxJadroAutoImportInfo+1;
plxJadroKopirovat=plxJadroAbout_OPluginu+1;
plxJadroAbout_Nazev=plxJadroKopirovat+1;
plxJadroAbout_Hodnota=plxJadroAbout_Nazev+1;
plxJadroVerze=plxJadroAbout_Hodnota+1;
plxJadroAbout_Vyrobce=plxJadroVerze+1;
plxJadroAbout_MinVerze_X=plxJadroAbout_Vyrobce+1;
plxJadroAbout_JADRO=plxJadroAbout_MinVerze_X+1;
plxJadroVerze_V_DB=plxJadroAbout_JADRO+1;
plxJadroVerzePluginu=plxJadroVerze_V_DB+1;
plxJadroVerzePluginuJeNizsiNezVDB=plxJadroVerzePluginu+1;
plxJadroNeznamaAkce=plxJadroVerzePluginuJeNizsiNezVDB+1;
plxJadroJeTrebaSpustitInstalaciPluginu=plxJadroNeznamaAkce+1;
plxJadroVerzePluginuJeVyssiNezVDB=plxJadroJeTrebaSpustitInstalaciPluginu+1;
plxJadroMinulaInstalaceNeprobehlaKorektne=plxJadroVerzePluginuJeVyssiNezVDB+1;
plxJadroVymazat=plxJadroMinulaInstalaceNeprobehlaKorektne+1;
plxJadroZakazkaXJeUzavrena=plxJadroVymazat+1;
plxJadroNalezenoViceStejnychHodnotPolozky=plxJadroZakazkaXJeUzavrena+1;
plxJadroOrganizaceJeZakazana=plxJadroNalezenoViceStejnychHodnotPolozky+1;
plxJadroOrganizaceJeBlokovana=plxJadroOrganizaceJeZakazana+1;
plxJadroInfoOrg_DluhXKeDniY=plxJadroOrganizaceJeBlokovana+1;
plxJadroDatumPoslednihoAutoImportuFormularu=plxJadroInfoOrg_DluhXKeDniY+1;
plxJadroDatumPoslednihoAutoImportuFiltru=plxJadroDatumPoslednihoAutoImportuFormularu+1;
plxJadroDatumPoslednihoAutoImportuOpisu=plxJadroDatumPoslednihoAutoImportuFiltru+1;
plxJadroSystemoveCislo=plxJadroDatumPoslednihoAutoImportuOpisu+1;
plxJadroSysCisZkr=plxJadroSystemoveCislo+1;
plxJadroAutor=plxJadroSysCisZkr+1;
plxJadroDatumPorizeni=plxJadroAutor+1;
plxJadroZmenil=plxJadroDatumPorizeni+1;
plxJadroDatumZmeny=plxJadroZmenil+1;
plxJadroBlokovaniEditoru=plxJadroDatumZmeny+1;
plxJadroNovy=plxJadroBlokovaniEditoru+1;
plxJadroOprava=plxJadroNovy+1;
plxJadroZrusit=plxJadroOprava+1;
plxJadroObnovit=plxJadroZrusit+1;
plxJadroAno=plxJadroObnovit+1;
plxJadroNe=plxJadroAno+1;
plxJadroNebylNalezenPrehled_X_Y=plxJadroNe+1;
plxJadroNebylNalezenPrehledCislo_X=plxJadroNebylNalezenPrehled_X_Y+1;
plxJadroDefPrehledy_a_JejichAkce=plxJadroNebylNalezenPrehledCislo_X+1;
plxJadroExterniAkce=plxJadroDefPrehledy_a_JejichAkce+1;
plxJadroAkceProPrehledCislo_X=plxJadroExterniAkce+1;
plxJadroDefinovaneVazby=plxJadroAkceProPrehledCislo_X+1;
plxJadroExterniAtributy=plxJadroDefinovaneVazby+1;
plxJadroExterniAtribut_T_A=plxJadroExterniAtributy+1;
plxJadroUzivatelskeSoudecky=plxJadroExterniAtribut_T_A+1;
plxJadroPoradiSoudecku=plxJadroUzivatelskeSoudecky+1;
plxJadroInstalace=plxJadroPoradiSoudecku+1;
plxJadroZakladniInformace=plxJadroInstalace+1;
plxJadroTechnickyPopis=plxJadroZakladniInformace+1;
plxJadroMinVerzeSQLServeru=plxJadroTechnickyPopis+1;
plxJadroNeinstalovano=plxJadroMinVerzeSQLServeru+1;
plxJadroInstalovanaVerze=plxJadroNeinstalovano+1;
plxJadroUmisteni=plxJadroInstalovanaVerze+1;
plxJadroPrerusit=plxJadroUmisteni+1;
plxJadroOpravduAkciPrerusit=plxJadroPrerusit+1;
plxJadroPluginVyzadujeMinVerziSQL_X=plxJadroOpravduAkciPrerusit+1;
plxJadroNavaznyCiselnikSFiltraci=plxJadroPluginVyzadujeMinVerziSQL_X+1;
plxJadroNavaznyCiselnik=plxJadroNavaznyCiselnikSFiltraci+1;
plxJadroOdesilamPostu=plxJadroNavaznyCiselnik+1;
plxJadroMailNebylNalezenHeMail=plxJadroOdesilamPostu+1;
plxJadroMailNepodariloSeVytvoriKonfigSoubor=plxJadroMailNebylNalezenHeMail+1;
plxJadroKontrolaExternichAtributu=plxJadroMailNepodariloSeVytvoriKonfigSoubor+1;
plxJadroStredisko_X_JeZakazano=plxJadroKontrolaExternichAtributu+1;
plxJadroRegistrovanyOtaznik=plxJadroStredisko_X_JeZakazano+1;
plxJadroIdentifikator=plxJadroRegistrovanyOtaznik+1;
plxJadro_Nepouzito_=plxJadroIdentifikator+1;
plxJadroLogo=plxJadro_Nepouzito_+1;
plxJadroExterniHlasky=plxJadroLogo+1;
plxJadroDoplneniExternichHlasek=plxJadroExterniHlasky+1;
plxJadroAbout_IdentifikaceVyrobce=plxJadroDoplneniExternichHlasek+1;
plxJadroHistorieVerzi=plxJadroAbout_IdentifikaceVyrobce+1;
plxJadroZaznamJeBlokovanNelzeSmazat=plxJadroHistorieVerzi+1;
plxJadroDefinovanyPrehled_X_NebylNalezen=plxJadroZaznamJeBlokovanNelzeSmazat+1;
plxJadroCislaPrehleduBylaVycerpana=plxJadroDefinovanyPrehled_X_NebylNalezen+1;
plxJadroPredchoziRok=plxJadroCislaPrehleduBylaVycerpana+1;
plxJadroPredchoziMesic=plxJadroPredchoziRok+1;
plxJadroNasledujiciMesic=plxJadroPredchoziMesic+1;
plxJadroNasledujiciRok=plxJadroNasledujiciMesic+1;
plxJadroZvolteDatum=plxJadroNasledujiciRok+1;
plxJadroDnes=plxJadroZvolteDatum+1;
plxJadroKalendar=plxJadroDnes+1;
plxJadroAktualniCas=plxJadroKalendar+1;
plxJadroKalkulacka=plxJadroAktualniCas+1;
plxJadroKontrolaUzivatelskychFunkci=plxJadroKalkulacka+1;
plxJadroPrevodDoUNICODE=plxJadroKontrolaUzivatelskychFunkci+1;
plxJadroDoplneniPrehleduProUzivAtr=plxJadroPrevodDoUNICODE+1;
plxJadroSkupinaNastrojuPrizpusobeni=plxJadroDoplneniPrehleduProUzivAtr+1;
plxJadroDoplneniSkupiny=plxJadroSkupinaNastrojuPrizpusobeni+1;
plxJadroVlastniInstalace=plxJadroDoplneniSkupiny+1;
plxJadroHotovo=plxJadroVlastniInstalace+1;
plxJadroOmezeniVDBPrebyva=plxJadroHotovo+1;
plxJadroPocitanyAtributChybi=plxJadroOmezeniVDBPrebyva+1;
plxJadroAtributVTabulceChybi=plxJadroPocitanyAtributChybi+1;
plxJadroZmenaPocitanehoAtributuSmazani=plxJadroAtributVTabulceChybi+1;
plxJadroZmenaPocitanehoAtributuPridani=plxJadroZmenaPocitanehoAtributuSmazani+1;
plxJadroZmenaPocitanehoAtributuKodDB=plxJadroZmenaPocitanehoAtributuPridani+1;
plxJadroAtributVTabulcePrebyva=plxJadroZmenaPocitanehoAtributuKodDB+1;
plxJadroOmezeniJeVDBVypnuto=plxJadroAtributVTabulcePrebyva+1;
plxJadroOmezeniVDBChybi=plxJadroOmezeniJeVDBVypnuto+1;
plxJadroOmezeniSeVDBZmenilo=plxJadroOmezeniVDBChybi+1;
plxJadroOmezeniSeVDBZmeniloKodDB=plxJadroOmezeniSeVDBZmenilo+1;
plxJadroOmezeniJeVypnuto=plxJadroOmezeniSeVDBZmeniloKodDB+1;
plxJadroUlozenkaVDBChybi=plxJadroOmezeniJeVypnuto+1;
plxJadroNastaveniPravKUlozence=plxJadroUlozenkaVDBChybi+1;
plxJadroUlozenkaSeZmenila=plxJadroNastaveniPravKUlozence+1;
plxJadroFunkceVDBChybi=plxJadroUlozenkaSeZmenila+1;
plxJadroNastaveniPravKFunkci=plxJadroFunkceVDBChybi+1;
plxJadroFunkceSeZmenila=plxJadroNastaveniPravKFunkci+1;
plxJadroTriggerVDBChybi=plxJadroFunkceSeZmenila+1;
plxJadroTriggerVDBPrebyva=plxJadroTriggerVDBChybi+1;
plxJadroTriggerJeVDBVypnut=plxJadroTriggerVDBPrebyva+1;
plxJadroTriggerVDBSeZmenil=plxJadroTriggerJeVDBVypnut+1;
plxJadroIndexJeVDBPrejmenovan=plxJadroTriggerVDBSeZmenil+1;
plxJadroHeslo=plxJadroIndexJeVDBPrejmenovan+1;
plxJadroZobrazitHeslo=plxJadroHeslo+1;
plxJadroAdresarProJazykovaDLL=plxJadroZobrazitHeslo+1;
plxJadroVysledek=plxJadroAdresarProJazykovaDLL+1;
plxJadroPluginNeobsahujeZadneHlasky=plxJadroVysledek+1;
plxJadroNeniZadanoHeslo=plxJadroPluginNeobsahujeZadneHlasky+1;
plxJadroNeniZadanAdresarProJazykovaDLL=plxJadroNeniZadanoHeslo+1;
plxJadroAdresarProJazykovaDLLNeexistuje=plxJadroNeniZadanAdresarProJazykovaDLL+1;
plxJadroPodporaTicheInstalacePluginu=plxJadroAdresarProJazykovaDLLNeexistuje+1;
plxJadroNepodporaOdinstalace=plxJadroPodporaTicheInstalacePluginu+1;
plx_MAX_Jadro = plxJadroNepodporaOdinstalace;
//last <- to je kvuli rychlejsimu hledani
// LOCAL | USER: RK | DT: 27.11.2006 09:11:03 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
// LIB | USER: RK | DT: 27.11.2006 09:16:26 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 21.07.2008 15:31:34 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginLCSEIUctenek
// LIB | USER: RK | DT: 21.07.2008 15:34:00 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginLCSEIUctenek | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 29.09.2008 10:01:28 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
// LIB | USER: RK | DT: 29.09.2008 10:03:08 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: RK | DT: 05.03.2009 14:00:44 | VER: | TXT: | PC: RK-VI-D | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ1\PluginExample
// LIB | USER: RK | DT: 05.03.2009 14:05:46 | VER: ?? LB ?? | TXT: | PC: RK-VI-D | FROM: D:\!\IQ1\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: roman.krupicka | DT: 12.09.2011 16:52:33 | VER: | TXT: | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
// LIB | USER: roman.krupicka | DT: 13.09.2011 13:39:38 | VER: 20110913 | TXT: | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2
// LOCAL | USER: roman.krupicka | DT: 10.10.2011 16:19:41 | VER: | TXT: | PC: KRUPICKARO-PC | FROM: L:\H\IQ10\PlugLib2 | TO: D:\!\IQ2\P\PluginExample
// LIB | USER: roman.krupicka | DT: 10.10.2011 16:28:35 | VER: ?? LB ?? | TXT: | PC: KRUPICKARO-PC | FROM: D:\!\IQ2\P\PluginExample | TO: L:\H\IQ10\PlugLib2

0
lib/plgTypeUTA.inc Normal file
View File

3
lib/plgTypeZbytek.inc Normal file
View File

@ -0,0 +1,3 @@
// Typy a konstanty tykajici se pouze daneho pluginu

0
lib/plgUtaDef.inc Normal file
View File

14
lib/plgVerze.INC Normal file
View File

@ -0,0 +1,14 @@
$030020260407
{MMnnRRRRMMDD}
{ MM = major verze }
{ nn = minor verze }
{ RRRR = rok }
{ MM = mesic }
{ DD = den }
{ - cislo (hexadecimalne) verze jako typ Int64 - je v include, protoze se }
{ externe nacita pri distribucni kompilaci pro pridani VERSION INFO do EXE }
{ - toto cislo MUSI byt na PRVNIM RADKU tohoto souboru a na temze }
{ radku nesmi byt dalsi znaky (komentare apod.) }

17640
libPPL_Intf.pas Normal file
View File

File diff suppressed because it is too large Load Diff

888
libPPL_Invk.pas Normal file
View File

@ -0,0 +1,888 @@
unit libPPL_Invk;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ Do not modify this unit manually, or your changes will be lost when this }
{ unit is regenerated the next time you compile the project. }
{----------------------------------------------------------------------------}
{$I RemObjects.inc}
interface
uses
{vcl:} Classes,
{RemObjects:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
{Generated:} libPPL_Intf;
type
TSeekOrigin = Classes.TSeekOrigin; // fake declaration
TIEGate_Invoker = class(TROInvoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_ImportPPLSprint(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GetZipCodes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GetCities(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GetPackagesInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GetPackageToDelivery(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GetPackageInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportOrderExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportOrdersExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportPackageExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportPackagesExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportWeighedPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportWeighedPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportPackagesHoffmann(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportESYCOPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportESYCOPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportStatusDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportStatusesDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportOrderCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_ImportOrdersCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
uses
{RemObjects:} uRORes, uROClient;
{ TIEGate_Invoker }
constructor TIEGate_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TIEGate_Invoker.Invoke_ImportPPLSprint(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportPPLSprint(const parameters: ImportPPLSprint): ImportPPLSprintResponse; }
var
parameters: libPPL_Intf.ImportPPLSprint;
lResult: libPPL_Intf.ImportPPLSprintResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportPPLSprint', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPPLSprint), parameters, []);
lResult := (__Instance as IIEGate).ImportPPLSprint(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPPLSprintResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPPLSprintResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_GetZipCodes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetZipCodes(const parameters: GetZipCodes): GetZipCodesResponse; }
var
parameters: libPPL_Intf.GetZipCodes;
lResult: libPPL_Intf.GetZipCodesResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/GetZipCodes', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetZipCodes), parameters, []);
lResult := (__Instance as IIEGate).GetZipCodes(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetZipCodesResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetZipCodesResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_GetCities(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetCities(const parameters: GetCities): GetCitiesResponse; }
var
parameters: libPPL_Intf.GetCities;
lResult: libPPL_Intf.GetCitiesResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/GetCities', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetCities), parameters, []);
lResult := (__Instance as IIEGate).GetCities(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetCitiesResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetCitiesResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_GetPackagesInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetPackagesInfo(const parameters: GetPackagesInfo): GetPackagesInfoResponse; }
var
parameters: libPPL_Intf.GetPackagesInfo;
lResult: libPPL_Intf.GetPackagesInfoResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/GetPackagesInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackagesInfo), parameters, []);
lResult := (__Instance as IIEGate).GetPackagesInfo(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackagesInfoResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackagesInfoResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_GetPackageToDelivery(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetPackageToDelivery(const parameters: GetPackageToDelivery): GetPackageToDeliveryResponse; }
var
parameters: libPPL_Intf.GetPackageToDelivery;
lResult: libPPL_Intf.GetPackageToDeliveryResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/GetPackageToDelivery', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageToDelivery), parameters, []);
lResult := (__Instance as IIEGate).GetPackageToDelivery(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackageToDeliveryResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageToDeliveryResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_GetPackageInfo(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetPackageInfo(const parameters: GetPackageInfo): GetPackageInfoResponse; }
var
parameters: libPPL_Intf.GetPackageInfo;
lResult: libPPL_Intf.GetPackageInfoResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/GetPackageInfo', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.GetPackageInfo), parameters, []);
lResult := (__Instance as IIEGate).GetPackageInfo(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'GetPackageInfoResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.GetPackageInfoResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportOrderExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportOrderExt(const parameters: ImportOrderExt): ImportOrderExtResponse; }
var
parameters: libPPL_Intf.ImportOrderExt;
lResult: libPPL_Intf.ImportOrderExtResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportOrderExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderExt), parameters, []);
lResult := (__Instance as IIEGate).ImportOrderExt(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrderExtResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderExtResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportOrdersExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportOrdersExt(const parameters: ImportOrdersExt): ImportOrdersExtResponse; }
var
parameters: libPPL_Intf.ImportOrdersExt;
lResult: libPPL_Intf.ImportOrdersExtResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportOrdersExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersExt), parameters, []);
lResult := (__Instance as IIEGate).ImportOrdersExt(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersExtResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersExtResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportPackageExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportPackageExt(const parameters: ImportPackageExt): ImportPackageExtResponse; }
var
parameters: libPPL_Intf.ImportPackageExt;
lResult: libPPL_Intf.ImportPackageExtResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportPackageExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackageExt), parameters, []);
lResult := (__Instance as IIEGate).ImportPackageExt(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackageExtResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackageExtResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportPackagesExt(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportPackagesExt(const parameters: ImportPackagesExt): ImportPackagesExtResponse; }
var
parameters: libPPL_Intf.ImportPackagesExt;
lResult: libPPL_Intf.ImportPackagesExtResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportPackagesExt', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesExt), parameters, []);
lResult := (__Instance as IIEGate).ImportPackagesExt(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesExtResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesExtResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportPackages(const parameters: ImportPackages): ImportPackagesResponse; }
var
parameters: libPPL_Intf.ImportPackages;
lResult: libPPL_Intf.ImportPackagesResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackages), parameters, []);
lResult := (__Instance as IIEGate).ImportPackages(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportOrders(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportOrders(const parameters: ImportOrders): ImportOrdersResponse; }
var
parameters: libPPL_Intf.ImportOrders;
lResult: libPPL_Intf.ImportOrdersResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportOrders', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrders), parameters, []);
lResult := (__Instance as IIEGate).ImportOrders(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportWeighedPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportWeighedPack(const parameters: ImportWeighedPack): ImportWeighedPackResponse; }
var
parameters: libPPL_Intf.ImportWeighedPack;
lResult: libPPL_Intf.ImportWeighedPackResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportWeighedPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPack), parameters, []);
lResult := (__Instance as IIEGate).ImportWeighedPack(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportWeighedPackResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportWeighedPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportWeighedPackages(const parameters: ImportWeighedPackages): ImportWeighedPackagesResponse; }
var
parameters: libPPL_Intf.ImportWeighedPackages;
lResult: libPPL_Intf.ImportWeighedPackagesResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportWeighedPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackages), parameters, []);
lResult := (__Instance as IIEGate).ImportWeighedPackages(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportWeighedPackagesResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportWeighedPackagesResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportPackagesHoffmann(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportPackagesHoffmann(const parameters: ImportPackagesHoffmann): ImportPackagesHoffmannResponse; }
var
parameters: libPPL_Intf.ImportPackagesHoffmann;
lResult: libPPL_Intf.ImportPackagesHoffmannResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportPackagesHoffmann', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmann), parameters, []);
lResult := (__Instance as IIEGate).ImportPackagesHoffmann(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportPackagesHoffmannResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportPackagesHoffmannResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportESYCOPack(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportESYCOPack(const parameters: ImportESYCOPack): ImportESYCOPackResponse; }
var
parameters: libPPL_Intf.ImportESYCOPack;
lResult: libPPL_Intf.ImportESYCOPackResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportESYCOPack', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPack), parameters, []);
lResult := (__Instance as IIEGate).ImportESYCOPack(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportESYCOPackResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportESYCOPackages(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportESYCOPackages(const parameters: ImportESYCOPackages): ImportESYCOPackagesResponse; }
var
parameters: libPPL_Intf.ImportESYCOPackages;
lResult: libPPL_Intf.ImportESYCOPackagesResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportESYCOPackages', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackages), parameters, []);
lResult := (__Instance as IIEGate).ImportESYCOPackages(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportESYCOPackagesResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportESYCOPackagesResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportStatusDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportStatusDHL(const parameters: ImportStatusDHL): ImportStatusDHLResponse; }
var
parameters: libPPL_Intf.ImportStatusDHL;
lResult: libPPL_Intf.ImportStatusDHLResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportStatusDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusDHL), parameters, []);
lResult := (__Instance as IIEGate).ImportStatusDHL(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportStatusDHLResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusDHLResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportStatusesDHL(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportStatusesDHL(const parameters: ImportStatusesDHL): ImportStatusesDHLResponse; }
var
parameters: libPPL_Intf.ImportStatusesDHL;
lResult: libPPL_Intf.ImportStatusesDHLResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportStatusesDHL', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHL), parameters, []);
lResult := (__Instance as IIEGate).ImportStatusesDHL(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportStatusesDHLResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportStatusesDHLResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportOrderCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportOrderCart(const parameters: ImportOrderCart): ImportOrderCartResponse; }
var
parameters: libPPL_Intf.ImportOrderCart;
lResult: libPPL_Intf.ImportOrderCartResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportOrderCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrderCart), parameters, []);
lResult := (__Instance as IIEGate).ImportOrderCart(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrderCartResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrderCartResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TIEGate_Invoker.Invoke_ImportOrdersCart(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ImportOrdersCart(const parameters: ImportOrdersCart): ImportOrdersCartResponse; }
var
parameters: libPPL_Intf.ImportOrdersCart;
lResult: libPPL_Intf.ImportOrdersCartResponse;
__lObjectDisposer: TROObjectDisposer;
begin
__Message.SetAttributes(__Transport, ['Action', 'Location', 'remap_GetCities', 'remap_GetPackageInfo', 'remap_GetPackagesInfo', 'remap_GetPackageToDelivery', 'remap_GetZipCodes'
, 'remap_ImportESYCOPack', 'remap_ImportESYCOPackages', 'remap_ImportOrderCart', 'remap_ImportOrderExt', 'remap_ImportOrders', 'remap_ImportOrdersCart', 'remap_ImportOrdersExt', 'remap_ImportPackageExt'
, 'remap_ImportPackages', 'remap_ImportPackagesExt', 'remap_ImportPackagesHoffmann', 'remap_ImportPPLSprint', 'remap_ImportStatusDHL', 'remap_ImportStatusesDHL', 'remap_ImportWeighedPack', 'remap_ImportWeighedPackages'
, 'Style', 'TargetNamespace', 'Type', 'Use', 'Wsdl'],
['PPLIEGate/ImportOrdersCart', 'http://www.ppl.cz/IEGate/IEGate.asmx', 'PPLIEGate/GetCities', 'PPLIEGate/GetPackageInfo', 'PPLIEGate/GetPackagesInfo', 'PPLIEGate/GetPackageToDelivery', 'PPLIEGate/GetZipCodes'
, 'PPLIEGate/ImportESYCOPack', 'PPLIEGate/ImportESYCOPackages', 'PPLIEGate/ImportOrderCart', 'PPLIEGate/ImportOrderExt', 'PPLIEGate/ImportOrders', 'PPLIEGate/ImportOrdersCart', 'PPLIEGate/ImportOrdersExt', 'PPLIEGate/ImportPackageExt'
, 'PPLIEGate/ImportPackages', 'PPLIEGate/ImportPackagesExt', 'PPLIEGate/ImportPackagesHoffmann', 'PPLIEGate/ImportPPLSprint', 'PPLIEGate/ImportStatusDHL', 'PPLIEGate/ImportStatusesDHL', 'PPLIEGate/ImportWeighedPack', 'PPLIEGate/ImportWeighedPackages'
, 'document', TargetNamespace, 'SOAP', 'literal', WSDLLocation]);
parameters := nil;
lResult := nil;
try
__Message.Read('parameters', TypeInfo(libPPL_Intf.ImportOrdersCart), parameters, []);
lResult := (__Instance as IIEGate).ImportOrdersCart(parameters);
__Message.InitializeResponseMessage(__Transport, 'libPPL', 'IEGate', 'ImportOrdersCartResponse');
__Message.Write('parameters', TypeInfo(libPPL_Intf.ImportOrdersCartResponse), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(parameters);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization
RegisterServiceAttribute('','Wsdl','http://www.ppl.cz/IEGate/IEGate.asmx?WSDL');
RegisterServiceAttribute('','TargetNamespace','PPLIEGate');
RegisterServiceAttribute('IEGate','Type','SOAP');
RegisterServiceAttribute('IEGate','Location','http://www.ppl.cz/IEGate/IEGate.asmx');
RegisterServiceAttribute('IEGate','remap_ImportPPLSprint','PPLIEGate/ImportPPLSprint');
RegisterServiceAttribute('IEGate','remap_GetZipCodes','PPLIEGate/GetZipCodes');
RegisterServiceAttribute('IEGate','remap_GetCities','PPLIEGate/GetCities');
RegisterServiceAttribute('IEGate','remap_GetPackagesInfo','PPLIEGate/GetPackagesInfo');
RegisterServiceAttribute('IEGate','remap_GetPackageToDelivery','PPLIEGate/GetPackageToDelivery');
RegisterServiceAttribute('IEGate','remap_GetPackageInfo','PPLIEGate/GetPackageInfo');
RegisterServiceAttribute('IEGate','remap_ImportOrderExt','PPLIEGate/ImportOrderExt');
RegisterServiceAttribute('IEGate','remap_ImportOrdersExt','PPLIEGate/ImportOrdersExt');
RegisterServiceAttribute('IEGate','remap_ImportPackageExt','PPLIEGate/ImportPackageExt');
RegisterServiceAttribute('IEGate','remap_ImportPackagesExt','PPLIEGate/ImportPackagesExt');
RegisterServiceAttribute('IEGate','remap_ImportPackages','PPLIEGate/ImportPackages');
RegisterServiceAttribute('IEGate','remap_ImportOrders','PPLIEGate/ImportOrders');
RegisterServiceAttribute('IEGate','remap_ImportWeighedPack','PPLIEGate/ImportWeighedPack');
RegisterServiceAttribute('IEGate','remap_ImportWeighedPackages','PPLIEGate/ImportWeighedPackages');
RegisterServiceAttribute('IEGate','remap_ImportPackagesHoffmann','PPLIEGate/ImportPackagesHoffmann');
RegisterServiceAttribute('IEGate','remap_ImportESYCOPack','PPLIEGate/ImportESYCOPack');
RegisterServiceAttribute('IEGate','remap_ImportESYCOPackages','PPLIEGate/ImportESYCOPackages');
RegisterServiceAttribute('IEGate','remap_ImportStatusDHL','PPLIEGate/ImportStatusDHL');
RegisterServiceAttribute('IEGate','remap_ImportStatusesDHL','PPLIEGate/ImportStatusesDHL');
RegisterServiceAttribute('IEGate','remap_ImportOrderCart','PPLIEGate/ImportOrderCart');
RegisterServiceAttribute('IEGate','remap_ImportOrdersCart','PPLIEGate/ImportOrdersCart');
end.

1153
libSys/plgAkce.pas Normal file
View File

File diff suppressed because it is too large Load Diff

25
libSys/plgBrowse.pas Normal file
View File

@ -0,0 +1,25 @@
unit plgBrowse;
interface
uses
plgType;
var
Cplg_SeznamVychozichNastaveniBrowse : array[TplgBrowse] of TplgVychoziNastaveniBrowse =
(
(SelfIdent : bZadny;
)
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

29
libSys/plgExtAkce.pas Normal file
View File

@ -0,0 +1,29 @@
unit plgExtAkce;
interface
uses
plgType;
{ =========================================================================== }
const
GDefiniceExtAkci : array[0..0] of TplgExtAkceDef =
(
// aby bylo mozno nemit zadnou externi akci,
// musi zustat prvni akce nedefinovana !!
(BrowseID : 0)
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

29
libSys/plgExtAttr.pas Normal file
View File

@ -0,0 +1,29 @@
unit plgExtAttr;
interface
uses
plgType;
{ =========================================================================== }
const
GDefiniceExtAttr : array[0..0] of TplgExterniAtribut =
(
// aby bylo mozno nemit zadny externi atribut,
// musi zustat prvni akce nedefinovana !!
(JmenoTabulky : '')
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

27
libSys/plgExtTrigger.pas Normal file
View File

@ -0,0 +1,27 @@
unit plgExtTrigger;
interface
uses
plgType;
{ =========================================================================== }
const
GDefiniceExtTrigger : array[0..0] of TplgExterniTrigger =
(
// aby bylo mozno nemit zadny externi trigger,
// musi zustat prvni trigger nedefinovan !!
(JmenoTabulky : '')
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

33
libSys/plgFunkce.pas Normal file
View File

@ -0,0 +1,33 @@
unit plgFunkce;
interface
uses
plgType;
// !!! POZOR !!! ##############################################################
// Funkce musi byt zadana tak, aby CREATE FUNCTION <Nazev> bylo na jednom radku:
// napr. 'CREATE FUNCTION dbo.pf_MujPrefix_MujNazev'#13+
// ############################################################################
{ =========================================================================== }
const
SeznamUzivatelskychFunkci : array[0..0] of TplgUzivatelskaFunkce =
(
// aby bylo mozno nemit zadnou uzivatelskou funkci :-)
// musi zustat prvni funkce definovana !!
(Text : '')
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

28
libSys/plgHlasky.pas Normal file
View File

@ -0,0 +1,28 @@
unit plgHlasky;
interface
// [RK 10.10.2011] zapnuto vzdy vkuli prekladovemu portalu
{$DEFINE EdHlasky}
uses
plgType;
// rozsah hlasek je W=5000000-5999999
const
GplgHlasky : array[TplgTxt] of TplgHlaska =
(
{$I ..\lib\plgHlaskyJadro.INC} // definice hlasek jadra
{$I ..\lib\plgHlaskyEx.INC} // definice ostatnich hlasek
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

2427
libSys/plgMain.pas Normal file
View File

File diff suppressed because it is too large Load Diff

34
libSys/plgQuery.pas Normal file
View File

@ -0,0 +1,34 @@
{ *************************************************************************** }
{ }
{ Jadro pluginu 2 Asseco Solutions }
{ }
{ *************************************************************************** }
unit plgQuery;
interface
uses
dxmdaset, DB;
type
TplgQuery = class(TdxMemData)
public
// zmena viditelnosti - abych mohl shodit DataSet.Modified
procedure SetModified(Value: Boolean);
end;
{ =========================================================================== }
implementation
{ ########################################################################### }
procedure TplgQuery.SetModified(Value: Boolean);
begin
inherited;
end;
{ ########################################################################### }
end.

24
libSys/plgSoudky.pas Normal file
View File

@ -0,0 +1,24 @@
unit plgSoudky;
interface
uses
plgType;
const
Cplg_SeznamSoudku : array [TplgSoudek] of TplgSoudekDef =
((SelfIdent: sdNeniVidet;
Jmeno : '')
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

189
libSys/plgSpravce.pas Normal file
View File

@ -0,0 +1,189 @@
{ *************************************************************************** }
{ }
{ Jadro pluginu 2 Asseco Solutions }
{ }
{ *************************************************************************** }
unit plgSpravce;
interface
uses
plgAkce, ddPlugin_TLB, Contnrs, Classes;
type
TJedenHelios = class
private
FHelios: IHelios;
FAkce: TplgAkcePrehledu;
public
property Helios: IHelios read FHelios;
property Akce: TplgAkcePrehledu read FAkce;
end;
TSpravceHeliosu = class
private
FSeznam: TObjectList;
function NajdiHelios(Helios: IHelios): Integer;
function NajdiIdent(Helios: IHelios): Integer;
public
constructor Create;
destructor Destroy; override;
// === pouze interni pouziti !!! =============================
procedure PridejHelios(Helios: IHelios);
procedure OdeberHelios(Helios: IHelios);
procedure NastavAkce(Helios: IHelios; Akce: TplgAkcePrehledu);
// ===========================================================
function VratVlastnika(Helios: IHelios): IHelios;
function VratAkcePrehledu(Helios: IHelios): TplgAkcePrehledu;
end;
var
SpravceHeliosu: TSpravceHeliosu = nil;
{ =========================================================================== }
implementation
{ ########################################################################### }
constructor TSpravceHeliosu.Create;
begin
inherited Create;
FSeznam := TObjectList.Create;
end;
{ --------------------------------------------------------------------------- }
destructor TSpravceHeliosu.Destroy;
begin
FSeznam.Free;
inherited;
end;
{ --------------------------------------------------------------------------- }
function TSpravceHeliosu.NajdiHelios(Helios: IHelios): Integer;
var
II: Integer;
begin
// jedeme odzadu - bude to rychlejsi
if Assigned(Helios) then
for II := FSeznam.Count-1 downto 0 do
begin
if TJedenHelios(FSeznam.Items[II]).FHelios = Helios then
begin
Result := II;
Exit;
end;
end;
Result := -1; // nenalezeno
end;
{ --------------------------------------------------------------------------- }
function TSpravceHeliosu.NajdiIdent(Helios: IHelios): Integer;
var
II: Integer;
begin
// jedeme odzadu - bude to rychlejsi
if Assigned(Helios) then
for II := FSeznam.Count-1 downto 0 do
begin
if TJedenHelios(FSeznam.Items[II]).FHelios.Ident = Helios.Ident then
begin
Result := II;
Exit;
end;
end;
Result := -1; // nenalezeno
end;
{ --------------------------------------------------------------------------- }
procedure TSpravceHeliosu.PridejHelios(Helios: IHelios);
var
JH: TJedenHelios;
begin
if not Assigned(Helios) then Exit;
JH := TJedenHelios.Create;
JH.FHelios := Helios;
FSeznam.Add(JH);
end;
{ --------------------------------------------------------------------------- }
procedure TSpravceHeliosu.OdeberHelios(Helios: IHelios);
var
II: Integer;
begin
II := NajdiHelios(Helios);
if II <> -1 then FSeznam.Delete(II);
end;
{ --------------------------------------------------------------------------- }
procedure TSpravceHeliosu.NastavAkce(Helios: IHelios; Akce: TplgAkcePrehledu);
var
II: Integer;
begin
II := NajdiHelios(Helios);
if II <> -1 then
TJedenHelios(FSeznam.Items[II]).FAkce := Akce;
end;
{ --------------------------------------------------------------------------- }
function TSpravceHeliosu.VratVlastnika(Helios: IHelios): IHelios;
var
II: Integer;
Vlastnik: IHelios;
begin
if not Assigned(Helios) then
Result := nil
else
begin
Vlastnik := Helios.HeliosVlastnik;
II := NajdiIdent(Vlastnik);
if II <> -1 then
Result := TJedenHelios(FSeznam.Items[II]).FHelios
else
Result := Vlastnik;
end;
end;
{ --------------------------------------------------------------------------- }
function TSpravceHeliosu.VratAkcePrehledu(Helios: IHelios): TplgAkcePrehledu;
var
II: Integer;
begin
II := NajdiIdent(Helios);
if II <> -1 then
Result := TJedenHelios(FSeznam.Items[II]).FAkce
else
Result := nil;
end;
{ ########################################################################### }
initialization
SpravceHeliosu := TSpravceHeliosu.Create;
{ ########################################################################### }
end.
// LIB | USER: rk | DT: 08.03.2005 13:29:04 | VER: ?? LB ?? | TXT: | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\
// LOCAL | USER: rk | DT: 08.03.2005 13:54:41 | VER: | TXT: | PC: RK | FROM: P:\ | TO: D:\!\IQ1\Eurest
// LIB | USER: rk | DT: 08.03.2005 14:13:52 | VER: ?? LB ?? | TXT: | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\
// LOCAL | USER: rk | DT: 15.03.2005 09:35:54 | VER: | TXT: | PC: RK | FROM: P:\PlugLib | TO: D:\!\IQ1\Eurest
// LIB | USER: rk | DT: 15.03.2005 10:05:23 | VER: ?? LB ?? | TXT: | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\PlugLib
// LOCAL | USER: RK | DT: 17.02.2006 09:58:05 | VER: | TXT: | PC: RK-2K | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginEurest
// LIB | USER: RK | DT: 17.02.2006 09:58:09 | VER: ?? LB ?? | TXT: | PC: RK-2K | FROM: D:\!\IQ1\PluginEurest | TO: L:\H\IQ10\PlugLib
// LOCAL | USER: RK | DT: 01.08.2007 08:37:19 | VER: | TXT: | PC: RK-XP-D | FROM: L:\H\IQ10\PlugLib | TO: D:\!\IQ1\PluginTest
// LIB | USER: RK | DT: 01.08.2007 08:52:07 | VER: ?? LB ?? | TXT: | PC: RK-XP-D | FROM: D:\!\IQ1\PluginTest | TO: L:\H\IQ10\PlugLib

23
libSys/plgTable.pas Normal file
View File

@ -0,0 +1,23 @@
unit plgTable;
interface
uses
plgType;
var
Cplg_SeznamTabulek : array[TplgTabulka] of PplgTabulkaDef =
(nil // tZadna
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

29
libSys/plgType.pas Normal file
View File

@ -0,0 +1,29 @@
unit plgType;
interface
uses
System.Classes, Vcl.Forms;
const
CVerzePluginu = Int64({$I ..\lib\plgVerze.INC});
{$I ..\lib\plgTypeTabulka.INC} // definice typu TplgTabulka
{$I ..\lib\plgTypeSoudky.INC} // definice typu TplgSoudek
{$I ..\lib\plgTypeBrowse.INC} // definice typu TplgBrowse
{$I ..\lib\plgTypeTxtJadro.INC} // definice "typu" TplgTxt - hlasky jadra
{$I ..\lib\plgTypeTxtEx.INC} // definice "typu" TplgTxt - ostatni hlasky
{$I ..\lib\plgTypeJadro.INC} // zakladni typy a konstanty jadra 1
{$I ..\lib\plgTypeZbytek.INC} // vsechny ostatni typy a konstanty
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.
// LIB | USER: rk | DT: 09.02.2005 09:09:48 | VER: ?? LB ?? | TXT: | PC: RK | FROM: D:\!\IQ1\Eurest | TO: P:\

33
libSys/plgUProc.pas Normal file
View File

@ -0,0 +1,33 @@
unit plgUProc;
interface
uses
plgType;
// !!! POZOR !!! ##############################################################
// Ulozenka musi byt zadana tak, aby CREATE PROC <Nazev> bylo na jednom radku:
// napr. 'CREATE PROCEDURE dbo.pp_MujPrefix_MujNazev'#13+
// ############################################################################
{ =========================================================================== }
const
SeznamUlozenychProcedur : array[0..0] of TplgUlozenaProcedura =
(
// aby bylo mozno nemit zadnou ulozenou proceduru :-)
// musi zustat prvni procedura definovana !!
(Text : '')
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

181
libSys/plgUta.pas Normal file
View File

@ -0,0 +1,181 @@
{ *************************************************************************** }
{ }
{ Jadro pluginu 2 Asseco Solutions }
{ }
{ *************************************************************************** }
unit plgUta;
interface
uses
plgType;
const
plg_uta_SystemoveCislo = plg_SystemoveCislo;
plg_uta_Autor = 'Autor';
plg_uta_DatPorizeni = 'DatPorizeni';
plg_uta_Zmenil = plg_Zmenil;
plg_uta_DatZmeny = plg_DatZmeny;
plg_uta_BlokovaniEditoru = plg_BlokovaniEditoru;
plg_uta_GUID = 'GUID';
plg_uta_Mena = 'Mena';
plg_uta_TextChyby = 'TextChyby';
plg_uta_ImpSoubor = 'ImpSoubor';
plg_uta_SkupZbo = 'SkupZbo';
plg_uta_RegCis = 'RegCis';
Cplg_DisplaySirkaDatum = 20; // [RK 02.07.2012] 12 -> 20
{ +++++++++++++++++++++++++++ }
Cplg_UzivatelskeAtributy : array [TplgUzivatelskyTypAtributu] of TplgUzivatelskeAtributyDef =
((SelfIdent: plg_utaZadny)
,(SelfIdent: plg_utaSystemoveCislo;
A:(JmenoSys : plg_uta_SystemoveCislo;
JmenoVerejneTxt : plxJadroSystemoveCislo;
JmenoVerejneZkrTxt : plxJadroSysCisZkr;
Typ : taIdentity;
PK_UQ : puPrimaryKey;
Vyzadovany : vTrue;
Verejny : vFalse)
)
,(SelfIdent: plg_utaSystemoveCislo64;
A:(JmenoSys : plg_uta_SystemoveCislo;
JmenoVerejneTxt : plxJadroSystemoveCislo;
JmenoVerejneZkrTxt : plxJadroSysCisZkr;
Typ : taIdentity64;
PK_UQ : puPrimaryKey;
Vyzadovany : vTrue;
Verejny : vFalse)
)
,(SelfIdent: plg_utaAutor;
A:(JmenoSys : plg_uta_Autor;
JmenoVerejneTxt : plxJadroAutor;
Typ : taNVarChar;
Delka : 128;
ServerDefault : Cplg_LoginName;
Verejny : vTrue;
SirkaSloupce : 15)
)
,(SelfIdent: plg_utaDatPorizeni;
A:(JmenoSys : plg_uta_DatPorizeni;
JmenoVerejneTxt : plxJadroDatumPorizeni;
Typ : taDateTime;
ServerDefault : Cplg_GetDate;
Verejny : vTrue;
SirkaSloupce : Cplg_DisplaySirkaDatum)
)
,(SelfIdent: plg_utaZmenil;
A:(JmenoSys : plg_uta_Zmenil;
JmenoVerejneTxt : plxJadroZmenil;
Typ : taNVarChar;
Delka : 128;
NULL : nNULL;
Verejny : vTrue;
SirkaSloupce : 20)
)
,(SelfIdent: plg_utaDatZmeny;
A:(JmenoSys : plg_uta_DatZmeny;
JmenoVerejneTxt : plxJadroDatumZmeny;
Typ : taDateTime;
NULL : nNULL;
Verejny : vTrue;
SirkaSloupce : Cplg_DisplaySirkaDatum)
)
,(SelfIdent: plg_utaBlokovaniEditoru;
A:(JmenoSys : plg_uta_BlokovaniEditoru;
JmenoVerejneTxt : plxJadroBlokovaniEditoru;
Typ : taSmallInt;
NULL : nNULL;
Vyzadovany : vTrue;
Verejny : vFalse)
)
,(SelfIdent: plg_utaGUID;
A:(JmenoSys : plg_uta_GUID;
JmenoVerejne : 'GUID';
Typ : taBinary;
Delka : 16;
Verejny : vFalse)
)
,(SelfIdent: plg_utaSazbaDPH;
A:(Typ : taNumeric_5_2;
NULL : nNULL;
ForeignKey : 'TabDPH(Sazba)';
Verejny : vTrue)
)
,(SelfIdent: plg_utaCena;
A:(Typ : taNumeric_19_6;
ServerDefault : '0.0';
Verejny : vTrue;
MaskaDisplay : DisplayMaskPenize;
Sumovat : True)
)
,(SelfIdent: plg_utaMena;
A:(JmenoSys : plg_uta_Mena;
JmenoVerejne : 'M<>na';
Typ : taNVarChar;
Delka : 3;
ForeignKey : 'TabKodMen(Kod)';
Verejny : vTrue)
)
,(SelfIdent: plg_utaTextChyby;
A:(JmenoSys : plg_uta_TextChyby;
JmenoVerejne : 'Text chyby';
Typ : taNVarChar;
Delka : 255;
ServerDefault : '''''';
Verejny : vTrue;
SirkaSloupce : 30)
)
,(SelfIdent: plg_utaImpSoubor;
A:(JmenoSys : plg_uta_ImpSoubor;
JmenoVerejne : 'Importn<74> soubor';
Typ : taNVarChar;
Delka : 255;
ServerDefault : '''''';
Verejny : vTrue;
SirkaSloupce : 30)
)
,(SelfIdent: plg_utaSkupZbo;
A:(JmenoSys : plg_uta_SkupZbo;
Typ : taNVarChar;
Delka : 3;
Verejny : vTrue;
HeliosAttr : 'TabKmenZbozi.SkupZbo')
)
,(SelfIdent: plg_utaRegCis;
A:(JmenoSys : plg_uta_RegCis;
Typ : taNVarChar;
Delka : 30;
Verejny : vTrue;
HeliosAttr : 'TabKmenZbozi.RegCis')
)
{$I ..\lib\plgUtaDef.inc}
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

28
libSys/plgVazby.pas Normal file
View File

@ -0,0 +1,28 @@
unit plgVazby;
interface
uses
plgType;
{ =========================================================================== }
const
GDefiniceVztahu : array[0..0] of TplgVztahDef =
(
// aby bylo mozno nemit zadnou vazbu,
// musi zustat prvni vazba nedefinovana !!
(GUIDVazby : '')
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

60
libSys/plgZmeny.pas Normal file
View File

@ -0,0 +1,60 @@
{ *************************************************************************** }
{ }
{! SKRIPTY BY M<>LY B<>T PS<50>NY TAK, ABY BYLY SPUSTITELN<4C> V<>CEKR<4B>T - TZN. M<>LY !}
{! BY OBSAHOVAT R<>ZN<5A> TESTY EXISTENCE - NAP<41>.: !}
{ }
{ -existuje tabulka TabXXX ? }
{ IF OBJECT_ID('TabXXX','U')IS NOT NULL ... }
{ }
{ -existuje sloupec ABC v tabulce TabXXX ? }
{ IF COLUMNPROPERTY(OBJECT_ID('TabXXX','U'),'ABC','AllowsNull')IS NOT NULL ... }
{ }
{ -existuje default DF__TabXXX__ABC na sloupci ABC v tabulce TabXXX ? }
{ IF OBJECT_ID('DF__TabXXX__ABC','D')IS NOT NULL ... }
{ }
{ kde vezmu 2. parametr syst<73>mov<6F> funkce OBJECT_ID() - je to sysobjects.xtype }
{ - viz BOL }
{ }
{!!! POZOR - POU<4F>IT<49> RETURN VE ZM<5A>NOV<4F>CH SKRIPTECH V plgZmeny.pas NEN<45> BEZTRESTN<54> !!!}
{ -proto<74>e zm<7A>nov<6F> skripty jsou obaleny knihovanmi BEGIN TRAN..COMMIT, tak }
{ by p<><70>padn<64> RETURN ponechal transakci neuzav<61>enou ! Proto bych m<>l }
{ pou<6F><75>t tuto konstrukci: }
{ IF @@TRANCOUNT>0 ROLLBACK /* nebo COMMIT dle situace */ }
{ RETURN }
{ -pokud je k<>d spou<6F>t<EFBFBD>n p<>es EXEC() nebo sp_executesql, tak tam naopak }
{ ROLLBACK (COMMIT) b<>t NESM<53>, proto<74>e RETURN ukon<6F>uje jen dan<61> EXEC() }
{ -<2D>pln<6C> nejlep<65><70> je se RETURNu ve zm<7A>nov<6F>ch skriptech <20>pln<6C> vyhnout }
{ }
{ *************************************************************************** }
unit plgZmeny;
interface
uses
plgType;
{ =========================================================================== }
const
GZmenoveSkripty : array[0..0] of TplgZmenovySkript =
(
// aby bylo mozno nemit zadny zmenovy skript,
// musi zustat prvni skript nedefinovan !!
(PlatiOd : $010020050210;
Skript : '';
)
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

31
plgExtController.pas Normal file
View File

@ -0,0 +1,31 @@
unit plgExtController;
interface
uses
plgType; //, pec_ObjednavkaDopravy, pec_DosleObjednavky;
{ =========================================================================== }
const
GDefiniceControlleru: array[0..0] of TplgEditorControllerDef =
(
// aby bylo mozno nemit zadnou definici controlleru,
// musi zustat prvni prvek nedefinovan !!
(FormIdent : '')
// ,(FormIdent: 'TedfrmUTEditorhvw_Bonum_ObjednavkyDopravy';
// ControllerClass: TplgBonumExtReseniGornicky3DObjednavkaDopravyController)
//last
);
{ =========================================================================== }
implementation
{ ########################################################################### }
{ ########################################################################### }
end.

109
plgKonfig.pas Normal file
View File

@ -0,0 +1,109 @@
{ *************************************************************************** }
{ }
{ PluginExample Asseco Solutions }
{ }
{ *************************************************************************** }
unit plgKonfig;
interface
uses
plgKonfigBase, ddPlugin_TLB;
// ============================================================================
// !!! Konfigurace zavisla na danem pluginu, je treba ji nastavit !!!
// ============================================================================
type
TPluginKonfig = class(TPluginKonfigBase)
protected
procedure NastaveniKonfigu; override;
function GetPluginVerejneJmeno: String; override;
function GetPluginTechnickyPopis: String; override;
function GetPluginHistorieVerzi: String; override;
public
function PartnerIdentification: string; override;
function PluginJazykoveDLL (AJazyk: Integer): string; override;
procedure VlastniInicializacePluginu (Helios: IHelios); override;
end;
{ =========================================================================== }
implementation
uses
SysUtils, ComObj, plgType, plgMain;
{ ########################################################################### }
procedure TPluginKonfig.NastaveniKonfigu;
begin
// !! POZOR !! Tento GUID je pouze pro PlgBonum_ExtReseniGornicky3D !!
FPluginClass_ID := StringToGUID('{EA0150F1-EA07-45D2-9109-E7349B03AC1B}');
FPluginSystemoveJmeno := 'plgLOVATO';
FPluginClassName := 'runMe';
FPluginMinimalniPozadovanaVerzeHeliosu := Cplg_PrvniUnicodeVerzeHeliosu;
FPluginCopyrightVyrobce := Format('<27> 2012-%d NTS/HD Consulting s.r.o. Strakonice', [Cplg_AktualniRok]);
FPluginIdentifikator := 'Lovato';
FPluginMinimalniPozadovanaVerzeSQLServeru:= Cplg_SQLVersion_2022_CU22;
end;
{ --------------------------------------------------------------------------- }
function TPluginKonfig.PartnerIdentification: string;
begin
// zde zadejte partnerskou identifikaci
Result := '';
end;
{ --------------------------------------------------------------------------- }
function TPluginKonfig.GetPluginVerejneJmeno: String;
begin
Result := plgCtiOznam('Plugin Extern<72> <20>e<EFBFBD>en<65> pro LOVATO P<>sek');
end;
{ --------------------------------------------------------------------------- }
function TPluginKonfig.GetPluginTechnickyPopis: String;
begin
Result := 'Plugin pro extern<72> <20>e<EFBFBD>en<65>';
end;
{ --------------------------------------------------------------------------- }
function TPluginKonfig.GetPluginHistorieVerzi: String;
begin
Result := 'Historie verz<72>';
end;
{ --------------------------------------------------------------------------- }
function TPluginKonfig.PluginJazykoveDLL (AJazyk: Integer): string;
begin
case AJazyk of
Cplg_jAnglictina,
Cplg_jExtAnglictina: Result := 'plgLovatoLng1033.DLL';
else Result := '';
end;
end;
{ --------------------------------------------------------------------------- }
procedure TPluginKonfig.VlastniInicializacePluginu (Helios: IHelios);
begin
// - tato procedura se vola vzdy pri spusteni externi akce !!
// - pokud je treba udelat nejakou inicializaci pouze jednou, je treba
// pouzit promennou, ktera bude signalizovat prvni a dalsi volani
end;
{ ########################################################################### }
end.

61
plgLOVATO.dpr Normal file
View File

@ -0,0 +1,61 @@
library plgLOVATO;
{$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,
ddPlugin_TLB,
ComObjekt in 'ComObjekt.pas' {frmUnit1 in 'frmUnit1.pas' {formImportEP},
frmUnit5 in 'frmUnit5.pas' {formKartyZbozi},
frmBaliciListy in 'frmBaliciListy.pas' {formBaliciListy},
frmUnit9 in 'frmUnit9.pas' {frmVydejDPrace},
frmOdvedPrikaz in 'frmOdvedPrikaz.pas' {formOdvedeniPrikazu},
frmUnit11 in 'frmUnit11.pas' {formStSklHrZmen},
frmUnit12 in 'frmUnit12.pas' {frmRozdelMat},
frmUnit13 in 'frmUnit13.pas' {formPrevPrij},
frmDemontaz in 'frmDemontaz.pas' {formDemontaz},
frmReklamaceMat in 'frmReklamaceMat.pas' {formReklamaceMat},
frmKanbanBox in 'frmKanbanBox.pas' {formKanbanBox},
frmUnit3 in 'frmUnit3.pas',
frmKanbanObj in 'frmKanbanObj.pas' {formKanbanObj},
Globalni in 'Globalni.pas';
// frmUnit4 in 'frmUnit4.pas' {formDodavky};
// frmUnit1 in 'frmUnit1.pas' {formImportEP},
// frmMain in 'frmMain.pas' {formMain}
exports
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;
{$R *.RES}
BEGIN
END.

244
plgLOVATO.dproj Normal file
View File

@ -0,0 +1,244 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{CFA8C8BC-D9C3-4491-8C35-1B1688ACE999}</ProjectGuid>
<MainSource>plgLOVATO.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<ProjectName Condition="'$(ProjectName)'==''">plgLOVATO</ProjectName>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>None</FrameworkType>
<ProjectVersion>20.3</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
<Base_Android>true</Base_Android>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
<Cfg_2_Win64>true</Cfg_2_Win64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_UnitSearchPath>.\lib;.\libSys;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<GenDll>true</GenDll>
<SanitizedProjectName>plgLOVATO</SanitizedProjectName>
<VerInfo_Locale>1029</VerInfo_Locale>
<VerInfo_Keys>CompanyName=NTS computer a.s. Strakonice / HD Consulting Strakonice;FileDescription=Helios Orange plugin - LOVATO Electric s.r.o. Pisek;FileVersion=3.0.2026.407;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=plgLOVATO.dll;ProductName=;ProductVersion=1.0.0.0;Comments=XE12.3.1;CFBundleName=</VerInfo_Keys>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Winapi;$(DCC_Namespace)</DCC_Namespace>
<VerInfo_MajorVer>3</VerInfo_MajorVer>
<VerInfo_Release>2026</VerInfo_Release>
<VerInfo_Build>407</VerInfo_Build>
<VerInfo_DLL>true</VerInfo_DLL>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android)'!=''">
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35</VerInfo_Keys>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35</VerInfo_Keys>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
<EnabledSysJars>activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Debugger_HostApplication>D:\Data\Helios\HeliosMain.exe</Debugger_HostApplication>
<Debugger_CWD>D:\Data\Helios</Debugger_CWD>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Debugger_HostApplication>D:\Data\Helios\win64\HeliosMain.exe</Debugger_HostApplication>
<Debugger_CWD>D:\Data\Helios</Debugger_CWD>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_Keys>CompanyName=NTS computer a.s. Strakonice / HD Consulting Strakonice;FileDescription=Helios Orange plugin - LOVATO Electric s.r.o. Pisek;FileVersion=3.0.2026.407;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=plgLOVATO.dll;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=XE12.3.1</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>(None)</Manifest_File>
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_RangeChecking>true</DCC_RangeChecking>
<DCC_IntegerOverflowCheck>true</DCC_IntegerOverflowCheck>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<VerInfo_Debug>true</VerInfo_Debug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<Manifest_File>(None)</Manifest_File>
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=3.0.2026.407;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<Manifest_File>(None)</Manifest_File>
<AppDPIAwarenessMode>none</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="ComObjekt.pas">
<Form>frmUnit1 in &apos;frmUnit1.pas&apos; {formImportEP</Form>
</DCCReference>
<DCCReference Include="frmUnit5.pas">
<Form>formKartyZbozi</Form>
</DCCReference>
<DCCReference Include="frmBaliciListy.pas">
<Form>formBaliciListy</Form>
</DCCReference>
<DCCReference Include="frmUnit9.pas">
<Form>frmVydejDPrace</Form>
</DCCReference>
<DCCReference Include="frmOdvedPrikaz.pas">
<Form>formOdvedeniPrikazu</Form>
</DCCReference>
<DCCReference Include="frmUnit11.pas">
<Form>formStSklHrZmen</Form>
</DCCReference>
<DCCReference Include="frmUnit12.pas">
<Form>frmRozdelMat</Form>
</DCCReference>
<DCCReference Include="frmUnit13.pas">
<Form>formPrevPrij</Form>
</DCCReference>
<DCCReference Include="frmDemontaz.pas">
<Form>formDemontaz</Form>
</DCCReference>
<DCCReference Include="frmReklamaceMat.pas">
<Form>formReklamaceMat</Form>
</DCCReference>
<DCCReference Include="frmKanbanBox.pas">
<Form>formKanbanBox</Form>
</DCCReference>
<DCCReference Include="frmUnit3.pas"/>
<DCCReference Include="frmKanbanObj.pas">
<Form>formKanbanObj</Form>
</DCCReference>
<DCCReference Include="Globalni.pas"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">plgLOVATO.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\SVGIconImageList290.bpl">Ethea SVGIconImageList VCL components</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\EssentialsDR290.bpl">TurboPack Essentials Delphi Runtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\PngComponentsD290.bpl">Png Components for Delphi</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dmvcframeworkRT120.bpl">DMVCFramework - CopyRight (2010-2025) Daniele Teti and the DMVCFramework Team</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\ColorButton.bpl">(untitled)</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\VirtualTreesDD290.bpl">File C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\VirtualTreesDD290.bpl not found</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\Vyvoj12_0.bpl">Helios Orange Components</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\LockBox3DR290.bpl">TurboPack LockBox 3 Delphi runtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Program Files (x86)\Embarcadero\Studio\22.0\bin\dclstd280.bpl">Embarcadero Standard Components</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\OrpheusDBDD290.bpl">TurboPack Orpheus Delphi datataware designtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\LockBox3VCLDD290.bpl">TurboPack LockBox 3 VCL designtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\LockBoxDD290.bpl">TurboPack LockBox Delphi designtime package</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclIconFontsImageList290.bpl">Ethea IconFontsImageList VCL components</Excluded_Packages>
<Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\dclIconFontsImageListFMX290.bpl">Ethea IconFontsImageList FMX components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLVCLTeeGrid29.bpl">File D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLVCLTeeGrid29.bpl not found</Excluded_Packages>
<Excluded_Packages Name="D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLFMXTeeGrid29.bpl">File D:\Data\_komponenty\TeeGrid\Compiled\Delphi29.win32\Bin\DCLFMXTeeGrid29.bpl not found</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Platforms>
<Platform value="Android">False</Platform>
<Platform value="Android64">False</Platform>
<Platform value="Linux64">False</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">True</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
</Project>

BIN
plgLOVATO.otares Normal file
View File

Binary file not shown.

BIN
plgLOVATO.res Normal file
View File

Binary file not shown.

BIN
plgLOVATO_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB

BIN
plgLOVATO_Icon1.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.2 KiB