Привет! Помогите исправить ошибку:
| Код |
if (CheckBox1.Checked=false) and (form4.Caption='Выбор накладной') then
begin
if ComboBox1.Text<>'' then
begin
if DataModule2.nak.Locate('PER_NOM_DOK',ComboBox1.Text,[])then
begin
Application.CreateForm(Tform5, form5);
form5.Show;
DataModule2.pri_pov.Active:=false;
DataModule2.sp_zakaz.Active:=false;
close;
end;
end
else
ShowMessage('Выбирите из списка значение'+' '+Label1.Caption);
end
else if (CheckBox1.Checked=true) and (form4.Caption='Выбор накладной') then
begin
if DataModule2.nak['PER_NAIMEN']= 'Отправка в поверку' then
begin
DataModule2.nak.Insert;
DataModule2.nak['PER_NAIMEN']:= 'Отправка в поверку';
DataModule2.nak['PER_VID_DOK']:= 1;
end
else if DataModule2.nak['PER_NAIMEN']= 'Получение из поверки' then
begin
DataModule2.nak.Insert;
DataModule2.nak['PER_NAIMEN']:= 'Получение из поверки';
DataModule2.nak['PER_VID_DOK']:= 2;
end;
DataModule2.nak['PER_DATA']:= Date;
DataModule2.nak['PER_DATA_DOK']:= RzDateTimeEdit1.Text;
DataModule2.nak['PER_NOM_DOK']:= RzEdit1.Text;
DataModule2.nak['SO_ID']:= DataModule2.pri_pov['SO_ID'];
DataModule2.nak['ZA_ID']:= DataModule2.sp_zakaz['ZA_ID'];
DataModule2.nak.Post;
DataModule2.nak.Refresh;
DataModule2.nak.Locate('PER_NOM_DOK;PER_DATA_DOK'
,VarArrayOf([RzEdit1.Text,RzDateTimeEdit1.Text])
,[]);
Application.CreateForm(Tform5, form5);
If DataModule2.nak['PER_NAIMEN']= 'Получение из поверки' then
form5.Caption:='Поступления прибора на склад';
form5.Show;
DataModule2.pri_pov.Active:=false;
DataModule2.sp_zakaz.Active:=false;
close;
end
//--------------------------------------------------------------------------
else if (CheckBox1.Checked=false) and (form4.Caption='Входной контроль(Брак)') or (form4.Caption='Входной контроль(Годен)') then
begin
if ComboBox1.Text<>'' then
begin
if DataModule2.pov.Locate('PER_Data',ComboBox1.Text,[])then
begin
Application.CreateForm(Tform5, form5);
form5.Caption:='Входной контроль';
form5.Show;
s:='';
DataModule2.pri_pov.Active:=false;
DataModule2.sp_zakaz.Active:=false;
close;
end;
//end
//else
//ShowMessage('Выбирите из списка значение'+' '+Label1.Caption);
end
else if (CheckBox1.Checked=true) and (form4.Caption='Входной контроль(Брак)') or (form4.Caption='Входной контроль(Годен)') then
begin
if (form4.Caption='Входной контроль(Годен)') then
begin
DataModule2.pov.Insert;
DataModule2.pov['PER_NAIMEN']:= 'Входной контроль';
end
else if form4.Caption='Поверка(Годен)' then
begin
DataModule2.pov.Insert;
DataModule2.pov['PER_NAIMEN']:= 'Входной контроль' ;
end
else if form4.Caption='Входной контроль(Брак)' then
begin
DataModule2.pov.Insert;
DataModule2.pov['PER_NAIMEN']:= 'Входной контроль';
DataModule2.pov['PER_PRICHINA']:=RzDBMemo1.Text;
end
else if form4.Caption='Поверка(Брак)' then
begin
DataModule2.pov.Insert;
DataModule2.pov['PER_NAIMEN']:= 'Входной контроль';
DataModule2.pov['PER_PRICHINA']:=RzDBMemo1.Text;
end;
DataModule2.pov['PER_DATA']:= Date;
DataModule2.pov['PER_VID_DOK']:= d;
DataModule2.pov['PER_DATA_DOK']:= RzDateTimeEdit1.Text;
DataModule2.pov['PER_NOM_DOK']:= RzEdit1.Text;
DataModule2.pov['SO_ID']:= DataModule2.pri_pov['SO_ID'];
DataModule2.pov['ZA_ID']:= DataModule2.sp_zakaz['ZA_ID'];
DataModule2.pov['per_rezultat']:=s;
DataModule2.pov.Post;
DataModule2.pov.Refresh;
DataModule2.pov.Locate('PER_NOM_DOK;PER_DATA_DOK'
,VarArrayOf([RzEdit1.Text,RzDateTimeEdit1.Text])
,[]);
Application.CreateForm(Tform5, form5);
form5.Show;
s:='';
DataModule2.pri_pov.Active:=false;
DataModule2.sp_zakaz.Active:=false ;
close
end
end;
|
И еще как это можно преобразовать в процедуру? как мне дата сет в процедуре обозначить? |