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

Выпуск № 745
от 02.03.2008, 20:05

Вопрос № 124.838

Здравствуйте, уважаемые эксперты! Вопрос по 1С:Бухгалтерии 7.7 и модификации плана счетов (Украина). Счет 374 "Расчеты по претензиям", активный, субконто1 Контрагенты нужно разделить на 2 субсчета: [code]37.4.1 Расчеты по претензиям (судебные иски по коммунальным платежам)[/code] и [code]37.4.2 Расчеты по претензиям (квартплата)[/code]. Эти два субсчета велись вручную, а в 1С:Бухгалтерии их вели одной суммой на счете 37.4, теперь этот учет нужно полностью перевести в 1С:Бухгалтерию. Пытался решить "в лоб" и столкнулся с таким: При добавлении субсчета 37.4.1 в режиме Предприятия система ругается, что для этого счета в конфигураторе не установлены субсчета и их нельзя ввести. Это исправил в конфигураторе. Но теперь возникает новая проблема: когда добавляю субсчета 37.4.1 и 37.4.2 с соответствующей аналитикой, счет 37.4 становится группой и у него исчезает значение субконто, и появляется счет 37.4.0. Объясните, пожалуйста, такие моменты: - что делать с автоматически созданным счетом 37.4.0, какое его назначение; - как быть с движениями и остатками счета 37.4 (он преобразуется в группу) - как это повлияет на отчетность за прошлые периоды, нужно лт изменять существующие отчеты (например, ОСВ, карточка счёт и т.д.); - как и где настроить проводки в соответствии с изменениями в плане счетов, т.к. единственную ссылку на этот счет я нашёл только в обработке первого запуска, где прописываются полные наименования счетам на украинском языке. Если что упустил, уточню в мини-форуме или в личке. Спасибо за внимание. Владимир.

Отправлен: 25.02.2008, 23:08 Вопрос задал: Владимир Лазурко [Vladal] (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Dmitry Stashenko Здравствуйте, Владимир Лазурко [Vladal]! Счет 37.4.0 как раз и создается ради того, что бы сохранить движения по счету 37.4. Потому как последний становится группой, все уже существующие по нему движения будут теперь отражаться на 37.4.0. Ну а по поводу настройки проводок, как минимум, надо смотреть модули документов, в которых формируются проводки по этому счету. Спросите у вашей бухгалтерии, какие документы должны формировать движения по этим счетам.

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 26.02.2008, 10:10 Оценка за ответ: 5

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Владимир Лазурко [Vladal]! - что делать с автоматически созданным счетом 37.4.0, какое его назначение; переименовать в 37,4,1 - как быть с движениями и остатками счета 37.4 (он преобразуется в группу) - как это повлияет на отчетность за прошлые периоды, Все обороты на прошлых периодах станут на счету 37,4,0 или после переименования на 37,4,1 нужно лт изменять существующие отчеты (например, ОСВ, карточка счёт и т.д.); нет - как и где настроить проводки в соответствии с изменениями в плане счетов, т.к. единственную ссылку на этот счет я нашёл только в обработке первого запуска, где прописываются полные наименования счетам на украинском языке. нигде. Во всех документах этот счет выбирается вручную. Во всех документах старый счет станут на счету 37,4,0 или после переименования на 37,4,1 Важно: нельзя делать такие изменения в тренировочной базе и потом заружать обновленную конфигурацию (это ошибка платформы). Разрушается база, старые обороты зависают на группе. Нужно сделать резервную копию базы и в основной базе сделать изменения.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 29.02.2008, 10:49 Оценка за ответ: 5

Вопрос № 124.859

Добрый день, уважаемые специалисты! Как в табличной части формы отображать название "Поставщика" при выбранной цене....т.е. мы выбираем цену из списка и при выбранной цене надо выводить в соседнее поле название постащика! Приложение: ИначеЕсли ЭлементДиалога="СПЦТОвара" Тогда ФлагСтандОбр = 0; спрПартии=СоздатьОбъект("Справочник.Партии"); спрПартии.ИспользоватьВладельца(Номенклатура); спрПартии.ОбратныйПорядок(1); спрПартии.ВыбратьЭлементы(); СчетчикЦикла = 1; списцЦен=СоздатьОбъект("СписокЗначений"); Пока спрПартии.ПолучитьЭлемент()=1 Цикл Если СчетчикЦикла=4 Тогда Прервать; КонецЕсли; списцЦен.ДобавитьЗначение(спрПартии.ЗакупочнаяЦена,""+спрПартии.ЗакупочнаяЦена+" Приход от ("+спрПартии.ПриходныйДокумент.ДатаДок+")"); СчетчикЦикла=СчетчикЦикла+1; КонецЦикла; ВыбЦена=0; Если списцЦен.ВыбратьЗначение(выбЦена,,,,1)=1 Тогда СПЦТОвара=ВыбЦена; ВыбЦена=((ВыбЦена*5)/100)+выбЦена; Цена=ВыбЦена; КонецЕсли; Если Количество <> 0 Тогда Сумма=Цена*Количество; КонецЕсли; КонецЕсли;

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

Отвечает: Vlad Skorochod Здравствуйте, Дундев Алексей Юрьевич! Воспользуйтесь не списком значений, а таблицей значений. В которой одну из колонок заполняйте значением поставщика.

Ответ отправил: Vlad Skorochod (статус: 9-ый класс) Ответ отправлен: 26.02.2008, 09:28 Оценка за ответ: 4 Комментарий оценки: спасибо

Отвечает: Ушаков Михаил Андреевич Здравствуйте, Дундев Алексей Юрьевич! Попробуйте вместо списка значений создавать табицу значений. Первая колонка - цена, вторая - поставщик. Перед выбором выгружайте колонку "Цена" в список для отрабоки метода ВыбратьЗначение. Полученное из ТЗ значениеПоставщика устанавливаете в нужную колонку соответствующей строки. На первый взгляд так. То есть: Приложение: спсЦены = СоздатьОбъект("СписокЗначений"); тзЦен=СоздатьОбъект("ТаблицаЗначений"); тзЦен.НоваяКолонка("Цена"); тзЦен.НоваяКолонка("Поставщик"); ... ФлагСтандОбр = 0; тзЦен.УдалитьСтроки(); спсЦены.УдалитьВсе(); спрПартии=СоздатьОбъект("Справочник.Партии"); спрПартии.ИспользоватьВладельца(Номенклатура); спрПартии.ОбратныйПорядок(1); спрПартии.ВыбратьЭлементы(); СчетчикЦикла = 1; Пока спрПартии.ПолучитьЭлемент()=1 Цикл Если СчетчикЦикла=4 Тогда Прервать; КонецЕсли; тзЦен.НоваяСтрока(); тзЦен.Цена = спрПартии.ЗакупочнаяЦена; тзЦен.Поставщик = спрПартии.ПриходныйДокумент.Контрагент; Счетчик = Счетчик + 1; КонецЦикла; тзЦен.Выгрузить(спсЦены,,,"Цена"); ВыбЦена=0; ВыбПоз =0; Если спсЦены.ВыбратьЗначение(выбЦена,,ВыбПоз,,1)=1 Тогда СПЦТОвара=ВыбЦена; ВыбЦена=((ВыбЦена*5)/100)+выбЦена; Цена=ВыбЦена; Поставщик = тзЦен.ПолучитьЗначение(ВыбПоз,"Поставщик"); КонецЕсли; Если Количество <> 0 Тогда Сумма=Цена*Количество; КонецЕсли;

Ответ отправил: Ушаков Михаил Андреевич (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 09:44 Оценка за ответ: 4 Комментарий оценки: не совсем то...но спасибо

Вопрос № 124.863

Уважаемые Эксперты. Возник вопрос по обмену текстовой информацией с 1С (7 версия) в формате Юникод. Подскажите, каким способом можно вывести/ввести строку в Юникоде, по возможности НЕ используя внешние программы-перекодировщики?

Отправлен: 26.02.2008, 09:20 Вопрос задал: Villista (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Коровин Александр Здравствуйте, Villista! Можно написать функцию по перекодировке символов, например: Функция Перекодировка(Наим) Слово = ""; Для н=1 по СтрДлина(Наим) Цикл Буква = Сред(Наим,н,1); Если Буква = "к" Тогда Буква = "Й"; ИначеЕсли Буква = "г" Тогда Буква = "Ц"; ИначеЕсли Буква = "х" Тогда Буква = "У"; ИначеЕсли Буква = "л" Тогда . . . . КонецЕсли; Слово = Слово+Буква; КонецЦикла; Возврат Слово; КонецФункции //Перекодировка() Данная функция написана для перекодировки в KOI-8r, аналогично можно написать и для Юникод.

Ответ отправил: Коровин Александр (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 09:27 Оценка за ответ: 4 Комментарий оценки: Спасибо. Но в Юникоде символы кодируются по другому.

Отвечает: Филиппов Олег Игоревич Здравствуйте, Villista! v7 c unikodом не работает. Но можно написать функцию перекодировки.

Ответ отправил: Филиппов Олег Игоревич (статус: 1-ый класс) Ответ отправлен: 26.02.2008, 09:30 Оценка за ответ: 4 Комментарий оценки: Спасибо. Но не представляю такой функции...

Отвечает: Dmitry Stashenko Здравствуйте, Villista! Попробуй эту обработку

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 28.02.2008, 20:37 Оценка за ответ: 4 Комментарий оценки: Спасибо. Но в том то и дело, что кодировки основаные на обном байте переводятся друг в друга без проблем! Мне нужно в ЮНИКОД (причем именно в Unicode(два байта) а не UTF-8).

Вопрос № 124.887

Уважаемые эксперты, помогите, пожалуйста. Никак не могу заставить отчёт выдавать только те данные, которые задаются фильтром (выбирается в диалоге). Какой бы фильтр ни установил, в отчёт вываливаются все данные без всякой фильтрации. Укажите, пожалуйста, мою ошибку. Спасибо Приложение: Перем Таб; Перем СписокГруппировок; Перем КоличествоГруппировок; Перем Обновить; Перем ВыбЦельПлатежа; Перем ВыбТипПлатежа; Перем ВыбНаправление; Перем ВыбОснование; Процедура ВывестиГруппировку(Запрос,Ном) Далее Процедура ИзменениеПорядкаГрупп(НаправлениеСдвига) ТекСтр = Группировки.ТекущаяСтрока(); Если (НаправлениеСдвига = -1) и (ТекСтр >= 2) и (ТекСтр < Группировки.РазмерСписка()) Тогда Группировки.СдвинутьЗначение(НаправлениеСдвига, ТекСтр); ИначеЕсли (НаправлениеСдвига = 1) и (ТекСтр < Группировки.РазмерСписка() - 1) Тогда Группировки.СдвинутьЗначение(НаправлениеСдвига, ТекСтр); КонецЕсли; КонецПроцедуры // ИзменениеПорядкаГрупп() Процедура УстановитьГруппировкиЗапроса(ТекстЗапроса, ТекстЗагол) СписокГруппировок = СоздатьОбъект("СписокЗначений"); Для Сч=1 По Группировки.РазмерСписка() Цикл Если Группировки.Пометка(Сч)=1 Тогда ПредставлениеГрупп=""; ТекстГрупп = Группировки.ПолучитьЗначение(Сч,ПредставлениеГрупп); ТекстЗапроса = ТекстЗапроса + "Группировка "+ТекстГрупп+";"; ТекстЗагол = ТекстЗагол + ?(ТекстЗагол="",""," / ")+ПредставлениеГрупп; СписокГруппировок.ДобавитьЗначение(ТекстГрупп,ПредставлениеГрупп); КонецЕсли; КонецЦикла; КонецПроцедуры // УстановитьГруппировкиЗапроса() Процедура ПечатьСтроки(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка = "") Секц = Таб.ПолучитьСекцию(НазваниеСекции); Таб.ВывестиСекцию(Секц); КонецПроцедуры //ПечатьСтрокиДокумента() Процедура ПечатьСтрокиДокумента(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка = "",ТекОстК,ТекОстР) Секц = Таб.ПолучитьСекцию(НазваниеСекции); Таб.ВывестиСекцию(Секц); глОживить(1); КонецПроцедуры //ПечатьСтрокиДокумента() Процедура ВывестиГруппировку(Запрос,Ном) // НазваниеГруппировки = СписокГруппировок.ПолучитьЗначение(Ном); Если Ном <= КоличествоГруппировок Тогда НазваниеГруппировки = СписокГруппировок.ПолучитьЗначение(Ном); Если НазваниеГруппировки = "Документ" Тогда ТекОстК = Запрос.СуммаНачОст; ТекОстР = Запрос.СуммаКонОст; КонецЕсли; Пока Запрос.Группировка(Ном) = 1 Цикл Если НазваниеГруппировки = "Документ" Тогда НазваниеСекции="Документ"; ПечТекстСтроки = Запрос.ПолучитьАтрибут(НазваниеГруппировки); ТекРасшифровка = ПечТекстСтроки; ПечТекстСтроки = ?(ПустоеЗначение(ПечТекстСтроки)=1,глПредставлениеПустогоЗначения(НазваниеГруппировки),ПечТекстСтроки); ПечатьСтрокиДокумента(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка,ТекОстК,ТекОстР); Иначе НазваниеСекции="Строка"+Ном; ПечТекстСтроки = Запрос.ПолучитьАтрибут(НазваниеГруппировки); ТекРасшифровка = ПечТекстСтроки; Если ПустоеЗначение(ПечТекстСтроки) = 0 Тогда; ПечТекстСтроки = ?(ПустоеЗначение(ПечТекстСтроки)=1,глПредставлениеПустогоЗначения(НазваниеГруппировки),ПечТекстСтроки); ПечатьСтроки(Запрос,Ном,НазваниеСекции,ПечТекстСтроки,ТекРасшифровка); КонецЕсли; КонецЕсли; Если КоличествоГруппировок > Ном Тогда ВывестиГруппировку(Запрос,Ном+1); КонецЕсли; КонецЦикла; КонецЕсли КонецПроцедуры // ВывестиГруппировку() Процедура Сформировать() Перем Запрос, ТекстЗапроса; Если глПроверкаДаты(ВыбНачПериода,ВыбКонПериода)=0 Тогда Возврат; КонецЕсли; Если (ТипЗначенияСтр(Таб) <> "Таблица") ИЛИ (Обновить = 0) Тогда Таб = СоздатьОбъект("Таблица"); Иначе Таб.Очистить(); КонецЕсли; Таб.ИсходнаяТаблица( "Сформировать" ); //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбНачПериода по ВыбКонПериода; |Обрабатывать НеПомеченныеНаУдаление; |Фирма = Регистр.Финансы.Фирма; |Док = Регистр.Финансы.ТекущийДокумент; |ВыбЦельПлатежа = Регистр.Финансы.ЦельПлатежа; |ВыбТипПлатежа = Регистр.Финансы.ТипПлатежа; |ВыбНаправление = Регистр.Финансы.Направление; |ВыбОснованиеПл = Регистр.Финансы.ОснованиеПл; |Условие(ВыбЦельПлатежа = ВыбЦельПлатежа); |Условие(ВыбТипПлатежа = ВыбТипПлатежа); |Условие(ВыбНаправление = ВыбНаправление); |Условие(ВыбОснование = ВыбОснование); |Сумма = Регистр.Финансы.Сумма; |Функция СуммаНачОст = НачОст(Сумма); |Функция СуммаПриход = Приход(Сумма); |Функция СуммаРасход = Расход(Сумма); |Функция СуммаКонОст = КонОст(Сумма); |"//}}ЗАПРОС ; ПечЗаголовокСтолбца = ""; СписокСортировки = ""; УстановитьГруппировкиЗапроса(ТекстЗапроса, ПечЗаголовокСтолбца); КоличествоГруппировок = СписокГруппировок.РазмерСписка(); // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; Таб.ВывестиСекцию("Заголовок"); глОживить(1); ВывестиГруппировку(Запрос,1); Таб.Показать("Сформировать", ""); КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// // ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ // ВыбНачПериода = НачМесяца(ДобавитьМесяц(ТекущаяДата(),-1)); ВыбКонПериода = КонМесяца(ДобавитьМесяц(ТекущаяДата(),-1)); Группировки.ДобавитьЗначение("Фирма", "Фирма"); Группировки.ДобавитьЗначение("ВыбЦельПлатежа", "ЦельПлатежа"); Группировки.ДобавитьЗначение("ВыбТипПлатежа", "ТипПлатежа"); Группировки.ДобавитьЗначение("ВыбНаправление", "Направление"); Группировки.ДобавитьЗначение("ВыбОснованиеПл", "ОснованиеПл"); Группировки.ДобавитьЗначение("Документ", "Документ");

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

Отвечает: Ушаков Михаил Андреевич Здравствуйте, VladimirNick! Полагаю, что для компьютера условие Если X=X Тогда... будет выполняться всегда... В запросе внутренние переменные переименуйте (уберите приставку Выб) То есть: Приложение: ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |Период с ВыбНачПериода по ВыбКонПериода; |Обрабатывать НеПомеченныеНаУдаление; |Фирма = Регистр.Финансы.Фирма; |Док = Регистр.Финансы.ТекущийДокумент; |ЦельПлатежа = Регистр.Финансы.ЦельПлатежа; |ТипПлатежа = Регистр.Финансы.ТипПлатежа; |Направление = Регистр.Финансы.Направление; |ОснованиеПл = Регистр.Финансы.ОснованиеПл; |Условие(ЦельПлатежа = ВыбЦельПлатежа); |Условие(ТипПлатежа = ВыбТипПлатежа); |Условие(Направление = ВыбНаправление); |Условие(Основание = ВыбОснование); |Сумма = Регистр.Финансы.Сумма; |Функция СуммаНачОст = НачОст(Сумма); |Функция СуммаПриход = Приход(Сумма); |Функция СуммаРасход = Расход(Сумма); |Функция СуммаКонОст = КонОст(Сумма); |"//}}ЗАПРОС

Ответ отправил: Ушаков Михаил Андреевич (статус: 2-ой класс) Ответ отправлен: 26.02.2008, 12:17 Оценка за ответ: 5 Комментарий оценки: Спасибо. Убрал - фильтры заработали. Правда, теперь надо разобраться в выводе в таблицу. Это уж попробую сам

Отвечает: Villista Здравствуйте, VladimirNick! На сколько смог быстро разобраться, то фильтр и есть условия в запросе? |Условие(ВыбЦельПлатежа = ВыбЦельПлатежа); |Условие(ВыбТипПлатежа = ВыбТипПлатежа); |Условие(ВыбНаправление = ВыбНаправление); |Условие(ВыбОснование = ВыбОснование); А они у Вас равны сами себе! То есть переменные в запросе и поля фильтра имеют одно и то же имя! Попробуйте переименовать то или другое.

Ответ отправил: Villista (статус: 1-ый класс) Ответ отправлен: 26.02.2008, 12:55 Оценка за ответ: 5 Комментарий оценки: Спасибо. Убрал - фильтры заработали. Правда, теперь надо разобраться в выводе в таблицу. Это уж попробую сам

Вопрос № 124.940

Здравствуйте, уважаенмые Эксперты! Вопрос по 1С 7.7 Энергосбыт. Я формирую отчёт по дебиторской задолженности и вывожу его в виде таблицы(по секциям). Можно ли сделать так чтобы при формировании таблицы она сохранялась в dbf-файл? Сам dbf-файл он создаёт, но первые два столбца не выводит т.е. нумерация столбцов начинается с третьей, и выдает ошибку: "Перед выполнением операции нужно открыть базу!".Помогите пожалуйста... Приложение: Процедура РазбивкаПоБюджетам() Таб = СоздатьОбъект("Таблица"); Контр =СоздатьОбъект("Справочник.Контрагенты"); СпрБ=СоздатьОбъект("Справочник.ТипыБюджетов"); БИ = СоздатьОбъект("БухгалтерскиеИтоги"); Контр.ВыбратьЭлементы(); СЗ=СоздатьОбъект("СписокЗначений"); Пока Контр.ПолучитьЭлемент()=1 Цикл СЗ.ДобавитьЗначение(Контр.ТекущийЭлемент()); КонецЦикла; БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,СЗ); БИ.ИспользоватьСубконто(ВидыСубконто.Счетчики); БИ.ВыполнитьЗапрос(НачДата,КонДата,"62"); ТЗ=СоздатьОбъект("ТаблицаЗначений"); Таб.ИсходнаяТаблица("ТаблицаСРазбивкойПоБюджетам"); ТЗ.НоваяКолонка("Бюджет"); ТЗ.НоваяКолонка("Контрагент"); ТЗ.НоваяКолонка("СНД"); ТЗ.НоваяКолонка("СНК"); ТЗ.НоваяКолонка("ДО"); ТЗ.НоваяКолонка("КО"); ТЗ.НоваяКолонка("СКД"); ТЗ.НоваяКолонка("СКК"); // Таблица для объединения счетчиков у нулевых контрагентов ТЗСч=СоздатьОбъект("ТаблицаЗначений"); ТЗСч.НоваяКолонка("Бюджет"); ТЗСч.НоваяКолонка("Контрагент"); ТЗСч.НоваяКолонка("СНД"); ТЗСч.НоваяКолонка("СНК"); ТЗСч.НоваяКолонка("ДО"); ТЗСч.НоваяКолонка("КО"); ТЗСч.НоваяКолонка("СКД"); ТЗСч.НоваяКолонка("СКК"); БИ.ВыбратьСубконто (1); Пока БИ.ПолучитьСубконто (1) = 1 Цикл Контрагент = БИ.Субконто(ВидыСубконто.Контрагенты); Счетчик = БИ.Субконто(ВидыСубконто.Счетчики); ТЗ.НоваяСтрока(); ТЗ.Бюджет = ВыборБюджета(Контрагент); ТЗ.Контрагент = Контрагент; ТЗ.СНД = БИ.СНД(); ТЗ.СНК= БИ.СНК(); ТЗ.ДО= БИ.ДО(); ТЗ.КО= БИ.КО(); ТЗ.СКД= БИ.СКД(); ТЗ.СКК= БИ.СКК(); КонецЦикла; Для н=1 По СЗ.РазмерСписка() Цикл Контрагент = СЗ.ПолучитьЗначение(н); Если ТЗ.НайтиЗначение(Контрагент,,"Контрагент") = 1 Тогда Продолжить; КонецЕсли; СпрСчетчик=СоздатьОбъект("Справочник.Счетчики"); СпрСчетчик.ИспользоватьВладельца(Контрагент); ТЗСч.УдалитьСтроки(); СпрСчетчик.ВыбратьЭлементы(); Пока СпрСчетчик.ПолучитьЭлемент()=1 Цикл ТекСч=СпрСчетчик.ТекущийЭлемент(); ТЗСч.НоваяСтрока(); ТЗСч.Бюджет = ВыборБюджета(Контрагент); ТЗСч.Контрагент = Контрагент; ТЗСч.СНД=0; ТЗСч.СНК=0; ТЗСч.ДО=0; ТЗСч.КО=0; ТЗСч.СКД=0; ТЗСч.СКК=0; КонецЦикла; ТЗСч.Свернуть("Бюджет, Контрагент","СНД, СНК, ДО, КО,СКД, СКК"); ТЗСч.ВыбратьСтроки(); Пока ТЗСч.ПолучитьСтроку() = 1 Цикл ТЗ.НоваяСтрока(); ТЗ.Бюджет = ТЗСч.Бюджет; ТЗ.Контрагент = ТзСч.Контрагент; ТЗ.СНД = ТЗСч.СНД; ТЗ.СНК = ТЗСч.СНК; ТЗ.ДО = ТЗСч.ДО; ТЗ.КО = ТЗСч.КО; ТЗ.СКД = ТЗСч.СКД; ТЗ.СКК = ТЗСч.СКК ; КонецЦикла; КонецЦикла; Если (ПустоеЗначение(ВыбТипыБюджетов) = 1) Тогда //т.е. если НЕ ВЫБРАН Бюджет Таб.ВывестиСекцию("Шапка"); ПервыйРаз = 1; БюджИт_1 = 0; БюджИт_2 = 0; БюджИт_3 = 0; БюджИт_5 = 0; БюджИт_6 = 0; БюджИт_7 = 0; КнтрИт_1 = 0; КнтрИт_2 = 0; КнтрИт_3 = 0; КнтрИт_5 = 0; КнтрИт_6 = 0; КнтрИт_7 = 0; ТЗ.Сортировать("Бюджет, Контрагент"); ТипБюджета = ""; Бюджетик = ""; //**далее пробую работать с dbf **// ДБФ=СоздатьОбъект("XBase"); ДБФ.ДобавитьПоле("Budzet", "S",0, ); ДБФ.ДобавитьПоле("Budz1", "N",0, ); ДБФ.СоздатьФайл("E:Primer555.dbf"); КонецЦикла; ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку() = 1 Цикл ДБФ.Добавить(); ДБФ.УстановитьЗначениеПоля("Budzet",Бюджетик); ДБФ.УстановитьЗначениеПоля("Budz1",БюджИт_1); ДБФ.Записать(); Если ПервыйРаз = 1 Тогда ТипБюджета= ТЗ.Бюджет; Бюджетик = ТЗ.Бюджет; ПервыйРаз = 0; КонецЕсли; Если ТипБюджета = ТЗ.Бюджет Тогда Иначе Таб.ВывестиСекцию("Итого"); БюджИт_1 = 0; БюджИт_2 = 0; БюджИт_3 = 0; БюджИт_5 = 0; БюджИт_6 = 0; БюджИт_7 = 0; ТипБюджета= ТЗ.Бюджет; Бюджетик = ТЗ.Бюджет; КонецЕсли; БюджИт_1 = БюджИт_1 + ТЗ.СНД; БюджИт_2 = БюджИт_2 + ТЗ.СНК; БюджИт_3 = БюджИт_3 + ТЗ.ДО; БюджИт_5 = БюджИт_5 + ТЗ.КО; БюджИт_6 = БюджИт_6 + ТЗ.СКД; БюджИт_7 = БюджИт_7 + ТЗ.СКК; ДБФ.Записать(); КонецЦикла; Таб.ВывестиСекцию("Итого"); Таб.ВывестиСекцию("ИтогоПоВсем"); ДБФ.ЗакрытьФайл(); КонецЕсли;

Отправлен: 26.02.2008, 16:07 Вопрос задала: Olyamur (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Villista Здравствуйте, Olyamur! А встроенную проверку синтаксиса проводили? На сколько смог разобраться, в блоке: //**далее пробую работать с dbf **// ДБФ=СоздатьОбъект("XBase"); ДБФ.ДобавитьПоле("Budzet", "S",0, ); ДБФ.ДобавитьПоле("Budz1", "N",0, ); ДБФ.СоздатьФайл("E:Primer555.dbf"); КонецЦикла; Оператор "КонецЦикла" должен быть "КонецЕсли" и выше блока создания базы, а в блоке: Таб.ВывестиСекцию("Итого"); Таб.ВывестиСекцию("ИтогоПоВсем"); ДБФ.ЗакрытьФайл(); КонецЕсли; Наоборот, должен быть "КонецЦикла". К сожалению у меня нет 1С 7.7 Энергосбыт, и быстро проверить отчет не могу, но что увидел - написал.

Ответ отправил: Villista (статус: 1-ый класс) Ответ отправлен: 27.02.2008, 09:48 Оценка за ответ: 5 Комментарий оценки: Спасибо, синтаксических ошибок нет. КонецЦикла и КонецЕсли нельзя менять местами т.к. иначе в отчёте выводится неверная информация,т.е циклы работают нормально. Все равно спасибо за быстрый ответ.

Отвечает: Maximush Здравствуйте, Olyamur! У меня тоже нет данной конфигурации, однако с циклами и еслями у вас явно проблема. :) Возможно вы неправильно скопировали модуль в форму отправки вопроса.

Ответ отправил: Maximush (статус: 2-ой класс) Ответ отправлен: 27.02.2008, 16:00 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ.С циклами там проблем нет. Я уже немного разобралась с dbf, файл создаётся и имена всех полей выводятся.Как далее вывести в него информацию которая получается в циклах? В скопированном модуле проблема только в строках содержащих ДБФ, остальное рабочее.

Отвечает: Dmitry Stashenko Здравствуйте, Olyamur! 1. проблема с циклом все-таки есть. Как по мне, просто лишний "КонецЦикла" после "ДБФ.СоздатьФайл("E:Primer555.dbf")". Проверьте, пожалуйста. 2. проще не "ДБФ.УстановитьЗначениеПоля("Budzet",Бюджетик)", а "ДБФ.Budzet = Бюджетик". 3. зачем перед последним "КонецЦикла" второй раз "ДБФ.Записать()"? 4. что значит "первые два столбца не выводит т.е. нумерация столбцов начинается с третьей"? У вас всего 2 столбца, с какой третьей? 5. ошибку "Перед выполнением операции нужно открыть базу!" скорее всего выдает потому, что 1С необходим монопольный режим к ДБФ-файлу, а у вас в момент работы процедуры он где-нибудь (например, в Экселе) открыт.

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 27.02.2008, 20:22 Оценка за ответ: 5 Комментарий оценки: Спасибо за вразумительный ответ. Циклы еще раз проверю. Да, если я открываю созданый ДБФ-файл в экселе, то первых двух столбцов(которые я пытаюсь вывести) просто нет, он выдает пустой файл, но номер столбцов начинаются с третьего. Если записать "ДБФ.Budzet = Бюджетик", то он выдает не наименование бюджета, а его код.

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Olyamur! ДБФ.ДобавитьПоле("Budzet", "S",0, ); Поле нулевой длины? Интересно... Поэтому его и нет в базе. Копайте в этом направлении

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 29.02.2008, 11:05 Оценка за ответ: 5 Комментарий оценки: Спасибо.Уже всё исправила.Простите за невнимательность.

Вопрос № 124.954

Здраствуйте уважаемие есперты! У меня конф Комплексная 7.7, торговля мед. продукцией. По законодательству продажная цена должна формироваться на основаные цены партии прихода. Сейчас работаем так - цена заноситься в справочник ТМЦ (Розничная, Закупочная) и меняеться при необходимости но привязке к партии как такой нету. Может кто уже делал нечто похожее, буду очень благодарен за концепцию работу такой схеми.

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

Отвечает: Munster Здравствуйте, WSubchak! Аналогичная ситуация. Исходя из того, что при любом поступлении ТМЦ формируется партия (элемент справочника "Партии"): Создал в справочнике партии реквизит "Себестоимость", который заполняется при проведении документа поступления (ПоступлениеТМЦ, СтрокаАвансовогоОтчета(ЗакупкаТМЦ), и др. доки, в которых создается новая партия). В документ реализации добавил реквизиты "себестоимость" и "процентНаценки". При продаже менеджеры указывают партию, которую нужно списать!!!(это самое главное, <авто подбор> не прокатит) Из партии берется себестоимость, та которая была записана в справочник при поступлении. На основании себестоимости и продажной цены вычисляется процент наценки, и менеджер видит превысил ли он допустимый процент или нет.

Ответ отправил: Munster (статус: 9-ый класс) Ответ отправлен: 27.02.2008, 07:58 Оценка за ответ: 4 Комментарий оценки: Спасибо, но етот вариант не подходит тем что, при расчете цены з использованием процента получаеться неувязка з копейками так как происходит округление. Можна сделать контроль округления но там очень большой асортимент продукции разних категорий (шт., упаковки, вес, длинна), тоесть округления если и можна контролировать то на разних точках продаж будут разние цены.

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

Ответ отправил: Крюков Р.А. (статус: 3-ий класс) Ответ отправлен: 27.02.2008, 11:48

Вопрос № 124.969

Здравствуйте, Уважаемые эксперты! У меня вопрос по ТиС 7.7. На данный момент при проведении Реализации, если сумма неоплаченных отгрузок превышает сумму кредита установленную для данного контрагента, то программа уведомляет об этом. А возможно ли в настройках сделать так чтобы появлялось сообщение о том что не оплаченная конкретная накладная или для этого надо дорабатывать конфигурацию?

Отправлен: 26.02.2008, 18:50 Вопрос задал: Vlad (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ahab Здравствуйте, Vlad! Да, для этого надо будет дорабатывать конфигурацию. Ведь чтобы знать какая именно накладная не оплачена, необходимо реализовать привязку поступивших денег через банк или кассу по конкретным накладным. А оплачиваться документы могут как угодно - одним поступлением денег на несколько накладных или наоборот, частично оплачиваться, к тому же возникает проблема возвратов (возврат к оплаченной поностью накладной к примеру). У меня для этого отведён отдельный регистр.

Ответ отправил: Ahab (статус: 4-ый класс) Ответ отправлен: 27.02.2008, 04:09

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.71 от 27.02.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru