Prvni verze na Git
This commit is contained in:
@@ -77,7 +77,16 @@ __recovery/
|
|||||||
|
|
||||||
# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
|
# Castalia statistics file (since XE7 Castalia is distributed with Delphi)
|
||||||
*.stat
|
*.stat
|
||||||
|
.gitignore
|
||||||
|
*.log
|
||||||
|
*.dxsettings
|
||||||
|
|
||||||
|
*.7z
|
||||||
|
*.zip
|
||||||
|
*.skincfg
|
||||||
|
*.json
|
||||||
|
|
||||||
# Boss dependency manager vendor folder https://github.com/HashLoad/boss
|
# Boss dependency manager vendor folder https://github.com/HashLoad/boss
|
||||||
modules/
|
modules/
|
||||||
|
|
||||||
|
importKusovnikCAD/
|
||||||
|
|||||||
+973
@@ -0,0 +1,973 @@
|
|||||||
|
unit ComObjekt;
|
||||||
|
|
||||||
|
{$I HeODefine.inc}
|
||||||
|
|
||||||
|
INTERFACE
|
||||||
|
|
||||||
|
uses System.Win.ComObj, System.Classes, System.StrUtils, System.SysUtils, ddPlugin_TLB, Winapi.Windows;
|
||||||
|
|
||||||
|
const
|
||||||
|
Class_Monte: TGUID = '{32EAE564-687F-475D-9CFC-49F18260D835}';
|
||||||
|
CRLF = #13#10;
|
||||||
|
clRed = $0000FF;
|
||||||
|
tblImpKusXLS = '[dbo].[_HDC_ImportKusovnikXLS]';
|
||||||
|
BrowseID_PluginInfo = 871;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
TKmen = record
|
||||||
|
poz, idKmen, vyrobceCisOrg: integer;
|
||||||
|
cislo, nazev, vyrobce, norma, rozmer, material, pu, pozn, jakObj: string;
|
||||||
|
mnoz: Extended;
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
class operator Initialize (out Dest: TKmen);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
TKmenHelper = record helper for TKmen
|
||||||
|
function Clear: Boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// !!! pri zmene IHePluginXX upravit take v plgAbout - info o jadru !!!
|
||||||
|
TplgHDCMontekord = class(TComObject, {$IFDEF IHePlugin3} IHePlugin3 {$ELSE} IHePlugin {$ENDIF})
|
||||||
|
protected
|
||||||
|
// function DelphiCompilerVersion: Single; safecall;
|
||||||
|
// function PartnerIdentification: WideString; safecall;
|
||||||
|
procedure Run (const Helios: IHelios); safecall;
|
||||||
|
private
|
||||||
|
FHelios: IHelios;
|
||||||
|
procedure OnException (Sender: TObject; E: Exception);
|
||||||
|
public
|
||||||
|
procedure ImportKusovniku (const Helios: IHelios); safecall;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
IMPLEMENTATION
|
||||||
|
|
||||||
|
uses System.Variants, Vcl.Controls, System.Win.ComServ, System.Types, Vcl.Forms, Winapi.ShlObj, Vcl.Dialogs,
|
||||||
|
Vcl.StdCtrls, System.DateUtils, Vcl.Clipbrd,
|
||||||
|
FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
|
||||||
|
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MSSQL, FireDAC.Phys.MSSQLDef, FireDAC.VCLUI.Wait,
|
||||||
|
FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Phys.ODBCBase, Data.DB,
|
||||||
|
FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Comp.UI,
|
||||||
|
frmImportKusovnik,
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
plgKonfig, plgType, plgMain, plgSpravce,
|
||||||
|
// [RK 13.04.2012] nove komponenty DevExpress toto vyzaduji, jinak zatuhne Helios
|
||||||
|
dxGDIPlusAPI, dxCore, {!initialization!}
|
||||||
|
{$ENDIF}
|
||||||
|
nExcel, xlsxwrite, helUtils;
|
||||||
|
|
||||||
|
|
||||||
|
var HeliosX: IHelios;
|
||||||
|
oVar1, oVar2: OleVariant;
|
||||||
|
LocalFormatSettings: TFormatSettings;
|
||||||
|
jeTest: boolean;
|
||||||
|
bidPrednaOpAll: integer;
|
||||||
|
cestaExport, verText: string;
|
||||||
|
kartyImport: TArray<TKmen>;
|
||||||
|
vTab, vTab2: TFDMemTable;
|
||||||
|
ds, ds2: TDataSource;
|
||||||
|
sql, sql2: TFDQuery;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function NullOrQuotedString(inStr: string): string;
|
||||||
|
begin
|
||||||
|
inStr:= Trim(inStr);
|
||||||
|
if (inStr='') then
|
||||||
|
result:= 'NULL'
|
||||||
|
else
|
||||||
|
result:= QuotedStr(inStr);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
{ TKmenHelper }
|
||||||
|
function TKmenHelper.Clear: Boolean;
|
||||||
|
begin
|
||||||
|
result:= true;
|
||||||
|
try
|
||||||
|
self.idKmen:= 0;
|
||||||
|
self.poz:= 0;
|
||||||
|
self.vyrobceCisOrg:= 0;
|
||||||
|
self.mnoz:= 0;
|
||||||
|
self.cislo:= '';
|
||||||
|
self.nazev:= '';
|
||||||
|
self.vyrobce:= '';
|
||||||
|
self.norma:= '';
|
||||||
|
self.jakObj:= '';
|
||||||
|
self.rozmer:= '';
|
||||||
|
self.material:= '';
|
||||||
|
self.pu:= '';
|
||||||
|
self.pozn:= '';
|
||||||
|
except
|
||||||
|
result:= false;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
class operator TKmen.Initialize (out Dest: TKmen);
|
||||||
|
begin
|
||||||
|
Dest.idKmen:= 0;
|
||||||
|
Dest.poz:= 0;
|
||||||
|
Dest.vyrobceCisOrg:= 0;
|
||||||
|
Dest.mnoz:= 0;
|
||||||
|
Dest.cislo:= '';
|
||||||
|
Dest.nazev:= '';
|
||||||
|
Dest.vyrobce:= '';
|
||||||
|
Dest.norma:= '';
|
||||||
|
Dest.rozmer:= '';
|
||||||
|
Dest.material:= '';
|
||||||
|
Dest.pu:= '';
|
||||||
|
Dest.pozn:= '';
|
||||||
|
Dest.jakObj:= '';
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function VyberAdresar (var Foldr: string; Title: string): Boolean;
|
||||||
|
var BrowseInfo: TBrowseInfo;
|
||||||
|
ItemIDList: PItemIDList;
|
||||||
|
DisplayName: array[0..MAX_PATH] of Char;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
FillChar(BrowseInfo, SizeOf(BrowseInfo), #0);
|
||||||
|
with BrowseInfo do
|
||||||
|
begin
|
||||||
|
hwndOwner := Application.Handle;
|
||||||
|
pszDisplayName := @DisplayName[0];
|
||||||
|
lpszTitle := PChar(Title);
|
||||||
|
ulFlags := BIF_RETURNONLYFSDIRS;
|
||||||
|
end;
|
||||||
|
ItemIDList := SHBrowseForFolder(BrowseInfo);
|
||||||
|
if Assigned(ItemIDList) then
|
||||||
|
if SHGetPathFromIDList(ItemIDList, DisplayName) then
|
||||||
|
begin
|
||||||
|
Foldr := DisplayName;
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
function OtevriSoubor (flt1,flt2: string; var nazev: string): Boolean;
|
||||||
|
var dlgOpenW7: TFileOpenDialog; // dialog pro Windows Vista a novejsi
|
||||||
|
titulek, filtr1, filtr2: string;
|
||||||
|
iniDir: string;
|
||||||
|
begin
|
||||||
|
result:= false;
|
||||||
|
titulek:= 'Vyberte soubor pro import';
|
||||||
|
filtr1:= IfThen(flt1<>'',flt1,'XLS/X soubory');
|
||||||
|
filtr2:= IfThen(flt2<>'',flt2,'*.xls, *.xlsx');
|
||||||
|
nazev:= '';
|
||||||
|
iniDir:= GetEnvironmentVariable('USERPROFILE') + '\Desktop';
|
||||||
|
try
|
||||||
|
dlgOpenW7:= TFileOpenDialog.Create(nil);
|
||||||
|
dlgOpenW7.Title:= titulek;
|
||||||
|
dlgOpenW7.OkButtonLabel:= 'Vybrat';
|
||||||
|
with dlgOpenW7.FileTypes.Add do
|
||||||
|
begin
|
||||||
|
DisplayName:= filtr1;
|
||||||
|
FileMask:= filtr2;
|
||||||
|
end;
|
||||||
|
dlgOpenW7.DefaultFolder:= iniDir;
|
||||||
|
if dlgOpenW7.Execute then
|
||||||
|
begin
|
||||||
|
nazev:= dlgOpenW7.FileName;
|
||||||
|
result:= true;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
dlgOpenW7.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgHDCMontekord.OnException (Sender: TObject; E: Exception);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
LockWindowUpdate (0);
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
FHelios.Error (plgPrelozException (E.Message));
|
||||||
|
{$ENDIF}
|
||||||
|
except
|
||||||
|
Vcl.Forms.Application.ShowException (E); //pro jistotu
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgHDCMontekord.ImportKusovniku (const Helios: IHelios);
|
||||||
|
var lSQL, lSQL2, podm: string;
|
||||||
|
xls: IXLSWorkBook;
|
||||||
|
shKarty: IXLSWorksheet;
|
||||||
|
karta: TKmen;
|
||||||
|
iTemp, idKZ, idKZFin: integer;
|
||||||
|
sTemp: string;
|
||||||
|
filtr1, filtr2, fName, colName, readVal, lastNRC, lastVRC, rcFin: string;
|
||||||
|
insId, idxR, iRowMax, iCol, iColMax, cEmptyRadek: integer;
|
||||||
|
mnoz, ztraty: Extended;
|
||||||
|
i_Poz, i_CisloDilu, i_Nazev, i_Ks, i_Vyrobce, i_Norma, i_Rozmer, i_Material, i_PU, i_ziskani, i_pozn: integer;
|
||||||
|
radekV00: boolean;
|
||||||
|
begin
|
||||||
|
filtr1:= 'Sešit MS Excel 2003-2019';
|
||||||
|
filtr2:= '*.xls;*.xlsx;';
|
||||||
|
if OtevriSoubor(filtr1, filtr2, fName) then
|
||||||
|
if (FileExists(fName)) then
|
||||||
|
begin
|
||||||
|
Screen.Cursor:= crHourGlass;
|
||||||
|
|
||||||
|
xls:= TXLSWorkbook.Create;
|
||||||
|
try
|
||||||
|
xls.Open(fName);
|
||||||
|
shKarty:= xls.Sheets.Entries[1];
|
||||||
|
|
||||||
|
i_Poz:= 0;
|
||||||
|
|
||||||
|
lastNRC:= '';
|
||||||
|
lastVRC:= '';
|
||||||
|
|
||||||
|
iRowMax:= 0;
|
||||||
|
cEmptyRadek:= 0;
|
||||||
|
try
|
||||||
|
for idxR:=1 to 60000 do
|
||||||
|
begin
|
||||||
|
if (cEmptyRadek>5) then
|
||||||
|
begin
|
||||||
|
iRowMax:= idxR;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
if (VarIsNull(shKarty.Cells.Item[idxR, 1].Value)) then
|
||||||
|
Inc(cEmptyRadek)
|
||||||
|
else
|
||||||
|
if (VarToStr(shKarty.Cells.Item[idxR, 1].Value)='') then
|
||||||
|
Inc(cEmptyRadek)
|
||||||
|
else
|
||||||
|
cEmptyRadek:= 0;
|
||||||
|
end;
|
||||||
|
except on E:Exception do
|
||||||
|
Helios.Error(#1'idxR: ' + idxR.ToString + CRLF + E.Message + #1)
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
for idxR:=iRowMax downto 1 do
|
||||||
|
begin
|
||||||
|
if (not VarIsNull(shKarty.Cells.Item[idxR, 1].Value)) then
|
||||||
|
if (VarToStr(shKarty.Cells.Item[idxR, 1].Value)<>'') then
|
||||||
|
begin
|
||||||
|
iRowMax:= idxR;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (iRowMax>1) then
|
||||||
|
begin
|
||||||
|
rcFin:= '';
|
||||||
|
|
||||||
|
|
||||||
|
if (jeTest) then
|
||||||
|
begin
|
||||||
|
lSQL:= 'IF OBJECT_ID(N''dbo._TabHDCKusovnik'', N''U'') IS NULL' + CRLF;
|
||||||
|
lSQL:= lSQL + ' CREATE TABLE dbo._TabHDCKusovnik (ID INT IDENTITY(1,1) NOT NULL, IDKmenVyssi INT, IDKmenNizsi INT, Pozice SMALLINT, CisloDilu NVARCHAR(50)';
|
||||||
|
lSQL:= lSQL + ', Nazev NVARCHAR(100), Mnozstvi NUMERIC(19,6) NOT NULL DEFAULT 0.0, Vyrobce NVARCHAR(100), CisOrgDod INT, Norma NVARCHAR(100), Rozmer NVARCHAR(50), Material NVARCHAR(50)';
|
||||||
|
lSQL:= lSQL + ', PovrchovaUprava NVARCHAR(100), JakZiskat NVARCHAR(50), Poznamka NVARCHAR(500) )' + CRLF;
|
||||||
|
lSQL:= lSQL + ' ELSE TRUNCATE TABLE dbo._TabHDCKusovnik';
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
lSQL:= 'DROP TABLE IF EXISTS #TabHDCKusovnik' + CRLF;
|
||||||
|
lSQL:= lSQL + 'CREATE TABLE #TabHDCKusovnik (ID INT IDENTITY(1,1) NOT NULL, IDKmenVyssi INT, IDKmenNizsi INT, Pozice SMALLINT, CisloDilu NVARCHAR(50)';
|
||||||
|
lSQL:= lSQL + ', Nazev NVARCHAR(100), Mnozstvi NUMERIC(19,6) NOT NULL DEFAULT 0.0, Vyrobce NVARCHAR(100), CisOrgDod INT, Norma NVARCHAR(100), Rozmer NVARCHAR(50), Material NVARCHAR(50)';
|
||||||
|
lSQL:= lSQL + ', PovrchovaUprava NVARCHAR(100), JakZiskat NVARCHAR(50), Poznamka NVARCHAR(500) )' + CRLF;
|
||||||
|
end;
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
|
||||||
|
for iCol:=1 to 30 do
|
||||||
|
begin
|
||||||
|
{
|
||||||
|
if (VarIsNull(shKarty.Cells.Item[1, iCol].Value)) then
|
||||||
|
begin
|
||||||
|
iColMax:= iCol-1;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (VarToStr(shKarty.Cells.Item[1, iCol].Value)='') then
|
||||||
|
begin
|
||||||
|
iColMax:= iCol-1;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='POZ') then
|
||||||
|
i_Poz:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Číslo dílu') then
|
||||||
|
i_CisloDilu:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Název') then
|
||||||
|
i_Nazev:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='KS') then
|
||||||
|
i_Ks:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Výrobce') then
|
||||||
|
i_Vyrobce:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='NORMA') then
|
||||||
|
i_Norma:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='ROZMĚR') then
|
||||||
|
i_Rozmer:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='MATER.') then
|
||||||
|
i_Material:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='PÚ') then
|
||||||
|
i_PU:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='získání') then
|
||||||
|
i_ziskani:= iCol;
|
||||||
|
if (VarToStr(shKarty.Cells.Item[1, iCol].Value).Trim='Pozn před') then
|
||||||
|
i_pozn:= iCol;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (i_Poz=0) or (i_CisloDilu=0) or (i_Norma=0) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Tabulka není v požadovaném formátu'#1);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
if (i_Poz>0) and (i_CisloDilu>0) and (i_Norma>0) then
|
||||||
|
begin
|
||||||
|
// helUtils.waitStart(nil, 'Import dat...', iRowMax, clRed);
|
||||||
|
vTab:= TFDMemTable.Create(nil);
|
||||||
|
try
|
||||||
|
with vTab do
|
||||||
|
begin
|
||||||
|
FieldDefs.Add('vPoz', ftInteger, 0, true);
|
||||||
|
FieldDefs.Add('vCisloDilu', ftString, 50, true);
|
||||||
|
FieldDefs.Add('vNazev', ftString, 100, true);
|
||||||
|
FieldDefs.Add('vKs', ftFloat, 0, true);
|
||||||
|
FieldDefs.Add('vVyrobce', ftString, 100, false);
|
||||||
|
FieldDefs.Add('vCisOrgDod', ftInteger, 0, false);
|
||||||
|
FieldDefs.Add('vNorma', ftString, 100, false);
|
||||||
|
FieldDefs.Add('vRozmer', ftString, 100, false);
|
||||||
|
FieldDefs.Add('vMaterial', ftString, 100, false);
|
||||||
|
FieldDefs.Add('vPU', ftString, 100, false);
|
||||||
|
FieldDefs.Add('vZiskani', ftString, 50, false);
|
||||||
|
FieldDefs.Add('vPozn', ftString, 1000, false);
|
||||||
|
FieldDefs.Add('vIdKmen', ftInteger, 0, false);
|
||||||
|
CreateDataSet;
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// waitStart(nil, 'Vytváření pomocné tabulky...', sheet.LastRow, $0000FF); // clRed
|
||||||
|
// helUtils.waitSetMsg('Probíhá zápis dat...');
|
||||||
|
idxR:= 2;
|
||||||
|
|
||||||
|
// nacti radky
|
||||||
|
while (idxR<=iRowMax) do
|
||||||
|
begin
|
||||||
|
karta.Clear;
|
||||||
|
if not(VarIsNull(shKarty.Cells.Item[idxR, i_Poz].Value)) then
|
||||||
|
begin
|
||||||
|
if not(TryStrToInt(shKarty.Cells.Item[idxR, i_Poz].Value, karta.poz)) then
|
||||||
|
karta.poz:= 0;
|
||||||
|
|
||||||
|
if (i_CisloDilu>0) then
|
||||||
|
karta.cislo:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_CisloDilu].Value), VarToStr(shKarty.Cells.Item[idxR, i_CisloDilu].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_Nazev>0) then
|
||||||
|
karta.nazev:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Nazev].Value), VarToStr(shKarty.Cells.Item[idxR, i_Nazev].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if not(TryStrToFloat(shKarty.Cells.Item[idxR, i_Ks].Value, karta.mnoz)) then
|
||||||
|
karta.mnoz:= 0;
|
||||||
|
|
||||||
|
if (i_Vyrobce>0) then
|
||||||
|
begin
|
||||||
|
karta.vyrobce:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Vyrobce].Value), VarToStr(shKarty.Cells.Item[idxR, i_Vyrobce].Value), '').Replace(#10, '');
|
||||||
|
if (karta.vyrobce<>'') then
|
||||||
|
begin
|
||||||
|
lSQL2:= 'SELECT TOP(1) c.CisloOrg FROM ' + tblCOrg + ' c INNER JOIN ' + tblCOrgE + ' ce ON (ce.ID=c.ID) WHERE ce._NazevProImportKusovniku=N' + karta.vyrobce.QuotedString;
|
||||||
|
karta.vyrobceCisOrg:= helUtils.getHeliosIntVal(Helios, 0, lSQL2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (i_Norma>0) then
|
||||||
|
karta.norma:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Norma].Value), VarToStr(shKarty.Cells.Item[idxR, i_Norma].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_Rozmer>0) then
|
||||||
|
karta.rozmer:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Rozmer].Value), VarToStr(shKarty.Cells.Item[idxR, i_Rozmer].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_Material>0) then
|
||||||
|
karta.material:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Material].Value), VarToStr(shKarty.Cells.Item[idxR, i_Material].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_PU>0) then
|
||||||
|
karta.pu:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_PU].Value), VarToStr(shKarty.Cells.Item[idxR, i_PU].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_ziskani>0) then
|
||||||
|
karta.jakObj:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_ziskani].Value), VarToStr(shKarty.Cells.Item[idxR, i_ziskani].Value), '');
|
||||||
|
|
||||||
|
if (i_pozn>0) then
|
||||||
|
karta.pozn:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_pozn].Value), VarToStr(shKarty.Cells.Item[idxR, i_pozn].Value), '').Replace(#10, CRLF);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
lSQL:= 'INSERT ' + tblImpKusXLS + ' (Pozice, CisloDilu, Nazev, Mnozstvi, Vyrobce, Norma, Rozmer, Material, PU, JakZiskat, Poznamka) SELECT ' + karta.poz.ToString;
|
||||||
|
lSQL:= lSQL + ', N' + karta.cislo.QuotedString + ', N' + karta.nazev.QuotedString + ', ' + karta.mnoz.ToString.Replace(',', '.') + ', N' + karta.vyrobce.QuotedString;
|
||||||
|
lSQL:= lSQL + ', N' + karta.norma.QuotedString + ', N' + karta.rozmer.QuotedString + ', N' + karta.material.QuotedString + ', N' + karta.pu.QuotedString;
|
||||||
|
lSQL:= lSQL + ', N' + karta.jakObj.QuotedString + ', N' + karta.pozn.QuotedString;
|
||||||
|
try
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
finally
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
karta.idKmen:= 0;
|
||||||
|
if (karta.poz>0) then
|
||||||
|
begin
|
||||||
|
if (rcFin='') and (karta.cislo<>'') and (idKZFin=0) then
|
||||||
|
begin
|
||||||
|
idKZFin:= 0;
|
||||||
|
rcFin:= LeftStr(karta.cislo, karta.cislo.IndexOf('-')) + MidStr(karta.cislo, karta.cislo.IndexOf('-')+2, 255);
|
||||||
|
rcFin:= LeftStr(rcFin, rcFin.IndexOf('-'));
|
||||||
|
rcFin:= LeftStr(rcFin, 2) + '-' + MidStr(rcFin, 3, 30);
|
||||||
|
idKZFin:= helUtils.getHeliosIntVal(Helios, 0, 'SELECT ID FROM ' + tblKZ + ' WHERE RegCis=N' + rcFin.QuotedString + ' AND SkupZbo=N''500''');
|
||||||
|
if (idKZFin=0) then
|
||||||
|
begin
|
||||||
|
lSQL2:= 'DECLARE @idKZ INT' + CRLF + 'EXEC @idKZ=dbo.hp_VytvorPolozkuKmeneZbozi @SZ=N''500'', @RegCis=N' + rcFin.QuotedString;
|
||||||
|
lSQL2:= lSQL2 + ', @Nazev1=N' + rcFin.QuotedString +', @Dilec=1' + CRLF + 'SELECT @idKZ AS newid';
|
||||||
|
with Helios.OpenSQL(lSQL2) do
|
||||||
|
if (RecordCount=1) then
|
||||||
|
idKZFin:= VarToStr(FieldByNameValues('newid')).ToInteger;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (karta.poz<300) and (karta.idKmen=0) then
|
||||||
|
begin
|
||||||
|
karta.idKmen:= helUtils.getHeliosIntVal(Helios, 0, 'SELECT ID FROM ' + tblKZ + ' WHERE RegCis=N' + karta.cislo.QuotedString + ' AND SkupZbo=N''300''');
|
||||||
|
if (karta.idKmen=0) then
|
||||||
|
begin
|
||||||
|
lSQL2:= 'DECLARE @idKZ INT' + CRLF + 'EXEC @idKZ=dbo.hp_VytvorPolozkuKmeneZbozi @SZ=N''300'', @RegCis=N' + karta.cislo.QuotedString;
|
||||||
|
lSQL2:= lSQL2 + ', @Nazev1=N' + karta.nazev.QuotedString +', @Dilec=1' + CRLF + 'SELECT @idKZ AS newid';
|
||||||
|
with Helios.OpenSQL(lSQL2) do
|
||||||
|
if (RecordCount=1) then
|
||||||
|
karta.idKmen:= VarToStr(FieldByNameValues('newid')).ToInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (karta.idKmen>0) then
|
||||||
|
begin
|
||||||
|
lSQL2:= 'DECLARE @zmenaOd INT, @zmenaOdOld INT' + CRLF + 'SET @zmenaOdOld=(SELECT TOP(1) ID FROM ' + tblCZmen + ' WHERE datum<=GETDATE() AND Platnost=1)' + CRLF;
|
||||||
|
lSQL2:= lSQL2 + 'IF NOT EXISTS (SELECT 1 FROM ' + tblKVaz + ' WHERE vyssi=' + idKZFin.ToString + ' AND nizsi=' + karta.idKmen.ToString + ' AND ZmenaDo IS NULL)' + CRLF;
|
||||||
|
lSQL2:= lSQL2 + ' BEGIN' + CRLF + ' SET @zmenaOd=(SELECT MAX(ZmenaOd) FROM ' + tblKVaz + ' WHERE vyssi=' + idKZFin.ToString + ' AND nizsi=' + karta.idKmen.ToString + ')' + CRLF;
|
||||||
|
lSQL2:= lSQL2 + ' IF (@zmenaOd IS NULL) AND (@zmenaOdOld IS NOT NULL) SET @zmenaOd = @zmenaOdOld' + CRLF;
|
||||||
|
lSQL2:= lSQL2 + ' INSERT ' + tblKVaz + ' (vyssi, nizsi, mnozstvi, mnozstviSeZtratou, Prirez, Pozice, ZmenaOd) SELECT ' + idKZFin.ToString + ', ' + karta.idKmen.ToString;
|
||||||
|
lSQL2:= lSQL2 + ', ' + karta.mnoz.ToString.Replace(',', '.') + ', ' + karta.mnoz.ToString.Replace(',', '.') + ', 1, N' + karta.poz.ToString.QuotedString + ', @zmenaOd' + CRLF;
|
||||||
|
lSQL2:= lSQL2 + ' END' + CRLF;
|
||||||
|
Helios.ExecSQL(lSQL2);
|
||||||
|
end;
|
||||||
|
karta.idKmen:= 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
lSQL:= 'SELECT d.IDKmenZbozi FROM ' + tblDodavateleZboziE + ' e JOIN ' + tblDodavateleZbozi + ' d ON (d.ID=e.ID) WHERE e._KodDodavatele LIKE N';
|
||||||
|
lSQL:= lSQL + ('%' + karta.norma + '%').QuotedString;
|
||||||
|
iTemp:= helUtils.getHeliosRowCount(Helios, lSQL);
|
||||||
|
if (iTemp=0) then
|
||||||
|
begin // zalozeni nove karty
|
||||||
|
lSQL2:= 'DECLARE @idKZ INT' + CRLF + 'EXEC @idKZ=dbo.hp_VytvorPolozkuKmeneZbozi @SZ=N''100'', @RegCis=NULL, @Nazev1=N' + karta.nazev.QuotedString +', @Material=1' + CRLF;
|
||||||
|
lSQL2:= lSQL2 + 'SELECT @idKZ AS newid';
|
||||||
|
with Helios.OpenSQL(lSQL2) do
|
||||||
|
if (RecordCount=1) then
|
||||||
|
karta.idKmen:= VarToStr(FieldByNameValues('newid')).ToInteger;
|
||||||
|
if (karta.idKmen>0) then
|
||||||
|
begin
|
||||||
|
lSQL2:= 'UPDATE ' + tblKZ + ' SET Aktualni_Dodavatel=' + karta.vyrobceCisOrg.ToString + ' WHERE ID=' + karta.idKmen.ToString;
|
||||||
|
Helios.ExecSQL(lSQL2);
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if (iTemp=1) then
|
||||||
|
karta.idKmen:= helUtils.getHeliosIntVal(Helios, 0, lSQL)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
podm:= 'TabKmenZbozi.ID IN (' + lSQL + ')';
|
||||||
|
podm:= 'TabKmenZbozi.Sluzba=0';
|
||||||
|
if (Helios.Prenos(bidKZ, 'TabKmenZbozi.ID', oVar1, podm, 'Vyberte materiál pozice ' + karta.poz.ToString + ' / číslo dílu ' + karta.cislo
|
||||||
|
+ ' / název ' + karta.nazev + ' >> norma (kód dodavatele) ' + karta.norma, false)) then
|
||||||
|
karta.idKmen:= VarToStr(oVar1).ToInteger;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (karta.idKmen>0) then
|
||||||
|
begin
|
||||||
|
lSQL:= 'INSERT #TabHDCKusovnik (IDKmenVyssi, IDKmenNizsi, Pozice, CisloDilu, Nazev, Mnozstvi, Vyrobce, CisOrgDod, Norma, Rozmer, Material, PovrchovaUprava, JakZiskat, Poznamka)';
|
||||||
|
lSQL:= lSQL + ' SELECT ' + idKZFin.ToString + ', ' + karta.idKmen.ToString + ', ' + karta.poz.ToString + ', N' + karta.cislo.QuotedString + ', N' + karta.nazev.QuotedString;
|
||||||
|
lSQL:= lSQL + ', ' + karta.mnoz.ToString.Replace(',', '.') + ', N' + karta.vyrobce.QuotedString + ', ' + karta.vyrobceCisOrg.ToString + ', N' + karta.norma.QuotedString;
|
||||||
|
lSQL:= lSQL + ', N' + karta.rozmer.QuotedString + ', ' + karta.material.QuotedString + ', N' + karta.pu.QuotedString + ', N' + karta.jakObj.QuotedString;
|
||||||
|
lSQL:= lSQL + ', N' + karta.pozn.QuotedString;
|
||||||
|
if (jeTest) then
|
||||||
|
lSQL:= lSQL.Replace('#Tab', 'dbo._Tab');
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Inc(idxR);
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
Helios.ExecSQL('UPDATE ' + tblImpKusXLS + ' SET Projekt=N' + rcFin.QuotedString + 'WHERE Projekt IS NULL');
|
||||||
|
Helios.ExecSQL('IF OBJECT_ID(N''dbo.ep_HDC_VytvorKusovnikXLS'', N''P'') IS NOT NULL EXEC dbo.ep_HDC_VytvorKusovnikXLS @projekt=N' + rcFin.QuotedString);
|
||||||
|
except on E:Exception do
|
||||||
|
Helios.Error(#1'Chyba vytváření kusovníku'#1 + CRLF + E.Message);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
vTab.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// helUtils.waitEnd;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
{$IF CompilerVersion < 34.0} // SYDNEY
|
||||||
|
FreeAndNil(xls);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
Screen.Cursor:= crDefault;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Helios.Info(#1'Akce ukončena'#1);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TplgHDCMontekord.Run (const Helios: IHelios);
|
||||||
|
const MinVerzeHelios = $030020260300;
|
||||||
|
var typAkce: integer;
|
||||||
|
browID, cRec, cntID, l_loop, idDZ, dpz, cOrg, newBid: integer;
|
||||||
|
verzePlg, verzePlg2, plgNazev: string;
|
||||||
|
verzePlg64: Int64;
|
||||||
|
lSQL, autor, radDokl, IDcka, params, paramsBak, vlastPar, vlastPar2, contInfo, sz, podm: string;
|
||||||
|
arrId: TArray<integer>;
|
||||||
|
term: boolean;
|
||||||
|
f1: TformImportKusovnik;
|
||||||
|
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
PomHandle: THandle;
|
||||||
|
MinVerze: Int64;
|
||||||
|
Porovnani: TplgPorovnaniVerzi;
|
||||||
|
VerzeDB: String;
|
||||||
|
ZmenyOK: Boolean;
|
||||||
|
SlepaProcName: string;
|
||||||
|
SlepaProcGUID: string;
|
||||||
|
SlepaProcBrowse: string;
|
||||||
|
Browse: TplgBrowse;
|
||||||
|
GUIDAkce: String;
|
||||||
|
Q: IHeQuery;
|
||||||
|
{$ENDIF}
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
FHelios := Helios;
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
SpravceHeliosu.PridejHelios (FHelios);
|
||||||
|
{$ENDIF}
|
||||||
|
try
|
||||||
|
Application.OnException := Self.OnException;
|
||||||
|
|
||||||
|
// [RK 10.04.2006] zavedeni PomHandle, problemy s realokaci ikonky
|
||||||
|
// [RK 02.04.2009] doplneno pretypovani na THandle
|
||||||
|
PomHandle := THandle(FHelios.MainApplicationHandle);
|
||||||
|
if PomHandle <> Application.Handle then
|
||||||
|
Application.Handle := PomHandle;
|
||||||
|
|
||||||
|
PomHandle := THandle(FHelios.MainApplicationIconHandle);
|
||||||
|
if PomHandle <> Application.Icon.Handle then
|
||||||
|
Application.Icon.Handle := PomHandle;
|
||||||
|
|
||||||
|
|
||||||
|
// ### INICIALIZACE ###
|
||||||
|
InicializaceJadraPluginu (FHelios);
|
||||||
|
PluginKonfig.VlastniInicializacePluginu (FHelios);
|
||||||
|
|
||||||
|
// ### O PLUGINU ###
|
||||||
|
if FHelios.BrowseID = BrowseID_PluginInfo then
|
||||||
|
begin
|
||||||
|
case FHelios.ExtKomID of
|
||||||
|
Cplg_ExtKomID_About:
|
||||||
|
begin
|
||||||
|
InformaceOPluginu (FHelios);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Cplg_ExtKomID_HlaskyNaWeb:
|
||||||
|
begin
|
||||||
|
plgPresunHlaskyNaWeb (FHelios);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Cplg_ExtKomID_HlaskyDoDLL:
|
||||||
|
begin
|
||||||
|
plgStahniZWebuJazykovaDLL (FHelios);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
// AJ, 14./17.12.2015 - Administrátorská podpora v HeO - Odinstalace
|
||||||
|
Cplg_ExtKomID_Odinstalace:
|
||||||
|
begin
|
||||||
|
PluginKonfig.PluginUninstall (FHelios);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// ### test na verzi SQL Serveru ###
|
||||||
|
if FHelios.SQLVersion < PluginKonfig.PluginMinimalniPozadovanaVerzeSQLServeru then
|
||||||
|
raise Exception.Create(
|
||||||
|
Format('%s (%s)'#13#13+plgCtiOznam(plxJadroPluginVyzadujeMinVerziSQL_X),
|
||||||
|
[PluginKonfig.PluginVerejneJmeno, PluginKonfig.PluginSystemoveJmeno,
|
||||||
|
plgVerzeSQLServeru(PluginKonfig.PluginMinimalniPozadovanaVerzeSQLServeru)]));
|
||||||
|
|
||||||
|
// ### test na verzi Heliosu ###
|
||||||
|
if plgObecnaVerze(FHelios.HeVersion, jvMajor) >= '3' then
|
||||||
|
begin
|
||||||
|
// Helios 3.x
|
||||||
|
MinVerze := PluginKonfig.PluginMinimalniPozadovanaVerzeHeliosu_ver3;
|
||||||
|
if MinVerze < Cplg_Jadro_MinimalniPozadovanaVerzeHeliosu_ver3 then
|
||||||
|
MinVerze := Cplg_Jadro_MinimalniPozadovanaVerzeHeliosu_ver3;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
// Helios 2.x
|
||||||
|
MinVerze := PluginKonfig.PluginMinimalniPozadovanaVerzeHeliosu;
|
||||||
|
if MinVerze < Cplg_Jadro_MinimalniPozadovanaVerzeHeliosu then
|
||||||
|
MinVerze := Cplg_Jadro_MinimalniPozadovanaVerzeHeliosu;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if FHelios.HeVersion < MinVerze then
|
||||||
|
raise Exception.Create(
|
||||||
|
Format('%s (%s)'#13#13+plgCtiOznam(plxJadroPluginVyzadujeMinVerziX),
|
||||||
|
[PluginKonfig.PluginVerejneJmeno, PluginKonfig.PluginSystemoveJmeno,
|
||||||
|
plgObecnaVerze(MinVerze, jvCela)]));
|
||||||
|
|
||||||
|
VerzeDB := plgNactiVerziPluginuZDB(FHelios, ZmenyOK);
|
||||||
|
Porovnani := plgPorovnejVerziPluginuSVerziDB(VerzeDB);
|
||||||
|
|
||||||
|
if Porovnani = pvDBMaVetsi then
|
||||||
|
raise Exception.Create(
|
||||||
|
Format('%s (%s)'#13#13'%s'#13#13'%s: %s'#13'%s: %s',
|
||||||
|
[PluginKonfig.PluginVerejneJmeno, PluginKonfig.PluginSystemoveJmeno,
|
||||||
|
plgCtiOznam(plxJadroVerzePluginuJeNizsiNezVDB),
|
||||||
|
plgCtiOznam(plxJadroVerze_V_DB), VerzeDB,
|
||||||
|
plgCtiOznam(plxJadroVerzePluginu), plgVerzePluginu(jvHexa)]));
|
||||||
|
|
||||||
|
// ### INSTALACE PLUGINU ###
|
||||||
|
if (FHelios.BrowseID = BrowseID_PluginInfo) and plgExtKomIDInstalace(FHelios) then
|
||||||
|
begin
|
||||||
|
InstalacePluginu(FHelios, (FHelios.ExtKomID = Cplg_ExtKomID_TichaInstalace));
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
if not ZmenyOK then
|
||||||
|
raise Exception.Create(
|
||||||
|
Format('%s (%s)'#13#13'%s'#13#1'%s'#1,
|
||||||
|
[PluginKonfig.PluginVerejneJmeno, PluginKonfig.PluginSystemoveJmeno,
|
||||||
|
plgCtiOznam(plxJadroMinulaInstalaceNeprobehlaKorektne),
|
||||||
|
plgCtiOznam(plxJadroJeTrebaSpustitInstalaciPluginu)]));
|
||||||
|
|
||||||
|
if FHelios.ExtKomID = Cplg_ExtKomID_EditorController then
|
||||||
|
SpustControllerEditoru (FHelios)
|
||||||
|
else
|
||||||
|
if FHelios.ExtKomID = Cplg_ExtKomID_Zpravy then
|
||||||
|
PluginKonfig.ExtKomIDJeRovnoNule (FHelios)
|
||||||
|
else
|
||||||
|
if FHelios.ExtKomID = Cplg_ExtKomID_Konfigurace then
|
||||||
|
PluginKonfig.PluginConfiguration (FHelios)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
// ### nacteni parametru akce ###
|
||||||
|
Q := FHelios.OpenSQL(
|
||||||
|
Format(
|
||||||
|
'SELECT CAST(CAST(GUID AS UNIQUEIDENTIFIER) AS NVARCHAR(36)) AS GUIDAkce, Parametry'#13+
|
||||||
|
' FROM ' + tblExtKom + ' WHERE ID=%d', [FHelios.ExtKomID]));
|
||||||
|
|
||||||
|
GUIDAkce:= Format('{%s}', [varToStr(Q.FieldValues(0))]);
|
||||||
|
params:= Format('%s', [varToStr(Q.FieldByNameValues('Parametry'))]);
|
||||||
|
paramsBak:= params;
|
||||||
|
|
||||||
|
// ### SPUSTENI AKCE ###
|
||||||
|
|
||||||
|
// [JAS 17.8.2015] - moznost spustit externi akci pluginu i z rucne vytvorene definice EA
|
||||||
|
// Postup je nasledujici:
|
||||||
|
// 1. V Heliosu vytvorit rucne externi akci typu plugin, doplnit spravne ProgID COM pluginu. Tato externi akce dostane automaticky prideleny novy GUID
|
||||||
|
// 2. Vytvorit slepou proceduru, jejiz nazev musi byt tvoren maskou: epx_<SYS_NAZEV_PLUGINU>_<GUID_BEZ_POMLCEK>
|
||||||
|
// Jako GUID se do nazvu dava nove prideleny GUID rucne vytvorene akce z kroku 1.
|
||||||
|
// 3. Slepa procedura musi vracet SELECTem dve hodnoty:
|
||||||
|
// - GUID akce (vcetne slozenych zavorek!!), ktera se ma ve skutecnosti spustit (musi byt soucasti daneho pluginu)
|
||||||
|
// - cislo prehledu nebo systemovy nazev (pokud jde o prehled daneho pluginu), ve kterem je puvodni akce definovana
|
||||||
|
//
|
||||||
|
//Priklad:
|
||||||
|
// CREATE PROC dbo.epx_rpMujPlugin_9549A0D78192439C803255B8AD5484AD
|
||||||
|
// AS
|
||||||
|
// SELECT N'{506E3776-B9F0-4F37-97E3-5CBB78BC67A5}', N'hvw_MujPlugin_DefPrehled'
|
||||||
|
|
||||||
|
SlepaProcName := 'dbo.epx_' + PluginKonfig.PluginSystemoveJmeno + '_' + plgGUIDBezPomlcek(GUIDAkce);
|
||||||
|
if FHelios.OpenSQL('IF OBJECT_ID(' + plgNQuotedStr(SlepaProcName) + ', N''P'') IS NULL SELECT 0 ELSE SELECT 1').FieldValues(0)=1 then
|
||||||
|
begin
|
||||||
|
with FHelios.OpenSQL('EXEC ' + SlepaProcName)
|
||||||
|
do
|
||||||
|
begin
|
||||||
|
SlepaProcGUID := VarToStr(FieldValues(0));
|
||||||
|
SlepaProcBrowse := VarToStr(FieldValues(1));
|
||||||
|
end;
|
||||||
|
|
||||||
|
if plgJeObecnyPrehled(SlepaProcBrowse) then
|
||||||
|
Browse := plgJmenoView2Browse (SlepaProcBrowse)
|
||||||
|
else
|
||||||
|
Browse := bZadny;
|
||||||
|
|
||||||
|
if Browse <> bZadny then
|
||||||
|
// akce nad prehledem pluginu
|
||||||
|
SpustAkciPluginu(FHelios, Browse, SlepaProcGUID)
|
||||||
|
else
|
||||||
|
// akce nad tabulkou Heliosu, popr. jinym definovanym prehledem
|
||||||
|
SpustAkciPluginuProTab(FHelios, StrToInt(SlepaProcBrowse), SlepaProcGUID);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if plgJeObecnyPrehled(FHelios.BrowseID) then
|
||||||
|
Browse := plgJmenoView2Browse(FHelios.MainBrowseTable)
|
||||||
|
else
|
||||||
|
Browse := bZadny;
|
||||||
|
|
||||||
|
if Browse <> bZadny then
|
||||||
|
// akce nad prehledem pluginu
|
||||||
|
SpustAkciPluginu(FHelios, Browse, GUIDAkce)
|
||||||
|
else
|
||||||
|
// akce nad tabulkou Heliosu, popr. jinym definovanym prehledem
|
||||||
|
SpustAkciPluginuProTab (FHelios, FHelios.BrowseID, GUIDAkce);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
term := false;
|
||||||
|
jeTest := false;
|
||||||
|
|
||||||
|
{$REGION 'Zapis do TabPluginInfo'}
|
||||||
|
plgNazev := ExtractFileName(GetModuleName(HInstance));
|
||||||
|
if (plgNazev.Contains('.dll')) then
|
||||||
|
plgNazev := LeftStr(plgNazev, plgNazev.IndexOf('.dll'));
|
||||||
|
lSQL := 'IF NOT EXISTS (SELECT 1 FROM ' + tblPlgInfo + ' WHERE NazevSys=N' + plgNazev.QuotedString + ') INSERT ' + tblPlgInfo
|
||||||
|
+ ' (NazevSys, NazevObjektu, NazevVerejny) SELECT N' + plgNazev.QuotedString + ', N''runMe'', N''Plugin HDC pro Montekord''';
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
verzePlg:= GetFileVersion2(GetModuleName(HInstance));
|
||||||
|
if (Length(verzePlg)=12) then
|
||||||
|
verzePlg:= LeftStr(verzePlg,9) + '0' + RightStr(verzePlg,3);
|
||||||
|
verzePlg2:= verzePlg.Replace('.', '');
|
||||||
|
if (Length(verzePlg2)=10) then
|
||||||
|
verzePlg2:= '0' + LeftStr(verzePlg2,1) + '0' + RightStr(verzePlg2, 9);
|
||||||
|
verzePlg64:= verzePlg2.ToInt64;
|
||||||
|
{$ENDREGION}
|
||||||
|
|
||||||
|
if (Helios.HeVersion<MinVerzeHelios) then
|
||||||
|
raise Exception.Create('Plugin vyžaduje min verzi Heliosu ' + IntToHex(MinVerzeHelios, 12))
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if (Helios.ExtKomID>0) then
|
||||||
|
begin
|
||||||
|
with Helios.OpenSQL('SELECT CONVERT(nvarchar(128),CONTEXT_INFO(),2)') do
|
||||||
|
if VarIsNull(FieldValues(0)) then
|
||||||
|
contInfo:= 'NULL'
|
||||||
|
else
|
||||||
|
contInfo:= VarToStr(FieldValues(0));
|
||||||
|
|
||||||
|
Helios.ExecSQL('SET CONTEXT_INFO 0x484443344d6f6e74656b6f7264'); // nastav context v sys.sysprocesses (hexadecimalne HDC4Montekord)
|
||||||
|
|
||||||
|
UseLatestCommonDialogs:= true;
|
||||||
|
LocalFormatSettings:= TFormatSettings.Create;
|
||||||
|
{
|
||||||
|
lSQL:= 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabExtKom') + ') IS NOT NULL DROP TABLE #TabExtKom' + CRLF;
|
||||||
|
lSQL:= lSQL + 'CREATE TABLE #TabExtKom (Poznamka nvarchar(255))';
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
}
|
||||||
|
lSQL:= 'IF OBJECT_ID(' + QuotedStr('tempdb..#TabExtKom') + ', ''U'') IS NULL CREATE TABLE #TabExtKom (Typ TINYINT, Poznamka NVARCHAR(255))' + CRLF;
|
||||||
|
lSQL:= lSQL + 'IF OBJECT_ID(N' + QuotedStr('tempdb..#TabTempUziv') + ', ''U'') IS NULL CREATE TABLE #TabTempUziv (Tabulka NVARCHAR(255) NOT NULL, SCOPE_IDENTITY INT NULL, Datum DATETIME NULL)';
|
||||||
|
Helios.ExecSQL(lSQL);
|
||||||
|
|
||||||
|
params := '';
|
||||||
|
vlastPar := '';
|
||||||
|
vlastPar2 := '';
|
||||||
|
cestaExport := '';
|
||||||
|
typAkce := 0;
|
||||||
|
HeliosX := Helios;
|
||||||
|
|
||||||
|
with Helios.OpenSQL('SELECT Parametry FROM ' + tblExtKom + ' WHERE ID=' + IntToStr(Helios.ExtKomID)) do
|
||||||
|
begin
|
||||||
|
params := VarToStr(FieldValues(0));
|
||||||
|
paramsBak := VarToStr(FieldValues(0));
|
||||||
|
if (params.Contains(';')) then
|
||||||
|
begin
|
||||||
|
typAkce := StrToInt(LeftStr(params,Pos(';',params)-1));
|
||||||
|
params := MidStr(params,Pos(';',params)+1,255);
|
||||||
|
if Pos(';',params)>0 then
|
||||||
|
browID := StrToInt(LeftStr(params,Pos(';',params)-1))
|
||||||
|
else
|
||||||
|
browID := StrToInt(params);
|
||||||
|
if Pos(';',params)>0 then // zadany 3 parametry (akce, browID, vlastnikID)
|
||||||
|
begin
|
||||||
|
params := MidStr(params,Pos(';',params)+1,255);
|
||||||
|
if Pos(';', params)>0 then
|
||||||
|
begin
|
||||||
|
vlastPar := LeftStr(params,Pos(';',params)-1);
|
||||||
|
vlastPar2 := MidStr(params,Pos(';',params)+1,255);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
vlastPar := params;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if (params<>'') then
|
||||||
|
if not(TryStrToInt(params, typAkce)) then
|
||||||
|
typAkce := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
verText := GetFileVersion2(GetModuleName(HInstance));
|
||||||
|
if Length(verText)=12 then
|
||||||
|
verText := LeftStr(verText,9) + '0' + RightStr(verText,3);
|
||||||
|
|
||||||
|
if (RightStr(LeftStr(vlastPar,2),1)=':') or (LeftStr(vlastPar,2)='\\') then
|
||||||
|
cestaExport := vlastPar;
|
||||||
|
|
||||||
|
vlastPar := Trim(vlastPar);
|
||||||
|
vlastPar2 := Trim(vlastPar2);
|
||||||
|
|
||||||
|
{
|
||||||
|
jeTest:= UpperCase(vlastPar)='TEST';
|
||||||
|
if (vlastPar2<>'') then
|
||||||
|
jeTest:= UpperCase(vlastPar2)='TEST';
|
||||||
|
}
|
||||||
|
|
||||||
|
if AnsiContainsText(UpperCase(paramsBak), ';TEST') then
|
||||||
|
jeTest := true;
|
||||||
|
|
||||||
|
if (Helios.BrowseID<>browID) then
|
||||||
|
begin
|
||||||
|
typAkce := 0;
|
||||||
|
Helios.Error ('Tento plugin lze volat pouze z přehledu: '#1 + IntToStr(browID) + #1'.');
|
||||||
|
end;
|
||||||
|
|
||||||
|
IDcka := '';
|
||||||
|
cRec := 0;
|
||||||
|
if (Helios.SelectedRecordIDs<>'') then
|
||||||
|
IDcka := Helios.SelectedRecordIDs
|
||||||
|
else
|
||||||
|
if not VarIsNull(Helios.CurrentRecordID) then
|
||||||
|
begin
|
||||||
|
cRec := StrToInt(VarToStr(Helios.CurrentRecordID));
|
||||||
|
IDcka := IntToStr(cRec);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (IDcka<>'') then
|
||||||
|
begin
|
||||||
|
cntID := 1 + Length(IDcka)-Length(StringReplace(IDcka,',','',[rfReplaceAll]));
|
||||||
|
SetLength (arrID,cntID);
|
||||||
|
for l_loop:=0 to cntID-1 do
|
||||||
|
begin
|
||||||
|
if Pos(',',IDcka)>0 then
|
||||||
|
begin
|
||||||
|
arrID[l_loop] := StrToInt(LeftStr(IDcka, Pos(',',IDcka)-1));
|
||||||
|
IDcka := MidStr(IDcka, Pos(',',IDcka)+1, 262140) // 65535 * 4 (max. delka pole)
|
||||||
|
end
|
||||||
|
else
|
||||||
|
arrID[l_loop] := StrToInt(IDcka);
|
||||||
|
end;
|
||||||
|
cRec := arrID[0];
|
||||||
|
end // IDcka<>''
|
||||||
|
else
|
||||||
|
typAkce := Helios.ExtKomID;
|
||||||
|
|
||||||
|
case typAkce of
|
||||||
|
-2: Helios.Info (#1'About'#1);
|
||||||
|
-1: begin
|
||||||
|
Helios.ExecSQL('UPDATE ' + tblPlgInfo + ' SET DatumInstalace=GETDATE(), VerzePluginu=N' + verzePlg2.QuotedString + ' WHERE NazevSys=N' + plgNazev.QuotedString);
|
||||||
|
Helios.Info (#1'Instalace OK'#1);
|
||||||
|
end;
|
||||||
|
1: ImportKusovniku (Helios);
|
||||||
|
2: begin
|
||||||
|
f1:= TformImportKusovnik.Create (nil);
|
||||||
|
try
|
||||||
|
f1.Helios := Helios;
|
||||||
|
f1.jeTest := jeTest;
|
||||||
|
f1.ShowModal;
|
||||||
|
finally
|
||||||
|
FreeAndNil (f1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end; // case
|
||||||
|
|
||||||
|
Helios.Refresh(true);
|
||||||
|
if (contInfo='NULL') then
|
||||||
|
Helios.ExecSQL('SET CONTEXT_INFO 0x')
|
||||||
|
else
|
||||||
|
Helios.ExecSQL('SET CONTEXT_INFO 0x' + contInfo);
|
||||||
|
|
||||||
|
end; // Helios.ExtKomID>0
|
||||||
|
end; // druha cast if Helios.HeVersion<MinVerzeHelios
|
||||||
|
|
||||||
|
end; // FHelios.ExtKomID <> Cplg_ExtKomID_Konfigurace
|
||||||
|
finally
|
||||||
|
SpravceHeliosu.OdeberHelios (FHelios);
|
||||||
|
end;
|
||||||
|
|
||||||
|
except
|
||||||
|
// neni to pres Application.HandleException() kvuli probublani vyjimky
|
||||||
|
// do Heliosu (konkretni pouziti napr. v Automatu)
|
||||||
|
on E: EExternal do
|
||||||
|
begin
|
||||||
|
LockWindowUpdate(0); // jistota, kdyby nekde zustalo viset
|
||||||
|
raise EExternal.Create(E.Message);
|
||||||
|
end;
|
||||||
|
|
||||||
|
on E: Exception do
|
||||||
|
begin
|
||||||
|
LockWindowUpdate(0); // jistota, kdyby nekde zustalo viset
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
E.Message := plgPrelozException(E.Message);
|
||||||
|
{$ENDIF}
|
||||||
|
raise;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
if (term) then
|
||||||
|
Application.Terminate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
dxCore.dxInitialize;
|
||||||
|
{$ENDIF}
|
||||||
|
// System.ReportMemoryLeaksOnShutdown:= true;
|
||||||
|
TComObjectFactory.Create (ComServer, TplgHDCMontekord, Class_Monte, 'runMe', '', ciMultiInstance, tmSingle);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
// dxUnitsLoader.Finalize;
|
||||||
|
{$IFDEF Helios_Space}
|
||||||
|
dxCore.dxFinalize;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
|
END.
|
||||||
@@ -0,0 +1 @@
|
|||||||
|
{$DEFINE Helios_space}
|
||||||
+363
@@ -0,0 +1,363 @@
|
|||||||
|
object datModul: TdatModul
|
||||||
|
Height = 480
|
||||||
|
Width = 640
|
||||||
|
object tblImportKusovnik: TFDMemTable
|
||||||
|
IndexFieldNames = 'Pozice'
|
||||||
|
FetchOptions.AssignedValues = [evMode]
|
||||||
|
FetchOptions.Mode = fmAll
|
||||||
|
ResourceOptions.AssignedValues = [rvSilentMode]
|
||||||
|
ResourceOptions.SilentMode = True
|
||||||
|
UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
|
||||||
|
UpdateOptions.CheckRequired = False
|
||||||
|
UpdateOptions.AutoCommitUpdates = True
|
||||||
|
Left = 58
|
||||||
|
Top = 154
|
||||||
|
object tblImportKusovnikID: TAutoIncField
|
||||||
|
FieldName = 'ID'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object tblImportKusovnikIDKmen: TIntegerField
|
||||||
|
FieldName = 'IDKmen'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object tblImportKusovnikOznaceni: TStringField
|
||||||
|
FieldName = 'Oznaceni'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object tblImportKusovnikPopis: TStringField
|
||||||
|
FieldName = 'Popis'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object tblImportKusovnikSZ: TStringField
|
||||||
|
FieldName = 'SZ'
|
||||||
|
Size = 3
|
||||||
|
end
|
||||||
|
object tblImportKusovnikRegCis: TStringField
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
Size = 30
|
||||||
|
end
|
||||||
|
object tblImportKusovnikNovaKarta: TBooleanField
|
||||||
|
DefaultExpression = 'False'
|
||||||
|
FieldName = 'NovaKarta'
|
||||||
|
end
|
||||||
|
object tblImportKusovnikMnozstvi: TFloatField
|
||||||
|
DefaultExpression = 'False'
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
end
|
||||||
|
object tblImportKusovnikNorma: TStringField
|
||||||
|
FieldName = 'Norma'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object tblImportKusovnikPozice: TIntegerField
|
||||||
|
FieldName = 'Pozice'
|
||||||
|
end
|
||||||
|
object tblImportKusovnikPU: TStringField
|
||||||
|
FieldName = 'PU'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object tblImportKusovnikZpracovani: TStringField
|
||||||
|
FieldName = 'Zpracovani'
|
||||||
|
Size = 200
|
||||||
|
end
|
||||||
|
object tblImportKusovnikVyrobce: TStringField
|
||||||
|
FieldName = 'Vyrobce'
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object tblImportKusovnikMaterial: TStringField
|
||||||
|
FieldName = 'Material'
|
||||||
|
Size = 200
|
||||||
|
end
|
||||||
|
object tblImportKusovnikTloustka: TFloatField
|
||||||
|
FieldName = 'Tloustka'
|
||||||
|
end
|
||||||
|
object tblImportKusovnikJeProblem: TBooleanField
|
||||||
|
DefaultExpression = 'false'
|
||||||
|
FieldName = 'JeProblem'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsImportKusovnik: TDataSource
|
||||||
|
DataSet = tblImportKusovnik
|
||||||
|
Left = 60
|
||||||
|
Top = 92
|
||||||
|
end
|
||||||
|
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
|
||||||
|
Provider = 'Forms'
|
||||||
|
Left = 290
|
||||||
|
Top = 132
|
||||||
|
end
|
||||||
|
object imgList: TImageList
|
||||||
|
Height = 22
|
||||||
|
Width = 22
|
||||||
|
Scaled = True
|
||||||
|
Left = 56
|
||||||
|
Top = 270
|
||||||
|
Bitmap = {
|
||||||
|
494C010101000800040016001600FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
|
000000000000360000002800000058000000160000000100200000000000401E
|
||||||
|
000000000000000000000000000000000000A6A6A600A6A6A600A6A6A600A6A6
|
||||||
|
A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6
|
||||||
|
A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6
|
||||||
|
A600A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F0007777770077777700F0F0F000F0F0F00077777700777777007777
|
||||||
|
7700F0F0F000F0F0F0007777770077777700F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0F000F0F0
|
||||||
|
F000A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000A6A6A600A6A6A600A6A6A600A6A6
|
||||||
|
A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6
|
||||||
|
A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6A600A6A6
|
||||||
|
A600A6A6A600F0F0F00000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000424D3E000000000000003E000000
|
||||||
|
2800000058000000160000000100010000000000080100000000000000000000
|
||||||
|
000000000000000000000000FFFFFF0000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000}
|
||||||
|
end
|
||||||
|
object vImgList: TVirtualImageList
|
||||||
|
Images = <>
|
||||||
|
ImageCollection = imgCol
|
||||||
|
Left = 432
|
||||||
|
Top = 254
|
||||||
|
end
|
||||||
|
object imgCol: TImageCollection
|
||||||
|
Images = <>
|
||||||
|
Left = 428
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
end
|
||||||
+120
@@ -0,0 +1,120 @@
|
|||||||
|
unit dataModul;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
|
||||||
|
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
|
||||||
|
FireDAC.DApt.Intf, FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Comp.UI,
|
||||||
|
Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, System.ImageList,
|
||||||
|
Vcl.ImgList, Vcl.Controls, Vcl.BaseImageCollection, Vcl.ImageCollection,
|
||||||
|
Vcl.VirtualImageList;
|
||||||
|
|
||||||
|
type
|
||||||
|
TKmen = record
|
||||||
|
poz, idKmen, vyrobceCisOrg: integer;
|
||||||
|
cislo, nazev, vyrobce, norma, rozmer, material, pu, zprac, pozn, jakObj: string;
|
||||||
|
mnoz: Extended;
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
class operator Initialize (out Dest: TKmen);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
TKmenHelper = record helper for TKmen
|
||||||
|
function Clear: Boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TdatModul = class(TDataModule)
|
||||||
|
tblImportKusovnik: TFDMemTable;
|
||||||
|
dsImportKusovnik: TDataSource;
|
||||||
|
FDGUIxWaitCursor1: TFDGUIxWaitCursor;
|
||||||
|
tblImportKusovnikID: TAutoIncField;
|
||||||
|
tblImportKusovnikIDKmen: TIntegerField;
|
||||||
|
tblImportKusovnikOznaceni: TStringField;
|
||||||
|
tblImportKusovnikPopis: TStringField;
|
||||||
|
tblImportKusovnikSZ: TStringField;
|
||||||
|
tblImportKusovnikRegCis: TStringField;
|
||||||
|
tblImportKusovnikNovaKarta: TBooleanField;
|
||||||
|
tblImportKusovnikMnozstvi: TFloatField;
|
||||||
|
imgList: TImageList;
|
||||||
|
tblImportKusovnikNorma: TStringField;
|
||||||
|
tblImportKusovnikPozice: TIntegerField;
|
||||||
|
vImgList: TVirtualImageList;
|
||||||
|
imgCol: TImageCollection;
|
||||||
|
tblImportKusovnikPU: TStringField;
|
||||||
|
tblImportKusovnikZpracovani: TStringField;
|
||||||
|
tblImportKusovnikVyrobce: TStringField;
|
||||||
|
tblImportKusovnikMaterial: TStringField;
|
||||||
|
tblImportKusovnikTloustka: TFloatField;
|
||||||
|
tblImportKusovnikJeProblem: TBooleanField;
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
datModul: TdatModul;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{%CLASSGROUP 'Vcl.Controls.TControl'}
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
{ TKmenHelper }
|
||||||
|
function TKmenHelper.Clear: Boolean;
|
||||||
|
begin
|
||||||
|
result:= true;
|
||||||
|
try
|
||||||
|
self.idKmen:= 0;
|
||||||
|
self.poz:= 0;
|
||||||
|
self.vyrobceCisOrg:= 0;
|
||||||
|
self.mnoz:= 0;
|
||||||
|
self.cislo:= '';
|
||||||
|
self.nazev:= '';
|
||||||
|
self.vyrobce:= '';
|
||||||
|
self.norma:= '';
|
||||||
|
self.jakObj:= '';
|
||||||
|
self.rozmer:= '';
|
||||||
|
self.material:= '';
|
||||||
|
self.pu:= '';
|
||||||
|
self.pozn:= '';
|
||||||
|
except
|
||||||
|
result:= false;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
{$IF CompilerVersion>=34} // Sydney a vys
|
||||||
|
class operator TKmen.Initialize (out Dest: TKmen);
|
||||||
|
begin
|
||||||
|
Dest.idKmen:= 0;
|
||||||
|
Dest.poz:= 0;
|
||||||
|
Dest.vyrobceCisOrg:= 0;
|
||||||
|
Dest.mnoz:= 0;
|
||||||
|
Dest.cislo:= '';
|
||||||
|
Dest.nazev:= '';
|
||||||
|
Dest.vyrobce:= '';
|
||||||
|
Dest.norma:= '';
|
||||||
|
Dest.rozmer:= '';
|
||||||
|
Dest.material:= '';
|
||||||
|
Dest.pu:= '';
|
||||||
|
Dest.pozn:= '';
|
||||||
|
Dest.jakObj:= '';
|
||||||
|
end;
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
datModul := TdatModul.Create(nil);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
datModul.Free;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -0,0 +1,173 @@
|
|||||||
|
object formImportKusovnik: TformImportKusovnik
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Caption = ' Import dat kusovn'#237'ku z CADu'
|
||||||
|
ClientHeight = 715
|
||||||
|
ClientWidth = 1111
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
RoundedCorners = rcOn
|
||||||
|
OnClose = FormClose
|
||||||
|
OnShow = FormShow
|
||||||
|
DesignSize = (
|
||||||
|
1111
|
||||||
|
715)
|
||||||
|
TextHeight = 21
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 30
|
||||||
|
Top = 24
|
||||||
|
Width = 59
|
||||||
|
Height = 21
|
||||||
|
Caption = 'Zak'#225'zka:'
|
||||||
|
end
|
||||||
|
object selZakazka: TButtonedEdit
|
||||||
|
Left = 30
|
||||||
|
Top = 48
|
||||||
|
Width = 139
|
||||||
|
Height = 29
|
||||||
|
Alignment = taCenter
|
||||||
|
Images = datModul.imgList
|
||||||
|
RightButton.ImageIndex = 0
|
||||||
|
RightButton.Visible = True
|
||||||
|
TabOrder = 0
|
||||||
|
OnRightButtonClick = selZakazkaRightButtonClick
|
||||||
|
end
|
||||||
|
object edtStanice: TLabeledEdit
|
||||||
|
Left = 210
|
||||||
|
Top = 48
|
||||||
|
Width = 57
|
||||||
|
Height = 29
|
||||||
|
Alignment = taCenter
|
||||||
|
EditLabel.Width = 52
|
||||||
|
EditLabel.Height = 21
|
||||||
|
EditLabel.Caption = 'Stanice:'
|
||||||
|
TabOrder = 1
|
||||||
|
Text = ''
|
||||||
|
end
|
||||||
|
object btnImport: TButton
|
||||||
|
Left = 296
|
||||||
|
Top = 40
|
||||||
|
Width = 111
|
||||||
|
Height = 37
|
||||||
|
Caption = 'Import dat'
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = btnImportClick
|
||||||
|
end
|
||||||
|
object grdKusovnik: TJvDBGrid
|
||||||
|
Left = 12
|
||||||
|
Top = 98
|
||||||
|
Width = 1086
|
||||||
|
Height = 550
|
||||||
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||||
|
DataSource = datModul.dsImportKusovnik
|
||||||
|
DrawingStyle = gdsGradient
|
||||||
|
GradientEndColor = clSkyBlue
|
||||||
|
TabOrder = 3
|
||||||
|
TitleFont.Charset = DEFAULT_CHARSET
|
||||||
|
TitleFont.Color = clWindowText
|
||||||
|
TitleFont.Height = -16
|
||||||
|
TitleFont.Name = 'Segoe UI'
|
||||||
|
TitleFont.Style = []
|
||||||
|
OnDrawColumnCell = grdKusovnikDrawColumnCell
|
||||||
|
OnDblClick = grdKusovnikDblClick
|
||||||
|
OnMouseUp = grdKusovnikMouseUp
|
||||||
|
SelectColumnsDialogStrings.Caption = 'Select columns'
|
||||||
|
SelectColumnsDialogStrings.OK = '&OK'
|
||||||
|
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
|
||||||
|
EditControls = <>
|
||||||
|
AutoSizeRows = False
|
||||||
|
RowsHeight = 30
|
||||||
|
TitleRowHeight = 30
|
||||||
|
OnCanEditCell = grdKusovnikCanEditCell
|
||||||
|
Columns = <
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'Pozice'
|
||||||
|
ReadOnly = True
|
||||||
|
Title.Alignment = taCenter
|
||||||
|
Width = 60
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'Oznaceni'
|
||||||
|
ReadOnly = True
|
||||||
|
Title.Caption = 'Ozna'#269'en'#237
|
||||||
|
Width = 246
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'Popis'
|
||||||
|
ReadOnly = True
|
||||||
|
Width = 412
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'SZ'
|
||||||
|
ReadOnly = True
|
||||||
|
Title.Alignment = taCenter
|
||||||
|
Title.Caption = 'SK'
|
||||||
|
Width = 47
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Alignment = taCenter
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'RegCis'
|
||||||
|
ReadOnly = True
|
||||||
|
Title.Alignment = taCenter
|
||||||
|
Title.Caption = 'Reg. '#269#237'slo'
|
||||||
|
Width = 118
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'Mnozstvi'
|
||||||
|
ReadOnly = True
|
||||||
|
Title.Alignment = taCenter
|
||||||
|
Title.Caption = 'Mno'#382'stv'#237
|
||||||
|
Visible = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Expanded = False
|
||||||
|
FieldName = 'NovaKarta'
|
||||||
|
Title.Alignment = taCenter
|
||||||
|
Title.Caption = 'Nov'#225
|
||||||
|
Width = 64
|
||||||
|
Visible = True
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
object btnStorno: TButton
|
||||||
|
Left = 988
|
||||||
|
Top = 662
|
||||||
|
Width = 111
|
||||||
|
Height = 37
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Storno'
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = btnStornoClick
|
||||||
|
ExplicitLeft = 856
|
||||||
|
end
|
||||||
|
object btnZapis: TButton
|
||||||
|
Left = 484
|
||||||
|
Top = 662
|
||||||
|
Width = 129
|
||||||
|
Height = 37
|
||||||
|
Anchors = [akRight, akBottom]
|
||||||
|
Caption = 'Z'#225'pis do TPV'
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = btnZapisClick
|
||||||
|
ExplicitLeft = 352
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,532 @@
|
|||||||
|
unit frmImportKusovnik;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||||
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Mask,
|
||||||
|
Data.DB, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, System.UITypes, Vcl.BaseImageCollection, Vcl.ImageCollection,
|
||||||
|
ddPlugin_TLB;
|
||||||
|
|
||||||
|
const
|
||||||
|
IDI_ELIPSIS = 32516;
|
||||||
|
|
||||||
|
type
|
||||||
|
TformImportKusovnik = class(TForm)
|
||||||
|
selZakazka: TButtonedEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
edtStanice: TLabeledEdit;
|
||||||
|
btnImport: TButton;
|
||||||
|
grdKusovnik: TJvDBGrid;
|
||||||
|
btnStorno: TButton;
|
||||||
|
btnZapis: TButton;
|
||||||
|
procedure selZakazkaRightButtonClick (Sender: TObject);
|
||||||
|
procedure btnImportClick (Sender: TObject);
|
||||||
|
procedure grdKusovnikCanEditCell (Grid: TJvDBGrid; Field: TField; var AllowEdit: Boolean);
|
||||||
|
procedure btnStornoClick (Sender: TObject);
|
||||||
|
procedure FormClose (Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure grdKusovnikMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure grdKusovnikDblClick (Sender: TObject);
|
||||||
|
procedure btnZapisClick (Sender: TObject);
|
||||||
|
procedure grdKusovnikDrawColumnCell(Sender: TObject; const Rect: TRect;
|
||||||
|
DataCol: Integer; Column: TColumn; State: TGridDrawState);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
Helios: IHelios;
|
||||||
|
jeTest: boolean;
|
||||||
|
retVal: integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
formImportKusovnik: TformImportKusovnik;
|
||||||
|
oVar1: OleVariant;
|
||||||
|
aktRow, aktCol: integer;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses System.StrUtils,
|
||||||
|
dataModul,
|
||||||
|
nExcel, xlsxwrite,
|
||||||
|
helUtils;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.btnImportClick (Sender: TObject);
|
||||||
|
var lSQL, lSQL2: string;
|
||||||
|
initDir, titulek, filtr1, filtr2, fName: string;
|
||||||
|
xls: IXLSWorkBook;
|
||||||
|
shKarty: IXLSWorksheet;
|
||||||
|
karta: TKmen;
|
||||||
|
iTemp, idKZ, idKZFin: integer;
|
||||||
|
sTemp: string;
|
||||||
|
podm, colName, readVal, lastNRC, lastVRC, rcFin, sz, rc: string;
|
||||||
|
insId, idxR, iRowMax, iCol, iColMax, cEmptyRadek: integer;
|
||||||
|
mnoz, ztraty: Extended;
|
||||||
|
i_Poz, i_CisloDilu, i_Nazev, i_Ks, i_Vyrobce, i_Norma, i_Rozmer, i_Material, i_PU, i_Ziskani, i_Zprac, i_Pozn: integer;
|
||||||
|
radekV00, jeProblem: boolean;
|
||||||
|
begin
|
||||||
|
initDir:= GetEnvironmentVariable('USERPROFILE') + '\Desktop';
|
||||||
|
titulek := 'Vyberte soubor pro import';
|
||||||
|
filtr1 := 'Soubory MS Excel';
|
||||||
|
filtr2 := '*.xls;*.xlsx';
|
||||||
|
fName := '';
|
||||||
|
if (helUtils.OtevriSoubor (titulek, filtr1, filtr2, initDir, fName)) then
|
||||||
|
if (FileExists(fName)) then
|
||||||
|
begin
|
||||||
|
Screen.Cursor:= crHourGlass;
|
||||||
|
|
||||||
|
xls:= TXLSWorkbook.Create;
|
||||||
|
try
|
||||||
|
xls.Open(fName);
|
||||||
|
shKarty:= xls.Sheets.Entries[1];
|
||||||
|
|
||||||
|
i_Poz:= 0;
|
||||||
|
|
||||||
|
lastNRC:= '';
|
||||||
|
lastVRC:= '';
|
||||||
|
|
||||||
|
iRowMax:= 0;
|
||||||
|
cEmptyRadek:= 0;
|
||||||
|
try
|
||||||
|
for idxR:=1 to 60000 do
|
||||||
|
begin
|
||||||
|
if (cEmptyRadek>5) then
|
||||||
|
begin
|
||||||
|
iRowMax:= idxR;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
if (VarIsNull(shKarty.Cells.Item[idxR, 1].Value)) then
|
||||||
|
Inc(cEmptyRadek)
|
||||||
|
else
|
||||||
|
if (VarToStr(shKarty.Cells.Item[idxR, 1].Value)='') then
|
||||||
|
Inc(cEmptyRadek)
|
||||||
|
else
|
||||||
|
cEmptyRadek:= 0;
|
||||||
|
end;
|
||||||
|
except on E:Exception do
|
||||||
|
Helios.Error(#1'idxR: ' + idxR.ToString + CRLF + E.Message + #1)
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
for idxR:=iRowMax downto 1 do
|
||||||
|
begin
|
||||||
|
if (not VarIsNull(shKarty.Cells.Item[idxR, 1].Value)) then
|
||||||
|
if (VarToStr(shKarty.Cells.Item[idxR, 1].Value)<>'') then
|
||||||
|
begin
|
||||||
|
iRowMax:= idxR;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (iRowMax>1) then
|
||||||
|
begin
|
||||||
|
rcFin:= '';
|
||||||
|
|
||||||
|
i_Poz := -1;
|
||||||
|
i_CisloDilu := -1;
|
||||||
|
i_Nazev := -1;
|
||||||
|
i_Ks := -1;
|
||||||
|
i_Vyrobce := -1;
|
||||||
|
i_Norma := -1;
|
||||||
|
i_Rozmer := -1;
|
||||||
|
i_Material := -1;
|
||||||
|
i_PU := -1;
|
||||||
|
i_Ziskani := -1;
|
||||||
|
i_Zprac := -1;
|
||||||
|
i_Pozn := -1;
|
||||||
|
|
||||||
|
for iCol:=1 to 30 do
|
||||||
|
begin
|
||||||
|
{
|
||||||
|
if (VarIsNull(shKarty.Cells.Item[1, iCol].Value)) then
|
||||||
|
begin
|
||||||
|
iColMax:= iCol-1;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (VarToStr(shKarty.Cells.Item[1, iCol].Value)='') then
|
||||||
|
begin
|
||||||
|
iColMax:= iCol-1;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='POZ') then
|
||||||
|
i_Poz:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Èíslo dílu') then
|
||||||
|
i_CisloDilu:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Název') then
|
||||||
|
i_Nazev:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='KS') then
|
||||||
|
i_Ks:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Výrobce') then
|
||||||
|
i_Vyrobce:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='NORMA') then
|
||||||
|
i_Norma:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='ROZMÌR') then
|
||||||
|
i_Rozmer:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='MATER.') then
|
||||||
|
i_Material:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='PÚ') then
|
||||||
|
i_PU:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='získání') then
|
||||||
|
i_Ziskani:= iCol;
|
||||||
|
if (shKarty.Cells.Item[1, iCol].Value='Zpracování') then
|
||||||
|
i_Zprac:= iCol;
|
||||||
|
if (VarToStr(shKarty.Cells.Item[1, iCol].Value).Trim='Pozn pøed') then
|
||||||
|
i_Pozn:= iCol;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (i_Poz=0) or (i_CisloDilu=0) or (i_Norma=0) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Tabulka není v požadovaném formátu'#1);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
if (i_Poz>0) and (i_CisloDilu>0) and (i_Norma>0) then
|
||||||
|
begin
|
||||||
|
if not(dataModul.datModul.tblImportKusovnik.Active) then
|
||||||
|
dataModul.datModul.tblImportKusovnik.Open;
|
||||||
|
dataModul.datModul.tblImportKusovnik.EmptyDataSet;
|
||||||
|
|
||||||
|
idxR:= 2;
|
||||||
|
|
||||||
|
// nacti radky
|
||||||
|
while (idxR<=iRowMax) do
|
||||||
|
begin
|
||||||
|
karta.Clear;
|
||||||
|
|
||||||
|
if not(VarIsNull(shKarty.Cells.Item[idxR, i_Poz].Value)) then
|
||||||
|
begin
|
||||||
|
if not(TryStrToInt(shKarty.Cells.Item[idxR, i_Poz].Value, karta.poz)) then
|
||||||
|
karta.poz := 0;
|
||||||
|
|
||||||
|
if (i_CisloDilu>0) then
|
||||||
|
karta.cislo := IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_CisloDilu].Value), VarToStr(shKarty.Cells.Item[idxR, i_CisloDilu].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_Nazev>0) then
|
||||||
|
karta.nazev := IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Nazev].Value), VarToStr(shKarty.Cells.Item[idxR, i_Nazev].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if not(TryStrToFloat(shKarty.Cells.Item[idxR, i_Ks].Value, karta.mnoz)) then
|
||||||
|
karta.mnoz := 0;
|
||||||
|
|
||||||
|
if (i_Norma>0) then
|
||||||
|
karta.norma := IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Norma].Value), VarToStr(shKarty.Cells.Item[idxR, i_Norma].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_PU>0) then
|
||||||
|
karta.pu := IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_PU].Value), VarToStr(shKarty.Cells.Item[idxR, i_PU].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_Zprac>0) then
|
||||||
|
karta.zprac := IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Zprac].Value), VarToStr(shKarty.Cells.Item[idxR, i_Zprac].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_Material>0) then
|
||||||
|
karta.material:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Material].Value), VarToStr(shKarty.Cells.Item[idxR, i_Material].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
{
|
||||||
|
if (i_Vyrobce>0) then
|
||||||
|
begin
|
||||||
|
karta.vyrobce:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Vyrobce].Value), VarToStr(shKarty.Cells.Item[idxR, i_Vyrobce].Value), '').Replace(#10, '');
|
||||||
|
if (karta.vyrobce<>'') then
|
||||||
|
begin
|
||||||
|
lSQL2:= 'SELECT TOP(1) c.CisloOrg FROM ' + tblCOrg + ' c INNER JOIN ' + tblCOrgE + ' ce ON (ce.ID=c.ID) WHERE ce._NazevProImportKusovniku=N' + karta.vyrobce.QuotedString;
|
||||||
|
karta.vyrobceCisOrg:= helUtils.getHeliosIntVal(Helios, 0, lSQL2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (i_Rozmer>0) then
|
||||||
|
karta.rozmer:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_Rozmer].Value), VarToStr(shKarty.Cells.Item[idxR, i_Rozmer].Value), '').Replace(#10, '');
|
||||||
|
|
||||||
|
if (i_ziskani>0) then
|
||||||
|
karta.jakObj:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_ziskani].Value), VarToStr(shKarty.Cells.Item[idxR, i_ziskani].Value), '');
|
||||||
|
|
||||||
|
if (i_pozn>0) then
|
||||||
|
karta.pozn:= IfThen(not VarIsNull(shKarty.Cells.Item[idxR, i_pozn].Value), VarToStr(shKarty.Cells.Item[idxR, i_pozn].Value), '').Replace(#10, CRLF);
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
idKZ := 0;
|
||||||
|
iTemp := 0;
|
||||||
|
jeProblem := false;
|
||||||
|
if (karta.poz>=300) and (karta.poz<500) and (karta.norma<>'') then
|
||||||
|
begin
|
||||||
|
lSQL := 'SELECT COUNT(ID) AS Pocet FROM ' + tblKZe + ' WITH(NOLOCK) WHERE _VyhledavaniKody=N' + karta.norma.QuotedString;
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if not(EOF) then
|
||||||
|
iTemp := VarToStr(FieldByNameValues('Pocet')).ToInteger;
|
||||||
|
if (iTemp=1) then
|
||||||
|
idKZ := helUtils.getHeliosIntVal (Helios, 0, lSQL.Replace('COUNT(ID) AS Pocet', 'ID'))
|
||||||
|
else
|
||||||
|
if (iTemp=0) then
|
||||||
|
begin
|
||||||
|
lSQL := 'SELECT COUNT(ID) AS Pocet FROM ' + tblKZe + ' WITH(NOLOCK) WHERE _VyhledavaniKody LIKE N' + QuotedStr('%' + karta.norma + '%');
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if not(EOF) then
|
||||||
|
iTemp := VarToStr(FieldByNameValues('Pocet')).ToInteger;
|
||||||
|
if (iTemp=1) then
|
||||||
|
idKZ := helUtils.getHeliosIntVal (Helios, 0, lSQL.Replace('COUNT(ID) AS Pocet', 'ID'))
|
||||||
|
else
|
||||||
|
jeProblem := true;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
jeProblem := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (idKZ=0) and not(jeProblem) and (karta.poz>=300) and (karta.poz<500) and (karta.cislo<>'') then
|
||||||
|
begin
|
||||||
|
iTemp := 0;
|
||||||
|
lSQL := 'SELECT COUNT(ID) AS Pocet FROM ' + tblKZe + ' WITH(NOLOCK) WHERE _VyhledavaniKody=N' + karta.cislo.QuotedString;
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if not(EOF) then
|
||||||
|
iTemp := VarToStr(FieldByNameValues('Pocet')).ToInteger;
|
||||||
|
if (iTemp=1) then
|
||||||
|
idKZ := helUtils.getHeliosIntVal (Helios, 0, lSQL.Replace('COUNT(ID) AS Pocet', 'ID'))
|
||||||
|
else
|
||||||
|
if (iTemp=0) then
|
||||||
|
begin
|
||||||
|
lSQL := 'SELECT COUNT(ID) AS Pocet FROM ' + tblKZe + ' WITH(NOLOCK) WHERE _VyhledavaniKody LIKE N' + QuotedStr('%' + karta.cislo + '%');
|
||||||
|
with Helios.OpenSQL(lSQL) do
|
||||||
|
if not(EOF) then
|
||||||
|
iTemp := VarToStr(FieldByNameValues('Pocet')).ToInteger;
|
||||||
|
if (iTemp=1) then
|
||||||
|
idKZ := helUtils.getHeliosIntVal (Helios, 0, lSQL.Replace('COUNT(ID) AS Pocet', 'ID'))
|
||||||
|
else
|
||||||
|
jeProblem := true;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
jeProblem := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
sz := '';
|
||||||
|
rc := '';
|
||||||
|
if (idKZ>0) then
|
||||||
|
with Helios.OpenSQL('SELECT SkupZbo, RegCis FROM ' + tblKZ + ' WHERE ID=' + idKZ.ToString) do
|
||||||
|
if not(EOF) then
|
||||||
|
begin
|
||||||
|
sz := VarToStr(FieldByNameValues('SkupZbo'));
|
||||||
|
rc := VarToStr(FieldByNameValues('RegCis'));
|
||||||
|
end;
|
||||||
|
|
||||||
|
dataModul.datModul.tblImportKusovnik.Append;
|
||||||
|
try
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('IDKmen').AsInteger := idKZ;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('SZ').AsString := sz;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('RegCis').AsString := rc;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Pozice').AsInteger := karta.poz;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Oznaceni').AsString := karta.cislo;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Popis').AsString := karta.nazev;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Mnozstvi').AsExtended := karta.mnoz;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Norma').AsString := karta.norma;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Material').AsString := karta.material;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('PU').AsString := karta.pu;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('Zpracovani').AsString := karta.zprac;
|
||||||
|
dataModul.datModul.tblImportKusovnik.FieldByName('JeProblem').AsBoolean := jeProblem or (idKZ=0);
|
||||||
|
dataModul.datModul.tblImportKusovnik.Post;
|
||||||
|
except
|
||||||
|
dataModul.datModul.tblImportKusovnik.Cancel;
|
||||||
|
end;
|
||||||
|
Inc(idxR);
|
||||||
|
end;
|
||||||
|
dataModul.datModul.tblImportKusovnik.First;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
{$IF CompilerVersion < 34.0} // SYDNEY
|
||||||
|
FreeAndNil(xls);
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
|
Screen.Cursor:= crDefault;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.btnStornoClick (Sender: TObject);
|
||||||
|
begin
|
||||||
|
retVal:= 10;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.btnZapisClick (Sender: TObject);
|
||||||
|
var lSQL: string;
|
||||||
|
canCont: boolean;
|
||||||
|
begin
|
||||||
|
canCont := true;
|
||||||
|
selZakazka.Text := selZakazka.Text.Trim;
|
||||||
|
edtStanice.Text := edtStanice.Text.Trim;
|
||||||
|
if (selZakazka.Text='') then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Není vybrána Zakázka'#1);
|
||||||
|
self.ActiveControl := selZakazka;
|
||||||
|
canCont := false;
|
||||||
|
end;
|
||||||
|
if not helUtils.sqlExistsTestGeneral(Helios, 'SELECT 1 FROM ' + tblZak + ' WHERE CisloZakazky=N' + selZakazka.Text.QuotedString) then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Vybrána Zakázka neexistuje'#1);
|
||||||
|
self.ActiveControl := selZakazka;
|
||||||
|
canCont := false;
|
||||||
|
end;
|
||||||
|
if (edtStanice.Text='') then
|
||||||
|
begin
|
||||||
|
Helios.Error(#1'Není zadána Stanice'#1);
|
||||||
|
self.ActiveControl := selZakazka;
|
||||||
|
canCont := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (canCont) then
|
||||||
|
begin
|
||||||
|
if (datModul.tblImportKusovnik.RecordCount>0) then
|
||||||
|
begin
|
||||||
|
lSQL := 'DROP TABLE IF EXISTS #TabCADKusovnik' + CRLF
|
||||||
|
+ 'CREATE TABLE #TabCADKusovnik (ID INT IDENTITY(1,1) NOT NULL, NovaKarta BIT DEFAULT 0, Pozice INT, IDKmen INT, CisloDilce NVARCHAR(100), Nazev NVARCHAR(100)'
|
||||||
|
+ ', Mnozstvi NUMERIC(19,6) DEFAULT 0.0, Zpracovani NVARCHAR(200), Vyrobce NVARCHAR(200), Norma NVARCHAR(200), PU NVARCHAR(200), Material NVARCHAR(200)'
|
||||||
|
+ ', Tloustka NUMERIC(8,2) DEFAULT 0.0)' + CRLF;
|
||||||
|
datModul.tblImportKusovnik.DisableControls;
|
||||||
|
datModul.tblImportKusovnik.First;
|
||||||
|
while not(datModul.tblImportKusovnik.Eof) do
|
||||||
|
begin
|
||||||
|
lSQL := lSQL + 'INSERT #TabCADKusovnik (NovaKarta, IDKmen, Pozice, CisloDilce, Nazev, Mnozstvi, PU, Zpracovani, Vyrobce, Norma, Material, Tloustka) SELECT '
|
||||||
|
+ IfThen(datModul.tblImportKusovnik.FieldByName('NovaKarta').AsBoolean, ',', '0')
|
||||||
|
+ ', ' + datModul.tblImportKusovnik.FieldByName('IDKmen').AsString + ', ' + datModul.tblImportKusovnik.FieldByName('Pozce').AsString
|
||||||
|
+ ', N' + datModul.tblImportKusovnik.FieldByName('Oznaceni').AsString.QuotedString + ', N' + datModul.tblImportKusovnik.FieldByName('Popis').AsString.QuotedString
|
||||||
|
+ ', ' + datModul.tblImportKusovnik.FieldByName('Mnozstvi').AsString.Replace(',', '.') + ', N' + datModul.tblImportKusovnik.FieldByName('PU').AsString.QuotedString
|
||||||
|
+ ', N' + datModul.tblImportKusovnik.FieldByName('Zpracovani').AsString.QuotedString + ', N' + datModul.tblImportKusovnik.FieldByName('Vyrobce').AsString.QuotedString
|
||||||
|
+ ', N' + datModul.tblImportKusovnik.FieldByName('Norma').AsString.QuotedString + ', N' + datModul.tblImportKusovnik.FieldByName('Material').AsString.QuotedString
|
||||||
|
+ ', ' + datModul.tblImportKusovnik.FieldByName('Tloustka').AsString.Replace(',', '.') + CRLF;
|
||||||
|
datModul.tblImportKusovnik.Next;
|
||||||
|
end;
|
||||||
|
lSQL := lSQL + 'IF OBJECT_ID(N''dbo.ep_HDC_ImportCADKusovnik'', ''P'') IS NOT NULL EXEC dbo.ep_HDC_ImportCADKusovnik @Zakazka=N' + selZakazka.Text.QuotedString
|
||||||
|
+ ', @Stanice=N' + edtStanice.Text.QuotedString;
|
||||||
|
try
|
||||||
|
try
|
||||||
|
Helios.ExecSQL (lSQL);
|
||||||
|
except
|
||||||
|
on E: Exception do
|
||||||
|
Helios.Error (#1'Chyba zpracování: ' + E.Message + #1);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.FormClose (Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
if (datModul.tblImportKusovnik.Active) then
|
||||||
|
datModul.tblImportKusovnik.EmptyDataSet;
|
||||||
|
|
||||||
|
Action:= TCloseAction.caHide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
self.ClientHeight := 715;
|
||||||
|
self.ClientWidth := 1115;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.grdKusovnikCanEditCell (Grid: TJvDBGrid; Field: TField; var AllowEdit: Boolean);
|
||||||
|
begin
|
||||||
|
AllowEdit := (Field.FieldName='NovaKarta');
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.grdKusovnikDblClick (Sender: TObject);
|
||||||
|
var i, idKZ, poz: integer;
|
||||||
|
titulek, sz, rc, nazev1: string;
|
||||||
|
begin
|
||||||
|
i := datModul.tblImportKusovnik.RecNo;
|
||||||
|
poz := datModul.tblImportKusovnik.FieldByName('Pozice').AsInteger;
|
||||||
|
if (poz>=300) and (poz<500) and (aktCol<>7) then // pokud kliknu na "Nova", nic neukazuj
|
||||||
|
begin
|
||||||
|
titulek := 'Vyberte kmenovou kartu pro dílec/materiál: èíslo "' + datModul.tblImportKusovnik.FieldByName('Oznaceni').AsString + '" / norma "'
|
||||||
|
+ datModul.tblImportKusovnik.FieldByName('Norma').AsString + '" / pozice ' + poz.ToString;
|
||||||
|
if (Helios.Prenos (bidKZ, 'TabKmenZbozi.ID', oVar1, 'TabKmenZbozi.Sluzba=0 AND TabKmenZbozi.Blokovano=0', titulek, true)) then
|
||||||
|
begin
|
||||||
|
idKZ := VarToStr(oVar1).ToInteger;
|
||||||
|
with Helios.OpenSQL ('SELECT SkupZbo, RegCis, Nazev1 FROM ' + tblKZ + ' WHERE ID=' + idKZ.ToString) do
|
||||||
|
begin
|
||||||
|
sz := FieldByNameValues('SkupZbo');
|
||||||
|
rc := FieldByNameValues('RegCis');
|
||||||
|
nazev1 := FieldByNameValues('Nazev1');
|
||||||
|
datModul.tblImportKusovnik.Edit;
|
||||||
|
try
|
||||||
|
datModul.tblImportKusovnik.FieldByName('IDKmen').AsInteger := idKZ;
|
||||||
|
datModul.tblImportKusovnik.FieldByName('SZ').AsString := sz;
|
||||||
|
datModul.tblImportKusovnik.FieldByName('RegCis').AsString := rc;
|
||||||
|
datModul.tblImportKusovnik.FieldByName('JeProblem').AsBoolean := false;
|
||||||
|
// datModul.tblImportKusovnik.FieldByName('Nazev1').AsString := nazev1;
|
||||||
|
datModul.tblImportKusovnik.Post;
|
||||||
|
except
|
||||||
|
on E:Exception do
|
||||||
|
datModul.tblImportKusovnik.Cancel;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.grdKusovnikDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
|
||||||
|
var poz: integer;
|
||||||
|
begin
|
||||||
|
poz := grdKusovnik.DataSource.DataSet.FieldByName('Pozice').AsInteger;
|
||||||
|
|
||||||
|
if (gdSelected in State) then
|
||||||
|
grdKusovnik.Canvas.Font.Color := clBlack;
|
||||||
|
|
||||||
|
if (poz>=300) and (poz<500) then
|
||||||
|
begin
|
||||||
|
if (Assigned(Column.Field) and (System.SysUtils.SameText(Column.FieldName, 'Popis'))) then
|
||||||
|
if (grdKusovnik.DataSource.DataSet.FieldByName('JeProblem').AsBoolean) then
|
||||||
|
grdKusovnik.Canvas.Brush.Color := clRed;
|
||||||
|
end;
|
||||||
|
|
||||||
|
grdKusovnik.DefaultDrawColumnCell (Rect, DataCol, Column, State);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.grdKusovnikMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
aktRow := TJvDBGrid(Sender).MouseCoord (X, Y).Y;
|
||||||
|
aktCol := TJvDBGrid(Sender).MouseCoord (X, Y).X;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TformImportKusovnik.selZakazkaRightButtonClick (Sender: TObject);
|
||||||
|
begin
|
||||||
|
if (Helios.Prenos(bidZak,'TabZakazka.CisloZakazky', oVar1, '', 'Vyberte zakázku', true)) then
|
||||||
|
begin
|
||||||
|
selZakazka.Text := VarToStr (oVar1);
|
||||||
|
self.ActiveControl := edtStanice;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -0,0 +1,13 @@
|
|||||||
|
@echo off
|
||||||
|
copy /y D:\Data\Helios\_space\Core\hecore\plgTypeJadro.INC C:\_zakaznici\Montekord\_plg\lib
|
||||||
|
|
||||||
|
rem plgHlaskyEx.INC
|
||||||
|
rem plgHlaskyJadro.INC
|
||||||
|
rem plgTypeBrowse.INC
|
||||||
|
rem plgTypeSoudky.inc
|
||||||
|
rem plgTypeTabulka.inc
|
||||||
|
rem plgTypeTxtEx.inc
|
||||||
|
rem plgTypeTxtJadro.INC
|
||||||
|
rem plgTypeUTA.inc
|
||||||
|
rem plgTypeZbytek.inc
|
||||||
|
rem plgUtaDef.inc
|
||||||
@@ -0,0 +1,10 @@
|
|||||||
|
// PRVNI HLASKA MUSI ZACINAT min. W = 5050000 !!!
|
||||||
|
|
||||||
|
// ,(SelfIdent: plx...;
|
||||||
|
// H : '';
|
||||||
|
// W : 5050000;{$IFDEF EdHlasky}I:'';E:'';D:'';{$ENDIF})
|
||||||
|
|
||||||
|
//last
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -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
|
||||||
@@ -0,0 +1,5 @@
|
|||||||
|
type
|
||||||
|
TplgBrowse = (bZadny
|
||||||
|
|
||||||
|
//last
|
||||||
|
);
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,5 @@
|
|||||||
|
type
|
||||||
|
TplgSoudek = (sdNeniVidet // neni videt ve stromecku (default)
|
||||||
|
|
||||||
|
//last
|
||||||
|
);
|
||||||
@@ -0,0 +1,7 @@
|
|||||||
|
// === TABULKY ================================================================
|
||||||
|
|
||||||
|
type
|
||||||
|
TplgTabulka = (tZadna
|
||||||
|
);
|
||||||
|
|
||||||
|
//last <- to je kvuli rychlejsimu hledani
|
||||||
@@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -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,0 +1,3 @@
|
|||||||
|
|
||||||
|
// Typy a konstanty tykajici se pouze daneho pluginu
|
||||||
|
|
||||||
@@ -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.) }
|
||||||
@@ -0,0 +1,15 @@
|
|||||||
|
@echo off
|
||||||
|
copy /y D:\Data\Helios\_space\Core\hecore\plgAkce.pas C:\_zakaznici\Montekord\_plg\libSys
|
||||||
|
copy /y D:\Data\Helios\_space\Core\hecore\plgMain.pas C:\_zakaznici\Montekord\_plg\libSys
|
||||||
|
rem copy /y D:\Data\Helios\_space\Core\hecore\plgHlasky.pas C:\_zakaznici\Montekord\_plg\libSys
|
||||||
|
|
||||||
|
rem plgHlaskyEx.INC
|
||||||
|
rem plgHlaskyJadro.INC
|
||||||
|
rem plgTypeBrowse.INC
|
||||||
|
rem plgTypeSoudky.inc
|
||||||
|
rem plgTypeTabulka.inc
|
||||||
|
rem plgTypeTxtEx.inc
|
||||||
|
rem plgTypeTxtJadro.INC
|
||||||
|
rem plgTypeUTA.inc
|
||||||
|
rem plgTypeZbytek.inc
|
||||||
|
rem plgUtaDef.inc
|
||||||
+1368
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,25 @@
|
|||||||
|
unit plgBrowse;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
plgType;
|
||||||
|
|
||||||
|
var
|
||||||
|
Cplg_SeznamVychozichNastaveniBrowse : array[TplgBrowse] of TplgVychoziNastaveniBrowse =
|
||||||
|
(
|
||||||
|
(SelfIdent : bZadny;
|
||||||
|
)
|
||||||
|
|
||||||
|
//last
|
||||||
|
);
|
||||||
|
|
||||||
|
{ =========================================================================== }
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ ########################################################################### }
|
||||||
|
|
||||||
|
{ ########################################################################### }
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -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.
|
||||||
@@ -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.
|
||||||
|
|
||||||
@@ -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.
|
||||||
@@ -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.
|
||||||
@@ -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.
|
||||||
+2727
File diff suppressed because it is too large
Load Diff
@@ -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.
|
||||||
@@ -0,0 +1,24 @@
|
|||||||
|
unit plgSoudky;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
plgType;
|
||||||
|
|
||||||
|
const
|
||||||
|
Cplg_SeznamSoudku : array [TplgSoudek] of TplgSoudekDef =
|
||||||
|
((SelfIdent: sdNeniVidet;
|
||||||
|
Jmeno : '')
|
||||||
|
|
||||||
|
//last
|
||||||
|
);
|
||||||
|
|
||||||
|
{ =========================================================================== }
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ ########################################################################### }
|
||||||
|
|
||||||
|
{ ########################################################################### }
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -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
|
||||||
@@ -0,0 +1,23 @@
|
|||||||
|
unit plgTable;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
plgType;
|
||||||
|
|
||||||
|
var
|
||||||
|
Cplg_SeznamTabulek : array[TplgTabulka] of PplgTabulkaDef =
|
||||||
|
(nil // tZadna
|
||||||
|
|
||||||
|
//last
|
||||||
|
);
|
||||||
|
|
||||||
|
{ =========================================================================== }
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ ########################################################################### }
|
||||||
|
|
||||||
|
{ ########################################################################### }
|
||||||
|
|
||||||
|
end.
|
||||||
@@ -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:\
|
||||||
@@ -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.
|
||||||
@@ -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í 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.
|
||||||
@@ -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.
|
||||||
@@ -0,0 +1,60 @@
|
|||||||
|
{ *************************************************************************** }
|
||||||
|
{ }
|
||||||
|
{! SKRIPTY BY MĚLY BÝT PSÁNY TAK, ABY BYLY SPUSTITELNÉ VÍCEKRÁT - TZN. MĚLY !}
|
||||||
|
{! BY OBSAHOVAT RŮZNÉ TESTY EXISTENCE - NAPŘ.: !}
|
||||||
|
{ }
|
||||||
|
{ -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émové funkce OBJECT_ID() - je to sysobjects.xtype }
|
||||||
|
{ - viz BOL }
|
||||||
|
{ }
|
||||||
|
{!!! POZOR - POUŽITÍ RETURN VE ZMĚNOVÝCH SKRIPTECH V plgZmeny.pas NENÍ BEZTRESTNÉ !!!}
|
||||||
|
{ -protože změnové skripty jsou obaleny knihovanmi BEGIN TRAN..COMMIT, tak }
|
||||||
|
{ by případný RETURN ponechal transakci neuzavřenou ! Proto bych měl }
|
||||||
|
{ použít tuto konstrukci: }
|
||||||
|
{ IF @@TRANCOUNT>0 ROLLBACK /* nebo COMMIT dle situace */ }
|
||||||
|
{ RETURN }
|
||||||
|
{ -pokud je kód spouštěn přes EXEC() nebo sp_executesql, tak tam naopak }
|
||||||
|
{ ROLLBACK (COMMIT) být NESMÍ, protože RETURN ukončuje jen daný EXEC() }
|
||||||
|
{ -úplně nejlepší je se RETURNu ve změnových skriptech úplně 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.
|
||||||
|
|
||||||
@@ -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.
|
||||||
@@ -0,0 +1,45 @@
|
|||||||
|
library plgHDCMontekord;
|
||||||
|
|
||||||
|
{$WEAKLINKRTTI ON}
|
||||||
|
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
|
||||||
|
{$IFOPT D-}
|
||||||
|
{$SetPEFlags $AC0E}
|
||||||
|
{$SetPEOptFlags $AC0E}
|
||||||
|
{$ELSE}
|
||||||
|
{$SetPEFlags $AA02}
|
||||||
|
{$SetPEOptFlags $AA02}
|
||||||
|
{$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',
|
||||||
|
frmImportKusovnik in 'frmImportKusovnik.pas' {formImportKusovnik},
|
||||||
|
dataModul in 'dataModul.pas' {datModul: TDataModule};
|
||||||
|
|
||||||
|
exports
|
||||||
|
DllGetClassObject,
|
||||||
|
DllCanUnloadNow,
|
||||||
|
DllRegisterServer,
|
||||||
|
DllUnregisterServer;
|
||||||
|
|
||||||
|
{$R *.RES}
|
||||||
|
|
||||||
|
BEGIN
|
||||||
|
END.
|
||||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
+109
@@ -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('{32EAE564-687F-475D-9CFC-49F18260D835}');
|
||||||
|
|
||||||
|
FPluginSystemoveJmeno := 'plgHDCMontekord';
|
||||||
|
FPluginClassName := 'runMe';
|
||||||
|
FPluginMinimalniPozadovanaVerzeHeliosu := Cplg_PrvniUnicodeVerzeHeliosu;
|
||||||
|
FPluginCopyrightVyrobce := Format('© 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í øešení pro LOVATO Písek');
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ --------------------------------------------------------------------------- }
|
||||||
|
|
||||||
|
function TPluginKonfig.GetPluginTechnickyPopis: String;
|
||||||
|
begin
|
||||||
|
Result := 'Plugin pro externí øešení';
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ --------------------------------------------------------------------------- }
|
||||||
|
|
||||||
|
function TPluginKonfig.GetPluginHistorieVerzi: String;
|
||||||
|
begin
|
||||||
|
Result := 'Historie verzí';
|
||||||
|
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.
|
||||||
Reference in New Issue
Block a user