[mind.beggar]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

DM1.Qtemp.Close; DM1.Qtemp.SQL.Clear; DM1.Qtemp.SQL.Add('insert into sb_dok_el(INSTRKOD, DOCNUM, DOKDATE, KLADOVSCHIK, DOK_ID, SKLKOD, OPTYPE_ID, ID_ROOTDOC)'); DM1.Qtemp.SQL.Add('values (:aINSTRKOD, :aDOCNUM, :aDOKDATE, :aKLADOVSCHIK, :aDOK_ID, :aSKLKOD, :aOPTYPE_ID, :aID_ROOTDOC)'); with DM1.Qtemp.ParamByName('aINSTRKOD') do   begin     ParamType := ptInput;     DataType := ftInteger;     Value := DM1.qSklad.FieldByName('INSTRKOD').Text   end; with DM1.Qtemp.ParamByName('aDOCNUM') do   begin     ParamType := ptInput;     DataType := ftString;     Value := eNum.Text;   end; with DM1.Qtemp.ParamByName('aDOKDATE') do   begin     ParamType := ptInput;     DataType := ftDate;     Value := eDOKDATE.Value;   end; with DM1.Qtemp.ParamByName('aKLADOVSCHIK') do   begin     ParamType := ptInput;     DataType := ftString;     Value := eKLADOVSCHIK.Text;   end; with DM1.Qtemp.ParamByName('aDOK_ID') do   begin     ParamType := ptInput;     DataType := ftInteger;     Value := sb_dok_id;   end; with DM1.Qtemp.ParamByName('aSKLKOD') do   begin     ParamType := ptInput;     DataType := ftInteger;     Value := skl_kod;   end; with DM1.Qtemp.ParamByName('aOPTYPE_ID') do   begin     ParamType := ptInput;     DataType := ftInteger;     Value := 92;   end; with DM1.Qtemp.ParamByName('aID_ROOTDOC') do   begin     ParamType := ptInput;     DataType := ftInteger;     Value := rootdoc_id;   end; DM1.Qtemp.ExecSQL;

На ExecSQL валится ошибка "Invalid variant type conversion".
Как ее вылечить?

[M.A.D.M.A.N.]

Value у параметров - variant, попробуй использовать ф-ю VarAsType при присвоении значения параметра.