Реферат: Информационная система складского терминала
Время окончания разгрузки: ______________
5. Номер товарно-транспортной накладной: 2748
6. Количество мест (коробов) с указанием даты реализации продукта:
Код товара |
Наименование |
Годен до |
050660 | Птичье молоко 18´170г | 11.11.1999 |
Количество по документам 205 | ||
Фактически получено: 205 | Из них брак: 0 | |
Недовложено: 0 |
Код товара |
Наименование |
Годен до |
050663 | Признание 12´230г | 11.02.2000 |
Количество по документам 812 | ||
Фактически получено: 812 | Из них брак: 0 | |
Недовложено: 0 |
Страница 1 Всего страниц 2
7. Состояние пломбы: ____________________________
8. Наличие рекламных материалов, оборудования и т.п., не указанных в сопроводительных документах: __________________________________
______________________________________________________________
9. Примечание: ________________________________________________
_____________________________________________________________
Представители:
Заведующий складом: Водитель:
Данилова А.Н. Новиков Ю.С.
_________________ _________________
Страница 2 Всего страниц 2
Журнал прихода № 00596/12.10.1999
На склад: Кинель
От: КО «Россия»
№ стр |
Код товара |
Число коробов |
Срок годности |
Адрес паллеты |
Оператор |
001 |
050660 |
49 |
12.11.99 |
0007230103 |
Данилова |
002 |
050660 |
49 |
12.11.99 |
0011250101 |
Данилова |
003 |
050662 |
49 |
12.04.00 |
0011260103 |
Данилова |
004 |
050662 |
49 |
12.04.00 |
0011350103 |
Данилова |
005 |
050662 |
49 |
12.04.00 |
0011420103 |
Данилова |
006 |
050662 |
49 |
12.04.00 |
0011430101 |
Данилова |
007 |
050662 |
49 |
12.04.00 |
0012100102 |
Данилова |
008 |
050641 |
49 |
08.02.00 |
0012480103 |
Данилова |
009 |
050641 |
29 |
08.02.00 |
0005290103 |
Данилова |
010 |
050648 |
49 |
06.02.00 |
0003310103 |
Данилова |
011 |
050648 |
49 |
06.02.00 |
0007460101 |
Данилова |
012 |
050648 |
9 |
06.02.00 |
0010490103 |
Данилова |
013 |
050639 |
49 |
09.02.00 |
0003130103 |
Данилова |
014 |
050639 |
49 |
09.02.00 |
0006130103 |
Данилова |
015 |
050639 |
49 |
09.02.00 |
0012060101 |
Данилова |
016 |
050727 |
36 |
12.01.00 |
0012580101 |
Данилова |
017 |
050727 |
49 |
12.01.00 |
0013430101 |
Данилова |
018 |
050635 |
49 |
12.02.00 |
0014180103 |
Данилова |
019 |
050635 |
49 |
12.02.00 |
0014330103 |
Данилова |
020 |
050635 |
49 |
12.02.00 |
0015290103 |
Данилова |
Страница 1 Всего страниц 1
Журнал расхода № 04765
Со склада: Кинель
№ стр |
Код товара |
Число коробов |
Срок годности |
Адрес паллеты |
Оператор |
001 |
050417 |
49 |
12.11.99 |
0007230103 |
Плотников |
002 |
050417 |
49 |
12.11.99 |
0011250101 |
Плотников |
003 |
050417 |
49 |
12.04.00 |
0011260103 |
Плотников |
004 |
050033 |
49 |
12.04.00 |
0011350103 |
Плотников |
005 |
050033 |
49 |
12.04.00 |
0011420103 |
Плотников |
006 |
050033 |
49 |
12.04.00 |
0011430101 |
Плотников |
007 |
050049 |
49 |
12.04.00 |
0012100102 |
Плотников |
008 |
050049 |
49 |
08.02.00 |
0012480103 |
Плотников |
009 |
050502 |
29 |
08.02.00 |
0005290103 |
Плотников |
010 |
050503 |
49 |
06.02.00 |
0003310103 |
Плотников |
011 |
050666 |
49 |
06.02.00 |
0007460101 |
Плотников |
012 |
050648 |
9 |
06.02.00 |
0010490103 |
Плотников |
013 |
050639 |
49 |
09.02.00 |
0003130103 |
Плотников |
014 |
050639 |
49 |
09.02.00 |
0006130103 |
Плотников |
015 |
050639 |
49 |
09.02.00 |
0012060101 |
Плотников |
016 |
050727 |
36 |
12.01.00 |
0012580101 |
Плотников |
017 |
050727 |
49 |
12.01.00 |
0013430101 |
Плотников |
018 |
050635 |
49 |
12.02.00 |
0014180103 |
Плотников |
019 |
050635 |
49 |
12.02.00 |
0014330103 |
Плотников |
020 |
050635 |
49 |
12.02.00 |
0015290103 |
Плотников |
Страница 1 Всего страниц 1
Лист отгрузки со склада
Со склада: Кинель
ЗАКАЗ № ОС00006092
Код клиента: S010
Название клиента: ООО «Виктория Холдинг»
Отгрузка произведена: 12.02.2000 13:45
Код продукта | Название продукта | Срок годности | Количество коробов | Примечание |
050029 | Родные просторы 24´370г | 22.05.2000 | 30 | |
050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
050265 | Незнакомка 24´225г | 01.06.2000 | 30 | |
050428 | Фрегат 6´20´100г | 09.08.2000 | 60 | |
050471 | Нестле с апельсином | 27.06.2000 | 23 | |
050049 | Восторг 6´20´100г | 23.01.2001 | 30 | |
050427 | Кофе с молоком 6´20´100г | 18.01.2001 | 15 | |
050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
050033 | Палитра (ассорти) 33´240г | 02.06.2000 | 30 | |
050371 | Рябиновый аромат 33´240г | 04.06.2000 | 20 | |
050371 | Рябиновый аромат 33´240г | 04.06.2000 | 30 | |
050371 | Рябиновый аромат 33´240г | 04.06.2000 | 30 | |
050371 | Рябиновый аромат 33´240г | 04.06.2000 | 30 | |
050431 | Кокос 6´20´100г | 05.07.2000 | 6 | |
050431 | Кокос 6´20´100г | 05.07.2000 | 3 | |
050470 | Нестле с персиком | 25.06.2000 | 18 | |
050061 | Нестле классик 225г | 24.08.2000 | 2 | |
050476 | Совершенство | 27.02.2001 | 5 | |
050406 | Жигули 6´16´100г | 01.07.2001 | 7 | |
050433 | Елена 6´18´100г | 03.08.2000 | 20 |
Страница 1 Всего страниц 2
050324 | Коллекция 8´430г | 01.06.2000 | 30 | |
050420 | Ананас 6´20´100г | 29.06.2000 | 20 | |
050421 | Нестле Кл. с рисом | 12.07.2000 | 15 | |
050410 | Сударушка 6´20´100г | 19.08.2000 | 25 | |
050003 | Шок с шок. нач. 8´36´50г | 02.08.2000 | 15 | |
050001 | Шок с арахисом 8´36´50г | 29.07.2000 | 12 | |
050015 | Путешествие 20´30´25г | 04.02.2001 | 9 |
Всего коробов отгружено: 1341
Заведующий складом: Плотников А.Н.
Указанный выше товар сдала представителю получателя
полностью ___________________
Получатель: ООО «Виктория Холдинг»
Товар получил в соответствии с наименованиями,
спецификациями и количествами, указанными в настоящем
документе ___________________
Страница 2 Всего страниц 2
Листинг модуля программы Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables, Mask;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
MaskEdit1: TMaskEdit;
Table1: TTable;
Table1Pasword: TFloatField;
Table1Fam: TStringField;
Table1Im: TStringField;
Table1Ot: TStringField;
Table1Adres: TStringField;
Table1Telefon: TStringField;
Table1Status: TStringField;
DataSource1: TDataSource;
procedure Button1Click(Sender: TObject);
procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s,p,s1 : string;
implementation
uses Unit2, Unit3;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey]);
if Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey])=false then Application.Terminate;
if Form1.Table1.Locate('Pasword',MaskEdit1.Text,[loPartialKey])=true then
begin
Form1.Table1.Edit;
s:=Form1.Table1Status.Text;
p:=Form1.Table1Fam.Text;
Form1.Table1.Post;
Form3.Label1.Caption:=p;
Form3.Label2.Caption:=s;
if Form1.Table1Status.Text='Администратор' then Form3.Button2.Visible:=true else Form3.Button2.Visible:=false;
if Form1.Table1Status.Text='Администратор' then Form3.Button3.Visible:=true else Form3.Button3.Visible:=false;
Form2.Visible:=false;
Form1.Visible:=false;
Form3.Show;
Form1.MaskEdit1.Text:='';
end;
end;
procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = VK_RETURN) then Form1.Button1.Click;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Visible:=false;
Form3.ShowModal;
end;
end.