📄 stock_enter.pas
字号:
Commandtext:='Update [Receipt] set Flag_sign=''单据'' where Receipt_No='''+Trim(List_NO)+'''';
try
Execute;
try
Stock_States_Total;
Application.MessageBox('［采购入库］单据过帐完毕！',pchar(application.Title),mb_iconwarning);
except
Application.MessageBox('修改［库存表］时失败，不能过帐,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存［采购入库审核表］时连接服务器失败,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('保存［采购入库明细］时循环失败,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存［采购入库单］时失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
except
Application.MessageBox('打开［采购入库视图］时失败，不能过帐，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
//修改草稿单据
if Public_Do_Result='02' then
begin
with frm_data.ClientDataSet_Add do
begin
Close;
Commandtext:='';
Commandtext:='Update[Stock_Jion] set Copy_Date='''+Trim(Edit1.Text)+''',Contract_No='''+Trim(Edit3.Text)+''',WLDW='''+Trim(Edit4.Text)+''',Storage_Name='''+Trim(Edit5.Text)+''',Transactor='''+Trim(Edit6.Text)+''',Shop_NO='''+Trim(Edit7.Text)+''',proposer='''+Trim(Edit8.Text)+''',Resume='''+Trim(Edit9.Text)+''',Remark='''+Trim(Edit10.Text)+''',Quality_Check_ID='''+Trim(Edit11.Text)+''' where Stock_No='''+Trim(List_NO)+'''';
try
Execute; //修改采购入库表
try
for i:=1 to Total_Count-1 do
begin
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='update [Stock_Jion_detail] set Pass_NO='''+Trim(StringGrid1.Cells[3,i])+''',price='''+Trim(StringGrid1.Cells[4,i])+''',amount='''+Trim(StringGrid1.Cells[5,i])+''',Total_Money='''+Trim(StringGrid1.Cells[6,i])+''',agio='''+Trim(StringGrid1.Cells[7,i])+''',agio_price='''+Trim(StringGrid1.Cells[8,i])+''',agio_money='''+Trim(StringGrid1.Cells[9,i])+''',tax_rate='''+Trim(StringGrid1.Cells[10,i])+''',tax_rate_price='''+Trim(StringGrid1.Cells[11,i])+''',tax_money='''+Trim(StringGrid1.Cells[12,i])+''' where Stock_NO='''+Trim(List_NO)+''' and Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
try
Execute;//修改采购入库明细表
except
Application.MessageBox('保存［采购入库明细］时连接服务器失败,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
except
Application.MessageBox('保存［采购入库明细］时循环失败,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存［采购入库单］时失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
if func.Public_Do_Result='03' then //废弃退出
begin
frm_data.ClientDataSet_Add.Close;
frm_data.ClientDataSet_Add.Active:=False;
Close;
end;
end;
frm_Public_Don.Free;
end;
procedure Tfrm_Stock_Enter.Edit1DblClick(Sender: TObject);
begin
Edit1.Text:=ForMatDatetime('yyyy''-''mm''-''dd',now);
end;
procedure Tfrm_Stock_Enter.Cmd_HTClick(Sender: TObject);
begin
Contract_Check_Result_Str:='';
Contract_Check_Str:='Stock_Enterstr';
frm_Contract_Check:=Tfrm_Contract_Check.Create(self);
frm_Contract_Check.ShowModal;
Edit3.Text:=Contract_Check_Result_Str;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='Select * from [Stock_contract] where Contract_No='''+Trim(Edit3.Text)+'''';
Open;
Edit4.Text:=frm_data.ClientDataSet_Add.FieldByName('wldw').AsString;
end;
frm_Contract_Check.Free;
end;
procedure Tfrm_Stock_Enter.SpeedButton1Click(Sender: TObject);
begin
Check_Mond:='';
Check_Mond:='DW-0002';
frm_Supply_Monad:=Tfrm_Supply_Monad.Create(self);
frm_Supply_Monad.Caption:='【供货单位】';
frm_Supply_Monad.ShowModal;
Edit4.Text:=check_Mond_Result;
frm_Supply_Monad.Free;
end;
procedure Tfrm_Stock_Enter.SpeedButton5Click(Sender: TObject);
begin
Check_Storage:='';
Check_Storage_Result:='';
Check_Storage:='Stock_Ente';
frm_Storage_Select:=Tfrm_Storage_Select.Create(self);
frm_Storage_Select.ShowModal;
Edit_Stock_Name.Text:=Trim(Check_Storage_Result);
Edit5.Text:=Trim(Check_Storage_Result_NO);
frm_Storage_Select.Free;
end;
procedure Tfrm_Stock_Enter.SpeedButton8Click(Sender: TObject);
begin
ChildShop_Str:='';
ChildShop_Result_NO:='';
ChildShop_Result_Name:='';
ChildShop_Str:='Stock_Enter_str';
frm_ChildShop_Select:=Tfrm_ChildShop_Select.Create(self);
frm_ChildShop_Select.ShowModal;
Edit7.Text:=ChildShop_Result_NO;
//Edit_Shop_Name.Text:=ChildShop_Result_Name;
frm_ChildShop_Select.Free;
end;
procedure Tfrm_Stock_Enter.SpeedButton4Click(Sender: TObject);
var
K,SRow:Integer;
begin
ZLXZ_Str:='';
ZLXZ_Str:='Stock_Enter_001';
ZLXZ_Str_List_NO:='';
ZLXZ_Str_Result:='';
frm_Quality_Check_Select:=Tfrm_Quality_Check_Select.Create(self);
frm_Quality_Check_Select.ShowModal;
if ZLXZ_Str_Result='Stock_Enter_001' then
begin
Edit11.Text:=ZLXZ_Str_List_NO;
with frm_data.ClientDataSet3 do
begin
Close;
CommandText:='';
CommandText:='SELECT * FROM [Quality_Check] where Stock_NO='''+Trim(ZLXZ_Str_List_NO)+'''';
Open;
if frm_data.ClientDataSet3.RecordCount>0 then
begin
Edit4.Text:=frm_data.ClientDataSet3.FieldByName('Gather_Name').AsString;
Edit5.Text:=frm_data.ClientDataSet3.FieldByName('Storage_NO').AsString;
Edit7.Text:=frm_data.ClientDataSet3.FieldByName('Shop_NO').AsString;
Edit3.Text:=frm_data.ClientDataSet3.FieldByName('Contract_NO').AsString;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='Select * from [V_Stock_Quality_View] where Stock_NO='''+Trim(ZLXZ_Str_List_NO)+'''';
try
Open;
SRow:=frm_data.ClientDataSet_Add.RecordCount;
StringGrid1.RowCount:=SRow+1;
for k:=1 to StringGrid1.RowCount do
begin
StringGrid1.Cells[1,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_NO'];//商品编号
StringGrid1.Cells[2,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Name'];//商品名称
//StringGrid1.Cells[3,k]:=frm_data.ClientDataSet_Add.FieldValues['Pass_NO'];//数量
//StringGrid1.Cells[4,k]:=frm_data.ClientDataSet_Add.FieldValues['Price'];//单价
//StringGrid1.Cells[5,k]:=frm_data.ClientDataSet_Add.FieldValues['amount'];//金额
//StringGrid1.Cells[6,k]:=frm_data.ClientDataSet_Add.FieldValues['Total_Money'];//类别编号
//StringGrid1.Cells[7,k]:=frm_data.ClientDataSet_Add.FieldValues['agio']; //类别名称
//StringGrid1.Cells[8,k]:=frm_data.ClientDataSet_Add.FieldValues['agio_price'];//品牌编号
//StringGrid1.Cells[9,k]:=frm_data.ClientDataSet_Add.FieldValues['agio_money']; //品牌名称
//StringGrid1.Cells[10,k]:=frm_data.ClientDataSet_Add.FieldValues['tax_rate'];//品种编号
//StringGrid1.Cells[11,k]:=frm_data.ClientDataSet_Add.FieldValues['tax_rate_price']; //品种名称
//StringGrid1.Cells[12,k]:=frm_data.ClientDataSet_Add.FieldValues['tax_money'];//规格型号代码
//StringGrid1.Cells[13,k]:=frm_data.ClientDataSet_Add.FieldValues['quality'];//规格型号名称
StringGrid1.Cells[14,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal'];//球面度数
StringGrid1.Cells[15,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards'];//柱面度数
StringGrid1.Cells[16,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Brand'];//颜色代码
StringGrid1.Cells[17,k]:=frm_data.ClientDataSet_Add.FieldValues['Norms_Type'];//颜色名称
StringGrid1.Cells[18,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Sphere'];//商品条玛
StringGrid1.Cells[19,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Column'];//注册商标
StringGrid1.Cells[20,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Color'];//生产厂家
StringGrid1.Cells[21,k]:=frm_data.ClientDataSet_Add.FieldValues['Goods_Coding'];//商品简称
StringGrid1.Cells[22,k]:=frm_data.ClientDataSet_Add.FieldValues['Enroll_Brand'];//基本单位
StringGrid1.Cells[23,k]:=frm_data.ClientDataSet_Add.FieldValues['Base_Monad'];//整件单位
StringGrid1.Cells[24,k]:=frm_data.ClientDataSet_Add.FieldValues['Valid_Month']; //有效日期
StringGrid1.Cells[25,k]:=frm_data.ClientDataSet_Add.FieldValues['Valid_Day']; //有效日期
StringGrid1.Cells[26,k]:=frm_data.ClientDataSet_Add.FieldValues['Remark']; //备注说明
Next;
end;
except
Application.MessageBox('系统错误，在打开数据库【质量验收单】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),MB_ICONWarning);
Exit;
end;
end;
end
else
begin
Application.MessageBox('没有需要的数据，请确认！',Pchar(application.Title),MB_ICONwarning)
end;
end;
end;
frm_Stock_Write_Check.Free;
end;
procedure Tfrm_Stock_Enter.SpeedButton7Click(Sender: TObject);
begin
Edit8.Text:=Handle_Man;
end;
procedure Tfrm_Stock_Enter.StringGrid1DblClick(Sender: TObject);
var
openstr:string;
S1,s2,s3:string;
begin
if Trim(Edit2.Text)='' then
begin
Application.MessageBox('操作失败，【单据编号】不能为空！',pchar(application.Title),mb_iconwarning);
Edit2.SetFocus;
Exit;
end;
if Trim(Edit4.Text)='' then
begin
Application.MessageBox('操作失败，【供货单位】不能为空！',pchar(application.Title),mb_iconwarning);
Edit4.SetFocus;
Exit;
end;
if Trim(Edit5.Text)='' then
begin
Application.MessageBox('操作失败，【经手人】不能为空！',pchar(application.Title),mb_iconwarning);
Edit5.SetFocus;
Exit;
end;
s1:='select Goods_NO,Goods_Name,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,';
S2:='Goods_Brand,Norms_Type_NO,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,';
s3:='Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark from [Goods_Information]';
openstr:=s1+s2+s3;
//openstr:='Select Goods_NO,Goods_Modal_No,Goods_Modal,Goods_Cards_NO,Goods_Cards,Goods_Brand_NO,Goods_Brand,Norms_Type_NO,Norms_Type,Goods_Sphere,Goods_Column,Goods_Color_NO,Goods_Color,Goods_Coding,Enroll_Brand,Factory,Goods_Name,Goods_abbrev,Base_Monad,Whole_Monad,Valid_Month,Valid_Day,Remark from [Goods_Information]';
if ((PCol=1) or (PCol=2))then //表示选择的是商品编号 选择的是第一列
begin
Goods_Check_str:='';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -