Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Расчет себестоимости
Hellga
Отправлено: 17.01.17, 17:14


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 24.11.10
Пользователь №: 5438


Ирис @ 13.01.17, 22:02 * ,
Состав документа РС может меняться в зависимости от схемы учета производства (количества переделов, встречных выпусков, состава затрат). По моему опыту лучше все же найти специалиста, который поможет Вам в построении учета и закрытии первого периода. В данном случае не факт, что даже наличие книги решит все проблемы.
  Форум: 1С Управление производственным предприятием 8 · Просмотр сообщения: #121823 · Ответов: 59 · Просмотров: 27610
 

>  Как грамотно обновить конфигурацию УТП до актуальной версий?
Hellga
Отправлено: 07.07.16, 17:15


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 24.11.10
Пользователь №: 5438


Petre @ Сегодня, 8:44 *,
Не стоит так делать, можно получить неожиданный результат. В некоторых релизах еще нужно запускать само приложение для корректного перехода.
andr_andrey подсказал самый оптимальный результат.
  Форум: 1С Управление Торговым Предприятием 8 · Просмотр сообщения: #114239 · Ответов: 11 · Просмотров: 4018
 

>  Проведение Расходной Накладной
Hellga
Отправлено: 01.12.10, 15:03


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 24.11.10
Пользователь №: 5438


Цитата(MATEVI @ 01.12.10, 13:55) *
СпрПарт.НайтиПоКоду(Таб.Парт,1);
Таб.Парт это партия а нужно Таб.Парт.Код это код этой партии.

Спасибо большое за помощь.

Мне пришлось реализовать расчет цен по среднему.
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #14106 · Ответов: 3 · Просмотров: 4574
 

>  Проведение Расходной Накладной
Hellga
Отправлено: 01.12.10, 12:23


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 24.11.10
Пользователь №: 5438


В проведении Расходной Накладной при списании партий ФИФО|ЛИФО не получается найти значение партии по коду. Лист кода прилагаю:
Процедура ОбработкаПроведения() 
    
    Запрос = СоздатьОбъект("Запрос");
    Таб = СоздатьОбъект("ТаблицаЗначений");
    СпрПарт = СоздатьОбъект("Справочник.Партии");
    
    ВремРегистры=СоздатьОбъект("Регистры");
    Рег = ВремРегистры.ТМЦ;
    Рег.УстановитьЗначениеФильтра("ТМЦ",ТМЦ,1);
    Рег.УстановитьЗначениеФильтра("Склад",Склад,1);    
    Рег.УстановитьЗначениеФильтра("Партия",Партия,1);  
    
    Если ИтогиАктуальны()=0 Тогда
        Рег.ВременныйРасчет(1);
        ВремРегистры.РассчитатьРегистрыНа(ТекущийДокумент());
    КонецЕсли;  
    
    ТЗ = "    
            |Период с (НачалоПериодаБИ());
            |Товар = Регистр.ТМЦ.ТМЦ;
            |Скл = Регистр.ТМЦ.Склад;
            |Парт = Регистр.ТМЦ.Партия;
            |Кол = Регистр.ТМЦ.Количество;
            |Сум = Регистр.ТМЦ.Сумма;  
            |Функция КолКонОст = КонОст(Кол);
            |Функция СумКонОст = КонОст(Сум);
            |Группировка Товар Без Групп;
            |Группировка Скл Без Групп;
            |Группировка Парт упорядочить по Парт.Дата Без Групп;
            |Условие (Скл = Склад);
            |Без Итогов;
            |";

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

        Операция.НоваяПроводка();
        Операция.Дебет.Счет = СчетПоКоду("902");
        Операция.Кредит.Счет = СчетУчета;
        Операция.Кредит.ТМЦ = ТМЦ;
        Операция.Кредит.Партии = П;
        Операция.Кредит.МестаХранения = Склад;
        Операция.Сумма = УчСумма;
        Операция.Коментарий = "Списание товаров";

    КонецЦикла;          
    
    Регистр.Взаиморасчеты.Контрагент = Контрагент;
    Регистр.Взаиморасчеты.Сумма = Итог("Сумма")+Итог("НДС");
    Регистр.Взаиморасчеты.ДвижениеПриходВыполнить();
    
    Операция.НоваяПроводка();
    Операция.Дебет.Счет = СчетУКон;
    Операция.Дебет.Контрагент = Контрагент;
    Операция.Кредит.Счет = СчетПоКоду("702");
    Операция.Сумма = Итог("Сумма")+Итог("НДС");
    Операция.Коментарий = "Получение оплаты";

    Операция.НоваяПроводка();
    Операция.Дебет.Счет = СчетПоКоду("702");
    Операция.Кредит.Счет = СчетПоКоду("644");
    Операция.Сумма = Итог("НДС");
    Операция.Коментарий = "Учет НДС";

    Операция.Содержание = "Продажа товара";
    Операция.СуммаОперации = Итог("Сумма")+Итог("НДС");
    Операция.Записать();
    
