Галактика в вопросах и ответах

Код: Выделить всё

#include GetAttrTable.vih

const
  coState    : Word =1458;
end;

#ifdef ComponentVersion
#component "C_EXTCLASS"
#endif

VipInterface CreateAttrRef_GalMy implements ObjCreateAttrRefPlugin licensed (FREE);

//------------------------------------------------------------------------------
Handler with replace Gal_CreateAttrRefTableMy on extensionPoint epCreateAttrRefTable (AttrRef : ObjGetAttrTable) [10] // i??< 11
Action
{
   Result := true;
   var ifc : CreateAttrRef_GalMy;
   ifc.AddAttrRefTable (AttrRef);
}

//------------------------------------------------------------------------------
Handler with replace Gal_PickTableRefMy on extensionPoint  epPickTableRef (_coTable: word; _cAttrVal: comp) [10]
Action
{
   case _coTable of
   coState :
   { var ifc : CreateAttrRef_GalMy;
     Result := not ifc.PickValueRef (_coTable, _cAttrVal);
     Result := False ;
   }
   else Result:=true ;
   end ;
}


Interface CreateAttrRef_GalMy;
Create view
From
AttrVal
,Persons
,IeHead
,HozOper
;

Public Procedure AddAttrRefTable (AttrRef : ObjGetAttrTable);
{
  AttrRef.AddTable(coState);
}

Public  Function PickValueRef (_coTable: word; _cAttrVal: comp): boolean;
var
  cStatePick: Comp;
begin
  PickValueRef := false;
  if (getFirst AttrVal where ((_cAttrVal == AttrVal.nRec)) <> tsOk)
     Exit;
  case _coTable of
	coState :
	  {
         cStatePick := AttrVal.vComp;
         RunInterFace(L_KATORG::GETSTATE,cStatePick);
	   if (getFirst KatState where ((cStatePick == KatState.nRec)) = tsOk)
 	   {
		 AttrVal.vComp     := KatState.nRec;
		 AttrVal.vString   := KatState.Name;
		 PickValueRef      :=true;
	   }

	  }
	else  // Если нет интерфейса выбора
    {
      PickValueRef:=false;
      message ('Для таблицы с кодом ' + string(_coTable) + ' нет интерфейса выбора.');
    }
  end; // case

  if  PickValueRef
  {
    var err : word;
    err := Update current AttrVal
    if err <> 0
    {
      Message ('Ошибка N ' + string(err) + ' обновления записи в таблице AttrVal.');
      exit;
    }
  }
end;

end.

Код: Выделить всё

#include ExtAttrClassInfo.vih
Var
  var1    : iExtAttrClassInfo;
  crec_, cAttr_  : Comp;
  sVA, sName, sCode_  : String;
…
sVA:=  'Имя ВА'; //наим-е ВА 
cAttr_:=  var1.ExtAttr_ID( coMoveOs, sVA ); // Nrec ВА к табл.MoveOs
sName:= '';
sCode_:= '';
If var1.ExtAttr_ValueExistsID( coMoveOs, MoveOs.Nrec, cAttr_ )
   {
      crec_:= var1.coGetAttrID( coMoveOs, MoveOs.Nrec, cAttr_ );
      If ( GetFirst SpKau Where (( crec_ == SpKau.Nrec )) = tsOk )
        {
          sName:= SpKau.Name;
          sCode_:= SpKau.Code;
         }
   }

Код: Выделить всё

sName:= If( ( var1.ExtAttr_ValueExistsID ( coMoveOs, MoveOs.Nrec, cAttr_ ) = False ), '', var1.sGetAttrID( coMoveOs, MoveOs.Nrec, cAttr_ ) );