Информационная система складского терминала (стр. 16 из 16)
Журнал расхода № 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.