Имя: Пароль:
1C
1C 7.7
v7: Обороты между счетами
0 Erhov_egor
 
12.09.12
08:01
В общем хочу получить в запросе по справонику контрагенты обороты по контрагенту по проводке дт 62.1 - кт 91.1.1, т.е. бух.итогами но чо то туплю с утра
1 Erhov_egor
 
12.09.12
08:02
Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Обрабатывать НеПомеченныеНаУдаление;
   |Контрагенты = Справочник.Контрагенты.ТекущийЭлемент;
   |ВидКонтрагента = Справочник.Контрагенты.ВидКонтрагентаОт;
   |ОтсрочкаПлатежа = Справочник.Контрагенты.Отсрочка;
   |"
    ;
   ТекстЗапроса=ТекстЗапроса+"
   |Группировка ВидКонтрагента без групп;  
   |Группировка Контрагенты без групп;  
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;    
   Сч62_1   = СчетПоКоду("62.1");
   Сч90_1_1 = СчетПоКоду("90.1.1");
   БухИт62_1 = СоздатьОбъект("БухгалтерскиеИтоги");
   БухИт62_1.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);  
   БухИт62_2 = СоздатьОбъект("БухгалтерскиеИтоги");
   БухИт62_2.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);  
//    БухИт62_1.ПериодД(Дата1,Дата2);
   БухИт62_1.ВыполнитьЗапрос(Дата1,Дата2,Сч62_1);
   //************************************************************
   
   сч=0;
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Таб.ВывестиСекцию("Шапка");
   Пока Запрос.Группировка("ВидКонтрагента")=1 Цикл
       Таб.ВывестиСекцию("Группа");  
       Таб.ВывестиСекцию("Шапка1");
       Пока Запрос.Группировка("Контрагенты")=1 Цикл  
           ДебЗадНаНачалоПериода=0;
           ОтгрузкаЗаПериод=0;
           ОплатаЗаПериод=0;
           ДебЗадНаКонецПериода=0;
           ВозвратЗаПериод=0;  
           БухИт62_1.ВыбратьСубконто(ВидыСубконто.Контрагенты);

           Если (ДебЗадНаНачалоПериода=0) и (ОтгрузкаЗаПериод=0) и (ОплатаЗаПериод=0) и (ДебЗадНаКонецПериода=0) и (ВозвратЗаПериод=0) Тогда
           Иначе          
               ДебЗадНаНачалоПериода  = БухИт62_1.СНД(Сч62_1,,,Запрос.Контрагенты);      
               ОтгрузкаЗаПериод       = БухИт62_1.ДО(Сч62_1,,,Запрос.Контрагенты);
               ОплатаЗаПериод         = БухИт62_1.КО(Сч62_1,,,Запрос.Контрагенты);  
               ДебЗадНаКонецПериода   = БухИт62_1.СКД(Сч62_1,,,Запрос.Контрагенты);
               ВозвратЗаПериод        = БухИт62_1.ОБ();      
               Сч=Сч+1;
               Таб.ВывестиСекцию("Строка");  
           КонецЕсли;
       КонецЦикла;  
   КонецЦикла;
2 1Сергей
 
12.09.12
08:02
простейший запрос. что там тупить?
3 Erhov_egor
 
12.09.12
08:06
ВозвратЗаПериод        = БухИт62_1.ОБ();
вот через ОБ указываю эти оба счета но он же даст общий оборот а мне нужно по контрагенту,где надо субконто это задать?
4 1Сергей
 
12.09.12
08:07
ПолучитьСубконто(<?>,,)
Синтаксис:
ПолучитьСубконто(<Индекс>,<Номер>,<Значение>)
Назначение:
Получить из выборки следующее субконто. Выборка должна быть предварительно открыта при помощи метода ''ВыбратьСубконто''.
Возвращает 1 - следующее субконто выбрано успешно; 0 - следующе субконто не выбрано (отсутствует).
Параметры:
<Индекс> - число: порядковый номер вызова метода ''ИспользоватьСубконто''.
<Номер> - число - номер выборки. Необязательный параметр.
<Значение> - значение субконто, на которое нужно спозиционироваться.
5 Erhov_egor
 
12.09.12
09:03
а как тогда потом оборот с 91.1.1 увидеть?
   БухИт62_1.ВыполнитьЗапрос(Дата1,Дата2,Сч62_1);
           БухИт62_1.ВыбратьСубконто(ВидыСубконто.Контрагенты);
           Пока БухИт62_1.ПолучитьСубконто(ВидыСубконто.Контрагенты,,Запрос.Контрагенты)=1 Цикл
               ВозвратЗаПериод        = БухИт62_1.ОБ();      
               Прервать;
           КонецЦикла;
6 Прохожий
 
12.09.12
09:04
Ещё один...
7 Erhov_egor
 
12.09.12
09:04
Об не катит, пишет много параметров передаю, или мало
8 Erhov_egor
 
12.09.12
09:08
ну так что думаете?
9 chief accountant
 
12.09.12
10:27
(8) Сабж в топку, кури типовые
10 Erhov_egor
 
12.09.12
10:40
ты мне подскажи как получить обороты между счетами по субконто одному
11 chief accountant
 
12.09.12
11:01
(10) Для этого есть типовой отчет "Анализ счета по субконто"
12 Classic
 
12.09.12
11:06
Кури КорДО, КорКО
13 chief accountant
 
12.09.12
11:10
(12) нафига Кор?
14 Classic
 
12.09.12
11:12
(13)
А почему не Кор? Ему ж обороты между счетами нужны. Вот пусть выбирает корсчета и получает коробороты
15 BlackSeaCat
 
12.09.12
11:17
(8) Лично я вот думаю: ты Сч90 объявит объявил, а дальше хоть где-то использовал? Как 1С должна догадаться, что тебе нужны обороты именно с этим счетом?

И даже не с этим, а с 91-м. :-P
16 chief accountant
 
12.09.12
11:22
(14) Если в запрос воткнуть КорСчет, то нафига получать КорОбороты?
17 Erhov_egor
 
12.09.12
11:50
(15)да через ОБ хотел БухИт62_1.Об(Сч62_1,Сч91_1_1)
18 Erhov_egor
 
12.09.12
11:52
Я в запросе перебираю справочник контрагенты, и хочу получить сумму возврата товаров за период, как по субконто получить, в 62.1 субконто1-контрагенты
19 Erhov_egor
 
12.09.12
11:54
между счетами я то могу найти обороты на только по всем контрагентам, а в отдельности не могу
20 BlackSeaCat
 
12.09.12
11:57
(17) Запомни на будущее: компьютер исполняет тот код, который ты НАПИСАЛ, а не тот, который ХОТЕЛ написать.

См. (16), кури СП - у тебя в коде вообще ахинея полная, лениво даже разбираться.
21 Erhov_egor
 
12.09.12
11:57
Пример хоть киньте а я допилю
22 BlackSeaCat
 
12.09.12
12:01
А номер Яндекс-кошелька не кинуть?
23 Erhov_egor
 
12.09.12
12:03
Тебе помочь трудно?если трудно то можешь не писать тут
24 BlackSeaCat
 
12.09.12
12:10
Пиши сам, я подаю только по пятницам. А лодырям и вовсе стараюсь не помогать, нефиг.
25 chief accountant
 
12.09.12
12:13
(23) Тебе вразумительно было сказано в (11) - есть типовой отчет
Независимо от того, куда вы едете — это в гору и против ветра!