Форум программистов, компьютерный форум, киберфорум
Войти
Регистрация
Восстановить пароль
Другие темы раздела
1С Отбор в журнале документов 8.2 https://www.cyberforum.ru/ 1c/ thread436443.html
Добрый вечер! Есть документы (Приходная, Расходная), в запросе (через объединение) выбираются как приходные, так и расходные по заданному условию. результат запроса массив Ссылок: Массив = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"). Вопрос: как программно в форме списка журнала документов отобразить только те документы, которые находятся в Массиве (которые отобрались в запросе)?
1С Код товара с нулями
Делаю выгрузку номенклатуры, код в базе имеет вид 24512, 00123, 00012...а выгрузка получается без нулей, 123,12. Как добавить эти нули?!
1С Начисление ЗП с КТУ в конфигурации УНФ День добрый участникам форума. Помогите справиться с задачей. Работаю в конфигурации УНФ 1.3.2.5. Появилась задача начисления ЗП исполнителей за выполненную работу с использованием КТУ. Не могу написать запрос для описания видов начислений-удержаний чтобы рассчитывалась з/п. вот наряд-заказ http://ifolder.ru/control/?file_id=28319725&code=c1ff3a8420ea7a68cb6c597b409d*4739 Подскажите формулу... https://www.cyberforum.ru/ 1c/ thread435686.html 1С Отчет в 1с 7.7 https://www.cyberforum.ru/ 1c/ thread435447.html
в базе есть документы "инвентаризацияТМЦ" сделанных по группам товаров нужно получить отчет с указанием группы товаров имени документа и от какого числа, никак не могу запрос подходящий составить. требуется помощь Добавлено через 13 минут вообще возможно такое? Добавлено через 3 часа 17 минут ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбНачПериода по ВыбКонПериода;
1С Не выполняется обновление базы 1С:Бухгалтерия 8.2
Доброго времени суток! При переходе на 1С:Бухгалтерия государственного учреждения 8 не выполняется обновление базы с 1.0.6.3 на 1.0.7.2. 1. Протестировала базу в 1С:Бухгалтерия 7.7 :у меня там только операции-остатки на 31.12.2011 и справочники). 2. С помощью внешней обработки выгрузила в XML.(скачала стандартное решение с http://users.v8.1c.ru/) 3. Создала новую базу из шаблона. 4....
1С Использование платформы 1с Приветствую всех Форумчан, Я здесь новичок., да и в программировании не силен. Сразу приношу свои извенения если мои вопросы будут нелепы или по мнению Зубров детскими...Но есть задумка, которую очень хочеться реализовать и хочеться понять утопия это или все же мечта реальна? Так вот вопрос: Можно ли используя платформу 1с (да простят меня правообладатели) или нечто подобное, использовать для... https://www.cyberforum.ru/ 1c/ thread435232.html
1С Гранула ЕНВД https://www.cyberforum.ru/ 1c/ thread435055.html
Подскажите где можно взять ломаную "Гранула ЕНВД" для 1С 7.7 штрих-м кассир и как вообще её устанавливать.
Скрыть строки в подчиненном справочнике 1С
Как сделать, чтоб при выборе значений из подчиненного справочника, не все строки отображались? _ Из задания - Типов цен номенклатуры может быть несколько (например Закупочная, Розничная, Оптовая т.п. У типа цены должен быть признак: это тип цены «закупка» или тип цены «продажа». В документе «Приходная накладная» пользователь может выбрать только тип цен, у которого установлен признак...
1С Простое условие чтобы не редактировать поля уже существующей записи https://www.cyberforum.ru/ 1c/ thread434901.html
Доброго времени суток всем. Сразу извиняюсь за, возможно, ламерские вопросы, знакомство с 1С у меня только началось. Необходимо загрузить номенклотуру в справочник 1С. Первичную загрузку я сделаю, это не проблема. Не совсем устраивает этот способ, если необходимо обновить эти данные. Вот, скажем, расширили поставщики свой номенклотурный список. Действуя средствами, рекомендованными здесь:...
1С Добавить печатную форму 1С v8 https://www.cyberforum.ru/ 1c/ thread434789.html
Необходимо Документы - Ведомость в кассу добавить печатную форму 0504403. Зашел в конфигуратор - Документы - Ведомость в кассу - Макеты. Путем копирования с другого документа добавил макет нужной формы. Сохранил конфигурацию. Далее захожу в 1С Предприятие и данной формы для печати нет в списке. Что я не доделал?
Автозаполнение 1С
Доброго всем времени суток. Подскажите вот пытаюсь по немногу познать 1С8.2., Есть форма справочника, на ней 2 поля и булево (поля Наименование и НаименованиеПолучателя, булево - ПолучательОнЖе) Процедура СформироватьПолучательКакПлательщик() Если ПолучательОнЖе= Ложь Тогда НаименованиеПолучателя = Наименование; КонецЕсли; КонецПроцедуры
1С Написать 2 обработки https://www.cyberforum.ru/ 1c/ thread434587.html
Помогите с написание обработок, 1С 8.1 1. Написать обработку, которая выводит иерархический список всех контрагентов из справочника "Контрагенты" и контактных лиц. 2. Написать обработку, которая запрашивает у пользователя номер документа "Поступление товаров", цены и сумму товаров табличной части "Товары" увеличивает на 10%. Хотя бы примерный текст кода или что-то.
porter1841
0

Журнал-ордер по сч.60 его формирование - 1С - Ответ 2432820

27.01.2012, 17:12. Показов 3351. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Проблема в следующем.
Формируется ж/о по сч.60, в нем отображаются контрагенты и операции с ними по счетам за определенный период, но туда почему то попали и те с которыми и не проводилось никаких операций . Кто сможет помочь в редактировании кода. Вот исходный код журнала::
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
Перем ИтВал,плп; 
 
Процедура Сформировать_Колонки_Вал(Ит, Таб, Стр,Вал,ИтВал,Суб1,Суб2) 
        Суб1.НайтиЭлемент(Ит.Субконто(1));
        С1=Суб1.ТекущийЭлемент();
        Суб2.НайтиЭлемент(Ит.Субконто(2)); 
        С2=Суб2.ТекущийЭлемент();
        ИтВал.ИспользоватьСубконто(ВидыСубконто.Контрагенты,С1,1);
        ИтВал.ИспользоватьСубконто(ВидыСубконто.Основание,С2,1);
        ИтВал.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60.2",,Вал,3,,3);
     ИтВалКД=ИтВал.СКД(2);
     ИтВалКК=ИтВал.СКК(2);  
     ИтВалДО=ИтВал.ДО(2);
     ИтВалКО=ИтВал.КО(2);
     Если ИтВал.ВыбратьВалюты()=1 Тогда
        Таб.ВывестиСекцию(Стр+"|Начало"); 
     Иначе  
        Возврат;
     КонецЕсли;
    Ит.ВыбратьКорСчета(1, 1);
    Пока Ит.ПолучитьКорСчет() = 1 Цикл  
        Если Ит.КорСчет.ЭтоГруппа()=0 Тогда
        ИтВал.ИспользоватьСубконто(ВидыСубконто.Контрагенты,С1,1);
        ИтВал.ИспользоватьСубконто(ВидыСубконто.Основание,С2,1);
            ИтВал.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60",Ит.КорСчет,Вал, 3,, 3);
            Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Дт"); 
            Если (Ит.КорСчет=СчетПоКоду("51.0")) или (Ит.КорСчет=СчетПоКоду("51.1")) или (Ит.КорСчет.ПринадлежитГруппе(СчетПоКоду(52))=1) Тогда    
                Таб.ПрисоединитьСекцию(Стр+"|Выписка");
            КонецЕсли; 
        КонецЕсли;
    КонецЦикла;   
    Таб.ПрисоединитьСекцию(Стр+"|Оборот_Дт");
    Ит.ВыбратьКорСчета(1, 2);
    Пока Ит.ПолучитьКорСчет() = 1 Цикл  
        Если Ит.КорСчет.ЭтоГруппа()=0 Тогда 
        ИтВал.ИспользоватьСубконто(ВидыСубконто.Контрагенты,С1,1);
        ИтВал.ИспользоватьСубконто(ВидыСубконто.Основание,С2,1);
            ИтВал.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60",Ит.КорСчет,Вал, 3,, 3);
            Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Кт");  
        КонецЕсли;
    КонецЦикла;
    Таб.ПрисоединитьСекцию(Стр+"|Оборот_Кт");
    Таб.ПрисоединитьСекцию(Стр+"|Конец");
КонецПроцедуры                                 
 
 
 
Процедура Сформировать_Колонки(Ит, Таб, Стр)
    Таб.ВывестиСекцию(Стр+"|Начало");   
    Опер = СоздатьОбъект("Операция");
    Ит.ВыбратьКорСчета(1, 1);
    Пока Ит.ПолучитьКорСчет() = 1 Цикл  
        Если Ит.КорСчет.ЭтоГруппа()=0 Тогда
            Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Дт"); 
            Док=""; 
            Док1=""; 
            Платежка="";
            Если (Ит.КорСчет=СчетПоКоду("51.0")) или (Ит.КорСчет=СчетПоКоду("51.1")) или (Ит.КорСчет.ПринадлежитГруппе(СчетПоКоду(52))=1) Тогда    
                Опер.ИспользоватьСубконто(ВидыСубконто.Контрагенты, Ит.Субконто(1));
                Опер.ИспользоватьСубконто(ВидыСубконто.Основание, %C8т.Субконто(2));
                Опер.ВыбратьОперацииСПроводками(ВыбНачПериода, ВыбКонПериода, Ит.Счет, Ит.КорСчет, 3, "");
                Пока Опер.ПолучитьПроводку() = 1 Цикл
                    Док=Опер.Документ.ТекущийДокумент(); 
                    Если Док.Вид()="Выписка" Тогда
                    Док1="Вып.№"+СокрЛП(Опер.Документ.НомерДок)+" от "+Опер.Документ.ДатаДок; 
                    ПлП.НайтиДокумент(Док);
                    ПлП.ВыбратьСтроки();
                    Пока ПлП.ПолучитьСтроку()=1 Цикл
                        Если (Ит.Субконто(1)=ПлП.Субконто1) и (Ит.Субконто(2)=ПлП.Субконто2) Тогда
                        //Платежка= Лев(ПлП.НазначениеПлатежа,20);
                        Платежка= "п/п № "+ПлП.НомерПП;
                        КонецЕсли;
                    КонецЦикла;
                    КонецЕсли;
                КонецЦикла;
                Таб.ПрисоединитьСекцию(Стр+"|Выписка");
            КонецЕсли; 
            
        КонецЕсли;
    КонецЦикла;
    Таб.ПрисоединитьСекцию(Стр+"|Оборот_Дт");
 
    Ит.ВыбратьКорСчета(1, 2);
    Пока Ит.ПолучитьКорСчет() = 1 Цикл  
        Если Ит.КорСчет.ЭтоГруппа()=0 Тогда
            Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Кт");  
        КонецЕсли;
    КонецЦикла;
    Таб.ПрисоединитьСекцию(Стр+"|Оборот_Кт");
    Таб.ПрисоединитьСекцию(Стр+"|Конец");
КонецПроцедуры
 
Процедура Сформировать()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать"); 
    плп=СоздатьОбъект("Документ.Выписка");
    СВ=СоздатьОбъект("Справочник.Валюты");
    Суб1=СоздатьОбъект("Справочник.Контрагенты");
    Суб2=СоздатьОбъект("Справочник.Договора");
    Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    ИтВал = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
    Ит.ИспользоватьСубконто(ВидыСубконто.Основание,, 1);
    Ит.ВключатьСубсчета(, 1);
    Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60",,, 3,, 3);     
    
    ИтБар = СоздатьОбъект("БухгалтерскиеИтоги");
    ИтБар.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
    ИтБар.ИспользоватьСубконто(ВидыСубконто.Основание,, 1);
    ИтБар.ВключатьСубсчета(, 1);
    ИтБар.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "60",,, 3,, 3); 
    КолПБ=0;
    ИтБар.ВыбратьСубконто(ВидыСубконто.Контрагенты);                   
    Пока ИтБар.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл 
        КолПБ=КолПБ+1;
    КонецЦикла;
    
    
    Таб.ВывестиСекцию("Заголовок");
    Сформировать_Колонки(Ит, Таб, "Шапка"); 
    
    Таб.Опции(1, 1, 7, 3,,);
    Таб.ПовторятьПриПечатиСтроки(3,4);
    Таб.ПараметрыСтраницы(2,100,,5,3,3,3,5,0,,,);  
    
    //прогресс-бар
    и1=0;
    и2=0;
    Форма.Картина.Видимость(1);
    Форма.Процент.Видимость(1); 
    НомерПБ=0;
    //конец бара
    
    Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);
    Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
        //прогресс-бар
        НомерПБ=НомерПБ+1;
        Кратность=Цел(КолПБ/26);
        и1=и1+1;
        Форма.процент.Заголовок("Выполнено "+Окр(100/КолПБ*НомерПБ,0,1)+"%");
        Если и1=Кратность Тогда  
            и2=и2+1;
            Форма.ПрогрессПолн.Заголовок(СтрЗаменить(Формат("","С"+и2)," ","g")); 
            и1=0;                  
        КонецЕсли;
        //конецбара
        
        Сформировать_Колонки(Ит, Таб, "Субконто1");
        Ит.ВыбратьСубконто(ВидыСубконто.Основание);
        Пока Ит.ПолучитьСубконто(ВидыСубконто.Основание) = 1 Цикл   
            Сформировать_Колонки(Ит, Таб, "Субконто2"); 
            СВ.ВыбратьЭлементы();
            Пока СВ.ПолучитьЭлемент()=1 Цикл    
            Сформировать_Колонки_Вал(Ит, Таб, "Валютная",СВ.ТекущийЭлемент(),ИтВал,Суб1,Суб2);
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;   
        //прогресс-бар
    Форма.ПрогрессПолн.Заголовок("");
    Форма.Картина.Видимость(0);
    Форма.Процент.Видимость(0);   
        //конец бара
    Сформировать_Колонки(Ит, Таб, "Подвал"); 
    Таб.ТолькоПросмотр(1);  
    Таб.Показать("Журнал-ордер 60 счета","ЖО60_р"+ДатаМесяц(ВыбНачПериода),1);
КонецПроцедуры
 
Процедура ПриОткрытии()
    ВыбНачПериода = НачалоПериодаБИ();
    ВыбКонПериода = КонецПериодаБИ();      
        //прогресс-бар
    Форма.Картина.Видимость(0);
    Форма.Процент.Видимость(0);   
    //конец бара
КонецПроцедуры
Если кто сможет подскажите что тут можно придумать еще чтобы не было пустых записей с неиспользуемыми за определенный период контрагентами.

Вернуться к обсуждению:
Журнал-ордер по сч.60 его формирование 1С
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2012, 17:12
Готовые ответы и решения:

Журнал-Ордер №2
Кто может поделиться очетом Журнал-Ордер №2 для Бухг. учет для Украини ? мило ugera@mail.ru

Отчет "Журнал-Ордер" (запрос)
При выполнении запроса Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет,,, 3, ВидПериода) в результат попадают...

Журнал ордер (операции без сумм)
Здраствуйте! Есть такая проблема, очень требует решения.. В отчет журнал ордер никак не хотят...

Классный журнал, его аналог
Доброго дня, уважаемые программисты! Я только начал учится..и возникла данная неполадка. Мне дали...

2
27.01.2012, 17:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2012, 17:12
Помогаю со студенческими работами здесь

Журнал регистрации, как получить ссылки на объекты или еще один его рекивизит
Интересует вопрос: можно ли из журнала регистрации 1с 8.2 вытащить ссылки или реквизит на объекты?...

Мемориальный ордер №6
День добрый. Вопрос такой: есть Документ поступление ТМЗ. В нём бух указывает Услугу и сумму. Потом...

MSDN журнал. Подписка на бумажный журнал
Как подписаться на бумажный журнал или его в бумажном варианте по РФ не подписывают уже?

Приходной кассовый ордер
всем привет.помогите решить проблему.заключается в следующем:при распечатки ордера растояние между...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru