Логистика в 1с

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

Ответить

Наша фирма развозит товар с нашего склада по магазинам
Создана обработка с печатной формой (могу отправить на адрес?)

Модуль в обработке такой

Перем ВысотаЗаголовка;
Перем ИдентификаторОкнаРасшифровки;
Перем ФормаНастройка;
Перем СтруктураРеквизитов;
Перем НеЗаполнятьНастройкиПриОткрытии;
Перем СтруктураСвязиЭлементовСДанными;
Перем ОтборРазвернут;

Перем Менеджеры;
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ

// Управляет пометками кнопок ком. панели
//
// Параметры:
// Нет.
//
Процедура УправлениеПараметрамиОтображенияЭлементовФормы()

Если ПоказыватьЗаголовок Тогда
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Заголовок.Пометка = Истина;
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Подменю.Кнопки.Заголовок.Пометка = Истина;

Иначе
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Заголовок.Пометка = Ложь;
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Подменю.Кнопки.Заголовок.Пометка = Ложь;

КонецЕсли;

Если ОтборРазвернут Тогда
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Отбор.Пометка = Истина;
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Подменю.Кнопки.Отбор.Пометка = Истина;
ЭлементыФормы.ПанельОтбор.Свертка = РежимСверткиЭлементаУправления.Нет;
Иначе
ЭлементыФормы.ПанельОтбор.Свертка = РежимСверткиЭлементаУправления.Верх;
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Отбор.Пометка = Ложь;
ЭлементыФормы.КоманднаяПанельФормы.Кнопки.Подменю.Кнопки.Отбор.Пометка = Ложь;
КонецЕсли;

КонецПроцедуры // УправлениеПараметрамиОтображенияЭлементовФормы()

// Обновляет таблицу отчета
//
// Параметры:
// Нет.
//
Процедура ОбновитьОтчет() Экспорт

НеЗаполнятьНастройкиПриОткрытии = Не Открыта();

ЭтотОтчет.СформироватьОтчет(ЭлементыФормы.ДокументРезультат, ПоказыватьЗаголовок, ВысотаЗаголовка);
ЭтаФорма.ТекущийЭлемент = ЭлементыФормы.ДокументРезультат;

УправлениеПараметрамиОтображенияЭлементовФормы();

КонецПроцедуры // ОбновитьОтчет()

// Управляет выводом заголовка
//
// Параметры:
// Нет.
//
Процедура ВыводЗаголовка()

// Перезаполнять заголовок можно только у «чистого» отчета
Если ЭлементыФормы.ДокументРезультат.ВысотаТаблицы = 0 Тогда

ЭтотОтчет.СформироватьОтчет(ЭлементыФормы.ДокументРезультат, ПоказыватьЗаголовок, ВысотаЗаголовка, Истина);

КонецЕсли;

КонецПроцедуры // ВыводЗаголовка()

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ — ОБРАБОТЧИКИ НАЖАТИЯ КНОПОК КОМАНДНОЙ ПАНЕЛИ

// Процедура — обработчик нажатия кнопки «Настройка».
//
Процедура КоманднаяПанельФормыНастройка(Кнопка)

ФормаНастройка = ЭтотОтчет.ПолучитьФормуНастройки();
ФормаНастройка.ВладелецФормы = ЭтаФорма;

СтруктураСНастройками = ЭтотОтчет.СформироватьСтруктуруДляСохраненияНастроек(ПоказыватьЗаголовок);

СтараяДатаКон = ДатаКон;
СтараяДатаНач = ДатаНач;

РезультатОткрытия = ФормаНастройка.ОткрытьМодально();

Если РезультатОткрытия = Истина Тогда

ОбновитьОтчет();

Иначе

// Форму закрыли эскейпом или по «Закрыть» — восстановим настройки, отчет формировать не будем!
// Восстанавливаем сохраненные значения

ЭтотОтчет.ВосстановитьНастройкиИзСтруктуры(СтруктураСНастройками, ПоказыватьЗаголовок);

ДатаКон = СтараяДатаКон;
ДатаНач = СтараяДатаНач;

КонецЕсли;

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

// Процедура — обработчик нажатия кнопки «Отбор».
//
Процедура КоманднаяПанельФормыОтбор(Кнопка)

ОтборРазвернут = НЕ ОтборРазвернут;

УправлениеПараметрамиОтображенияЭлементовФормы();

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

// Процедура — обработчик нажатия кнопки «Обновить».
//
Процедура КоманднаяПанельФормыОбновить(Кнопка)

ТабДокумент = Новый ТабличныйДокумент;

