Имя: Пароль:
1C
1C 7.7
v7: Сравнение двух документов
, ,
0 pavilion
 
08.04.15
13:15
Сижу ломаю голову, как реализовать, по сути ничего сложного, но тем не менее, не знаю правильно ли я делаю...
Нужно сравнить два документа "Расходную накладную" с "Приходно кассовым ордером", методом перебором документа.
Если не совпадают то вывести в таблицу, если совпадают то ничего.

Процедура Сформировать()
    ДокРН = СоздатьОбъект("Документ.РасходнаяНакладная");
    ДокПКО = СоздатьОбъект("Документ.ПриходныйКассовый");
    ДокРН.ВыбратьДокументы(НачДата,КонДата);
    
        ДокРН.ВыбратьПодчиненныеДокументы(ДокПКО);
        Пока ДокРН.ПолучитьДокумент()=1 Цикл
            Если ДокРН.Вид()<>"ПриходныйКассовый" Тогда
                Продолжить    
            КонецЕсли;    
        КонецЦикла;


//заполнение    
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сравнение");
Таб.ВывестиСекцию("Шапка");

КонецПроцедуры
Хотя бы знать, правильно я начал делать
1 DmitriyDI
 
08.04.15
13:17
(0) запросом !
4 viktor_vv
 
08.04.15
13:22
Ошибку выдаст. Для перебора полчиненых надо документ общего вида. Да и ты один и тот же объект пытаешься перебирать
5 aka AMIGO
 
08.04.15
13:22
(4) +1.. и я сижу, не допонимаю :)
6 viktor_vv
 
08.04.15
13:23
ДокПодч = СолатьОбъект(«Документ");
7 Builder
 
08.04.15
13:25
ДокРН.ВыбратьДокументы(НачДата,КонДата);
    
        Пока ДокРН.ПолучитьДокумент()=1 Цикл
           ДокПодч.ВыбратьПодчиненныеДокументы(,,ДокРН);

            Если ДокПодч.Вид()="ПриходныйКассовый" Тогда
                // Тут делай что надо
            КонецЕсли;    
        КонецЦикла;
8 Builder
 
08.04.15
13:27
(7) Ой, блин, цикл забыл по подчиненным.

ДокРН.ВыбратьДокументы(НачДата,КонДата);
    
Пока ДокРН.ПолучитьДокумент()=1 Цикл
ДокПодч.ВыбратьПодчиненныеДокументы(,,ДокРН);
Пока ДокПодч.ПолучитьДокумент()=1            
Если ДокПодч.Вид()="ПриходныйКассовый" Тогда
                // Тут делай что надо

КонецЦикла;
КонецЕсли;    
КонецЦикла;
9 сестрица аленушка
 
08.04.15
13:32
создание таблицы и вывод шапки над перебором документов.
таб.вывестисекцию("мое сравнение") непосредственно в цикле
10 pavilion
 
08.04.15
14:02
Спасибо большое, буду пробовать.