Подскажите, пожалуйста, как привязать партию

Все вопросы, связанные с работой программы СБиС++ версии 1.9

Правила форума
Тема закрыта! Все обсуждения теперь ведутся в группе СБИС 2.Х
Подробнее о том как найти группы и вступить в них.

Подскажите, пожалуйста, как привязать партию

из акта инвентаризации в расходной накладной.
По F8 вызываю правило в расх.накладной.
В приходе могут быть вн.перемещения и акт инвентаризации.
Вн.перем. подцепляются.
Как подцепить партию из акта инвентаризации?


оЛицо1 = Лицо1;
дДата = .Дата;
оПартия = Нет;

ДляВсех(Наименований)
{
пНомНомер = НомНомер;

#ищем номер последнего по дате и лицу док-т прихода
пКолПрих = 0;
ДляВсех(Записей("Приход по карточке",Товар))
{
Если('Накладная-Приход.Лицо1'==оЛицо1 и 'НАКЛАДНАЯ-ПРИХОД.Дата'<=дДата)
пКолПрих++;
}

# Перебираем документы прихода
пКол = 0;
ДляВсех(Записей("Приход по карточке",Товар))
{
Если('Накладная-Приход.Лицо1'==оЛицо1 и 'НАКЛАДНАЯ-ПРИХОД.Дата'<=дДата)
{
пКол++;
# последний по дате и лицу док-т прихода
Если(пКолПрих ==пКол)
ДляВсех(Наименований)
{ # вот он
Если('НАИМ.Лицо_>Лицо_.НомНомер'==пНомНомер)
{
Если('Тип документа'!="ИнвентарОпись")
оПартия = 'НАИМ.Расход-Переоценка'; # внутр. перем.
Иначе
{
оПартия = Нет; # инв.опись. ЧТО написать здесь ???
}
# отладить();
}
}

}
}
Если(оПартия)
{
Связать('НАИМ.Приход-Расход', оПартия);
Сохранить(НАИМ)
}
}
TatyanaT 
» 22 дек 2011, 12:21



Вернуться в СБиС++ 1.9

cron