|
|
|
Module:
|
Process:
|
|
|
|
|
|
|
|
|
|
|
-
Macků Mílek
-
Registered1/14/2009
-
Naposledy přihlášen
2/3/2021
|
Dobrý den, potřeboval bych poradit, co dělám špatně, program proběhne ale věty se nezapíšou.
MojeZbo.BeginEdit(RemEdit);
try
MojeZbo.RelatedGoodsChild.BeginEdit(remAppend);
MojeZbo.RelatedGoodsChild.RelationType := Vety.Vztah;
MojeZbo.RelatedGoodsChild.GoodsId := Podrizene.Cis;
MojeZbo.RelatedGoodsChild.MasterGoodsId := MojeZbo.Cis;
MojeZbo.RelatedgoodsChild.SaveEdit;
finally
MojeZbo.RelatedGoodsChild.EndEdit;
MojeZbo.EndEdit;
ToLog('Importována související položka ' + trim(Vety.Souvisejici) + ' pro Zboží ' + trim(Vety.Zkratka),0);
end;
end;
GauClose();
ToLog('Import souvisejících ukončen dne ' + DateToStr(date()) + ' v ' + TimeToStr(time()),0);
CloseCell;
|
|
|
|
|
-
Kovařčík Mikuláš
-
Registered11/11/2003
-
Naposledy přihlášen
3/8/2021
|
Dobrý den,
neukládáte doklad MojeZbo.SaveEdit;
Doporučuji použít konstrukci with, která vše potřebné zajistí sama:
with MojeZbo do (remEdit) do begin
nastavení hodnot;
with MojeZbo.RelatedGoodsChild do (remAppend) begin
nastavení hodnot;
end;
end;
Jak vidíte, tak není potřeba žádný blok try .. finally.
|
|
|
|
|
-
Macků Mílek
-
Registered1/14/2009
-
Naposledy přihlášen
2/3/2021
|
Děkuji moc, zejména ta varianta s with se mi moc líbí.
|
|
|
|
|
-
Macků Mílek
-
Registered1/14/2009
-
Naposledy přihlášen
2/3/2021
|
A ještě se zeptám, je možné otestovat v rámci tohoto cyklu existenci věty se stejným recordID?
|
|
|
|
|
-
Kovařčík Mikuláš
-
Registered11/11/2003
-
Naposledy přihlášen
3/8/2021
|
Tohle není cyklus. To je uložení záznamu co bylo předtím BeginEdit – SaveEdit – EndEdit. Existenci záznamu musíte řešit před tím. Možná by byl lepší konkrétní příklad, ať každý nemyslíme něco jiného.
|
|
|
|
|
-
Macků Mílek
-
Registered1/14/2009
-
Naposledy přihlášen
2/3/2021
|
Děkuji, již jsem to vyřešil, chyba byla samozřejmě na mé straně.
|
|