Вот кусок кода программы

procedure TfEditFullIzdNak.cxButton3Click(Sender: TObject);
var
 cp,co:integer;
begin

 if dmGrafik.spJobShopForSeElse.FieldValues['shop']='УМТС'
 then
   co:=420
 else
   co:=dmGrafik.spJobShopForSeElse.FieldValues['shop'];

 fNakladn_sd:=TfNakladn_sd.Create(Self);

 dmGrafik.spNakladn_sv.Parameters.ParamValues['@co']:=co;
 dmGrafik.spNakladn_sv.Parameters.ParamValues['@id_dse']:=dmGrafik.spJobShopForSe Else.FieldValues['id_dse'];
 dmGrafik.spNakladn_sv.Parameters.ParamValues['@id_fullizd']:=dmGrafik.spJobShopF orSeElse.FieldValues['id_fullizd'];
 dmGrafik.spNakladn_sv.Open;

Когда вот это условие выполняеться,
if dmGrafik.spJobShopForSeElse.FieldValues['shop']='УМТС'  при открытии   dmGrafik.spNakladn_sv.Open выдаеться ошибка "Cold no variant type(null ) into type (dooble)"

В других случаеях работает всё нормлаьно, помогите, что делать ?

Не присваивать параметру вариантного значения null.

> spNakladn_sv

это явно не таблица
скорее всего один из параметров хранимки просто не проинициализирован