Не могу найти ф-цию GetDocTreeIcon

[Alexander]

Ф-ция используется в

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

  TreeSetNodeType(brDogovorSelectMain,
                  DocTreeType,
                  GetDocTreeIcon(Dogovor1.TiDk,
                                 Dogovor1.Status,
                                 DocTreeType));

            }

Но где она описана найти не могу! Галка при компиляции ругается...

[aleks1232321]

Живет эта функция в DogIcons.vpp
Вот текст этой VPP

var DocIcons0: array[1..3] of string;
var DocIcons1: array[1..3] of string;
var DocIcons2: array[1..3] of string;
var DocIcons3: array[1..3] of string;
var DocIcons4: array[1..3] of string;
var DocIcons5: array[1..3] of string;

procedure InitDocIconsArray;
var Prefix : string;
{
#ifdef ComponentVersion
Prefix := 'L_DOGOVOR::';
#else
Prefix := '';
#end
DocIcons0[1] := Prefix+'BmpOformLeave';
DocIcons0[2] := Prefix+'BmpOformFolderClosed';
DocIcons0[3] := Prefix+'BmpOformFolderOpened';

DocIcons1[1] := Prefix+'BmpIspolLeave';
DocIcons1[2] := Prefix+'BmpIspolFolderClosed';
DocIcons1[3] := Prefix+'BmpIspolFolderOpened';

DocIcons2[1] := Prefix+'BmpPriosLeave';
DocIcons2[2] := Prefix+'BmpPriosFolderClosed';
DocIcons2[3] := Prefix+'BmpPriosFolderOpened';

DocIcons3[1] := Prefix+'BmpRastLeave';
DocIcons3[2] := Prefix+'BmpRastFolderClosed';
DocIcons3[3] := Prefix+'BmpRastFolderOpened';

DocIcons4[1] := Prefix+'BmpZakrLeave';
DocIcons4[2] := Prefix+'BmpZakrFolderClosed';
DocIcons4[3] := Prefix+'BmpZakrFolderOpened';

DocIcons5[1] := Prefix+'BmpAnnulLeave';
DocIcons5[2] := Prefix+'BmpAnnulFolderClosed';
DocIcons5[3] := Prefix+'BmpAnnulFolderOpened';
}

function GetDocTreeIcon(DocTiDk: word; DocStatus: word; DocTreeType: byte): string;
var i: byte;
{
GetDocTreeIcon := '';
case DocTreeType of
ntfText : i := 1;
ntfClose: i := 2;
ntfOpen : i := 3;
end;
case DocTiDk of
400..401,403..439 : // договора, соглашения, планы
case DocStatus of
0: GetDocTreeIcon := DocIcons0;//'оформляемый'
1: GetDocTreeIcon := DocIcons1;//'исполняемый'
2: GetDocTreeIcon := DocIcons2;//'приостановленный'
3: GetDocTreeIcon := DocIcons3;//'расторгнутый'
4: GetDocTreeIcon := DocIcons4;//'закрытый'
end;
402 : // акты сверки
case DocStatus of
0: GetDocTreeIcon := DocIcons0;//'оформляемый'
1: GetDocTreeIcon := DocIcons5;//'аннулированный'
2: GetDocTreeIcon := DocIcons4;//'проведенный'
end;
440..443 : // наряд-заказы, распоряжения на отгрузку
case DocStatus of
0: GetDocTreeIcon := DocIcons0;//'оформляемый'
1: GetDocTreeIcon := DocIcons1;//'исполняемый'
3: GetDocTreeIcon := DocIcons3[i];//'отмененный'
4: GetDocTreeIcon := DocIcons4[i];//'закрытый'
5: GetDocTreeIcon := DocIcons5[i];//'на аннулирование'
end;
445 : // схемы связей между документами
case DocStatus of
0: GetDocTreeIcon := DocIcons0[i];//'оформляемый'
1: GetDocTreeIcon := DocIcons1[i];//'исполняемый'
2: GetDocTreeIcon := DocIcons3[i];//'отмененный'
3: GetDocTreeIcon := DocIcons4[i];//'закрытый'
end;
end;
}

[Alexander]

большое спасибо!