Имя: Пароль:
1C
1С v8
Как внести проводку, новой позиции!
,
0 Ленулькин
 
14.08.13
10:45
Есть новая позиция (Сыр) как ее внести в проводку чтобы он падал на счет 41.01 а он автоматически падает на счет 004.01. Подскажите как мне внести проводку? Спасибо
//*************08.06
    ЭтотОбъект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.НеЗачитывать;
    ЭтотОбъект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
    ЭтотОбъект.Склад = Справочники.Склады.НайтиПоКоду("00001");
    ЭтотОбъект.Организация = Справочники.Организации.НайтиПоКоду("00003");
    Выборка = Справочники.ДоговорыКонтрагентов.Выбрать(, ЭтотОбъект.Контрагент.Ссылка);
    ЭтотОбъект.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
    Пока Выборка.Следующий()=Истина Цикл
        Если Выборка.Организация<>Справочники.Организации.НайтиПоКоду("00003") Тогда
            Продолжить;
        КонецЕсли;
        
        Если выборка.ПометкаУдаления<>Истина Тогда
        ЭтотОбъект.ДоговорКонтрагента = Выборка.Ссылка;
        КонецЕсли;
    КонецЦикла;
    
    Для каждого ТС из Товары Цикл
        Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829")) <> Истина) Тогда
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
        иначе
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
        КонецЕсли;
        ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
        ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
        ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
        ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
                
        если (тс.ЦенаПоступления>тс.цена) или (тс.ЦенаПоступления=0)  тогда
        //    тс.ЦенаПоступления=тс.Цена;    
    конецесли;
КонецЦикла;
    //*************08.06
Код у сыров (02026) Помогите пожалуйта нужно срочно!(
1 Maxus43
 
14.08.13
10:47
ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");

сама туда ложишь
2 Maxus43
 
14.08.13
10:47
про код вообще - я помолчу лучше
3 Ленулькин
 
14.08.13
10:52
Я не поняла что ложить????
У меня при обмене в реализации выходит либо 41.01 на коде (01829), если я добаляю код (02026), то (01829) падает на счет 004.01 а мне нужно чтобы они оба падали на счет 41.01
Объясните пожалуйста если Вы знаете?
4 Maxus43
 
14.08.13
10:54
Положи Сыр с кодом 02026 в группу справочника с кодом 01829
5 Ленулькин
 
14.08.13
10:55
Нет так нельзя, в коде 01829 у меня масло, я не могу их смешивать! Еще как нибудь возможно?
6 Wobland
 
14.08.13
10:57
это что, система учёта критична к тому, в какой группе находится номенклатура?
7 Ленулькин
 
14.08.13
10:57
Для нашего бухгалтера критично!
8 Wobland
 
14.08.13
10:59
(7) да поровну на вашего бухгалтера. если сменить родителя, всё поломается или нет?
9 hhhh
 
14.08.13
11:00
(7) Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829")) <> Истина)
И ТС.Номенклатура <> Справочники.Номенклатура.НайтиПоКоду("02026") Тогда
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
        иначе
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
        КонецЕсли;
10 Ленулькин
 
14.08.13
11:01
Положила я сыр в эту группу, сделала обмен, только все равно он падает на счет 004.01. Не помогло((((
11 palpetrovich
 
14.08.13
11:01
(9) :)
12 hhhh
 
14.08.13
11:01
(8) в типовой БП то же самое. Группы в справочнике ПРОДУКЦИЯ, ТОВАРЫ, УСЛУГИ и т.д.
13 acsent
 
14.08.13
11:02
в бп счета задаются через регистр
14 salvator
 
14.08.13
11:03
Положите сыр на место!
15 Ленулькин
 
14.08.13
11:04
Сыр даво уже на месте
16 Ленулькин
 
14.08.13
11:09
Для каждого ТС из Товары Цикл
        Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829")) <> Истина)
            И ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026") )Тогда
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
        иначе
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
        КонецЕсли;
        ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
        ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
        ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
        ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
                
        если (тс.ЦенаПоступления>тс.цена) или (тс.ЦенаПоступления=0)  тогда
        //    тс.ЦенаПоступления=тс.Цена;    
    конецесли;
КонецЦикла
Вот Сделала как Вы писали, только все равно не получается так и падает этот гребанный сыр на счет 004.01
17 Масянька
 
14.08.13
11:11
(16) А где условие: И ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026") )Тогда
18 salvator
 
14.08.13
11:12
(16) Сыр - это 02026?
19 Ленулькин
 
14.08.13
11:12
да сыр по группе 02026
20 salvator
 
14.08.13
11:13
(19) Ну что написала, то и получаешь.
Сыр попадает на 004.01
21 Maxus43
 
14.08.13
11:15
(19) не путайся в показаниях. код самого сыра какой?
22 Масянька
 
14.08.13
11:15
(19) Еще раз:
у тебя - И ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026") )Тогда
а надо
И ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026")<>Истина )Тогда
23 Maxus43
 
14.08.13
11:15
Ну и в (9) был совершенно другой код, вы даже скопипастить не можете
24 acsent
 
14.08.13
11:16
не И а ИЛИ
25 Гефест
 
14.08.13
11:17
Без фото (не сыра) точно не взлетит
26 Ленулькин
 
14.08.13
11:21
Для каждого ТС из Товары Цикл
        Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829"))
            Или  ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("02026"))) <> Истина Тогда
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
        иначе
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
        КонецЕсли;
        ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
        ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
        ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
        ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
                
        если (тс.ЦенаПоступления>тс.цена) или (тс.ЦенаПоступления=0)  тогда
        //    тс.ЦенаПоступления=тс.Цена;

УРА!!!!!УРАА!!!! Вроде все получилось!
27 Ленулькин
 
14.08.13
11:22
Спасибо большое за помощь всем!)))) Большушеееее
28 Масянька
 
14.08.13
11:22
(26) Повезло. Но везение - странная штука.....
29 Wobland
 
14.08.13
11:23
(27) это не помощь, а наматывание изоленты на кривые костыли. код выкинуть, программиста позвать
30 Ленулькин
 
14.08.13
11:33
Ок спасибо за совет!