Всем привет.

1с 7.7. Комплексная 495 типовая.

Провожу Поступление (доп. расходы по ТМЦ).
Сумма в валюте, привязывается к документу поступление ТМЦ импорт.
Проводку делает 41.1 - 60.1.

Соответственно на 60.1. повисает суммма, надо закрывать на 60.11.

Собственно пара вопросов:
1. А проводка 41.1-60.11 - это правильно?
2. Настройками хоз. операций не нашел как сделать, лезть в конфигуратор.
3. Или как по другому закрывать данную ситуацию?

(0) чего ты паришь ?

1. док поступлениеТМЦИмпорт - для контров, с которыми идёт взаиморасчёт по валютному БАНКОВСКОМУ счёту
проводки :
41 товарМой1 15
41 товарМой2 15
41 товарМой3 15
15 60 контор иностранец1

2. док ПоступлениеДопРасходы нужен для увеличения себестоимости любого прихода ( в типовой только с контрами, с которыми ведётся расчёт по рублёвому БАНКОВСКОМУ счёту)

41 Товар1 60.1 КонтКоторыйУвеличаетСтоимость
41 Товар2 60.1 КонтКоторыйУвеличаетСтоимость
41 Товар3 60.1 КонтКоторыйУвеличаетСтоимость

(2) Ну так вопрос, как увеличить себестоимость прихода от контрагента в валюте?

(3) я сделал так :

1. добавил КО по валюте + правил хохОперации
2. правил док ДопРасходы : модуль формы - возможность выбора нового КО, модуль дока

+ там есть ещё одна хитрость, как сумму в валюте распределить по регистру ПартииНаличия

и по-моему с такой реализации ненадо будет править глобальник

но в 495 у тя проводки по курсовой разнице будут неправильными !!!
надо делать на 494

тема уже неинтересна ?

Мне интересна )) только у мну 491 !

(9) аналогично ))

(8) Интересна.

Сделал пока по другому, в конфигураторе прописал проводку 41.1 - 60.11 если документ в валюте, и отключил штатный механизм формирования.
Закрывается все нормально, переоценка тоже вроде нормально отрабатывает.

(11) что-что ?
подробнее

+ как понять прописал ?

(12) По движению регистров вроде все устраивало.
В модуле документа, сделал условие, если документ в валюте, то отключается штатный механизм проведения и создается проводка 41.1-60.11

(14) код покажи

+ в каком доке ?

(16) Док - поступление Доп расходов.
Процедура ОбработкаПроведения(ВидыДвижений)
   
....

//    глПриПроведении(Контекст, ВидыДвижений);
   Если Валюта<>глРубли Тогда
       ТЗ=СоздатьОбъект("ТаблицаЗначений");
       ТЗ.НоваяКолонка("Номенклатура","Справочник.Номенклатура");
       ТЗ.НоваяКолонка("Сумма","Число");
       ОчиститьДвижения("Операция");
       РегПартии = СоздатьОбъект("Регистр.ПартииНаличие");    
       РегПартии.ВыбратьДвиженияДокумента(ТекущийДокумент());
       Пока РегПартии.ПолучитьДвижение()=1 Цикл
           Если РегПартии.Приход=1 Тогда
               ТЗ.НоваяСтрока();
               ТЗ.Номенклатура=РегПартии.Номенклатура;
               ТЗ.Сумма=РегПартии.СуммаУпр;
           КонецЕсли;
       КонецЦикла;
       ТЗ.Свернуть("Номенклатура","Сумма");
       СуммаОп=0;
       ТЗ.ВыбратьСтроки();
       Пока ТЗ.ПолучитьСтроку()=1 Цикл
           Операция.НоваяПроводка();
           Операция.РазделительУчета   = ЮрЛицо;
           Операция.СодержаниеПроводки = "Оприходованы доп. расходы по приобр. ТМЦ импорт";
           Операция.Дебет.Счет         = СчетПоКоду("41.1");
           Операция.Дебет.Субконто(1, ТЗ.Номенклатура);
           Операция.Кредит.Счет        =  СчетПоКоду("60.11");
           Операция.Кредит.Субконто(1, Контрагент);
           Операция.Кредит.Субконто(2, Договор);
           Операция.Сумма      = ТЗ.Сумма;
           Операция.ВалСумма   = ТЗ.Сумма/Курс;
           Операция.Валюта     = Валюта;
           СуммаОп=СуммаОп+ТЗ.Сумма;
       КонецЦикла;
       Операция.СуммаОперации = СуммаОп;    
       Попытка
           Операция.Записать();  
       Исключение
           глНеПроводить(Контекст, ОписаниеОшибки());
       КонецПопытки;
   Иначе
       глПриПроведении(Контекст, ВидыДвижений);
   КонецЕсли;

   