Запрос = Новый Запрос;
Запрос.УстановитьПараметр(«ДатаОтгрузки», ЭтотОбъект.ДатаКон);
Запрос.Текст =»
|ВЫБРАТЬ
|ЗаказПокупателя.ДатаОтгрузки,
|ЗаказПокупателя.Контрагент КАК Контрагент,
|ЗаказПокупателя.Номер,
|ЗаказПокупателя.Дата
|{ВЫБРАТЬ
|ДатаОтгрузки,
|Контрагент.*}
|ИЗ
|Документ.ЗаказПокупателя КАК ЗаказПокупателя
|ГДЕ
|ЗаказПокупателя.ДатаОтгрузки = &ДатаОтгрузки
|СГРУППИРОВАТЬ ПО
|ЗаказПокупателя.Контрагент.ГоловнойКонтрагент,
|ЗаказПокупателя.Контрагент,
|ЗаказПокупателя.ДатаОтгрузки,
|ЗаказПокупателя.Номер,
|ЗаказПокупателя.Дата
|УПОРЯДОЧИТЬ ПО
|ЗаказПокупателя.Контрагент.ГоловнойКонтрагент
|»;

ЗапросЗаказы = Запрос.Выполнить().Выгрузить();

Макет = этототчет.ПолучитьМакет(«МаршрутЗаказа»);

ОбластьЗаголовка = Макет.ПолучитьОбласть(«Заголовок»);
текст = «Маршрутный лист на «+строка(формат(ЭтотОбъект.ДатаКон,»ДФ=»"дд.ММ.гггг»"»));
ОбластьЗаголовка.Параметры.ТекстЗаголовка = текст;
ТабДокумент.Вывести(ОбластьЗаголовка);

ОбластьШапки = Макет.ПолучитьОбласть(«ШапкаТаблицы»);
ТабДокумент.Вывести(ОбластьШапки);

ОбластьГолКонтр = Макет.ПолучитьОбласть(«ГоловКонтр»);

ОбластьНомера = Макет.ПолучитьОбласть(«Строка|НомерСтроки»);
ОбластьДанных = Макет.ПолучитьОбласть(«Строка|Данные»);
ОбластьВеса = Макет.ПолучитьОбласть(«Строка|вес»);
ОбластьАдреса = Макет.ПолучитьОбласть(«Строка|АдресДоставки»);
ОбластьВодитель = Макет.ПолучитьОбласть(«Строка|Водитель»);
НумераторСтрок = 0;

головКонтрТекущий = «»;
головКонтрСлед = «»;
Для каждого ВыборкаСтрокЗаказы Из ЗапросЗаказы Цикл

//————————————————
ВыбранныйЗаказ = ВыборкаСтрокЗаказы.номер;
ТекстЗапроса=»";
ЭтоЧисло = Истина;
Попытка
НомерКакЧисло = Число(ВыбранныйЗаказ);
Исключение
ЭтоЧисло = Ложь;
КонецПопытки;

ИмяДока=»ЗаказПокупателя»;
МетаданныеДокумента = Метаданные.Документы[ИмяДока];
Если МетаданныеДокумента.ТипНомера=Метаданные.СвойстваОбъектов.ТипНомераДокумента.Число Тогда
Если Не ЭтоЧисло Тогда
Продолжить;
КонецЕсли;
ИскомыйНомер = НомерКакЧисло;
Иначе
ИскомыйНомер = «»"»+ВыбранныйЗаказ+»"»";
КонецЕсли;

