Kirish Zamon shiddat bilan oʻzgarayapti, sanoat ilmga asoslanishi kerak Shavkat Mirziyoyev

ILOVA

&наклиенте
Процедура приходприизменении(элемент)///////////////////////
нат=(объект.приход*объект.наценка)/100;
объект.продаж=объект.приход+нат;
Конецпроцедуры

&наклиенте

Процедура продажприизменении(элемент)/////////////////////////
Если объект.продаж>объект.приход тогда
нн=объект.продаж-объект.приход;
объект.наценка=(нн/объект.приход)*100;
Иначе
сообщить("нотугри нарх !!!! ");
объект.продаж=объект.приход;
нн=объект.продаж-объект.приход;
объект.наценка=(нн/объект.приход)*100;
Рег=регистрысведений.историятоварцена.создатьменеджерзаписи();
рег.период=текущаядата();
рег.товар=объект.ссылка;
рег.поставщик=объект.поставщик;
рег.ценаприход=объект.приход;
рег.ценапродаж=объект.продаж;
рег.записать();

Конецесли;

&наклиенте
Процедура наценкаприизменении(элемент)////////////////////////////
нац=(объект.приход*объект.наценка)/100;
объект.продаж=объект.приход+нац;
Рег=регистрысведений.историятоварцена.создатьменеджерзаписи();
рег.период=текущаядата();
рег.товар=объект.ссылка;
рег.поставщик=объект.поставщик;
// рег.датапоступления=дата;
рег.ценаприход=объект.приход;
рег.ценапродаж=объект.продаж;
рег.записать();
&наклиенте
Процедура штукприизменении(элемент) //////////////////////////////////////////////
если объект.штук>0 тогда
записать();
объект.штукнаценка=20;
объект.штукнаименование=""+объект.наименование+" шт";
объект.штукштрихкод=создатштрихкодшт();//создатштрихкодштучнийтовар();
объект.штукприходцена=объект.приход/объект.штук;
нат=(объект.штукприходцена*объект.штукнаценка)/100;
объект.штукпродажцена=объект.штукприходцена+нат;
рег=справочники.товары.выбрать();
пока рег.следующий() цикл
если рег.наименование=объект.штукнаименование тогда
рег.получитьобъект().удалить();
конецесли;
конеццикла;
спр=справочники.товары.создатьэлемент();
спр.наименование=объект.штукнаименование;
спр.приход=объект.штукприходцена;
спр.наценка=объект.штукнаценка;
спр.продаж=объект.штукпродажцена;
спр.типтовара=справочники.типтовара.товарштучный;
спр.штрихкод=объект.штукштрихкод;
спр.родитель=объект.родитель;
//спр.плу=объект.код;
спр.едизм=справочники.едизм.найтипонаименованию(объект.едизм);
спр.поставщик=справочники.контрагенты.найтипонаименованию(объект.поставщик);
спр.записать();
объект.штукссылка=справочники.товары.найтипонаименованию(объект.штукнаименование);
рег=регистрысведений.штрихкод.выбрать();
пока рег.следующий() цикл
если рег.внутштрих=объект.штукштрихкод тогда
рег.получитьменеджерзаписи().удалить();
конецесли;
конеццикла; новрег=регистрысведений.штрихкод.создатьменеджерзаписи();
новрег.товар=справочники.товары.найтипонаименованию(объект.штукнаименование);
новрег.внутштрих=объект.штукштрихкод;
новрег.записать();
иначе
рег=регистрысведений.штрихкод.выбрать();
пока рег.следующий() цикл
если рег.внутштрих=объект.штукштрихкод тогда
рег.получитьменеджерзаписи().удалить();
конецесли;
конеццикла;
тозалаш();
конецесли;
Конецпроцедуры

&наклиенте

Процедура штрихкодприизменении(элемент)
//рег=регистрысведений.штрихкод.выбрать();
//пока рег.следующий() цикл
// если рег.внутштрих=объект.наименование тогда
// рег.получитьменеджерзаписи().удалить();
// конецесли;
//конеццикла;
Если пустаястрока(получитьштрихкод(объект.штрихкод)) тогда
рег=регистрысведений.штрихкод.создатьменеджерзаписи();
рег.внутштрих=объект.штрихкод;
рег.товар=справочники.товары.найтипонаименованию(объект.наименование);
Рег.записать();
Иначе
предупреждение("("+получитьштрихкод(объект.штрихкод)+") "+"существующие штрих код !!!");
объект.штрихкод="";
Конецесли;
Конецпроцедуры
&наклиенте
Процедура клавиатура(команда)
топ=топиш();
если не пустаястрока(топ) тогда
запуститьприложение("c:\program files\common files\microsoft shared\ink\tabtip","",ложь);
иначе
shell = новый comобъект("wscript.shell");
shell.sendkeys("{capslock}"); //нажать эту кнопку
shell.run("osk"); //запустить калькулятор
shell.appactivate("конфигуратор"); //сдела
конецесли;
Конецпроцедуры

Функция осттовар(тов)

запрос=новый запрос;
запрос.текст="выбрать
| остатоктоваровостатки.товары,
| выбор
| когда остатоктоваровостатки.колостаток > 0
| тогда остатоктоваровостатки.колостаток
| иначе 0
| конец как остт
|из
| регистрнакопления.остатоктоваров.остатки(&дата, ) как остатоктоваровостатки
|где
| остатоктоваровостатки.товары = &товары";
запрос.установитьпараметр("дата",текущаядата());
запрос.установитьпараметр("товары",тов);
рез=запрос.выполнить().выбрать();
к=0;
пока рез.следующий() цикл
к=рез.остт;
конеццикла;
возврат к;
Конецфункции
&наклиенте
Процедура обработкавыбора(выбранноезначение, источниквыбора)
если автомат=ложь тогда
форман=получитьформу("обработка.умумий_жараён.форма.фасовка");
форман.товар=выбранноезначение;
стукпри=форман.открытьмодально();
если не стукпри=неопределено тогда
серия=стукпри.серия;
приход=стукпри.приход;
сериалномер=0;
ввестичисло(сериалномер,"количествони киритинг",13,3);
нн=0;
нн=товарларнитекшириш.остаткатоварвариант(объект.склад,выбранноезначение.ссылка,серия);
если сериалномер<>0 и сериалномер<=нн тогда
таб=объект.табличнаячасть1.добавить();
таб.товар=выбранноезначение;
таб.серия=серия;
таб.штрихкод=выбранноезначение.штрихкод;
таб.ост=нн;
таб.колво=сериалномер;
таб.едизм=выбранноезначение.едизм;
таб.цена=приход;
таб.сумма=таб.цена*таб.колво;
таб.цена1=выбранноезначение.продаж;
таб.сумма1=таб.цена1*таб.колво;
сериалномер="";

иначе
сигнал();

предупреждение("серия остаткаси етмайди!!!");
конецесли;

иначе
серия="";

конецесли;

конецесли;

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