[Tipy a Triky] Podmínka na datovou hodnotu NULL

PříspěvekNapsal: 25.09.2007 08:07
od jan.havranek
Pokud podmínkovaný atribut nabývá v databázi hodnotu NULL, musí se pro vyhodnocení v Calcu (například v objektu Variable) použít tato syntaxe:
Kód: Vybrat vše
BEGIN
IF Pipeline.FieldObjects['atribut'].IsNull
THEN Value := 'Vysledek A'
ELSE Value := 'Vysledek B';
END;

Příklad:
Složená podmínka - vyhodnocuje externí atribut _doplnkovykod, který má v defaultu hodnotu NULL ale může být opraven a uložen bez hodnoty, tedy prázdný, ale ne NULL (to odpovídá prázdnému řetězci ''). Pokud doplňkový kód není zadán (tedy hodnota NULL nebo '') vytiskni Barcode zboží, jinak vytiskni externí atribut.
Kód: Vybrat vše
BEGIN
IF xPohybyZbozi_15.FieldObjects['_doplnkovykod'].IsNull
THEN Value := xPohybyZbozi_15['BarCode']
ELSE IF xPohybyZbozi_15['_doplnkovykod']=''
THEN Value := xPohybyZbozi_15['BarCode']
ELSE Value := xPohybyZbozi_15['_doplnkovykod'];
END;