📄 demand_fad.pas
字号:
end;
Next;
end;
if Trim(ExamineMan3)<>'' then
begin
tempstr:=ExamineMan3;
tt:=0;
while pos(',',tempstr)>0 do //取得逗号的位置
begin
temppos:=pos(',',tempstr); //取得逗号的位置
ss:=copy(tempstr,1,temppos-1);
tempstr:=copy(tempstr,temppos+1,length(tempstr)-temppos);
if ss=Handle_Man then
begin
P3.Visible:=True; L3.Caption:=LevelName3+'：'+ss;
if ee3='' then
begin
L3.Caption:=LevelName3+'：'+ss;
Flag3:=1;
end;
if ee3<>'' then
begin
L3.Caption:=LevelName3+'：';
Flag3:=2;
end;
end;
end;
Next;
end;
if Trim(ExamineMan4)<>'' then
begin
tempstr:=ExamineMan4;
tt:=0;
while pos(',',tempstr)>0 do //取得逗号的位置
begin
temppos:=pos(',',tempstr); //取得逗号的位置
ss:=copy(tempstr,1,temppos-1);
tempstr:=copy(tempstr,temppos+1,length(tempstr)-temppos);
if ss=Handle_Man then
begin
P4.Visible:=True; L4.Caption:=LevelName4+'：'+ss;
if ee4='' then
begin
L4.Caption:=LevelName4+'：'+ss;
Flag4:=1;
end;
if ee1<>'' then
begin
L4.Caption:=LevelName4+'：';
Flag4:=2;
end;
end;
end;
Next;
end;
if Trim(ExamineMan5)<>'' then
begin
tempstr:=ExamineMan5;
tt:=0;
while pos(',',tempstr)>0 do //取得逗号的位置
begin
temppos:=pos(',',tempstr); //取得逗号的位置
ss:=copy(tempstr,1,temppos-1);
tempstr:=copy(tempstr,temppos+1,length(tempstr)-temppos);
if ss=Handle_Man then
begin
P5.Visible:=True; L5.Caption:=LevelName5+'：'+ss;
if ee1='' then
begin
L5.Caption:=LevelName5+'：'+ss;
Flag5:=1;
end;
if ee5<>'' then
begin
L5.Caption:=LevelName5+'：';
Flag5:=2;
end;
end;
end;
Next;
end;
with frm_data.ClientDataSet_Submit_quit_detail do
begin
Close;
CommandText:='';
CommandText:='Select * from [V_Submit_quit_View] where Receipt_No='''+List_No+'''';
Open;
k:=frm_data.ClientDataSet_Submit_quit_detail.RecordCount;
StringGrid1.RowCount:=k+1;
//自动加载STRINGGRID的行数
for K:=1 to StringGrid1.RowCount do
begin
StringGrid1.Cells[0,K]:=IntTostr(k); //表示第0列第i行的名称
end;
//******************
Edit_Copy_Date.Text:=ForMatDateTime('yyyy''-''mm''-''dd',frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Copy_Date').AsDateTime);
Edit_Submit_quit_NO.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Receipt_No').AsString;
Edit_Give_Name.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Give_Name').AsString;
Edit_Storage_NO.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Storage_NO').AsString;
Edit_Shop_NO.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Shop_NO').AsString;
Edit_Transactor.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Transactor').AsString;
Edit_Proposer.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Proposer').AsString;
Edit_Condense.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Condense').AsString;
Edit_Submit_Remark.Text:=frm_data.ClientDataSet_Submit_quit_detail.FieldByName('Submit_Remark').AsString;
for k:=1 to k do
begin
StringGrid1.Cells[1,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_NO'];//商品编号
StringGrid1.Cells[2,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Name'];//商品名称
StringGrid1.Cells[3,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Submit_amount'];//数量
StringGrid1.Cells[4,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Submit_price'];//单价
StringGrid1.Cells[5,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Submit_money'];//金额
StringGrid1.Cells[6,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Submit_Detail_Remark'];//类别编号
StringGrid1.Cells[7,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Base_Monad'];//
StringGrid1.Cells[8,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Modal'];//
StringGrid1.Cells[9,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Cards'];//
StringGrid1.Cells[10,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Brand'];//
StringGrid1.Cells[11,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Norms_Type'];//
StringGrid1.Cells[12,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Sphere'];//
StringGrid1.Cells[13,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Column'];//
StringGrid1.Cells[14,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Color'];//
StringGrid1.Cells[15,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Goods_Coding'];//
StringGrid1.Cells[16,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Enroll_Brand'];//
StringGrid1.Cells[17,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Factory']; //
StringGrid1.Cells[18,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Valid_Month']; //
StringGrid1.Cells[19,k]:=frm_data.ClientDataSet_Submit_quit_detail.FieldValues['Remark']; //
Next;
end;
end;
end;
end;
procedure Tfrm_Demand_Fad.Cmd_DeleteClick(Sender: TObject);
var
i:shortint;
begin
if StringGrid1.col<>0 then
begin
StringGrid1.Rows[StringGrid1.Row].Clear; //删除选中行的所有列 ,用右键弹出菜单
DeleteRow(StringGrid1.Row);
//stredit.Text := '';
//stredit.Visible:=false;
//opengood.Visible:=false;
end;
for i:=1 to StringGrid1.RowCount do
StringGrid1.cells[0,i]:=inttostr(i);
end;
procedure Tfrm_Demand_Fad.Cmd_AddClick(Sender: TObject);
var
i:integer;
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1;
//Total_Count:=StringGrid1.RowCount;
for i:=1 to StringGrid1.RowCount-1 do
begin
StringGrid1.Cells[0,i]:=IntTostr(i); //表示第0列第i行
end;
end;
procedure Tfrm_Demand_Fad.Cmd1Click(Sender: TObject);
begin
if Flag1=1 then
begin
if Application.MessageBox('确定需要【审核】该单据吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
begin
try
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Examine_Man1='''+Trim(Handle_Man)+''' where Receipt_No='''+Trim(Edit_Submit_quit_NO.Text)+''' and Receipt_Name=''受托代销退货单''';
Execute;
L1.Caption:='';
L1.Caption:=LevelName1+'【已审】';
Flag1:=2;
Application.MessageBox('【审核】操作成功！请确认',Pchar(application.Title),MB_ICONwarning);
Cmd_Check_Filsh;
end;
except
Application.MessageBox('【审核】操作失败！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end
else if Flag1=2 then
begin
if Application.MessageBox('确定需要【反审核】该单据吗？'+#13#10+'如果【反审核】你将使后面级别的人的【审核】作废，'+#13#10+'后面级别的人必须重新【审核】，才能够生效，请确认！',pchar(application.Title),mb_okcancel)=idok then
begin
try
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Examine_Man1='''',Examine_Man2='''',Examine_Man3='''',Examine_Man4='''',Examine_Man5='''' where Receipt_No='''+Trim(Edit_Submit_quit_NO.Text)+''' and Receipt_Name=''受托代销退货单''';
Execute;
L1.Caption:=LevelName1+'：'+Handle_Man;
L2.Caption:=LevelName2+'：'+Handle_Man;
L3.Caption:=LevelName3+'：'+Handle_Man;
L4.Caption:=LevelName4+'：'+Handle_Man;
L5.Caption:=LevelName5+'：'+Handle_Man;
Flag2:=1; Flag3:=1; Flag4:=1; Flag5:=1;
L1.Visible:=True;
Flag1:=1;
Application.MessageBox('【反审核】操作成功！请确认',Pchar(application.Title),MB_ICONwarning);
Cmd_Check_Filsh;
end;
except
Application.MessageBox('【反审核】操作失败！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
end;
procedure Tfrm_Demand_Fad.Cmd2Click(Sender: TObject);
begin
if Flag2=1 then
begin
if Application.MessageBox('确定需要【审核】该单据吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
begin
try
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Examine_Man2='''+Trim(Handle_Man)+''' where Receipt_No='''+Trim(Edit_Submit_quit_NO.Text)+''' and Receipt_Name=''受托代销退货单''';
Execute;
L2.Caption:='';
L2.Caption:=LevelName2+'【已审】';
Flag2:=2;
Application.MessageBox('【审核】操作成功！请确认',Pchar(application.Title),MB_ICONwarning);
Cmd_Check_Filsh;
end;
except
Application.MessageBox('操作失败！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end
else if Flag2=2 then
begin
if Application.MessageBox('确定需要【反审核】该单据吗？'+#13#10+'如果【反审核】你将使后面级别的人的【审核】作废，'+#13#10+'后面级别的人必须重新【审核】，才能够生效，请确认！',pchar(application.Title),mb_okcancel)=idok then
begin
try
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Examine_Man2='''',Examine_Man3='''',Examine_Man4='''',Examine_Man5='''' where Receipt_No='''+Trim(Edit_Submit_quit_NO.Text)+''' and Receipt_Name=''受托代销退货单''';
Execute;
L2.Caption:='';
L2.Caption:=LevelName2+'：'+Handle_Man;
L2.Visible:=True;
L3.Caption:=LevelName3+'：'+Handle_Man;
L4.Caption:=LevelName4+'：'+Handle_Man;
L5.Caption:=LevelName5+'：'+Handle_Man;
Flag2:=1;Flag3:=1; Flag4:=1; Flag5:=1;
Application.MessageBox('【反审核】操作成功！请确认',Pchar(application.Title),MB_ICONwarning);
Cmd_Check_Filsh;
end;
except
Application.MessageBox('操作失败！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
end;
procedure Tfrm_Demand_Fad.Cmd3Click(Sender: TObject);
begin
if Flag3=1 then
begin
if Application.MessageBox('确定需要【审核】该单据吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
begin
try
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Examine_Man3='''+Trim(Handle_Man)+''' where Receipt_No='''+Trim(Edit_Submit_quit_NO.Text)+''' and Receipt_Name=''受托代销退货单''';
Execute;
L3.Caption:='';
L3.Caption:=LevelName2+'【已审】';
Flag3:=2;
Application.MessageBox('【审核】操作成功！请确认',Pchar(application.Title),MB_ICONwarning);
Cmd_Check_Filsh;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -