Zobrazení zdroje stránky Text s klíčovými daty workflow

Klíčová data workflow, u schvalování smlouvy je to např. protistrana, datum platnosti, věc apod., je vhodné zapisovat do protokolu procesu. Při vytváření a následném schvalování smlouvy se však tato data mohou měnit a je nutné do protokolu zapisovat aktuální hodnoty. Za normálních okolností však původní data/texty v procesu zůstávají a působí zmatečně. Následující podskript zajistí automatické skrytí původního textu při vložení textu nového.
 
<h2>Podskript, který není nutné nějak upravovat</h2>
<pre>
declare procedure AddHtmlText dll "ActualDocument" (string, string, string, pointer)
declare function GetHash dll "ActualDocument" (string, string, string): string
declare function GetProperty dll "ActualDocument" (string): string
declare function ReadSglobal dll "ActualDocument" (): string
declare function SetPartActive dll "ActualDocument" (string, string, boolean, string, pointer): boolean

script AddMainText(): boolean
var
  HtmlText, Text: string
  TextHash: string
begin
  HtmlText := GetProperty ("BasicDataHtmlText") // V hlavním skriptu byl do property BasicDataHtmlText vložen funkcí "SetProperty" html text s klíčovými daty workflow
  Text := GetProperty ("BasicDataText") // V hlavním skriptu byl do property BasicDataText vložen funkcí "SetProperty" text s klíčovými daty workflow

  TextHash := GetHash(HtmlText, "", "") // Výpočet hash řetězce z html textu
  if (wkf.MainTextId <> "") and (wkf.MainTextHash <> TextHash) then // Původní text bude zneaktivněn v případě, kdy již nějaký text v protokolu existuje a zároveň jeho uložená hash je různá od hash aktuálně vkládaného textu
    SetPartActive("", wkf.MainTextId, false, "", actualdocument) // Označení původního textu jako neaktivní
  end

  if wkf.MainTextHash <> TextHash then // Došlo ke změně textu
    AddHtmlText("actualdocument", HtmlText, Text, actualdocument) // Vložení nového textu
    wkf.MainTextHash := TextHash // Uložení hash řetězce pro budoucí porovnání
    wkf.MainTextId := ReadSglobal() // Uložení ID nově vloženého textu

    result := true
  end
end
</pre>

<h2>Část hlavního skriptu</h2>
<pre>
  SetProperty ("BasicDataHtmlText", "<b>Tento tučný text bude vložen do protokolu procesu</b>")
  SetProperty ("BasicDataText", "Tento text bude vložen do protokolu procesu")
  AddMainText()
</pre>

Zpět na stránku [[Prováděcí skripty]]
[[Category: enTeam skripty]]