stock_fad.pas

适合行业为眼镜业

    ChildShop_Result_Name:='';
    ChildShop_Str:='Stock_Fad_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_Fad.SpeedButton9Click(Sender: TObject);
begin
    Employe_Check:='';
    Employe_Check:='Stock_Fad_str';
    Employe_Check_Result:='';
    frm_Login_Man:=Tfrm_Login_Man.Create(self);
    frm_Login_Man.Caption:='经手人选择';
    frm_Login_Man.ShowModal;
    Edit6.Text:=Employe_Check_Result;
    frm_Login_Man.Free;
end;

procedure Tfrm_Stock_Fad.FormShow(Sender: TObject);
var
    i,icount,k:integer;
    tt,yy,temppos:integer;
    sqlsub:widestring;
begin
    iColcount:=StringGrid1.ColCount-1; //需要的填充数据的网络表格的列数
    StringGrid1.RowCount:=2; 
    Total_Count:=StringGrid1.RowCount;
    init;

    //草稿单据查看
    if (Public_Do='Business_Draft_0003')  then
    begin
        with frm_data.ClientDataSet_Add do
        begin
//            Close;
//            CommandText:='';
//            CommandText:='Select * from [V_Stock_Cancel_strip_View] where Receipt_No='''+List_No+'''';
//            Open;
            sqlsub:='Select * from Cancel_strip as a, Cancel_strip_detail as b,goods_code as c where a.stock_no=b.stock_no and b.goods_no=c.goods_no and a.stock_No='''+List_No+'''';
            dmmain.CDSexecsql.Close;
            dmmain.CDSexecsql.Data:=adisp.execSql(sqlsub);
            dmmain.CDSexecsql.Open;
            StringGrid1.RowCount:=dmmain.CDSexecsql.RecordCount+1;
            if dmmain.CDSexecsql.IsEmpty then
            begin
                application.MessageBox('此退货单已被删除！',pchar(application.Title),mb_iconwarning);
                exit;
            end;
            //自动加载STRINGGRID的行数
            for K:=1 to StringGrid1.RowCount do
            begin
                StringGrid1.Cells[0,K]:=IntTostr(k); //表示第0列第i行的名称
            end;
            //******************
            Edit1.Text:=dmmain.CDSexecsql.Fieldbyname('Copy_Date').AsString;
            Edit2.Text:=dmmain.CDSexecsql.Fieldbyname('stock_No').AsString;
            Edit3.Text:=dmmain.CDSexecsql.Fieldbyname('Contract_NO').AsString;
            Edit4.Text:=dmmain.CDSexecsql.Fieldbyname('WLDW').AsString;
            //Edit5.Text:=dmmain.CDSexecsql.Fieldbyname('Storage_Name').AsString;
            Edit6.Text:=dmmain.CDSexecsql.Fieldbyname('Transactor').AsString;
            Edit5.Text:=dmmain.CDSexecsql.Fieldbyname('Storage_NO').AsString;
            Edit8.Text:=dmmain.CDSexecsql.Fieldbyname('proposer').AsString;
            Edit9.Text:=dmmain.CDSexecsql.Fieldbyname('Condense').AsString;
            Edit10.Text:=dmmain.CDSexecsql.Fieldbyname('Remark').AsString;
            for k:=1 to dmmain.CDSexecsql.RecordCount  do

            begin
                StringGrid1.Cells[0,K]:=IntTostr(k); //表示第0列第i行的名称
                StringGrid1.Cells[1,k]:=trim(dmmain.CDSexecsql.Fieldbyname('Goods_NO').AsString);//商品编号
                StringGrid1.Cells[2,k]:=trim(dmmain.CDSexecsql.Fieldbyname('Goods_Name').AsString);//商品名称
                StringGrid1.Cells[3,k]:=trim(dmmain.CDSexecsql.Fieldbyname('amount').AsString);//数量
                StringGrid1.Cells[4,k]:=trim(dmmain.CDSexecsql.Fieldbyname('type').AsString);//商品类别
                StringGrid1.Cells[5,k]:=trim(dmmain.CDSexecsql.Fieldbyname('Fade_Name').AsString);  //商品说明
                StringGrid1.Cells[6,k]:=trim(dmmain.CDSexecsql.Fieldbyname('GoodsMemo').AsString);
                dmmain.CDSexecsql.Next;
            end;
            GetDataPrint(dmmain.cdsprintmaster,dmmain.CDsexecsql);
        end;
    end;
end;


procedure Tfrm_Stock_Fad.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   DMMAIN.CDSquery2.Close;
  dmmain.CDSquery2.Data:=null;
   DMMAIN.CDSexecsql.Close;
  dmmain.CDSexecsql.Data:=null;
  dmmain.cdsprintmaster.Close;
  dmmain.cdsprintmaster.Data:=null;
  dmmain.cdsCancel_strip.Close;
  dmmain.cdsCancel_strip.Data:=null;
  dmmain.cdsCanceldetail.Close;
  dmmain.cdsCanceldetail.Data:=null;
  Action:=Cafree;
end;

procedure Tfrm_Stock_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_Stock_Fad.Cmd_DeleteClick(Sender: TObject);
begin
   deletegridrows(stringgrid1,prow);
end;

procedure Tfrm_Stock_Fad.SpeedButton2Click(Sender: TObject);
var
  user:widestring;
  flag:olevariant;
begin
  if trim(stringgrid1.Cells[1,1])='' then exit;
  no:=trim(edit2.Text);
  typed:='采购退货单';
  user:=trim(Handle_No);
  flag:=adisp.receipted(no,typed,user,1,Handle_Part);
  if flag='1' then
  begin
    application.MessageBox('审核成功！',pchar(application.Title),mb_iconinformation);
    exit;
  end;
  if flag='2' then
  begin
    application.MessageBox('无权进行进行审核',pchar(application.Title),mb_iconinformation);
    exit;
  end;
  if flag='3' then
  begin
    application.MessageBox('审核完毕！',pchar(application.Title),mb_iconinformation);
    exit;
  end;
  if flag='4' then
  begin
    application.MessageBox('反审核完毕！',pchar(application.Title),mb_iconinformation);
    exit;
  end;
  if flag='5' then
  begin
    application.MessageBox('反审核成功！',pchar(application.Title),mb_iconinformation);
    exit;
  end;
  if flag='6' then
  begin
    application.MessageBox('单据过帐后，不能进行审核或反审核！',pchar(application.Title),mb_iconinformation);
    exit;
  end;

end;

procedure Tfrm_Stock_Fad.SpeedButton6Click(Sender: TObject);
begin
    Contract_Check_Result_Str:='';
    Contract_Check_Str:='Stock_Fad';
    frm_Contract_Check:=Tfrm_Contract_Check.Create(self);
    frm_Contract_Check.ShowModal;
    frm_Contract_Check.Free;
    Edit3.Text:=Contract_Check_Result_Str;
    if stringgrid1.RowCount<2 then
    begin
      stringgrid1.RowCount:=2;
      stringgrid1.FixedRows:=1;
    end;
end;

procedure Tfrm_Stock_Fad.Edit3Change(Sender: TObject);
var
  sql:widestring;
  i:integer;
begin
 if trim(edit3.Text)<>'' then
  begin
    sql:='Select a.*,b.*,c.* from Quality_Check_detail as a, Goods_code as b,Quality_Check as c where a.goods_no=b.goods_no and a.stock_No=c.stock_No and a.Un_Regular_Amount>0 and a.stock_No='+''''+trim(edit3.Text)+'''';
    dmmain.CDSquery2.Close;
    dmmain.CDSquery2.Data:=adisp.resultrecord(sql);
    dmmain.CDSquery2.Open;
    i:=1;
    StringGrid1.RowCount:=dmmain.CDSquery2.RecordCount+1;
    Edit4.Text:=dmmain.CDSquery2.Fieldbyname('WLDW').AsString;//FieldValues['wldw'];
    Edit5.Text:=dmmain.CDSquery2.Fieldbyname('Storage_NO').AsString;//FieldValues['Storage_NO'];
    //Edit6.Text:=dmmain.CDSquery2.Fieldbyname('Transactor').AsString;//FieldValues['Transactor'];
    Edit7.Text:=dmmain.CDSquery2.Fieldbyname('Shop_NO').AsString;//FieldValues['Shop_NO'];
    //Edit8.Text:=dmmain.CDSquery2.Fieldbyname('proposer').AsString;//FieldValues['proposer'];
    Edit9.Text:=dmmain.CDSquery2.Fieldbyname('Quality_Remark').AsString;//FieldValues['Remark'];
    Edit10.Text:=dmmain.CDSquery2.Fieldbyname('Condense').AsString;//
    while not dmmain.CDSquery2.Eof do
    begin
      StringGrid1.Cells[0,i]:=inttostr(i);
      StringGrid1.Cells[1,i]:=trim(dmmain.CDSquery2.Fieldbyname('Goods_NO').AsString);//FieldValues['Goods_NO'];//商品编号
      StringGrid1.Cells[2,i]:=trim(dmmain.CDSquery2.Fieldbyname('Goods_Name').AsString);//FieldValues['Goods_Name'];//商品名称
      StringGrid1.Cells[3,i]:=trim(dmmain.CDSquery2.Fieldbyname('Un_Regular_Amount').AsString);//FieldValues['amount'];//金额
      StringGrid1.Cells[4,i]:=trim(dmmain.CDSquery2.Fieldbyname('type').AsString);//FieldValues['Goods_Modal'];//球面度数
      StringGrid1.Cells[5,i]:=trim(dmmain.CDSquery2.Fieldbyname('Check_Remark').AsString);//FieldValues['Remark'];  //备注说明
      StringGrid1.Cells[6,i]:=trim(dmmain.CDSquery2.Fieldbyname('GoodsMEMO').AsString);
      dmmain.CDSquery2.Next;
      inc(i);
    end;
  end;

end;

procedure Tfrm_Stock_Fad.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  pcol:=acol;
  prow:=arow;
end;

procedure Tfrm_Stock_Fad.SpeedButton3Click(Sender: TObject);
begin
  if dmmain.cdsprintmaster.IsEmpty then exit;
  fastrepxf:=tfastrepxf.Create(self);
  fastrepxf.filenames:='GoodsFad.ini';
  fastrepxf.ShowModal;
  fastrepxf.Free;
end;

procedure Tfrm_Stock_Fad.StringGrid1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if pcol=5 then
  begin
    stringgrid1.cells[5,prow]:=stringgrid1.cells[5,prow]+key;
  end else
  begin
    stringgrid1.Options:=stringgrid1.Options-[goediting];
    key:=#0;
  end;
end;

end.