/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 413
от 29.01.2007, 15:35

Вопрос № 72.275

Здравствуйте эксперты! Такой вопрос по 1С 77 Бух. Нужно в операциях поменять второе субконто. Перепроводить документ нельзя. Написал обработку. Первую проводку меняет и записывает, а на вторую ругается "Нельзя изменять записанные проводки!". И в операции задваивает проводки, кидает через знак "/". Приложение: Процедура Сформировать() Если Док.Выбран() = 0 Тогда СтатусВозврата(0); КонецЕсли; Опер = СоздатьОбъект("Операция"); Если Опер.НайтиОперацию(Док) = 1 Тогда Опер.ВыбратьПроводки(); Пока Опер.ПолучитьПроводку() = 1 Цикл Если Опер.Дебет.Счет = (СчетПоКоду("ТОВ.РИК")) Тогда Сообщить(Опер.НомерПроводки()); Опер.Дебет.Субконто(2,Перечисление.Отделы.Отдел_1); Опер.ЗаписатьПроводки(); КонецЕсли; КонецЦикла; Опер.Записать(); КонецЕсли; КонецПроцедуры

Отправлен: 23.01.2007, 16:16 Вопрос задал: Гайдашевский Александр Иванович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Elric Здравствуйте, Гайдашевский Александр Иванович! Метод ЗаписатьПроводки применим только в момент проведения документа, чтобы добавленные проводки повлияли на бухгалтерские итоги еще в момент проведения. Вместо строки Опер.ЗаписатьПроводки(); поставьте Опер.Записать(); либо вообще уберите эту строку. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 23.01.2007, 16:49

Вопрос № 72.288

В чем может быть причина? Предприятие розничная торговля на ЕНВД. Работаем в программе Бухгалтерия 8,0. Все документы по расчету заработной платы, как написано, в руководстве занесла. Проводки по начислению заработной платы формируются и по страхованию от НС. А по ЕСН - ни в какую. Но что интересно, в декларации по ПФР суммы отчислений берутся правильно. По какой причине могут не формироваться бухгалтерские проводки по ЕСН (взносы в ПФР)?

Отправлен: 23.01.2007, 17:44 Вопрос задал: Афанасьева Ю (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Махнев Даниил Анатольевич Здравствуйте, Афанасьева Ю! Проверьте как занесены "Начисления организации", также проверьте "Способы отражения зарплаты в регламентированном учете"... должно работать...? --------- Windows работает ?! Читайте внимательно инструкцию...

Ответ отправил: Махнев Даниил Анатольевич (статус: 2-ой класс) Ответ отправлен: 23.01.2007, 18:20 Оценка за ответ: 3 Комментарий оценки: Должнл работать - это неподходящий ответ

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Афанасьева Ю! С восьмеркой я дела не имел, но может мой ответ по семерке Вам поможет... Дело в том, что Бухгалтерии на платформе версии 7.7 налоговые проводки не формируются, пока не создан регламентный документ "Закрытие месяца". Если по такому же принципу построен учет в 8.0, то должно помочь.

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 7-ой класс) Ответ отправлен: 24.01.2007, 08:31

Вопрос № 72.331

Здравствуйте! Помогите пожалуйста, мне нужно сделать так чтобы при выборе склада, в отчете происходила сортировка по датам и группировать по месяцу если выбран флаг ПоДате=1, если флаг ПОДате=0 тогда сортировать материал по алфавиту, если выбран флаг Склад=1 (по всем складам ) тогда группировать по складу, я создаю Таблицу значений(см.прог.код) и записываю туда результаты выполнения запроса и сортирую их, но в итоге получается что даты неотсортированы, в чем ошибка и как сгруппировать по месяцу и по складу??? Приложение: Процедура Сформировать_Колонки(Ит,Таб,Стр) Таб.ВывестиСекцию(Стр+”|Начало”); Ит.ВыбратьПериоды(1); Таб.ПрисоединитьСекцию(Стр+ "|Период"); Таб.ПрисоединитьСекцию(Стр+ "|Итог"); КонецПроцедуры Процедура Сформировать() Тз=СоздатьОбъект(“Таблицазначений”); Тз.НоваяКолонка(“Товар”); Тз.НоваяКолонка(“Дата”); Тз.НоваяКолонка(“Количество”); Тз.НоваяКолонка(“Остаток”); Тз.НоваяКолонка(“Сумма”); Тз.НоваяКолонка(“ОстатокСумма”); Тз.НоваяКолонка(“Счет”); Тз.НоваяКолонка(“Склад”); Таб=СоздатьОбъект(“Таблица”); Таб.ИсходнаяТаблица(“Сформировать”); Ит=СоздатьОбъект(БухгалтерскиеИтоги); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, ВыбМестаХранения, 2); Ит. ВключатьСубсчета(1); Ит.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода,”10.1,10.3” , , ,”месяц”, “СК”); Таб.вывестиСекцию(“Заголовок”); Сформировать_Колонки(Ит,Таб, "Шапка"); Таб.Опции(0,0, Таб.ВысотаТаблицы(),0); Если ПоДате=0 тогда Сформировать_Колонки(Ит,Таб, "Счет"); Конецесли; Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1)=1 Цикл БИт=СоздатьОбъект(БухгалтерскиеИтоги); БИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения,ВыбМестаХранения,2); БИт.ИспользоватьСубконто(ВидыСубконто.материалы,Ит.Субконто(1), 2); ДатаПрихода=””; Если (БезПрихода=1)и(Ит.КО()=0) и (Ит.ДО()>0) тогда Бит. Выполнитьзапрос(ВыбНач, выбКон, Ит.Счет, “10, 60, 71”, , , “проводка”, “СК” ); Бит.ВыбратьПериоды(,1); Пока Бит.ПолучитьПериод()=1 Цикл ДатаПрихода=Бит.НачДата; КонецЦикла; Если ПустоеЗначение(датаПрихода)=1 тогда ТЗ.НоваяСтрока(); ТЗ.Товар=Ит.Субконто(1); ТЗ.Остаток=Ит.СКД(3); ТЗ.ОстатокСумма=Ит.СКД(); ТЗ.Дата=ДатаПрихода; ТЗ.Счет=Ит.Счет; КонецЕсли; Если (ПоДате=1) тогда Тз.Сортировать(“-Дата ”); Тз.ВыбратьСтроки(); Месяц=” ”; Пока ТЗ.ПолучитьСтроку()=1 Цикл Если Месяц=ДатаМесяц(Тз.Дата) тогда Мес=ДатаМесяц(Тз.ДатаПрихода); Сформировать_Колонки(Ит,Таб, "Субконто2"); Иначе Сформировать_Колонки(Ит,Таб, "Месяц"); Сформировать_Колонки(Ит,Таб, "Субконто2"); конецЕсли; конеццикла; конецЕсли;

Отправлен: 23.01.2007, 22:47 Вопрос задал: Fifina (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Elric Здравствуйте, Fifina! Во-первых, строки Пока Бит.ПолучитьПериод()=1 Цикл ДатаПрихода=Бит.НачДата; КонецЦикла; говорят о том, что в ДатаПрихода запишется только последняя дата, все остальные будут пропущены. Во-вторых, у Вас данные заносятся в ТЗ только если выполняется условие Если ПустоеЗначение(датаПрихода)=1 тогда Т.е. если ДатаПрихода неопределена. Т.е. ваша таблица значений ТЗ скорее всего пуста. А в печатную форму у Вас выводятся данные не из ТЗ, а из бухгалтерских итогов Ит. Это прописано в процедуре Сформировать_Колонки(Ит,Таб,Стр). Чтобы группировать по складам и месяцам придется полностью перестроить запрос и построение ТЗ и печатной формы. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 24.01.2007, 00:22

Вопрос № 72.377

Уважаемые эксперты, не подскажете, в чем проблема: стали восстанавливать последовательность документов, "Ввод в эксплуатацию" не проводится, пишет - "недостаточно средств на счете 08.4". Причем, если открыть этот документ и провести вручную, он проводится без ошибок. Помогло только отключение проводок этого документа, восстановление последовательности до даты этого документа (включительно), проведение документа. Теперь восстановление последовательности прошло нормально. Та же проблема для всех документов "Ввод в эксплуатацию" за этот день. Документы введены 1 числом месяца. В чем тонкость момента? Приложение: 1С:Предприятие 7.7 Сетевая версия (7.70.025) Производство+Услуги+Бухгалтерия редакция 2.8 (7.70.297)

Отправлен: 24.01.2007, 09:43 Вопрос задал: Михеев Александр Владимирович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Elric Здравствуйте, Михеев Александр Владимирович! Наверняка сложно сказать. Судя по всему, у Вас произошел сбой в базе. Следует пересчитать бухгалтерские итоги. Причем стандартный пересчет не всегда помогает -- могу предложить следующее. Удалить файлы 1sbcttl.dbf, 1sbcttl.cdx, 1sbcttlc.dbf, 1sbcttlc.cdx из каталога базы данных (можно для надежности их просто куда-нибудь переместить), запустить 1С в режиме Предприятие монопольно (эти файлы восстановятся, но будут пустыми) после чего пересчитать бухгалтерские итоги. Этот метод много раз срабатывал. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 24.01.2007, 11:47

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Михеев Александр Владимирович! Попробуйте открыть и закрыть документ, и сразу же после этого восстанавливать последовательность. Если заработает, то проверьте, не заполняются ли глобальные переменные в процедуре ПриОткрытии(),ПриЗаписи() или в конце инициализации модуля формы. При восстановлении последовательности эти процедуры естесственно, не выполняются.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 24.01.2007, 13:04

Вопрос № 72.405

Необходимо сформировать выгрузку в xml-файл. Код: ================================ XMLАнализатор = СоздатьОбъект("AddIn.XMLParser"); XMLДокумент = XMLАнализатор.СоздатьПоследовательноЗАписываемыйДокумент(); XMLДокумент.ИмяФайла = ПутьКФайлу; ... Заголовок = XMLДокумент.СоздатьПодчиненныйЭлемент("root"); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Ошибка: Поле агрегатного объекта не обнаружено (СоздатьПодчиненыйЭлемент) ================================ Т.к. я новичок, то видимо чего-то не учла. Помогите, пожалуйста. Заранее благодарна

Отправлен: 24.01.2007, 12:29 Вопрос задал: L. Vlasenko (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Tek Здравствуйте, L. Vlasenko! Если вы создали последовательнозаписываемыйдокумент, то используйте не СоздатьПодчиненныйЭлемент() а следующие функции: XMLДокумент.ОткрытьЭлемент("Элемент"); .................................................................. XMLДокумент.ЗакрытьЭлемент(); --------- WinApi - жутко неудобные костыли, MFC и VCL - немногим полезнее, но ничего лучше еще не создано (C)Почти Уинстон Черчилль :)

Ответ отправил: Tek (статус: 8-ой класс) Ответ отправлен: 24.01.2007, 13:12

Вопрос № 72.426

Здравствуйте эксперты! Подскажите пожалуйста! В накладной ПоступлениеТовара организовала обработку подбора из двух справочников (Спр.Номенклатура и Спр.Тара). Правда для этого пришлось в спр.Тара занести дополнительные реквизиты (ненужные). Но как тогда описать условие в обработке проведения (см.приложение). Табличная часть документа содержит реквизиты: Товар, Количество, Цена, Сумма и др. Приложение: // Если Товар="Справочник.Номенклатура" Тогда Операция.НоваяПроводка(); Операция.СодержаниеПроводки = "Оприходован товар"; Операция.НомерЖурнала = "ТВ"; Операция.Дебет.Счет = СчетПоКоду("41.1"); Операция.Дебет.Номенклатура = Товар; Операция.Дебет.МестаХранения = Склад; Операция.Кредит.Счет = СчетПоКоду("60.1"); Операция.Кредит.Контрагенты = Контрагент; Операция.Количество = Количество; Операция.Сумма = СуммаБезНДС; //КонецЕсли; //Если Товар="Справочник.Тара" Тогда Операция.НоваяПроводка(); Операция.СодержаниеПроводки = "Оприходована тара"; Операция.НомерЖурнала = "ТВ"; Операция.Дебет.Счет = СчетПоКоду("10.4"); Операция.Дебет.Тара = Товар; Операция.Дебет.МестаХранения = Склад; Операция.Кредит.Счет = СчетПоКоду("60.1"); Операция.Кредит.Контрагенты = Контрагент; Операция.Количество = Количество; //КонецЕсли;

Отправлен: 24.01.2007, 14:25 Вопрос задала: Darina (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gl0betrotter Здравствуйте, Darina! Думаю, можно было бы сделать все проще: 1. Создаем перечисление "ВидыТоваров", добавляем туда значение "Товар", "Тара", "Услуга" и т.д. 2. В справочнике "Номенклатура" добавляем рекизит с названием "ВидТовара" и типом значения - вновьсозданное перечисление "ВидыТоваров". 3. При проведении документа анализируем номенклатурную единицу из табличной части на значение реквизита "ВидТовара". Удачи!

Ответ отправил: Gl0betrotter (статус: Студент) Ответ отправлен: 24.01.2007, 14:37 Оценка за ответ: 5 Комментарий оценки: Спасибо! Попробую и Ваш вариант, а потом решу как удобнее.

Отвечает: Tek Здравствуйте, Darina! В вашем случае можно использовать метод объекта "справочник" ПредставлениеВида() Если Нрег(Товар.ПредставлениеВида())="номенклатура" Тогда Иначе Если Нрег(Товар.ПредставлениеВида())="тара" Тогда КонецЕсли --------- WinApi - жутко неудобные костыли, MFC и VCL - немногим полезнее, но ничего лучше еще не создано (C)Почти Уинстон Черчилль :)

Ответ отправил: Tek (статус: 8-ой класс) Ответ отправлен: 24.01.2007, 14:53 Оценка за ответ: 5 Комментарий оценки: Спасибо! Помогло!

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.43 beta от 26.01.2007