Имя: Пароль:
1C
1C 7.7
v7: Пустой КорСчет. Помогите!
0 tassman
 
10.10.12
12:25
Нужно вывести счет по которому на 10сч поступили материалы!
Но он пустой:        Тз.Кт = Операция.Дебет.КоррСчетаФактуры;

Док = СоздатьОбъект("Документ.Операция");
Док.ОбратныйПорядок(1);
Док.ВыбратьДокументы('01.05.2011','01.06.2011');
Пока Док.ПолучитьДокумент()=1 цикл
   ТекДок = Док.ТекущийДокумент();
   Операция =  ТекДок.Операция;
   Операция.ВыбратьПроводки();
   Пока Операция.ПолучитьПроводку() =1 Цикл
       Если (Операция.Дебет.Счет.ПринадлежитГруппе (СчетПОКОду("10"))=1) Тогда
       Тз.НоваяСтрока();
       Тз.Дата = Операция.ДатаОперации;        
       Тз.Дт = Операция.Дебет.Счет;
       Тз.СубМх = Операция.Дебет.Субконто(2);
       Тз.СубНомНомер = Операция.Дебет.Субконто(1).Код;
       Тз.Кт = Операция.Дебет.КоррСчетаФактуры;
       Тз.СубКт = Операция.Кредит.Субконто(2);
       Тз.Сумма = Операция.Сумма;
       КонецЕсли;
   КонецЦикла;  
КонецЦикла;
ВремяВыполнения(Ч,М,С);
Сообщить("ВыбрангСтрок " + Строка(Тз.КоличествоСтрок()));
Тз.ВыбратьСтроку();

Все заполнены колонки кроме Тз.Кт
Сос! помогите не знаю что делать!!! Как выбрать КорСчет?
1 Рэйв
 
10.10.12
12:26
Операция.Кредит.Счет?
2 tassman
 
10.10.12
12:27
(1) Операция.Кредит.Счет - нет такого метода в Документ.Операция.
3 Kreont
 
10.10.12
12:27
А что ошибки не пишет?
на этой строке:
"Тз.Кт = Операция.Дебет.КоррСчетаФактуры;"

Хоть укажи какая конфа, я таких реквизитов операции просто не видел (
4 tassman
 
10.10.12
12:28
п.с. выбрать нужно именно таким методом, как указал! А не через БИ и не через запрос!
5 zak555
 
10.10.12
12:28
бух запрос наше всё
6 tassman
 
10.10.12
12:30
(3) 1с Предпр 7.7.  7.70.019 для SQL
7 tassman
 
10.10.12
12:31
(3) А что ошибки не пишет?  - нет! просто пустое значение! В выборку около 2000 строк. и во всех поле Кт пустое!
8 vtolga
 
10.10.12
12:32
А что, у проводки есть реквизит КоррСчетаФактуры?
9 AAP
 
10.10.12
12:33
(6) конфигурация какая?
10 zak555
 
10.10.12
12:33
(9) укрГАЗ
11 Zmich
 
10.10.12
12:33
Тз.Кт - мож Тип неправильно описан?
12 zak555
 
10.10.12
12:33
tassman приучайся писать правильно -- бухалтерскийЗапрос
13 miki
 
10.10.12
12:34
(8)+1
Какая аналитика у твоей десятки?
14 AAP
 
10.10.12
12:36
про (2) не верю
15 tassman
 
10.10.12
12:37
Тем не менее: "Нужно вывести счет по которому на 10сч поступили материалы!"
16 Эльниньо
 
10.10.12
12:38
(2) Операция.Дебет.Счет есть, Операция.Кредит.Счет нет )
17 zak555
 
10.10.12
12:38
(15) запрос по КорДо на счету 10
18 tassman
 
10.10.12
12:39
Операция.Кредит.Счет! Извиняюсь! Есть такое! Но кредит это же операция по списанию с 10-ки получается!
19 tassman
 
10.10.12
12:40
(15) запрос по КорДо на счету 10 - он выдаст операцию по списанию с 10сч!
ИЛИ я ошибаюсь?
20 Рэйв
 
10.10.12
12:40
(18)  10 у тебя в дебете.. А кредит - это как раз с чем оно корреспондирует
21 zak555
 
10.10.12
12:42
(19) главное сделай запрос
22 tassman
 
10.10.12
12:44
|Период с '01.05.2012' по '01.06.2012';
|ОбрабатыватьОперации Все;
|Сч = Операция.Дебет.Счет;
|КорСч = Операция.КорСчет;
|МХ = Операция.Дебет.МестаХранения;
|НомНомер = Операция.Дебет.Материалы.Код;
|ПослДата = Операция.ДатаОперации;
|Количество = Операция.Количество;
|Сумма = Операция.Сумма;
|Группировка МХ без групп упорядочить по МХ.Код;
|Группировка НомНомер без групп;
|Условие (Сч в ВыбСч);     // Тут я выбираю только 10 и суб счета по 10
|Условие (не(КорСч в ВыбСч)); // Тут выбираю с каких счетов на 10сч были операции
|Условие ((Сумма <> 0) или (Количество <> 0 ));
|";
23 tassman
 
10.10.12
12:45
Если я изменю строку:
|Сч = Операция.Дебет.Счет;
на строку
|Сч = Операция.Кредит.Счет;
то получу операции по 10сч кредитовые со счетами всеми кроме 10сч (т.к. |Условие (не(КорСч в ВыбСч));)
24 zak555
 
10.10.12
12:45
(22) (23) про бухЗапрос не слышал ?
25 miki
 
10.10.12
12:46
(24)развод это, по-ходу...
26 zak555
 
10.10.12
12:47
(25) почему ?
обычным запросом можно по проводкам пройтись тоже
27 tassman
 
