IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Активный Счет "скл" На 1c 7.7, написать программу по учету расходных материалов на ремонт авто.
сообщение
Сообщение #1


Бывалый
****

Группа: Пользователи
Сообщений: 318
Пол: Мужской

Репутация: -  0  +


Организация ООО "Автодор" оказывает транспортные услуги. Имеется свой автопарк
в 20 единиц. При организации есть ремонтная мастерская, где производится
ремонт транспортных средств.
Задача: написать программу по учету расходных материалов
на ремонт транспортных средств. Затраты должны отражаться на забалансовом,
количественном, активном счете "СКЛ". Итоги должны выводиться в отчет
"Оборотно-сальдовая
ведомость".


Что за активный счет "СКЛ" как его создать?



Вот что я сделал на данный момент:
1) http://s1.ipicture.ru/uploads/20120310/sTX12jz7.jpg

2) http://s1.ipicture.ru/uploads/20120310/Xbt3HyOz.jpg

3) http://s1.ipicture.ru/uploads/20120310/JAjnchud.jpg

На первом скрине, это печатная форма расходов на материалы потраченные на данный заказ наряд.

На 2-ом скрине реализовал приход материала, т.е. закупку самих этих материалов и справа на скрине показан документ заказ-наряд.

На 3-ем скрине уже показан документ "печать"..т.е. на этом документе я хотел как раз реализовать итог "оборотно-сальдовая ведомость".

Вот код модуля докмента "Приходматериалов":





Код:

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





Вот код модуля документа "заказ_наряд"



Код:

Код
Процедура ОбработкаПроведения()

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






вот код модуля документа печать





Код:

П
Код
роцедура ОбработкаПроведения()

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






не уверен ,только в двух последних кодах модулей.

Но смысл думаю таков:

1)Фиксирую определенное число товаров в документе "Приходматериалов"(Например 20 шин)
2)В документе "заказ-наряд" , оформляю сам заказ т.е. указываю количесвто материалов потраченные на починку авто(например в колонке кол_во указываю материал-шины, кол-во - 4шт.)
3)В документе печать уже выводиться итог ввиде "оборотно сальдовой ведомости".(т.е. указываю сколько было шин изначально т.е. 20 штук..и сколько потратилось т.е. 4 штуки..и выводим разность т.е. 16 штук)

Не знаю как вывести в итог изначальное кол-во материала т.е. шины, и сколько потрачено, и сколько осталось шин.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 6:56
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name