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

Zacatek uprav Ramcovy plan

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

94
frmTiskyNahledy.pas
View File

@ -75,6 +75,7 @@ type
HeliosHandle: integer;
idKmen: integer;
idPrikaz: integer;
idPaleta: integer;
idStroj: Integer;
sarze: string;
paletList: string;
@ -83,16 +84,17 @@ type
var
formTiskyNahledy: TformTiskyNahledy;
bidPalety: integer;
idFormKA, idFormPS, idFormPL: integer;
implementation
uses datMod,
frmZahajeniPalety,
helUtils;
uses System.StrUtils,
datMod,
frmZahajeniPalety, helUtils;
{$R *.dfm}
function ResourceNameToString(lpszName: PChar): string;
function ResourceNameToString (lpszName: PChar): string;
begin
if Is_IntResource(lpszName) then
Result:= '#' + IntToStr(NativeUInt(lpszName))
@ -101,7 +103,7 @@ uses datMod,
end;
function ResourceTypeToString(lpszType: PChar): string;
function ResourceTypeToString (lpszType: PChar): string;
begin
case NativeUInt(lpszType) of
NativeUInt(RT_CURSOR):
@ -113,12 +115,12 @@ uses datMod,
NativeUInt(RT_GROUP_ICON):
Result:= 'RT_GROUP_ICON';
else
Result := ResourceNameToString(lpszType);
Result := ResourceNameToString (lpszType);
end;
end;
function EnumResNameProc(hModule: HMODULE; lpszType, lpszName: PChar; lParam: NativeInt): BOOL; stdcall;
function EnumResNameProc (hModule: HMODULE; lpszType, lpszName: PChar; lParam: NativeInt): BOOL; stdcall;
begin
TStrings(lParam).Add(ResourceNameToString(lpszName));
result:= true;
@ -126,56 +128,52 @@ uses datMod,
procedure TformTiskyNahledy.btnAVTisk1Click (Sender: TObject);
var idF: integer;
begin
if (datMod.aktIdKmen>0) then
if (idKmen>0) then
begin
idF:= helUtils.getHeliosIntVal (Helios, 0, 'SELECT ID FROM ' + tblFormDef + ' WHERE Nazev2=N''PEK-6''');
idF:= helUtils.getHeliosIntVal (Helios, 0, 'SELECT TOP(1) ID FROM ' + tblFormDef + ' WHERE Nazev2=N''PEK-6''');
if (idF>0) then
Helios.PrintForm3 (bidDilce, idF, 'TabKmenZbozi.ID=' + datMod.aktIdKmen.ToString);
Helios.PrintForm3 (bidDilce, idF, 'TabKmenZbozi.ID=' + idKmen.ToString);
end;
Close;
end;
procedure TformTiskyNahledy.btnAVTisk2Click (Sender: TObject);
var lSQL: string;
f: integer;
i: integer;
var lSQL, podm: string;
idFormNastav: integer;
begin
if (idKmen>0) and (bidPalety>0) then
if (bidPalety>0) and (idFormKA>0) then
begin
f:= helUtils.getHeliosIntVal (Helios, 0, 'SELECT ISNULL(_KL,0) FROM ' + tblKZe + ' WHERE ID=' + idKmen.ToString);
if (f>0) then
lSQL:= 'SELECT TOP(1) ID FROM ' + tblTiskDef + ' WHERE FormDefID=' + idFormKA.ToString + ' AND LoginName IS NULL ORDER BY Prednastaveno DESC';
idFormNastav:= helUtils.getHeliosIntVal (Helios, 0, lSQL);
if (idFormNastav=0) then
begin
lSQL:= 'SELECT COUNT(ID) FROM ' + datMod.constHvwVyrobaPalety + ' x WHERE x.IDKmen=' + idKmen.ToString;
if (paletList<>'') then
lSQL:= lSQL + ' AND x.CisloPalety=N' + paletList.QuotedString
else
begin
if (sarze<>'') then
lSQL:= lSQL + ' AND x.Sarze=N' + sarze.QuotedString;
if (idPrikaz>0) then
lSQL:= lSQL + ' AND x.IDPrikaz=' + idPrikaz.ToString;
if (idStroj>0) then
lSQL:= lSQL + ' AND x.IDStroj=' + idStroj.ToString;
end;
i:= helUtils.getHeliosIntVal (Helios, 0, lSQL);
if (i=1) then
begin
lSQL:= lSQL.Replace('SELECT COUNT(ID) FROM ' + datMod.constHvwVyrobaPalety + ' x WHERE', '');
lSQL:= lSQL.Replace('x', datMod.constHvwVyrobaPalety);
Helios.PrintForm3 (bidPalety, f, lSQL.Trim);
end;
lSQL:= 'INSERT ' + tblTiskDef + ' (FormDefID, Nazev, Prednastaveno, Implicitni, LevyOkraj, HorniOkraj, TiskFronta) SELECT ' + idFormKA.ToString
+ ', N''Tisk Zebra'', 1, 0, 0, 0, N''Zebra''' + CRLF + 'SELECT SCOPE_IDENTITY()';
idFormNastav:= helUtils.getHeliosIntVal (Helios, 0, lSQL);
end;
Helios.ExecSQL('UPDATE ' + tblTiskDef + ' SET PocetKopii=1 WHERE ID=' + idFormNastav.ToString);
podm:= 'hvw_Vyroba_Palety.CisloPalety=(SELECT TOP(1) CisloPalety FROM ' + datMod.constHvwVyrobaPalety + ' WHERE';
if (idPaleta>0) then
podm:= podm + ' ID=' + idPaleta.ToString
else
podm:= podm + ' IDPrikaz=' + idPrikaz.ToString + ' AND IDStroj=' + idStroj.ToString + IfThen(paletList<>'', ' AND CisloPalety=N' + paletList.QuotedString, '');
podm:= podm + ')';
Helios.PrintForm3 (bidPalety, idFormKA, podm);
end;
end;
procedure TformTiskyNahledy.btnAVTisk3Click (Sender: TObject); // paletovy listek
var f: integer;
f2: TformZahajeniPalety;
@ -186,6 +184,7 @@ uses datMod,
try
f2.Helios:= Helios;
f2.opakTisky:= true;
f2.idPaleta:= idPaleta;
f2.f2:= self;
f2.idPrikaz:= idPrikaz;
f2.idStroj:= datMod.bmIdStroj;
@ -216,7 +215,6 @@ uses datMod,
if (idF>0) then
Helios.PrintForm3 (bidDilce, idF, 'TabKmenZbozi.ID=' + datMod.aktIdKmenPlan.ToString);
end;
Close;
end;
@ -231,14 +229,14 @@ uses datMod,
if (idF>0) then
Helios.PrintForm3 (bidDilce, idF, 'TabKmenZbozi.ID=' + datMod.aktIdKmenRozprac.ToString);
end;
Close;
end;
procedure TformTiskyNahledy.FormShow (Sender: TObject);
var sl: TStringList;
var lSQL: string;
sl: TStringList;
hndl: NativeUInt;
i: integer;
icn: TIcon;
@ -278,6 +276,24 @@ uses datMod,
bidPalety:= helUtils.getHeliosIntVal(Helios, 0, 'SELECT DPBID FROM ' + tblObecPrehled + ' WHERE NazevSys=N''hvw_Vyroba_Palety''');
idFormKA:= 0; // Kartonový štítek (Zebra)
idFormPS:= 0;
idFormPL:= 0;
lSQL:= 'SELECT * FROM ' + tblKZe + ' WHERE ID=' + idKmen.ToString;
with Helios.OpenSQL(lSQL) do
if (RecordCount=1) then
begin
First;
if not(TryStrToInt(VarToStr(FieldByNameValues('_KL')), idFormKA)) then
idFormKA:= 0;
if not(TryStrToInt(VarToStr(FieldByNameValues('_PalStitek')), idFormPS)) then
idFormPS:= 0;
if not(TryStrToInt(VarToStr(FieldByNameValues('_PLKK')), idFormPL)) then
idFormPL:= 0;
end;
end;
end.