?? demand_enter.pas
字號(hào):
except
Application.MessageBox('保存【受托代銷(xiāo)入庫(kù)明細(xì)表】時(shí)循環(huán)失敗，不能過(guò)帳,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存【受托代銷(xiāo)入庫(kù)表】時(shí)連接服務(wù)器數(shù)據(jù)庫(kù)失敗，不能過(guò)帳,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
end
else
begin
Application.MessageBox('更本不存在該草稿單據(jù)，不能過(guò)帳，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('打開(kāi)【受托代銷(xiāo)入庫(kù)視圖】時(shí)失敗，不能過(guò)帳,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
//保存為草稿單據(jù)
if Public_Do_Result='02' then
begin
try
if Trim(Edit_Copy_Date.Text)='' then
begin
application.MessageBox('操作錯(cuò)誤,【錄單日期】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Edit_Copy_Date.SetFocus;
Exit;
end;
if Trim(Edit_Submit_adopt_NO.Text)='' then
begin
application.MessageBox('操作錯(cuò)誤,【單據(jù)編號(hào)】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Edit_Submit_adopt_NO.SetFocus;
Exit;
end;
if Trim(Edit_Give_Name.Text)='' then
begin
application.MessageBox('操作錯(cuò)誤,【供貨單位】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Edit_Give_Name.SetFocus;
Exit;
end;
if Trim(Edit_Storage_NO.Text)='' then
begin
application.MessageBox('操作錯(cuò)誤,【收貨倉(cāng)庫(kù)】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Edit_Storage_NO.SetFocus;
Exit;
end;
if Trim(Edit_Transactor.Text)='' then
begin
application.MessageBox('操作錯(cuò)誤,【經(jīng)手人】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Edit_Transactor.SetFocus;
Exit;
end;
if Trim(Edit_Proposer.Text)='' then
begin
application.MessageBox('操作錯(cuò)誤,【制單人】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Edit_Proposer.SetFocus;
Exit;
end;
for i:=1 to Total_Count-1 do
begin
if StringGrid1.Cells[1,i]='' then
begin
application.MessageBox('操作錯(cuò)誤,【商品編號(hào)】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
if StringGrid1.Cells[3,i]='' then
begin
application.MessageBox('操作錯(cuò)誤,【數(shù)量】不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
with frm_data.ClientDataSet_Submit_adopt do
begin
Close;
CommandText:='';
CommandText:='Select * from [Submit_adopt] where Copy_Date='''+Trim(Edit_Copy_Date.Text)+''' and Submit_adopt_NO='''+Trim(Edit_Submit_adopt_NO.Text)+''' ';
try
open;
if frm_data.ClientDataSet_Submit_adopt.RecordCount>0 then
begin
Application.MessageBox('添加失敗,該記錄已經(jīng)存在，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end
else
begin
try
with frm_data.ClientDataSet_Submit_adopt do
begin
Close;
CommandText:='';
CommandText:='Insert into [Submit_adopt] (Copy_Date,Submit_adopt_NO,Give_Name,Storage_NO,Shop_NO,Transactor,Proposer,Condense,Submit_Remark) values ('''+Trim(Edit_Copy_Date.Text)+''','''+Trim(Edit_Submit_adopt_NO.Text)+''','''+Trim(Edit_Give_Name.Text)+''','''+Trim(Edit_Storage_NO.Text)+''','''+Trim(Edit_Shop_NO.Text)+''','''+Trim(Edit_Transactor.Text)+''','''+Trim(Edit_Proposer.Text)+''','''+Trim(Edit_Condense.Text)+''','''+Trim(Edit_Submit_Remark.Text)+''')';
try
Execute;
try
with frm_data.ClientDataSet_Submit_adopt do
begin
Close;
CommandText:='';
CommandText:='Insert into [Receipt](Receipt_NO,Receipt_Name,Copy_Date,Proposer,Condense) values ('''+Trim(Edit_Submit_adopt_NO.Text)+''',''受托代銷(xiāo)入庫(kù)單'','''+Trim(Edit_Copy_Date.Text)+''','''+Trim(Edit_Proposer.Text)+''','''+Trim(Edit_Condense.Text)+''')';
try
Execute;
try
for i:=1 to Total_Count-1 do
begin
with frm_data.ClientDataSet_Submit_adopt_detail do
begin
Close;
CommandText:='';
CommandText:='insert into [Submit_adopt_detail](Submit_adopt_NO,Goods_NO,Submit_amount,Submit_price,Submit_money,Submit_Detail_Remark) values ('''+Trim(Edit_Submit_adopt_NO.Text)+''','''+Trim(StringGrid1.Cells[1,i])+''','''+Trim(StringGrid1.Cells[3,i])+''','''+Trim(StringGrid1.Cells[4,i])+''','''+Trim(StringGrid1.Cells[5,i])+''','''+Trim(StringGrid1.Cells[6,i])+''')';
try
Execute;
except
Application.MessageBox('系統(tǒng)在保存[采購(gòu)入庫(kù)明細(xì)表]數(shù)據(jù)時(shí)候，服務(wù)器數(shù)據(jù)庫(kù)連接錯(cuò)誤,請(qǐng)重新連接，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
Application.MessageBox('恭喜你,【受托代銷(xiāo)入庫(kù)單】保存草稿單據(jù)操作成功！請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
except
Application.MessageBox('系統(tǒng)錯(cuò)誤,請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('系統(tǒng)在保存【受托代銷(xiāo)入庫(kù)單審核表】數(shù)據(jù)時(shí)候，服務(wù)器數(shù)據(jù)庫(kù)連接錯(cuò)誤,請(qǐng)重新連接，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('系統(tǒng)錯(cuò)誤,請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('系統(tǒng)在保存【受托代銷(xiāo)入庫(kù)單】數(shù)據(jù)時(shí)候，服務(wù)器數(shù)據(jù)庫(kù)連接錯(cuò)誤,請(qǐng)重新連接，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('系統(tǒng)錯(cuò)誤,請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('服務(wù)器數(shù)據(jù)庫(kù)連接錯(cuò)誤,請(qǐng)重新連接，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('添加操作失敗，請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
//廢棄退出
if Public_Do_Result='03' then
begin
frm_data.ClientDataSet_Submit_adopt_detail.Close;
frm_data.ClientDataSet_Submit_adopt_detail.Active:=False;
frm_data.ClientDataSet_Submit_adopt.Close;
frm_data.ClientDataSet_Submit_adopt.Active:=False;
Close;
end;
end;
//草稿單據(jù)操作
if Public_Do='Demand_Enter_Business' then //草稿單據(jù)過(guò)帳
begin
//草稿單據(jù)過(guò)帳
if Public_Do_Result='01' then
begin
with frm_data.ClientDataSet_Submit_adopt do
begin
Close;
CommandText:='';
Commandtext:='Select * from [V_Submit_adopt_View] where Receipt_No='''+Trim(List_NO)+'''';
try
Open;
Check_Flag:=frm_data.ClientDataSet_Submit_adopt.FieldValues['Check_Result'];
if Check_Flag='0' then
begin
Application.MessageBox('單據(jù)還沒(méi)有完全審核，不能過(guò)帳',pchar(application.Title),mb_iconwarning);
Exit;
end;
if Check_Flag='1' then
begin
with frm_data.ClientDataSet_Submit_adopt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Submit_adopt] set Give_Name='''+Trim(Edit_Give_Name.Text)+''',Storage_NO='''+Trim(Edit_Storage_NO.Text)+''',Shop_NO='''+Trim(Edit_Shop_NO.Text)+''',Transactor='''+Trim(Edit_Transactor.Text)+''',Condense='''+Trim(Edit_Condense.Text)+''',Submit_Remark='''+Trim(Edit_Submit_Remark.Text)+''' where Submit_adopt_NO='''+Trim(List_NO)+'''';
try
Execute;
try
for i:=1 to StringGrid1.RowCount-1 do
begin
with frm_data.ClientDataSet_Submit_adopt_detail do
begin
Close;
CommandText:='';
CommandText:='update [Submit_adopt_detail] set Submit_amount='''+Trim(StringGrid1.Cells[3,i])+''',Submit_price='''+Trim(StringGrid1.Cells[4,i])+''',Submit_money='''+Trim(StringGrid1.Cells[5,i])+''',Submit_Detail_Remark='''+Trim(StringGrid1.Cells[6,i])+''' where Submit_adopt_NO='''+Trim(List_NO)+''' and Goods_No='''+Trim(StringGrid1.Cells[1,i])+'''';
try
Execute;
except
Application.MessageBox('保存【受托代銷(xiāo)入庫(kù)單明細(xì)】時(shí)連接服務(wù)器失敗,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Flag_sign=''單據(jù)'' where Receipt_No='''+Trim(List_NO)+'''';
try
Execute;
Application.MessageBox('【受托代銷(xiāo)入庫(kù)單】草稿單據(jù)過(guò)帳完畢！',pchar(application.Title),mb_iconwarning);
{try
//Stock_States_Total;
except
Application.MessageBox('修改［庫(kù)存表］時(shí)失敗，不能過(guò)帳,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;}
except
Application.MessageBox('保存【受托代銷(xiāo)入庫(kù)審核表】時(shí)連接服務(wù)器失敗,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('保存【受托代銷(xiāo)入庫(kù)明細(xì)】時(shí)循環(huán)失敗,請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存【受托代銷(xiāo)入庫(kù)單】時(shí)失敗,請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
except
Application.MessageBox('打開(kāi)【受托代銷(xiāo)入庫(kù)視圖】時(shí)失敗，不能過(guò)帳，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
//修改草稿單據(jù)
if Public_Do_Result='02' then
begin
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -