Mundаrijа kirish 6

FOYDАLАNILGАN INTERNET TАRMOQLАRI:
1. Norma.uz
2. Software.uz
3. Google.uz
4. Uzsavdo.uz
5. 1С.uz
6. 1uz.uz
7. Isti.uz
8. Ziyonet.uz
9. Dastur.uz
10. Дастурчи.уз

Ilova

&НаКлиенте
Процедура ТабТоварТоварПриИзменении(Элемент)
стч=Элементы.ТабТовар.ТекущиеДанные;
тт=партияТекшириш(стч.Товар,Объект.склад);
Если тт=0 Тогда
стч.серия=ТекущаяДата();
Иначе
Пар = Новый Структура("Ключ",стч.товар);
форма = ПолучитьФорму("Обработка.ТоварУмумий.Форма.Форма",пар);
форма.товары = стч.товар;
форма.Валюта=Объект.Валюта;
форма.склад=Объект.Склад;

Структура = форма.ОткрытьМодально();

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

КонецЕсли;
КонецЕсли;


КонецПроцедуры
ПолучитШтрих () функсиясига мурожаат қилади.
Функция ПолучитШтрих(Штрих) Экспорт
Если Не ПустаяСтрока(Штрих) Тогда
запрос=Новый Запрос;
запрос.Текст="ВЫБРАТЬ
| ТоварТаблицаШтрихКод.Ссылка КАК товар
|ИЗ
| Справочник.ТОВАРЫ.ТабШтрихКод КАК ТоварТаблицаШтрихКод
|ГДЕ
| ТоварТаблицаШтрихКод.ШтрихКод = &ШтрихКод";
запрос.УстановитьПараметр("ШтрихКод", Штрих);
рез=запрос.Выполнить().Выбрать();
рез.Следующий();
Возврат рез.товар;
КонецЕсли;
КонецФункции
Бу кодлар оркали клавитурага NumLock ни боглаймиз.
#Область Кнопка
Процедура УмножитьНажатие(Элемент)
Если Не ПустаяСтрока(ПолеТек) Тогда
НормаУмножить=Формат(ПолеТек,"ЧДЦ=3");
ПолеТек="";
КонецЕсли;
КнопкаПоУмолчания();
КонецПроцедуры
Процедура ОдинНажатие(Элемент)
ПолеТек=ПолеТек+1;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ДваНажатие(Элемент)
ПолеТек=ПолеТек+2;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ТриНажатие(Элемент)
ПолеТек=ПолеТек+3;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ЧитириНажатие(Элемент)
ПолеТек=ПолеТек+4;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ПятьНажатие(Элемент)
ПолеТек=ПолеТек+5;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ШестьНажатие(Элемент)
ПолеТек=ПолеТек+6;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура СемНажатие(Элемент)
ПолеТек=ПолеТек+7;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ВосемНажатие(Элемент)
ПолеТек=ПолеТек+8;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ДеведНажатие(Элемент)
ПолеТек=ПолеТек+9;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура НольНажатие(Элемент)
ПолеТек=ПолеТек+0;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ДваНольНажатие(Элемент)
ПолеТек=ПолеТек+0+0;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ТочкаНажатие(Элемент)
ПолеТек=""+ПолеТек+",";
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура БекспекНажатие(Элемент)
ЧислоТекс=0;
ЧислоТекс=СтрДлина(ПолеТек);
Если ЧислоТекс>0 Тогда
ПолеТек=Лев(ПолеТек,ЧислоТекс-1);
Иначе
ПолеТек="";
КонецЕсли;
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры
Процедура ССНажатие(Элемент)
ПолеТек="";
КнопкаПоУмолчанияКлавиатура();
КонецПроцедуры

#КонецОбласти

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