10.10.12
12:48
Для (24) см. (4) "п.с. выбрать нужно именно таким методом, как указал! А не через БИ и не через запрос!"
т.к. через обработку документов выполняется быстрее!
28 zak555
 
10.10.12
12:50
(27) чего - чего ?

+ ты аналитику распиши 10 счета+ с каким о корреспондируется при поступлении материала ?
29 AAP
 
10.10.12
12:51
(27)
Док = СоздатьОбъект("Документ.Операция");
Док.ОбратныйПорядок(1);
Док.ВыбратьДокументы('01.05.2011','01.06.2011');
Пока Док.ПолучитьДокумент()=1 цикл
   ТекДок = Док.ТекущийДокумент();
   Операция =  ТекДок.Операция;
   Операция.ВыбратьПроводки();
   Пока Операция.ПолучитьПроводку() =1 Цикл
       Если (Операция.Дебет.Счет.ПринадлежитГруппе (СчетПОКОду("10"))=1) Тогда
       Тз.НоваяСтрока();
       Тз.Дата = Операция.ДатаОперации;        
       Тз.Дт = Операция.Дебет.Счет;
       Тз.СубМх = Операция.Дебет.Субконто(2);
       Тз.СубНомНомер = Операция.Дебет.Субконто(1).Код;
       Тз.Кт = Операция.Дебет.Счет;
       Тз.СубКт = Операция.Кредит.Субконто(2);
       Тз.Сумма = Операция.Сумма;
       КонецЕсли;
   КонецЦикла;  
КонецЦикла;
ВремяВыполнения(Ч,М,С);
Сообщить("ВыбрангСтрок " + Строка(Тз.КоличествоСтрок()));
Тз.ВыбратьСтроку();

вот таким методом
не работает?
30 AAP
 
10.10.12
12:52
(29) ошибочка
Док = СоздатьОбъект("Документ.Операция");
Док.ОбратныйПорядок(1);
Док.ВыбратьДокументы('01.05.2011','01.06.2011');
Пока Док.ПолучитьДокумент()=1 цикл
   ТекДок = Док.ТекущийДокумент();
   Операция =  ТекДок.Операция;
   Операция.ВыбратьПроводки();
   Пока Операция.ПолучитьПроводку() =1 Цикл
       Если (Операция.Дебет.Счет.ПринадлежитГруппе (СчетПОКОду("10"))=1) Тогда
       Тз.НоваяСтрока();
       Тз.Дата = Операция.ДатаОперации;        
       Тз.Дт = Операция.Дебет.Счет;
       Тз.СубМх = Операция.Дебет.Субконто(2);
       Тз.СубНомНомер = Операция.Дебет.Субконто(1).Код;
       Тз.Кт = Операция.Кредит.Счет;
       Тз.СубКт = Операция.Кредит.Субконто(2);
       Тз.Сумма = Операция.Сумма;
       КонецЕсли;
   КонецЦикла;  
КонецЦикла;
ВремяВыполнения(Ч,М,С);
Сообщить("ВыбрангСтрок " + Строка(Тз.КоличествоСтрок()));
Тз.ВыбратьСтроку();
31 zak555
 
10.10.12
12:53
как бы нужно выбирать не документОпераиця, а объект Операиция
32 AAP
 
10.10.12
12:56
(31) ТС говорит что все работает только "Кт" не заполняется поэтому оставил все как есть
33 tassman
 
10.10.12
12:59
(32) Я так пробовал! Щас ещё раз проверю... у меня крыша едет. Щас отпишусь! Спасибо.
34 zak555
 
10.10.12
13:00
чем буЗапрос не нравится ?
35 Эльниньо
 
10.10.12
13:01
(34) Не умеет, наверное.
36 zak555
 
10.10.12
13:02
(35) читай (27)
там что-то секретное
37 chief accountant
 
10.10.12
13:12
(27) лошара
38 chief accountant
 
10.10.12
13:14
39 Эльниньо
 
10.10.12
13:15
(36) Не умеет, наверное
40 zak555
 
10.10.12
13:18
у него ещё на 10ке Сф
ЖЕСТЬ
41 tassman
 
10.10.12
13:39
zak555. В условиях написано: Док = СоздатьОбъект("Документ.Операция");
зачем мне обрабатывать все итоги?
и ещё КорСчет для буЗапрос (под буЗапрос ты имеешь в виду бух итоги?) неизвестны, т.е. все кроме 10-ки.
Вот и получается что быстрее обработать док.Операция
42 tassman
 
10.10.12
13:41
(38) + имхо! там курятник развели а точного ответа так никто и не дал, ну кроме  "Смотрящий от 1С" .
43 Эльниньо
 
10.10.12
13:42
(41) Не получается.
44 tassman
 
10.10.12
13:42
(12) троль с большими ушами?
45 zak555
 
10.10.12
13:44
(41)


б.ИСпользоватьСубконто(видыСубконто.номенклатура );
б.ИСпользоватьСубконто(видыСубконто.МХ);
б.ИСпользоватьКорСубконто(видыСубконто.АналитикаКорСчта);
б.выполнитьЗапрос (дата1, дата2, Сч10,,,2,5);
46 zak555
 
10.10.12
13:45
(44) троль у тебя штанах
47 chief accountant
 
10.10.12
14:00
(41) г авно-решение
48 zak555
 
10.10.12
14:03
(47) ща тебя недалёким нарекут =)
49 chief accountant
 
10.10.12
14:08
50 zak555
 
10.10.12
14:10
(49) =)
но на ебунту ты зря наехал
51 chief accountant
 
10.10.12
14:13
(50) нее не я, то была цитата последнего поста Требует каждый раз запустить в монопольном режиме