Страница 1 из 1
Не могу найти ф-цию GetDocTreeIcon
Добавлено: 24 янв 2008, 13:32
Alexander
Ф-ция используется в
Код: Выделить всё
TreeSetNodeType(brDogovorSelectMain,
DocTreeType,
GetDocTreeIcon(Dogovor1.TiDk,
Dogovor1.Status,
DocTreeType));
}
Но где она описана найти не могу! Галка при компиляции ругается...
Добавлено: 28 янв 2008, 11:25
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;
}
Добавлено: 05 фев 2008, 10:10
Alexander
большое спасибо!