Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Статьи » Модернізація автоматизованої інформаційної системи обліку товару

Реферат Модернізація автоматизованої інформаційної системи обліку товару





вати

//запит на елементі


Поки Запрос.Группіровка ( Номенклатура )=1 Цикл

Номенклатура=Запрос.Номенклатура;

Е?? Чи ПустоеЗначеніе (Номенклатура)=1 Тоді

Продовжити;

КонецЕсли;

//підрахунок кількості днів продажу товару (робочі дні коли він

лежав на складі

//або день (навіть неробочий) коли була зроблена продаж)

ПроданоВсего=Запрос.Продано;

КолДнейПродажі=0;

ТекДата=ДатаНачала;

ТекДатаУчтена=0;


ОстатокНачалаПеріода=Запрос.НачОст;

ПоступленіеПеріода=Запрос.Пріход;

ОстатокОкончаніяПеріода=Запрос.КонОст;

ОстатокНачалаПеріодаП=0;

ОстатокОкончаніяПеріодаП=0;

ПроданоВсегоП=0;

Якщо Запрос2.Получіть (Номенклатура)=1 Тоді

ОстатокНачалаПеріодаП=Запрос2.НачОст;

ОстатокОкончаніяПеріодаП=Запрос2.КонОст;

ПроданоВсегоП=Запрос2.Продано;

КонецЕсли;


Поки Запрос.Группіровка ( Документ )=1 Цикл

Якщо ТекДата lt; gt; Запрос.Документ.ДатаДок Тоді

ТекДатаУчтена=0;

ТекДата=Запрос.Документ.ДатаДок;

КонецЕсли;


Якщо ТекДатаУчтена=0 Тоді

Якщо (Запрос.Продано gt; 0) тоді//повернення не вважаємо.

КолДнейПродажі=КолДнейПродажі + 1;

ТекДатаУчтена=1;

КонецЕсли;

КонецЕсли;


КонецЦікла;// За документами


СредняяСкорость =? (КолДнейПродажі=0, 0, ПроданоВсего/

КолДнейПродажі);

ОбщаяСкорость =? (КолДнейПродажі=0, 0, ПроданоВсего/

ЧіслоРабочіхДнейМежду (ДатаНачала, ДатаКонца));


Од=Номенклатура.БазоваяЕдініца;

ПечТекстСтрокі=Номенклатура;

ТекРасшіфровка=Номенклатура;

ПечКодТекстСтрокі=Номенклатура.код;


ПечПроданоВсего=глФРМКолічество (ПроданоВсего, Од);

ПечПроданоВсегоП=глФРМКолічество (ПроданоВсегоП, Од);


ПечПріходВсего=глФРМКолічество (ПоступленіеПеріода, Од);


ПечКолДнейПродажі=Формат (КолДнейПродажі, Ч10 );

ПечСредняяСкорость=глФРМКолічество (СредняяСкорость, Од);

ПечОбщаяСкорость=глФРМКоличество(ОбщаяСкорость, Од);

ПечОстатокНачалаПеріода=

глФРМКолічество (ОстатокНачалаПеріода, Од);

ПечОстатокОкончаніяПеріода=

глФРМКолічество (ОстатокОкончаніяПеріода, Од);

ПечОстатокНачалаПеріодаП=

глФРМКолічество (ОстатокНачалаПеріодаП, Од);

ПечОстатокОкончаніяПеріодаП=

глФРМКолічество (ОстатокОкончаніяПеріодаП, Од);


Таб.ВивестіСекцію ( рядок1 );

глОжівіть (1);


КонецЦікла;


ОстатокНачалаПеріодаП=Запрос2.НачОст;

ОстатокОкончаніяПеріодаП=Запрос2.КонОст;

ПроданоВсегоП=Запрос2.Продано;

ПечПроданоВсего=глФРМКолічество (ПроданоВсегоП, Од);

ПечОстатокНачалаПеріода=

глФРМКолічество (ОстатокНачалаПеріодаП,);

ПечОстатокОкончаніяПеріода=

глФРМКолічество (ОстатокОкончаніяПеріодаП,);


ОстатокНачалаПеріода=Запрос.НачОст;

ОстатокОкончаніяПеріода=Запрос.КонОст;

ПроданоВсего=Запрос.Продано;

ПечПроданоВсего=глФРМКолічество (ПроданоВсего, Од);

ПечОстатокНачалаПеріода=

глФРМКолічество (ОстатокНачалаПеріода,);

ПечОстатокОкончаніяПеріода=

глФРМКолічество (ОстатокОкончаніяПеріода,);


Таб.ВивестіСекцію ( Всього );

глОжівіть (1);


Таб.Опціі (0, 0, 8, 0, ПланірованіеЗакупок raquo ;,

ПланірованіеЗакупок );


Назад | сторінка 36 з 39 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Бюрократизм і номенклатура
  • Реферат на тему: Класифікація і номенклатура полімерів
  • Реферат на тему: Номенклатура лікарських засобів
  • Реферат на тему: Класифікація і номенклатура показників якості
  • Реферат на тему: Товарна номенклатура зовнішньоекономічної діяльності