как определить Tipdoc для Soprhoz для ордера?

[Damir]

как определить Tipdoc для Soprhoz для ордера?
вариант GetSoprHozTipDoc(SklOrder.SP, SklOrder.VidOrder) неподходит, т.к. используется сторонняя программа

[Ged]

case SklOrder.Sp of
0: TipDoc := If(SklOrder.VidOrder=0,word(150),word(250));
1: TipDoc := If(SklOrder.VidOrder=0,word(160),word(260));
2: TipDoc := If(SklOrder.VidOrder=0,word(170),word(270));
3: TipDoc := If(SklOrder.VidOrder=0,word(161),word(261));
else TipDoc := If(SklOrder.VidOrder=0,word(162),word(262));
end

Коды см. в KatDoc

[Damir]

Леонид Поликутин
огромное спасибо!