business_draft.pas

来自「适合行业为眼镜业」· PAS 代码 · 共 417 行 · 第 1/2 页

          fmflat:=Tfmflat.Create(self);
          fmflat.ShowModal;
          fmflat.Free;
        end;
       if LevelType='配送单' then //单据名称
        begin
          ShowFmPosSendbill('1','1',503);//配送单；
        end;
        if LevelType='预定商品配送单' then //单据名称
        begin
          ShowYDPosSendbill('1','1',503)//预定配送//预定商品配送单；
        end;
        if LevelType='配送退货单' then //单据名称
        begin
          ShowUNPosSendbill('1','1',505);//配送退货单；
        end;
        if LevelType='新店铺货' then //单据名称
        begin
          Public_Do:='edited';// 受托代销入库单
          Public_Do_Result:='';
          fmshopgoods:=tfmshopgoods.Create(self);
          fmshopgoods.ShowModal;
          fmshopgoods.Free;
        end;
        if LevelType='赠品定义单' then //单据名称
        begin
          Public_Do:='edited';// 受托代销入库单
          Public_Do_Result:='';
          fmZSmanager:=tfmZSmanager.Create(self);
          fmZSmanager.ShowModal;
          fmZSmanager.Free;
        end;
        if LevelType='现金费用单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),1,false);
        end;
        if LevelType='一般费用单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),2,false);
        end;
        if LevelType='其它收入单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),3,false);
        end;
        if LevelType='待摊费用发生单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),4,false);
        end;
        if LevelType='待摊费用摊销单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),5,false);
        end;
        if LevelType='库存退货单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do:='Edited';
          FmCancel:=tFmCancel.Create(self);
          FmCancel.ShowModal;
          FmCancel.Free;
        end;
        if LevelType='财务退货单' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do:='Edited';
          fmfinanceUnpos:=tfmfinanceUnpos.Create(self);
          fmfinanceUnpos.ShowModal;
          fmfinanceUnpos.Free;
        end;
        if LevelType='应付款增加' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),6,false);
        end;
        if LevelType='应收款增加' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),7,false);
        end;
        if LevelType='应付款减少' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),8,false);
        end;
        if LevelType='应收款减少' then //单据名称
        begin
          Public_Do:='';// 受托代销入库单
          Public_Do_Result:='';
          w_skBill('Edit',trim(dmmain.CDSquery.fieldbyname('receipt_no').asstring),9,false);
        end;
    end;
    if Trim(LevelType)='' then   //如果草稿单据的条数为空
    begin
        Exit;
    end;
    try
    dmmain.cdsquery.Refresh;
    DBGRID1.Refresh;
    DBGRID1.DataSource.DataSet.EnableControls;
    except
      DBGRID1.DataSource.DataSet.EnableControls;
    end;
end;

procedure Tfrm_Business_Draft.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dmmain.cdsquery.Close;
  dmmain.cdsquery.Data:=null;
  Action:=cafree;
end;

procedure Tfrm_Business_Draft.ComboBox1Change(Sender: TObject);
var
    tempstr:widestring;
begin
    tempstr:='';
    if Combobox1.ItemIndex=0 then
    begin
        tempstr:='Select Copy_Date,Receipt_Name,Receipt_No,Condense,Proposer,Level_Count,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Level_Name1,Level_Name2,Level_Name3,Level_Name4,Level_Name5,E1,E2,E3,E4,E5,check_result as 审核级数 from'
        +' [V_Stock_Level]'
        +' where Check_Result<>6 and Flag_sign='+''''+trim('草稿')+''''+' and ( Examine_Man1 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man2 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man3 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man4 like'+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man5 like '+''''+trim('%'+Handle_No+'%')+''''
    +') and  (e1 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e1 is null) and (e2 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e2 is null) and (e3 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e3 is null) and (e4 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e4 is null )and (e5 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e5 is null) and RE_Part='+''''+trim(Handle_part)+'''';
    end;
    dmmain.CDSquery.Data:=null;
    dmmain.CDSquery.Close;
     //wg edit 3-14   begin
    try
    dmmain.CDSquery.Data:=ADISP.getrecord(tempstr);
    except
    end;
    dmmain.CDSquery.Open;
    settitle;   //设置网格标题
    ComboBox2.ItemIndex:=0;
//Receipt_No,Receipt_Name,Level_Count,Condense,Proposer,Examine_Man1,Examine_Man2,Examine_Man3,Examine_Man4,Examine_Man5,Check_Result

end;

procedure Tfrm_Business_Draft.ComboBox2Change(Sender: TObject);
var
    tempstr:widestring;

begin
    tempstr:='';
    if Combobox2.ItemIndex=0 then
    begin
        tempstr:='Select Copy_Date,Receipt_Name,Receipt_No,Condense,Proposer,Level_Count,';
        tempstr:=tempstr+'E1,E2,E3,E4,E5,check_result as 审核级数 from [V_Stock_Level]'+' where  Check_Result<> 6 and Flag_sign=''草稿'''+' and ( Examine_Man1 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man2 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man3 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man4 like'+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man5 like '+''''+trim('%'+Handle_No+'%')+''''
    +') and  (e1 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e1 is null) and (e2 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e2 is null) and (e3 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e3 is null) and (e4 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e4 is null )and (e5 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e5 is null) and RE_Part='+''''+trim(Handle_part)+'''';
    end
    else
    begin
        tempstr:='Select Copy_Date,Receipt_Name,Receipt_No,Condense,Proposer,Level_Count,';
        tempstr:=tempstr+'E1,E2,E3,E4,E5,check_result as 审核级数 from [V_Stock_Level]'+' where Check_Result<> 6 and Receipt_Name='''+Trim(ComboBox2.Text)+''' and Flag_sign=''草稿'''+' and ( Examine_Man1 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man2 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man3 like '+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man4 like'+''''+trim('%'+Handle_No+'%')+''''+' or Examine_Man5 like '+''''+trim('%'+Handle_No+'%')+''''
    +') and  (e1 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e1 is null) and (e2 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e2 is null) and (e3 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e3 is null) and (e4 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e4 is null )and (e5 not like '+''''+trim('%'+Handle_Man+'%')+''''+' or e5 is null) and RE_Part='+''''+trim(Handle_part)+'''';
    end;
    dmmain.CDSquery.Close;
 //wg edit 3-14   begin
    dmmain.CDSquery.Data:=adisp.getrecord(tempstr);
    dmmain.CDSquery.Open;
    settitle;
   ComboBox1.ItemIndex:=0;
end;


procedure Tfrm_Business_Draft.BitBtn5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_Business_Draft.BtnDeleteClick(Sender: TObject);
begin
   if not (dmmain.CDSquery.Active) then  exit;

  if application.MessageBox(pchar('是否确定删除待办单据：['+trim(dmmain.CDSquery.Fieldbyname('Receipt_No').AsString)+']?'),pchar(application.Title),mb_iconquestion+mb_yesno)=idyes then
  begin
    try
      DBGRID1.DataSource.DataSet.DisableControls;
      DeleteStock(trim(dmmain.CDSquery.Fieldbyname('Receipt_No').AsString));
      dmmain.cdsquery.Refresh;
      DBGRID1.Refresh;
      DBGRID1.DataSource.DataSet.EnableControls;
    except
    end;
  end;
end;

procedure Tfrm_Business_Draft.DBGrid1TitleClick(Column: TColumn);
begin
  if (not dbgrid1.DataSource.DataSet.Active ) then exit;
  if trim(column.Field.AsString)='' then exit;
  sortgrid(column.Field.FieldName,dmmain.CDSquery,dbgrid1,column);
end;

end.