[onis]

Добрий день шановні, я звертаюсь до вас за допомогою написання модуля(ів)

Я зробив в документах документ "переробка продукції", зробив форму і таблицю, тепер мені потрібна допомога з написанням модулів обробки,

Теоретично так:
Наприклад:Переробляємо (обвалюємо) 225 кг "Курячої тушки".
З цієї ваги виходить
Філе курки 45
Крило 25
шкіра 15
м'ясо 72
та інше?
також заносяться ціни по яким я хочу продавати цю продукцію
назва вага ціна Сума Вихід % прибуток Прибуток 1 КГ
Філе курки 45 35 =45*35 =45/225*100
Крило 25 12
шкіра 15 9
м'ясо 72 35

і внас виходить 1С вираховує суму по кожній позиції, і разом по всіх позиція , вихід в процентах по кожні позиції і разом по всіх позиціях ,Прибуток всього (Загальна Сума-суму закупки) і прибуток за 1 кг(Прибуток/кількість закуплиної продукції
також вираховується ЗП за переробку(обвалку)

Це все я зробив екселії як це повинно працювати, але,я не знаю як це можна зробити в 1с.
Я викладаю файлик з своєю базою що я зробив, і екселі як це повинно бути.
Прошу вибачення файл викладаю на ifolder, без реклами бо тут щось не знайшов
[необходимо зарегистрироваться для просмотра ссылки]

За критику не буду ображатися, бо це я вперше робив
за допомогу дякую

Забув
1С 7,7 "торгівля + склад для України"

[Batchir]

Потрібно допомога з модулем переробки продукції

Во как. Там хз сколько две строчки кода, может кто поможет?

[Vofka]

Сообщение = "Боря, помоги с модулем по производству. Забув 1С 7,7 торгівля + склад для України";

ПолучениеДоработок = СоздатьОбъект("ПолучениеДоработок");
ПолучениеДоработок.Сообщение = Сообщение;

Доработки = ПолучениеДоработок.Получить();
Доработки.ОбновитьКонфигурацию();
Доработки.Профит();

[onis]

Сообщение = "Боря, помоги с модулем по производству. Забув 1С 7,7 торгівля + склад для України";

ПолучениеДоработок = СоздатьОбъект("ПолучениеДоработок");
ПолучениеДоработок.Сообщение = Сообщение;

Доработки = ПолучениеДоработок.Получить();
Доработки.ОбновитьКонфигурацию();
Доработки.Профит();

Смішно, но допомогти треба

[Zaval]

Це і справді весело...

ТіС, у якому це буде реалізовано, стане "виробничніший, ніж ПУБ"

З чим саме проблема?

[Vofka]

Смішно, но допомогти треба

Если вы не поняли, то самое смешное то, что поставленная вами задача - это славный кусок работы. И никто его за бесплатно выполнять не будет. Если есть конкретные вопросы - задавайте, а если только 1 глобальный вопрос "как сделать?", то ответ только такой: обратиться к специалисту.

[onis]

Це і справді весело...

ТіС, у якому це буде реалізовано, стане "виробничніший, ніж ПУБ"

З чим саме проблема?

Дякую

 //*****************************************************************************
Перем СтараяДата;
                                                         
Перем НачальнаяДатаДокумента; // Для контроля даты документа
Перем ОстаткиТоваров, РезервыТоваров, ОбщРег;
Перем ТекстВалюты;
//*****************************************************************************
Функция ЗаголовокФормы() 
    Перем Заголовок, Название;
    Заголовок = "Переработка продукции";
    Название = "Переработка продукции №";
    Заголовок = Заголовок + глЗаголовок(Контекст);
    Форма.Заголовок(Заголовок);     
    Возврат Название;
КонецФункции //ЗаголовокФормы

//===============================
Функция УстДоступность()  
    Форма.ТекстВалюты.Заголовок(глСтрокаВалюты(Контекст));
    Возврат "";
КонецФункции

//******************************************************************************
Процедура ИзмДата()
    глПриИзмененииДатыДокумента(Контекст, СтараяДата);
КонецПроцедуры
             
// ===============================
Процедура ИзмВалюта()
    Дата_Курса = ДатаДок;
    Курс=глКурсДляВалюты(Валюта,Дата_Курса);
КонецПроцедуры //ИзмВалюта

//*****************************************************************************
Процедура ВыборФирмы()
    // по кнопке редактирования параметров фирмы в докумнете
    Перем КонтекстДокумента;
    КонтекстДокумента = глВзятьКонтекст(Контекст);
    ОткрытьФормуМодально("Обработка.ИнформацияОфирме", КонтекстДокумента);
КонецПроцедуры    
               
// ===============================
Процедура НовыйНормыВыхода()
    Если Продукция.Выбран() = 1 Тогда
        ОткрытьФорму("Документ.НормыВыхода",Продукция);
    КонецЕсли;
КонецПроцедуры
                      
// ===============================
Процедура ИзмПродукция()
    Если Продукция.Выбран()=0 Тогда
        Возврат;
    КонецЕсли;    
    НормыВыхода = Продукция.НормыВыхода.Получить(ДатаДок); 
    ЕдПродукции = Продукция.ЕдиницаПоУмолчанию;
    КоэффициентПродукции = ЕдПродукции.Коэффициент;  
    Валюта = Продукция.ВалютаУчета;
    ИзмВалюта();
КонецПроцедуры //ИзмПродукция

//*****************************************************************************
Процедура Заполнить()       
    Если ПустоеЗначение(НормыВыхода)=0 Тогда
        УдалитьСтроки();
        ДокОснования = НормыВыхода;
        ДокОснования.ВыбратьСтроки();
        Пока ДокОснования.ПолучитьСтроку()=1 Цикл
            НоваяСтрока();
            Товар=ДокОснования.Элемент;
            Единица=ДокОснования.Ед;
            Коэффициент=ДокОснования.Коэффициент;    
            Попытка
                Количество=ДокОснования.Кво*КвоПродукции*КоэффициентПродукции/ДокОснования.КвоПродукции*ДокОснования.КоэффициентПродукции;
            Исключение
            КонецПопытки;
            ПроцентСтоимости = ДокОснования.ПроцентСтоимости;
        КонецЦикла;
    КонецЕсли;
КонецПроцедуры    


//*****************************************************************************
Процедура ВыборОснования()
    Заполнить();
КонецПроцедуры    
                                             
//*****************************************************************************
// Предопределенные процедуры
                         
//*****************************************************************************
Процедура ПриНачалеВыбораЗначения(Рекв,Флаг)
    Флаг=0;
    Если (Рекв="Фирма") Тогда
        ВыборФирмы();
    Иначе
        Флаг=1;
    КонецЕсли;
КонецПроцедуры

//******************************************************************************
Процедура ВводНового(Скопирован)    // предопределенная процедура
    глЗаполнитьШапку(Контекст);
    ДатаДок=РабочаяДата();
    Валюта = Гривня;
КонецПроцедуры

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

//******************************************************************************
Процедура ПриНачалеРедактированияСтроки()

КонецПроцедуры

//******************************************************************************
Процедура ПриРедактированииНовойСтроки()

КонецПроцедуры

//******************************************************************************
Процедура ПриОткрытии()    // предопределенная процедура
    НачальнаяДатаДокумента = ДатаДок;
    глПроверкаДатыДок(Контекст,"Открытие");
    //Если Форма.ТолькоПросмотр()=1 Тогда
    //    Форма.кнОК.Доступность(0);
    //    Форма.кнПровести.Доступность(0);
    //    Форма.кнЗаполнить.Доступность(0);
    //    Форма.КнопкаПоУмолчанию("кнЗакрыть");
    //Иначе
        Форма.КнопкаПоУмолчанию("кнОК");
    //КонецЕсли; 
    глУстановкаРеквизитаТип(Контекст);
    СтараяДата = ДатаДок;
КонецПроцедуры    // ПриОткрытии

//*****************************************************************************
Процедура ПриЗаписи() //Предопределенная процедура
    глПроверкаДатыДок(Контекст,"Запись");
    Если глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента)=1 Тогда
        СтатусВозврата(0);
    Иначе
        ЗаголовокФормы();
    КонецЕсли;
КонецПроцедуры

Коли виводиш на друк то в стовпці ціна показується "ПечЦена". також замість сум "ПечСумма"
пише таку помилку

Переменная не определена (ПечЦена)
ПечСумма<<?>>
Переменная не определена (ПечСумма)

я так думаю що я щось забув в модулю

[Zaval]

1. В циклі, де перебираються рядки дока - присвоїти значення цим змінним.
2. В таблиці замість них написати безпосередньо реквізити рядка.

Обирайте варіант.
Подивіться в будь-якому документі.

[Стрелок]

Модуль формы - порядка 400 строк
Модуль документа - порядка 600 строк

копипастить?

[Домовик]

Коли виводиш на друк то в стовпці ціна показується "ПечЦена". також замість сум "ПечСумма"
пише таку помилку
Цитата
Переменная не определена (ПечЦена)
ПечСумма<<?>>
Переменная не определена (ПечСумма)

я так думаю що я щось забув в модулю


+Цитировать сообщение

в таблиці, яку ви виводите, є секція Строка, Ви вказали там Печцена, ПечСумма. Але ці змінні не визначили. Якщо в табл. частині існують реквізити Цена, Сумма. То в секції теж потрібно вказати саме такі найменування.
Формат - не завадить, але це наступний крок. виправте хоч так.

