procedure TFormGep_Lekerdezes.CheckDateD; Var PKod, TKod, GKod : Integer; Datum, Datum1, Datum2, Datum3, Datum4 : TDateTime; Honap1, Honap2, Honap3 : Integer; AYear, AMonth, ADay : Word; Year1, Month1, Day1 : Word; Year2, Month2, Day2 : Word; Year3, Month3, Day3 : Word; Year4, Month4, Day4 : Word; YearA, MonthA, DayA : Word; YearB, MonthB, DayB : Word; ActDate : TDateTime; Szoveg : String; Selejt : Boolean; Szamol, Count, Ciklus : Integer; Talal : Integer; DatumA, DatumB, DatumC, DatumMv, DatumX : TDateTime; begin If ZQueryGepek.IsEmpty Then Exit; Screen.Cursor := crHourGlass; // Aktuális év meghatározása ActDate := Now; DecodeDate(ActDate, AYear, AMonth, ADay); If ComboBoxMonthD.ItemIndex <> -1 Then AMonth := ComboBoxMonthD.ItemIndex + 1; Count := ZQueryGepek.RecordCount; Ciklus := 0; Szamol := 1; Talal := 0; // Átmeneti tároló törlésa ha kell MemoryTableLeker.Close; MemoryTableLeker.Open; ProgressBarD.Max := Count + MemoryTableLeker.RecordCount; ProgressBarD.Min := 0; ProgressBarD.Position := 0; // Töröljük az átmeneti tárolót, ha szükséges, hogy ne legyen zavaró If (not(MemoryTableLeker.IsEmpty)) Then Begin MemoryTableLeker.First; while (not(MemoryTableLeker.Eof)) do Begin MemoryTableLeker.Delete; ProgressBarD.Position := ProgressBarD.Position +1; End; MemoryTableLeker.Close; MemoryTableLeker.Open; End; // Az első elemre pozicionálunk a Query-ben LabelMaxD.Caption := IntToStr(Count); LabelPositionD.Caption := '0'; LabeListD.Caption := '0'; ZQueryGepek.First; Repeat // Kiszámoljuk mikor kell az adott gép következő felülvizsgálatát megejteni PKod := ZQueryGepekgep_munkaeszkoz_pkod.Value; TKod := ZQueryGepekgep_munkaeszkoz_tkod.Value; GKod := ZQueryGepekgep_munkaeszkoz_kod.Value; // Értékek alaphelyzetbe állítása Year1 := 0; Year2 := 0; Year3 := 0; Year4 := 0; Honap1 := -1; Honap2 := -1; Honap3 := -1; Selejt := False; Datum := 0; Datum1 := 0; Datum2 := 0; Datum3 := 0; Datum4 := 0; // A hozzátartozó jegyzőkönyvek adatait lekérjük ZQueryGep_Jegyzokonyv.Close; ZQueryGep_Jegyzokonyv.Params[0].AsInteger := PKod; ZQueryGep_Jegyzokonyv.Params[1].AsInteger := TKod; ZQueryGep_Jegyzokonyv.Params[2].AsInteger := GKod; ZQueryGep_Jegyzokonyv.Open; ZQueryGep_Jegyzokonyv.First; // üzembehelyezést megelöző ZQueryVizsgalat.Close; ZQueryVizsgalat.SQL.Clear; ZQueryVizsgalat.SQL.Add('select datum_keltido from gep_jegyzokonyv'); ZQueryVizsgalat.SQL.Add('where (gep_jegyzokonyv_pkod=:pkod) and'); ZQueryVizsgalat.SQL.Add('(gep_jegyzokonyv_tkod=:tkod) and'); ZQueryVizsgalat.SQL.Add('(gep_jegyzokonyv_gkod=:gkod) and'); ZQueryVizsgalat.SQL.Add('((tipus=:mytipus) or (tipus=:mytipus2))'); ZQueryVizsgalat.SQL.Add('order by datum_keltido desc'); ZQueryVizsgalat.Params[0].Value := PKod; ZQueryVizsgalat.Params[1].Value := TKod; ZQueryVizsgalat.Params[2].Value := GKod; ZQueryVizsgalat.Params[3].Value := 'Munkavédelmi szempontú előzetes felülvizsgálat'; ZQueryVizsgalat.Params[4].Value := 'Használatba vételt megelőző munkavédelmi szempontú előzetes vizsgálat'; ZQueryVizsgalat.Open; ZQueryVizsgalat.First; If ZQueryVizsgalat.FieldByName('datum_keltido').IsNull Then Datum := 0 Else Datum := ZQueryVizsgalat.FieldByName('datum_keltido').Value; //Időszakos biztonságtechnikai felülvizsgálat (5 évente általában) ZQueryVizsgalat.Close; ZQueryVizsgalat.Params[0].Value := PKod; ZQueryVizsgalat.Params[1].Value := TKod; ZQueryVizsgalat.Params[2].Value := GKod; ZQueryVizsgalat.Params[3].Value := 'Időszakos biztonságtechnikai felülvizsgálat'; ZQueryVizsgalat.Open; ZQueryVizsgalat.First; If ZQueryVizsgalat.FieldByName('datum_keltido').IsNull Then Datum1 := 0 Else Datum1 := ZQueryVizsgalat.FieldByName('datum_keltido').Value; // Szerkezeti vizsgálat ZQueryVizsgalat.Close; ZQueryVizsgalat.Params[0].Value := PKod; ZQueryVizsgalat.Params[1].Value := TKod; ZQueryVizsgalat.Params[2].Value := GKod; ZQueryVizsgalat.Params[3].Value := 'Szerkezeti vizsgálat'; ZQueryVizsgalat.Open; ZQueryVizsgalat.First; If ZQueryVizsgalat.FieldByName('datum_keltido').IsNull Then Datum2 := 0 Else Datum2 := ZQueryVizsgalat.FieldByName('datum_keltido').Value; // Fővizsgálat ZQueryVizsgalat.Close; ZQueryVizsgalat.Params[0].Value := PKod; ZQueryVizsgalat.Params[1].Value := TKod; ZQueryVizsgalat.Params[2].Value := GKod; ZQueryVizsgalat.Params[3].Value := 'Fővizsgálat'; ZQueryVizsgalat.Open; ZQueryVizsgalat.First; If ZQueryVizsgalat.FieldByName('datum_keltido').IsNull Then Datum3 := 0 Else Datum3 := ZQueryVizsgalat.FieldByName('datum_keltido').Value; // Gépvizsgálat ZQueryVizsgalat.Close; ZQueryVizsgalat.SQL.Clear; ZQueryVizsgalat.SQL.Add('select datum_keltido from gep_jegyzokonyv'); ZQueryVizsgalat.SQL.Add('where (gep_jegyzokonyv_pkod=:pkod) and'); ZQueryVizsgalat.SQL.Add('(gep_jegyzokonyv_tkod=:tkod) and'); ZQueryVizsgalat.SQL.Add('(gep_jegyzokonyv_gkod=:gkod) and'); ZQueryVizsgalat.SQL.Add('((tipus=:mytipus) or (tipus=:mytipus2))'); ZQueryVizsgalat.SQL.Add('order by datum_keltido desc'); ZQueryVizsgalat.Params[0].Value := PKod; ZQueryVizsgalat.Params[1].Value := TKod; ZQueryVizsgalat.Params[2].Value := GKod; ZQueryVizsgalat.Params[3].Value := 'Ellenőrző felülvizsgálat'; ZQueryVizsgalat.Params[4].Value := 'Időszakos ellenőrző felülvizsgálat'; ZQueryVizsgalat.Open; ZQueryVizsgalat.First; If ZQueryVizsgalat.FieldByName('datum_keltido').IsNull Then Datum4 := 0 Else Datum4 := ZQueryVizsgalat.FieldByName('datum_keltido').Value; If (Not ZQueryGepek.FieldByName('datum_selejtezes').IsNull) Or (ZQueryGepek.FieldByName('statusz').Value = 'Kivonva') Then Selejt := True Else Selejt := False; // vizsgálati idők lekérdezése If Not ZQueryGepek.FieldByName('idobizt').IsNull Then Begin Try Honap1 := ZQueryGepek.FieldByName('idobizt').AsInteger Except Honap1 := -1; End; End Else Honap1 := -1; If Not ZQueryGepek.FieldByName('idoszerk').IsNull Then Begin Try Honap2 := ZQueryGepek.FieldByName('idoszerk').AsInteger; Except Honap2 := -1; End; End Else Honap2 := -1; If Not ZQueryGepek.FieldByName('idofov').IsNull Then Begin Try Honap3 := ZQueryGepek.FieldByName('idofov').AsInteger Except Honap3 := -1; End; End Else Honap3 := -1; // vizsgálati idők lekérdezése { If Not ZQueryGepek.FieldByName('idobizt').IsNull Then Honap1 := ZQueryGepek.FieldByName('idobizt').AsInteger Else Honap1 := -1; If Not ZQueryGepek.FieldByName('idoszerk').IsNull Then Honap2 := ZQueryGepek.FieldByName('idoszerk').AsInteger Else Honap2 := -1; If Not ZQueryGepek.FieldByName('idofov').IsNull Then Honap3 := ZQueryGepek.FieldByName('idofov').AsInteger Else Honap3 := -1; } If Not Selejt Then Begin // Ha valamelyik vizsgálat még nem volt, akkor az üzembehelyezést megelözőhőz // kell viszonyítani a következő felülvizsgálatok idejét If Datum <> 0 Then // Csak a munkavédelmihez lehet viszonyítani Begin If (Honap1 <> -1) And (Datum1 = 0) Then Datum1 := Datum; If (Honap2 <> -1) And (Datum2 = 0) Then Datum2 := Datum; If (Honap3 <> -1) And (Datum3 = 0) Then Datum3 := Datum; If (Honap1 <> -1) And (Datum4 = 0) Then Datum4 := Datum; // Ha újraindítás van, akkor viszont az időszakost és mindent ahhoz kell viszonyítani If Datum1 < Datum Then Datum1 := Datum; End; // Ha a Szerkezeti vizsgálat kisebb, mint a Fővizsgálat (létező vizsgálat) If Datum2 < Datum3 Then Datum2 := Datum3; // Ha a Szerkezeti vizsgálat kisebb, mint az Időszakos (létező vizsgálat) If Datum2 < Datum1 Then Datum2 := Datum1; // Ha a Fővizsgálat kisebb, mint az Időszakos (létező vizsgálat) If Datum3 < Datum1 Then Datum3 := Datum1; // IDŐSZAKOS BIZTONSÁGTECHNIKAI If (Honap1 <> -1) And ((ZQueryGep_Jegyzokonyvtipus.Value <> 'Ellenőrző felülvizsgálat') Or (ZQueryGep_Jegyzokonyvtipus.Value <> 'Időszakos ellenőrző felülvizsgálat')) And (POS('Nem veszélyes', ZQueryGep_Jegyzokonyvfajta.Value) = 0) And (Datum1 <> 0) Then Begin // Ha csak biztonságtechnikai vizsgálat van, és van újabb vizsgálat, akkor ahhoz viszonyítsunk... If (Honap1 <> 0) And (Honap2 <= 0) And (Honap3 <= 0) Then Begin DatumA := Datum1; DatumB := Datum2; DatumC := Datum3; If DatumA>DatumB Then begin DatumX:=DatumA; DatumA:=DatumB; DatumB:=DatumX; end; if DatumA>DatumC then begin DatumX:=DatumA; DatumA:=DatumC; DatumC:=DatumX; end; if DatumB>DatumC then begin DatumX:=DatumB; DatumB:=DatumC; DatumC:=DatumX; end; Datum1 := DatumC; End; Datum1 := IncMonth(Datum1, Honap1); DecodeDate(Datum1, Year1, Month1, Day1); If (Year1 = AYear) And (Month1 = AMonth) Then Begin End Else Begin Year1 := 0; Month1 := 0; End; End; If (ZQueryGep_Jegyzokonyvgepfocsop.Value <> 'Technológiai gép') And (ZQueryGep_Jegyzokonyvgepfocsop.Value <> 'Tartóbak') Then Begin // Ha más berendezésről van szó, akkor van szerkezeti és fő vizsgálat is // FŐVIZSGÁLAT If Datum3 <> 0 Then Begin//Fővizsgálat If (Honap3 <> -1) Then Begin Datum3 := IncMonth(Datum3, Honap3); If Datum1 < Datum3 Then // Ha IB kisebb mint a következő Fővizsgálat Begin // Megnézzük, hány hónap van köztük If Abs(MonthSpan(Datum1, Datum3)) < Honap3 Then // Ha ez kisebb, mint amennyinek el kellett volna telnie, akkor Begin // Az IB-től számoljuk a vizsgálatot DecodeDate(Datum1, Year1, Month1, Day1); Datum3 := IncMonth(Datum1, Honap3); End; End; DecodeDate(Datum3, Year3, Month3, Day3); If (Year3 = AYear) And (Month3 = AMonth) Then Begin End Else Begin Year3 := 0; Month3 := 0; End; End Else Label25.Caption := 'Hiányzó adat!'; End; // SZERKEZETI VIZSGÁLAT If Datum2 <> 0 Then Begin If (Honap2 <> -1) Then Begin If Datum2 > Datum Then // Ha szerkezeti vizsgálat ideje az üzembehelyezésnél nagyobb Datum2 := IncMonth(Datum2, Honap2) Else // Ha nem nagyobb, akkor újraindás volt valószínűleg, és ehhez viszonyítunk szerketei vizsgálatot Datum2 := IncMonth(Datum, Honap2); If Datum1 < Datum2 Then // Ha IB kisebb mint a következő Szerkezeti vizsgálat Begin // Megnézzük, hány hónap van köztük If Abs(MonthSpan(Datum1, Datum2)) < Honap2 Then // Ha ez kisebb, mint amennyinek el kellett volna telnie, akkor Begin // Az IB-től számoljuk a vizsgálatot DecodeDate(Datum1, Year1, Month1, Day1); Datum2 := IncMonth(Datum1, Honap2); End; End; DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; End Else Label24.Caption := 'Hiányzó adat!'; End; // ha a szerkezeti vizsgálat azonos lenne a fővizsgálattal DecodeDate(Datum2, YearA, MonthA, DayA); DecodeDate(Datum3, YearB, MonthB, DayB); If (YearA=YearB) And (MonthA=MonthB) Then begin // a szerkezeti vizsgálatot a fővizsgálathoz kell viszonyítani Datum2 := Datum3; Datum2 := IncMonth(Datum2, Honap2); DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; end; End; {If ZQueryGepekgepfocsoport.Value <> 'Technológiai gép' Then Begin // Ha más berendezésről van szó, akkor van szerkezeti és fő vizsgálat is If Datum2 <> 0 Then Begin//szerkezeti vizsgálat If (Honap2 <> -1) Then Begin If Datum2 > Datum Then // Ha szerkezeti vizsgálat ideje az üzembehelyezésnél nagyobb Datum2 := IncMonth(Datum2, Honap2) Else // Ha nem nagyobb, akkor újraindás volt valószínűleg, és ehhez viszonyítunk szerketei vizsgálatot Datum2 := IncMonth(Datum, Honap2); If Datum1 < Datum2 Then // Ha IB kisebb mint a következő Szerkezeti vizsgálat Begin // Megnézzük, hány hónap van köztük If Abs(MonthSpan(Datum1, Datum2)) < Honap2 Then // Ha ez kisebb, mint amennyinek el kellett volna telnie, akkor Begin // Az IB-től számoljuk a vizsgálatot DecodeDate(Datum1, Year1, Month1, Day1); Datum2 := IncMonth(Datum1, Honap2); End; End; DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; End; End; // ha a szerkezeti vizsgálat azonos lenne a fővizsgálattal DecodeDate(Datum2, YearA, MonthA, DayA); DecodeDate(Datum3, YearB, MonthB, DayB); If (YearA=YearB) and (MonthA=MonthB) Then begin // a szerkezeti vizsgálatot a fővizsgálathoz kell viszonyítani Datum2 := Datum3; Datum2 := IncMonth(Datum2, Honap2); DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; end; If Datum3 <> 0 Then Begin//Fővizsgálat If (Honap3 <> -1) Then Begin If Datum3 > Datum1 Then // Ha a Fővizsgálat ideje az időszakosnál nagyobb Datum3 := IncMonth(Datum3, Honap3) Else Datum3 := IncMonth(Datum1, Honap3); DecodeDate(Datum3, Year3, Month3, Day3); If (Year3 = AYear) And (Month3 = AMonth) Then Begin End Else Begin Year3 := 0; Month3 := 0; End; End; End; End; If (Honap1 <> -1) And ((ZQueryGep_Jegyzokonyvtipus.Value <> 'Ellenőrző felülvizsgálat') Or (ZQueryGep_Jegyzokonyvtipus.Value <> 'Időszakos ellenőrző felülvizsgálat')) And (POS('Nem veszélyes', ZQueryGep_Jegyzokonyvfajta.Value) = 0) And (Datum1 <> 0) Then Begin Datum1 := IncMonth(Datum1, Honap1); DecodeDate(Datum1, Year1, Month1, Day1); If (Year1 = AYear) And (Month1 = AMonth) Then Begin End Else Begin Year1 := 0; Month1 := 0; End; // Ellenőrizzük, hogy ne legyen kavar a fővizsgálattal If (Datum3-Datum1) > 0 Then Begin DecodeDate(Datum1, YearA, MonthA, DayA); DecodeDate(Datum3, YearB, MonthB, DayB); If (YearA-YearB)*12 < Honap3 Then Begin Datum3 := IncMonth(Datum1, Honap3); DecodeDate(Datum3, Year3, Month3, Day3); If (Year3 = AYear) And (Month3 = AMonth) Then Begin End Else Begin Year3 := 0; Month3 := 0; End; End; End; End; } // Ellenörző felülvizsgálat: Nem veszélyes jelzet esetén, vagy ellenörző felülvizsgálat esetén is If (Honap1 <> -1) And ((ZQueryGep_Jegyzokonyvtipus.Value = 'Ellenőrző felülvizsgálat') Or (ZQueryGep_Jegyzokonyvtipus.Value = 'Időszakos ellenőrző felülvizsgálat') Or (POS('Nem veszélyes', ZQueryGep_Jegyzokonyvfajta.Value) <> 0)) And (Datum4 <> 0) Then Begin Datum4 := IncMonth(Datum4, Honap1); DecodeDate(Datum4, Year4, Month4, Day4); If (Year4 = AYear) And (Month4 = AMonth) Then Begin End Else Begin Year4 := 0; Month4 := 0; End; End; { // Időszakos felülvizsgálat If (Honap1 <> -1) And (Datum1 <> 0) Then Begin Datum1 := IncMonth(Datum1, Honap1);//IncDateMonth(Datum1, Honap1); DecodeDate(Datum1, Year1, Month1, Day1); If (Year1 = AYear) And (Month1 = AMonth) Then Begin End Else Begin Year1 := 0; Month1 := 0; End; End; If ZQueryGepekgepfocsoport.Value <> 'Technológiai gép' Then Begin // Ha más berendezésről van szó, akkor van szerkezeti és fő vizsgálat is If Datum2 <> 0 Then Begin//szerkezeti vizsgálat If (Honap2 <> -1) Then Begin Datum2 := IncMonth(Datum2, Honap2); DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; End; End; // ha a szerkezeti vizsgálat azonos lenne a fővizsgálattal DecodeDate(Datum2, YearA, MonthA, DayA); DecodeDate(Datum3, YearB, MonthB, DayB); If (YearA=YearB) and (MonthA=MonthB) Then begin // a szerkezeti vizsgálatot a fővizsgálathoz kell viszonyítani Datum2 := Datum3; Datum2 := IncMonth(Datum2, Honap2); DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; end; If Datum3 <> 0 Then Begin//Fővizsgálat If (Honap2 <> -1) Then Begin Datum3 := IncMonth(Datum3, Honap3); DecodeDate(Datum3, Year3, Month3, Day3); If (Year3 = AYear) And (Month3 = AMonth) Then Begin End Else Begin Year3 := 0; Month3 := 0; End; End; End; End; // Ellenőrizzük, hogy ne legyen kavar a fővizsgálattal If (Year1 <> 0) And (Year3 <> 0) Then Begin If (Datum3-Datum1) > 0 Then Begin DecodeDate(Datum1, YearA, MonthA, Day1); DecodeDate(Datum3, YearB, MonthB, Day2); If (Year1-Year2)*12 < Honap3 Then Begin Datum3 := IncMonth(Datum1, Honap3); DecodeDate(Datum3, Year3, Month3, Day3); If (Year3 = AYear) And (Month3 = AMonth) Then Begin End Else Begin Year3 := 0; Month3 := 0; End; End; End; End; // Ellenőrizni kell a szerkezeti vizsgálatot is, ha egy hónapban van a fővizsgálattal If Datum2 <> 0 Then Begin//szerkezeti vizsgálat If (Honap2 <> -1) Then Begin DecodeDate(Datum2, YearA, MonthA, DayA); DecodeDate(Datum3, YearB, MonthB, DayB); If (MonthA = MonthB) And (YearA=YearB) Then Begin // Akkor a fővizsgálathoz fogunk viszonyítani Datum2 := IncMonth(Datum3, Honap2); DecodeDate(Datum2, Year2, Month2, Day2); If (Year2 = AYear) And (Month2 = AMonth) Then Begin End Else Begin Year2 := 0; Month2 := 0; End; End; End; End; // Ellenörző felülvizsgálat: Nem veszélyes jelzet esetén, vagy ellenörző felülvizsgálat esetén is If (Honap1 <> -1) And ((ZQueryGep_Jegyzokonyvtipus.Value = 'Ellenőrző felülvizsgálat') Or (ZQueryGep_Jegyzokonyvtipus.Value = 'Időszakos ellenőrző felülvizsgálat') Or (POS('Nem veszélyes', ZQueryGep_Jegyzokonyvfajta.Value) <> 0)) And (Datum4 <> 0) Then Begin Datum4 := IncMonth(Datum4, Honap1); DecodeDate(Datum4, Year4, Month4, Day4); If (Year4 <> AYear) Or (Month4 <> AMonth) Then Begin Year4 := 0; Month4 := 0; End; End; } End; // Nem volt selejtezve // Adatok mentése // Berakjuk a listázásba, ha idén lesz a felülvizsgálata If ((Year1 <> 0) Or (Year2 <> 0) Or (Year3 <> 0) Or (Year4 <> 0)) And (Not Selejt) Then Begin MemoryTableLeker.Insert; MemoryTableLekerKOD.Value := Szamol; MemoryTableLekerGEPNEVE.Value := ZQueryGepeknev.Value; MemoryTableLekerIDOSZAKOS.Value := Datum1; MemoryTableLekerSZERKEZETI.Value := Datum2; MemoryTableLekerFOVIZSGALAT.Value := Datum3; MemoryTableLekerGEPVIZSGALAT.Value := Datum4; MemoryTableLekerTIPUS.Value := ZQueryGepektipus.Value; // 2.2.56 verziótól MemoryTableLekergyartasiszam.Value := ZQueryGepekgyartasiszam.Value; MemoryTableLekerLELTARISZAM.Value := ZQueryGepekleltariszam.Value; MemoryTableLekerGEPFOCSOPORT.Value := ZQueryGepekgepfocsoport.Value; MemoryTableLekerVESZELYESSEG.Value := ZQueryGepekveszelyesseg.AsString; MemoryTableLekerselejtezve.Value := Selejt; //ZQueryPartner.Close; //ZQueryPartner.Open; { ZQueryPartner.Locate('partner_kod', PKod, [loCaseinsensitive]); MemoryTableLekerPNEV.Value := ZQueryPartnernev.Value; MemoryTableLekerPISZ.Value := ZQueryPartnerisz.Value; MemoryTableLekerPTELEPULES.Value := ZQueryPartnertelepules.Value; MemoryTableLekerPCIM.Value := ZQueryPartnercim.Value; } ZQueryTelephely.Close; ZQueryTelephely.Params[0].AsInteger := PKod; ZQueryTelephely.Open; MemoryTableLekerTNEV.Value := ZQueryTelephelynev.Value; MemoryTableLekerTISZ.Value := ZQueryTelephelyisz.Value; MemoryTableLekerTTELEPULES.Value := ZQueryTelephelytelepules.Value; MemoryTableLekerTCIM.Value := ZQueryTelephelycim.Value; MemoryTableLeker.Post; Inc(Talal); LabeListD.Caption := IntToStr(Talal); End; ZQueryGepek.Next; Inc(Szamol); ProgressBarD.Position := ProgressBarD.Position +1; Inc(Ciklus); LabelPositionD.Caption := IntToStr(Ciklus); PanelAlapD.Refresh; If Ciklus mod 10 = 0 Then FormGep_Lekerdezes.Refresh; Until Ciklus = Count; Screen.Cursor := crDefault; end;