рс = СоздатьОбъект("ODBCRecordset");
ТекстЗапроса = "
|SELECT
| Жур.IDDoc as [Док $Документ],
| Жур.IDDocDef as Док_вид
|FROM
| _1SJourn as Жур
|INNER JOIN
| _1SCRDOC as Отбор ON Отбор.ChildID=Жур.IDDoc AND Отбор.MDID=0 AND Отбор.ParentVal=:ВыбДок*
|WHERE
| Жур.IDDocDef=$ВидДокумента.РасходнаяНакладнаяКор
| AND Жур.Closed & 1 = 1";
рс.УстановитьТекстовыйПараметр("ВыбДок", РН);
тз = рс.ВыполнитьИнструкцию(ТекстЗапроса);
где РН - переменная с типом значения "Документ.РасходнаяНакладная",
а подчиненные документы требуются только с видом "РасходнаяНакладнаяКор"
и Жур.Closed & 1 = 1 - указание отбирать только проведенные документы (в таблице _1SJourn есть поле Closed, первый бит которого отвечает за проведенность документа)
Комментариев нет:
Отправить комментарий