ТекстЗапроса=ТекстЗапроса+»
|Выбрать «+?(ТекстЗапроса=»", «РАЗРЕШЕННЫЕ «, «»)+»Дата, Ссылка Из Документ.»+ИмяДока+» Как Док
|ГДЕ «;
ТекстЗапроса=ТекстЗапроса+» (Дата>=&НачалоИнтервала) И (Дата<=&КонецИнтервала) И «;

ТекстЗапроса=ТекстЗапроса+»
|Док.Номер=»+ИскомыйНомер+»
|UNION»;

Если ПустаяСтрока(ТекстЗапроса) Тогда
Возврат;
КонецЕсли;
ТекстЗапроса=(Лев(ТекстЗапроса, СтрДлина(ТекстЗапроса)-СтрДлина(«UNION»)));
ТекстЗапроса=ТекстЗапроса+»
|УПОРЯДОЧИТЬ ПО Дата»;
Запрос=Новый Запрос;
Запрос.Текст=ТекстЗапроса;
Запрос.УстановитьПараметр(«НачалоИнтервала», НачалоДня(Дата(2008,01,01)));
Запрос.УстановитьПараметр(«КонецИнтервала», КонецДня(ТекущаяДата()));
докум = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку(1)[0];
//————————————-

//sam———————————— головной контрагент

если докум.пометкаудаления = истина тогда
продолжить;
конецесли;
головКонтрТекущий = докум.контрагент.ГоловнойКонтрагент;
если головКонтрТекущий головКонтрСлед тогда
ОбластьГолКонтр.Параметры.Головнойконтрагент = головКонтрТекущий;
ТабДокумент.Присоединить(ОбластьГолКонтр);
головКонтрСлед = головКонтрТекущий;

конецесли;
//
//sam——————————-

НумераторСтрок = НумераторСтрок + 1;
ОбластьНомера.Параметры.НомерСтроки = НумераторСтрок;
ТабДокумент.Вывести(ОбластьНомера);

ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокЗаказы);
ОбластьДанных.Параметры.ДатаОтгрузки = Формат(ВыборкаСтрокЗаказы.ДатаОтгрузки,»ДФ=»"дд.ММ.гггг»"») + докум.ВремяОтгрузки;
ОбластьДанных.Параметры.контрагент = СокрП(ВыборкаСтрокЗаказы.Контрагент);
ТабДокумент.Присоединить(ОбластьДанных);

//=======================
Вес = 0;
для НомерТовара = 0 по (докум.товары.количество()-1) цикл
Вес = вес + (докум.товары[НомерТовара].количество*докум.товары[НомерТовара].Коэффициент); //умножить на коэф

конеццикла;
ОбластьВеса.Параметры.Вес = строка(Вес);
ТабДокумент.Присоединить(ОбластьВеса);

АдресДоставки = докум.АдресДоставки;
ОбластьАдреса.Параметры.АдресДоставки = АдресДоставки;
ТабДокумент.Присоединить(ОбластьАдреса);

ТабДокумент.Присоединить(ОбластьВодитель);

конеццикла;
ОбластьПодписи = Макет.ПолучитьОбласть(«ПодвалЗаказа»);
ТабДокумент.Вывести(ОбластьПодписи);

НапечататьДокумент(ТабДокумент, 1, ложь, «Маршрутный лист на «+строка(ЭтотОбъект.ДатаКон));

КонецПроцедуры // ВыполнитьНажатие()

// Выводит на печать подготовленный макет
//
// Параметры:
// ПечДокумент — ТабличыйДокумент, макет на печать,
// КоличествоЭкземпляров — Число, количество экземпляров на печать,
// НаПринтер — Булево, Если истина, то выводим сразу на принтер.
// Заголовок — Заголовок окна табличного документа
//
Процедура НапечататьДокумент(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = «») Экспорт

Если ПечДокумент = Неопределено тогда
Возврат;
КонецЕсли;

// Получить необходимое количество копий
Если КоличествоЭкземпляров < 1 Тогда
ПечДокумент.КоличествоЭкземпляров = 1;
Иначе
ПечДокумент.КоличествоЭкземпляров = КоличествоЭкземпляров;
КонецЕсли;

Если НЕ ПечДокумент.АвтоМасштаб
И ЗначениеНеЗаполнено(ПечДокумент.ИмяПринтера) Тогда
ПечДокумент.АвтоМасштаб = Истина;
КонецЕсли;

Если НаПринтер Тогда

ПечДокумент.Напечатать();

Иначе

ПечДокумент.ОтображатьЗаголовки = Ложь;
ПечДокумент.ОтображатьСетку = Ложь;
ПечДокумент.ТолькоПросмотр = Истина;
ПечДокумент.Показать(Заголовок);

КонецЕсли;

КонецПроцедуры // НапечататьДокумент()

// Определяет заполнено ли переданное значение
//
// Параметры:
// Значение — значение, заполенение которого надо проверить
//
// Возвращаемое значение:
// Истина — значение не заполнено, ложь — иначе.
//
Функция ЗначениеНеЗаполнено(Значение)

Результат = Ложь;
ТипЗначения = ТипЗнч(Значение);

// Сначала примитивные типы
Если Значение = Неопределено Тогда
Результат = Истина;
ИначеЕсли Значение = NULL Тогда
Результат = Истина;
ИначеЕсли ТипЗначения = Тип(«Строка») Тогда
Если СокрЛП(Значение) = «» Тогда
Результат = Истина;
КонецЕсли;
ИначеЕсли ТипЗначения = Тип(«Число») Тогда
Если Значение = 0 Тогда
Результат = Истина;
КонецЕсли;
ИначеЕсли ТипЗначения = Тип(«Дата») Тогда
Если Значение = Дата(’00010101′) Тогда
Результат = Истина;
КонецЕсли;
ИначеЕсли ТипЗначения = Тип(«Булево») Тогда
Результат = Ложь; // Булево будем считать не пустым