КонецПроцедуры //ОбработкаПроведения()

(17) у тебя сейчас в переоценку валюты этот контр попадает по ошибке, ибо так косяк в ОУ

проверь свой код на 494 - в переоценке участвовать не будет контр по доп расходам

(18) >>>у тебя сейчас в переоценку валюты этот контр попадает по ошибке, ибо так косяк в ОУ

Подробнее можно?

Проверять уже не буду, на 495 уже обновлено, из-за зарплатного блока.
Вроде февраль по валюте нормально закрыли.

494 :

Пока Запрос.Группировка() = 1 Цикл
       Регистр.Поставщики.Договор      = Запрос.пДоговор;
       Регистр.Поставщики.ВидДолга     = Запрос.пВидДолга;
       Регистр.Поставщики.КредДокумент = Запрос.пКредДок;
       
       Если ВидыДолгаВал.Принадлежит(Запрос.пВидДолга) = 1 Тогда
           // Взаиморасчеты с нерезидентами.
           ПровестиПоРегистру(Регистр.Поставщики, Запрос, ПоставщикиРуб, ПоставщикиУпр, ПоставщикиЗадолженности);
       Иначе
           Если Запрос.пВидДолга <> глВД.АвансВал Тогда
               // Взаиморасчеты с резидентами.
               ПровестиПоРегистру(Регистр.Поставщики, Запрос, 0, ПоставщикиРезидентыУпр, ПоставщикиЗадолженности);
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры // ПровестиПоПоставщикам()

495 :

Пока Запрос.Группировка() = 1 Цикл
       Регистр.Поставщики.Договор      = Запрос.пДоговор;
       Регистр.Поставщики.ВидДолга     = Запрос.пВидДолга;
       Регистр.Поставщики.КредДокумент = Запрос.пКредДок;
       
       Если ВидыДолгаВал.Принадлежит(Запрос.пВидДолга) = 1 Тогда
           // Взаиморасчеты с нерезидентами.
           ПровестиПоРегистру(Регистр.Поставщики, Запрос, ПоставщикиРуб, ПоставщикиУпр, ПоставщикиЗадолженности);
       Иначе
           Если Запрос.пВидДолга <> глВД.АвансВал Тогда
               // Взаиморасчеты с резидентами.
               ПровестиПоРегистру(Регистр.Поставщики, Запрос, ПоставщикиРуб, ПоставщикиРезидентыУпр, ПоставщикиЗадолженности);
           КонецЕсли;
       КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры // ПровестиПоПоставщикам()

// Курсовая разница в бух. валюте.
   Если ФлагРуб <> 0 Тогда
       Если (ФлагЗадолж = 0) ИЛИ (ДатаДок >= Дата('01.01.2010') ) Тогда
           // Рассчитываем по страрому
           СуммаРуб = глПересчет(Запрос.фСуммаВал, Запрос.пВалюта, ДатаДок, глРубли, ДатаДок);
           СуммаРуб = Окр(СуммаРуб-Запрос.фСуммаРуб, 2);

       Иначе // с 2010 года переоцениваем НУ
           Если Запрос.пВидДолга = глВД.АвансВал Тогда
               СуммаРуб = 0; // авансы не переоцениваем
           Иначе                                      
               // задолженность переоцениваем
               СуммаРуб = глПересчет(Запрос.фСуммаВал, Запрос.пВалюта, ДатаДок, глРубли, ДатаДок);
               СуммаРуб = Окр(СуммаРуб-Запрос.пСуммаРуб, 2);
           КонецЕсли;
       КонецЕсли;
       
   КонецЕсли;

в (22) косяк

возьми на копии только док переоценку валюты и проверь

(24) Попробую, во вторник.
Хотя у буха вроде сошлось все, с последними изменениями.
Валютных операция мало, вручную проверяет.

А где в 22 косяк? Авансы не переоцениваются с 2010.

+25 В (22) переоценка по БУ или НУ?

1. авансы переоцениваются
2. попробуй перепровести декабрь переоценку

+ что такое контр-нерезидент в ТиСе ?

с кем расплачиваются по валютному БАНКОВСКОМУ счёту

Вообщем кому интересно !

Добавил в перечесление КодыОпераций новое перечесление "доп расходы по импорту"
в документе дописал что бы появилось в списке выбора операции, а все
проводки и движения по регистрам воткнул в справочник !!!

к (29) перечесление В КодыОпераций

(29) и всё ?