Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715  Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тема для программирования 1С!!!
Это продолжение темы, предыдущие части доступны тут

ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям
ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х
Топик 1C Ebooks
ЗДЕСЬ  (обновлено 17.10.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
 
Предыдущие темы были здесь часть 4 | часть 3 | часть 1
 
Как убить рекламу при обновлении отчетности | конфигурации (ИБ)?
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:02 03-04-2009 | Исправлено: vkramnik, 12:06 23-10-2009
Nord178

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
WELL
Вот описание с сайта самого 1С
Для конвертации из формата версии 8.1 следует выполнить описанные ниже действия.
Информационная база, не подключенная к хранилищу
 
    Файловый вариант информационной базы
 
        * Сделать резервную копию информационной базы.
        * Запустить конфигуратор версии 1С:Предприятия 8.1.
        * В случае если редактируемая конфигурация отличается от конфигурации базы данных - обновить конфигурацию базы данных. Если обновления конфигурации базы данных произведено не будет - конвертация в формат версии 8.2 будет невозможна.
        * Для исключения возможных ошибок при конвертации рекомендуется выполнить тестирование и исправление информационной базы.
        * Завершить работу конфигуратора версии 1С:Предприятия 8.1.
        * Запустить конфигуратор данной версии 1С:Предприятия 8.2.
        * Если информационная база отсутствует в списке информационных баз - выполнить добавление существующей информационной базы.
        * Открыть информационную базу в режиме Конфигуратора.
        * На предложение выполнить преобразование информационной базы дать утвердительный ответ. После сообщения об удачной конвертации программа продолжит работу.
 
    Клиент-серверный вариант информационной базы
 
        * Сделать резервную копию информационной базы.
        * Запустить конфигуратор версии 1С:Предприятия 8.1.
        * В случае если редактируемая конфигурация отличается от конфигурации базы данных - обновить конфигурацию базы данных. Если обновления конфигурации базы данных произведено не будет - конвертация в формат версии 8.2 будет невозможна.
        * Для исключения возможных ошибок при конвертации рекомендуется выполнить тестирование и исправление информационной базы.
        * Завершить работу конфигуратора версии 1С:Предприятия 8.1.
        * Запустить конфигуратор данной версии 1С:Предприятия 8.2.
        * Если информационная база отсутствует в списке информационных баз - выполнить добавление новой информационной базы.
        * В диалоге создания новой информационной базы выполнить действия по созданию новой пустой информационной базы в клиент-серверном варианте. При этом все параметры базы данных необходимо указать соответствующими конвертируемой информационной базе. Перед созданием информационной базы необходимо сбросить флажок "Создать базу данных в случае ее отсутствия".
        * На предложение выполнить конвертацию информационной базы дать утвердительный ответ. После сообщения об удачной конвертации программа продолжит работу.
 
 
 
Добавлено:
В счете на оплату, хочу убрать графы скидки (УТ)  1с 8.1
 
Сделал это закомментировав
 
Код
 
//Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл  
    //    Если ЗначениеЗаполнено(ВыборкаСтрокТовары.Скидка) Тогда
    //        ЕстьСкидки = Истина;
    //        Прервать;
    //    КонецЕсли;  
    //КонецЦикла;
 
 
 
Но мне надо чтоб в графе сумма выводилась сумма без учета скидки.
попробовал так:
 
Код
 
Скидка = Ценообразование.ПолучитьСуммуСкидки(ВыборкаСтрокТовары.Сумма, ВыборкаСтрокТовары.Скидка);
 
        Если ЕстьСкидки Тогда
            ОбластьСкидок.Параметры.Скидка         = Скидка;
            ОбластьСкидок.Параметры.СуммаБезСкидки = ВыборкаСтрокТовары.Сумма + Скидка;
            ТабДокумент.Присоединить(ОбластьСкидок);
        КонецЕсли;
         
        ОбластьСуммы.Параметры.Заполнить(ВыборкаСтрокТовары);
        ТабДокумент.Присоединить(ОбластьСуммы);
        Сумма          = Сумма       + ВыборкаСтрокТовары.Сумма;
        СуммаНДС       = СуммаНДС    + ВыборкаСтрокТовары.СуммаНДС;
        ВсегоСкидок    = ВсегоСкидок + Скидка;
        ВсегоБезСкидок = Сумма       + ВсегоСкидок;
 
 
 
Добавил к строке  Сумма = Сумма   + ВыборкаСтрокТовары.Сумма + Скидка;
В счете все равно сумма идет уже со скидкой.
 
Не понимаю в чем дело
Всего записей: 26 | Зарегистр. 19-06-2007 | Отправлено: 12:00 15-10-2009
gorenski



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Товарищи, не надо постить портянки с кодом, юзайте спецсервисы и давайте на них ссылки. Например этот: http://pastebin.ca/1621708
Всего записей: 711 | Зарегистр. 29-01-2003 | Отправлено: 12:38 15-10-2009
Irene999

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто-нибудь уже реализовывал обмен между комплексной автоматизацией 8 и розницей 8? не могу нигде найти готовых правил.
Всего записей: 4 | Зарегистр. 06-04-2008 | Отправлено: 12:39 15-10-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Irene999
собираемся переходить с комплексной 7 на 8 ?

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 13:01 15-10-2009
St01en

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
egerLESHIK
В созданную форму в ПриОткрытии вставь вот это
 
           Форма.тЗавод.Видимость(1);
           Форма.Завод.Видимость(1);
           Форма.Субконто3.Видимость(0);  
           Форма.тСубконто3.Видимость(0);  
 
Также програмно можно подцепить и процедуру ИзмВидОперации. Смотря откуда у тебя программно создается. Например поставить чекбокс и про Чек = 1, показывать Субконто1, Субконто2 и Завод, а при Чек = 0 - Субконто1, Субконто2 и Субконто3
Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 13:50 15-10-2009
ghostrid3r

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
axellPnz, dimaxmaster, An4eus  Спасибо ВАМ большое за помощь, все сделал, все получилось.
Всего записей: 40 | Зарегистр. 16-09-2009 | Отправлено: 15:34 15-10-2009 | Исправлено: ghostrid3r, 15:35 15-10-2009
Bubuzon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблемка есть. УТ 8.1 При добавлении записей в регистр сведений ЗначенияСвойствОбъектов в операциях значения отображаются а в самих карточках товара в характеристике значения пустые. Записи добавлял как 1С учила и через набор записей и через менеджер, все одинаково в характеристике значения не появляются. Ужо день на это угробил.
 
 
НаборЗаписейЗначенияСвойств = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
НаборЗаписейЗначенияСвойств.Объект = СправочникОбъектХарактеристика.Ссылка;
НаборЗаписейЗначенияСвойств.Свойство=ПланыВидовХарактеристик.СвойстваО бъектов.НайтиПоНаименованию("Производитель");
НаборЗаписейЗначенияСвойств.Значение=ЗначениеПроизводитель;
Попытка
НаборЗаписейЗначенияСвойств.Записать()
Исключение
Сообщить("Свойство не записано |"+ОписаниеОшибки());
Всего записей: 26 | Зарегистр. 03-05-2006 | Отправлено: 17:49 15-10-2009
fol



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Bubuzon в свойство зайди, на закладке "Назначение свойства" должен быть указан твой объект или группа объектов
Всего записей: 805 | Зарегистр. 02-11-2002 | Отправлено: 22:08 15-10-2009
Bubuzon

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Bubuzon в свойство зайди, на закладке "Назначение свойства" должен быть указан твой объект или группа объектов

 
Там все прописано. В форме характеристики они не появляются, хотя если заводить ручками все красиво. Попробуй инвойс на 730 позиций ручками завести.
Всего записей: 26 | Зарегистр. 03-05-2006 | Отправлено: 23:53 15-10-2009
Nord178

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Цитата:
Добавил к строке  Сумма = Сумма   + ВыборкаСтрокТовары.Сумма + Скидка;
В счете все равно сумма идет уже со скидкой.  

 
Так и не понял как решить. Подскажите если кто знает
Заранее спасибо
Всего записей: 26 | Зарегистр. 19-06-2007 | Отправлено: 00:16 16-10-2009
impulse2000

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
//создание переоценки
докПереоценка = СоздатьОбъект("Документ.ПереоценкаРозница");
спрТовары = СоздатьОбъект("Справочник.Номенклатура");
спрсклады = СоздатьОбъект("Справочник.Склады");
 
Если спрТовары.НайтиПоКоду(Прав("00000000"+Код,smile8)) = 1 Тогда
докПереоценка.Новый();
глЗаполнитьШапку(докПереоценка, 0);
докПереоценка.НоваяСтрока();
докПереоценка.Номенклатура = спрТовары.ТекущийЭлемент();
докПереоценка.Комментарий= "автосоздано";
докПереоценка.Единица = спрТовары.ТекущийЭлемент().БазоваяЕдиница;
докПереоценка.Коэффициент = 1;
Если спрсклады.НайтиПоКоду(Прав("0000000015",5)) =1 тогда
докПереоценка.склад = спрсклады.текущийэлемент();
КонецЕсли;
докПереоценка.Количество = Количество;
докПереоценка.датадок = ДатаТранзакции;
докПереоценка.Ценастарая = цена;
докПереоценка.ценановая = цена-цена/100*процент;
_Цена = докПереоценка.ценановая;
докПереоценка.Разница = докПереоценка.ценановая - докПереоценка.Ценастарая;
докПереоценка.Записать();
докПереоценка.Провести(0, "Программно");
докПереоценка.СделатьНеПроведенным();
докПереоценка.Записать();
докПереоценка.Провести(0, "Программно");
Иначе
Сообщить("Товар не найден, код "+Код,"!");
конецесли;
 
 
не проводиться нормально, т.е. в остатках смотришь все ок, а при попытке добавить в расход говорит что "товара по (цена_переоценки) нет на складе". Делалось в соотвествии с учебником... Конфа ТиС 9.2. Помогите пожалуйста
 
нет проведения по партиям
 
Добавлено:
Сделал,  
                    докПереоценка.Провести(0, "Программно");
                    докПереоценка.СделатьНеПроведенным();
                    докПереоценка.Записать();
                    докПереоценка.Провести(0, "Программно");
 
заменил на  
                    докПереоценка.Провести(0);
                    докПереоценка.СделатьНеПроведенным();
                    докПереоценка.Записать();
                    докПереоценка.Провести(0);
Всего записей: 20 | Зарегистр. 20-01-2007 | Отправлено: 09:11 16-10-2009 | Исправлено: impulse2000, 09:31 16-10-2009
fol



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nord178 что у тебя конкретно не получается? Хочешь в графе "сумма" сумму без скидки? В макете в колонке "Сумма" напиши вместо переменной "Сумма" "СуммаБезСкидки"
Всего записей: 805 | Зарегистр. 02-11-2002 | Отправлено: 09:58 16-10-2009
dimaxmaster

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
impulse2000
 
Проблема, я так понимаю в движениях по регистрам, а именно, копайте ОбработкуПроведения документа ПереоценкаРозница. Скорее всего, чего-то  вы теряете при создании нового дока, либо там что-то с проведением. Делайте через отладчик.
Всего записей: 333 | Зарегистр. 05-06-2008 | Отправлено: 10:23 16-10-2009
impulse2000

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dimaxmaster
Процедура ОбработкаПроведения(ВидыДвижений)
    
    // Проведение по регистрам оперативного учета.    
    Если (ПустоеЗначение(ВидыДвижений) = 1) ИЛИ (Найти(ВидыДвижений, "Регистр") <> 0) Тогда
        ПроведениеПоРегистрам();
        
        Если СтатусВозврата() = 0 Тогда
            Возврат;
        КонецЕсли;
    КонецЕсли;
    
    глПриПроведении(Контекст, ВидыДвижений);
    
КонецПроцедуры //ОбработкаПроведения()
 
ВидыДвижений либо пустое должно быть, либо содержать "Регистр"
Всего записей: 20 | Зарегистр. 20-01-2007 | Отправлено: 11:02 16-10-2009
dimaxmaster

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
impulse2000

Цитата:
ВидыДвижений либо пустое должно быть, либо содержать "Регистр"

 
Нужно начать отладку именно с процедуры ОбработкаПроведения(), тогда можно глянуть чего конкретно не хватает, а так - это гадание на кофейной гуще
Всего записей: 333 | Зарегистр. 05-06-2008 | Отправлено: 11:18 16-10-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
impulse2000
Цитата:
не проводиться нормально, т.е. в остатках смотришь все ок
1. и как смотришь?
2. при использовании процедуры глЗаполнитьШапку() должно всё корректно заполнено быть в справоничке пользователи под собой, а имено Фирма и т.д.

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 11:26 16-10-2009
Nord178

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
fol
В таком случае вообще пустое поле получаю, вот и в ступоре
а как говорил выше, если прибавить скидку, то ничего не меняется.
Хотя когда точку останова ставишь, то он вычисляет оба значения и сумму и скидку, но не складывает
Всего записей: 26 | Зарегистр. 19-06-2007 | Отправлено: 22:06 16-10-2009
Sendman

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте! Подскажите как реализовать следующую штуку... в 1С 8 Управление Торговлей, в прайс-листе нужно чтобы в подгруппе перед наименованием ставился знак "!", т.е. в первой группе ничего не нужно, в подгруппе принадлежащей первой группе нужно поставить 1 знак "!", в подгруппе принадлежащей подгруппе первой группы поставить 2 знака "!" и так далее. Чтоб иерархия выглядела следующим образом:
Группа1
   !Группа2
   товар
      !!Группа3
      товар
Группа
товар
   !Группа ну и так далее
Кто может помочь с данным вопросом, помогите плиз!
Всего записей: 55 | Зарегистр. 10-04-2006 | Отправлено: 06:03 17-10-2009
SeRj144000

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте. Ситуация такая. Переводил магазин с 7-ки (Супермаркет 3.0) на 8-ку. Выгрузил базу, и не предусмотрительно удалил 7-ку вместе с базой на самом компе. Позже когда загрузил выгруженную базу оказалось что она выгрузилась с ошибками. Пытался в конфигураторе востановить и исправить базу но ошибка не исправляется. Сама выгруженная база включается работает но когда провожу инвентаризацию выскакивает ошибка:
 "ДопМетоды.УдалитьИндикаторВыполнения();
{Глобальный модуль(71)}: Значение не представляет агрегатный объект (УдалитьИндикаторВыполнения)
ДопМетоды.УдалитьИндикаторВыполнения();"
инвентаризация не проводится, также не проводятся документы и отчеты связанные с документами из-за той же ошибки. Пожалуйста помогите исправить базу.
Всего записей: 14 | Зарегистр. 06-02-2008 | Отправлено: 12:35 17-10-2009 | Исправлено: SeRj144000, 12:37 17-10-2009
tswanea



Full Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Sendman

Цитата:
Группа1  
   !Группа2  
   товар  
      !!Группа3  
      товар  
Группа  
товар  
   !Группа ну и так далее  

 
 
попробуй так следать:
 
    Пока Выб.Следующий() Цикл
        Уровень = Выб.Ссылка.Уровень();
        отступ = "";
        Если Уровень <> 0 Тогда
            Для н = 1 По Уровень Цикл
                отступ = отступ + "!";
            КонецЦикла;
        КонецЕсли;
        Сообщить(отступ + СокрЛП(Выб.Ссылка.наименование));
    КонецЦикла;


----------
... И развернутся врата ада, и силы тьмы обрушатся на землю ...
Всего записей: 436 | Зарегистр. 03-08-2004 | Отправлено: 17:55 17-10-2009
   

Страницы: 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru