exec Class 'Measure', 'Object', 'Измерение'
  exec Field 'BaseUnit', 'Unit', 'Основная ед. изм.', 'null'
  exec SubTable 'RecalcFactors', 'Коэффициенты пересчёта'
    exec Field 'FromMeasure', 'Measure', 'Из измерения', 'Key'
    exec Field 'Factor', 'Decimal', 'Коэффициент'
exec Compile 
go

create procedure OrCondition_Check
  @OID OID
as
  set nocount on
  declare @ConditionOID OID,
          @Result       int
          
  declare Walker cursor local fast_forward for
    select ConditionOID
      from TGroupCondition_List
      where OID = @OID
      
  open Walker
    fetch next from Walker into @ConditionOID
    while @@fetch_status =  0 
    begin
      exec @Result = Condition_Check @ConditionOID
      if @Result =  0  return  0 
      fetch next from Walker into @ConditionOID
    end
  close Walker
  deallocate Walker
  
  return  1 
go

        if ((bool)GetParam("reserve"))
        {
          o = (Axsel.Kernel.Object)GetParam("Car");
          Axsel.Kernel.Object odoc = FindDoc(o);
          DBODocument doc = null;
          if (odoc == null)
          {
            doc = (DBODocument)Manager.DBObject("CarRequest");
            doc.Open("ClassInfo");
            doc.Open("Create");
            doc["Name"] = "Продажа автомобиля " + o.Name;
            doc["Agent"] = DataSet.Tables["Common"].Rows[ 0 ]["Manager"];
            doc["Counter"] = DataSet.Tables["Common"].Rows[ 0 ]["Counter"];
            doc["Manager"] = GetParam("Manager");
            doc["Currency"] = DataSet.Tables["Common"].Rows[ 0 ]["Currency"];

            foreach (DataRow r in DataSet.Tables["Sale"].Rows)
            {
              if (((Axsel.Kernel.Object)r["Service"]).OID == o.OID)
              {
                DBObject m = (DBObject)Manager.DBObject("Measure");
                m.SetParam("Ext", "Quantity");
                m.Open("Find");

                DataRow i = doc.DataSet.Tables["Things"].NewRow();
                i["Thing"] = o;
                i["Quantity"] =  1 ;
                i["Price"] = r["Price"] == DBNull.Value ?  0  : r["Price"];
                i["Measure"] = m.Object;
                decimal sum = Convert.ToDecimal(r["Price"] == DBNull.Value ?  0  : r["Price"]);
                doc.DataSet.Tables["Things"].Rows.Add(i);
                break;
              }
            }

            doc.Save("Create");
            AddDocument(doc.Object, "Reserve");
          }
          else
          {
            doc = (DBODocument)odoc.CreateDBObject(Manager);
          }

          doc.Transact();
        }