📄 stock_enter.pas
字号:
for i:=1 to Total_Count-1 do
begin
with frm_data.ClientDataSet_Add do
begin
Close;
frm_data.ClientDataSet_Add.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(EDit2.Text)+''' and Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
try
Execute;
except
Application.MessageBox('保存［采购入库明细］时连接服务器失败，不能过帐,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
with frm_data.ClientDataSet_Add do
begin
Close;
Commandtext:='';
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;
end
else
begin
Application.MessageBox('更本不存在该草稿单据，不能过帐，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('打开［采购入库视图］时失败，不能过帐,请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
//保存为草稿单据
if Public_Do_Result='02' then
begin
try
if Trim(Edit1.Text)='' then
begin
application.MessageBox('操作错误,【录单日期】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Edit1.SetFocus;
Exit;
end;
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;
if Trim(Edit6.Text)='' then
begin
application.MessageBox('操作错误,【经手人】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Edit6.SetFocus;
Exit;
end;
if Trim(Edit8.Text)='' then
begin
application.MessageBox('操作错误,【制单人】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Edit8.SetFocus;
Exit;
end;
if Trim(Edit11.Text)='' then
begin
application.MessageBox('操作错误,【质量验收单据号】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Edit11.SetFocus;
Exit;
end;
for i:=1 to Total_Count-1 do
begin
if StringGrid1.Cells[1,i]='' then
begin
application.MessageBox('操作错误,【商品编号】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
if StringGrid1.Cells[5,i]='' then
begin
application.MessageBox('操作错误,【数量】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
with frm_data.ClientDataSet_Add do
begin
Close;
frm_data.ClientDataSet_Add.CommandText:='';
CommandText:='Select * from [Stock_Jion] where Copy_Date='''+Trim(Edit1.Text)+''' and Stock_NO='''+Trim(Edit2.Text)+''' ';
try
open;
if frm_data.ClientDataSet_Add.RecordCount>0 then
begin
Application.MessageBox('添加失败,该记录已经存在，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end
else
begin
try
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='Insert into [Stock_Jion] (Copy_Date,Stock_No,Contract_No,WLDW,Storage_Name,Transactor,Shop_NO,proposer,Resume,remark,Quality_Check_ID) values ('''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)+''','''+Trim(Edit3.Text)+''','''+Trim(Edit4.Text)+''','''+Trim(Edit5.Text)+''','''+Trim(Edit6.Text)+''','''+Trim(Edit7.Text)+''','''+Trim(Edit8.Text)+''','''+Trim(Edit9.Text)+''','''+Trim(Edit10.Text)+''','''+Trim(Edit11.Text)+''')';
try
Execute;
try
with frm_data.ClientDataSet_Add do
begin
Close;
frm_data.ClientDataSet_Add.CommandText:='';
CommandText:='Insert into [Receipt](Receipt_NO,Receipt_Name,Copy_Date,Proposer,Condense) values ('''+Trim(Edit2.Text)+''',''采购入库单'','''+Trim(Edit1.Text)+''','''+Trim(Edit8.Text)+''','''+Trim(Edit10.Text)+''')';
try
Execute;
try
for i:=1 to Total_Count-1 do
begin
with frm_data.ClientDataSet_Add do
begin
Close;
frm_data.ClientDataSet_Add.CommandText:='';
CommandText:=Insert_Sql+'('''+Trim(Edit2.Text)+''','''+Trim(StringGrid1.Cells[1,i])+''','''+Trim(StringGrid1.Cells[2,i])+''','''+Trim(StringGrid1.Cells[5,i])+''','''+Trim(StringGrid1.Cells[13,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;
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;
end;
except
Application.MessageBox('服务器数据库连接错误,请重新连接，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
Application.MessageBox('恭喜你！【采购入库单】草稿单据保存操作成功，请确认！',pchar(application.Title),mb_iconwarning);
except
Application.MessageBox('添加操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
frm_Main.Panel_Title.Caption:='[连锁管理系统]->[采购信息管理]';
//废弃退出
if Public_Do_Result='03' then
begin
frm_data.ClientDataSet_Add.Close;
frm_data.ClientDataSet_Add.Active:=False;
Close;
end;
end;
//草稿单据操作
if Public_Do='Business_Draft_0001' then //草稿单据过帐
begin
//草稿单据过帐
if Public_Do_Result='01' then
begin
with frm_data.ClientDataSet2 do
begin
Close;
CommandText:='';
Commandtext:='Select * from [V_Stock_Level] where Receipt_No='''+Trim(Edit2.Text)+'''';
try
Open;
Check_Flag:=frm_data.ClientDataSet2.FieldValues['Check_Result'];
if Check_Flag='0' then
begin
Application.MessageBox('单据还没有完全审核，不能过帐',pchar(application.Title),mb_iconwarning);
Exit;
end;
if Check_Flag='1' 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;
with frm_data.ClientDataSet_Add do
begin
Close;
Commandtext:='';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -