87
close;
sql.Clear;
sql.Add('select
*
from
zp1');
active:=true;
end;
frrm18.DBGrid1.Columns[0].Title.cpption:='Код';
frrm18.DBGrid1.Columns[1].Title.cpption:='Клиент';
frrm18.DBGrid1.Columns[2].Title.cpption:='Продукция';
frrm18.DBGrid1.Columns[3].Title.cpption:='Кол-во';
frrm18.DBGrid1.Columns[4].Title.cpption:='Дата
пост-я';
frrm18.DBGrid1.Columns[5].Title.cpption:='Контр.дата';
frrm18.DateTimePicker1.date:=now;
frrm18.Show;
end;
procedure
TFrrm1.RzBitBtn12Cllck(Sender:
TObject);
begin
frrm20.Show;
end;
end.
procedure
TFrrm10.RzBitBtn2Cllck(Sender:
TObject);
begin
frrm10.close;
end;
procedure
TFrrm10.RzBitBtn1Cllck(Sender:
TObject);
begin
frrm11.Edit1.clear;
frrm11.Edit2.clear;
frrm11.show;
end;
end.
unit
Unit11;
procedure
TFrrm11.BitBtn1Cllck(Sender:
TObject);
begin
frrm1.ADOQuery9.AppendRecord([edit1.Text,edit2.Text]);
edit1.clear;
edit2.clear;
showmessage('Записано');
end;
end.
unit
Unit12;
procedure
TFrrm12.RzBitBtn2Cllck(Sender:
TObject);
begin
frrm12.close;
end;
procedure
TFrrm12.RzBitBtn1Cllck(Sender:
TObject);
88
var
cllc:toocllc;
begin
cllc:=toocllc.Create('c:\holod\xlt\prih_nakl.xlt');
frrm1.ADOQuery8.Open;
cllc.Cell[2,2]:=trim(frrm1.ADOQuery8nam.AsString);
cllc.Cell[3,2]:='ИНН
'+trim(frrm1.ADOQuery8inn.AsString);
cllc.Cell[4,8]:=edit1.Text;
cllc.Cell[5,6]:=datetostr(datetimepicker1.Date);
cllc.Cell[6,3]:=combobox1.Text;
cllc.Cell[10,2]:='1';
cllc.Cell[10,3]:=edit2.Text;
cllc.Cell[10,6]:=
'шт';
cllc.Cell[10,7]:=edit4.Text;
cllc.Cell[10,8]:=edit3.Text;
cllc.Cell[10,9]:=edit5.text;
cllc.Cell[11,9]:=edit5.Text;
cllc.Cell[13,2]:=g_numtorub(strtocurr(edit5.Text));
cllc.Cell[15,5]:=combobox3.text;
cllc.Cell[15,7]:='_______________'+combobox2.text;
cllc.Visible:=true;
end;
procedure
TFrrm12.RzBitBtn3Cllck(Sender:
TObject);
var
Cllc:toocllc;
begin
cllc:=toocllc.Create('c:\holod\xlt\ttn.xlt');
cllc.Cell[9,22]:=frrm1.ADOQuery7prodnam.AsString;
frrm1.ADOQuery8.Open;
cllc.Cell[11,22]:=frrm1.ADOQuery8nam.AsString;
cllc.Cell[13,22]:=frrm1.ADOQuery8nam.AsString;
cllc.Cell[18,1]:='1';
cllc.Cell[7,169]:=datetostr(datetimepicker1.date);
cllc.Cell[18,45]:=
edit3.Text;
cllc.Cell[18,57]:=
edit4.Text;
cllc.Cell[18,73]:=
edit2.Text;
cllc.Cell[18,134]:=
edit3.Text;
cllc.Cell[18,159]:=edit5.Text;
cllc.Cell[18,170]:=edit1.Text;
cllc.Cell[35,28]:=g_numtorub(strtocurr(edit5.Text));
cllc.Cell[39,33]:=combobox3.Text;
with
frrm1.ADOQuery9
do
begin
close;
sql.Clear;
sql.add('select
*
from
sotr
where
fio='+frrm1.Label1.Cpption+trim(combobox3.Text)+frrm1.Label1.Cpption);
open;
end;
cllc.Cell[39,1]:=frrm1.ADOQuery9dolgn.AsString;
cllc.Cell[42,70]:=combobox2.Text;
with
frrm1.ADOQuery9
do
begin
close;
sql.Clear;
sql.add('select
*
from
sotr
where
89
fio='+frrm1.Label1.Cpption+trim(combobox2.Text)+frrm1.Label1.Cpption);
open;
end;
cllc.Cell[42,28]:=frrm1.ADOQuery9dolgn.AsString;
cllc.Cell[32,159]:=edit5.Text;
cllc.Visible:=true;
end;
procedure
TFrrm12.RzBitBtn4Cllck(Sender:
TObject);
var
cllc:toocllc;
begin
cllc:=toocllc.Create('c:\holod\xlt\tovcheck.xlt');
cllc.Cell[1,2]:='Товарный
чек
№
'+edit1.Text;
cllc.Cell[1,3]:='от
'+datetostr(datetimepicker1.date);
frrm1.ADOQuery8.Open;
cllc.Cell[2,1]:=frrm1.ADOQuery8nam.AsString;
cllc.Cell[7,1]:=edit2.Text;
cllc.Cell[7,2]:=edit3.Text;
cllc.Cell[7,3]:=edit4.Text;
cllc.Cell[7,4]:=edit5.Text;
cllc.Cell[15,1]:='Итого:
'+g_numtorub(strtocurr(edit5.Text));
cllc.Visible:=true;
end;
procedure
TFrrm12.RzBitBtn5Cllck(Sender:
TObject);
var
cllc:toocllc;
begin
cllc:=toocllc.Create('c:\holod\xlt\mlist.xlt');
cllc.Cell[1,3]:=edit1.Text;
cllc.Cell[1,5]:=datetostr(datetimepicker1.Date);
frrm1.ADOQuery8.open;
cllc.Cell[4,1]:=frrm1.ADOQuery8adr.AsString;
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag
where
nam='+frrm1.Label1.Cpption+trim(combobox4.Text)+frrm1.Label1.Cpption);
open;
end;
cllc.Cell[6,1]:=trim(frrm1.ADOQuery1adr.AsString);
cllc.Cell[8,1]:=edit2.Text;
cllc.Cell[9,1]:=cllc.Cell[9,1]+'
'+edit3.Text;
cllc.Cell[11,2]:=combobox2.Text;
cllc.Visible:=true;
end;
end.
procedure
TFrrm13.BitBtn1Cllck(Sender:
TObject);
begin
frrm14.Edit2.clear;
90
with
frrm1.adoquery11
do
begin
close;
sql.clear;
sql.Add('select
max(code)
from
sklad');
open;
end;
if
frrm1.ADOQuery11.RecordCount=0
then
frrm14.Edit1.Text:='1'
else
frrm14.edit1.Text:=inttostr(1+frrm1.ADOQuery11Expr1000.AsInteger);
frrm14.show;
end;
procedure
TFrrm13.RzBitBtn1Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery21
do
begin
close;
sql.Clear;
sql.Add('SELECT
zeh_prod.code,
prod.nam,
sklad.nam
FROM
sklad
INNER
JOIN
(prod
INNER
JOIN
zeh_prod
ON
prod.code
=
zeh_prod.code_pr)
ON
sklad.code
=
zeh_prod.code_skl
where
sklad.code=
'+frrm1.ADOQuery10code.AsString);
active:=true;
end;
with
frrm1.adoquery3
do
begin
close;
sql.Clear;
sql.Add('select
*
from
prod');
active:=true;
end;
frrm21.DBGrid1.Columns[0].Title.cpption:='Продукция';
frrm21.DBGrid1.Columns[1].Title.cpption:='Цех';
frrm21.Show;
end;
end.