Имя: Пароль:
1C
1C 7.7
v7: Бухгалтерские итоги.
,
0 Sun125
 
27.05.13
17:34
В базе есть ручная проводка Д 70 К 60.1.
Нужно найти оборот по конкретному сотруднику в сч70 и конкретному контрагенту в сч 60.1
   Ит_60_1 = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит_60_1.ИспользоватьСубконто(ВидыСубконто.Сотрудники, , 1);
   Ит_60_1.ИспользоватьКорСубконто(ВидыСубконто.Контрагенты, ТекКонтрСотрЕНВД, 2);
   Ит_60_1.ВыполнитьЗапрос(НачДата,КонДата,"70","60.1",,2,,"С");
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 цикл  
       Если Ит_60_1.ПолучитьСубконто(,,ТЗ.Сотрудник) = 1 Тогда
// в условие не попадает.
Что не так делаю?
1 zak555
 
27.05.13
17:35
а что это за проводка ?
2 zak555
 
27.05.13
17:36
инет подсказывает, что
Дт 70 Кт 60 --- это перечисление на карту )))))
3 Sun125
 
27.05.13
17:37
ну что-то вроде удержания. может с точки зрения бухгалтерия проводка не корректная, но она есть. Попадает в период.
4 Kreont
 
27.05.13
17:37
ВыбратьСубконто пропустил
5 zak555
 
27.05.13
17:38
(3) так зачем делать запрос по той проводке, которую будут исправлять ?
6 Sun125
 
27.05.13
17:38
В ТЗ есть строка с этим сотрудником, но почему-то
Ит_60_1.ПолучитьСубконто(,,ТЗ.Сотрудник) = 0
7 Sun125
 
27.05.13
17:39
(5) не будут ее исправлять. я просто подумал, что будете щас ругаться, что за проводка неправильная))
8 zak555
 
27.05.13
17:39
(7) ты же человек, которые автоматизирует бухию (!) => должен поинтересоваться
9 Sun125
 
27.05.13
17:40
Пока ТЗ.ПолучитьСтроку() = 1 цикл
       Ит_60_1.ВыбратьСубконто(1);
       Если Ит_60_1.ПолучитьСубконто(,,ТЗ.Сотрудник) = 1 Тогда

все равно ПолучитьСубконто = 0
10 zak555
 
27.05.13
17:42
выбратьСубконто за цикл
11 Sun125
 
27.05.13
17:43
Ит_60_1.ВыбратьСубконто(1);
       Пока Ит_60_1.ПолучитьСубконто(1) = 1 Цикл
       Сообщить("111");    
       КонецЦикла;
вообще в цикл не попадает
12 zak555
 
27.05.13
17:44
кстати, интересно : кто ещё делает проводку
Дт 70 Кт 60
13 Kreont
 
27.05.13
17:44
И в Ит_60_1 хоть что то есть, проверь?

Ит_60_1.ВыбратьСубконто(1);
Пока  Ит_60_1.ПолучитьСубконто(1)=1 Цикл
Сообщить(Ит_60_1.СКД());
Сообщить(Ит_60_1.Субконто(1));

и т.п.
14 zak555
 
27.05.13
17:47
что у тебя делает СЗ ТекКонтрСотрЕНВД в
ВидыСубконто.Контрагенты

??
15 Sun125
 
27.05.13
17:49
(14)это конкретно заданный контрагент
16 Sun125
 
27.05.13
17:50
Убираю кавычки, когда счет определяю, тогда попадает в цикл:
   Ит_60_1.ВыполнитьЗапрос(НачДата,КонДата,70,60.1,,2,,"С");
только сумма странная
17 zak555
 
27.05.13
17:51
Sun125 спроси у буха, что за проводка
18 Sun125
 
27.05.13
17:52
аа....сорри, счет-то не тот выбираю
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан