Имя: Пароль:
1C
1С v8
Помогите перебрать табличную часть перебором строк по запросу
,
0 bebs2010
 
05.09.13
17:51
ЗУП внешняя печатная к документу "Зарплата к выплате организации"

Функция ПолучитьРасчетныйСчет(Организация, Банк) Экспорт
    
    ЗапросНаСуществование = Новый Запрос("
    |ВЫБРАТЬ РАЗРЕШЕННЫЕ
    |    БанковскиеСчета.НомерСчета
    |ИЗ
    |    Справочник.БанковскиеСчета КАК БанковскиеСчета
    |ГДЕ
    |    БанковскиеСчета.Владелец = &Организация
    |    И БанковскиеСчета.Банк = &Банк");
    
    ЗапросНаСуществование.УстановитьПараметр("Организация", Организация);
    ЗапросНаСуществование.УстановитьПараметр("Банк", Банк);
    Выборка = ЗапросНаСуществование.Выполнить().Выбрать();
    
    Если Выборка.Следующий() Тогда
        Возврат Выборка.НомерСчета;
    Иначе
        Возврат Неопределено;
    КонецЕсли;

КонецФункции


Помогите перебрать чтобы было без запроса я новичок заранее спасибо
1 Любопытная
 
05.09.13
17:53
А чем запрос помешал? И тут таб части нет...
2 zak555
 
05.09.13
17:55
у одной организации в одном банке может быть открыто больше одного счета
3 spu79
 
05.09.13
18:00
В привязке к ЗУП - возможно. А вообще - может, например, УТ еще и на валюту счета смотрит.
4 Wobland
 
05.09.13
18:02
(1) возьми и напиши. человек - новичок ;)
5 bebs2010
 
05.09.13
18:06
Вот Макет в помощь
НаименованиеБанка                    
К платежному поручению №    НомерПП    от    ДатаПП        
Зачисление    Зачисление    810            
Наименование    НаименованиеОрганизации    НомерСчета            
По договору:    НомерДоговора    от    ДатаДоговора        
№ п/п    Номер счета    Фамилия    Имя    Отчество    Сумма
НПП    ЛицевойСчет    Фамилия    Имя    Отчество    Сумма
    ИТОГО:                ИтогоСумма
6 Wobland
 
05.09.13
18:07
(5) спасибо, друх!
7 Любопытная
 
05.09.13
18:08
(4) я жадная. Вообще не помню, чтобы кто-то мне взял и написал. Даже когда новичком была.
(5) тебе в итоге что надо-то? Полностью задачу озвуч
8 Wobland
 
05.09.13
18:10
(7) что, даже я тебе ничего не писал?
9 Любопытная
 
05.09.13
18:13
(8) Писал, читал, говорил, разве что не пел) Пристыдил, ладно. Но я все равно не понимаю, чего ТС хочет, так что помочь ничем не смогу
10 Wobland
 
05.09.13
18:14
да внешнюю форму ему надо прикрутить вон по тому макету. только автор здесь готового не получит. ну разве что за деньги
11 zak555
 
05.09.13
18:15
(5) бик наверное ещё надо указать
12 Любопытная
 
05.09.13
18:16
(10) Ты тему читал? Где табличная часть? Каким перебором строк? И чем запрос его не устраивает? ОТветов на эти вопросы ТС не дал. А я ж блондинка, так что... сожалею. Я в сторонке постою
13 Wobland
 
05.09.13
18:17
(12) ну бредит человек. содержательно в (0) только одно: ЗУП внешняя печатная к документу
14 zak555
 
05.09.13
18:20
(13) надо сделать внешнюю печатную форму, которая будет печать данные на основании документа "Зарплата к выплате организации" :
1. из самого документа
2. из справочника внешние печатные формы за период и отборы по банку и ещё чего-нибудь
15 Любопытная
 
05.09.13
18:21
(14) скорее всего он реестр по ЗП в банк сделать хочет
16 zak555
 
05.09.13
18:24
(15) я тоже самое и написал
17 bebs2010
 
05.09.13
18:27
да мне цикл перебора строк нужен табличной части и всё и как получить табличную часть из другого документа
18 Wobland
 
05.09.13
18:28
(17) хреново ты задачу сформулировал
19 Любопытная
 
05.09.13
18:28
(17)Для каждого СтрокаТЧ Из Документ.ТабличнаяЧасть Цикл
//здесь твой какой-то код
КонецЦикла
20 Wobland
 
05.09.13
18:29
+(19) СсылкаНаДругойДокумент.ТЧ
21 zak555
 
05.09.13
18:30
(17) запрос к ТЧ документа

где ССлыкуа в Массиве ссылок
или дата между
и т.д.
22 bebs2010
 
05.09.13
18:34
вроде должно быть как то так
Для  Каждого Стр из Док.Зарплата  цикл
        ДБ.Добавить();

        Выборка = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.Выбрать();
        Пока Выборка.Следующий() Цикл ;        
            Если Выборка.Физлицо.СтраховойНомерПФР = Стр.Физлицо.СтраховойНомерПФР Тогда
                ДБ.B = Выборка.НомерЛицевогоСчета;
            КонецЕсли;        
        КонецЦикла;  

Только вот что писать заместо ДБ.В
23 Любопытная
 
05.09.13
18:35
А что такое ДБ?
24 bebs2010
 
05.09.13
18:37
колонка DBF файла но мне выгрузку в ДБВ не надо делать а оформить просто макет и таблицу перебрать
25 Любопытная
 
05.09.13
18:39
(24) Ну так собери ТЗ и выведи ее на макет. У тебя в ТЗ должны быть колонки :НПП, ЛицевойСчет, Фамилия, Имя, Отчество.
26 Wobland
 
05.09.13
18:39
https://dl.dropboxusercontent.com/u/64196148/СписокНоменклатуры.epf
вот тут простейшая работа с табличным документом.
а вообще, с такой постановкой задачи автор идёт лесом
27 spu79
 
09.09.13
16:32
а ни кого не смущает цикл по строкам документа, а в нем еще один цикл по ВСЕМ записям РС?
28 spu79
 
09.09.13
16:35
может все-таки запрос вида:
ВЫБРАТЬ
    ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо,
    ЛицевыеСчетаРаботниковОрганизации.НомерЛицевогоСчета,
    ЗарплатаКВыплатеОрганизацийЗарплата.Сумма
ИЗ
    Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЛицевыеСчетаРаботниковОрганизации КАК ЛицевыеСчетаРаботниковОрганизации
        ПО (ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо = ЛицевыеСчетаРаботниковОрганизации.ФизЛицо)
            И (ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Организация = ЛицевыеСчетаРаботниковОрганизации.Организация)
ГДЕ
    ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка = &Ссылка
Независимо от того, куда вы едете — это в гору и против ветра!