Имя: Пароль:
1C
1С v8
Поступление товаров в УПП
0 LamerSql
 
22.08.11
15:18
Управление производственным предприятием, редакция 1.3 (1.3.12.1).

Почему нет механизма заполнения СчетУчетаБУ при добавлении номенклатуры?
1 Eugeneer
 
22.08.11
15:20
Все есть.
2 Kashton
 
22.08.11
15:24
(0) Смотри регистр "Счета учета номенклатуры"
3 Stim213
 
22.08.11
15:24
счета учета номенклатуры
4 Grusswelle
 
22.08.11
15:25
Справочник номенклатура (форма списка) -> Перейти -> Счета учета номенклатуры. Удобно для группы, например. Там же см. виды номенклатуры. А также другие измерения.
5 LamerSql
 
22.08.11
16:27
ФИГ знает берет от сюда у меня счета УстановкаПараметровУчетаНоменклатуры в этой процедуре ПолучитьТекстЗапросаСчетовУчетаНоменклатуры
6 LamerSql
 
22.08.11
16:35
Процедура ЗаполнитьПриПроведенииСчетаУчетаТабличнойЧасти(ИмяТабличнойЧасти, ДанныеТабличнойЧасти, СтруктураШапкиДокумента) Экспорт
   
   Если ДанныеТабличнойЧасти.Количество()=0 Тогда
       //Пустую таблицу заполнять не будем
       Возврат;
   КонецЕсли;
   
   Если НЕ ИспользоватьОпределениеСчетовПриПроведенииДокументов(СтруктураШапкиДокумента.Дата) Тогда
       Возврат;
   КонецЕсли;
   
   ИмяДокумента = СтруктураШапкиДокумента.ВидДокумента;
   
   // Получим список заполняемых и контролируемых реквизитов
   ТаблицаРеквизитов        = ПолучитьРеквизитыСчетовУчета    (ИмяДокумента, ИмяТабличнойЧасти);
   
   Если НЕ СтруктураШапкиДокумента.Свойство("ОтражатьВБухгалтерскомУчете") ИЛИ НЕ СтруктураШапкиДокумента.ОтражатьВБухгалтерскомУчете Тогда
       
       // Если не указано отражение в БУ, то счета не нужно заполнять.
       
       // Могут быть реквизиты, которые заполняются, даже если документ не отражается в бухгалтерском учете
       Если ТаблицаРеквизитов.Найти("ПринадлежностьНоменклатуры", "Реквизит") = Неопределено Тогда
           // Если таких реквизитов в этой табличной части нет - то ничего не делаем
           Возврат;
       КонецЕсли;
       
   КонецЕсли;
   
   // дозаполним значения счетов учета
   // По реквизитам документа определим хозяйственную операцию
   ХозяйственнаяСитуацияДокумента = ОпределитьХозяйственнуюСитуациюПоДокументу(ИмяТабличнойЧасти, ИмяДокумента, СтруктураШапкиДокумента);

   УстановленныеСчета        = ПолучитьСчетаУчетаНоменклатурыИзДокумента(
                               СтруктураШапкиДокумента.Организация,
                               СтруктураШапкиДокумента.Дата,
                               ДанныеТабличнойЧасти.ВыгрузитьКолонку("Номенклатура")
                               );
                               
   РозничнаяТорговляОблагаетсяЕНВД = РозничнаяТорговляОблагаетсяЕНВД(СтруктураШапкиДокумента.Организация, СтруктураШапкиДокумента.Дата);
                               
   Для Каждого ДанныеСтроки Из ДанныеТабличнойЧасти Цикл
       
       ХозяйственнаяСитуация    = ОпределитьХозяйственнуюСитуациюПоСтроке(ИмяТабличнойЧасти, ИмяДокумента, СтруктураШапкиДокумента, ДанныеСтроки, ХозяйственнаяСитуацияДокумента);
       
       // Счета затрат
       УстановитьСчетаЗатрат(ДанныеСтроки, ТаблицаРеквизитов, ХозяйственнаяСитуация, СтруктураШапкиДокумента, ДанныеСтроки);
       
       // Субконто затрат
       УстановитьСубконтоЗатрат(ДанныеСтроки, ТаблицаРеквизитов);
       
       // Счета номенклатуры
       СтруктураСчетовУчета    = ПолучитьСтруктуруСчетовУчета(ДанныеСтроки.Номенклатура, УстановленныеСчета, РозничнаяТорговляОблагаетсяЕНВД);
       УстановитьСчетаУчета(ДанныеСтроки, ТаблицаРеквизитов, СтруктураСчетовУчета, ХозяйственнаяСитуация);
       
   КонецЦикла;
   
