Skip to content

Commit

Permalink
endlines
Browse files Browse the repository at this point in the history
  • Loading branch information
alkoleft committed Jul 27, 2023
1 parent 1b4841a commit ef18b0b
Show file tree
Hide file tree
Showing 18 changed files with 283 additions and 283 deletions.
Original file line number Diff line number Diff line change
@@ -1,25 +1,25 @@
&НаСервере
Процедура Заполнить()
Запрос = Новый Запрос("ВЫБРАТЬ
| ВзаиморасчетыОстатки.Контрагент,
| ВзаиморасчетыОстатки.Валюта,
| ВзаиморасчетыОстатки.СуммаОстаток КАК СуммаОстаток
|ИЗ
| РегистрНакопления.Взаиморасчеты.Остатки КАК ВзаиморасчетыОстатки
&НаСервере
Процедура Заполнить()
Запрос = Новый Запрос("ВЫБРАТЬ
| ВзаиморасчетыОстатки.Контрагент,
| ВзаиморасчетыОстатки.Валюта,
| ВзаиморасчетыОстатки.СуммаОстаток КАК СуммаОстаток
|ИЗ
| РегистрНакопления.Взаиморасчеты.Остатки КАК ВзаиморасчетыОстатки
|АВТОУПОРЯДОЧИВАНИЕ");
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
НоваяСтрока = ТаблицаОстатков.Добавить();
НоваяСтрока.Контрагент = Выборка.Контрагент;
НоваяСтрока.Валюта = Выборка.Валюта;
Если Выборка.СуммаОстаток > 0 Тогда
НоваяСтрока.НашДолг = Выборка.СуммаОстаток;
Иначе
НоваяСтрока.ДолгНам = Выборка.СуммаОстаток * -1;
КонецЕсли;
КонецЦикла

КонецПроцедуры
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
НоваяСтрока = ТаблицаОстатков.Добавить();
НоваяСтрока.Контрагент = Выборка.Контрагент;
НоваяСтрока.Валюта = Выборка.Валюта;
Если Выборка.СуммаОстаток > 0 Тогда
НоваяСтрока.НашДолг = Выборка.СуммаОстаток;
Иначе
НоваяСтрока.ДолгНам = Выборка.СуммаОстаток * -1;
КонецЕсли;
КонецЦикла

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Expand All @@ -29,7 +29,7 @@
&НаКлиенте
Процедура ТаблицаОстатковВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
ПоказатьЗначение( ,ТаблицаОстатков.НайтиПоИдентификатору(ВыбраннаяСтрока).Контрагент);
СтандартнаяОбработка = Ложь;
СтандартнаяОбработка = Ложь;
КонецПроцедуры

&НаКлиенте
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -102,9 +102,9 @@

КонецФункции

////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//

&НаКлиенте
Процедура ПриОткрытии(Отказ)
Expand Down Expand Up @@ -135,7 +135,7 @@
#КонецЕсли

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


&НаКлиенте
Процедура НовыйРасчетныйСчетВыполнить()

Expand All @@ -146,11 +146,11 @@

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


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

&НаКлиенте
Expand Down
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ОБЪЕКТА
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ОБЪЕКТА

////////////////////////////////////////////////////////////////////////////////
// Обработчик события "Проверка заполнения"
////////////////////////////////////////////////////////////////////////////////
// Обработчик события "Проверка заполнения"
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)

// Если это группа,
Expand Down Expand Up @@ -32,10 +32,10 @@
Если НЕ ПустаяСтрока(Улица) Тогда

// Тогда, должны быть заполнены и поля Регион, Город, и Дом.
ПроверяемыеРеквизиты.Добавить("Регион");
ПроверяемыеРеквизиты.Добавить("Регион");
ПроверяемыеРеквизиты.Добавить("Город");
ПроверяемыеРеквизиты.Добавить("Дом");


КонецЕсли;

КонецПроцедуры
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

Если Параметры.Ключ.Пустая() Тогда

Объект.БитДанных = 8;
Объект.БитДанных = 8;
Объект.Скорость = 9600;
Объект.Порт = "COM1";

Expand Down
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//

////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

Expand All @@ -12,7 +12,7 @@

СправочникСписок.Параметры.УстановитьЗначениеПараметра("ПоВсемСкладам", Ложь);
СправочникСписок.Параметры.УстановитьЗначениеПараметра("Склад", Параметры.ОстаткиПоСкладу);


Иначе

Отказ = Истина;
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -9,4 +9,4 @@
// Подключение внешней компоненты
НачатьУстановкуВнешнейКомпоненты(, "ОбщийМакет.ДрайверСканераШтрихкодов");

КонецПроцедуры
КонецПроцедуры
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ
//

Перем ДрайверСканераШтрихкодов Экспорт; // Сканер штрихкодов
////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ
//

Перем ДрайверСканераШтрихкодов Экспорт; // Сканер штрихкодов
Original file line number Diff line number Diff line change
Expand Up @@ -5,33 +5,33 @@
&НаКлиенте
Перем АдресТоваровВХранилище;

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ
//

// Функция возвращает цену определенного товара на дату согласно виду цены
//
// Параметры:
// Дата – Дата – дата, на которую определяется цена.
// Товар – СправочникСсылка.Товары – товар, цена которого определяется.
// ВидЦен – СправочникСсылка.ВидыЦен – вид цены.
//
// Возвращаемое значение:
// Число - Цена товара на определенную дату, согласно виду цены.
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ
//

// Функция возвращает цену определенного товара на дату согласно виду цены
//
// Параметры:
// Дата – Дата – дата, на которую определяется цена.
// Товар – СправочникСсылка.Товары – товар, цена которого определяется.
// ВидЦен – СправочникСсылка.ВидыЦен – вид цены.
//
// Возвращаемое значение:
// Число - Цена товара на определенную дату, согласно виду цены.
&НаСервереБезКонтекста
Функция ПолучитьЦенуТовара(Дата, Товар, ВидЦен)
ЦенаТовара = РегистрыСведений.ЦеныТоваров.ПолучитьПоследнее(
Дата, Новый Структура("Товар, ВидЦен", Товар, ВидЦен));
Возврат ЦенаТовара.Цена;
КонецФункции

// Функция возвращает вид цены для указанного покупателя
//
// Параметры:
// Покупатель – СправочникСсылка.Контрагенты – контрагент.
//
// Возвращаемое значение:
// СправочникСсылка.ВидыЦен - Вид цены для указанного покупателя.
Функция ПолучитьЦенуТовара(Дата, Товар, ВидЦен)
ЦенаТовара = РегистрыСведений.ЦеныТоваров.ПолучитьПоследнее(
Дата, Новый Структура("Товар, ВидЦен", Товар, ВидЦен));
Возврат ЦенаТовара.Цена;
КонецФункции

// Функция возвращает вид цены для указанного покупателя
//
// Параметры:
// Покупатель – СправочникСсылка.Контрагенты – контрагент.
//
// Возвращаемое значение:
// СправочникСсылка.ВидыЦен - Вид цены для указанного покупателя.
&НаСервереБезКонтекста
Функция ПолучитьВидЦенПокупателя(Покупатель)
Запрос = Новый Запрос();
Expand All @@ -41,7 +41,7 @@
Если Выборка.Следующий() Тогда
Возврат Выборка.ВидЦен;
КонецЕсли;
Возврат Справочники.ВидыЦен.ПустаяСсылка();
Возврат Справочники.ВидыЦен.ПустаяСсылка();
КонецФункции

// Функция определяет услуга это или нет
Expand All @@ -50,34 +50,34 @@

Возврат ?(Товар.Вид = Перечисления.ВидыТоваров.Услуга, Истина, Ложь);

КонецФункции

КонецФункции

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


ТЗЦены = Запрос.Выполнить().Выгрузить();
ТЗЦены.Индексы.Добавить("Товар");
Для каждого Стр Из Объект.Товары Цикл
Expand All @@ -93,8 +93,8 @@
Стр.СуммаИзменена = Ложь;
Стр.ЭтоУслуга = ЭтоУслуга(Стр.Товар);
КонецЦикла;
КонецПроцедуры

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

// Функция помещает список товаров во временное хранилище и возвращает адрес
&НаСервере
Функция ПоместитьТоварыВХранилище()
Expand All @@ -109,17 +109,17 @@
КонецПроцедуры


// Функция возвращает ссылку на текущую строку в списке товаров
//
// Параметры:
// Нет.
//
// Возвращаемое значение:
// СправочникСсылка.Товары - Текущий товар в списке.
// Функция возвращает ссылку на текущую строку в списке товаров
//
// Параметры:
// Нет.
//
// Возвращаемое значение:
// СправочникСсылка.Товары - Текущий товар в списке.
&НаКлиенте
Функция ПолучитьТекущуюСтрокуТовары()
Возврат Элементы.Товары.ТекущиеДанные;
КонецФункции
Функция ПолучитьТекущуюСтрокуТовары()
Возврат Элементы.Товары.ТекущиеДанные;
КонецФункции

// Процедура вычисляет дополнительные данные строки документа
&НаКлиентеНаСервереБезКонтекста
Expand All @@ -143,16 +143,16 @@

КонецФункции

////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
//

&НаКлиенте
Процедура ТоварыТоварПриИзменении(Элемент)
Стр = ПолучитьТекущуюСтрокуТовары();
Стр = ПолучитьТекущуюСтрокуТовары();
Стр.ЭтоУслуга = ЭтоУслуга(Стр.Товар);
Стр.Цена = ПолучитьЦенуТовара(Объект.Дата, Стр.Товар, Объект.ВидЦен);
Стр.Количество = ?(Стр.ЭтоУслуга ИЛИ Стр.Количество = 0, 1, Стр.Количество);
Стр.Количество = ?(Стр.ЭтоУслуга ИЛИ Стр.Количество = 0, 1, Стр.Количество);
Стр.Сумма = Стр.Количество * Стр.Цена;
ЗаполнитьДополнительныеДанныеСтроки(Стр);
КонецПроцедуры
Expand All @@ -177,15 +177,15 @@

&НаКлиенте
Процедура ТоварыЦенаПриИзменении(Элемент)
Стр = ПолучитьТекущуюСтрокуТовары();
Стр = ПолучитьТекущуюСтрокуТовары();
Стр.Сумма = Стр.Количество * Стр.Цена;
ЗаполнитьДополнительныеДанныеСтроки(Стр);
КонецПроцедуры

&НаКлиенте
Процедура ТоварыКоличествоПриИзменении(Элемент)
Стр = ПолучитьТекущуюСтрокуТовары();
Стр.Сумма = Стр.Количество * Стр.Цена;
Стр = ПолучитьТекущуюСтрокуТовары();
Стр.Сумма = Стр.Количество * Стр.Цена;
ЗаполнитьДополнительныеДанныеСтроки(Стр);
КонецПроцедуры

Expand All @@ -194,8 +194,8 @@
Стр = ПолучитьТекущуюСтрокуТовары();
ЗаполнитьДополнительныеДанныеСтроки(Стр);
КонецПроцедуры

// Обработчик команды подбора

// Обработчик команды подбора
&НаКлиенте
Процедура КомандаПодбор()
#Если МобильныйКлиент Тогда
Expand All @@ -206,7 +206,7 @@
АдресТоваровВХранилище = ПоместитьТоварыВХранилище();
ПараметрыПодбора = Новый Структура("АдресТоваровДокумента, ВидЦен, Склад", АдресТоваровВХранилище, Объект.ВидЦен, Объект.Склад);
ФормаПодбора = ОткрытьФорму(Имя, ПараметрыПодбора, ЭтотОбъект);
КонецПроцедуры
КонецПроцедуры

&НаКлиенте
Процедура ОрганизацияПриИзменении(Элемент)
Expand Down
Loading

0 comments on commit ef18b0b

Please sign in to comment.