Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: 1С Производство 7.7 добавление 6 знаков после запятой
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
zwer2009
Помогите или дайте ответ возможно ли такое чтобы было 6 знаков после запятой

В конфигураторе поменял везде кратность 18.6 точность тоже 18.6 везде в формах документа и в отчетах отображается 6 знаков после запятой но не считает правильно в приходной накладной количество множит на цену но сумма все ровно округляет до 2 знаков
ведется учет хозяйственные материалы например гвозди получается один гвоздь стоит 0.000123 * 100 штук = 0.012300 в приходной накладной пишет в табличной части 0.012000 и все дальше не считает в отчете тоже 0.0120000 как исправить

к сведению ведется только приход и перемещении и отчет остатки на складе все по учетной цене прихода и расхода цены не добавляют.
или посоветуете перейти на какую-то другую конфигурацию.

я думаю может где-то в модуле собака зарыта вот что пишет
Процедура ПересчетСтроки(НоваяЦена=0)
    Если Константа.ОсновнаяЦена = Перечисление.ВидыЦенВДокументах.ЦенаБезНДС Тогда
        Если ПустоеЗначение(НоваяЦена) = 0 Тогда                                  
            // определим ставку НДС
            Если ВидНДС = ОсновнаяСтавкаНДС Тогда
                СтавкаНДС = ТМЦ.СтавкаНДС;
            Иначе
                СтавкаНДС = ВидНДС;
            КонецЕсли;
            // устанавливаем цену без НДС
            ЦенаБезНДС = НоваяЦена*100/(глПроцентНДС(СтавкаНДС,ДатаДок)+100);
        КонецЕсли;
        глВыч_Суммы_Накл(Контекст,-1);
    Иначе                    
        Если ПустоеЗначение(НоваяЦена) = 0 Тогда
            ЦенаСНДС = НоваяЦена;
        КонецЕсли;
        глВыч_Суммы_Накл(Контекст,1);
    КонецЕсли;
КонецПроцедуры //ПересчетСтроки

// ===============================
// Назначение: пересчитывает цену и суммы в строке документа по категори цен
//        
Процедура ПресчитатьЦенуПоКатегории()
    ЦенаТовара = глВернутьЦену(ТМЦ, КатегорияЦен);
    Если ПустоеЗначение(ЦенаТовара) = 0 Тогда
        // получим параметры цены
        ЦенаТовара.ИспользоватьДату(ДатаДок);
        ЦенаЦены   = ЦенаТовара.Цена;
        ВалютаЦены = ЦенаТовара.Валюта;
        ЕдЦены       = ЦенаТовара.Единица;
        ЦенаЦены   = ЦенаЦены * Коэффициент / ЕдЦены.Коэффициент;            
        ЦенаЦены   = глПересчет(ЦенаЦены,ВалютаЦены,ДатаДок,Валюта,Курс,Дата_курса);
        ПересчетСтроки(ЦенаЦены);                                                  
    Иначе
        ПересчетСтроки();
    КонецЕсли;
КонецПроцедуры //ПресчитатьЦенуПоКатегории



 ! 

Правила: 3, 12
 
Zaval
Цитата(zwer2009 @ 29.01.16, 12:49) необходимо зарегистрироваться для просмотра ссылки
в приходной накладной количество множит на цену но сумма все ровно округляет до 2 знаков

В расчете предусмотрено Округление.
Но главный вопрос - зачем Вам гвозди поштучно?
Это решается через единицы измерения...
zwer2009
Zaval @ Сегодня, 12:58 необходимо зарегистрироваться для просмотра ссылки,
там сложно не гвозди а саморезы приходят в долларах переводят в гривне продают поштучно и если приходит много то разница в копейках очень ощутимаи потому нужно 6 знаков после точки
Zaval

zwer2009 @ Сегодня, 13:13 необходимо зарегистрироваться для просмотра ссылки,
Цена за 1000 или за кг.
При продаже или списании пересчитывается по коэффу единицы измерения и сумма округляется вверх до целых копеек(все это уже есть в любой конфе).

zwer2009
Zaval @ Сегодня, 13:19 необходимо зарегистрироваться для просмотра ссылки,
цена за 1000 штук
1000 * 0.000123 = 0.123000

а показывает в накладной приходной почему то = 0.130000
Zaval
Цитата(zwer2009 @ 29.01.16, 13:24) необходимо зарегистрироваться для просмотра ссылки
а показывает в накладной приходной почему то = 0.130000

При расчете применяется бухгалтерское(всегда вверх) округление до целых копеек.
zwer2009
Zaval @ Сегодня, 13:36 необходимо зарегистрироваться для просмотра ссылки,
КАК ИСПРАВИТЬ МОЖНО
Zaval
zwer2009 @ Сегодня, 13:46 необходимо зарегистрироваться для просмотра ссылки,
Искать в коде "ОкрВверх"(или как там она называется - уточните в СП) и исправлять ее параметры.
Pepe
zwer2009, я вам не завидую, при каждом обновлении чехвостить все документы...
Sharzem
В документах изменять - маловато будет !!!
Если меняете - не забывайте о удаленных складах (филиалах), возможно работаете с УРБД, смотрите в модули перерасчета сумм. Любое Ваше изменение приведет либо к изменению начисления сумм НДС, либо взаиморасчетов, либо остатков.

Короче: порвете учет, а ведь это ПУБ !

С бухгалтером сядьте, и с чашкой кофе под шоколад с коньячком договоритесь.
zwer2009
Sharzem @ Вчера, 16:56 необходимо зарегистрироваться для просмотра ссылки,
Ни хотят кофе хотят 6 знаков и все.
CobraS
zwer2009 @ Сегодня, 8:34 необходимо зарегистрироваться для просмотра ссылки,
Я так понимаю, Вам нужно менять еще и разрядности в объектах Операция, Проводка и всех регистрах, завязанных на стоимости товара, (Партии, Обороты, Выпуск продукции и пр.).
Ну а затем пожинать плоды такой самодеятельности. Каждое обновление ПУБа будет Вам "подарком".
Я так когда-то на заре своей деятельности поступил с увеличением разрядности в количестве. До сих пор сопровождаю сей фрукт.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.