КонецПроцедуры
7 LamerSql
 
22.08.11
16:36
(2) Этот регистра вообще не используется. хотя на 8.1 с него брались счета.
8 shuhard
 
22.08.11
16:36
(7) документ распроведи "Установка параметров учета номенклатуры"
9 LamerSql
 
22.08.11
16:38
(8) так задумано что ли? вначале Установка параметров учета номенклатуры? токо потом то, что в (2)?
10 shuhard
 
22.08.11
16:38
(9) F1 отломали ?
11 LamerSql
 
22.08.11
16:44
(10) и что предлагаешь почитать?
12 LamerSql
 
22.08.11
16:44
(10) в (2) был совет Смотри регистр "Счета учета номенклатуры" я не вижу чтоб этот регистр использовался при поступлении товаров
13 shuhard
 
22.08.11
16:47
(12) плохо
ты не видишь, а УПП работает
14 LamerSql
 
22.08.11
16:52
форма документа управляемая:

&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)
   СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;
   ИзменениеНоменклатурыКлиент(СтрокаТабличнойЧасти);
КонецПроцедуры

СчетУчетаБУ не заполняется тут! ткните носом если ошибаюсь
15 LamerSql
 
22.08.11
16:58
(13) в общем ты в своей стихии, много умничаешь,а на прямо поставленные вопросы не отвечаешь.
16 Naumov
 
22.08.11
17:10
(14) А если посмотреть в ИзменениеНоменклатурыКлиент()?
17 LamerSql
 
22.08.11
17:12
(16)

ДанныеОбменаССервером = Новый Структура("Номенклатура, УчитыватьНДС, СуммаВключаетНДС");
   //Сведения, необходимые для расчета цены
   Если ЗначениеЗаполнено(Объект.ТипЦен) Тогда
       ДанныеОбменаССервером.Вставить("ТипЦен");
       ДанныеОбменаССервером.Вставить("Дата");
       ДанныеОбменаССервером.Вставить("ХарактеристикаНоменклатуры");
       ДанныеОбменаССервером.Вставить("Контрагент");
       ДанныеОбменаССервером.Вставить("ВалютаДокумента");
       ДанныеОбменаССервером.Вставить("КурсВзаиморасчетов");
       ДанныеОбменаССервером.Вставить("КратностьВзаиморасчетов");
       ДанныеОбменаССервером.Вставить("ДоговорКонтрагента");
       ДанныеОбменаССервером.Вставить("УсловиеПродаж");
   КонецЕсли;
   ЗаполнитьЗначенияСвойств(ДанныеОбменаССервером, Объект);
   ЗаполнитьЗначенияСвойств(ДанныеОбменаССервером, СтрокаТабличнойЧасти);
   
   // Получим все необходимые данные на сервере
   ЗначенияДляЗаполнения = ИзменениеНоменклатурыСервер(ДанныеОбменаССервером);
   
   // Заполним реквизиты строки
   ЗаполнитьЗначенияСвойств(СтрокаТабличнойЧасти, ЗначенияДляЗаполнения);
   РаботаСДиалогамиКлиент.РассчитатьКоличествоМестТабЧасти(СтрокаТабличнойЧасти, ДанныеОбменаССервером.СведенияЕдиницаИзмеренияМест);
   РаботаСДиалогамиКлиент.РассчитатьСуммуТабЧасти(СтрокаТабличнойЧасти);
   РаботаСДиалогамиКлиент.РассчитатьСуммуНДСТабЧасти(СтрокаТабличнойЧасти, ПроцентыСтавокНДС, ДанныеОбменаССервером);
18 LamerSql
 
22.08.11
17:13
(16) ни фига там нет, может из того что на ру-боаде скачал? фиговая конфигурация такая?
19 klikotold
 
