|
0
cyberandr
07.03.12
✎
17:25
|
Всем привет! Есть необходимость отобрать все проводки в бухгалтерии (1с v7 +ms sql 2005)прямым запросом
ЗапросSQL =СоздатьОбъект("ODBCRecordset");
ТекстЗ= "Select Жур.IDDOC as [Док $Документ], Операция.DOCID as НомерОперации,
|CAST(LEFT(Жур.Date_Time_IDDoc, 8) as DateTime) as ДатаДок,
|Жур.IDDocDef as [Док_вид $ВидДокумента], Операция.DOCID as [Oper $Операция],
|CASE Проводки.ACCDTID
|WHEN :Сч20 THEN 1
|ELSE 2
|END as type, Проводки.NUMBER as НомерПроводки,
|Проводки.DTSC0 as [Субк1 $Справочник.ЭлементыЗатрат], Проводки.DTSC1 as [Субк2 $Справочник.ВидыДеятельности], Проводки.DTSC2 as [Субк3 $Справочник.ВидыЗатрат],
|Проводки.VDTSC0 as S1
|from _1SJourn as Жур INNER JOIN _1SOPER as Операция On Жур.IDDoc = Операция.DOCID INNER JOIN _1SENTRY as Проводки On Жур.IDDoc = Проводки.DOCID
|Where (Проводки.ACCDTID = :Сч20 OR ACCKTID = :Сч20) AND Жур.Closed & 1 = 1
|ORDER BY Жур.Date_Time_IDDoc, Проводки.NUMBER
|";
ЗапросSQL.УстановитьТекстовыйПараметр("Сч20"," 24 ");
ТабВрем=СоздатьОбъект("ТаблицаЗначений");
ЗапросSQL.ВыполнитьИнструкцию(ТекстЗ,табВрем);
В итоге я получаю гораздо больше проводок чем есть на самом деле. Появляются проводки с субконто "объект не найден" хотя из 1С я их не вижу и везде все тип-топ. Не подскажите откуда берется этот мусор и как его отсеять?
|
|