Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 14:27

Проводки в реализации

Автор lena.evdokimova, 15 авг 2013, 09:28

0 Пользователей и 1 гость просматривают эту тему.

lena.evdokimova

при обмене анных из торговли в бухгалтерию, реализация у нас по маслу (01829) выгружается по 41.04 счету проводки в дт/кт:
62.02 90.01.1
90.02.1 товар 41.04
теперь мы добавляем новую позицию сыр (02026) выгружаем реализацию по счету 41.04 но проводки в дт/кт встают:
сначала на 004.01
62.02 90.01.1
76.05.1 76.05.2
76.05.2 91.01


Для каждого ТС из Товары Цикл
      Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829"))
         Или  ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026"))) <> Истина Тогда
         //сообщить("1");
         ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
      Иначе
         //сообщить("2");
         ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
         ЭтотОбъект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");
      КонецЕсли;
      ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
      ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
      ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
      ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
   КонецЦикла;


   
   Если ОбменДанными.Загрузка Тогда
      Возврат;
   КонецЕсли;

если я убираю счет 004.01
Для каждого ТС из Товары Цикл
      Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829"))
         Или  ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026"))) <> Истина Тогда
      Иначе
         ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
         ЭтотОбъект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");
      КонецЕсли;
      ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
      ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
      ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
      ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
   КонецЦикла;


   
   Если ОбменДанными.Загрузка Тогда
      Возврат;
   КонецЕсли;
То все равно ничего не меняется.
подскажите подалуйста как мне сделать чтобы сыр (02026) вставал по реализации а дт/кт:
62.02 90.01.1
90.02.1 41.01

wise

я же ВЧЕРА тебе ГОВОРИЛ: попробуй использовать конструкцию {
Если ... Тогда

ИначеЕсли ... Тогда

Иначе

КонецЕсли;
}
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

lena.evdokimova

Цитата: wise от 15 авг 2013, 09:38
я же ВЧЕРА тебе ГОВОРИЛ: попробуй использовать конструкцию {
Если ... Тогда

ИначеЕсли ... Тогда

Иначе

КонецЕсли;
}

Для каждого ТС из Товары Цикл
      Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829"))  <> Истина) Тогда
         
      Иначе
         //сообщить("2");
         ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
         ЭтотОбъект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");
      КонецЕсли;
      ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
      ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
      ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
      ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
   КонецЦикла;

       Если (ТС.Номенклатура <> Справочники.Номенклатура.НайтиПоКоду("02026"))<>истина Тогда

           ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
         ЭтотОбъект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");

      иначе
       ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
     ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
     ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
     КонецЕсли;
   
   Если ОбменДанными.Загрузка Тогда
      Возврат;
   КонецЕсли;
Вот, но все равно он ставит счета 76.05.1
Добавлено: 15 авг 2013, 10:39


Как мне написать чтобы он счет
76.05.1 - 76.05.2
76.05.2 - 92.01

заменял только на
90.02.1 -41.04

Дринкинс

 а что это у тебя за 76052 и 76051
Добавлено: 18 авг 2013, 22:24


а вообще в реализации при типовой конфе 76 не применяется смотри сам объект. наверно чтото дописано

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск