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

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

#include AttrTablePick.vih
InterFace  ....
var  refAttrTablePick     : AttrTablePick;
create view
as select
  ...
, refAttrTablePick.sGetValue(coContDoc, w_prim_Attr_ID, ContDoc.Nrec) (fieldname=w_prim)

.....
Для TXOAPI это добавляете в события окна
HandleEvent
cmPick:
{ case curfield of 
  #w_prim:
  { refAttrTablePick.PickValue(coContDoc, w_prim_Attr_ID/*AttrNam.NRec*/, ContDoc.Nrec)
    ReScanPanel(#ContDoc)
    ReScanPanel(#Appointments)
  }
  end;
}
end;

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

..
    MyPlansNo == planssch.nrec // план счетов
 and CurSoprHoz == oborot.csoprhoz
 and MyPlansNo == oborot.cplanssch
..
//**************************ОСНОВНАЯ ПРОЦЕДУРА ОБРАБОТКИ ТХО
procedure StoreCycles(hTxo : longint; buf : TTxoApiInfoDoc);
{
  set CurSoprDoc := buf.cSoprDoc;
  set CurSoprHoz := buf.cSoprHoz;
  set CurDatOb := buf.DatOb;
  set CurTidk := buf.TidkGal;
  set MyPlansNo:= buf.cplanssch ;
  //ParamParser(hTxo);
  TxoAllowRecallStoreCycles(hTxo);
  --- 
  здесь вызов вашего окна для задания значений с ВА
  _loop oborot
  ...

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

var
	objExtAttr : iExtAttr;

procedure StoreCycles(hTxo : longint; buf : TTxoApiInfoDoc);
{
	TxoAllowRecallStoreCycles(hTxo);
	set CurSoprHoz := buf.cSoprHoz;
	_loop oborot{
		TxoDebugMsg(hTxo, 'Txo_OborotExtAttr', 'oborot.nrec='+oborot.nrec);
		objExtAttr.coSetAttrID(1502, oborot.nrec, 28147497671065947, 28147497671065688, 'Сырье и материалы') ;
	}
}