Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Mega4ina
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 14
1

Реализовать отчет по движениям товаров за период в себестоимости

19.09.2017, 07:26. Просмотров 156. Ответов 0
Метки нет (Все метки)

Задача.doc
Необходимо реализовать данную задачу на любом языке программирования c использованием базы данных. Задача должна быть представлена в скомпилированном виде, и должен прилагаться исходный код программы.
Задача
Первая операция – приход. При приходе фиксируется поставщик (список поставщиков хранится в отдельной таблице – контрагенты), товар (список товаров хранится в отдельной таблице – номенклатура), количество и сумма поставки (сумма рассчитывается как произведение цены и количества).
Вторая операция – расход. При расходе фиксируется покупатель (из списка контрагентов), товар (из списка номенклатуры), количество и сумма продажи (сумма рассчитывается как произведение цены и количества). При расходе списывается себестоимость по средневзвешенному методу.
Реализовать отчет по движениям товаров за период в себестоимости.
Реализовать отчет по прибыли в разрезе товаров за период, который будет показывать сумму продажи, себестоимость по продаже и прибыль.

Пример
1. 01.01.06 поступило от ТОО СтройТоргВсе 10 карандашей по цене 10 тенге.
2. 02.01.06 поступило от ТОО СтройТоргВсе 20 карандашей по цене 11 тенге и 15 авторучек по цене 50 тенге.
3. 03.01.06 поступило от ИП Иванов И.И. 10 карандашей по цене 12 тенге и 10 авторучек по цене 55 тенге.
4. 04.01.06 продано ИП Петров П.П. 12 карандашей по цене 15 тенге и 12 авторучек по цене 70 тенге.
5. 05.01.06 продано ТОО Знание 5 карандашей по цене 15 тенге и 10 авторучек по цене 75 тенге.

Отчет по движениям товаров за период 03.01.06-05.01.06
НоменклатураНачальный остатокПриходРасходКонечный остаток
 Кол-воСуммаКол-воСумма
Авторучка1575010550
Карандаш3032010120
Итого 1070 670 1331 409

Отчет по валовой прибыли за период 04.01.06-05.01.06
НоменклатураКоличествоСумма продажиСебестоимостьПрибыль
Авторучка2215901144446
Карандаш1725518768
Итого 18451331514
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
uses crt;
type
port=record
nam,nam1:string[20];
tip,tip1:string[10];
kol,kol1:word;
nal,nal1:word;
pas,pas1:word;
end;
procedure convert1(var a:string);
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241 then a[i]:=chr(ord(184));
end;
var f:text;
zp:array[1..50] of port;
n,i: integer;
s,s1:string;
begin
clrscr;
assign(f,'port.txt');
rewrite(f);
write('vvedite ');
repeat
readln(n);
until n>=1;
writeln('vvedite dannie o ',n,'predpri9ti9h');
for i:=1 to n do
begin
writeln('Pred',i);
s:=' ';
write('Postavwik');readln(zp[i].nam);
s:=s+zp[i].nam+' ';
write('TOVAR');readln(zp[i].tip);
s:=s+s1+zp[i].tip+' ';
write('KOLI4ESTVO');readln(zp[i].kol);
str(zp[i].kol,s1);
s:=s+s1+' ';
write('CENA');readln(zp[i].nal);
str(zp[i].nal,s1);
s:=s+s1+' ';
zp[i].pas:=zp[i].nal*zp[i].kol;
str(zp[i].pas,s1);
s:=s+s1;
write('Pokupatel');readln(zp[i].nam1);
s:=s+zp[i].nam1+' ';
write('TOVAR');readln(zp[i].tip1);
s:=s+s1+zp[i].tip1+' ';
write('KOLI4ESTVO');readln(zp[i].kol1);
str(zp[i].kol1,s1);
s:=s+s1+' ';
write('CENA');readln(zp[i].nal1);
str(zp[i].nal1,s1);
s:=s+s1+' ';
zp[i].pas:=zp[i].nal*zp[i].kol1;
str(zp[i].pas1,s1);
s:=s+s1;
convert1(s);
writeln(f,s);
end;
clrscr;
writeln('svedeni9':400);
writeln('-------------------------------------------------------');
writeln('POSTAVWIK|Pokupatel|TOVAR|KOLI4ESTVO|CENA|POLNA9 SUMMA|');
writeln('--------------------------------------------');
for i:=1 to n do 
begin 
gotoxy(1,wherey);write('|  ',zp[i].nam);
gotoxy(10,wherex);write('|  ',zp[i].nam1);
gotoxy(20,wherey);write('|  ',zp[i].tip);
gotoxy(30,wherey);write('|  ',zp[i].tip1);
gotoxy(40,wherey);write('|  ',zp[i].kol);
gotoxy(50,wherey);write('|  ',zp[i].kol1);
gotoxy(60,wherey);write('|  ',zp[i].nal);
gotoxy(70,wherey);write('|  ',zp[i].nal1);
gotoxy(70,wherey);write('|  ',zp[i].pas);
gotoxy(80,wherey);write('|  ',zp[i].pas1);
gotoxy(90,wherey);write('| ');
writeln;
end;
writeln('-----------------------------------------------------');
close(f);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.09.2017, 07:26
Ответы с готовыми решениями:

Задача. Построить отчет по движениям товаров
Добрый день уважаемые программисты. Не знаю как решить задачу. Прошу...

Задача. Построить отчет по движениям товаров
Добрый вечер уважаемые программисты, прошу вашей помощи. Не знаю как решить...

Отчет: за определенный период нужно выбрать подгруппу товаров и дату последней инвентаризации
доброго времени суток! скажу сразу в 1с очень плохо разбираюсь но возникла...

Отчет по движениям и остаткам регистров
Готова новая версия 2.1 Основные отличия: 1. Теперь можно смотреть не...

Как сделать отчет по продажам за период (период в колонках) без СКД?
Всем привет! Покажите, пожалуйста, как сделать отчёт за период, период должен...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.09.2017, 07:26

экспорт данных по себестоимости товаров из УТ в УТ
Имеем линуксный сервер, на котором есть две базы УТ 11.0 (11.0.9.8), платформа...

Расчет средней себестоимости по партиям товаров в УТ 10.3
Добрый день! Подскажите пожалуйста, как добавить обработку форматцен "Расчет...

ЕРП 2.4 Возврат товаров от клиентов (расчет себестоимости)
проблема такая, в тч товары указываю товар который возвращют, далее в поле...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru