Поиск подчиненного документа 1С 7.7

[Guest]

Конфигурация 7.7
Не могу найти похожих статей... Подскажите плз....
Надо перебрать в журнале документов все Приходные накладные (с нач года и по тек дату) и проверить если у них подчиненные документы СчетФактуры, если есть то поменять сумму документа или есче что0нить сотворить над ней....
Находил несколько решений, но все какие-то ошибки вылазят...

 

[KiR]

во-первых можно сделать запрос и отбирать только нужные докуметны - т.е. те, которые содержат подчиненные СчетФактуры (указать в запросе подобное условие)
во-вторых - любые ошибки в студию. ибо иначе предметного разговора не получицо.

 

[Guest]

Док = СоздатьОбъект("Документ.ЛМБ_ОперацияПоЗалогу");
Если Док.ВыбратьПодчиненныеДокументы(НачГода(ТекущаяДата()),КонГода(ТекущаяДата()),ТекущийДокумент())=1 Тогда
Пока Док.ПолучитьДокумент()=1 Цикл
Если Док.Вид() = "СчетаФактурыВыданные" Тогда
//Абра-Кадабра
КонецЕсли;
КонецЦикла;
КонецЕсли;

Вот такой кусок кода написал... вот только до Абры-Кадабры он не доходит....

 

[vbs]

Док = СоздатьОбъект("Документ.ЛМБ_ОперацияПоЗалогу");
ДокП = СоздатьОбъект("Документ");
Док.ВыбратьДокументы(НачГода(ТекущаяДата()),КонГода(ТекущаяДата()))
Пока Док.ПолучитьДокумент()=1 Цикл
Если ДокП.ВыбратьПодчиненныеДокументы(НачГода(ТекущаяДата()),КонГода(ТекущаяДата()),Д
ок.ТекущийДокумент())=1 Тогда
Пока ДокП.ПолучитьДокумент()=1 Цикл
Если ДокП.Вид() = "СчетаФактурыВыданные" Тогда
//Абра-Кадабра
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;

 

[Guest]

Vbs, 3яя строчка не проходит, т.к. нужен 3й параметр... ТекущийДокумент() тоже не канает =(

Док.ВыбратьДокументы(НачГода(ТекущаяДата()),КонГода(ТекущаяДата()))

 

[vbs]

И зачем тебе 3-й параметр, если данный метод подразумевает только два ? Три нужно для выбора подчиненных.
Вот правильный синтаксис (точки с запятой не было) :
Док.ВыбратьДокументы(НачГода(ТекущаяДата()),КонГода(ТекущаяДата()));

ТекущийДокумент() тоже не канает =(

а эту предъяву просто не понял
ДокП.ВыбратьПодчиненныеДокументы(НачГода(ТекущаяДата()),
КонГода(ТекущаяДата()),Док.ТекущийДокумент()); - и вот это не работает ?
Вспомни Станиславского

 

[Guest]

аааа... маза-фака... пардон текст серый - расплывается не разгладел Извини тем более глаза слипаются а завтра сдаваться =) Щас переделаю и попробую...

 

[vbs]

Для настоящего программиста полночь - самое время творить -

 

[WildAnther]

Ночью и компьютер лучше работает.=)

 

[DiasA]

Док = СоздатьОбъект("Документ.ЛМБ_ОперацияПоЗалогу");
Если Док.ВыбратьПодчиненныеДокументы(НачГода(ТекущаяДата()),КонГода(ТекущаяДата()),ТекущийДокумент())=1 Тогда
Пока Док.ПолучитьДокумент()=1 Цикл
Если Док.Вид() = "СчетаФактурыВыданные" Тогда
//Абра-Кадабра
КонецЕсли;
КонецЦикла;
КонецЕсли;
------------------------------
Вот такой кусок кода написал... вот только до Абры-Кадабры он не доходит....
-----------------------------

Мой ответ :
Вы что белены объелись ?
вы изначально выбираете документы только (ЛМБ_ОперацияПоЗалогу) Док = СоздатьОбъект("Документ.ЛМБ_ОперацияПоЗалогу");
какая тогда может быть проверка на Если Док.Вид() = "СчетаФактурыВыданные" Тогда ????

 

[checkvilGrado]

i am Checkvil. This i my login on this forum. it is good ?