22.08.11
17:14
Регистр сведений "Счета учета номенклатуры" - уже много давало этот ответ. Это самые первые грабли об которые спотыкаются пока не найдут в УПП.
20 shuhard
 
22.08.11
17:17
(16)
(19)
список неудачников шириться
прикольно
от Naumov не ожидал
21 LamerSql
 
22.08.11
17:17
(19) что то я не понял, что ты хотел сказать?

 //Сведения, необходимые для расчета цены

   Если ЗначениеЗаполнено(Объект.ТипЦен) Тогда
       ДанныеОбменаССервером.Вставить("ТипЦен");
       ДанныеОбменаССервером.Вставить("Дата");
       ДанныеОбменаССервером.Вставить("ХарактеристикаНоменклатуры");
       ДанныеОбменаССервером.Вставить("Контрагент");
       ДанныеОбменаССервером.Вставить("ВалютаДокумента");
       ДанныеОбменаССервером.Вставить("КурсВзаиморасчетов");
       ДанныеОбменаССервером.Вставить("КратностьВзаиморасчетов");
       ДанныеОбменаССервером.Вставить("ДоговорКонтрагента");
       ДанныеОбменаССервером.Вставить("УсловиеПродаж");
   КонецЕсли;
   ЗаполнитьЗначенияСвойств(ДанныеОбменаССервером, Объект);
   ЗаполнитьЗначенияСвойств(ДанныеОбменаССервером, СтрокаТабличнойЧасти);
   
   // Получим все необходимые данные на сервере

   ЗначенияДляЗаполнения = ИзменениеНоменклатурыСервер(ДанныеОбменаССервером);
   
   // Заполним реквизиты строки

   ЗаполнитьЗначенияСвойств(СтрокаТабличнойЧасти, ЗначенияДляЗаполнения);
   РаботаСДиалогамиКлиент.РассчитатьКоличествоМестТабЧасти(СтрокаТабличнойЧасти, ДанныеОбменаССервером.СведенияЕдиницаИзмеренияМест);
   РаботаСДиалогамиКлиент.РассчитатьСуммуТабЧасти(СтрокаТабличнойЧасти);
   РаботаСДиалогамиКлиент.РассчитатьСуммуНДСТабЧасти(СтрокаТабличнойЧасти, ПроцентыСтавокНДС, ДанныеОбменаССервером);

Где ты тут видишь что бы заполнялся счет учета Бу?
22 LamerSql
 
22.08.11
17:20
(20) я тебя очень прошу есть чем помочь помоги. А тролить не надо иди в другие ветки.
23 mikecool
 
22.08.11
17:21
искать лом, телепатирую - здесь ЗначенияДляЗаполнения = ИзменениеНоменклатурыСервер(ДанныеОбменаССервером);
25 burovik86
 
22.08.11
17:25
(22)он тебе же написал...

Насколько я понимаю:
Если есть документ в (7), то данные берутся из него.
Если его нет, то рег. свед. "Счета учета ном."
26 LamerSql
 
22.08.11
17:26
(24) И где я тебе нахамил?
27 shuhard
 
22.08.11
17:27
(26) оху.еть, в (15) не 100% хамство ?
28 LamerSql
 
22.08.11
17:27
(23)

Функция ИзменениеНоменклатурыСервер(ДанныеДляЗаполнения)
   
   ЗначенияДляЗаполнения = РаботаСДиалогамиСервер.ИзменениеНоменклатуры(ДанныеДляЗаполнения);
   ЗначенияДляЗаполнения.Вставить("СтавкаНДС",            ДанныеДляЗаполнения.Номенклатура.СтавкаНДС);
   Если ДанныеДляЗаполнения.Свойство("ТипЦен") Тогда
       //Добавим сведения о ценах
       ДанныеДляЗаполнения.Вставить("ЕдиницаИзмерения", ЗначенияДляЗаполнения.ЕдиницаИзмерения);
       ДанныеДляЗаполнения.Вставить("СтавкаНДС", ЗначенияДляЗаполнения.СтавкаНДС);
       Цена = ОпределитьЦенуНоменклатуры(ДанныеДляЗаполнения);
       ЗначенияДляЗаполнения.Вставить("Цена", Цена);
   КонецЕсли;
   
   Возврат ЗначенияДляЗаполнения;
   