//Отдельное определение, так как конструкторов данного типа не существует
ИначеЕсли ТипЗначения = Тип(«РежимПроведенияДокумента») Тогда
Если Значение = РежимПроведенияДокумента.Неоперативный или Значение = РежимПроведенияДокумента.Оперативный тогда
Результат = Ложь;
КонецЕсли;

// Для остальных будем считать значение пустым, если оно равно
// дефолтному значению своего типа
Иначе
Попытка
Если Значение = Новый(ТипЗначения) Тогда
Результат = Истина;
КонецЕсли;
Исключение
Результат = Ложь;
КонецПопытки;
КонецЕсли;

Возврат Результат;

КонецФункции // ЗначениеНеЗаполнено()

// Процедура — обработчик нажатия кнопки «Заголовок».
//
Процедура КоманднаяПанельФормыЗаголовок(Кнопка)

ПоказыватьЗаголовок = Не ПоказыватьЗаголовок;

ВыводЗаголовка();

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

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ — ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ // Процедура — обработчик события после восстановления значений формы
//
Процедура ПослеВосстановленияЗначений()

// Если настройка восстанавливается, когда открывается форма сформровенного отчета, игнорируем
Если НеЗаполнятьНастройкиПриОткрытии Тогда
Возврат;
КонецЕсли;

Если ТипЗнч(СохраненныеНастройки) = Тип(«Структура») Тогда

ЭтотОтчет.ВосстановитьНастройкиИзСтруктуры(СохраненныеНастройки, ПоказыватьЗаголовок);

// Очистим результат — он более не соответствует настройке
ЭлементыФормы.ДокументРезультат.Очистить();
ВысотаЗаголовка=0;

ВыводЗаголовка();

КонецЕсли;

КонецПроцедуры // ПослеВосстановленияЗначений()

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ — ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ
// Процедура — обработчик события «Обработка расшифровки» поля табличного документа ДокументРезультат
//
Процедура ДокументРезультатОбработкаРасшифровки(Элемент, РасшифровкаСтроки, СтандартнаяОбработка)

Если ТипЗнч(РасшифровкаСтроки) = Тип(«Структура») Тогда

// Расшифровка колонки находится в заголовке колонки
РасшифровкаКолонки = Элемент.Область(ВысотаЗаголовка+2, Элемент.ТекущаяОбласть.Лево).Расшифровка;

Расшифровка = Новый Структура;

Для каждого Элемент Из РасшифровкаСтроки Цикл
Расшифровка.Вставить(Элемент.Ключ, Элемент.Значение);
КонецЦикла;

Если ТипЗнч(РасшифровкаКолонки) = Тип(«Структура») Тогда

Для каждого Элемент Из РасшифровкаКолонки Цикл
Расшифровка.Вставить(Элемент.Ключ, Элемент.Значение);
КонецЦикла;

КонецЕсли;

ОбработкаРасшифровкиСтандартногоОтчета(Расшифровка, СтандартнаяОбработка, ЭтотОтчет);

КонецЕсли;

КонецПроцедуры // ДокументРезультатОбработкаРасшифровки()

// Процедура — орбаротчик события при закрытии
//
Процедура ПриЗакрытии()

//может чего надо
КонецПроцедуры

// При инициализации формы необходимо заполнить реквизиты и поля основного реквизита формы
ЗаполнитьПоляОсновногоРеквизита(ЭтотОтчет.ОбщийОтчет);

НеЗаполнятьНастройкиПриОткрытии = Ложь;
ОтборРазвернут = Ложь;

Ответить

Автор статьи вышли пожалуйста.
Аркадий буду рад если поделишься.

Ответить

а можно у Dас этот комплекс попросить? мой адрес berezniki@gmail.com

Ответить

Тут вот в чём вопрос, я не кодер. Поэтому можно поставить вопрос по другому, сколько будет стоить встроить этот весь в функционал в мою конфигурацию? (1с77:комплексная).

Ответить

Аркадий, не моли бы вы поделиться обработкой, код которой здесь представлен

Ответить

Добрый день!

Если у Вас есть данная обработка для 8.1 1-с не могли бы вы поделиться этим волшебством.

Заранее Вам благодарна.

Ответить

Есть ли у вас такая обработка для 1с 8.1?

Ответить

Работаю с базой 1с …создаю заказ… путевой лист…..клиент отказ…есть ли возможность убить этот заказ..а то приходиться в ручную убивать его…подскажите как по шагово отменить заказ…

Ответить