0
GalanEvgeny
28.01.13
✎
13:15
|
Смысл такой:
Необходимо получить номер печатной формы КМ7!
запрос за 1 год по ККМ(касса) нумеруются документы по порядку
В справочнике касса содержится ссылка на документ ОтчетККМ.
+ Code
Текст кода(//СЮДА НЕ ПОПАДАЕТ ВЫПОЛНЕНИЕ КОДА - сюда надо зайти при выполнении функции):
Запрос=СоздатьОбъект("Запрос");
ТекстЗапроса = "
|SELECT
//| Жур.IDDoc as [Док $Документ],
//| Жур.IDDocDef as Док_вид,
| Жур.IDDoc as Док,
| Count(Жур.IDDoc) as НомерПоПорядку
|FROM
| _1SJourn as Жур
|INNER JOIN _1SJourn as Жур2 ON Жур2.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND Жур2.$ОбщийРеквизит.ККМ=:ККМ AND Жур2.IDDocDef = $ВидДокумента.ОтчетККМ
| AND Жур2.DATE_TIME_IDDOC<=Жур.DATE_TIME_IDDOC
|WHERE
| Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~ AND Жур.$ОбщийРеквизит.ККМ=:ККМ AND Жур.IDDocDef = $ВидДокумента.ОтчетККМ
//|GROUP BY Жур.IDDoc,Жур.IDDocDef";
|GROUP BY Жур.IDDoc";
БД.УстановитьТекстовыйПараметр ("ККМ",ККМ);
БД.УстановитьТекстовыйПараметр ("НачДата",НачГода(ДатаДок));
БД.УстановитьТекстовыйПараметр ("КонДата", КонГода(ДатаДок));
ТЗ = БД.ВыполнитьИнструкцию(ТекстЗапроса);
НомерСтроки="";
//ТекДок=ТекущийДокумент();
//Если ТЗ.НайтиЗначение(ТекДок,НомерСтроки,"Док")=1 Тогда
Если ТЗ.НайтиЗначение(ТекущийДокумент(),НомерСтроки,"Док")=1 Тогда
НомерТекущегоДокумента=ТЗ.ПолучитьЗначение(НомерСтроки, "НомерПоПорядку"); //СЮДА НЕ ПОПАДАЕТ ВЫПОЛНЕНИЕ КОДА
Иначе
Возврат 0;
КонецЕсли;
З.Ы.:
Получение Док как документ, не помагает
| Жур.IDDoc as [Док $Документ],
| Жур.IDDocDef as Док_вид,
|
|