КонецФункции
29 LamerSql
 
22.08.11
17:28
(13)

(12) плохо
ты не видишь, а УПП работает
30 LamerSql
 
22.08.11
17:30
люди может у меня конфигурация липовая....


Функция ИзменениеНоменклатурыСервер(ДанныеДляЗаполнения)
   
   ЗначенияДляЗаполнения = РаботаСДиалогамиСервер.ИзменениеНоменклатуры(ДанныеДляЗаполнения);
   ЗначенияДляЗаполнения.Вставить("СтавкаНДС",            ДанныеДляЗаполнения.Номенклатура.СтавкаНДС);
   Если ДанныеДляЗаполнения.Свойство("ТипЦен") Тогда
       //Добавим сведения о ценах
       ДанныеДляЗаполнения.Вставить("ЕдиницаИзмерения", ЗначенияДляЗаполнения.ЕдиницаИзмерения);
       ДанныеДляЗаполнения.Вставить("СтавкаНДС", ЗначенияДляЗаполнения.СтавкаНДС);
       Цена = ОпределитьЦенуНоменклатуры(ДанныеДляЗаполнения);
       ЗначенияДляЗаполнения.Вставить("Цена", Цена);
   КонецЕсли;
   
   Возврат ЗначенияДляЗаполнения;
   
КонецФункции
очень сильно кажется, что должен счет учета БУ определяться именно тут. Покажите у кого определяется тут счет учета, чтоб я просто подыскал новую конфу.
31 Aprobator
 
22.08.11
17:33
(30) вот тупо поиск по конфе, где обращения к РС не сделать? А потом глянуть, а откуда вызов этой процедуры идет? Делов на 15 минут.
32 LamerSql
 
22.08.11
17:39
ИзменениеНоменклатурыСервер в этой процедуре ничего нет у меня. что заполняло бы счетучетабу.
33 LamerSql
 
22.08.11
17:40
(31) следовательно или у меня конфигурация дурацкая потому что пиратская, либо управляемую форму для этого релиза до конца не доработали.
34 LamerSql
 
22.08.11
17:41
видать один  shuhard знает (большой вопрос правда знает ли), но он обиделся
35 shuhard
 
22.08.11
17:42
(34) правильно
обосри 1С
обхами форум
и люди к тебе потянутся
большей частью с дубьём
36 LamerSql
 
22.08.11
17:44
(35) да ладно тебе, нечего сказать просто.
37 Aprobator
 
22.08.11
17:45
(33) не верю, что в конфе не найти обращений к требуемому РС глобальным поиском в модулях.
38 Aprobator
 
22.08.11
17:45
(36) не мил человек. На слабо, без извинений не разведешь.
39 LamerSql
 
22.08.11
17:47
(38) а чего перед ним извиняться? он говнбк редкостный, уже не первую тему замечаю как он с людьми общается
40 shuhard
 
22.08.11
17:48
(38) + 1
тёртые УПП-писты упёрты
и знают толк в манипуляциях
41 Aprobator
 
22.08.11
17:50
(39) со мной нормально общается. Может ты просто просить не умеешь?
42 LamerSql
 
22.08.11
17:51
(38) есть такая функция ПолучитьТекстЗапросаСчетовУчетаНоменклатуры, но при смене номенклатуры она не вызывается...
43 mikecool
 
22.08.11
17:52
прошло 2 часа - уже тупо отладкой пройтись можно было
44 Aprobator
 
22.08.11
17:54
(42) значит вызывается из другого места, а то место вызывается из .....
(43) ну для этого надо додуматься как РС заполнить. Там же хелп по заполнению тяжело прочитать, да и не интересно. А вот тут, конкретно посравшись с кем нибудь, получить результат - ну такое удовлетворение после настает.
45 LamerSql
 
22.08.11
17:54
(43) давным давно пройдено все. еще до того как пост на мисте разместил. у меня конфа видимо неполная. такое впечатление кусков кода нет.
46 Aprobator
 
22.08.11
17:56
(45) куски кода из конфы выдрали? Вот шакалы!
47 LamerSql
 
22.08.11
17:58
(46) и ты туда же. скажи тогда откуда заполняется. а я скажу есть или нет у меня такой код )))
Независимо от того, куда вы едете — это в гору и против ветра!