код повністю звісно писати вам ніхто не буде. Почність писати модулі. Поступово, по ходу запитуйте. Як в даному разі. так швидше отримаєте відповіді.

Сообщение отредактировал Домовик - 16.02.12, 11:00

[onis]

в таблиці, яку ви виводите, є секція Строка, Ви вказали там Печцена, ПечСумма. Але ці змінні не визначили. Якщо в табл. частині існують реквізити Цена, Сумма. То в секції теж потрібно вказати саме такі найменування.
Формат - не завадить, але це наступний крок. виправте хоч так.

напишіть будь-ласка приклад(можна з мого модуля) я вже раз 5 пробував, але щось пока не виходить

[Домовик]

напишіть будь-ласка приклад(можна з мого модуля) я вже раз 5 пробував, але щось пока не виходить

а ведь написать ОбработкаПроведения() потяжелее будет.... К тому же решить задачу в целом. Т.е какой-какие регистры будут затронуты в движениях.

по этой задаче.
Смотрите: чтобы дописать модуль нужно хотя бы знать наименования реквизитов табличной части документа, которые соотвествуют Цене и Сумме.
Посмотрите, как они называются. Можно оставить секцию "Строка" в покое, и изменить модуль. Сейчас допишу.


Если этот код подставляете, то оставляете вид вашей таблицы, как было изначально. Главное! Подставляете наименования реквизитов Вашей таб части. И! Проверьте! Где ВЫ их создали, они должны присутствовать в перечисленных реквизитах созданного документа, а не просто быть колонками на форме

// ===============================
Процедура Печать()
    Таб = СоздатьОбъект("Таблица");  
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ВывестиСекцию("Шапка");
    Ном=1; 
        ПечЦена=""; ПечСумма=""; //{{}} Домовик - "обнуляем" 
    ВыбратьСтроки();
    Пока ПолучитьСтроку()=1 Цикл                
        //Услуги печатаются в акте
        Если Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга Тогда
            Продолжить;
        КонецЕсли;
        ПечЦена=Формат(ИмяРеквизита_Цена, "Ч12.2");  //{{ добавлены строки Домовиком
        ПечСумма=Формат(ИмяРеквизита_Сумма, "Ч14.2"); //}}
        Таб.ВывестиСекцию("Строка");
        Ном = Ном+1; 
    КонецЦикла;
    Таб.ВывестиСекцию("Дно");
    Таб.Защита(Константа.ФлагЗащитыТаблиц);
    Таб.ТолькоПросмотр(1);
    Таб.Опции(0,0,,);
    Таб.Показать("ПЕЧАТЬ: ПереработкаПродукции","");
КонецПроцедуры

Сообщение отредактировал Домовик - 18.02.12, 9:27