КонецПроцедуры

Значения в таблицу все попадают, из таблицы код партии выдается правильно, а вот поиск по справочнику не происходит. Может у кого-то есть идеи, поделитесь пожалуйста?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #14084 · Ответов: 3 · Просмотров: 4574
 

>  Помогите устранить ошибку
Hellga
Отправлено: 29.11.10, 11:56


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 24.11.10
Пользователь №: 5438


Цитата(Ardi @ 29.11.10, 4:36) *
Регистр.ТМЦ.Партия = СпрПарт.ТекущийЭлемент();


Логично ))) Спасибо Вам большое!
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #13978 · Ответов: 2 · Просмотров: 3293
 

>  Помогите устранить ошибку
Hellga
Отправлено: 28.11.10, 22:51


Молчаливый
*

Группа: Пользователи
Сообщений: 6
Регистрация: 24.11.10
Пользователь №: 5438


Документ Приходная накладная. При проведении должны автоматически формировться партии ТМЦ (в справочнике Партии), Соответственно при проведении по регистру (остатков) ТМЦ должно заполнятся значние измерения Партия, а оно не заполняется. Ниже выкладываю лист кода. Подскажите, пожалуйста, в чем я не права.

Процедура ОбработкаПроведения()       
    
    Перем СпрПарт;              
    
    СпрПарт = СоздатьОбъект("Справочник.Партии");

    Регистр.Взаиморасчеты.Контрагент = Контрагент;
    Регистр.Взаиморасчеты.Сумма = Итог("Сумма");
    Регистр.Взаиморасчеты.ДвижениеРасходВыполнить();
    
    ВыбратьСтроки();
    Пока ПолучитьСтроку() = 1 Цикл  
        
        СпрПарт.ИспользоватьВладельца(ТМЦ);
        
        Если СпрПарт.НайтиПоРеквизиту("Документ",ТекущийДокумент(),0) = 1 Тогда
            СпрПарт.Дата = ДатаДок;
            СпрПарт.Цена = Цена;  
            СпрПарт.Записать();
        Иначе
            СпрПарт.Новый();
            СпрПарт.Дата = ДатаДок;
            СпрПарт.Цена = Цена;
            СпрПарт.Документ = ТекущийДокумент();
            СпрПарт.Записать();
        КонецЕсли;
        
        Регистр.ТМЦ.ТМЦ = ТМЦ;
        Регистр.ТМЦ.Склад = Склад;
        Регистр.ТМЦ.Количество = Количество;
        Регистр.ТМЦ.Сумма = Сумма;  
        Регистр.ТМЦ.Партия = СпрПарт.Код;
        Регистр.ТМЦ.ПривязыватьСтроку(НомерСтроки);
        Регистр.ТМЦ.ДвижениеПриходВыполнить();

    КонецЦикла;

КонецПроцедуры
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #13956 · Ответов: 2 · Просмотров: 3293
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 23.04.24, 14:50
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!